eaend.o n end " any.o : l f w w 8 y i 8 Y I i f x j succ fail ctest iget any " append.o @ t 0 &
w ) succ putcstr iget append " bundle.o J $ ` @@e w I ( 9 Y f g g1 pbundle iget succ bundle " reduce " char.o N ` w &
w 9 y I ( i f i j jget iget char " succ fail copy.o S x` W B e 2
7translation overflow 2 E w w i 8 H X H 8 y f i x k ktab ktat putcall obuild errcom succ generate rewcstr getcstr scopy " decmal.o c ` w w ) 9 i I Y i putcall iget kput putdec generate succ decimal " discd.o f \ 0 w ) 9 release discard " iget succ emit.o k F ` fe #W8@!q # u @5 w X ) 9 h h h I f g ofile dogen succ g1 k emit " find.o v P &
w &
&&
e e 6 e & * e w |6
r n j b 6 V R N F > e w 2 Y i ( 8 Y i I i lptr rptr sptr succ fail iget find " enter " seekchar getword getchar putword putchar alterwor getcstr rewcstr length rewind index tablep temp which framel right left ( nomore l found getnam.o z j ! w - fe 2
w ) ) I y Y h y i putcall kput obuild seekchar getchar outb outw outt cfile lfile flush iget sptr generate succ getnam " ignore.o ~ d < 5 w 9 ) f n succ iget ignore " inc.o $ T
w
w
w
w ) ) succ .u update .ia " .ib " .da " .db " infix.o 8 T c S N
C 6x w .p sprv .a " .s "
.o " .n " .x " * lvrv.o \ $ w w ) ) .lv " .rv " succ mult.o 6 < 6p v
r6
rv w I I I 9 .m " .q " .r " " .p sprv octal.o ` w w ) 9 i I Y i putcall iget kput putoct generate succ octal " params.o H A 1` w ( 8 I f iget env si succ params " push.o ( $ f &&
f
succ iget push " putcal.o < ` T A 1 W 7translation overflow ( ( ( H X 9 f g k errcom ktab ktat putcall " kput "
putdec.o D $
&- vr
f @e0 w < w -32768 putch obuild putdec " putoct.o x " $ &E @ e0 putch obuild putoct " px.o 0N
> f f & > w 5
% w I 8 ( Y ( 8 y 8 ( 8 i f i j n iget jget succ fail .px " .pxs " litc L reln.o <Z x - # - - -
- - w 6
w .p sprv .eq " .ne " .lt " .le " $ .gt " 0 .ge " < true H false R shift.o d 0
vv w .p sprv .sr " .sl " stack.o |n w W8
Ae @fD W4P w 8& # w 9 i x I 9 i i Y f i g succ pbundle goto iget g1 stack " unstack "
gotab " L accept " string.o T N & w Y ( I ( 9 f i j succ ctest iget string " table.o & H f
w ) 9 I allocate putword putchar iget succ table " tq.o ,@ A u u A Ce 5
w A 1` w h 8 8 X ( H h x 8 h f i ek ep ek.fs ep.fs si x fs generate .tq " gpar " 0 gq " trace.o x <
) i putch putoct trswitch# trace " trans.o T
0 w ) g succ iget trans " tx.o l < w ) i generate obuild .tx " .txs " unary.o p 0
N
w succ .ng " .nt " .cm " yctest.o _ " `
& 7
9 ( Y f j classtab jget ctest " putcstr succ ctestc " zarith.o F td L ) > %% 6 !w &&- % w ) 9 Y succ fail iget seekchar getword alterwor sprv " P update " , .l " " .u " .p " .t " .st " zcstr.o Z 7
w 7
~ v
r W 1
& \ 4 wN D > w 8
0 W @ ~ w v ) y 9 Y I i ) jget iget succ create rewind putchar getchar allocate smark " rewcstr " putcstr " getcstr " L size " ~ cstrw cstrr cstrt cstrb symp zf.o q | 0 6 w ) 9 .f " succ seekchar getword zjget.o T\
X A @E @7
D 7 ` 0`
@` p=
W 9 ( H f j n input classtab jget " jgetc \ inpt inpr $ readc ^ inpb `