about summary refs log tree commit diff stats
path: root/scripts
diff options
context:
space:
mode:
authornfnty <git@nfnty.se>2015-10-02 15:18:13 +0200
committerhut <hut@lepus.uberspace.de>2015-10-04 01:34:23 +0200
commit28f9187f6f08a5b09293d44f1928a7da85c2a7b7 (patch)
tree9d33495a57546bf209cb1b9c8159f12de0ac2dc2 /scripts
parent751127e231f084c0b6a8a717424d83564212f49b (diff)
downloadranger-28f9187f6f08a5b09293d44f1928a7da85c2a7b7.tar.gz
Fix regex splitting for natural sort, Fixes #381
Diffstat (limited to 'scripts')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-22 13:17:49 +0000


 


hlt&id=48a74397fb1a967fffa67ffb80005d94ed2ac60c'>^



83a43e63 ^

97dd2c65 ^

7d2c2d55 ^

337a099d ^

5b698455 ^

337a099d ^

7d2c2d55 ^





337a099d ^


337a099d ^





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





                                                               

                                                               
               

                                                   


                                           
                                                                                                                      
                                                       
                           
         
                                                                              
                                                                  




                                             

                                                        


          
; reads and prints keys until you hit 'q'
; no need to hit 'enter', and 'enter' has no special meaning
; 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)
  ; hook up stdin
  (stdin:channel-address <- init-channel 1:literal)
;?   ($print (("main: stdin is " literal)))
;?   ($print stdin:channel-address)
;?   ($print (("\n" literal)))
  (fork-helper send-keys-to-stdin:fn nil:literal/globals nil:literal/limit nil:literal/keyboard stdin:channel-address)
  ; now read characters from stdin until a 'q' is typed
  ($print (("? " literal)))
  { begin
    (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address)
    (c:character <- maybe-coerce x:tagged-value character:literal)
;?     ($print (("main: stdin is " literal)))
;?     ($print stdin:channel-address)
;?     ($print (("\n" literal)))
;?     ($print (("check: " literal)))
;?     ($print c:character)
    (done?:boolean <- equal c:character ((#\q literal)))
    (break-if done?:boolean)
    (loop)
  }
])