119 lines
3.9 KiB
Plaintext
Executable File
119 lines
3.9 KiB
Plaintext
Executable File
#! /home/nybble/src/c/rosella/rosella
|
|
|
|
#S(#="lambda"
|
|
; (lambda (pathname . _)
|
|
; (call-with-values
|
|
; (lambda () (posix-open pathname O_RDONLY))
|
|
; (lambda (fd errno . _)
|
|
; ((if fd
|
|
; (lambda (fd errno . _)
|
|
; (let [(str (make-byte-string 4096))]
|
|
; (letrec [(loop (lambda ()
|
|
; (call-with-values
|
|
; (lambda () (posix-read fd str (byte-string-size str)))
|
|
; (lambda (result . _)
|
|
; (unless (eq? size 0)
|
|
; (posix-write 1 str size))
|
|
; (loop)))))]
|
|
; (loop))))
|
|
; k)
|
|
; fd errno))))
|
|
#(
|
|
0 ; O_RDONLY
|
|
#="posix-open"
|
|
#S(#="template"
|
|
; (let/cc k
|
|
; (lambda (fd errno . _)
|
|
; (if fd
|
|
; (k (apply ... argv))
|
|
; (k argv))))
|
|
#(
|
|
#S(#="lambda"
|
|
; (lambda (fd errno . _)
|
|
; (let/cc k
|
|
; (let [(str (make-byte-string 4096 0))]
|
|
; (letrec [(loop (lambda () ... k fd ...))]
|
|
; (loop)))))
|
|
#(
|
|
4096
|
|
0
|
|
#S(#="template" ; loop
|
|
; (let (fd str)
|
|
; (letrec [(loop (lambda ()
|
|
; (let/cc k
|
|
; (call-with-values
|
|
; (lambda () (posix-read fd str (byte-string-size str)))
|
|
; (lambda (result . _) ... k str loop ...)))))]
|
|
; loop))
|
|
#(
|
|
#="posix-read"
|
|
#S(#="template"
|
|
; (lambda (result . _)
|
|
; (unless (eq? result 0)
|
|
; ((lambda _ (loop)) (posix-write 1 str result))
|
|
; (k)))
|
|
#(0 1 #="posix-write")
|
|
"\x41\xfc\xfe\xff" ; #(i1=str self=loop k ctx)
|
|
2
|
|
"\x00\x81\x03\xfd\; (set! f1 (car argv))
|
|
\x02\x80\x81\x00\; (set! f0 (cons f1 nil))
|
|
\x02\x80\x40\x80\; (set! f0 (cons i0 f0))
|
|
\x02\x80\x02\x80\; (set! f0 (cons g2 f0))
|
|
\x01\x81\x81\x01\; (set! f1 (eq? f1 g1))
|
|
\x80\x81\x00\x80\; (set! f0 (if f1 nil f0))
|
|
\x81\x81\x42\x03"; (set! f1 (if f1 i2 g3))
|
|
0x81 ; f1
|
|
0x80 ; f0
|
|
0x41 ; i1
|
|
0x43 ; i3
|
|
)
|
|
)
|
|
"\x80\x81" ; #(f0 f1)
|
|
2
|
|
"\x00\x80\x29\x41\; (set! f0 (byte-string-size i1))
|
|
\x02\x80\x80\x00\; (set! f0 (cons f0 nil))
|
|
\x02\x80\x41\x80\; (set! f0 (cons i1 f0))
|
|
\x02\x80\x40\x80\; (set! f0 (cons i0 f0))
|
|
\x00\x81\x1b\x02"; (set! f1 (lambda g2))
|
|
0x01 ; g1
|
|
0x80 ; f0
|
|
0x81 ; f1
|
|
0xff ; ctx
|
|
)
|
|
)
|
|
#()
|
|
3
|
|
"\x00\x80\x03\xfd\; (set! f0 (car argv))
|
|
\x04\x81\x01\x02\; (set! f1 (make-byte-string g1 g2))
|
|
\x00\x82\x1b\x03"; (set! f2 (lambda g3))
|
|
0x82 ; f2
|
|
0x00 ; nil
|
|
0xfe ; k
|
|
0xff ; ctx
|
|
)
|
|
)
|
|
"\xfe\xff" ; k ctx
|
|
1
|
|
"\x00\x80\x03\xfd\; (set! f0 (car argv))
|
|
\x80\x80\x01\x40\; (set! f0 (if f0 g1 i0))
|
|
\x00\x80\x1b\x80"; (set! f0 (lambda f0))
|
|
0x80 ; f0
|
|
0xfd ; argv
|
|
0x40 ; i0
|
|
0x41 ; i1
|
|
)
|
|
)
|
|
#()
|
|
2
|
|
"\x02\x80\x01\x00\; (set! f0 (cons g1 nil))
|
|
\x00\x81\x03\xfd\; (set! f1 (car argv))
|
|
\x02\x80\x81\x80\; (set! f0 (cons f1 f0))
|
|
\x00\x81\x1b\x03"; (set! f1 (lambda g3))
|
|
0x02 ; g2
|
|
0x80 ; f0
|
|
0x81 ; f1
|
|
0xff ; ctx
|
|
)
|
|
|
|
; vim:set sw=2 expandtab syntax=:
|