summary refs log tree commit diff stats
path: root/doc/ranger.pod
diff options
context:
space:
mode:
authorhut <hut@lavabit.com>2013-02-10 03:41:39 +0100
committerhut <hut@lavabit.com>2013-02-10 03:41:39 +0100
commit2fc163162cb450e78a7b5f557da27eb8dc778141 (patch)
tree50157d53f887c99df304b2ccfd2ed0162cfb96f0 /doc/ranger.pod
parent184e84284d2f4e48631a4b94b87ba76126470206 (diff)
parent1a0e0a663b6b67f7e644b89ade63fb285740b6a4 (diff)
downloadranger-2fc163162cb450e78a7b5f557da27eb8dc778141.tar.gz
Merge branch 'spaces'
Diffstat (limited to 'doc/ranger.pod')
-rw-r--r--doc/ranger.pod2
1 files changed, 1 insertions, 1 deletions
diff --git a/doc/ranger.pod b/doc/ranger.pod
index 7ab59460..a06bc6ca 100644
--- a/doc/ranger.pod
+++ b/doc/ranger.pod
@@ -966,7 +966,7 @@ doesn't work for functions and regular expressions. Valid values are:
 Assigns a new value to an option, but locally for the directory given by
 I<path>. This means, that this option only takes effect when visiting that
 directory. If no path is given, uses the current directory.
-   
+
 =item shell [-I<flags>] I<command>
 
 Run a shell command.  I<flags> are discussed in their own section.
@akkartik.com> 2015-01-25 21:24:13 -0800 624 - no, that's all wrong, scratch 623' href='/akkartik/mu/commit/buffered-stdin.mu?h=hlt&id=5b698455793a6bee2bacab1a646f73c9c49a75ee'>5b698455 ^
4ca73eb6 ^
7d2c2d55 ^


4ca73eb6 ^



3a0be565 ^


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
                                                    


                                                               
                    


                                                                                                                      
                
                                                            
                                                                                                                          
         



                                                                
                                                                                                  
                                                                    


                                         



                                                                     


          
; reads lines, prints them back when you hit 'enter'
; dies if you wait a while, because so far we never free memory
(function main [
  (default-space:space-address <- new space:literal 30:literal)
  (cursor-mode) ;? 1
  ; hook up stdin
  (stdin:channel-address <- init-channel 1:literal)
  (fork-helper send-keys-to-stdin:fn nil:literal/globals nil:literal/limit nil:literal/keyboard stdin:channel-address)
  ; buffer stdin
  (buffered-stdin:channel-address <- init-channel 1:literal)
  (fork-helper buffer-lines:fn nil:literal/globals nil:literal/limit stdin:channel-address buffered-stdin:channel-address)
  { begin
    ; now read characters from the buffer until 'enter' is typed
    (s:string-address <- new "? ")
    (print-string nil:literal/terminal s:string-address)
    { begin
      (x:tagged-value buffered-stdin:channel-address/deref <- read buffered-stdin:channel-address)
      (c:character <- maybe-coerce x:tagged-value character:literal)
;?       ($print (("AAA " literal))) ;? 1
;?       ($print c:character) ;? 1
;?       ($print (("\n" literal))) ;? 1
      (print-character nil:literal/terminal c:character)
      (line-done?:boolean <- equal c:character ((#\newline literal)))
      (loop-unless line-done?:boolean)
    }
    (loop)
  }
])