(loader '((title |stringio.lo|)))
(if (not (>= (version) 15.21)) (progn (error 'load 'erricf 'stringio)))
(defvar #:sys-package:colon 'stringio)
(add-feature 'stringio)
(defvar #:stringio:standard-string-output (makestring 256 32))
(defvar #:stringio:flush-reached ())
(loader'((fentry #:stringio:eol subr0)
(entry #:stringio:eol subr0)
(push (@ 101))
(push '13)
(mov '1 a4)
(jmp princn)
101
(eval ())
(push (@ 102))
(push '10)
(mov '1 a4)
(jmp princn)
102
(eval ())
(return)
))
(loader'((fentry #:stringio:flush subr0)
(entry #:stringio:flush subr0)
(btnil (cvalq #:stringio:flush-reached) 102)
(mov nil a1)
(mov '#:stringio:failed a2)
(jmp #:llcp:exit)
102
(mov 't (cvalq #:stringio:flush-reached))
(mov 't a1)
(return)
))
(loader'((fentry with-output-to-string dmsubr)
(entry with-output-to-string dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(mov (cdr a4) a3)
(mov (car a4) a4)
(push a4)
(push a3)
(push (@ 101))
(push 'let)
(push (@ 102))
(push (@ 103))
(push '#:stringio:s)
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(push a1)
(push (@ 104))
(push '#:stringio:i)
(push (& 7))
(mov '2 a4)
(jmp list)
104
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
102
(eval ())
(push a1)
(push (@ 105))
(push 'let)
(push '((#:stringio:b (outbuf)) (#:stringio:pos (outpos)) (#:stringio:rmargin (rmargin))))
(push (@ 106))
(push 'tag)
(push '#:stringio:ok)
(push (@ 107))
(push 'tag)
(push '#:stringio:failed)
(push (@ 108))
(push 'let)
(push '((#:sys-package:itsoft (cons 'stringio #:sys-package:itsoft)) (#:stringio:flush-reached ())))
(push (@ 109))
(push 'protect)
(push (@ 110))
(push 'progn)
(push '(exchstring #:stringio:b #:stringio:s))
(push '(rmargin (add1 (slen #:stringio:b))))
(push '(outpos #:stringio:i))
(push (@ 111))
(push (& 23))
(push '((exit #:stringio:ok (outpos))))
(mov '2 a4)
(jmp nconc)
111
(eval ())
(push a1)
(mov '5 a4)
(jmp mcons)
110
(eval ())
(push a1)
(push '((exchstring #:stringio:b #:stringio:s) (rmargin #:stringio:rmargin) (outpos #:stringio:pos)))
(mov '3 a4)
(jmp mcons)
109
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
108
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
107
(eval ())
(push a1)
(push '((error 'print-to-string "EOS durant un PRINT" ())))
(mov '4 a4)
(jmp mcons)
106
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
105
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
101
(eval ())
(adjstk '2)
(return)
))
(loader'((fentry print-to-string subr1)
(entry print-to-string subr1)
(push a1)
(push (@ 101))
(push (cvalq #:stringio:standard-string-output))
(push '0)
(push (cvalq #:stringio:standard-string-output))
(push '0)
(push (@ 102))
(mov '0 a4)
(jmp outbuf)
102
(eval ())
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp outpos)
103
(eval ())
(push a1)
(push (@ 104))
(mov '0 a4)
(jmp rmargin)
104
(eval ())
(push a1)
(push (@ 105))
(push '#:stringio:ok)
(push dlink)
(push tag)
(stack dlink)
(push (@ 106))
(push '#:stringio:failed)
(push dlink)
(push tag)
(stack dlink)
(mov (cvalq #:sys-package:itsoft) a2)
(mov 'stringio a1)
(jcall cons)
(push nil)
(push (cvalq #:sys-package:itsoft))
(mov a1 (cvalq #:sys-package:itsoft))
(push (cvalq #:stringio:flush-reached))
(mov (& 2) (cvalq #:stringio:flush-reached))
(push '2)
(push '(#:sys-package:itsoft #:stringio:flush-reached))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 107))
(push dlink)
(push prot)
(stack dlink)
(mov (& 24) a2)
(mov (& 22) a1)
(jcall exchstring)
(push (@ 109))
(hgsize (& 23) a4)
(plus '1 a4)
(push a4)
(mov '1 a4)
(jmp rmargin)
109
(eval ())
(push (@ 110))
(push (& 24))
(mov '1 a4)
(jmp outpos)
110
(eval ())
(push (@ 111))
(push (& 29))
(mov '1 a4)
(jmp prin)
111
(eval ())
(push (@ 112))
(mov '0 a4)
(jmp outpos)
112
(eval ())
(mov '#:stringio:ok a2)
(jmp #:llcp:exit)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 108) a3)
107
(push a3)
(push a2)
(mov (& 24) a2)
(mov (& 22) a1)
(jcall exchstring)
(push (@ 113))
(push (& 21))
(mov '1 a4)
(jmp rmargin)
113
(eval ())
(push (@ 114))
(push (& 22))
(mov '1 a4)
(jmp outpos)
114
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
108
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:stringio:flush-reached))
(mov (& 7) (cvalq #:sys-package:itsoft))
(adjstk '9)
(mov (& 1) dlink)
(adjstk '4)
106
(eval ())
(mov nil a3)
(mov '"EOS durant un PRINT" a2)
(mov 'print-to-string a1)
(jcall error)
(mov (& 1) dlink)
(adjstk '4)
105
(eval ())
(adjstk '5)
(push a1)
(mov '3 a4)
(jmp substring)
101
(eval ())
(adjstk '1)
(return)
))
(defvar #:stringio:eos-reached ())
(loader'((fentry #:stringio:bol subr0)
(entry #:stringio:bol subr0)
(btnil (cvalq #:stringio:eos-reached) 102)
(mov nil a1)
(mov '#:stringio:failed a2)
(jmp #:llcp:exit)
102
(push (@ 103))
(mov '0 a4)
(jmp inbuf)
103
(eval ())
(hbmovx '32 a1 '0)
(mov 't (cvalq #:stringio:eos-reached))
(push (@ 104))
(push '1)
(mov '1 a4)
(jmp inmax)
104
(eval ())
(push (@ 105))
(push '0)
(mov '1 a4)
(jmp inpos)
105
(eval ())
(return)
))
(loader'((fentry read-from-string subr1)
(entry read-from-string subr1)
(push '0)
(push a1)
(push (@ 101))
(mov '0 a4)
(jmp inbuf)
101
(eval ())
(push a1)
(hbxmov (& 1) '0 a4)
(push a4)
(push (@ 102))
(mov '0 a4)
(jmp inmax)
102
(eval ())
(push a1)
(push (@ 103))
(mov '0 a4)
(jmp inpos)
103
(eval ())
(push a1)
(push (@ 104))
(push '#:stringio:ok)
(push dlink)
(push tag)
(stack dlink)
(push (@ 105))
(push '#:stringio:failed)
(push dlink)
(push tag)
(stack dlink)
(mov (cvalq #:sys-package:itsoft) a2)
(mov 'stringio a1)
(jcall cons)
(push nil)
(push nil)
(push (cvalq #:sys-package:itsoft))
(mov a1 (cvalq #:sys-package:itsoft))
(push (cvalq #:stringio:eos-reached))
(mov (& 3) (cvalq #:stringio:eos-reached))
(push '2)
(push '(#:sys-package:itsoft #:stringio:eos-reached))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 106))
(push dlink)
(push prot)
(stack dlink)
(mov (& 25) a2)
(mov (& 24) a1)
(jcall exchstring)
(push (@ 108))
(hgsize (& 25) a4)
(push a4)
(mov '1 a4)
(jmp inmax)
108
(eval ())
(push (@ 109))
(push (& 27))
(mov '1 a4)
(jmp inpos)
109
(eval ())
(push 't)
(push (cvalq #:system:error-flag))
(mov (& 1) (cvalq #:system:error-flag))
(push '1)
(push '(#:system:error-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 110))
(push '#:system:error-tag)
(push dlink)
(push tag)
(stack dlink)
(jcall read)
(jcall ncons)
(mov (& 1) dlink)
(adjstk '4)
110
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:error-flag))
(adjstk '8)
(mov a1 (& 11))
(bfcons a1 111)
(mov (car a1) a1)
(mov '#:stringio:ok a2)
(jmp #:llcp:exit)
111
(mov nil a1)
(mov '#:stringio:failed a2)
(jmp #:llcp:exit)
112
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 107) a3)
106
(push a3)
(push a2)
(mov (& 25) a2)
(mov (& 24) a1)
(jcall exchstring)
(push (@ 113))
(push (& 23))
(mov '1 a4)
(jmp inmax)
113
(eval ())
(push (@ 114))
(push (& 22))
(mov '1 a4)
(jmp inpos)
114
(eval ())
(hbmovx (& 23) (& 25) '0)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
107
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:stringio:eos-reached))
(mov (& 7) (cvalq #:sys-package:itsoft))
(adjstk '10)
(mov nil a3)
(mov 'errsxt a2)
(mov 'with-input-from-string a1)
(jcall error)
(mov (& 1) dlink)
(adjstk '4)
105
(eval ())
(mov (& 1) dlink)
(adjstk '4)
104
(eval ())
(adjstk '6)
(return)
))
(loader'((fentry with-input-from-string dmsubr)
(entry with-input-from-string dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(mov (cdr a4) a3)
(mov (car a4) a4)
(push a4)
(push a3)
(push (@ 101))
(push 'let)
(push (@ 102))
(push (@ 103))
(push '#:stringio:s)
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(push a1)
(push (@ 104))
(push '#:stringio:i)
(push (& 7))
(mov '2 a4)
(jmp list)
104
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
102
(eval ())
(push a1)
(push (@ 105))
(push 'let)
(push '((#:stringio:b (inbuf)) (#:stringio:firstcn (sref #:stringio:s 0)) (#:stringio:max (inmax)) (#:stringio:pos (inpos))))
(push (@ 106))
(push 'tag)
(push '#:stringio:ok)
(push (@ 107))
(push 'tag)
(push '#:stringio:failed)
(push (@ 108))
(push 'let)
(push '((#:sys-package:itsoft (cons 'stringio #:sys-package:itsoft)) (#:stringio:eos-reached ()) (val ())))
(push (@ 109))
(push 'protect)
(push (@ 110))
(push 'progn)
(push '(exchstring #:stringio:b #:stringio:s))
(push '(inmax (slen #:stringio:b)))
(push '(inpos #:stringio:i))
(push (@ 111))
(push 'setq)
(push 'val)
(push (@ 112))
(push 'catcherror)
(push 't)
(push (& 28))
(mov '3 a4)
(jmp mcons)
112
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
111
(eval ())
(push a1)
(push '((if (consp val) (exit #:stringio:ok (car val)) (exit #:stringio:failed ()))))
(mov '6 a4)
(jmp mcons)
110
(eval ())
(push a1)
(push '((exchstring #:stringio:b #:stringio:s) (inmax #:stringio:max) (inpos #:stringio:pos) (sset #:stringio:s 0 #:stringio:firstcn)))
(mov '3 a4)
(jmp mcons)
109
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
108
(eval ())
(push a1)
(push '((error 'with-input-from-string 'errsxt ())))
(mov '4 a4)
(jmp mcons)
107
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
106
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
105
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
101
(eval ())
(adjstk '2)
(return)
))
(loader '((end)))