about summary refs log blame commit diff stats
path: root/core/conf/ports/6c37-dropin.httpup
blob: 6dfb3e2a75a65c85e18713b99aa3019a4e9c1d61 (plain) (tree) 
40fc398 ^





1
2
3
4
5





                                                                 
# Collection 6c37-dropin, by camille at airmail dot cc
# File generated by the CRUX portdb http://crux.nu/portdb/

ROOT_DIR=/usr/ports/6c37-dropin
URL=https://raw.githubusercontent.com/6c37/crux-ports-dropin/3.3/
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-18 23:27:37 +0000
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)
  }
])
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-18 23:27:34 +0000