/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume10 / xlisp21 / part06

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 6d 69 73 63 0a 6f 72 |.sources|.misc.or|
|00000020| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 43 6f 67 6e |ganizati|on: Cogn|
|00000030| 6f 73 20 49 6e 63 2e 2c | 20 4f 74 74 61 77 61 2c |os Inc.,| Ottawa,|
|00000040| 20 43 61 6e 61 64 61 0a | 73 75 62 6a 65 63 74 3a | Canada.|subject:|
|00000050| 20 76 31 30 69 30 39 33 | 3a 20 58 4c 69 73 50 20 | v10i093|: XLisP |
|00000060| 32 2e 31 20 73 6f 75 72 | 63 65 73 20 33 62 20 28 |2.1 sour|ces 3b (|
|00000070| 32 2f 32 29 20 2f 20 35 | 0a 46 72 6f 6d 3a 20 67 |2/2) / 5|.From: g|
|00000080| 61 72 79 6d 40 63 6f 67 | 6e 6f 73 2e 55 55 43 50 |arym@cog|nos.UUCP|
|00000090| 20 28 47 61 72 79 20 4d | 75 72 70 68 79 29 0a 53 | (Gary M|urphy).S|
|000000a0| 65 6e 64 65 72 3a 20 61 | 6c 6c 62 65 72 79 40 75 |ender: a|llbery@u|
|000000b0| 75 6e 65 74 2e 55 55 2e | 4e 45 54 20 28 42 72 61 |unet.UU.|NET (Bra|
|000000c0| 6e 64 6f 6e 20 53 2e 20 | 41 6c 6c 62 65 72 79 20 |ndon S. |Allbery |
|000000d0| 2d 20 63 6f 6d 70 2e 73 | 6f 75 72 63 65 73 2e 6d |- comp.s|ources.m|
|000000e0| 69 73 63 29 0a 0a 50 6f | 73 74 69 6e 67 2d 6e 75 |isc)..Po|sting-nu|
|000000f0| 6d 62 65 72 3a 20 56 6f | 6c 75 6d 65 20 31 30 2c |mber: Vo|lume 10,|
|00000100| 20 49 73 73 75 65 20 39 | 33 0a 53 75 62 6d 69 74 | Issue 9|3.Submit|
|00000110| 74 65 64 2d 62 79 3a 20 | 67 61 72 79 6d 40 63 6f |ted-by: |garym@co|
|00000120| 67 6e 6f 73 2e 55 55 43 | 50 20 28 47 61 72 79 20 |gnos.UUC|P (Gary |
|00000130| 4d 75 72 70 68 79 29 0a | 41 72 63 68 69 76 65 2d |Murphy).|Archive-|
|00000140| 6e 61 6d 65 3a 20 78 6c | 69 73 70 32 31 2f 70 61 |name: xl|isp21/pa|
|00000150| 72 74 30 36 0a 0a 23 21 | 2f 62 69 6e 2f 73 68 0a |rt06..#!|/bin/sh.|
|00000160| 23 20 54 68 69 73 20 69 | 73 20 61 20 73 68 65 6c |# This i|s a shel|
|00000170| 6c 20 61 72 63 68 69 76 | 65 2c 20 6d 65 61 6e 69 |l archiv|e, meani|
|00000180| 6e 67 3a 0a 23 20 31 2e | 20 52 65 6d 6f 76 65 20 |ng:.# 1.| Remove |
|00000190| 65 76 65 72 79 74 68 69 | 6e 67 20 61 62 6f 76 65 |everythi|ng above|
|000001a0| 20 74 68 65 20 23 21 2f | 62 69 6e 2f 73 68 20 6c | the #!/|bin/sh l|
|000001b0| 69 6e 65 2e 0a 23 20 32 | 2e 20 53 61 76 65 20 74 |ine..# 2|. Save t|
|000001c0| 68 65 20 72 65 73 75 6c | 74 69 6e 67 20 74 65 78 |he resul|ting tex|
|000001d0| 74 20 69 6e 20 61 20 66 | 69 6c 65 2e 0a 23 20 33 |t in a f|ile..# 3|
|000001e0| 2e 20 45 78 65 63 75 74 | 65 20 74 68 65 20 66 69 |. Execut|e the fi|
|000001f0| 6c 65 20 77 69 74 68 20 | 2f 62 69 6e 2f 73 68 20 |le with |/bin/sh |
|00000200| 28 6e 6f 74 20 63 73 68 | 29 20 74 6f 20 63 72 65 |(not csh|) to cre|
|00000210| 61 74 65 20 74 68 65 20 | 66 69 6c 65 73 3a 0a 23 |ate the |files:.#|
|00000220| 09 78 6c 66 69 6f 2e 63 | 0a 23 09 78 6c 66 74 61 |.xlfio.c|.#.xlfta|
|00000230| 62 2e 63 0a 23 09 78 6c | 67 6c 6f 62 2e 63 0a 23 |b.c.#.xl|glob.c.#|
|00000240| 09 78 6c 69 6d 61 67 65 | 2e 63 0a 23 09 78 6c 69 |.xlimage|.c.#.xli|
|00000250| 6e 69 74 2e 63 0a 23 09 | 78 6c 69 6f 2e 63 0a 23 |nit.c.#.|xlio.c.#|
|00000260| 09 78 6c 69 73 70 2e 63 | 0a 23 09 78 6c 69 73 70 |.xlisp.c|.#.xlisp|
|00000270| 2e 68 0a 23 09 78 6c 69 | 73 70 2e 6c 6e 6b 0a 23 |.h.#.xli|sp.lnk.#|
|00000280| 09 78 6c 69 73 70 2e 6d | 61 63 0a 23 20 54 68 69 |.xlisp.m|ac.# Thi|
|00000290| 73 20 61 72 63 68 69 76 | 65 20 63 72 65 61 74 65 |s archiv|e create|
|000002a0| 64 3a 20 53 75 6e 20 46 | 65 62 20 31 38 20 32 33 |d: Sun F|eb 18 23|
|000002b0| 3a 33 37 3a 34 38 20 31 | 39 39 30 0a 23 20 42 79 |:37:48 1|990.# By|
|000002c0| 3a 09 47 61 72 79 20 4d | 75 72 70 68 79 20 28 29 |:.Gary M|urphy ()|
|000002d0| 0a 65 78 70 6f 72 74 20 | 50 41 54 48 3b 20 50 41 |.export |PATH; PA|
|000002e0| 54 48 3d 2f 62 69 6e 3a | 24 50 41 54 48 0a 65 63 |TH=/bin:|$PATH.ec|
|000002f0| 68 6f 20 73 68 61 72 3a | 20 65 78 74 72 61 63 74 |ho shar:| extract|
|00000300| 69 6e 67 20 22 27 78 6c | 66 69 6f 2e 63 27 22 20 |ing "'xl|fio.c'" |
|00000310| 27 28 39 39 37 36 20 63 | 68 61 72 61 63 74 65 72 |'(9976 c|haracter|
|00000320| 73 29 27 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |s)'.if t|est -f '|
|00000330| 78 6c 66 69 6f 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |xlfio.c'|.then..e|
|00000340| 63 68 6f 20 73 68 61 72 | 3a 20 6f 76 65 72 2d 77 |cho shar|: over-w|
|00000350| 72 69 74 69 6e 67 20 65 | 78 69 73 74 69 6e 67 20 |riting e|xisting |
|00000360| 66 69 6c 65 20 22 27 78 | 6c 66 69 6f 2e 63 27 22 |file "'x|lfio.c'"|
|00000370| 0a 66 69 0a 73 65 64 20 | 27 73 2f 5e 58 2f 2f 27 |.fi.sed |'s/^X//'|
|00000380| 20 3c 3c 20 5c 53 48 41 | 52 5f 45 4f 46 20 3e 20 | << \SHA|R_EOF > |
|00000390| 27 78 6c 66 69 6f 2e 63 | 27 0a 58 2f 2a 20 78 6c |'xlfio.c|'.X/* xl|
|000003a0| 66 69 6f 2e 63 20 2d 20 | 78 6c 69 73 70 20 66 69 |fio.c - |xlisp fi|
|000003b0| 6c 65 20 69 2f 6f 20 2a | 2f 0a 58 2f 2a 09 43 6f |le i/o *|/.X/*.Co|
|000003c0| 70 79 72 69 67 68 74 20 | 28 63 29 20 31 39 38 35 |pyright |(c) 1985|
|000003d0| 2c 20 62 79 20 44 61 76 | 69 64 20 4d 69 63 68 61 |, by Dav|id Micha|
|000003e0| 65 6c 20 42 65 74 7a 0a | 58 09 41 6c 6c 20 52 69 |el Betz.|X.All Ri|
|000003f0| 67 68 74 73 20 52 65 73 | 65 72 76 65 64 0a 58 09 |ghts Res|erved.X.|
|00000400| 50 65 72 6d 69 73 73 69 | 6f 6e 20 69 73 20 67 72 |Permissi|on is gr|
|00000410| 61 6e 74 65 64 20 66 6f | 72 20 75 6e 72 65 73 74 |anted fo|r unrest|
|00000420| 72 69 63 74 65 64 20 6e | 6f 6e 2d 63 6f 6d 6d 65 |ricted n|on-comme|
|00000430| 72 63 69 61 6c 20 75 73 | 65 09 2a 2f 0a 58 0a 58 |rcial us|e.*/.X.X|
|00000440| 23 69 6e 63 6c 75 64 65 | 20 22 78 6c 69 73 70 2e |#include| "xlisp.|
|00000450| 68 22 0a 58 0a 58 2f 2a | 20 65 78 74 65 72 6e 61 |h".X.X/*| externa|
|00000460| 6c 20 76 61 72 69 61 62 | 6c 65 73 20 2a 2f 0a 58 |l variab|les */.X|
|00000470| 65 78 74 65 72 6e 20 4c | 56 41 4c 20 6b 5f 64 69 |extern L|VAL k_di|
|00000480| 72 65 63 74 69 6f 6e 2c | 6b 5f 69 6e 70 75 74 2c |rection,|k_input,|
|00000490| 6b 5f 6f 75 74 70 75 74 | 3b 0a 58 65 78 74 65 72 |k_output|;.Xexter|
|000004a0| 6e 20 4c 56 41 4c 20 73 | 5f 73 74 64 69 6e 2c 73 |n LVAL s|_stdin,s|
|000004b0| 5f 73 74 64 6f 75 74 2c | 74 72 75 65 3b 0a 58 65 |_stdout,|true;.Xe|
|000004c0| 78 74 65 72 6e 20 75 6e | 73 69 67 6e 65 64 20 63 |xtern un|signed c|
|000004d0| 68 61 72 20 62 75 66 5b | 5d 3b 0a 58 65 78 74 65 |har buf[|];.Xexte|
|000004e0| 72 6e 20 69 6e 74 20 78 | 6c 66 73 69 7a 65 3b 0a |rn int x|lfsize;.|
|000004f0| 58 0a 58 2f 2a 20 65 78 | 74 65 72 6e 61 6c 20 72 |X.X/* ex|ternal r|
|00000500| 6f 75 74 69 6e 65 73 20 | 2a 2f 0a 58 65 78 74 65 |outines |*/.Xexte|
|00000510| 72 6e 20 46 49 4c 45 20 | 2a 6f 73 61 6f 70 65 6e |rn FILE |*osaopen|
|00000520| 28 29 3b 0a 58 0a 58 2f | 2a 20 66 6f 72 77 61 72 |();.X.X/|* forwar|
|00000530| 64 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 20 2a |d declar|ations *|
|00000540| 2f 0a 58 46 4f 52 57 41 | 52 44 20 4c 56 41 4c 20 |/.XFORWA|RD LVAL |
|00000550| 67 65 74 73 74 72 6f 75 | 74 70 75 74 28 29 3b 0a |getstrou|tput();.|
|00000560| 58 46 4f 52 57 41 52 44 | 20 4c 56 41 4c 20 70 72 |XFORWARD| LVAL pr|
|00000570| 69 6e 74 69 74 28 29 3b | 0a 58 46 4f 52 57 41 52 |intit();|.XFORWAR|
|00000580| 44 20 4c 56 41 4c 20 66 | 6c 61 74 73 69 7a 65 28 |D LVAL f|latsize(|
|00000590| 29 3b 0a 58 46 4f 52 57 | 41 52 44 20 4c 56 41 4c |);.XFORW|ARD LVAL|
|000005a0| 20 6f 70 65 6e 69 74 28 | 29 3b 0a 58 0a 58 2f 2a | openit(|);.X.X/*|
|000005b0| 20 78 72 65 61 64 20 2d | 20 72 65 61 64 20 61 6e | xread -| read an|
|000005c0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 2a 2f 0a 58 | express|ion */.X|
|000005d0| 4c 56 41 4c 20 78 72 65 | 61 64 28 29 0a 58 7b 0a |LVAL xre|ad().X{.|
|000005e0| 58 20 20 20 20 4c 56 41 | 4c 20 66 70 74 72 2c 65 |X    LVA|L fptr,e|
|000005f0| 6f 66 2c 72 66 6c 61 67 | 2c 76 61 6c 3b 0a 58 0a |of,rflag|,val;.X.|
|00000600| 58 20 20 20 20 2f 2a 20 | 67 65 74 20 66 69 6c 65 |X    /* |get file|
|00000610| 20 70 6f 69 6e 74 65 72 | 20 61 6e 64 20 65 6f 66 | pointer| and eof|
|00000620| 20 76 61 6c 75 65 20 2a | 2f 0a 58 20 20 20 20 66 | value *|/.X    f|
|00000630| 70 74 72 20 3d 20 28 6d | 6f 72 65 61 72 67 73 28 |ptr = (m|oreargs(|
|00000640| 29 20 3f 20 78 6c 67 65 | 74 66 69 6c 65 28 29 20 |) ? xlge|tfile() |
|00000650| 3a 20 67 65 74 76 61 6c | 75 65 28 73 5f 73 74 64 |: getval|ue(s_std|
|00000660| 69 6e 29 29 3b 0a 58 20 | 20 20 20 65 6f 66 20 3d |in));.X |   eof =|
|00000670| 20 28 6d 6f 72 65 61 72 | 67 73 28 29 20 3f 20 78 | (morear|gs() ? x|
|00000680| 6c 67 65 74 61 72 67 28 | 29 20 3a 20 4e 49 4c 29 |lgetarg(|) : NIL)|
|00000690| 3b 0a 58 20 20 20 20 72 | 66 6c 61 67 20 3d 20 28 |;.X    r|flag = (|
|000006a0| 6d 6f 72 65 61 72 67 73 | 28 29 20 3f 20 78 6c 67 |moreargs|() ? xlg|
|000006b0| 65 74 61 72 67 28 29 20 | 3a 20 4e 49 4c 29 3b 0a |etarg() |: NIL);.|
|000006c0| 58 20 20 20 20 78 6c 6c | 61 73 74 61 72 67 28 29 |X    xll|astarg()|
|000006d0| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 72 65 61 64 |;.X.X   | /* read|
|000006e0| 20 61 6e 20 65 78 70 72 | 65 73 73 69 6f 6e 20 2a | an expr|ession *|
|000006f0| 2f 0a 58 20 20 20 20 69 | 66 20 28 21 78 6c 72 65 |/.X    i|f (!xlre|
|00000700| 61 64 28 66 70 74 72 2c | 26 76 61 6c 2c 72 66 6c |ad(fptr,|&val,rfl|
|00000710| 61 67 20 21 3d 20 4e 49 | 4c 29 29 0a 58 09 76 61 |ag != NI|L)).X.va|
|00000720| 6c 20 3d 20 65 6f 66 3b | 0a 58 0a 58 20 20 20 20 |l = eof;|.X.X    |
|00000730| 2f 2a 20 72 65 74 75 72 | 6e 20 74 68 65 20 65 78 |/* retur|n the ex|
|00000740| 70 72 65 73 73 69 6f 6e | 20 2a 2f 0a 58 20 20 20 |pression| */.X   |
|00000750| 20 72 65 74 75 72 6e 20 | 28 76 61 6c 29 3b 0a 58 | return |(val);.X|
|00000760| 7d 0a 58 0a 58 2f 2a 20 | 78 70 72 69 6e 74 20 2d |}.X.X/* |xprint -|
|00000770| 20 62 75 69 6c 74 2d 69 | 6e 20 66 75 6e 63 74 69 | built-i|n functi|
|00000780| 6f 6e 20 27 70 72 69 6e | 74 27 20 2a 2f 0a 58 4c |on 'prin|t' */.XL|
|00000790| 56 41 4c 20 78 70 72 69 | 6e 74 28 29 0a 58 7b 0a |VAL xpri|nt().X{.|
|000007a0| 58 20 20 20 20 72 65 74 | 75 72 6e 20 28 70 72 69 |X    ret|urn (pri|
|000007b0| 6e 74 69 74 28 54 52 55 | 45 2c 54 52 55 45 29 29 |ntit(TRU|E,TRUE))|
|000007c0| 3b 0a 58 7d 0a 58 0a 58 | 2f 2a 20 78 70 72 69 6e |;.X}.X.X|/* xprin|
|000007d0| 31 20 2d 20 62 75 69 6c | 74 2d 69 6e 20 66 75 6e |1 - buil|t-in fun|
|000007e0| 63 74 69 6f 6e 20 27 70 | 72 69 6e 31 27 20 2a 2f |ction 'p|rin1' */|
|000007f0| 0a 58 4c 56 41 4c 20 78 | 70 72 69 6e 31 28 29 0a |.XLVAL x|prin1().|
|00000800| 58 7b 0a 58 20 20 20 20 | 72 65 74 75 72 6e 20 28 |X{.X    |return (|
|00000810| 70 72 69 6e 74 69 74 28 | 54 52 55 45 2c 46 41 4c |printit(|TRUE,FAL|
|00000820| 53 45 29 29 3b 0a 58 7d | 0a 58 0a 58 2f 2a 20 78 |SE));.X}|.X.X/* x|
|00000830| 70 72 69 6e 63 20 2d 20 | 62 75 69 6c 74 2d 69 6e |princ - |built-in|
|00000840| 20 66 75 6e 63 74 69 6f | 6e 20 70 72 69 6e 63 20 | functio|n princ |
|00000850| 2a 2f 0a 58 4c 56 41 4c | 20 78 70 72 69 6e 63 28 |*/.XLVAL| xprinc(|
|00000860| 29 0a 58 7b 0a 58 20 20 | 20 20 72 65 74 75 72 6e |).X{.X  |  return|
|00000870| 20 28 70 72 69 6e 74 69 | 74 28 46 41 4c 53 45 2c | (printi|t(FALSE,|
|00000880| 46 41 4c 53 45 29 29 3b | 0a 58 7d 0a 58 0a 58 2f |FALSE));|.X}.X.X/|
|00000890| 2a 20 78 74 65 72 70 72 | 69 20 2d 20 74 65 72 6d |* xterpr|i - term|
|000008a0| 69 6e 61 74 65 20 74 68 | 65 20 63 75 72 72 65 6e |inate th|e curren|
|000008b0| 74 20 70 72 69 6e 74 20 | 6c 69 6e 65 20 2a 2f 0a |t print |line */.|
|000008c0| 58 4c 56 41 4c 20 78 74 | 65 72 70 72 69 28 29 0a |XLVAL xt|erpri().|
|000008d0| 58 7b 0a 58 20 20 20 20 | 4c 56 41 4c 20 66 70 74 |X{.X    |LVAL fpt|
|000008e0| 72 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 20 67 65 74 |r;.X.X  |  /* get|
|000008f0| 20 66 69 6c 65 20 70 6f | 69 6e 74 65 72 20 2a 2f | file po|inter */|
|00000900| 0a 58 20 20 20 20 66 70 | 74 72 20 3d 20 28 6d 6f |.X    fp|tr = (mo|
|00000910| 72 65 61 72 67 73 28 29 | 20 3f 20 78 6c 67 65 74 |reargs()| ? xlget|
|00000920| 66 69 6c 65 28 29 20 3a | 20 67 65 74 76 61 6c 75 |file() :| getvalu|
|00000930| 65 28 73 5f 73 74 64 6f | 75 74 29 29 3b 0a 58 20 |e(s_stdo|ut));.X |
|00000940| 20 20 20 78 6c 6c 61 73 | 74 61 72 67 28 29 3b 0a |   xllas|targ();.|
|00000950| 58 0a 58 20 20 20 20 2f | 2a 20 74 65 72 6d 69 6e |X.X    /|* termin|
|00000960| 61 74 65 20 74 68 65 20 | 70 72 69 6e 74 20 6c 69 |ate the |print li|
|00000970| 6e 65 20 61 6e 64 20 72 | 65 74 75 72 6e 20 6e 69 |ne and r|eturn ni|
|00000980| 6c 20 2a 2f 0a 58 20 20 | 20 20 78 6c 74 65 72 70 |l */.X  |  xlterp|
|00000990| 72 69 28 66 70 74 72 29 | 3b 0a 58 20 20 20 20 72 |ri(fptr)|;.X    r|
|000009a0| 65 74 75 72 6e 20 28 4e | 49 4c 29 3b 0a 58 7d 0a |eturn (N|IL);.X}.|
|000009b0| 58 0a 58 2f 2a 20 70 72 | 69 6e 74 69 74 20 2d 20 |X.X/* pr|intit - |
|000009c0| 63 6f 6d 6d 6f 6e 20 70 | 72 69 6e 74 20 66 75 6e |common p|rint fun|
|000009d0| 63 74 69 6f 6e 20 2a 2f | 0a 58 4c 4f 43 41 4c 20 |ction */|.XLOCAL |
|000009e0| 4c 56 41 4c 20 70 72 69 | 6e 74 69 74 28 70 66 6c |LVAL pri|ntit(pfl|
|000009f0| 61 67 2c 74 66 6c 61 67 | 29 0a 58 20 20 69 6e 74 |ag,tflag|).X  int|
|00000a00| 20 70 66 6c 61 67 2c 74 | 66 6c 61 67 3b 0a 58 7b | pflag,t|flag;.X{|
|00000a10| 0a 58 20 20 20 20 4c 56 | 41 4c 20 66 70 74 72 2c |.X    LV|AL fptr,|
|00000a20| 76 61 6c 3b 0a 58 0a 58 | 20 20 20 20 2f 2a 20 67 |val;.X.X|    /* g|
|00000a30| 65 74 20 65 78 70 72 65 | 73 73 69 6f 6e 20 74 6f |et expre|ssion to|
|00000a40| 20 70 72 69 6e 74 20 61 | 6e 64 20 66 69 6c 65 20 | print a|nd file |
|00000a50| 70 6f 69 6e 74 65 72 20 | 2a 2f 0a 58 20 20 20 20 |pointer |*/.X    |
|00000a60| 76 61 6c 20 3d 20 78 6c | 67 65 74 61 72 67 28 29 |val = xl|getarg()|
|00000a70| 3b 0a 58 20 20 20 20 66 | 70 74 72 20 3d 20 28 6d |;.X    f|ptr = (m|
|00000a80| 6f 72 65 61 72 67 73 28 | 29 20 3f 20 78 6c 67 65 |oreargs(|) ? xlge|
|00000a90| 74 66 69 6c 65 28 29 20 | 3a 20 67 65 74 76 61 6c |tfile() |: getval|
|00000aa0| 75 65 28 73 5f 73 74 64 | 6f 75 74 29 29 3b 0a 58 |ue(s_std|out));.X|
|00000ab0| 20 20 20 20 78 6c 6c 61 | 73 74 61 72 67 28 29 3b |    xlla|starg();|
|00000ac0| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 70 72 69 6e 74 |.X.X    |/* print|
|00000ad0| 20 74 68 65 20 76 61 6c | 75 65 20 2a 2f 0a 58 20 | the val|ue */.X |
|00000ae0| 20 20 20 78 6c 70 72 69 | 6e 74 28 66 70 74 72 2c |   xlpri|nt(fptr,|
|00000af0| 76 61 6c 2c 70 66 6c 61 | 67 29 3b 0a 58 0a 58 20 |val,pfla|g);.X.X |
|00000b00| 20 20 20 2f 2a 20 74 65 | 72 6d 69 6e 61 74 65 20 |   /* te|rminate |
|00000b10| 74 68 65 20 70 72 69 6e | 74 20 6c 69 6e 65 20 69 |the prin|t line i|
|00000b20| 66 20 6e 65 63 65 73 73 | 61 72 79 20 2a 2f 0a 58 |f necess|ary */.X|
|00000b30| 20 20 20 20 69 66 20 28 | 74 66 6c 61 67 29 0a 58 |    if (|tflag).X|
|00000b40| 09 78 6c 74 65 72 70 72 | 69 28 66 70 74 72 29 3b |.xlterpr|i(fptr);|
|00000b50| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 72 65 74 75 72 |.X.X    |/* retur|
|00000b60| 6e 20 74 68 65 20 72 65 | 73 75 6c 74 20 2a 2f 0a |n the re|sult */.|
|00000b70| 58 20 20 20 20 72 65 74 | 75 72 6e 20 28 76 61 6c |X    ret|urn (val|
|00000b80| 29 3b 0a 58 7d 0a 58 0a | 58 2f 2a 20 78 66 6c 61 |);.X}.X.|X/* xfla|
|00000b90| 74 73 69 7a 65 20 2d 20 | 63 6f 6d 70 75 74 65 20 |tsize - |compute |
|00000ba0| 74 68 65 20 73 69 7a 65 | 20 6f 66 20 61 20 70 72 |the size| of a pr|
|00000bb0| 69 6e 74 65 64 20 72 65 | 70 72 65 73 65 6e 74 61 |inted re|presenta|
|00000bc0| 74 69 6f 6e 20 75 73 69 | 6e 67 20 70 72 69 6e 31 |tion usi|ng prin1|
|00000bd0| 20 2a 2f 0a 58 4c 56 41 | 4c 20 78 66 6c 61 74 73 | */.XLVA|L xflats|
|00000be0| 69 7a 65 28 29 0a 58 7b | 0a 58 20 20 20 20 72 65 |ize().X{|.X    re|
|00000bf0| 74 75 72 6e 20 28 66 6c | 61 74 73 69 7a 65 28 54 |turn (fl|atsize(T|
|00000c00| 52 55 45 29 29 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |RUE));.X|}.X.X/* |
|00000c10| 78 66 6c 61 74 63 20 2d | 20 63 6f 6d 70 75 74 65 |xflatc -| compute|
|00000c20| 20 74 68 65 20 73 69 7a | 65 20 6f 66 20 61 20 70 | the siz|e of a p|
|00000c30| 72 69 6e 74 65 64 20 72 | 65 70 72 65 73 65 6e 74 |rinted r|epresent|
|00000c40| 61 74 69 6f 6e 20 75 73 | 69 6e 67 20 70 72 69 6e |ation us|ing prin|
|00000c50| 63 20 2a 2f 0a 58 4c 56 | 41 4c 20 78 66 6c 61 74 |c */.XLV|AL xflat|
|00000c60| 63 28 29 0a 58 7b 0a 58 | 20 20 20 20 72 65 74 75 |c().X{.X|    retu|
|00000c70| 72 6e 20 28 66 6c 61 74 | 73 69 7a 65 28 46 41 4c |rn (flat|size(FAL|
|00000c80| 53 45 29 29 3b 0a 58 7d | 0a 58 0a 58 2f 2a 20 66 |SE));.X}|.X.X/* f|
|00000c90| 6c 61 74 73 69 7a 65 20 | 2d 20 63 6f 6d 70 75 74 |latsize |- comput|
|00000ca0| 65 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 61 20 |e the si|ze of a |
|00000cb0| 70 72 69 6e 74 65 64 20 | 65 78 70 72 65 73 73 69 |printed |expressi|
|00000cc0| 6f 6e 20 2a 2f 0a 58 4c | 4f 43 41 4c 20 4c 56 41 |on */.XL|OCAL LVA|
|00000cd0| 4c 20 66 6c 61 74 73 69 | 7a 65 28 70 66 6c 61 67 |L flatsi|ze(pflag|
|00000ce0| 29 0a 58 20 20 69 6e 74 | 20 70 66 6c 61 67 3b 0a |).X  int| pflag;.|
|00000cf0| 58 7b 0a 58 20 20 20 20 | 4c 56 41 4c 20 76 61 6c |X{.X    |LVAL val|
|00000d00| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 67 65 74 20 |;.X.X   | /* get |
|00000d10| 74 68 65 20 65 78 70 72 | 65 73 73 69 6f 6e 20 2a |the expr|ession *|
|00000d20| 2f 0a 58 20 20 20 20 76 | 61 6c 20 3d 20 78 6c 67 |/.X    v|al = xlg|
|00000d30| 65 74 61 72 67 28 29 3b | 0a 58 20 20 20 20 78 6c |etarg();|.X    xl|
|00000d40| 6c 61 73 74 61 72 67 28 | 29 3b 0a 58 0a 58 20 20 |lastarg(|);.X.X  |
|00000d50| 20 20 2f 2a 20 70 72 69 | 6e 74 20 74 68 65 20 76 |  /* pri|nt the v|
|00000d60| 61 6c 75 65 20 74 6f 20 | 63 6f 6d 70 75 74 65 20 |alue to |compute |
|00000d70| 69 74 73 20 73 69 7a 65 | 20 2a 2f 0a 58 20 20 20 |its size| */.X   |
|00000d80| 20 78 6c 66 73 69 7a 65 | 20 3d 20 30 3b 0a 58 20 | xlfsize| = 0;.X |
|00000d90| 20 20 20 78 6c 70 72 69 | 6e 74 28 4e 49 4c 2c 76 |   xlpri|nt(NIL,v|
|00000da0| 61 6c 2c 70 66 6c 61 67 | 29 3b 0a 58 0a 58 20 20 |al,pflag|);.X.X  |
|00000db0| 20 20 2f 2a 20 72 65 74 | 75 72 6e 20 74 68 65 20 |  /* ret|urn the |
|00000dc0| 6c 65 6e 67 74 68 20 6f | 66 20 74 68 65 20 65 78 |length o|f the ex|
|00000dd0| 70 72 65 73 73 69 6f 6e | 20 2a 2f 0a 58 20 20 20 |pression| */.X   |
|00000de0| 20 72 65 74 75 72 6e 20 | 28 63 76 66 69 78 6e 75 | return |(cvfixnu|
|00000df0| 6d 28 28 46 49 58 54 59 | 50 45 29 78 6c 66 73 69 |m((FIXTY|PE)xlfsi|
|00000e00| 7a 65 29 29 3b 0a 58 7d | 0a 58 0a 58 2f 2a 20 78 |ze));.X}|.X.X/* x|
|00000e10| 6f 70 65 6e 20 2d 20 6f | 70 65 6e 20 61 20 66 69 |open - o|pen a fi|
|00000e20| 6c 65 20 2a 2f 0a 58 4c | 56 41 4c 20 78 6f 70 65 |le */.XL|VAL xope|
|00000e30| 6e 28 29 0a 58 7b 0a 58 | 20 20 20 20 63 68 61 72 |n().X{.X|    char|
|00000e40| 20 2a 6e 61 6d 65 2c 2a | 6d 6f 64 65 3b 0a 58 20 | *name,*|mode;.X |
|00000e50| 20 20 20 46 49 4c 45 20 | 2a 66 70 3b 0a 58 20 20 |   FILE |*fp;.X  |
|00000e60| 20 20 4c 56 41 4c 20 64 | 69 72 3b 0a 58 0a 58 20 |  LVAL d|ir;.X.X |
|00000e70| 20 20 20 2f 2a 20 67 65 | 74 20 74 68 65 20 66 69 |   /* ge|t the fi|
|00000e80| 6c 65 20 6e 61 6d 65 20 | 61 6e 64 20 64 69 72 65 |le name |and dire|
|00000e90| 63 74 69 6f 6e 20 2a 2f | 0a 58 20 20 20 20 6e 61 |ction */|.X    na|
|00000ea0| 6d 65 20 3d 20 28 63 68 | 61 72 20 2a 29 67 65 74 |me = (ch|ar *)get|
|00000eb0| 73 74 72 69 6e 67 28 78 | 6c 67 65 74 66 6e 61 6d |string(x|lgetfnam|
|00000ec0| 65 28 29 29 3b 0a 58 20 | 20 20 20 69 66 20 28 21 |e());.X |   if (!|
|00000ed0| 78 6c 67 65 74 6b 65 79 | 61 72 67 28 6b 5f 64 69 |xlgetkey|arg(k_di|
|00000ee0| 72 65 63 74 69 6f 6e 2c | 26 64 69 72 29 29 0a 58 |rection,|&dir)).X|
|00000ef0| 09 64 69 72 20 3d 20 6b | 5f 69 6e 70 75 74 3b 0a |.dir = k|_input;.|
|00000f00| 58 0a 58 20 20 20 20 2f | 2a 20 67 65 74 20 74 68 |X.X    /|* get th|
|00000f10| 65 20 6d 6f 64 65 20 2a | 2f 0a 58 20 20 20 20 69 |e mode *|/.X    i|
|00000f20| 66 20 28 64 69 72 20 3d | 3d 20 6b 5f 69 6e 70 75 |f (dir =|= k_inpu|
|00000f30| 74 29 0a 58 09 6d 6f 64 | 65 20 3d 20 22 72 22 3b |t).X.mod|e = "r";|
|00000f40| 0a 58 20 20 20 20 65 6c | 73 65 20 69 66 20 28 64 |.X    el|se if (d|
|00000f50| 69 72 20 3d 3d 20 6b 5f | 6f 75 74 70 75 74 29 0a |ir == k_|output).|
|00000f60| 58 09 6d 6f 64 65 20 3d | 20 22 77 22 3b 0a 58 20 |X.mode =| "w";.X |
|00000f70| 20 20 20 65 6c 73 65 0a | 58 09 78 6c 65 72 72 6f |   else.|X.xlerro|
|00000f80| 72 28 22 62 61 64 20 64 | 69 72 65 63 74 69 6f 6e |r("bad d|irection|
|00000f90| 22 2c 64 69 72 29 3b 0a | 58 0a 58 20 20 20 20 2f |",dir);.|X.X    /|
|00000fa0| 2a 20 74 72 79 20 74 6f | 20 6f 70 65 6e 20 74 68 |* try to| open th|
|00000fb0| 65 20 66 69 6c 65 20 2a | 2f 0a 58 20 20 20 20 72 |e file *|/.X    r|
|00000fc0| 65 74 75 72 6e 20 28 28 | 66 70 20 3d 20 6f 73 61 |eturn ((|fp = osa|
|00000fd0| 6f 70 65 6e 28 6e 61 6d | 65 2c 6d 6f 64 65 29 29 |open(nam|e,mode))|
|00000fe0| 20 3f 20 63 76 66 69 6c | 65 28 66 70 29 20 3a 20 | ? cvfil|e(fp) : |
|00000ff0| 4e 49 4c 29 3b 0a 58 7d | 0a 58 0a 58 2f 2a 20 78 |NIL);.X}|.X.X/* x|
|00001000| 63 6c 6f 73 65 20 2d 20 | 63 6c 6f 73 65 20 61 20 |close - |close a |
|00001010| 66 69 6c 65 20 2a 2f 0a | 58 4c 56 41 4c 20 78 63 |file */.|XLVAL xc|
|00001020| 6c 6f 73 65 28 29 0a 58 | 7b 0a 58 20 20 20 20 4c |lose().X|{.X    L|
|00001030| 56 41 4c 20 66 70 74 72 | 3b 0a 58 0a 58 20 20 20 |VAL fptr|;.X.X   |
|00001040| 20 2f 2a 20 67 65 74 20 | 66 69 6c 65 20 70 6f 69 | /* get |file poi|
|00001050| 6e 74 65 72 20 2a 2f 0a | 58 20 20 20 20 66 70 74 |nter */.|X    fpt|
|00001060| 72 20 3d 20 78 6c 67 61 | 73 74 72 65 61 6d 28 29 |r = xlga|stream()|
|00001070| 3b 0a 58 20 20 20 20 78 | 6c 6c 61 73 74 61 72 67 |;.X    x|llastarg|
|00001080| 28 29 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 6d 61 |();.X.X |   /* ma|
|00001090| 6b 65 20 73 75 72 65 20 | 74 68 65 20 66 69 6c 65 |ke sure |the file|
|000010a0| 20 65 78 69 73 74 73 20 | 2a 2f 0a 58 20 20 20 20 | exists |*/.X    |
|000010b0| 69 66 20 28 67 65 74 66 | 69 6c 65 28 66 70 74 72 |if (getf|ile(fptr|
|000010c0| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 58 09 78 6c 66 |) == NUL|L).X.xlf|
|000010d0| 61 69 6c 28 22 66 69 6c | 65 20 6e 6f 74 20 6f 70 |ail("fil|e not op|
|000010e0| 65 6e 22 29 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |en");.X.|X    /* |
|000010f0| 63 6c 6f 73 65 20 74 68 | 65 20 66 69 6c 65 20 2a |close th|e file *|
|00001100| 2f 0a 58 20 20 20 20 6f | 73 63 6c 6f 73 65 28 67 |/.X    o|sclose(g|
|00001110| 65 74 66 69 6c 65 28 66 | 70 74 72 29 29 3b 0a 58 |etfile(f|ptr));.X|
|00001120| 20 20 20 20 73 65 74 66 | 69 6c 65 28 66 70 74 72 |    setf|ile(fptr|
|00001130| 2c 4e 55 4c 4c 29 3b 0a | 58 0a 58 20 20 20 20 2f |,NULL);.|X.X    /|
|00001140| 2a 20 72 65 74 75 72 6e | 20 6e 69 6c 20 2a 2f 0a |* return| nil */.|
|00001150| 58 20 20 20 20 72 65 74 | 75 72 6e 20 28 4e 49 4c |X    ret|urn (NIL|
|00001160| 29 3b 0a 58 7d 0a 58 0a | 58 2f 2a 20 78 72 64 63 |);.X}.X.|X/* xrdc|
|00001170| 68 61 72 20 2d 20 72 65 | 61 64 20 61 20 63 68 61 |har - re|ad a cha|
|00001180| 72 61 63 74 65 72 20 66 | 72 6f 6d 20 61 20 66 69 |racter f|rom a fi|
|00001190| 6c 65 20 2a 2f 0a 58 4c | 56 41 4c 20 78 72 64 63 |le */.XL|VAL xrdc|
|000011a0| 68 61 72 28 29 0a 58 7b | 0a 58 20 20 20 20 4c 56 |har().X{|.X    LV|
|000011b0| 41 4c 20 66 70 74 72 3b | 0a 58 20 20 20 20 69 6e |AL fptr;|.X    in|
|000011c0| 74 20 63 68 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |t ch;.X.|X    /* |
|000011d0| 67 65 74 20 66 69 6c 65 | 20 70 6f 69 6e 74 65 72 |get file| pointer|
|000011e0| 20 2a 2f 0a 58 20 20 20 | 20 66 70 74 72 20 3d 20 | */.X   | fptr = |
|000011f0| 28 6d 6f 72 65 61 72 67 | 73 28 29 20 3f 20 78 6c |(morearg|s() ? xl|
|00001200| 67 65 74 66 69 6c 65 28 | 29 20 3a 20 67 65 74 76 |getfile(|) : getv|
|00001210| 61 6c 75 65 28 73 5f 73 | 74 64 69 6e 29 29 3b 0a |alue(s_s|tdin));.|
|00001220| 58 20 20 20 20 78 6c 6c | 61 73 74 61 72 67 28 29 |X    xll|astarg()|
|00001230| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 67 65 74 20 |;.X.X   | /* get |
|00001240| 63 68 61 72 61 63 74 65 | 72 20 61 6e 64 20 63 68 |characte|r and ch|
|00001250| 65 63 6b 20 66 6f 72 20 | 65 6f 66 20 2a 2f 0a 58 |eck for |eof */.X|
|00001260| 20 20 20 20 72 65 74 75 | 72 6e 20 28 28 63 68 20 |    retu|rn ((ch |
|00001270| 3d 20 78 6c 67 65 74 63 | 28 66 70 74 72 29 29 20 |= xlgetc|(fptr)) |
|00001280| 3d 3d 20 45 4f 46 20 3f | 20 4e 49 4c 20 3a 20 63 |== EOF ?| NIL : c|
|00001290| 76 63 68 61 72 28 63 68 | 29 29 3b 0a 58 7d 0a 58 |vchar(ch|));.X}.X|
|000012a0| 0a 58 2f 2a 20 78 72 64 | 62 79 74 65 20 2d 20 72 |.X/* xrd|byte - r|
|000012b0| 65 61 64 20 61 20 62 79 | 74 65 20 66 72 6f 6d 20 |ead a by|te from |
|000012c0| 61 20 66 69 6c 65 20 2a | 2f 0a 58 4c 56 41 4c 20 |a file *|/.XLVAL |
|000012d0| 78 72 64 62 79 74 65 28 | 29 0a 58 7b 0a 58 20 20 |xrdbyte(|).X{.X  |
|000012e0| 20 20 4c 56 41 4c 20 66 | 70 74 72 3b 0a 58 20 20 |  LVAL f|ptr;.X  |
|000012f0| 20 20 69 6e 74 20 63 68 | 3b 0a 58 0a 58 20 20 20 |  int ch|;.X.X   |
|00001300| 20 2f 2a 20 67 65 74 20 | 66 69 6c 65 20 70 6f 69 | /* get |file poi|
|00001310| 6e 74 65 72 20 2a 2f 0a | 58 20 20 20 20 66 70 74 |nter */.|X    fpt|
|00001320| 72 20 3d 20 28 6d 6f 72 | 65 61 72 67 73 28 29 20 |r = (mor|eargs() |
|00001330| 3f 20 78 6c 67 65 74 66 | 69 6c 65 28 29 20 3a 20 |? xlgetf|ile() : |
|00001340| 67 65 74 76 61 6c 75 65 | 28 73 5f 73 74 64 69 6e |getvalue|(s_stdin|
|00001350| 29 29 3b 0a 58 20 20 20 | 20 78 6c 6c 61 73 74 61 |));.X   | xllasta|
|00001360| 72 67 28 29 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |rg();.X.|X    /* |
|00001370| 67 65 74 20 63 68 61 72 | 61 63 74 65 72 20 61 6e |get char|acter an|
|00001380| 64 20 63 68 65 63 6b 20 | 66 6f 72 20 65 6f 66 20 |d check |for eof |
|00001390| 2a 2f 0a 58 20 20 20 20 | 72 65 74 75 72 6e 20 28 |*/.X    |return (|
|000013a0| 28 63 68 20 3d 20 78 6c | 67 65 74 63 28 66 70 74 |(ch = xl|getc(fpt|
|000013b0| 72 29 29 20 3d 3d 20 45 | 4f 46 20 3f 20 4e 49 4c |r)) == E|OF ? NIL|
|000013c0| 20 3a 20 63 76 66 69 78 | 6e 75 6d 28 28 46 49 58 | : cvfix|num((FIX|
|000013d0| 54 59 50 45 29 63 68 29 | 29 3b 0a 58 7d 0a 58 0a |TYPE)ch)|);.X}.X.|
|000013e0| 58 2f 2a 20 78 70 6b 63 | 68 61 72 20 2d 20 70 65 |X/* xpkc|har - pe|
|000013f0| 65 6b 20 61 74 20 61 20 | 63 68 61 72 61 63 74 65 |ek at a |characte|
|00001400| 72 20 66 72 6f 6d 20 61 | 20 66 69 6c 65 20 2a 2f |r from a| file */|
|00001410| 0a 58 4c 56 41 4c 20 78 | 70 6b 63 68 61 72 28 29 |.XLVAL x|pkchar()|
|00001420| 0a 58 7b 0a 58 20 20 20 | 20 4c 56 41 4c 20 66 6c |.X{.X   | LVAL fl|
|00001430| 61 67 2c 66 70 74 72 3b | 0a 58 20 20 20 20 69 6e |ag,fptr;|.X    in|
|00001440| 74 20 63 68 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |t ch;.X.|X    /* |
|00001450| 70 65 65 6b 20 66 6c 61 | 67 20 61 6e 64 20 67 65 |peek fla|g and ge|
|00001460| 74 20 66 69 6c 65 20 70 | 6f 69 6e 74 65 72 20 2a |t file p|ointer *|
|00001470| 2f 0a 58 20 20 20 20 66 | 6c 61 67 20 3d 20 28 6d |/.X    f|lag = (m|
|00001480| 6f 72 65 61 72 67 73 28 | 29 20 3f 20 78 6c 67 65 |oreargs(|) ? xlge|
|00001490| 74 61 72 67 28 29 20 3a | 20 4e 49 4c 29 3b 0a 58 |targ() :| NIL);.X|
|000014a0| 20 20 20 20 66 70 74 72 | 20 3d 20 28 6d 6f 72 65 |    fptr| = (more|
|000014b0| 61 72 67 73 28 29 20 3f | 20 78 6c 67 65 74 66 69 |args() ?| xlgetfi|
|000014c0| 6c 65 28 29 20 3a 20 67 | 65 74 76 61 6c 75 65 28 |le() : g|etvalue(|
|000014d0| 73 5f 73 74 64 69 6e 29 | 29 3b 0a 58 20 20 20 20 |s_stdin)|);.X    |
|000014e0| 78 6c 6c 61 73 74 61 72 | 67 28 29 3b 0a 58 0a 58 |xllastar|g();.X.X|
|000014f0| 20 20 20 20 2f 2a 20 73 | 6b 69 70 20 6c 65 61 64 |    /* s|kip lead|
|00001500| 69 6e 67 20 77 68 69 74 | 65 20 73 70 61 63 65 20 |ing whit|e space |
|00001510| 61 6e 64 20 67 65 74 20 | 61 20 63 68 61 72 61 63 |and get |a charac|
|00001520| 74 65 72 20 2a 2f 0a 58 | 20 20 20 20 69 66 20 28 |ter */.X|    if (|
|00001530| 66 6c 61 67 29 0a 58 09 | 77 68 69 6c 65 20 28 28 |flag).X.|while ((|
|00001540| 63 68 20 3d 20 78 6c 70 | 65 65 6b 28 66 70 74 72 |ch = xlp|eek(fptr|
|00001550| 29 29 20 21 3d 20 45 4f | 46 20 26 26 20 69 73 73 |)) != EO|F && iss|
|00001560| 70 61 63 65 28 63 68 29 | 29 0a 58 09 20 20 20 20 |pace(ch)|).X.    |
|00001570| 78 6c 67 65 74 63 28 66 | 70 74 72 29 3b 0a 58 20 |xlgetc(f|ptr);.X |
|00001580| 20 20 20 65 6c 73 65 0a | 58 09 63 68 20 3d 20 78 |   else.|X.ch = x|
|00001590| 6c 70 65 65 6b 28 66 70 | 74 72 29 3b 0a 58 0a 58 |lpeek(fp|tr);.X.X|
|000015a0| 20 20 20 20 2f 2a 20 72 | 65 74 75 72 6e 20 74 68 |    /* r|eturn th|
|000015b0| 65 20 63 68 61 72 61 63 | 74 65 72 20 2a 2f 0a 58 |e charac|ter */.X|
|000015c0| 20 20 20 20 72 65 74 75 | 72 6e 20 28 63 68 20 3d |    retu|rn (ch =|
|000015d0| 3d 20 45 4f 46 20 3f 20 | 4e 49 4c 20 3a 20 63 76 |= EOF ? |NIL : cv|
|000015e0| 63 68 61 72 28 63 68 29 | 29 3b 0a 58 7d 0a 58 0a |char(ch)|);.X}.X.|
|000015f0| 58 2f 2a 20 78 77 72 63 | 68 61 72 20 2d 20 77 72 |X/* xwrc|har - wr|
|00001600| 69 74 65 20 61 20 63 68 | 61 72 61 63 74 65 72 20 |ite a ch|aracter |
|00001610| 74 6f 20 61 20 66 69 6c | 65 20 2a 2f 0a 58 4c 56 |to a fil|e */.XLV|
|00001620| 41 4c 20 78 77 72 63 68 | 61 72 28 29 0a 58 7b 0a |AL xwrch|ar().X{.|
|00001630| 58 20 20 20 20 4c 56 41 | 4c 20 66 70 74 72 2c 63 |X    LVA|L fptr,c|
|00001640| 68 72 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 67 65 |hr;.X.X |   /* ge|
|00001650| 74 20 74 68 65 20 63 68 | 61 72 61 63 74 65 72 20 |t the ch|aracter |
|00001660| 61 6e 64 20 66 69 6c 65 | 20 70 6f 69 6e 74 65 72 |and file| pointer|
|00001670| 20 2a 2f 0a 58 20 20 20 | 20 63 68 72 20 3d 20 78 | */.X   | chr = x|
|00001680| 6c 67 61 63 68 61 72 28 | 29 3b 0a 58 20 20 20 20 |lgachar(|);.X    |
|00001690| 66 70 74 72 20 3d 20 28 | 6d 6f 72 65 61 72 67 73 |fptr = (|moreargs|
|000016a0| 28 29 20 3f 20 78 6c 67 | 65 74 66 69 6c 65 28 29 |() ? xlg|etfile()|
|000016b0| 20 3a 20 67 65 74 76 61 | 6c 75 65 28 73 5f 73 74 | : getva|lue(s_st|
|000016c0| 64 6f 75 74 29 29 3b 0a | 58 20 20 20 20 78 6c 6c |dout));.|X    xll|
|000016d0| 61 73 74 61 72 67 28 29 | 3b 0a 58 0a 58 20 20 20 |astarg()|;.X.X   |
|000016e0| 20 2f 2a 20 70 75 74 20 | 63 68 61 72 61 63 74 65 | /* put |characte|
|000016f0| 72 20 74 6f 20 74 68 65 | 20 66 69 6c 65 20 2a 2f |r to the| file */|
|00001700| 0a 58 20 20 20 20 78 6c | 70 75 74 63 28 66 70 74 |.X    xl|putc(fpt|
|00001710| 72 2c 67 65 74 63 68 63 | 6f 64 65 28 63 68 72 29 |r,getchc|ode(chr)|
|00001720| 29 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 20 72 65 74 |);.X.X  |  /* ret|
|00001730| 75 72 6e 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |urn the |characte|
|00001740| 72 20 2a 2f 0a 58 20 20 | 20 20 72 65 74 75 72 6e |r */.X  |  return|
|00001750| 20 28 63 68 72 29 3b 0a | 58 7d 0a 58 0a 58 2f 2a | (chr);.|X}.X.X/*|
|00001760| 20 78 77 72 62 79 74 65 | 20 2d 20 77 72 69 74 65 | xwrbyte| - write|
|00001770| 20 61 20 62 79 74 65 20 | 74 6f 20 61 20 66 69 6c | a byte |to a fil|
|00001780| 65 20 2a 2f 0a 58 4c 56 | 41 4c 20 78 77 72 62 79 |e */.XLV|AL xwrby|
|00001790| 74 65 28 29 0a 58 7b 0a | 58 20 20 20 20 4c 56 41 |te().X{.|X    LVA|
|000017a0| 4c 20 66 70 74 72 2c 63 | 68 72 3b 0a 58 0a 58 20 |L fptr,c|hr;.X.X |
|000017b0| 20 20 20 2f 2a 20 67 65 | 74 20 74 68 65 20 62 79 |   /* ge|t the by|
|000017c0| 74 65 20 61 6e 64 20 66 | 69 6c 65 20 70 6f 69 6e |te and f|ile poin|
|000017d0| 74 65 72 20 2a 2f 0a 58 | 20 20 20 20 63 68 72 20 |ter */.X|    chr |
|000017e0| 3d 20 78 6c 67 61 66 69 | 78 6e 75 6d 28 29 3b 0a |= xlgafi|xnum();.|
|000017f0| 58 20 20 20 20 66 70 74 | 72 20 3d 20 28 6d 6f 72 |X    fpt|r = (mor|
|00001800| 65 61 72 67 73 28 29 20 | 3f 20 78 6c 67 65 74 66 |eargs() |? xlgetf|
|00001810| 69 6c 65 28 29 20 3a 20 | 67 65 74 76 61 6c 75 65 |ile() : |getvalue|
|00001820| 28 73 5f 73 74 64 6f 75 | 74 29 29 3b 0a 58 20 20 |(s_stdou|t));.X  |
|00001830| 20 20 78 6c 6c 61 73 74 | 61 72 67 28 29 3b 0a 58 |  xllast|arg();.X|
|00001840| 0a 58 20 20 20 20 2f 2a | 20 70 75 74 20 62 79 74 |.X    /*| put byt|
|00001850| 65 20 74 6f 20 74 68 65 | 20 66 69 6c 65 20 2a 2f |e to the| file */|
|00001860| 0a 58 20 20 20 20 78 6c | 70 75 74 63 28 66 70 74 |.X    xl|putc(fpt|
|00001870| 72 2c 28 69 6e 74 29 67 | 65 74 66 69 78 6e 75 6d |r,(int)g|etfixnum|
|00001880| 28 63 68 72 29 29 3b 0a | 58 0a 58 20 20 20 20 2f |(chr));.|X.X    /|
|00001890| 2a 20 72 65 74 75 72 6e | 20 74 68 65 20 63 68 61 |* return| the cha|
|000018a0| 72 61 63 74 65 72 20 2a | 2f 0a 58 20 20 20 20 72 |racter *|/.X    r|
|000018b0| 65 74 75 72 6e 20 28 63 | 68 72 29 3b 0a 58 7d 0a |eturn (c|hr);.X}.|
|000018c0| 58 0a 58 2f 2a 20 78 72 | 65 61 64 6c 69 6e 65 20 |X.X/* xr|eadline |
|000018d0| 2d 20 72 65 61 64 20 61 | 20 6c 69 6e 65 20 66 72 |- read a| line fr|
|000018e0| 6f 6d 20 61 20 66 69 6c | 65 20 2a 2f 0a 58 4c 56 |om a fil|e */.XLV|
|000018f0| 41 4c 20 78 72 65 61 64 | 6c 69 6e 65 28 29 0a 58 |AL xread|line().X|
|00001900| 7b 0a 58 20 20 20 20 75 | 6e 73 69 67 6e 65 64 20 |{.X    u|nsigned |
|00001910| 63 68 61 72 20 62 75 66 | 5b 53 54 52 4d 41 58 2b |char buf|[STRMAX+|
|00001920| 31 5d 2c 2a 70 2c 2a 73 | 70 74 72 3b 0a 58 20 20 |1],*p,*s|ptr;.X  |
|00001930| 20 20 4c 56 41 4c 20 66 | 70 74 72 2c 73 74 72 2c |  LVAL f|ptr,str,|
|00001940| 6e 65 77 73 74 72 3b 0a | 58 20 20 20 20 69 6e 74 |newstr;.|X    int|
|00001950| 20 6c 65 6e 2c 62 6c 65 | 6e 2c 63 68 3b 0a 58 0a | len,ble|n,ch;.X.|
|00001960| 58 20 20 20 20 2f 2a 20 | 70 72 6f 74 65 63 74 20 |X    /* |protect |
|00001970| 73 6f 6d 65 20 70 6f 69 | 6e 74 65 72 73 20 2a 2f |some poi|nters */|
|00001980| 0a 58 20 20 20 20 78 6c | 73 61 76 65 31 28 73 74 |.X    xl|save1(st|
|00001990| 72 29 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 67 65 |r);.X.X |   /* ge|
|000019a0| 74 20 66 69 6c 65 20 70 | 6f 69 6e 74 65 72 20 2a |t file p|ointer *|
|000019b0| 2f 0a 58 20 20 20 20 66 | 70 74 72 20 3d 20 28 6d |/.X    f|ptr = (m|
|000019c0| 6f 72 65 61 72 67 73 28 | 29 20 3f 20 78 6c 67 65 |oreargs(|) ? xlge|
|000019d0| 74 66 69 6c 65 28 29 20 | 3a 20 67 65 74 76 61 6c |tfile() |: getval|
|000019e0| 75 65 28 73 5f 73 74 64 | 69 6e 29 29 3b 0a 58 20 |ue(s_std|in));.X |
|000019f0| 20 20 20 78 6c 6c 61 73 | 74 61 72 67 28 29 3b 0a |   xllas|targ();.|
|00001a00| 58 0a 58 20 20 20 20 2f | 2a 20 67 65 74 20 63 68 |X.X    /|* get ch|
|00001a10| 61 72 61 63 74 65 72 20 | 61 6e 64 20 63 68 65 63 |aracter |and chec|
|00001a20| 6b 20 66 6f 72 20 65 6f | 66 20 2a 2f 0a 58 20 20 |k for eo|f */.X  |
|00001a30| 20 20 6c 65 6e 20 3d 20 | 62 6c 65 6e 20 3d 20 30 |  len = |blen = 0|
|00001a40| 3b 20 70 20 3d 20 62 75 | 66 3b 0a 58 20 20 20 20 |; p = bu|f;.X    |
|00001a50| 77 68 69 6c 65 20 28 28 | 63 68 20 3d 20 78 6c 67 |while ((|ch = xlg|
|00001a60| 65 74 63 28 66 70 74 72 | 29 29 20 21 3d 20 45 4f |etc(fptr|)) != EO|
|00001a70| 46 20 26 26 20 63 68 20 | 21 3d 20 27 5c 6e 27 29 |F && ch |!= '\n')|
|00001a80| 20 7b 0a 58 0a 58 09 2f | 2a 20 63 68 65 63 6b 20 | {.X.X./|* check |
|00001a90| 66 6f 72 20 62 75 66 66 | 65 72 20 6f 76 65 72 66 |for buff|er overf|
|00001aa0| 6c 6f 77 20 2a 2f 0a 58 | 09 69 66 20 28 62 6c 65 |low */.X|.if (ble|
|00001ab0| 6e 20 3e 3d 20 53 54 52 | 4d 41 58 29 20 7b 0a 58 |n >= STR|MAX) {.X|
|00001ac0| 20 09 20 20 20 20 6e 65 | 77 73 74 72 20 3d 20 6e | .    ne|wstr = n|
|00001ad0| 65 77 73 74 72 69 6e 67 | 28 6c 65 6e 20 2b 20 53 |ewstring|(len + S|
|00001ae0| 54 52 4d 41 58 20 2b 20 | 31 29 3b 0a 58 09 20 20 |TRMAX + |1);.X.  |
|00001af0| 20 20 73 70 74 72 20 3d | 20 67 65 74 73 74 72 69 |  sptr =| getstri|
|00001b00| 6e 67 28 6e 65 77 73 74 | 72 29 3b 20 2a 73 70 74 |ng(newst|r); *spt|
|00001b10| 72 20 3d 20 27 5c 30 27 | 3b 0a 58 09 20 20 20 20 |r = '\0'|;.X.    |
|00001b20| 69 66 20 28 73 74 72 29 | 20 73 74 72 63 61 74 28 |if (str)| strcat(|
|00001b30| 73 70 74 72 2c 67 65 74 | 73 74 72 69 6e 67 28 73 |sptr,get|string(s|
|00001b40| 74 72 29 29 3b 0a 58 09 | 20 20 20 20 2a 70 20 3d |tr));.X.|    *p =|
|00001b50| 20 27 5c 30 27 3b 20 73 | 74 72 63 61 74 28 73 70 | '\0'; s|trcat(sp|
|00001b60| 74 72 2c 62 75 66 29 3b | 0a 58 09 20 20 20 20 70 |tr,buf);|.X.    p|
|00001b70| 20 3d 20 62 75 66 3b 20 | 62 6c 65 6e 20 3d 20 30 | = buf; |blen = 0|
|00001b80| 3b 0a 58 09 20 20 20 20 | 6c 65 6e 20 2b 3d 20 53 |;.X.    |len += S|
|00001b90| 54 52 4d 41 58 3b 0a 58 | 09 20 20 20 20 73 74 72 |TRMAX;.X|.    str|
|00001ba0| 20 3d 20 6e 65 77 73 74 | 72 3b 0a 58 09 7d 0a 58 | = newst|r;.X.}.X|
|00001bb0| 0a 58 09 2f 2a 20 73 74 | 6f 72 65 20 74 68 65 20 |.X./* st|ore the |
|00001bc0| 63 68 61 72 61 63 74 65 | 72 20 2a 2f 0a 58 09 2a |characte|r */.X.*|
|00001bd0| 70 2b 2b 20 3d 20 63 68 | 3b 20 2b 2b 62 6c 65 6e |p++ = ch|; ++blen|
|00001be0| 3b 0a 58 20 20 20 20 7d | 0a 58 0a 58 20 20 20 20 |;.X    }|.X.X    |
|00001bf0| 2f 2a 20 63 68 65 63 6b | 20 66 6f 72 20 65 6e 64 |/* check| for end|
|00001c00| 20 6f 66 20 66 69 6c 65 | 20 2a 2f 0a 58 20 20 20 | of file| */.X   |
|00001c10| 20 69 66 20 28 6c 65 6e | 20 3d 3d 20 30 20 26 26 | if (len| == 0 &&|
|00001c20| 20 70 20 3d 3d 20 62 75 | 66 20 26 26 20 63 68 20 | p == bu|f && ch |
|00001c30| 3d 3d 20 45 4f 46 29 20 | 7b 0a 58 09 78 6c 70 6f |== EOF) |{.X.xlpo|
|00001c40| 70 28 29 3b 0a 58 09 72 | 65 74 75 72 6e 20 28 4e |p();.X.r|eturn (N|
|00001c50| 49 4c 29 3b 0a 58 20 20 | 20 20 7d 0a 58 0a 58 20 |IL);.X  |  }.X.X |
|00001c60| 20 20 20 2f 2a 20 61 70 | 70 65 6e 64 20 74 68 65 |   /* ap|pend the|
|00001c70| 20 6c 61 73 74 20 73 75 | 62 73 74 72 69 6e 67 20 | last su|bstring |
|00001c80| 2a 2f 0a 58 20 20 20 20 | 69 66 20 28 73 74 72 20 |*/.X    |if (str |
|00001c90| 3d 3d 20 4e 49 4c 20 7c | 7c 20 62 6c 65 6e 29 20 |== NIL ||| blen) |
|00001ca0| 7b 0a 58 09 6e 65 77 73 | 74 72 20 3d 20 6e 65 77 |{.X.news|tr = new|
|00001cb0| 73 74 72 69 6e 67 28 6c | 65 6e 20 2b 20 62 6c 65 |string(l|en + ble|
|00001cc0| 6e 20 2b 20 31 29 3b 0a | 58 09 73 70 74 72 20 3d |n + 1);.|X.sptr =|
|00001cd0| 20 67 65 74 73 74 72 69 | 6e 67 28 6e 65 77 73 74 | getstri|ng(newst|
|00001ce0| 72 29 3b 20 2a 73 70 74 | 72 20 3d 20 27 5c 30 27 |r); *spt|r = '\0'|
|00001cf0| 3b 0a 58 09 69 66 20 28 | 73 74 72 29 20 73 74 72 |;.X.if (|str) str|
|00001d00| 63 61 74 28 73 70 74 72 | 2c 67 65 74 73 74 72 69 |cat(sptr|,getstri|
|00001d10| 6e 67 28 73 74 72 29 29 | 3b 0a 58 09 2a 70 20 3d |ng(str))|;.X.*p =|
|00001d20| 20 27 5c 30 27 3b 20 73 | 74 72 63 61 74 28 73 70 | '\0'; s|trcat(sp|
|00001d30| 74 72 2c 62 75 66 29 3b | 0a 58 09 73 74 72 20 3d |tr,buf);|.X.str =|
|00001d40| 20 6e 65 77 73 74 72 3b | 0a 58 20 20 20 20 7d 0a | newstr;|.X    }.|
|00001d50| 58 0a 58 20 20 20 20 2f | 2a 20 72 65 73 74 6f 72 |X.X    /|* restor|
|00001d60| 65 20 74 68 65 20 73 74 | 61 63 6b 20 2a 2f 0a 58 |e the st|ack */.X|
|00001d70| 20 20 20 20 78 6c 70 6f | 70 28 29 3b 0a 58 0a 58 |    xlpo|p();.X.X|
|00001d80| 20 20 20 20 2f 2a 20 72 | 65 74 75 72 6e 20 74 68 |    /* r|eturn th|
|00001d90| 65 20 73 74 72 69 6e 67 | 20 2a 2f 0a 58 20 20 20 |e string| */.X   |
|00001da0| 20 72 65 74 75 72 6e 20 | 28 73 74 72 29 3b 0a 58 | return |(str);.X|
|00001db0| 7d 0a 58 0a 58 0a 58 2f | 2a 20 78 6d 6b 73 74 72 |}.X.X.X/|* xmkstr|
|00001dc0| 69 6e 70 75 74 20 2d 20 | 6d 61 6b 65 20 61 20 73 |input - |make a s|
|00001dd0| 74 72 69 6e 67 20 69 6e | 70 75 74 20 73 74 72 65 |tring in|put stre|
|00001de0| 61 6d 20 2a 2f 0a 58 4c | 56 41 4c 20 78 6d 6b 73 |am */.XL|VAL xmks|
|00001df0| 74 72 69 6e 70 75 74 28 | 29 0a 58 7b 0a 58 20 20 |trinput(|).X{.X  |
|00001e00| 20 20 69 6e 74 20 73 74 | 61 72 74 2c 65 6e 64 2c |  int st|art,end,|
|00001e10| 6c 65 6e 2c 69 3b 0a 58 | 20 20 20 20 75 6e 73 69 |len,i;.X|    unsi|
|00001e20| 67 6e 65 64 20 63 68 61 | 72 20 2a 73 74 72 3b 0a |gned cha|r *str;.|
|00001e30| 58 20 20 20 20 4c 56 41 | 4c 20 73 74 72 69 6e 67 |X    LVA|L string|
|00001e40| 2c 76 61 6c 3b 0a 58 0a | 58 20 20 20 20 2f 2a 20 |,val;.X.|X    /* |
|00001e50| 70 72 6f 74 65 63 74 20 | 74 68 65 20 72 65 74 75 |protect |the retu|
|00001e60| 72 6e 20 76 61 6c 75 65 | 20 2a 2f 0a 58 20 20 20 |rn value| */.X   |
|00001e70| 20 78 6c 73 61 76 65 31 | 28 76 61 6c 29 3b 0a 58 | xlsave1|(val);.X|
|00001e80| 20 20 20 20 0a 58 20 20 | 20 20 2f 2a 20 67 65 74 |    .X  |  /* get|
|00001e90| 20 74 68 65 20 73 74 72 | 69 6e 67 20 61 6e 64 20 | the str|ing and |
|00001ea0| 6c 65 6e 67 74 68 20 2a | 2f 0a 58 20 20 20 20 73 |length *|/.X    s|
|00001eb0| 74 72 69 6e 67 20 3d 20 | 78 6c 67 61 73 74 72 69 |tring = |xlgastri|
|00001ec0| 6e 67 28 29 3b 0a 58 20 | 20 20 20 73 74 72 20 3d |ng();.X |   str =|
|00001ed0| 20 67 65 74 73 74 72 69 | 6e 67 28 73 74 72 69 6e | getstri|ng(strin|
|00001ee0| 67 29 3b 0a 58 20 20 20 | 20 6c 65 6e 20 3d 20 67 |g);.X   | len = g|
|00001ef0| 65 74 73 6c 65 6e 67 74 | 68 28 73 74 72 69 6e 67 |etslengt|h(string|
|00001f00| 29 20 2d 20 31 3b 0a 58 | 0a 58 20 20 20 20 2f 2a |) - 1;.X|.X    /*|
|00001f10| 20 67 65 74 20 74 68 65 | 20 73 74 61 72 74 69 6e | get the| startin|
|00001f20| 67 20 6f 66 66 73 65 74 | 20 2a 2f 0a 58 20 20 20 |g offset| */.X   |
|00001f30| 20 69 66 20 28 6d 6f 72 | 65 61 72 67 73 28 29 29 | if (mor|eargs())|
|00001f40| 20 7b 0a 58 09 76 61 6c | 20 3d 20 78 6c 67 61 66 | {.X.val| = xlgaf|
|00001f50| 69 78 6e 75 6d 28 29 3b | 0a 58 09 73 74 61 72 74 |ixnum();|.X.start|
|00001f60| 20 3d 20 28 69 6e 74 29 | 67 65 74 66 69 78 6e 75 | = (int)|getfixnu|
|00001f70| 6d 28 76 61 6c 29 3b 0a | 58 20 20 20 20 7d 0a 58 |m(val);.|X    }.X|
|00001f80| 20 20 20 20 65 6c 73 65 | 20 73 74 61 72 74 20 3d |    else| start =|
|00001f90| 20 30 3b 0a 58 0a 58 20 | 20 20 20 2f 2a 20 67 65 | 0;.X.X |   /* ge|
|00001fa0| 74 20 74 68 65 20 65 6e | 64 69 6e 67 20 6f 66 66 |t the en|ding off|
|00001fb0| 73 65 74 20 2a 2f 0a 58 | 20 20 20 20 69 66 20 28 |set */.X|    if (|
|00001fc0| 6d 6f 72 65 61 72 67 73 | 28 29 29 20 7b 0a 58 09 |moreargs|()) {.X.|
|00001fd0| 76 61 6c 20 3d 20 78 6c | 67 61 66 69 78 6e 75 6d |val = xl|gafixnum|
|00001fe0| 28 29 3b 0a 58 09 65 6e | 64 20 3d 20 28 69 6e 74 |();.X.en|d = (int|
|00001ff0| 29 67 65 74 66 69 78 6e | 75 6d 28 76 61 6c 29 3b |)getfixn|um(val);|
|00002000| 0a 58 20 20 20 20 7d 0a | 58 20 20 20 20 65 6c 73 |.X    }.|X    els|
|00002010| 65 20 65 6e 64 20 3d 20 | 6c 65 6e 3b 0a 58 20 20 |e end = |len;.X  |
|00002020| 20 20 78 6c 6c 61 73 74 | 61 72 67 28 29 3b 0a 58 |  xllast|arg();.X|
|00002030| 0a 58 20 20 20 20 2f 2a | 20 63 68 65 63 6b 20 74 |.X    /*| check t|
|00002040| 68 65 20 62 6f 75 6e 64 | 73 20 2a 2f 0a 58 20 20 |he bound|s */.X  |
|00002050| 20 20 69 66 20 28 73 74 | 61 72 74 20 3c 20 30 20 |  if (st|art < 0 |
|00002060| 7c 7c 20 73 74 61 72 74 | 20 3e 20 6c 65 6e 29 0a ||| start| > len).|
|00002070| 58 09 78 6c 65 72 72 6f | 72 28 22 73 74 72 69 6e |X.xlerro|r("strin|
|00002080| 67 20 69 6e 64 65 78 20 | 6f 75 74 20 6f 66 20 62 |g index |out of b|
|00002090| 6f 75 6e 64 73 22 2c 63 | 76 66 69 78 6e 75 6d 28 |ounds",c|vfixnum(|
|000020a0| 28 46 49 58 54 59 50 45 | 29 73 74 61 72 74 29 29 |(FIXTYPE|)start))|
|000020b0| 3b 0a 58 20 20 20 20 69 | 66 20 28 65 6e 64 20 3c |;.X    i|f (end <|
|000020c0| 20 30 20 7c 7c 20 65 6e | 64 20 3e 20 6c 65 6e 29 | 0 || en|d > len)|
|000020d0| 0a 58 09 78 6c 65 72 72 | 6f 72 28 22 73 74 72 69 |.X.xlerr|or("stri|
|000020e0| 6e 67 20 69 6e 64 65 78 | 20 6f 75 74 20 6f 66 20 |ng index| out of |
|000020f0| 62 6f 75 6e 64 73 22 2c | 63 76 66 69 78 6e 75 6d |bounds",|cvfixnum|
|00002100| 28 28 46 49 58 54 59 50 | 45 29 65 6e 64 29 29 3b |((FIXTYP|E)end));|
|00002110| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 6d 61 6b 65 20 |.X.X    |/* make |
|00002120| 74 68 65 20 73 74 72 65 | 61 6d 20 2a 2f 0a 58 20 |the stre|am */.X |
|00002130| 20 20 20 76 61 6c 20 3d | 20 6e 65 77 75 73 74 72 |   val =| newustr|
|00002140| 65 61 6d 28 29 3b 0a 58 | 0a 58 20 20 20 20 2f 2a |eam();.X|.X    /*|
|00002150| 20 63 6f 70 79 20 74 68 | 65 20 73 75 62 73 74 72 | copy th|e substr|
|00002160| 69 6e 67 20 69 6e 74 6f | 20 74 68 65 20 73 74 72 |ing into| the str|
|00002170| 65 61 6d 20 2a 2f 0a 58 | 20 20 20 20 66 6f 72 20 |eam */.X|    for |
|00002180| 28 69 20 3d 20 73 74 61 | 72 74 3b 20 69 20 3c 20 |(i = sta|rt; i < |
|00002190| 65 6e 64 3b 20 2b 2b 69 | 29 0a 58 09 78 6c 70 75 |end; ++i|).X.xlpu|
|000021a0| 74 63 28 76 61 6c 2c 73 | 74 72 5b 69 5d 29 3b 0a |tc(val,s|tr[i]);.|
|000021b0| 58 0a 58 20 20 20 20 2f | 2a 20 72 65 73 74 6f 72 |X.X    /|* restor|
|000021c0| 65 20 74 68 65 20 73 74 | 61 63 6b 20 2a 2f 0a 58 |e the st|ack */.X|
|000021d0| 20 20 20 20 78 6c 70 6f | 70 28 29 3b 0a 58 0a 58 |    xlpo|p();.X.X|
|000021e0| 20 20 20 20 2f 2a 20 72 | 65 74 75 72 6e 20 74 68 |    /* r|eturn th|
|000021f0| 65 20 6e 65 77 20 73 74 | 72 65 61 6d 20 2a 2f 0a |e new st|ream */.|
|00002200| 58 20 20 20 20 72 65 74 | 75 72 6e 20 28 76 61 6c |X    ret|urn (val|
|00002210| 29 3b 0a 58 7d 0a 58 0a | 58 2f 2a 20 78 6d 6b 73 |);.X}.X.|X/* xmks|
|00002220| 74 72 6f 75 74 70 75 74 | 20 2d 20 6d 61 6b 65 20 |troutput| - make |
|00002230| 61 20 73 74 72 69 6e 67 | 20 6f 75 74 70 75 74 20 |a string| output |
|00002240| 73 74 72 65 61 6d 20 2a | 2f 0a 58 4c 56 41 4c 20 |stream *|/.XLVAL |
|00002250| 78 6d 6b 73 74 72 6f 75 | 74 70 75 74 28 29 0a 58 |xmkstrou|tput().X|
|00002260| 7b 0a 58 20 20 20 20 72 | 65 74 75 72 6e 20 28 6e |{.X    r|eturn (n|
|00002270| 65 77 75 73 74 72 65 61 | 6d 28 29 29 3b 0a 58 7d |ewustrea|m());.X}|
|00002280| 0a 58 0a 58 2f 2a 20 78 | 67 65 74 73 74 72 6f 75 |.X.X/* x|getstrou|
|00002290| 74 70 75 74 20 2d 20 67 | 65 74 20 6f 75 74 70 75 |tput - g|et outpu|
|000022a0| 74 20 73 74 72 65 61 6d | 20 73 74 72 69 6e 67 20 |t stream| string |
|000022b0| 2a 2f 0a 58 4c 56 41 4c | 20 78 67 65 74 73 74 72 |*/.XLVAL| xgetstr|
|000022c0| 6f 75 74 70 75 74 28 29 | 0a 58 7b 0a 58 20 20 20 |output()|.X{.X   |
|000022d0| 20 4c 56 41 4c 20 73 74 | 72 65 61 6d 3b 0a 58 20 | LVAL st|ream;.X |
|000022e0| 20 20 20 73 74 72 65 61 | 6d 20 3d 20 78 6c 67 61 |   strea|m = xlga|
|000022f0| 75 73 74 72 65 61 6d 28 | 29 3b 0a 58 20 20 20 20 |ustream(|);.X    |
|00002300| 78 6c 6c 61 73 74 61 72 | 67 28 29 3b 0a 58 20 20 |xllastar|g();.X  |
|00002310| 20 20 72 65 74 75 72 6e | 20 28 67 65 74 73 74 72 |  return| (getstr|
|00002320| 6f 75 74 70 75 74 28 73 | 74 72 65 61 6d 29 29 3b |output(s|tream));|
|00002330| 0a 58 7d 0a 58 0a 58 2f | 2a 20 78 67 65 74 6c 73 |.X}.X.X/|* xgetls|
|00002340| 74 6f 75 74 70 75 74 20 | 2d 20 67 65 74 20 6f 75 |toutput |- get ou|
|00002350| 74 70 75 74 20 73 74 72 | 65 61 6d 20 6c 69 73 74 |tput str|eam list|
|00002360| 20 2a 2f 0a 58 4c 56 41 | 4c 20 78 67 65 74 6c 73 | */.XLVA|L xgetls|
|00002370| 74 6f 75 74 70 75 74 28 | 29 0a 58 7b 0a 58 20 20 |toutput(|).X{.X  |
|00002380| 20 20 4c 56 41 4c 20 73 | 74 72 65 61 6d 2c 76 61 |  LVAL s|tream,va|
|00002390| 6c 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 20 67 65 74 |l;.X.X  |  /* get|
|000023a0| 20 74 68 65 20 73 74 72 | 65 61 6d 20 2a 2f 0a 58 | the str|eam */.X|
|000023b0| 20 20 20 20 73 74 72 65 | 61 6d 20 3d 20 78 6c 67 |    stre|am = xlg|
|000023c0| 61 75 73 74 72 65 61 6d | 28 29 3b 0a 58 20 20 20 |austream|();.X   |
|000023d0| 20 78 6c 6c 61 73 74 61 | 72 67 28 29 3b 0a 58 0a | xllasta|rg();.X.|
|000023e0| 58 20 20 20 20 2f 2a 20 | 67 65 74 20 74 68 65 20 |X    /* |get the |
|000023f0| 6f 75 74 70 75 74 20 63 | 68 61 72 61 63 74 65 72 |output c|haracter|
|00002400| 20 6c 69 73 74 20 2a 2f | 0a 58 20 20 20 20 76 61 | list */|.X    va|
|00002410| 6c 20 3d 20 67 65 74 68 | 65 61 64 28 73 74 72 65 |l = geth|ead(stre|
|00002420| 61 6d 29 3b 0a 58 0a 58 | 20 20 20 20 2f 2a 20 65 |am);.X.X|    /* e|
|00002430| 6d 70 74 79 20 74 68 65 | 20 63 68 61 72 61 63 74 |mpty the| charact|
|00002440| 65 72 20 6c 69 73 74 20 | 2a 2f 0a 58 20 20 20 20 |er list |*/.X    |
|00002450| 73 65 74 68 65 61 64 28 | 73 74 72 65 61 6d 2c 4e |sethead(|stream,N|
|00002460| 49 4c 29 3b 0a 58 20 20 | 20 20 73 65 74 74 61 69 |IL);.X  |  settai|
|00002470| 6c 28 73 74 72 65 61 6d | 2c 4e 49 4c 29 3b 0a 58 |l(stream|,NIL);.X|
|00002480| 0a 58 20 20 20 20 2f 2a | 20 72 65 74 75 72 6e 20 |.X    /*| return |
|00002490| 74 68 65 20 6c 69 73 74 | 20 2a 2f 0a 58 20 20 20 |the list| */.X   |
|000024a0| 20 72 65 74 75 72 6e 20 | 28 76 61 6c 29 3b 0a 58 | return |(val);.X|
|000024b0| 7d 0a 58 0a 58 2f 2a 20 | 78 66 6f 72 6d 61 74 20 |}.X.X/* |xformat |
|000024c0| 2d 20 66 6f 72 6d 61 74 | 74 65 64 20 6f 75 74 70 |- format|ted outp|
|000024d0| 75 74 20 66 75 6e 63 74 | 69 6f 6e 20 2a 2f 0a 58 |ut funct|ion */.X|
|000024e0| 4c 56 41 4c 20 78 66 6f | 72 6d 61 74 28 29 0a 58 |LVAL xfo|rmat().X|
|000024f0| 7b 0a 58 20 20 20 20 4c | 56 41 4c 20 66 6d 74 73 |{.X    L|VAL fmts|
|00002500| 74 72 69 6e 67 2c 73 74 | 72 65 61 6d 2c 76 61 6c |tring,st|ream,val|
|00002510| 3b 0a 58 20 20 20 20 75 | 6e 73 69 67 6e 65 64 20 |;.X    u|nsigned |
|00002520| 63 68 61 72 20 2a 66 6d | 74 3b 0a 58 20 20 20 20 |char *fm|t;.X    |
|00002530| 69 6e 74 20 63 68 3b 0a | 58 0a 58 20 20 20 20 2f |int ch;.|X.X    /|
|00002540| 2a 20 70 72 6f 74 65 63 | 74 20 73 6f 6d 65 20 70 |* protec|t some p|
|00002550| 6f 69 6e 74 65 72 73 20 | 2a 2f 0a 58 20 20 20 20 |ointers |*/.X    |
|00002560| 78 6c 73 74 6b 63 68 65 | 63 6b 28 32 29 3b 0a 58 |xlstkche|ck(2);.X|
|00002570| 20 20 20 20 78 6c 73 61 | 76 65 28 66 6d 74 73 74 |    xlsa|ve(fmtst|
|00002580| 72 69 6e 67 29 3b 0a 58 | 20 20 20 20 78 6c 73 61 |ring);.X|    xlsa|
|00002590| 76 65 28 73 74 72 65 61 | 6d 29 3b 0a 58 0a 58 20 |ve(strea|m);.X.X |
|000025a0| 20 20 20 2f 2a 20 67 65 | 74 20 74 68 65 20 73 74 |   /* ge|t the st|
|000025b0| 72 65 61 6d 20 61 6e 64 | 20 66 6f 72 6d 61 74 20 |ream and| format |
|000025c0| 73 74 72 69 6e 67 20 2a | 2f 0a 58 20 20 20 20 73 |string *|/.X    s|
|000025d0| 74 72 65 61 6d 20 3d 20 | 78 6c 67 65 74 61 72 67 |tream = |xlgetarg|
|000025e0| 28 29 3b 0a 58 20 20 20 | 20 69 66 20 28 73 74 72 |();.X   | if (str|
|000025f0| 65 61 6d 20 3d 3d 20 4e | 49 4c 29 0a 58 09 76 61 |eam == N|IL).X.va|
|00002600| 6c 20 3d 20 73 74 72 65 | 61 6d 20 3d 20 6e 65 77 |l = stre|am = new|
|00002610| 75 73 74 72 65 61 6d 28 | 29 3b 0a 58 20 20 20 20 |ustream(|);.X    |
|00002620| 65 6c 73 65 20 7b 0a 58 | 09 69 66 20 28 73 74 72 |else {.X|.if (str|
|00002630| 65 61 6d 20 3d 3d 20 74 | 72 75 65 29 0a 58 09 20 |eam == t|rue).X. |
|00002640| 20 20 20 73 74 72 65 61 | 6d 20 3d 20 67 65 74 76 |   strea|m = getv|
|00002650| 61 6c 75 65 28 73 5f 73 | 74 64 6f 75 74 29 3b 0a |alue(s_s|tdout);.|
|00002660| 58 09 65 6c 73 65 20 69 | 66 20 28 21 73 74 72 65 |X.else i|f (!stre|
|00002670| 61 6d 70 28 73 74 72 65 | 61 6d 29 20 26 26 20 21 |amp(stre|am) && !|
|00002680| 75 73 74 72 65 61 6d 70 | 28 73 74 72 65 61 6d 29 |ustreamp|(stream)|
|00002690| 29 0a 58 09 20 20 20 20 | 78 6c 62 61 64 74 79 70 |).X.    |xlbadtyp|
|000026a0| 65 28 73 74 72 65 61 6d | 29 3b 0a 58 09 76 61 6c |e(stream|);.X.val|
|000026b0| 20 3d 20 4e 49 4c 3b 0a | 58 20 20 20 20 7d 0a 58 | = NIL;.|X    }.X|
|000026c0| 20 20 20 20 66 6d 74 73 | 74 72 69 6e 67 20 3d 20 |    fmts|tring = |
|000026d0| 78 6c 67 61 73 74 72 69 | 6e 67 28 29 3b 0a 58 20 |xlgastri|ng();.X |
|000026e0| 20 20 20 66 6d 74 20 3d | 20 67 65 74 73 74 72 69 |   fmt =| getstri|
|000026f0| 6e 67 28 66 6d 74 73 74 | 72 69 6e 67 29 3b 0a 58 |ng(fmtst|ring);.X|
|00002700| 0a 58 20 20 20 20 2f 2a | 20 70 72 6f 63 65 73 73 |.X    /*| process|
|00002710| 20 74 68 65 20 66 6f 72 | 6d 61 74 20 73 74 72 69 | the for|mat stri|
|00002720| 6e 67 20 2a 2f 0a 58 20 | 20 20 20 77 68 69 6c 65 |ng */.X |   while|
|00002730| 20 28 63 68 20 3d 20 2a | 66 6d 74 2b 2b 29 0a 58 | (ch = *|fmt++).X|
|00002740| 09 69 66 20 28 63 68 20 | 3d 3d 20 27 7e 27 29 20 |.if (ch |== '~') |
|00002750| 7b 0a 58 09 20 20 20 20 | 73 77 69 74 63 68 20 28 |{.X.    |switch (|
|00002760| 2a 66 6d 74 2b 2b 29 20 | 7b 0a 58 09 20 20 20 20 |*fmt++) |{.X.    |
|00002770| 63 61 73 65 20 27 5c 30 | 27 3a 0a 58 09 09 78 6c |case '\0|':.X..xl|
|00002780| 65 72 72 6f 72 28 22 65 | 78 70 65 63 74 69 6e 67 |error("e|xpecting|
|00002790| 20 61 20 66 6f 72 6d 61 | 74 20 64 69 72 65 63 74 | a forma|t direct|
|000027a0| 69 76 65 22 2c 63 76 73 | 74 72 69 6e 67 28 66 6d |ive",cvs|tring(fm|
|000027b0| 74 2d 31 29 29 3b 0a 58 | 09 20 20 20 20 63 61 73 |t-1));.X|.    cas|
|000027c0| 65 20 27 61 27 3a 20 63 | 61 73 65 20 27 41 27 3a |e 'a': c|ase 'A':|
|000027d0| 0a 58 09 09 78 6c 70 72 | 69 6e 74 28 73 74 72 65 |.X..xlpr|int(stre|
|000027e0| 61 6d 2c 78 6c 67 65 74 | 61 72 67 28 29 2c 46 41 |am,xlget|arg(),FA|
|000027f0| 4c 53 45 29 3b 0a 58 09 | 09 62 72 65 61 6b 3b 0a |LSE);.X.|.break;.|
|00002800| 58 09 20 20 20 20 63 61 | 73 65 20 27 73 27 3a 20 |X.    ca|se 's': |
|00002810| 63 61 73 65 20 27 53 27 | 3a 0a 58 09 09 78 6c 70 |case 'S'|:.X..xlp|
|00002820| 72 69 6e 74 28 73 74 72 | 65 61 6d 2c 78 6c 67 65 |rint(str|eam,xlge|
|00002830| 74 61 72 67 28 29 2c 54 | 52 55 45 29 3b 0a 58 09 |targ(),T|RUE);.X.|
|00002840| 09 62 72 65 61 6b 3b 0a | 58 09 20 20 20 20 63 61 |.break;.|X.    ca|
|00002850| 73 65 20 27 25 27 3a 0a | 58 09 09 78 6c 74 65 72 |se '%':.|X..xlter|
|00002860| 70 72 69 28 73 74 72 65 | 61 6d 29 3b 0a 58 09 09 |pri(stre|am);.X..|
|00002870| 62 72 65 61 6b 3b 0a 58 | 09 20 20 20 20 63 61 73 |break;.X|.    cas|
|00002880| 65 20 27 7e 27 3a 0a 58 | 09 09 78 6c 70 75 74 63 |e '~':.X|..xlputc|
|00002890| 28 73 74 72 65 61 6d 2c | 27 7e 27 29 3b 0a 58 09 |(stream,|'~');.X.|
|000028a0| 09 62 72 65 61 6b 3b 0a | 58 09 20 20 20 20 63 61 |.break;.|X.    ca|
|000028b0| 73 65 20 27 5c 6e 27 3a | 0a 58 09 09 77 68 69 6c |se '\n':|.X..whil|
|000028c0| 65 20 28 2a 66 6d 74 20 | 26 26 20 2a 66 6d 74 20 |e (*fmt |&& *fmt |
|000028d0| 21 3d 20 27 5c 6e 27 20 | 26 26 20 69 73 73 70 61 |!= '\n' |&& isspa|
|000028e0| 63 65 28 2a 66 6d 74 29 | 29 0a 58 09 09 20 20 20 |ce(*fmt)|).X..   |
|000028f0| 20 2b 2b 66 6d 74 3b 0a | 58 09 09 62 72 65 61 6b | ++fmt;.|X..break|
|00002900| 3b 0a 58 09 20 20 20 20 | 64 65 66 61 75 6c 74 3a |;.X.    |default:|
|00002910| 0a 58 09 09 78 6c 65 72 | 72 6f 72 28 22 75 6e 6b |.X..xler|ror("unk|
|00002920| 6e 6f 77 6e 20 66 6f 72 | 6d 61 74 20 64 69 72 65 |nown for|mat dire|
|00002930| 63 74 69 76 65 22 2c 63 | 76 73 74 72 69 6e 67 28 |ctive",c|vstring(|
|00002940| 66 6d 74 2d 31 29 29 3b | 0a 58 09 20 20 20 20 7d |fmt-1));|.X.    }|
|00002950| 0a 58 09 7d 0a 58 09 65 | 6c 73 65 0a 58 09 20 20 |.X.}.X.e|lse.X.  |
|00002960| 20 20 78 6c 70 75 74 63 | 28 73 74 72 65 61 6d 2c |  xlputc|(stream,|
|00002970| 63 68 29 3b 0a 58 20 20 | 20 20 0a 58 20 20 20 20 |ch);.X  |  .X    |
|00002980| 2f 2a 20 67 65 74 20 74 | 68 65 20 6f 75 74 70 75 |/* get t|he outpu|
|00002990| 74 20 73 74 72 69 6e 67 | 20 66 6f 72 20 61 20 73 |t string| for a s|
|000029a0| 74 72 65 61 6d 20 61 72 | 67 75 6d 65 6e 74 20 6f |tream ar|gument o|
|000029b0| 66 20 4e 49 4c 20 2a 2f | 0a 58 20 20 20 20 69 66 |f NIL */|.X    if|
|000029c0| 20 28 76 61 6c 29 20 76 | 61 6c 20 3d 20 67 65 74 | (val) v|al = get|
|000029d0| 73 74 72 6f 75 74 70 75 | 74 28 76 61 6c 29 3b 0a |stroutpu|t(val);.|
|000029e0| 58 20 20 20 20 78 6c 70 | 6f 70 6e 28 32 29 3b 0a |X    xlp|opn(2);.|
|000029f0| 58 20 20 20 20 20 20 20 | 20 0a 58 20 20 20 20 2f |X       | .X    /|
|00002a00| 2a 20 72 65 74 75 72 6e | 20 74 68 65 20 76 61 6c |* return| the val|
|00002a10| 75 65 20 2a 2f 0a 58 20 | 20 20 20 72 65 74 75 72 |ue */.X |   retur|
|00002a20| 6e 20 28 76 61 6c 29 3b | 0a 58 7d 0a 58 0a 58 2f |n (val);|.X}.X.X/|
|00002a30| 2a 20 67 65 74 73 74 72 | 6f 75 74 70 75 74 20 2d |* getstr|output -|
|00002a40| 20 67 65 74 20 74 68 65 | 20 6f 75 74 70 75 74 20 | get the| output |
|00002a50| 73 74 72 65 61 6d 20 73 | 74 72 69 6e 67 20 28 69 |stream s|tring (i|
|00002a60| 6e 74 65 72 6e 61 6c 29 | 20 2a 2f 0a 58 4c 4f 43 |nternal)| */.XLOC|
|00002a70| 41 4c 20 4c 56 41 4c 20 | 67 65 74 73 74 72 6f 75 |AL LVAL |getstrou|
|00002a80| 74 70 75 74 28 73 74 72 | 65 61 6d 29 0a 58 20 20 |tput(str|eam).X  |
|00002a90| 4c 56 41 4c 20 73 74 72 | 65 61 6d 3b 0a 58 7b 0a |LVAL str|eam;.X{.|
|00002aa0| 58 20 20 20 20 75 6e 73 | 69 67 6e 65 64 20 63 68 |X    uns|igned ch|
|00002ab0| 61 72 20 2a 73 74 72 3b | 0a 58 20 20 20 20 4c 56 |ar *str;|.X    LV|
|00002ac0| 41 4c 20 6e 65 78 74 2c | 76 61 6c 3b 0a 58 20 20 |AL next,|val;.X  |
|00002ad0| 20 20 69 6e 74 20 6c 65 | 6e 2c 63 68 3b 0a 58 0a |  int le|n,ch;.X.|
|00002ae0| 58 20 20 20 20 2f 2a 20 | 63 6f 6d 70 75 74 65 20 |X    /* |compute |
|00002af0| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 74 68 |the leng|th of th|
|00002b00| 65 20 73 74 72 65 61 6d | 20 2a 2f 0a 58 20 20 20 |e stream| */.X   |
|00002b10| 20 66 6f 72 20 28 6c 65 | 6e 20 3d 20 30 2c 20 6e | for (le|n = 0, n|
|00002b20| 65 78 74 20 3d 20 67 65 | 74 68 65 61 64 28 73 74 |ext = ge|thead(st|
|00002b30| 72 65 61 6d 29 3b 20 6e | 65 78 74 20 21 3d 20 4e |ream); n|ext != N|
|00002b40| 49 4c 3b 20 6e 65 78 74 | 20 3d 20 63 64 72 28 6e |IL; next| = cdr(n|
|00002b50| 65 78 74 29 29 0a 58 09 | 2b 2b 6c 65 6e 3b 0a 58 |ext)).X.|++len;.X|
|00002b60| 0a 58 20 20 20 20 2f 2a | 20 63 72 65 61 74 65 20 |.X    /*| create |
|00002b70| 61 20 6e 65 77 20 73 74 | 72 69 6e 67 20 2a 2f 0a |a new st|ring */.|
|00002b80| 58 20 20 20 20 76 61 6c | 20 3d 20 6e 65 77 73 74 |X    val| = newst|
|00002b90| 72 69 6e 67 28 6c 65 6e | 20 2b 20 31 29 3b 0a 58 |ring(len| + 1);.X|
|00002ba0| 20 20 20 20 0a 58 20 20 | 20 20 2f 2a 20 63 6f 70 |    .X  |  /* cop|
|00002bb0| 79 20 74 68 65 20 63 68 | 61 72 61 63 74 65 72 73 |y the ch|aracters|
|00002bc0| 20 69 6e 74 6f 20 74 68 | 65 20 6e 65 77 20 73 74 | into th|e new st|
|00002bd0| 72 69 6e 67 20 2a 2f 0a | 58 20 20 20 20 73 74 72 |ring */.|X    str|
|00002be0| 20 3d 20 67 65 74 73 74 | 72 69 6e 67 28 76 61 6c | = getst|ring(val|
|00002bf0| 29 3b 0a 58 20 20 20 20 | 77 68 69 6c 65 20 28 28 |);.X    |while ((|
|00002c00| 63 68 20 3d 20 78 6c 67 | 65 74 63 28 73 74 72 65 |ch = xlg|etc(stre|
|00002c10| 61 6d 29 29 20 21 3d 20 | 45 4f 46 29 0a 58 09 2a |am)) != |EOF).X.*|
|00002c20| 73 74 72 2b 2b 20 3d 20 | 63 68 3b 0a 58 20 20 20 |str++ = |ch;.X   |
|00002c30| 20 2a 73 74 72 20 3d 20 | 27 5c 30 27 3b 0a 58 0a | *str = |'\0';.X.|
|00002c40| 58 20 20 20 20 2f 2a 20 | 72 65 74 75 72 6e 20 74 |X    /* |return t|
|00002c50| 68 65 20 73 74 72 69 6e | 67 20 2a 2f 0a 58 20 20 |he strin|g */.X  |
|00002c60| 20 20 72 65 74 75 72 6e | 20 28 76 61 6c 29 3b 0a |  return| (val);.|
|00002c70| 58 7d 0a 58 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |X}.X.SHA|R_EOF.if|
|00002c80| 20 74 65 73 74 20 39 39 | 37 36 20 2d 6e 65 20 22 | test 99|76 -ne "|
|00002c90| 60 77 63 20 2d 63 20 27 | 78 6c 66 69 6f 2e 63 27 |`wc -c '|xlfio.c'|
|00002ca0| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00002cb0| 61 72 3a 20 65 72 72 6f | 72 20 74 72 61 6e 73 6d |ar: erro|r transm|
|00002cc0| 69 74 74 69 6e 67 20 22 | 27 78 6c 66 69 6f 2e 63 |itting "|'xlfio.c|
|00002cd0| 27 22 20 27 28 73 68 6f | 75 6c 64 20 68 61 76 65 |'" '(sho|uld have|
|00002ce0| 20 62 65 65 6e 20 39 39 | 37 36 20 63 68 61 72 61 | been 99|76 chara|
|00002cf0| 63 74 65 72 73 29 27 0a | 66 69 0a 65 63 68 6f 20 |cters)'.|fi.echo |
|00002d00| 73 68 61 72 3a 20 65 78 | 74 72 61 63 74 69 6e 67 |shar: ex|tracting|
|00002d10| 20 22 27 78 6c 66 74 61 | 62 2e 63 27 22 20 27 28 | "'xlfta|b.c'" '(|
|00002d20| 31 36 36 32 32 20 63 68 | 61 72 61 63 74 65 72 73 |16622 ch|aracters|
|00002d30| 29 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 78 |)'.if te|st -f 'x|
|00002d40| 6c 66 74 61 62 2e 63 27 | 0a 74 68 65 6e 0a 09 65 |lftab.c'|.then..e|
|00002d50| 63 68 6f 20 73 68 61 72 | 3a 20 6f 76 65 72 2d 77 |cho shar|: over-w|
|00002d60| 72 69 74 69 6e 67 20 65 | 78 69 73 74 69 6e 67 20 |riting e|xisting |
|00002d70| 66 69 6c 65 20 22 27 78 | 6c 66 74 61 62 2e 63 27 |file "'x|lftab.c'|
|00002d80| 22 0a 66 69 0a 73 65 64 | 20 27 73 2f 5e 58 2f 2f |".fi.sed| 's/^X//|
|00002d90| 27 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |' << \SH|AR_EOF >|
|00002da0| 20 27 78 6c 66 74 61 62 | 2e 63 27 0a 58 2f 2a 20 | 'xlftab|.c'.X/* |
|00002db0| 78 6c 66 74 61 62 2e 63 | 20 2d 20 78 6c 69 73 70 |xlftab.c| - xlisp|
|00002dc0| 20 66 75 6e 63 74 69 6f | 6e 20 74 61 62 6c 65 20 | functio|n table |
|00002dd0| 2a 2f 0a 58 2f 2a 09 43 | 6f 70 79 72 69 67 68 74 |*/.X/*.C|opyright|
|00002de0| 20 28 63 29 20 31 39 38 | 35 2c 20 62 79 20 44 61 | (c) 198|5, by Da|
|00002df0| 76 69 64 20 4d 69 63 68 | 61 65 6c 20 42 65 74 7a |vid Mich|ael Betz|
|00002e00| 0a 58 09 41 6c 6c 20 52 | 69 67 68 74 73 20 52 65 |.X.All R|ights Re|
|00002e10| 73 65 72 76 65 64 0a 58 | 09 50 65 72 6d 69 73 73 |served.X|.Permiss|
|00002e20| 69 6f 6e 20 69 73 20 67 | 72 61 6e 74 65 64 20 66 |ion is g|ranted f|
|00002e30| 6f 72 20 75 6e 72 65 73 | 74 72 69 63 74 65 64 20 |or unres|tricted |
|00002e40| 6e 6f 6e 2d 63 6f 6d 6d | 65 72 63 69 61 6c 20 75 |non-comm|ercial u|
|00002e50| 73 65 09 2a 2f 0a 58 0a | 58 23 69 6e 63 6c 75 64 |se.*/.X.|X#includ|
|00002e60| 65 20 22 78 6c 69 73 70 | 2e 68 22 0a 58 0a 58 2f |e "xlisp|.h".X.X/|
|00002e70| 2a 20 65 78 74 65 72 6e | 61 6c 20 66 75 6e 63 74 |* extern|al funct|
|00002e80| 69 6f 6e 73 20 2a 2f 0a | 58 65 78 74 65 72 6e 20 |ions */.|Xextern |
|00002e90| 4c 56 41 4c 0a 58 20 20 | 20 20 78 62 69 73 75 62 |LVAL.X  |  xbisub|
|00002ea0| 72 28 29 2c 78 62 69 66 | 73 75 62 72 28 29 2c 0a |r(),xbif|subr(),.|
|00002eb0| 58 20 20 20 20 72 6d 68 | 61 73 68 28 29 2c 72 6d |X    rmh|ash(),rm|
|00002ec0| 71 75 6f 74 65 28 29 2c | 72 6d 64 71 75 6f 74 65 |quote(),|rmdquote|
|00002ed0| 28 29 2c 72 6d 62 71 75 | 6f 74 65 28 29 2c 72 6d |(),rmbqu|ote(),rm|
|00002ee0| 63 6f 6d 6d 61 28 29 2c | 0a 58 20 20 20 20 63 6c |comma(),|.X    cl|
|00002ef0| 6e 65 77 28 29 2c 63 6c | 69 73 6e 65 77 28 29 2c |new(),cl|isnew(),|
|00002f00| 63 6c 61 6e 73 77 65 72 | 28 29 2c 0a 58 20 20 20 |clanswer|(),.X   |
|00002f10| 20 6f 62 69 73 6e 65 77 | 28 29 2c 6f 62 63 6c 61 | obisnew|(),obcla|
|00002f20| 73 73 28 29 2c 6f 62 73 | 68 6f 77 28 29 2c 0a 58 |ss(),obs|how(),.X|
|00002f30| 20 20 20 20 72 6d 6c 70 | 61 72 28 29 2c 72 6d 72 |    rmlp|ar(),rmr|
|00002f40| 70 61 72 28 29 2c 72 6d | 73 65 6d 69 28 29 2c 0a |par(),rm|semi(),.|
|00002f50| 58 20 20 20 20 78 65 76 | 61 6c 28 29 2c 78 61 70 |X    xev|al(),xap|
|00002f60| 70 6c 79 28 29 2c 78 66 | 75 6e 63 61 6c 6c 28 29 |ply(),xf|uncall()|
|00002f70| 2c 78 71 75 6f 74 65 28 | 29 2c 78 66 75 6e 63 74 |,xquote(|),xfunct|
|00002f80| 69 6f 6e 28 29 2c 78 62 | 71 75 6f 74 65 28 29 2c |ion(),xb|quote(),|
|00002f90| 0a 58 20 20 20 20 78 6c | 61 6d 62 64 61 28 29 2c |.X    xl|ambda(),|
|00002fa0| 78 73 65 74 28 29 2c 78 | 73 65 74 71 28 29 2c 78 |xset(),x|setq(),x|
|00002fb0| 73 65 74 66 28 29 2c 78 | 64 65 66 75 6e 28 29 2c |setf(),x|defun(),|
|00002fc0| 78 64 65 66 6d 61 63 72 | 6f 28 29 2c 0a 58 20 20 |xdefmacr|o(),.X  |
|00002fd0| 20 20 78 67 65 6e 73 79 | 6d 28 29 2c 78 6d 61 6b |  xgensy|m(),xmak|
|00002fe0| 65 73 79 6d 62 6f 6c 28 | 29 2c 78 69 6e 74 65 72 |esymbol(|),xinter|
|00002ff0| 6e 28 29 2c 0a 58 20 20 | 20 20 78 73 79 6d 6e 61 |n(),.X  |  xsymna|
|00003000| 6d 65 28 29 2c 78 73 79 | 6d 76 61 6c 75 65 28 29 |me(),xsy|mvalue()|
|00003010| 2c 78 73 79 6d 70 6c 69 | 73 74 28 29 2c 0a 58 20 |,xsympli|st(),.X |
|00003020| 20 20 20 78 67 65 74 28 | 29 2c 78 70 75 74 70 72 |   xget(|),xputpr|
|00003030| 6f 70 28 29 2c 78 72 65 | 6d 70 72 6f 70 28 29 2c |op(),xre|mprop(),|
|00003040| 0a 58 20 20 20 20 78 68 | 61 73 68 28 29 2c 78 6d |.X    xh|ash(),xm|
|00003050| 6b 61 72 72 61 79 28 29 | 2c 78 61 72 65 66 28 29 |karray()|,xaref()|
|00003060| 2c 0a 58 20 20 20 20 78 | 63 61 72 28 29 2c 78 63 |,.X    x|car(),xc|
|00003070| 64 72 28 29 2c 0a 58 20 | 20 20 20 78 63 61 61 72 |dr(),.X |   xcaar|
|00003080| 28 29 2c 78 63 61 64 72 | 28 29 2c 78 63 64 61 72 |(),xcadr|(),xcdar|
|00003090| 28 29 2c 78 63 64 64 72 | 28 29 2c 0a 58 20 20 20 |(),xcddr|(),.X   |
|000030a0| 20 78 63 61 61 61 72 28 | 29 2c 78 63 61 61 64 72 | xcaaar(|),xcaadr|
|000030b0| 28 29 2c 78 63 61 64 61 | 72 28 29 2c 78 63 61 64 |(),xcada|r(),xcad|
|000030c0| 64 72 28 29 2c 0a 58 20 | 20 20 20 78 63 64 61 61 |dr(),.X |   xcdaa|
|000030d0| 72 28 29 2c 78 63 64 61 | 64 72 28 29 2c 78 63 64 |r(),xcda|dr(),xcd|
|000030e0| 64 61 72 28 29 2c 78 63 | 64 64 64 72 28 29 2c 0a |dar(),xc|dddr(),.|
|000030f0| 58 20 20 20 20 78 63 61 | 61 61 61 72 28 29 2c 78 |X    xca|aaar(),x|
|00003100| 63 61 61 61 64 72 28 29 | 2c 78 63 61 61 64 61 72 |caaadr()|,xcaadar|
|00003110| 28 29 2c 78 63 61 61 64 | 64 72 28 29 2c 0a 58 20 |(),xcaad|dr(),.X |
|00003120| 20 20 20 78 63 61 64 61 | 61 72 28 29 2c 78 63 61 |   xcada|ar(),xca|
|00003130| 64 61 64 72 28 29 2c 78 | 63 61 64 64 61 72 28 29 |dadr(),x|caddar()|
|00003140| 2c 78 63 61 64 64 64 72 | 28 29 2c 0a 58 20 20 20 |,xcadddr|(),.X   |
|00003150| 20 78 63 64 61 61 61 72 | 28 29 2c 78 63 64 61 61 | xcdaaar|(),xcdaa|
|00003160| 64 72 28 29 2c 78 63 64 | 61 64 61 72 28 29 2c 78 |dr(),xcd|adar(),x|
|00003170| 63 64 61 64 64 72 28 29 | 2c 0a 58 20 20 20 20 78 |cdaddr()|,.X    x|
|00003180| 63 64 64 61 61 72 28 29 | 2c 78 63 64 64 61 64 72 |cddaar()|,xcddadr|
|00003190| 28 29 2c 78 63 64 64 64 | 61 72 28 29 2c 78 63 64 |(),xcddd|ar(),xcd|
|000031a0| 64 64 64 72 28 29 2c 0a | 58 20 20 20 20 78 63 6f |dddr(),.|X    xco|
|000031b0| 6e 73 28 29 2c 78 6c 69 | 73 74 28 29 2c 78 61 70 |ns(),xli|st(),xap|
|000031c0| 70 65 6e 64 28 29 2c 78 | 72 65 76 65 72 73 65 28 |pend(),x|reverse(|
|000031d0| 29 2c 78 6c 61 73 74 28 | 29 2c 78 6e 74 68 28 29 |),xlast(|),xnth()|
|000031e0| 2c 78 6e 74 68 63 64 72 | 28 29 2c 0a 58 20 20 20 |,xnthcdr|(),.X   |
|000031f0| 20 78 6d 65 6d 62 65 72 | 28 29 2c 78 61 73 73 6f | xmember|(),xasso|
|00003200| 63 28 29 2c 78 73 75 62 | 73 74 28 29 2c 78 73 75 |c(),xsub|st(),xsu|
|00003210| 62 6c 69 73 28 29 2c 78 | 6c 65 6e 67 74 68 28 29 |blis(),x|length()|
|00003220| 2c 78 73 6f 72 74 28 29 | 2c 0a 58 20 20 20 20 78 |,xsort()|,.X    x|
|00003230| 72 65 6d 6f 76 65 28 29 | 2c 78 72 65 6d 69 66 28 |remove()|,xremif(|
|00003240| 29 2c 78 72 65 6d 69 66 | 6e 6f 74 28 29 2c 0a 58 |),xremif|not(),.X|
|00003250| 20 20 20 20 78 6d 61 70 | 63 28 29 2c 78 6d 61 70 |    xmap|c(),xmap|
|00003260| 63 61 72 28 29 2c 78 6d | 61 70 6c 28 29 2c 78 6d |car(),xm|apl(),xm|
|00003270| 61 70 6c 69 73 74 28 29 | 2c 0a 58 20 20 20 20 78 |aplist()|,.X    x|
|00003280| 72 70 6c 63 61 28 29 2c | 78 72 70 6c 63 64 28 29 |rplca(),|xrplcd()|
|00003290| 2c 78 6e 63 6f 6e 63 28 | 29 2c 0a 58 20 20 20 20 |,xnconc(|),.X    |
|000032a0| 78 64 65 6c 65 74 65 28 | 29 2c 78 64 65 6c 69 66 |xdelete(|),xdelif|
|000032b0| 28 29 2c 78 64 65 6c 69 | 66 6e 6f 74 28 29 2c 0a |(),xdeli|fnot(),.|
|000032c0| 58 20 20 20 20 78 61 74 | 6f 6d 28 29 2c 78 73 79 |X    xat|om(),xsy|
|000032d0| 6d 62 6f 6c 70 28 29 2c | 78 6e 75 6d 62 65 72 70 |mbolp(),|xnumberp|
|000032e0| 28 29 2c 78 62 6f 75 6e | 64 70 28 29 2c 78 6e 75 |(),xboun|dp(),xnu|
|000032f0| 6c 6c 28 29 2c 78 6c 69 | 73 74 70 28 29 2c 78 65 |ll(),xli|stp(),xe|
|00003300| 6e 64 70 28 29 2c 78 63 | 6f 6e 73 70 28 29 2c 0a |ndp(),xc|onsp(),.|
|00003310| 58 20 20 20 20 78 65 71 | 28 29 2c 78 65 71 6c 28 |X    xeq|(),xeql(|
|00003320| 29 2c 78 65 71 75 61 6c | 28 29 2c 0a 58 20 20 20 |),xequal|(),.X   |
|00003330| 20 78 63 6f 6e 64 28 29 | 2c 78 63 61 73 65 28 29 | xcond()|,xcase()|
|00003340| 2c 78 61 6e 64 28 29 2c | 78 6f 72 28 29 2c 78 6c |,xand(),|xor(),xl|
|00003350| 65 74 28 29 2c 78 6c 65 | 74 73 74 61 72 28 29 2c |et(),xle|tstar(),|
|00003360| 78 69 66 28 29 2c 0a 58 | 20 20 20 20 78 70 72 6f |xif(),.X|    xpro|
|00003370| 67 28 29 2c 78 70 72 6f | 67 73 74 61 72 28 29 2c |g(),xpro|gstar(),|
|00003380| 78 70 72 6f 67 31 28 29 | 2c 78 70 72 6f 67 32 28 |xprog1()|,xprog2(|
|00003390| 29 2c 78 70 72 6f 67 6e | 28 29 2c 78 67 6f 28 29 |),xprogn|(),xgo()|
|000033a0| 2c 78 72 65 74 75 72 6e | 28 29 2c 0a 58 20 20 20 |,xreturn|(),.X   |
|000033b0| 20 78 63 61 74 63 68 28 | 29 2c 78 74 68 72 6f 77 | xcatch(|),xthrow|
|000033c0| 28 29 2c 0a 58 20 20 20 | 20 78 65 72 72 6f 72 28 |(),.X   | xerror(|
|000033d0| 29 2c 78 63 65 72 72 6f | 72 28 29 2c 78 62 72 65 |),xcerro|r(),xbre|
|000033e0| 61 6b 28 29 2c 0a 58 20 | 20 20 20 78 63 6c 65 61 |ak(),.X |   xclea|
|000033f0| 6e 75 70 28 29 2c 78 74 | 6f 70 6c 65 76 65 6c 28 |nup(),xt|oplevel(|
|00003400| 29 2c 78 63 6f 6e 74 69 | 6e 75 65 28 29 2c 78 65 |),xconti|nue(),xe|
|00003410| 72 72 73 65 74 28 29 2c | 0a 58 20 20 20 20 78 62 |rrset(),|.X    xb|
|00003420| 61 6b 74 72 61 63 65 28 | 29 2c 78 65 76 61 6c 68 |aktrace(|),xevalh|
|00003430| 6f 6f 6b 28 29 2c 0a 58 | 20 20 20 20 78 64 6f 28 |ook(),.X|    xdo(|
|00003440| 29 2c 78 64 6f 73 74 61 | 72 28 29 2c 78 64 6f 6c |),xdosta|r(),xdol|
|00003450| 69 73 74 28 29 2c 78 64 | 6f 74 69 6d 65 73 28 29 |ist(),xd|otimes()|
|00003460| 2c 0a 58 20 20 20 20 78 | 6d 69 6e 75 73 70 28 29 |,.X    x|minusp()|
|00003470| 2c 78 7a 65 72 6f 70 28 | 29 2c 78 70 6c 75 73 70 |,xzerop(|),xplusp|
|00003480| 28 29 2c 78 65 76 65 6e | 70 28 29 2c 78 6f 64 64 |(),xeven|p(),xodd|
|00003490| 70 28 29 2c 0a 58 20 20 | 20 20 78 66 69 78 28 29 |p(),.X  |  xfix()|
|000034a0| 2c 78 66 6c 6f 61 74 28 | 29 2c 0a 58 20 20 20 20 |,xfloat(|),.X    |
|000034b0| 78 67 63 64 28 29 2c 78 | 61 64 64 28 29 2c 78 73 |xgcd(),x|add(),xs|
|000034c0| 75 62 28 29 2c 78 6d 75 | 6c 28 29 2c 78 64 69 76 |ub(),xmu|l(),xdiv|
|000034d0| 28 29 2c 78 72 65 6d 28 | 29 2c 78 6d 69 6e 28 29 |(),xrem(|),xmin()|
|000034e0| 2c 78 6d 61 78 28 29 2c | 78 61 62 73 28 29 2c 0a |,xmax(),|xabs(),.|
|000034f0| 58 20 20 20 20 78 61 64 | 64 31 28 29 2c 78 73 75 |X    xad|d1(),xsu|
|00003500| 62 31 28 29 2c 78 6c 6f | 67 61 6e 64 28 29 2c 78 |b1(),xlo|gand(),x|
|00003510| 6c 6f 67 69 6f 72 28 29 | 2c 78 6c 6f 67 78 6f 72 |logior()|,xlogxor|
|00003520| 28 29 2c 78 6c 6f 67 6e | 6f 74 28 29 2c 0a 58 20 |(),xlogn|ot(),.X |
|00003530| 20 20 20 78 73 69 6e 28 | 29 2c 78 63 6f 73 28 29 |   xsin(|),xcos()|
|00003540| 2c 78 74 61 6e 28 29 2c | 78 65 78 70 74 28 29 2c |,xtan(),|xexpt(),|
|00003550| 78 65 78 70 28 29 2c 78 | 73 71 72 74 28 29 2c 78 |xexp(),x|sqrt(),x|
|00003560| 72 61 6e 64 28 29 2c 0a | 58 20 20 20 20 78 6c 73 |rand(),.|X    xls|
|00003570| 73 28 29 2c 78 6c 65 71 | 28 29 2c 78 65 71 75 28 |s(),xleq|(),xequ(|
|00003580| 29 2c 78 6e 65 71 28 29 | 2c 78 67 65 71 28 29 2c |),xneq()|,xgeq(),|
|00003590| 78 67 74 72 28 29 2c 0a | 58 20 20 20 20 78 73 74 |xgtr(),.|X    xst|
|000035a0| 72 63 61 74 28 29 2c 78 | 73 75 62 73 65 71 28 29 |rcat(),x|subseq()|
|000035b0| 2c 78 73 74 72 69 6e 67 | 28 29 2c 78 63 68 61 72 |,xstring|(),xchar|
|000035c0| 28 29 2c 0a 58 20 20 20 | 20 78 72 65 61 64 28 29 |(),.X   | xread()|
|000035d0| 2c 78 70 72 69 6e 74 28 | 29 2c 78 70 72 69 6e 31 |,xprint(|),xprin1|
|000035e0| 28 29 2c 78 70 72 69 6e | 63 28 29 2c 78 74 65 72 |(),xprin|c(),xter|
|000035f0| 70 72 69 28 29 2c 0a 58 | 20 20 20 20 78 66 6c 61 |pri(),.X|    xfla|
|00003600| 74 73 69 7a 65 28 29 2c | 78 66 6c 61 74 63 28 29 |tsize(),|xflatc()|
|00003610| 2c 0a 58 20 20 20 20 78 | 6f 70 65 6e 28 29 2c 78 |,.X    x|open(),x|
|00003620| 63 6c 6f 73 65 28 29 2c | 78 72 64 63 68 61 72 28 |close(),|xrdchar(|
|00003630| 29 2c 78 70 6b 63 68 61 | 72 28 29 2c 78 77 72 63 |),xpkcha|r(),xwrc|
|00003640| 68 61 72 28 29 2c 78 72 | 65 61 64 6c 69 6e 65 28 |har(),xr|eadline(|
|00003650| 29 2c 0a 58 20 20 20 20 | 78 6c 6f 61 64 28 29 2c |),.X    |xload(),|
|00003660| 78 74 72 61 6e 73 63 72 | 69 70 74 28 29 2c 0a 58 |xtranscr|ipt(),.X|
|00003670| 20 20 20 20 78 74 79 70 | 65 28 29 2c 78 65 78 69 |    xtyp|e(),xexi|
|00003680| 74 28 29 2c 78 70 65 65 | 6b 28 29 2c 78 70 6f 6b |t(),xpee|k(),xpok|
|00003690| 65 28 29 2c 78 61 64 64 | 72 73 28 29 2c 0a 58 20 |e(),xadd|rs(),.X |
|000036a0| 20 20 20 78 76 65 63 74 | 6f 72 28 29 2c 78 62 6c |   xvect|or(),xbl|
|000036b0| 6f 63 6b 28 29 2c 78 72 | 74 6e 66 72 6f 6d 28 29 |ock(),xr|tnfrom()|
|000036c0| 2c 78 74 61 67 62 6f 64 | 79 28 29 2c 0a 58 20 20 |,xtagbod|y(),.X  |
|000036d0| 20 20 78 70 73 65 74 71 | 28 29 2c 78 66 6c 65 74 |  xpsetq|(),xflet|
|000036e0| 28 29 2c 78 6c 61 62 65 | 6c 73 28 29 2c 78 6d 61 |(),xlabe|ls(),xma|
|000036f0| 63 72 6f 6c 65 74 28 29 | 2c 78 75 6e 77 69 6e 64 |crolet()|,xunwind|
|00003700| 70 72 6f 74 65 63 74 28 | 29 2c 78 70 70 28 29 2c |protect(|),xpp(),|
|00003710| 0a 58 20 20 20 20 78 73 | 74 72 6c 73 73 28 29 2c |.X    xs|trlss(),|
|00003720| 78 73 74 72 6c 65 71 28 | 29 2c 78 73 74 72 65 71 |xstrleq(|),xstreq|
|00003730| 6c 28 29 2c 78 73 74 72 | 6e 65 71 28 29 2c 78 73 |l(),xstr|neq(),xs|
|00003740| 74 72 67 65 71 28 29 2c | 78 73 74 72 67 74 72 28 |trgeq(),|xstrgtr(|
|00003750| 29 2c 0a 58 20 20 20 20 | 78 73 74 72 69 6c 73 73 |),.X    |xstrilss|
|00003760| 28 29 2c 78 73 74 72 69 | 6c 65 71 28 29 2c 78 73 |(),xstri|leq(),xs|
|00003770| 74 72 69 65 71 6c 28 29 | 2c 78 73 74 72 69 6e 65 |trieql()|,xstrine|
|00003780| 71 28 29 2c 78 73 74 72 | 69 67 65 71 28 29 2c 78 |q(),xstr|igeq(),x|
|00003790| 73 74 72 69 67 74 72 28 | 29 2c 0a 58 20 20 20 20 |strigtr(|),.X    |
|000037a0| 78 75 70 63 61 73 65 28 | 29 2c 78 64 6f 77 6e 63 |xupcase(|),xdownc|
|000037b0| 61 73 65 28 29 2c 78 6e | 75 70 63 61 73 65 28 29 |ase(),xn|upcase()|
|000037c0| 2c 78 6e 64 6f 77 6e 63 | 61 73 65 28 29 2c 0a 58 |,xndownc|ase(),.X|
|000037d0| 20 20 20 20 78 74 72 69 | 6d 28 29 2c 78 6c 65 66 |    xtri|m(),xlef|
|000037e0| 74 74 72 69 6d 28 29 2c | 78 72 69 67 68 74 74 72 |ttrim(),|xrighttr|
|000037f0| 69 6d 28 29 2c 0a 58 20 | 20 20 20 78 75 70 70 65 |im(),.X |   xuppe|
|00003800| 72 63 61 73 65 70 28 29 | 2c 78 6c 6f 77 65 72 63 |rcasep()|,xlowerc|
|00003810| 61 73 65 70 28 29 2c 78 | 62 6f 74 68 63 61 73 65 |asep(),x|bothcase|
|00003820| 70 28 29 2c 78 64 69 67 | 69 74 70 28 29 2c 78 61 |p(),xdig|itp(),xa|
|00003830| 6c 70 68 61 6e 75 6d 65 | 72 69 63 70 28 29 2c 0a |lphanume|ricp(),.|
|00003840| 58 20 20 20 20 78 63 68 | 61 72 63 6f 64 65 28 29 |X    xch|arcode()|
|00003850| 2c 78 63 6f 64 65 63 68 | 61 72 28 29 2c 78 63 68 |,xcodech|ar(),xch|
|00003860| 75 70 63 61 73 65 28 29 | 2c 78 63 68 64 6f 77 6e |upcase()|,xchdown|
|00003870| 63 61 73 65 28 29 2c 78 | 64 69 67 69 74 63 68 61 |case(),x|digitcha|
|00003880| 72 28 29 2c 0a 58 20 20 | 20 20 78 63 68 72 6c 73 |r(),.X  |  xchrls|
|00003890| 73 28 29 2c 78 63 68 72 | 6c 65 71 28 29 2c 78 63 |s(),xchr|leq(),xc|
|000038a0| 68 72 65 71 6c 28 29 2c | 78 63 68 72 6e 65 71 28 |hreql(),|xchrneq(|
|000038b0| 29 2c 78 63 68 72 67 65 | 71 28 29 2c 78 63 68 72 |),xchrge|q(),xchr|
|000038c0| 67 74 72 28 29 2c 0a 58 | 20 20 20 20 78 63 68 72 |gtr(),.X|    xchr|
|000038d0| 69 6c 73 73 28 29 2c 78 | 63 68 72 69 6c 65 71 28 |ilss(),x|chrileq(|
|000038e0| 29 2c 78 63 68 72 69 65 | 71 6c 28 29 2c 78 63 68 |),xchrie|ql(),xch|
|000038f0| 72 69 6e 65 71 28 29 2c | 78 63 68 72 69 67 65 71 |rineq(),|xchrigeq|
|00003900| 28 29 2c 78 63 68 72 69 | 67 74 72 28 29 2c 0a 58 |(),xchri|gtr(),.X|
|00003910| 20 20 20 20 78 69 6e 74 | 65 67 65 72 70 28 29 2c |    xint|egerp(),|
|00003920| 78 66 6c 6f 61 74 70 28 | 29 2c 78 73 74 72 69 6e |xfloatp(|),xstrin|
|00003930| 67 70 28 29 2c 78 61 72 | 72 61 79 70 28 29 2c 78 |gp(),xar|rayp(),x|
|00003940| 73 74 72 65 61 6d 70 28 | 29 2c 78 6f 62 6a 65 63 |streamp(|),xobjec|
|00003950| 74 70 28 29 2c 0a 58 20 | 20 20 20 78 77 68 65 6e |tp(),.X |   xwhen|
|00003960| 28 29 2c 78 75 6e 6c 65 | 73 73 28 29 2c 78 6c 6f |(),xunle|ss(),xlo|
|00003970| 6f 70 28 29 2c 0a 58 20 | 20 20 20 78 73 79 6d 66 |op(),.X |   xsymf|
|00003980| 75 6e 63 74 69 6f 6e 28 | 29 2c 78 66 62 6f 75 6e |unction(|),xfboun|
|00003990| 64 70 28 29 2c 78 73 65 | 6e 64 28 29 2c 78 73 65 |dp(),xse|nd(),xse|
|000039a0| 6e 64 73 75 70 65 72 28 | 29 2c 0a 58 20 20 20 20 |ndsuper(|),.X    |
|000039b0| 78 70 72 6f 67 76 28 29 | 2c 78 72 64 62 79 74 65 |xprogv()|,xrdbyte|
|000039c0| 28 29 2c 78 77 72 62 79 | 74 65 28 29 2c 78 66 6f |(),xwrby|te(),xfo|
|000039d0| 72 6d 61 74 28 29 2c 0a | 58 20 20 20 20 78 63 68 |rmat(),.|X    xch|
|000039e0| 61 72 70 28 29 2c 78 63 | 68 61 72 69 6e 74 28 29 |arp(),xc|harint()|
|000039f0| 2c 78 69 6e 74 63 68 61 | 72 28 29 2c 0a 58 20 20 |,xintcha|r(),.X  |
|00003a00| 20 20 78 6d 6b 73 74 72 | 69 6e 70 75 74 28 29 2c |  xmkstr|input(),|
|00003a10| 78 6d 6b 73 74 72 6f 75 | 74 70 75 74 28 29 2c 78 |xmkstrou|tput(),x|
|00003a20| 67 65 74 73 74 72 6f 75 | 74 70 75 74 28 29 2c 78 |getstrou|tput(),x|
|00003a30| 67 65 74 6c 73 74 6f 75 | 74 70 75 74 28 29 2c 0a |getlstou|tput(),.|
|00003a40| 58 20 20 20 20 78 67 65 | 74 6c 61 6d 62 64 61 28 |X    xge|tlambda(|
|00003a50| 29 2c 78 6d 61 63 72 6f | 65 78 70 61 6e 64 28 29 |),xmacro|expand()|
|00003a60| 2c 78 31 6d 61 63 72 6f | 65 78 70 61 6e 64 28 29 |,x1macro|expand()|
|00003a70| 2c 0a 58 20 20 20 20 78 | 74 72 61 63 65 28 29 2c |,.X    x|trace(),|
|00003a80| 78 75 6e 74 72 61 63 65 | 28 29 2c 0a 58 20 20 20 |xuntrace|(),.X   |
|00003a90| 20 78 64 65 66 73 74 72 | 75 63 74 28 29 2c 78 6d | xdefstr|uct(),xm|
|00003aa0| 6b 73 74 72 75 63 74 28 | 29 2c 78 63 70 79 73 74 |kstruct(|),xcpyst|
|00003ab0| 72 75 63 74 28 29 2c 78 | 73 74 72 72 65 66 28 29 |ruct(),x|strref()|
|00003ac0| 2c 78 73 74 72 73 65 74 | 28 29 2c 78 73 74 72 74 |,xstrset|(),xstrt|
|00003ad0| 79 70 65 70 28 29 2c 0a | 58 20 20 20 20 78 61 73 |ypep(),.|X    xas|
|00003ae0| 69 6e 28 29 2c 78 61 63 | 6f 73 28 29 2c 78 61 74 |in(),xac|os(),xat|
|00003af0| 61 6e 28 29 3b 0a 58 0a | 58 2f 2a 20 66 75 6e 63 |an();.X.|X/* func|
|00003b00| 74 69 6f 6e 73 20 73 70 | 65 63 69 66 69 63 20 74 |tions sp|ecific t|
|00003b10| 6f 20 78 6c 64 6d 65 6d | 2e 63 20 2a 2f 0a 58 4c |o xldmem|.c */.XL|
|00003b20| 56 41 4c 20 78 67 63 28 | 29 2c 78 65 78 70 61 6e |VAL xgc(|),xexpan|
|00003b30| 64 28 29 2c 78 61 6c 6c | 6f 63 28 29 2c 78 6d 65 |d(),xall|oc(),xme|
|00003b40| 6d 28 29 3b 0a 58 23 69 | 66 64 65 66 20 53 41 56 |m();.X#i|fdef SAV|
|00003b50| 45 52 45 53 54 4f 52 45 | 0a 58 4c 56 41 4c 20 78 |ERESTORE|.XLVAL x|
|00003b60| 73 61 76 65 28 29 2c 78 | 72 65 73 74 6f 72 65 28 |save(),x|restore(|
|00003b70| 29 3b 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 2f 2a |);.X#end|if.X.X/*|
|00003b80| 20 69 6e 63 6c 75 64 65 | 20 73 79 73 74 65 6d 20 | include| system |
|00003b90| 64 65 70 65 6e 64 61 6e | 74 20 64 65 66 69 6e 69 |dependan|t defini|
|00003ba0| 74 69 6f 6e 73 20 2a 2f | 0a 58 23 69 6e 63 6c 75 |tions */|.X#inclu|
|00003bb0| 64 65 20 22 6f 73 64 65 | 66 73 2e 68 22 0a 58 0a |de "osde|fs.h".X.|
|00003bc0| 58 2f 2a 20 53 55 42 52 | 2f 46 53 55 42 52 20 69 |X/* SUBR|/FSUBR i|
|00003bd0| 6e 64 69 63 61 74 6f 72 | 20 2a 2f 0a 58 23 64 65 |ndicator| */.X#de|
|00003be0| 66 69 6e 65 20 53 09 53 | 55 42 52 0a 58 23 64 65 |fine S.S|UBR.X#de|
|00003bf0| 66 69 6e 65 20 46 09 46 | 53 55 42 52 0a 58 0a 58 |fine F.F|SUBR.X.X|
|00003c00| 2f 2a 20 66 6f 72 77 61 | 72 64 20 64 65 63 6c 61 |/* forwa|rd decla|
|00003c10| 72 61 74 69 6f 6e 73 20 | 2a 2f 0a 58 4c 56 41 4c |rations |*/.XLVAL|
|00003c20| 20 78 6e 6f 74 69 6d 70 | 28 29 3b 0a 58 0a 58 2f | xnotimp|();.X.X/|
|00003c30| 2a 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 74 |* the fu|nction t|
|00003c40| 61 62 6c 65 20 2a 2f 0a | 58 46 55 4e 44 45 46 20 |able */.|XFUNDEF |
|00003c50| 66 75 6e 74 61 62 5b 5d | 20 3d 20 7b 0a 58 0a 58 |funtab[]| = {.X.X|
|00003c60| 09 2f 2a 20 72 65 61 64 | 20 6d 61 63 72 6f 20 66 |./* read| macro f|
|00003c70| 75 6e 63 74 69 6f 6e 73 | 20 2a 2f 0a 58 7b 09 4e |unctions| */.X{.N|
|00003c80| 55 4c 4c 2c 09 09 09 09 | 53 2c 20 72 6d 68 61 73 |ULL,....|S, rmhas|
|00003c90| 68 09 09 7d 2c 20 2f 2a | 20 20 20 30 20 2a 2f 0a |h..}, /*|   0 */.|
|00003ca0| 58 7b 09 4e 55 4c 4c 2c | 09 09 09 09 53 2c 20 72 |X{.NULL,|....S, r|
|00003cb0| 6d 71 75 6f 74 65 09 09 | 7d 2c 20 2f 2a 20 20 20 |mquote..|}, /*   |
|00003cc0| 31 20 2a 2f 0a 58 7b 09 | 4e 55 4c 4c 2c 09 09 09 |1 */.X{.|NULL,...|
|00003cd0| 09 53 2c 20 72 6d 64 71 | 75 6f 74 65 09 09 7d 2c |.S, rmdq|uote..},|
|00003ce0| 20 2f 2a 20 20 20 32 20 | 2a 2f 0a 58 7b 09 4e 55 | /*   2 |*/.X{.NU|
|00003cf0| 4c 4c 2c 09 09 09 09 53 | 2c 20 72 6d 62 71 75 6f |LL,....S|, rmbquo|
|00003d00| 74 65 09 09 7d 2c 20 2f | 2a 20 20 20 33 20 2a 2f |te..}, /|*   3 */|
|00003d10| 0a 58 7b 09 4e 55 4c 4c | 2c 09 09 09 09 53 2c 20 |.X{.NULL|,....S, |
|00003d20| 72 6d 63 6f 6d 6d 61 09 | 09 7d 2c 20 2f 2a 20 20 |rmcomma.|.}, /*  |
|00003d30| 20 34 20 2a 2f 0a 58 7b | 09 4e 55 4c 4c 2c 09 09 | 4 */.X{|.NULL,..|
|00003d40| 09 09 53 2c 20 72 6d 6c | 70 61 72 09 09 7d 2c 20 |..S, rml|par..}, |
|00003d50| 2f 2a 20 20 20 35 20 2a | 2f 0a 58 7b 09 4e 55 4c |/*   5 *|/.X{.NUL|
|00003d60| 4c 2c 09 09 09 09 53 2c | 20 72 6d 72 70 61 72 09 |L,....S,| rmrpar.|
|00003d70| 09 7d 2c 20 2f 2a 20 20 | 20 36 20 2a 2f 0a 58 7b |.}, /*  | 6 */.X{|
|00003d80| 09 4e 55 4c 4c 2c 09 09 | 09 09 53 2c 20 72 6d 73 |.NULL,..|..S, rms|
|00003d90| 65 6d 69 09 09 7d 2c 20 | 2f 2a 20 20 20 37 20 2a |emi..}, |/*   7 *|
|00003da0| 2f 0a 58 7b 09 4e 55 4c | 4c 2c 09 09 09 09 53 2c |/.X{.NUL|L,....S,|
|00003db0| 20 78 6e 6f 74 69 6d 70 | 09 09 7d 2c 20 2f 2a 20 | xnotimp|..}, /* |
|00003dc0| 20 20 38 20 2a 2f 0a 58 | 7b 09 4e 55 4c 4c 2c 09 |  8 */.X|{.NULL,.|
|00003dd0| 09 09 09 53 2c 20 78 6e | 6f 74 69 6d 70 09 09 7d |...S, xn|otimp..}|
|00003de0| 2c 20 2f 2a 20 20 20 39 | 20 2a 2f 0a 58 0a 58 09 |, /*   9| */.X.X.|
|00003df0| 2f 2a 20 6d 65 74 68 6f | 64 73 20 2a 2f 0a 58 7b |/* metho|ds */.X{|
|00003e00| 09 4e 55 4c 4c 2c 09 09 | 09 09 53 2c 20 63 6c 6e |.NULL,..|..S, cln|
|00003e10| 65 77 09 09 7d 2c 20 2f | 2a 20 20 31 30 20 2a 2f |ew..}, /|*  10 */|
|00003e20| 0a 58 7b 09 4e 55 4c 4c | 2c 09 09 09 09 53 2c 20 |.X{.NULL|,....S, |
|00003e30| 63 6c 69 73 6e 65 77 09 | 09 7d 2c 20 2f 2a 20 20 |clisnew.|.}, /*  |
|00003e40| 31 31 20 2a 2f 0a 58 7b | 09 4e 55 4c 4c 2c 09 09 |11 */.X{|.NULL,..|
|00003e50| 09 09 53 2c 20 63 6c 61 | 6e 73 77 65 72 09 09 7d |..S, cla|nswer..}|
|00003e60| 2c 20 2f 2a 20 20 31 32 | 20 2a 2f 0a 58 7b 09 4e |, /*  12| */.X{.N|
|00003e70| 55 4c 4c 2c 09 09 09 09 | 53 2c 20 6f 62 69 73 6e |ULL,....|S, obisn|
|00003e80| 65 77 09 09 7d 2c 20 2f | 2a 20 20 31 33 20 2a 2f |ew..}, /|*  13 */|
|00003e90| 0a 58 7b 09 4e 55 4c 4c | 2c 09 09 09 09 53 2c 20 |.X{.NULL|,....S, |
|00003ea0| 6f 62 63 6c 61 73 73 09 | 09 7d 2c 20 2f 2a 20 20 |obclass.|.}, /*  |
|00003eb0| 31 34 20 2a 2f 0a 58 7b | 09 4e 55 4c 4c 2c 09 09 |14 */.X{|.NULL,..|
|00003ec0| 09 09 53 2c 20 6f 62 73 | 68 6f 77 09 09 7d 2c 20 |..S, obs|how..}, |
|00003ed0| 2f 2a 20 20 31 35 20 2a | 2f 0a 58 7b 09 4e 55 4c |/*  15 *|/.X{.NUL|
|00003ee0| 4c 2c 09 09 09 09 53 2c | 20 78 6e 6f 74 69 6d 70 |L,....S,| xnotimp|
|00003ef0| 09 09 7d 2c 20 2f 2a 20 | 20 31 36 20 2a 2f 0a 58 |..}, /* | 16 */.X|
|00003f00| 7b 09 4e 55 4c 4c 2c 09 | 09 09 09 53 2c 20 78 6e |{.NULL,.|...S, xn|
|00003f10| 6f 74 69 6d 70 09 09 7d | 2c 20 2f 2a 20 20 31 37 |otimp..}|, /*  17|
|00003f20| 20 2a 2f 0a 58 7b 09 4e | 55 4c 4c 2c 09 09 09 09 | */.X{.N|ULL,....|
|00003f30| 53 2c 20 78 6e 6f 74 69 | 6d 70 09 09 7d 2c 20 2f |S, xnoti|mp..}, /|
|00003f40| 2a 20 20 31 38 20 2a 2f | 0a 58 7b 09 4e 55 4c 4c |*  18 */|.X{.NULL|
|00003f50| 2c 09 09 09 09 53 2c 20 | 78 6e 6f 74 69 6d 70 09 |,....S, |xnotimp.|
|00003f60| 09 7d 2c 20 2f 2a 20 20 | 31 39 20 2a 2f 0a 58 0a |.}, /*  |19 */.X.|
|00003f70| 58 09 2f 2a 20 65 76 61 | 6c 75 61 74 6f 72 20 66 |X./* eva|luator f|
|00003f80| 75 6e 63 74 69 6f 6e 73 | 20 2a 2f 0a 58 7b 09 22 |unctions| */.X{."|
|00003f90| 45 56 41 4c 22 2c 09 09 | 09 09 53 2c 20 78 65 76 |EVAL",..|..S, xev|
|00003fa0| 61 6c 09 09 7d 2c 20 2f | 2a 20 20 32 30 20 2a 2f |al..}, /|*  20 */|
|00003fb0| 0a 58 7b 09 22 41 50 50 | 4c 59 22 2c 09 09 09 53 |.X{."APP|LY",...S|
|00003fc0| 2c 20 78 61 70 70 6c 79 | 09 09 7d 2c 20 2f 2a 20 |, xapply|..}, /* |
|00003fd0| 20 32 31 20 2a 2f 0a 58 | 7b 09 22 46 55 4e 43 41 | 21 */.X|{."FUNCA|
|00003fe0| 4c 4c 22 2c 09 09 09 53 | 2c 20 78 66 75 6e 63 61 |LL",...S|, xfunca|
|00003ff0| 6c 6c 09 09 7d 2c 20 2f | 2a 20 20 32 32 20 2a 2f |ll..}, /|*  22 */|
|00004000| 0a 58 7b 09 22 51 55 4f | 54 45 22 2c 09 09 09 46 |.X{."QUO|TE",...F|
|00004010| 2c 20 78 71 75 6f 74 65 | 09 09 7d 2c 20 2f 2a 20 |, xquote|..}, /* |
|00004020| 20 32 33 20 2a 2f 0a 58 | 7b 09 22 46 55 4e 43 54 | 23 */.X|{."FUNCT|
|00004030| 49 4f 4e 22 2c 09 09 09 | 46 2c 20 78 66 75 6e 63 |ION",...|F, xfunc|
|00004040| 74 69 6f 6e 09 09 7d 2c | 20 2f 2a 20 20 32 34 20 |tion..},| /*  24 |
|00004050| 2a 2f 0a 58 7b 09 22 42 | 41 43 4b 51 55 4f 54 45 |*/.X{."B|ACKQUOTE|
|00004060| 22 2c 09 09 09 46 2c 20 | 78 62 71 75 6f 74 65 09 |",...F, |xbquote.|
|00004070| 09 7d 2c 20 2f 2a 20 20 | 32 35 20 2a 2f 0a 58 7b |.}, /*  |25 */.X{|
|00004080| 09 22 4c 41 4d 42 44 41 | 22 2c 09 09 09 46 2c 20 |."LAMBDA|",...F, |
|00004090| 78 6c 61 6d 62 64 61 09 | 09 7d 2c 20 2f 2a 20 20 |xlambda.|.}, /*  |
|000040a0| 32 36 20 2a 2f 0a 58 0a | 58 09 2f 2a 20 73 79 6d |26 */.X.|X./* sym|
|000040b0| 62 6f 6c 20 66 75 6e 63 | 74 69 6f 6e 73 20 2a 2f |bol func|tions */|
|000040c0| 0a 58 7b 09 22 53 45 54 | 22 2c 09 09 09 09 53 2c |.X{."SET|",....S,|
|000040d0| 20 78 73 65 74 09 09 09 | 7d 2c 20 2f 2a 20 20 32 | xset...|}, /*  2|
|000040e0| 37 20 2a 2f 0a 58 7b 09 | 22 53 45 54 51 22 2c 09 |7 */.X{.|"SETQ",.|
|000040f0| 09 09 09 46 2c 20 78 73 | 65 74 71 09 09 7d 2c 20 |...F, xs|etq..}, |
|00004100| 2f 2a 20 20 32 38 20 2a | 2f 0a 58 7b 09 22 53 45 |/*  28 *|/.X{."SE|
|00004110| 54 46 22 2c 09 09 09 09 | 46 2c 20 78 73 65 74 66 |TF",....|F, xsetf|
|00004120| 09 09 7d 2c 20 2f 2a 20 | 20 32 39 20 2a 2f 0a 58 |..}, /* | 29 */.X|
|00004130| 7b 09 22 44 45 46 55 4e | 22 2c 09 09 09 46 2c 20 |{."DEFUN|",...F, |
|00004140| 78 64 65 66 75 6e 09 09 | 7d 2c 20 2f 2a 20 20 33 |xdefun..|}, /*  3|
|00004150| 30 20 2a 2f 0a 58 7b 09 | 22 44 45 46 4d 41 43 52 |0 */.X{.|"DEFMACR|
|00004160| 4f 22 2c 09 09 09 46 2c | 20 78 64 65 66 6d 61 63 |O",...F,| xdefmac|
|00004170| 72 6f 09 09 7d 2c 20 2f | 2a 20 20 33 31 20 2a 2f |ro..}, /|*  31 */|
|00004180| 0a 58 7b 09 22 47 45 4e | 53 59 4d 22 2c 09 09 09 |.X{."GEN|SYM",...|
|00004190| 53 2c 20 78 67 65 6e 73 | 79 6d 09 09 7d 2c 20 2f |S, xgens|ym..}, /|
|000041a0| 2a 20 20 33 32 20 2a 2f | 0a 58 7b 09 22 4d 41 4b |*  32 */|.X{."MAK|
|000041b0| 45 2d 53 59 4d 42 4f 4c | 22 2c 09 09 09 53 2c 20 |E-SYMBOL|",...S, |
|000041c0| 78 6d 61 6b 65 73 79 6d | 62 6f 6c 09 09 7d 2c 20 |xmakesym|bol..}, |
|000041d0| 2f 2a 20 20 33 33 20 2a | 2f 0a 58 7b 09 22 49 4e |/*  33 *|/.X{."IN|
|000041e0| 54 45 52 4e 22 2c 20 09 | 09 09 53 2c 20 78 69 6e |TERN", .|..S, xin|
|000041f0| 74 65 72 6e 09 09 7d 2c | 20 2f 2a 20 20 33 34 20 |tern..},| /*  34 |
|00004200| 2a 2f 0a 58 7b 09 22 53 | 59 4d 42 4f 4c 2d 4e 41 |*/.X{."S|YMBOL-NA|
|00004210| 4d 45 22 2c 09 09 09 53 | 2c 20 78 73 79 6d 6e 61 |ME",...S|, xsymna|
|00004220| 6d 65 09 09 7d 2c 20 2f | 2a 20 20 33 35 20 2a 2f |me..}, /|*  35 */|
|00004230| 0a 58 7b 09 22 53 59 4d | 42 4f 4c 2d 56 41 4c 55 |.X{."SYM|BOL-VALU|
|00004240| 45 22 2c 09 09 09 53 2c | 20 78 73 79 6d 76 61 6c |E",...S,| xsymval|
|00004250| 75 65 09 09 7d 2c 20 2f | 2a 20 20 33 36 20 2a 2f |ue..}, /|*  36 */|
|00004260| 0a 58 7b 09 22 53 59 4d | 42 4f 4c 2d 50 4c 49 53 |.X{."SYM|BOL-PLIS|
|00004270| 54 22 2c 09 09 09 53 2c | 20 78 73 79 6d 70 6c 69 |T",...S,| xsympli|
|00004280| 73 74 09 09 7d 2c 20 2f | 2a 20 20 33 37 20 2a 2f |st..}, /|*  37 */|
|00004290| 0a 58 7b 09 22 47 45 54 | 22 2c 09 09 09 09 53 2c |.X{."GET|",....S,|
|000042a0| 20 78 67 65 74 09 09 09 | 7d 2c 20 2f 2a 20 20 33 | xget...|}, /*  3|
|000042b0| 38 20 2a 2f 0a 58 7b 09 | 22 50 55 54 50 52 4f 50 |8 */.X{.|"PUTPROP|
|000042c0| 22 2c 20 09 09 09 53 2c | 20 78 70 75 74 70 72 6f |", ...S,| xputpro|
|000042d0| 70 09 09 7d 2c 20 2f 2a | 20 20 33 39 20 2a 2f 0a |p..}, /*|  39 */.|
|000042e0| 58 7b 09 22 52 45 4d 50 | 52 4f 50 22 2c 09 09 09 |X{."REMP|ROP",...|
|000042f0| 53 2c 20 78 72 65 6d 70 | 72 6f 70 09 09 7d 2c 20 |S, xremp|rop..}, |
|00004300| 2f 2a 20 20 34 30 20 2a | 2f 0a 58 7b 09 22 48 41 |/*  40 *|/.X{."HA|
|00004310| 53 48 22 2c 09 09 09 09 | 53 2c 20 78 68 61 73 68 |SH",....|S, xhash|
|00004320| 09 09 7d 2c 20 2f 2a 20 | 20 34 31 20 2a 2f 0a 58 |..}, /* | 41 */.X|
|00004330| 0a 58 09 2f 2a 20 61 72 | 72 61 79 20 66 75 6e 63 |.X./* ar|ray func|
|00004340| 74 69 6f 6e 73 20 2a 2f | 0a 58 7b 09 22 4d 41 4b |tions */|.X{."MAK|
|00004350| 45 2d 41 52 52 41 59 22 | 2c 09 09 09 53 2c 20 78 |E-ARRAY"|,...S, x|
|00004360| 6d 6b 61 72 72 61 79 09 | 09 7d 2c 20 2f 2a 20 20 |mkarray.|.}, /*  |
|00004370| 34 32 20 2a 2f 0a 58 7b | 09 22 41 52 45 46 22 2c |42 */.X{|."AREF",|
|00004380| 09 09 09 09 53 2c 20 78 | 61 72 65 66 09 09 7d 2c |....S, x|aref..},|
|00004390| 20 2f 2a 20 20 34 33 20 | 2a 2f 0a 58 09 09 09 0a | /*  43 |*/.X....|
|000043a0| 58 09 2f 2a 20 6c 69 73 | 74 20 66 75 6e 63 74 69 |X./* lis|t functi|
|000043b0| 6f 6e 73 20 2a 2f 0a 58 | 7b 09 22 43 41 52 22 2c |ons */.X|{."CAR",|
|000043c0| 09 09 09 09 53 2c 20 78 | 63 61 72 09 09 09 7d 2c |....S, x|car...},|
|000043d0| 20 2f 2a 20 20 34 34 20 | 2a 2f 0a 58 7b 09 22 43 | /*  44 |*/.X{."C|
|000043e0| 44 52 22 2c 09 09 09 09 | 53 2c 20 78 63 64 72 09 |DR",....|S, xcdr.|
|000043f0| 09 09 7d 2c 20 2f 2a 20 | 20 34 35 20 2a 2f 0a 58 |..}, /* | 45 */.X|
|00004400| 09 09 09 0a 58 7b 09 22 | 43 41 41 52 22 2c 09 09 |....X{."|CAAR",..|
|00004410| 09 09 53 2c 20 78 63 61 | 61 72 09 09 7d 2c 20 2f |..S, xca|ar..}, /|
|00004420| 2a 20 20 34 36 20 2a 2f | 0a 58 7b 09 22 43 41 44 |*  46 */|.X{."CAD|
|00004430| 52 22 2c 09 09 09 09 53 | 2c 20 78 63 61 64 72 09 |R",....S|, xcadr.|
|00004440| 09 7d 2c 20 2f 2a 20 20 | 34 37 20 2a 2f 0a 58 7b |.}, /*  |47 */.X{|
|00004450| 09 22 43 44 41 52 22 2c | 09 09 09 09 53 2c 20 78 |."CDAR",|....S, x|
|00004460| 63 64 61 72 09 09 7d 2c | 20 2f 2a 20 20 34 38 20 |cdar..},| /*  48 |
|00004470| 2a 2f 0a 58 7b 09 22 43 | 44 44 52 22 2c 09 09 09 |*/.X{."C|DDR",...|
|00004480| 09 53 2c 20 78 63 64 64 | 72 09 09 7d 2c 20 2f 2a |.S, xcdd|r..}, /*|
|00004490| 20 20 34 39 20 2a 2f 0a | 58 0a 58 7b 09 22 43 41 |  49 */.|X.X{."CA|
|000044a0| 41 41 52 22 2c 09 09 09 | 53 2c 20 78 63 61 61 61 |AAR",...|S, xcaaa|
|000044b0| 72 09 09 7d 2c 20 2f 2a | 20 20 35 30 20 2a 2f 0a |r..}, /*|  50 */.|
|000044c0| 58 7b 09 22 43 41 41 44 | 52 22 2c 09 09 09 53 2c |X{."CAAD|R",...S,|
|000044d0| 20 78 63 61 61 64 72 09 | 09 7d 2c 20 2f 2a 20 20 | xcaadr.|.}, /*  |
|000044e0| 35 31 20 2a 2f 0a 58 7b | 09 22 43 41 44 41 52 22 |51 */.X{|."CADAR"|
|000044f0| 2c 09 09 09 53 2c 20 78 | 63 61 64 61 72 09 09 7d |,...S, x|cadar..}|
|00004500| 2c 20 2f 2a 20 20 35 32 | 20 2a 2f 0a 58 7b 09 22 |, /*  52| */.X{."|
|00004510| 43 41 44 44 52 22 2c 09 | 09 09 53 2c 20 78 63 61 |CADDR",.|..S, xca|
|00004520| 64 64 72 09 09 7d 2c 20 | 2f 2a 20 20 35 33 20 2a |ddr..}, |/*  53 *|
|00004530| 2f 0a 58 7b 09 22 43 44 | 41 41 52 22 2c 09 09 09 |/.X{."CD|AAR",...|
|00004540| 53 2c 20 78 63 64 61 61 | 72 09 09 7d 2c 20 2f 2a |S, xcdaa|r..}, /*|
|00004550| 20 20 35 34 20 2a 2f 0a | 58 7b 09 22 43 44 41 44 |  54 */.|X{."CDAD|
|00004560| 52 22 2c 09 09 09 53 2c | 20 78 63 64 61 64 72 09 |R",...S,| xcdadr.|
|00004570| 09 7d 2c 20 2f 2a 20 20 | 35 35 20 2a 2f 0a 58 7b |.}, /*  |55 */.X{|
|00004580| 09 22 43 44 44 41 52 22 | 2c 09 09 09 53 2c 20 78 |."CDDAR"|,...S, x|
|00004590| 63 64 64 61 72 09 09 7d | 2c 20 2f 2a 20 20 35 36 |cddar..}|, /*  56|
|000045a0| 20 2a 2f 0a 58 7b 09 22 | 43 44 44 44 52 22 2c 09 | */.X{."|CDDDR",.|
|000045b0| 09 09 53 2c 20 78 63 64 | 64 64 72 09 09 7d 2c 20 |..S, xcd|ddr..}, |
|000045c0| 2f 2a 20 20 35 37 20 2a | 2f 0a 58 0a 58 7b 09 22 |/*  57 *|/.X.X{."|
|000045d0| 43 41 41 41 41 52 22 2c | 20 09 09 09 53 2c 20 78 |CAAAAR",| ...S, x|
|000045e0| 63 61 61 61 61 72 09 09 | 7d 2c 20 2f 2a 20 20 35 |caaaar..|}, /*  5|
|000045f0| 38 20 2a 2f 0a 58 7b 09 | 22 43 41 41 41 44 52 22 |8 */.X{.|"CAAADR"|
|00004600| 2c 09 09 09 53 2c 20 78 | 63 61 61 61 64 72 09 09 |,...S, x|caaadr..|
|00004610| 7d 2c 20 2f 2a 20 20 35 | 39 20 2a 2f 0a 58 7b 09 |}, /*  5|9 */.X{.|
|00004620| 22 43 41 41 44 41 52 22 | 2c 09 09 09 53 2c 20 78 |"CAADAR"|,...S, x|
|00004630| 63 61 61 64 61 72 09 09 | 7d 2c 20 2f 2a 20 20 36 |caadar..|}, /*  6|
|00004640| 30 20 2a 2f 0a 58 7b 09 | 22 43 41 41 44 44 52 22 |0 */.X{.|"CAADDR"|
|00004650| 2c 09 09 09 53 2c 20 78 | 63 61 61 64 64 72 09 09 |,...S, x|caaddr..|
|00004660| 7d 2c 20 2f 2a 20 20 36 | 31 20 2a 2f 0a 58 7b 09 |}, /*  6|1 */.X{.|
|00004670| 22 43 41 44 41 41 52 22 | 2c 09 09 20 09 53 2c 20 |"CADAAR"|,.. .S, |
|00004680| 78 63 61 64 61 61 72 09 | 09 7d 2c 20 2f 2a 20 20 |xcadaar.|.}, /*  |
|00004690| 36 32 20 2a 2f 0a 58 7b | 09 22 43 41 44 41 44 52 |62 */.X{|."CADADR|
|000046a0| 22 2c 09 09 09 53 2c 20 | 78 63 61 64 61 64 72 09 |",...S, |xcadadr.|
|000046b0| 09 7d 2c 20 2f 2a 20 20 | 36 33 20 2a 2f 0a 58 7b |.}, /*  |63 */.X{|
|000046c0| 09 22 43 41 44 44 41 52 | 22 2c 09 09 09 53 2c 20 |."CADDAR|",...S, |
|000046d0| 78 63 61 64 64 61 72 09 | 09 7d 2c 20 2f 2a 20 20 |xcaddar.|.}, /*  |
|000046e0| 36 34 20 2a 2f 0a 58 7b | 09 22 43 41 44 44 44 52 |64 */.X{|."CADDDR|
|000046f0| 22 2c 09 09 09 53 2c 20 | 78 63 61 64 64 64 72 09 |",...S, |xcadddr.|
|00004700| 09 7d 2c 20 2f 2a 20 20 | 36 35 20 2a 2f 0a 58 7b |.}, /*  |65 */.X{|
|00004710| 09 22 43 44 41 41 41 52 | 22 2c 09 09 09 53 2c 20 |."CDAAAR|",...S, |
|00004720| 78 63 64 61 61 61 72 09 | 09 7d 2c 20 2f 2a 20 20 |xcdaaar.|.}, /*  |
|00004730| 36 36 20 2a 2f 0a 58 7b | 09 22 43 44 41 41 44 52 |66 */.X{|."CDAADR|
|00004740| 22 2c 09 09 09 53 2c 20 | 78 63 64 61 61 64 72 09 |",...S, |xcdaadr.|
|00004750| 09 7d 2c 20 2f 2a 20 20 | 36 37 20 2a 2f 0a 58 7b |.}, /*  |67 */.X{|
|00004760| 09 22 43 44 41 44 41 52 | 22 2c 09 09 09 53 2c 20 |."CDADAR|",...S, |
|00004770| 78 63 64 61 64 61 72 09 | 09 7d 2c 20 2f 2a 20 20 |xcdadar.|.}, /*  |
|00004780| 36 38 20 2a 2f 0a 58 7b | 09 22 43 44 41 44 44 52 |68 */.X{|."CDADDR|
|00004790| 22 2c 09 09 09 53 2c 20 | 78 63 64 61 64 64 72 09 |",...S, |xcdaddr.|
|000047a0| 09 7d 2c 20 2f 2a 20 20 | 36 39 20 2a 2f 0a 58 7b |.}, /*  |69 */.X{|
|000047b0| 09 22 43 44 44 41 41 52 | 22 2c 09 09 09 53 2c 20 |."CDDAAR|",...S, |
|000047c0| 78 63 64 64 61 61 72 09 | 09 7d 2c 20 2f 2a 20 20 |xcddaar.|.}, /*  |
|000047d0| 37 30 20 2a 2f 0a 58 7b | 09 22 43 44 44 41 44 52 |70 */.X{|."CDDADR|
|000047e0| 22 2c 09 09 09 53 2c 20 | 78 63 64 64 61 64 72 09 |",...S, |xcddadr.|
|000047f0| 09 7d 2c 20 2f 2a 20 20 | 37 31 20 2a 2f 0a 58 7b |.}, /*  |71 */.X{|
|00004800| 09 22 43 44 44 44 41 52 | 22 2c 09 09 09 53 2c 20 |."CDDDAR|",...S, |
|00004810| 78 63 64 64 64 61 72 09 | 09 7d 2c 20 2f 2a 20 20 |xcdddar.|.}, /*  |
|00004820| 37 32 20 2a 2f 0a 58 7b | 09 22 43 44 44 44 44 52 |72 */.X{|."CDDDDR|
|00004830| 22 2c 09 09 09 53 2c 20 | 78 63 64 64 64 64 72 09 |",...S, |xcddddr.|
|00004840| 09 7d 2c 20 2f 2a 20 20 | 37 33 20 2a 2f 0a 58 0a |.}, /*  |73 */.X.|
|00004850| 58 7b 09 22 43 4f 4e 53 | 22 2c 09 09 09 09 53 2c |X{."CONS|",....S,|
|00004860| 20 78 63 6f 6e 73 09 09 | 7d 2c 20 2f 2a 20 20 37 | xcons..|}, /*  7|
|00004870| 34 20 2a 2f 0a 58 7b 09 | 22 4c 49 53 54 22 2c 09 |4 */.X{.|"LIST",.|
|00004880| 09 09 09 53 2c 20 78 6c | 69 73 74 09 09 7d 2c 20 |...S, xl|ist..}, |
|00004890| 2f 2a 20 20 37 35 20 2a | 2f 0a 58 7b 09 22 41 50 |/*  75 *|/.X{."AP|
|000048a0| 50 45 4e 44 22 2c 09 09 | 09 53 2c 20 78 61 70 70 |PEND",..|.S, xapp|
|000048b0| 65 6e 64 09 09 7d 2c 20 | 2f 2a 20 20 37 36 20 2a |end..}, |/*  76 *|
|000048c0| 2f 0a 58 7b 09 22 52 45 | 56 45 52 53 45 22 2c 09 |/.X{."RE|VERSE",.|
|000048d0| 09 09 53 2c 20 78 72 65 | 76 65 72 73 65 09 09 7d |..S, xre|verse..}|
|000048e0| 2c 20 2f 2a 20 20 37 37 | 20 2a 2f 0a 58 7b 09 22 |, /*  77| */.X{."|
|000048f0| 4c 41 53 54 22 2c 09 09 | 09 09 53 2c 20 78 6c 61 |LAST",..|..S, xla|
|00004900| 73 74 09 09 7d 2c 20 2f | 2a 20 20 37 38 20 2a 2f |st..}, /|*  78 */|
|00004910| 0a 58 7b 09 22 4e 54 48 | 22 2c 09 09 09 09 53 2c |.X{."NTH|",....S,|
|00004920| 20 78 6e 74 68 09 09 09 | 7d 2c 20 2f 2a 20 20 37 | xnth...|}, /*  7|
|00004930| 39 20 2a 2f 0a 58 7b 09 | 22 4e 54 48 43 44 52 22 |9 */.X{.|"NTHCDR"|
|00004940| 2c 09 09 09 53 2c 20 78 | 6e 74 68 63 64 72 09 09 |,...S, x|nthcdr..|
|00004950| 7d 2c 20 2f 2a 20 20 38 | 30 20 2a 2f 0a 58 7b 09 |}, /*  8|0 */.X{.|
|00004960| 22 4d 45 4d 42 45 52 22 | 2c 09 09 09 53 2c 20 78 |"MEMBER"|,...S, x|
|00004970| 6d 65 6d 62 65 72 09 09 | 7d 2c 20 2f 2a 20 20 38 |member..|}, /*  8|
|00004980| 31 20 2a 2f 0a 58 7b 09 | 22 41 53 53 4f 43 22 2c |1 */.X{.|"ASSOC",|
|00004990| 09 09 09 53 2c 20 78 61 | 73 73 6f 63 09 09 7d 2c |...S, xa|ssoc..},|
|000049a0| 20 2f 2a 20 20 38 32 20 | 2a 2f 0a 58 7b 09 22 53 | /*  82 |*/.X{."S|
|000049b0| 55 42 53 54 22 2c 20 09 | 09 09 53 2c 20 78 73 75 |UBST", .|..S, xsu|
|000049c0| 62 73 74 09 09 7d 2c 20 | 2f 2a 20 20 38 33 20 2a |bst..}, |/*  83 *|
|000049d0| 2f 0a 58 7b 09 22 53 55 | 42 4c 49 53 22 2c 09 09 |/.X{."SU|BLIS",..|
|000049e0| 09 53 2c 20 78 73 75 62 | 6c 69 73 09 09 7d 2c 20 |.S, xsub|lis..}, |
|000049f0| 2f 2a 20 20 38 34 20 2a | 2f 0a 58 7b 09 22 52 45 |/*  84 *|/.X{."RE|
|00004a00| 4d 4f 56 45 22 2c 09 09 | 09 53 2c 20 78 72 65 6d |MOVE",..|.S, xrem|
|00004a10| 6f 76 65 09 09 7d 2c 20 | 2f 2a 20 20 38 35 20 2a |ove..}, |/*  85 *|
|00004a20| 2f 0a 58 7b 09 22 4c 45 | 4e 47 54 48 22 2c 09 09 |/.X{."LE|NGTH",..|
|00004a30| 09 53 2c 20 78 6c 65 6e | 67 74 68 09 09 7d 2c 20 |.S, xlen|gth..}, |
|00004a40| 2f 2a 20 20 38 36 20 2a | 2f 0a 58 7b 09 22 4d 41 |/*  86 *|/.X{."MA|
|00004a50| 50 43 22 2c 09 09 09 09 | 53 2c 20 78 6d 61 70 63 |PC",....|S, xmapc|
|00004a60| 09 09 7d 2c 20 2f 2a 20 | 20 38 37 20 2a 2f 0a 58 |..}, /* | 87 */.X|
|00004a70| 7b 09 22 4d 41 50 43 41 | 52 22 2c 09 09 09 53 2c |{."MAPCA|R",...S,|
|00004a80| 20 78 6d 61 70 63 61 72 | 09 09 7d 2c 20 2f 2a 20 | xmapcar|..}, /* |
|00004a90| 20 38 38 20 2a 2f 0a 58 | 7b 09 22 4d 41 50 4c 22 | 88 */.X|{."MAPL"|
|00004aa0| 2c 09 09 09 09 53 2c 20 | 78 6d 61 70 6c 09 09 7d |,....S, |xmapl..}|
|00004ab0| 2c 20 2f 2a 20 20 38 39 | 20 2a 2f 0a 58 7b 09 22 |, /*  89| */.X{."|
|00004ac0| 4d 41 50 4c 49 53 54 22 | 2c 09 09 09 53 2c 20 78 |MAPLIST"|,...S, x|
|00004ad0| 6d 61 70 6c 69 73 74 09 | 09 7d 2c 20 2f 2a 20 20 |maplist.|.}, /*  |
|00004ae0| 39 30 20 2a 2f 0a 58 09 | 09 09 0a 58 09 2f 2a 20 |90 */.X.|...X./* |
|00004af0| 64 65 73 74 72 75 63 74 | 69 76 65 20 6c 69 73 74 |destruct|ive list|
|00004b00| 20 66 75 6e 63 74 69 6f | 6e 73 20 2a 2f 0a 58 7b | functio|ns */.X{|
|00004b10| 09 22 52 50 4c 41 43 41 | 22 2c 09 09 09 53 2c 20 |."RPLACA|",...S, |
|00004b20| 78 72 70 6c 63 61 09 09 | 7d 2c 20 2f 2a 20 20 39 |xrplca..|}, /*  9|
|00004b30| 31 20 2a 2f 0a 58 7b 09 | 22 52 50 4c 41 43 44 22 |1 */.X{.|"RPLACD"|
|00004b40| 2c 09 09 09 53 2c 20 78 | 72 70 6c 63 64 09 09 7d |,...S, x|rplcd..}|
|00004b50| 2c 20 2f 2a 20 20 39 32 | 20 2a 2f 0a 58 7b 09 22 |, /*  92| */.X{."|
|00004b60| 4e 43 4f 4e 43 22 2c 09 | 09 09 53 2c 20 78 6e 63 |NCONC",.|..S, xnc|
|00004b70| 6f 6e 63 09 09 7d 2c 20 | 2f 2a 20 20 39 33 20 2a |onc..}, |/*  93 *|
|00004b80| 2f 0a 58 7b 09 22 44 45 | 4c 45 54 45 22 2c 09 09 |/.X{."DE|LETE",..|
|00004b90| 09 53 2c 20 78 64 65 6c | 65 74 65 09 09 7d 2c 20 |.S, xdel|ete..}, |
|00004ba0| 2f 2a 20 20 39 34 20 2a | 2f 0a 58 0a 58 09 2f 2a |/*  94 *|/.X.X./*|
|00004bb0| 20 70 72 65 64 69 63 61 | 74 65 20 66 75 6e 63 74 | predica|te funct|
|00004bc0| 69 6f 6e 73 20 2a 2f 0a | 58 7b 09 22 41 54 4f 4d |ions */.|X{."ATOM|
|00004bd0| 22 2c 09 09 09 09 53 2c | 20 78 61 74 6f 6d 09 09 |",....S,| xatom..|
|00004be0| 7d 2c 20 2f 2a 20 20 39 | 35 20 2a 2f 0a 58 7b 09 |}, /*  9|5 */.X{.|
|00004bf0| 22 53 59 4d 42 4f 4c 50 | 22 2c 09 09 09 53 2c 20 |"SYMBOLP|",...S, |
|00004c00| 78 73 79 6d 62 6f 6c 70 | 09 09 7d 2c 20 2f 2a 20 |xsymbolp|..}, /* |
|00004c10| 20 39 36 20 2a 2f 0a 58 | 7b 09 22 4e 55 4d 42 45 | 96 */.X|{."NUMBE|
|00004c20| 52 50 22 2c 09 09 09 53 | 2c 20 78 6e 75 6d 62 65 |RP",...S|, xnumbe|
|00004c30| 72 70 09 09 7d 2c 20 2f | 2a 20 20 39 37 20 2a 2f |rp..}, /|*  97 */|
|00004c40| 0a 58 7b 09 22 42 4f 55 | 4e 44 50 22 2c 09 09 09 |.X{."BOU|NDP",...|
|00004c50| 53 2c 20 78 62 6f 75 6e | 64 70 20 09 09 7d 2c 20 |S, xboun|dp ..}, |
|00004c60| 2f 2a 20 20 39 38 20 2a | 2f 0a 58 7b 09 22 4e 55 |/*  98 *|/.X{."NU|
|00004c70| 4c 4c 22 2c 09 09 09 09 | 53 2c 20 78 6e 75 6c 6c |LL",....|S, xnull|
|00004c80| 09 09 7d 2c 20 2f 2a 20 | 20 39 39 20 2a 2f 0a 58 |..}, /* | 99 */.X|
|00004c90| 7b 09 22 4c 49 53 54 50 | 22 2c 09 09 09 53 2c 20 |{."LISTP|",...S, |
|00004ca0| 78 6c 69 73 74 70 09 09 | 7d 2c 20 2f 2a 20 31 30 |xlistp..|}, /* 10|
|00004cb0| 30 20 2a 2f 0a 58 7b 09 | 22 43 4f 4e 53 50 22 2c |0 */.X{.|"CONSP",|
|00004cc0| 09 09 09 53 2c 20 78 63 | 6f 6e 73 70 09 09 7d 2c |...S, xc|onsp..},|
|00004cd0| 20 2f 2a 20 31 30 31 20 | 2a 2f 0a 58 7b 09 22 4d | /* 101 |*/.X{."M|
|00004ce0| 49 4e 55 53 50 22 2c 09 | 09 09 53 2c 20 78 6d 69 |INUSP",.|..S, xmi|
|00004cf0| 6e 75 73 70 20 09 09 7d | 2c 20 2f 2a 20 31 30 32 |nusp ..}|, /* 102|
|00004d00| 20 2a 2f 0a 58 7b 09 22 | 5a 45 52 4f 50 22 2c 09 | */.X{."|ZEROP",.|
|00004d10| 09 09 53 2c 20 78 7a 65 | 72 6f 70 09 09 7d 2c 20 |..S, xze|rop..}, |
|00004d20| 2f 2a 20 31 30 33 20 2a | 2f 0a 58 7b 09 22 50 4c |/* 103 *|/.X{."PL|
|00004d30| 55 53 50 22 2c 09 09 09 | 53 2c 20 78 70 6c 75 73 |USP",...|S, xplus|
|00004d40| 70 09 09 7d 2c 20 2f 2a | 20 31 30 34 20 2a 2f 0a |p..}, /*| 104 */.|
|00004d50| 58 7b 09 22 45 56 45 4e | 50 22 2c 09 09 09 53 2c |X{."EVEN|P",...S,|
|00004d60| 20 78 65 76 65 6e 70 09 | 09 7d 2c 20 2f 2a 20 31 | xevenp.|.}, /* 1|
|00004d70| 30 35 20 2a 2f 0a 58 7b | 09 22 4f 44 44 50 22 2c |05 */.X{|."ODDP",|
|00004d80| 09 09 09 09 53 2c 20 78 | 6f 64 64 70 09 09 7d 2c |....S, x|oddp..},|
|00004d90| 20 2f 2a 20 31 30 36 20 | 2a 2f 0a 58 7b 09 22 45 | /* 106 |*/.X{."E|
|00004da0| 51 22 2c 09 09 09 09 53 | 2c 20 78 65 71 09 09 09 |Q",....S|, xeq...|
|00004db0| 7d 2c 20 2f 2a 20 31 30 | 37 20 2a 2f 0a 58 7b 09 |}, /* 10|7 */.X{.|
|00004dc0| 22 45 51 4c 22 2c 09 09 | 09 09 53 2c 20 78 65 71 |"EQL",..|..S, xeq|
|00004dd0| 6c 09 09 09 7d 2c 20 2f | 2a 20 31 30 38 20 2a 2f |l...}, /|* 108 */|
|00004de0| 0a 58 7b 09 22 45 51 55 | 41 4c 22 2c 09 09 09 53 |.X{."EQU|AL",...S|
|00004df0| 2c 20 78 65 71 75 61 6c | 09 09 7d 2c 20 2f 2a 20 |, xequal|..}, /* |
|00004e00| 31 30 39 20 2a 2f 0a 58 | 0a 58 09 2f 2a 20 73 70 |109 */.X|.X./* sp|
|00004e10| 65 63 69 61 6c 20 66 6f | 72 6d 73 20 2a 2f 0a 58 |ecial fo|rms */.X|
|00004e20| 7b 09 22 43 4f 4e 44 22 | 2c 09 09 09 09 46 2c 20 |{."COND"|,....F, |
|00004e30| 78 63 6f 6e 64 09 09 7d | 2c 20 2f 2a 20 31 31 30 |xcond..}|, /* 110|
|00004e40| 20 2a 2f 0a 58 7b 09 22 | 43 41 53 45 22 2c 09 09 | */.X{."|CASE",..|
|00004e50| 09 09 46 2c 20 78 63 61 | 73 65 09 09 7d 2c 20 2f |..F, xca|se..}, /|
|00004e60| 2a 20 31 31 31 20 2a 2f | 0a 58 7b 09 22 41 4e 44 |* 111 */|.X{."AND|
|00004e70| 22 2c 09 09 09 09 46 2c | 20 78 61 6e 64 09 09 09 |",....F,| xand...|
|00004e80| 7d 2c 20 2f 2a 20 31 31 | 32 20 2a 2f 0a 58 7b 09 |}, /* 11|2 */.X{.|
|00004e90| 22 4f 52 22 2c 09 09 09 | 09 46 2c 20 78 6f 72 09 |"OR",...|.F, xor.|
|00004ea0| 09 09 7d 2c 20 2f 2a 20 | 31 31 33 20 2a 2f 0a 58 |..}, /* |113 */.X|
|00004eb0| 7b 09 22 4c 45 54 22 2c | 09 09 09 09 46 2c 20 78 |{."LET",|....F, x|
|00004ec0| 6c 65 74 09 09 09 7d 2c | 20 2f 2a 20 31 31 34 20 |let...},| /* 114 |
|00004ed0| 2a 2f 0a 58 7b 09 22 4c | 45 54 2a 22 2c 09 09 09 |*/.X{."L|ET*",...|
|00004ee0| 09 46 2c 20 78 6c 65 74 | 73 74 61 72 09 09 7d 2c |.F, xlet|star..},|
|00004ef0| 20 2f 2a 20 31 31 35 20 | 2a 2f 0a 58 7b 09 22 49 | /* 115 |*/.X{."I|
|00004f00| 46 22 2c 09 09 09 09 46 | 2c 20 78 69 66 09 09 09 |F",....F|, xif...|
|00004f10| 7d 2c 20 2f 2a 20 31 31 | 36 20 2a 2f 0a 58 7b 09 |}, /* 11|6 */.X{.|
|00004f20| 22 50 52 4f 47 22 2c 09 | 09 09 09 46 2c 20 78 70 |"PROG",.|...F, xp|
|00004f30| 72 6f 67 09 09 7d 2c 20 | 2f 2a 20 31 31 37 20 2a |rog..}, |/* 117 *|
|00004f40| 2f 0a 58 7b 09 22 50 52 | 4f 47 2a 22 2c 09 09 09 |/.X{."PR|OG*",...|
|00004f50| 46 2c 20 78 70 72 6f 67 | 73 74 61 72 09 09 7d 2c |F, xprog|star..},|
|00004f60| 20 2f 2a 20 31 31 38 20 | 2a 2f 0a 58 7b 09 22 50 | /* 118 |*/.X{."P|
|00004f70| 52 4f 47 31 22 2c 09 09 | 09 46 2c 20 78 70 72 6f |ROG1",..|.F, xpro|
|00004f80| 67 31 09 09 7d 2c 20 2f | 2a 20 31 31 39 20 2a 2f |g1..}, /|* 119 */|
|00004f90| 0a 58 7b 09 22 50 52 4f | 47 32 22 2c 09 09 09 46 |.X{."PRO|G2",...F|
|00004fa0| 2c 20 78 70 72 6f 67 32 | 09 09 7d 2c 20 2f 2a 20 |, xprog2|..}, /* |
|00004fb0| 31 32 30 20 2a 2f 0a 58 | 7b 09 22 50 52 4f 47 4e |120 */.X|{."PROGN|
|00004fc0| 22 2c 09 09 09 46 2c 20 | 78 70 72 6f 67 6e 09 09 |",...F, |xprogn..|
|00004fd0| 7d 2c 20 2f 2a 20 31 32 | 31 20 2a 2f 0a 58 7b 09 |}, /* 12|1 */.X{.|
|00004fe0| 22 47 4f 22 2c 09 09 09 | 09 46 2c 20 78 67 6f 09 |"GO",...|.F, xgo.|
|00004ff0| 09 09 7d 2c 20 2f 2a 20 | 31 32 32 20 2a 2f 0a 58 |..}, /* |122 */.X|
|00005000| 7b 09 22 52 45 54 55 52 | 4e 22 2c 09 09 09 46 2c |{."RETUR|N",...F,|
|00005010| 20 78 72 65 74 75 72 6e | 20 20 09 09 7d 2c 20 2f | xreturn|  ..}, /|
|00005020| 2a 20 31 32 33 20 2a 2f | 0a 58 7b 09 22 44 4f 22 |* 123 */|.X{."DO"|
|00005030| 2c 09 09 09 09 46 2c 20 | 78 64 6f 09 09 09 7d 2c |,....F, |xdo...},|
|00005040| 20 2f 2a 20 31 32 34 20 | 2a 2f 0a 58 7b 09 22 44 | /* 124 |*/.X{."D|
|00005050| 4f 2a 22 2c 09 09 09 09 | 46 2c 20 78 64 6f 73 74 |O*",....|F, xdost|
|00005060| 61 72 20 20 09 09 7d 2c | 20 2f 2a 20 31 32 35 20 |ar  ..},| /* 125 |
|00005070| 2a 2f 0a 58 7b 09 22 44 | 4f 4c 49 53 54 22 2c 09 |*/.X{."D|OLIST",.|
|00005080| 09 09 46 2c 20 78 64 6f | 6c 69 73 74 20 20 09 09 |..F, xdo|list  ..|
|00005090| 7d 2c 20 2f 2a 20 31 32 | 36 20 2a 2f 0a 58 7b 09 |}, /* 12|6 */.X{.|
|000050a0| 22 44 4f 54 49 4d 45 53 | 22 2c 09 09 09 46 2c 20 |"DOTIMES|",...F, |
|000050b0| 78 64 6f 74 69 6d 65 73 | 09 09 7d 2c 20 2f 2a 20 |xdotimes|..}, /* |
|000050c0| 31 32 37 20 2a 2f 0a 58 | 7b 09 22 43 41 54 43 48 |127 */.X|{."CATCH|
|000050d0| 22 2c 09 09 09 46 2c 20 | 78 63 61 74 63 68 09 09 |",...F, |xcatch..|
|000050e0| 7d 2c 20 2f 2a 20 31 32 | 38 20 2a 2f 0a 58 7b 09 |}, /* 12|8 */.X{.|
|000050f0| 22 54 48 52 4f 57 22 2c | 09 09 09 46 2c 20 78 74 |"THROW",|...F, xt|
|00005100| 68 72 6f 77 09 09 7d 2c | 20 2f 2a 20 31 32 39 20 |hrow..},| /* 129 |
|00005110| 2a 2f 0a 58 09 0a 58 09 | 2f 2a 20 64 65 62 75 67 |*/.X..X.|/* debug|
|00005120| 67 69 6e 67 20 61 6e 64 | 20 65 72 72 6f 72 20 68 |ging and| error h|
|00005130| 61 6e 64 6c 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |andling |function|
|00005140| 73 20 2a 2f 0a 58 7b 09 | 22 45 52 52 4f 52 22 2c |s */.X{.|"ERROR",|
|00005150| 09 09 09 53 2c 20 78 65 | 72 72 6f 72 09 09 7d 2c |...S, xe|rror..},|
|00005160| 20 2f 2a 20 31 33 30 20 | 2a 2f 0a 58 7b 09 22 43 | /* 130 |*/.X{."C|
|00005170| 45 52 52 4f 52 22 2c 09 | 09 09 53 2c 20 78 63 65 |ERROR",.|..S, xce|
|00005180| 72 72 6f 72 20 20 09 09 | 7d 2c 20 2f 2a 20 31 33 |rror  ..|}, /* 13|
|00005190| 31 20 2a 2f 0a 58 7b 09 | 22 42 52 45 41 4b 22 2c |1 */.X{.|"BREAK",|
|000051a0| 09 09 09 53 2c 20 78 62 | 72 65 61 6b 09 09 7d 2c |...S, xb|reak..},|
|000051b0| 20 2f 2a 20 31 33 32 20 | 2a 2f 0a 58 7b 09 22 43 | /* 132 |*/.X{."C|
|000051c0| 4c 45 41 4e 2d 55 50 22 | 2c 09 09 09 53 2c 20 78 |LEAN-UP"|,...S, x|
|000051d0| 63 6c 65 61 6e 75 70 09 | 09 7d 2c 20 2f 2a 20 31 |cleanup.|.}, /* 1|
|000051e0| 33 33 20 2a 2f 0a 58 7b | 09 22 54 4f 50 2d 4c 45 |33 */.X{|."TOP-LE|
|000051f0| 56 45 4c 22 2c 09 09 09 | 53 2c 20 78 74 6f 70 6c |VEL",...|S, xtopl|
|00005200| 65 76 65 6c 09 09 7d 2c | 20 2f 2a 20 31 33 34 20 |evel..},| /* 134 |
|00005210| 2a 2f 0a 58 7b 09 22 43 | 4f 4e 54 49 4e 55 45 22 |*/.X{."C|ONTINUE"|
|00005220| 2c 09 09 09 53 2c 20 78 | 63 6f 6e 74 69 6e 75 65 |,...S, x|continue|
|00005230| 09 09 7d 2c 20 2f 2a 20 | 31 33 35 20 2a 2f 0a 58 |..}, /* |135 */.X|
|00005240| 7b 09 22 45 52 52 53 45 | 54 22 2c 20 09 09 09 46 |{."ERRSE|T", ...F|
|00005250| 2c 20 78 65 72 72 73 65 | 74 20 20 09 09 7d 2c 20 |, xerrse|t  ..}, |
|00005260| 2f 2a 20 31 33 36 20 2a | 2f 0a 58 7b 09 22 42 41 |/* 136 *|/.X{."BA|
|00005270| 4b 54 52 41 43 45 22 2c | 09 09 09 53 2c 20 78 62 |KTRACE",|...S, xb|
|00005280| 61 6b 74 72 61 63 65 09 | 09 7d 2c 20 2f 2a 20 31 |aktrace.|.}, /* 1|
|00005290| 33 37 20 2a 2f 0a 58 7b | 09 22 45 56 41 4c 48 4f |37 */.X{|."EVALHO|
|000052a0| 4f 4b 22 2c 09 09 09 53 | 2c 20 78 65 76 61 6c 68 |OK",...S|, xevalh|
|000052b0| 6f 6f 6b 09 09 7d 2c 20 | 2f 2a 20 31 33 38 20 2a |ook..}, |/* 138 *|
|000052c0| 2f 0a 58 0a 58 09 2f 2a | 20 61 72 69 74 68 6d 65 |/.X.X./*| arithme|
|000052d0| 74 69 63 20 66 75 6e 63 | 74 69 6f 6e 73 20 2a 2f |tic func|tions */|
|000052e0| 0a 58 7b 09 22 54 52 55 | 4e 43 41 54 45 22 2c 09 |.X{."TRU|NCATE",.|
|000052f0| 09 09 53 2c 20 78 66 69 | 78 09 09 09 7d 2c 20 2f |..S, xfi|x...}, /|
|00005300| 2a 20 31 33 39 20 2a 2f | 0a 58 7b 09 22 46 4c 4f |* 139 */|.X{."FLO|
|00005310| 41 54 22 2c 09 09 09 53 | 2c 20 78 66 6c 6f 61 74 |AT",...S|, xfloat|
|00005320| 09 09 7d 2c 20 2f 2a 20 | 31 34 30 20 2a 2f 0a 58 |..}, /* |140 */.X|
|00005330| 7b 09 22 2b 22 2c 09 09 | 09 09 53 2c 20 78 61 64 |{."+",..|..S, xad|
|00005340| 64 09 09 09 7d 2c 20 2f | 2a 20 31 34 31 20 2a 2f |d...}, /|* 141 */|
|00005350| 0a 58 7b 09 22 2d 22 2c | 09 09 09 09 53 2c 20 78 |.X{."-",|....S, x|
|00005360| 73 75 62 09 09 09 7d 2c | 20 2f 2a 20 31 34 32 20 |sub...},| /* 142 |
|00005370| 2a 2f 0a 58 7b 09 22 2a | 22 2c 09 09 09 09 53 2c |*/.X{."*|",....S,|
|00005380| 20 78 6d 75 6c 09 09 09 | 7d 2c 20 2f 2a 20 31 34 | xmul...|}, /* 14|
|00005390| 33 20 2a 2f 0a 58 7b 09 | 22 2f 22 2c 09 09 09 09 |3 */.X{.|"/",....|
|000053a0| 53 2c 20 78 64 69 76 09 | 09 09 7d 2c 20 2f 2a 20 |S, xdiv.|..}, /* |
|000053b0| 31 34 34 20 2a 2f 0a 58 | 7b 09 22 31 2b 22 2c 09 |144 */.X|{."1+",.|
|000053c0| 09 09 09 53 2c 20 78 61 | 64 64 31 09 09 7d 2c 20 |...S, xa|dd1..}, |
|000053d0| 2f 2a 20 31 34 35 20 2a | 2f 0a 58 7b 09 22 31 2d |/* 145 *|/.X{."1-|
|000053e0| 22 2c 09 09 09 09 53 2c | 20 78 73 75 62 31 09 09 |",....S,| xsub1..|
|000053f0| 7d 2c 20 2f 2a 20 31 34 | 36 20 2a 2f 0a 58 7b 09 |}, /* 14|6 */.X{.|
|00005400| 22 52 45 4d 22 2c 09 09 | 09 09 53 2c 20 78 72 65 |"REM",..|..S, xre|
|00005410| 6d 09 09 09 7d 2c 20 2f | 2a 20 31 34 37 20 2a 2f |m...}, /|* 147 */|
|00005420| 0a 58 7b 09 22 4d 49 4e | 22 2c 09 09 09 09 53 2c |.X{."MIN|",....S,|
|00005430| 20 78 6d 69 6e 09 09 09 | 7d 2c 20 2f 2a 20 31 34 | xmin...|}, /* 14|
|00005440| 38 20 2a 2f 0a 58 7b 09 | 22 4d 41 58 22 2c 09 09 |8 */.X{.|"MAX",..|
|00005450| 09 09 53 2c 20 78 6d 61 | 78 09 09 09 7d 2c 20 2f |..S, xma|x...}, /|
|00005460| 2a 20 31 34 39 20 2a 2f | 0a 58 7b 09 22 41 42 53 |* 149 */|.X{."ABS|
|00005470| 22 2c 09 09 09 09 53 2c | 20 78 61 62 73 09 09 09 |",....S,| xabs...|
|00005480| 7d 2c 20 2f 2a 20 31 35 | 30 20 2a 2f 0a 58 7b 09 |}, /* 15|0 */.X{.|
|00005490| 22 53 49 4e 22 2c 09 09 | 09 09 53 2c 20 78 73 69 |"SIN",..|..S, xsi|
|000054a0| 6e 09 09 09 7d 2c 20 2f | 2a 20 31 35 31 20 2a 2f |n...}, /|* 151 */|
|000054b0| 0a 58 7b 09 22 43 4f 53 | 22 2c 09 09 09 09 53 2c |.X{."COS|",....S,|
|000054c0| 20 78 63 6f 73 09 09 09 | 7d 2c 20 2f 2a 20 31 35 | xcos...|}, /* 15|
|000054d0| 32 20 2a 2f 0a 58 7b 09 | 22 54 41 4e 22 2c 09 09 |2 */.X{.|"TAN",..|
|000054e0| 09 09 53 2c 20 78 74 61 | 6e 09 09 09 7d 2c 20 2f |..S, xta|n...}, /|
|000054f0| 2a 20 31 35 33 20 2a 2f | 0a 58 7b 09 22 45 58 50 |* 153 */|.X{."EXP|
|00005500| 54 22 2c 09 09 09 09 53 | 2c 20 78 65 78 70 74 09 |T",....S|, xexpt.|
|00005510| 09 7d 2c 20 2f 2a 20 31 | 35 34 20 2a 2f 0a 58 7b |.}, /* 1|54 */.X{|
|00005520| 09 22 45 58 50 22 2c 09 | 09 09 09 53 2c 20 78 65 |."EXP",.|...S, xe|
|00005530| 78 70 09 09 09 7d 2c 20 | 2f 2a 20 31 35 35 20 2a |xp...}, |/* 155 *|
|00005540| 2f 0a 58 7b 09 22 53 51 | 52 54 22 2c 09 09 20 20 |/.X{."SQ|RT",..  |
|00005550| 09 09 53 2c 20 78 73 71 | 72 74 09 09 7d 2c 20 2f |..S, xsq|rt..}, /|
|00005560| 2a 20 31 35 36 20 2a 2f | 0a 58 7b 09 22 52 41 4e |* 156 */|.X{."RAN|
|00005570| 44 4f 4d 22 2c 09 09 09 | 53 2c 20 78 72 61 6e 64 |DOM",...|S, xrand|
|00005580| 09 09 7d 2c 20 2f 2a 20 | 31 35 37 20 2a 2f 0a 58 |..}, /* |157 */.X|
|00005590| 09 09 09 0a 58 09 2f 2a | 20 62 69 74 77 69 73 65 |....X./*| bitwise|
|000055a0| 20 6c 6f 67 69 63 61 6c | 20 66 75 6e 63 74 69 6f | logical| functio|
|000055b0| 6e 73 20 2a 2f 0a 58 7b | 09 22 4c 4f 47 41 4e 44 |ns */.X{|."LOGAND|
|000055c0| 22 2c 09 09 09 53 2c 20 | 78 6c 6f 67 61 6e 64 20 |",...S, |xlogand |
|000055d0| 20 09 09 7d 2c 20 2f 2a | 20 31 35 38 20 2a 2f 0a | ..}, /*| 158 */.|
|000055e0| 58 7b 09 22 4c 4f 47 49 | 4f 52 22 2c 09 09 09 53 |X{."LOGI|OR",...S|
|000055f0| 2c 20 78 6c 6f 67 69 6f | 72 20 20 09 09 7d 2c 20 |, xlogio|r  ..}, |
|00005600| 2f 2a 20 31 35 39 20 2a | 2f 0a 58 7b 09 22 4c 4f |/* 159 *|/.X{."LO|
|00005610| 47 58 4f 52 22 2c 09 09 | 09 53 2c 20 78 6c 6f 67 |GXOR",..|.S, xlog|
|00005620| 78 6f 72 20 20 09 09 7d | 2c 20 2f 2a 20 31 36 30 |xor  ..}|, /* 160|
|00005630| 20 2a 2f 0a 58 7b 09 22 | 4c 4f 47 4e 4f 54 22 2c | */.X{."|LOGNOT",|
|00005640| 09 09 09 53 2c 20 78 6c | 6f 67 6e 6f 74 20 20 09 |...S, xl|ognot  .|
|00005650| 09 7d 2c 20 2f 2a 20 31 | 36 31 20 2a 2f 0a 58 0a |.}, /* 1|61 */.X.|
|00005660| 58 09 2f 2a 20 6e 75 6d | 65 72 69 63 20 63 6f 6d |X./* num|eric com|
|00005670| 70 61 72 69 73 6f 6e 20 | 66 75 6e 63 74 69 6f 6e |parison |function|
|00005680| 73 20 2a 2f 0a 58 7b 09 | 22 3c 22 2c 09 09 09 09 |s */.X{.|"<",....|
|00005690| 53 2c 20 78 6c 73 73 09 | 09 09 7d 2c 20 2f 2a 20 |S, xlss.|..}, /* |
|000056a0| 31 36 32 20 2a 2f 0a 58 | 7b 09 22 3c 3d 22 2c 09 |162 */.X|{."<=",.|
|000056b0| 09 09 09 53 2c 20 78 6c | 65 71 09 09 09 7d 2c 20 |...S, xl|eq...}, |
|000056c0| 2f 2a 20 31 36 33 20 2a | 2f 0a 58 7b 09 22 3d 22 |/* 163 *|/.X{."="|
|000056d0| 2c 09 09 09 09 53 2c 20 | 78 65 71 75 09 09 09 7d |,....S, |xequ...}|
|000056e0| 2c 20 2f 2a 20 31 36 34 | 20 2a 2f 0a 58 7b 09 22 |, /* 164| */.X{."|
|000056f0| 2f 3d 22 2c 09 09 09 09 | 53 2c 20 78 6e 65 71 09 |/=",....|S, xneq.|
|00005700| 09 09 7d 2c 20 2f 2a 20 | 31 36 35 20 2a 2f 0a 58 |..}, /* |165 */.X|
|00005710| 7b 09 22 3e 3d 22 2c 09 | 09 09 09 53 2c 20 78 67 |{.">=",.|...S, xg|
|00005720| 65 71 09 09 09 7d 2c 20 | 2f 2a 20 31 36 36 20 2a |eq...}, |/* 166 *|
|00005730| 2f 0a 58 7b 09 22 3e 22 | 2c 09 09 09 09 53 2c 20 |/.X{.">"|,....S, |
|00005740| 78 67 74 72 09 09 09 7d | 2c 20 2f 2a 20 31 36 37 |xgtr...}|, /* 167|
|00005750| 20 2a 2f 0a 58 09 09 09 | 0a 58 09 2f 2a 20 73 74 | */.X...|.X./* st|
|00005760| 72 69 6e 67 20 66 75 6e | 63 74 69 6f 6e 73 20 2a |ring fun|ctions *|
|00005770| 2f 0a 58 7b 09 22 53 54 | 52 43 41 54 22 2c 09 09 |/.X{."ST|RCAT",..|
|00005780| 09 53 2c 20 78 73 74 72 | 63 61 74 20 20 09 09 7d |.S, xstr|cat  ..}|
|00005790| 2c 20 2f 2a 20 31 36 38 | 20 2a 2f 0a 58 7b 09 22 |, /* 168| */.X{."|
|000057a0| 53 55 42 53 45 51 22 2c | 09 09 09 53 2c 20 78 73 |SUBSEQ",|...S, xs|
|000057b0| 75 62 73 65 71 20 20 09 | 09 7d 2c 20 2f 2a 20 31 |ubseq  .|.}, /* 1|
|000057c0| 36 39 20 2a 2f 0a 58 7b | 09 22 53 54 52 49 4e 47 |69 */.X{|."STRING|
|000057d0| 22 2c 09 09 09 53 2c 20 | 78 73 74 72 69 6e 67 20 |",...S, |xstring |
|000057e0| 20 09 09 7d 2c 20 2f 2a | 20 31 37 30 20 2a 2f 0a | ..}, /*| 170 */.|
|000057f0| 58 7b 09 22 43 48 41 52 | 22 2c 09 09 09 09 53 2c |X{."CHAR|",....S,|
|00005800| 20 78 63 68 61 72 09 09 | 7d 2c 20 2f 2a 20 31 37 | xchar..|}, /* 17|
|00005810| 31 20 2a 2f 0a 58 0a 58 | 09 2f 2a 20 49 2f 4f 20 |1 */.X.X|./* I/O |
|00005820| 66 75 6e 63 74 69 6f 6e | 73 20 2a 2f 0a 58 7b 09 |function|s */.X{.|
|00005830| 22 52 45 41 44 22 2c 09 | 09 09 09 53 2c 20 78 72 |"READ",.|...S, xr|
|00005840| 65 61 64 09 09 7d 2c 20 | 2f 2a 20 31 37 32 20 2a |ead..}, |/* 172 *|
|00005850| 2f 0a 58 7b 09 22 50 52 | 49 4e 54 22 2c 09 09 09 |/.X{."PR|INT",...|
|00005860| 53 2c 20 78 70 72 69 6e | 74 09 09 7d 2c 20 2f 2a |S, xprin|t..}, /*|
|00005870| 20 31 37 33 20 2a 2f 0a | 58 7b 09 22 50 52 49 4e | 173 */.|X{."PRIN|
|00005880| 31 22 2c 09 09 09 53 2c | 20 78 70 72 69 6e 31 09 |1",...S,| xprin1.|
|00005890| 09 7d 2c 20 2f 2a 20 31 | 37 34 20 2a 2f 0a 58 7b |.}, /* 1|74 */.X{|
|000058a0| 09 22 50 52 49 4e 43 22 | 2c 09 09 09 53 2c 20 78 |."PRINC"|,...S, x|
|000058b0| 70 72 69 6e 63 09 09 7d | 2c 20 2f 2a 20 31 37 35 |princ..}|, /* 175|
|000058c0| 20 2a 2f 0a 58 7b 09 22 | 54 45 52 50 52 49 22 2c | */.X{."|TERPRI",|
|000058d0| 09 09 09 53 2c 20 78 74 | 65 72 70 72 69 20 20 09 |...S, xt|erpri  .|
|000058e0| 09 7d 2c 20 2f 2a 20 31 | 37 36 20 2a 2f 0a 58 7b |.}, /* 1|76 */.X{|
|000058f0| 09 22 46 4c 41 54 53 49 | 5a 45 22 2c 09 09 09 53 |."FLATSI|ZE",...S|
|00005900| 2c 20 78 66 6c 61 74 73 | 69 7a 65 09 09 7d 2c 20 |, xflats|ize..}, |
|00005910| 2f 2a 20 31 37 37 20 2a | 2f 0a 58 7b 09 22 46 4c |/* 177 *|/.X{."FL|
|00005920| 41 54 43 22 2c 09 09 09 | 53 2c 20 78 66 6c 61 74 |ATC",...|S, xflat|
|00005930| 63 09 09 7d 2c 20 2f 2a | 20 31 37 38 20 2a 2f 0a |c..}, /*| 178 */.|
|00005940| 58 09 09 09 0a 58 09 2f | 2a 20 66 69 6c 65 20 49 |X....X./|* file I|
|00005950| 2f 4f 20 66 75 6e 63 74 | 69 6f 6e 73 20 2a 2f 0a |/O funct|ions */.|
|00005960| 58 7b 09 22 4f 50 45 4e | 22 2c 09 09 09 09 53 2c |X{."OPEN|",....S,|
|00005970| 20 78 6f 70 65 6e 09 09 | 7d 2c 20 2f 2a 20 31 37 | xopen..|}, /* 17|
|00005980| 39 20 2a 2f 0a 58 7b 09 | 22 46 4f 52 4d 41 54 22 |9 */.X{.|"FORMAT"|
|00005990| 2c 09 09 09 53 2c 20 78 | 66 6f 72 6d 61 74 20 20 |,...S, x|format  |
|000059a0| 09 09 7d 2c 20 2f 2a 20 | 31 38 30 20 2a 2f 0a 58 |..}, /* |180 */.X|
|000059b0| 7b 09 22 43 4c 4f 53 45 | 22 2c 09 09 09 53 2c 20 |{."CLOSE|",...S, |
|000059c0| 78 63 6c 6f 73 65 09 09 | 7d 2c 20 2f 2a 20 31 38 |xclose..|}, /* 18|
|000059d0| 31 20 2a 2f 0a 58 7b 09 | 22 52 45 41 44 2d 43 48 |1 */.X{.|"READ-CH|
|000059e0| 41 52 22 2c 09 09 09 53 | 2c 20 78 72 64 63 68 61 |AR",...S|, xrdcha|
|000059f0| 72 20 20 09 09 7d 2c 20 | 2f 2a 20 31 38 32 20 2a |r  ..}, |/* 182 *|
|00005a00| 2f 0a 58 7b 09 22 50 45 | 45 4b 2d 43 48 41 52 22 |/.X{."PE|EK-CHAR"|
|00005a10| 2c 09 09 09 53 2c 20 78 | 70 6b 63 68 61 72 20 20 |,...S, x|pkchar  |
|00005a20| 09 09 7d 2c 20 2f 2a 20 | 31 38 33 20 2a 2f 0a 58 |..}, /* |183 */.X|
|00005a30| 7b 09 22 57 52 49 54 45 | 2d 43 48 41 52 22 2c 09 |{."WRITE|-CHAR",.|
|00005a40| 09 09 53 2c 20 78 77 72 | 63 68 61 72 20 20 09 09 |..S, xwr|char  ..|
|00005a50| 7d 2c 20 2f 2a 20 31 38 | 34 20 2a 2f 0a 58 7b 09 |}, /* 18|4 */.X{.|
|00005a60| 22 52 45 41 44 2d 4c 49 | 4e 45 22 2c 09 09 09 53 |"READ-LI|NE",...S|
|00005a70| 2c 20 78 72 65 61 64 6c | 69 6e 65 09 09 7d 2c 20 |, xreadl|ine..}, |
|00005a80| 2f 2a 20 31 38 35 20 2a | 2f 0a 58 0a 58 09 2f 2a |/* 185 *|/.X.X./*|
|00005a90| 20 73 79 73 74 65 6d 20 | 66 75 6e 63 74 69 6f 6e | system |function|
|00005aa0| 73 20 2a 2f 0a 58 7b 09 | 22 4c 4f 41 44 22 2c 09 |s */.X{.|"LOAD",.|
|00005ab0| 09 09 09 53 2c 20 78 6c | 6f 61 64 09 09 7d 2c 20 |...S, xl|oad..}, |
|00005ac0| 2f 2a 20 31 38 36 20 2a | 2f 0a 58 7b 09 22 44 52 |/* 186 *|/.X{."DR|
|00005ad0| 49 42 42 4c 45 22 2c 09 | 09 09 53 2c 20 78 74 72 |IBBLE",.|..S, xtr|
|00005ae0| 61 6e 73 63 72 69 70 74 | 09 09 7d 2c 20 2f 2a 20 |anscript|..}, /* |
|00005af0| 31 38 37 20 2a 2f 0a 58 | 0a 58 2f 2a 20 66 75 6e |187 */.X|.X/* fun|
|00005b00| 63 74 69 6f 6e 73 20 73 | 70 65 63 69 66 69 63 20 |ctions s|pecific |
|00005b10| 74 6f 20 78 6c 64 6d 65 | 6d 2e 63 20 2a 2f 0a 58 |to xldme|m.c */.X|
|00005b20| 7b 09 22 47 43 22 2c 09 | 09 09 09 53 2c 20 78 67 |{."GC",.|...S, xg|
|00005b30| 63 09 09 09 7d 2c 20 2f | 2a 20 31 38 38 20 2a 2f |c...}, /|* 188 */|
|00005b40| 0a 58 7b 09 22 45 58 50 | 41 4e 44 22 2c 09 09 09 |.X{."EXP|AND",...|
|00005b50| 53 2c 20 78 65 78 70 61 | 6e 64 20 20 09 09 7d 2c |S, xexpa|nd  ..},|
|00005b60| 20 2f 2a 20 31 38 39 20 | 2a 2f 0a 58 7b 09 22 41 | /* 189 |*/.X{."A|
|00005b70| 4c 4c 4f 43 22 2c 09 09 | 09 53 2c 20 78 61 6c 6c |LLOC",..|.S, xall|
|00005b80| 6f 63 09 09 7d 2c 20 2f | 2a 20 31 39 30 20 2a 2f |oc..}, /|* 190 */|
|00005b90| 0a 58 7b 09 22 52 4f 4f | 4d 22 2c 09 09 09 09 53 |.X{."ROO|M",....S|
|00005ba0| 2c 20 78 6d 65 6d 09 09 | 09 7d 2c 20 2f 2a 20 31 |, xmem..|.}, /* 1|
|00005bb0| 39 31 20 2a 2f 0a 58 23 | 69 66 64 65 66 20 53 41 |91 */.X#|ifdef SA|
|00005bc0| 56 45 52 45 53 54 4f 52 | 45 0a 58 7b 09 22 53 41 |VERESTOR|E.X{."SA|
|00005bd0| 56 45 22 2c 09 09 09 09 | 53 2c 20 78 73 61 76 65 |VE",....|S, xsave|
|00005be0| 09 09 7d 2c 20 2f 2a 20 | 31 39 32 20 2a 2f 0a 58 |..}, /* |192 */.X|
|00005bf0| 7b 09 22 52 45 53 54 4f | 52 45 22 2c 09 09 09 53 |{."RESTO|RE",...S|
|00005c00| 2c 20 78 72 65 73 74 6f | 72 65 09 09 7d 2c 20 2f |, xresto|re..}, /|
|00005c10| 2a 20 31 39 33 20 2a 2f | 0a 58 23 65 6c 73 65 0a |* 193 */|.X#else.|
|00005c20| 58 7b 09 4e 55 4c 4c 2c | 09 09 09 09 53 2c 20 78 |X{.NULL,|....S, x|
|00005c30| 6e 6f 74 69 6d 70 09 09 | 7d 2c 20 2f 2a 20 31 39 |notimp..|}, /* 19|
|00005c40| 32 20 2a 2f 0a 58 7b 09 | 4e 55 4c 4c 2c 09 09 09 |2 */.X{.|NULL,...|
|00005c50| 09 53 2c 20 78 6e 6f 74 | 69 6d 70 09 09 7d 2c 20 |.S, xnot|imp..}, |
|00005c60| 2f 2a 20 31 39 33 20 2a | 2f 0a 58 23 65 6e 64 69 |/* 193 *|/.X#endi|
|00005c70| 66 0a 58 2f 2a 20 65 6e | 64 20 6f 66 20 66 75 6e |f.X/* en|d of fun|
|00005c80| 63 74 69 6f 6e 73 20 73 | 70 65 63 69 66 69 63 20 |ctions s|pecific |
|00005c90| 74 6f 20 78 6c 64 6d 65 | 6d 2e 63 20 2a 2f 0a 58 |to xldme|m.c */.X|
|00005ca0| 0a 58 7b 09 22 54 59 50 | 45 2d 4f 46 22 2c 09 09 |.X{."TYP|E-OF",..|
|00005cb0| 09 53 2c 20 78 74 79 70 | 65 09 09 7d 2c 20 2f 2a |.S, xtyp|e..}, /*|
|00005cc0| 20 31 39 34 20 2a 2f 0a | 58 7b 09 22 45 58 49 54 | 194 */.|X{."EXIT|
|00005cd0| 22 2c 09 09 09 09 53 2c | 20 78 65 78 69 74 09 09 |",....S,| xexit..|
|00005ce0| 7d 2c 20 2f 2a 20 31 39 | 35 20 2a 2f 0a 58 7b 09 |}, /* 19|5 */.X{.|
|00005cf0| 22 50 45 45 4b 22 2c 09 | 09 09 09 53 2c 20 78 70 |"PEEK",.|...S, xp|
|00005d00| 65 65 6b 09 09 7d 2c 20 | 2f 2a 20 31 39 36 20 2a |eek..}, |/* 196 *|
|00005d10| 2f 0a 58 7b 09 22 50 4f | 4b 45 22 2c 09 09 09 09 |/.X{."PO|KE",....|
|00005d20| 53 2c 20 78 70 6f 6b 65 | 09 09 7d 2c 20 2f 2a 20 |S, xpoke|..}, /* |
|00005d30| 31 39 37 20 2a 2f 0a 58 | 7b 09 22 41 44 44 52 45 |197 */.X|{."ADDRE|
|00005d40| 53 53 2d 4f 46 22 2c 09 | 09 09 53 2c 20 78 61 64 |SS-OF",.|..S, xad|
|00005d50| 64 72 73 09 09 7d 2c 20 | 2f 2a 20 31 39 38 20 2a |drs..}, |/* 198 *|
|00005d60| 2f 0a 58 0a 58 09 2f 2a | 20 6e 65 77 20 66 75 6e |/.X.X./*| new fun|
|00005d70| 63 74 69 6f 6e 73 20 61 | 6e 64 20 73 70 65 63 69 |ctions a|nd speci|
|00005d80| 61 6c 20 66 6f 72 6d 73 | 20 2a 2f 0a 58 7b 09 22 |al forms| */.X{."|
|00005d90| 56 45 43 54 4f 52 22 2c | 09 09 09 53 2c 20 78 76 |VECTOR",|...S, xv|
|00005da0| 65 63 74 6f 72 20 20 09 | 09 7d 2c 20 2f 2a 20 31 |ector  .|.}, /* 1|
|00005db0| 39 39 20 2a 2f 0a 58 7b | 09 22 42 4c 4f 43 4b 22 |99 */.X{|."BLOCK"|
|00005dc0| 2c 09 09 09 46 2c 20 78 | 62 6c 6f 63 6b 09 09 7d |,...F, x|block..}|
|00005dd0| 2c 20 2f 2a 20 32 30 30 | 20 2a 2f 0a 58 7b 09 22 |, /* 200| */.X{."|
|00005de0| 52 45 54 55 52 4e 2d 46 | 52 4f 4d 22 2c 09 09 09 |RETURN-F|ROM",...|
|00005df0| 46 2c 20 78 72 74 6e 66 | 72 6f 6d 09 09 7d 2c 20 |F, xrtnf|rom..}, |
|00005e00| 2f 2a 20 32 30 31 20 2a | 2f 0a 58 7b 09 22 54 41 |/* 201 *|/.X{."TA|
|00005e10| 47 42 4f 44 59 22 2c 09 | 09 09 46 2c 20 78 74 61 |GBODY",.|..F, xta|
|00005e20| 67 62 6f 64 79 09 09 7d | 2c 20 2f 2a 20 32 30 32 |gbody..}|, /* 202|
|00005e30| 20 2a 2f 0a 58 7b 09 22 | 50 53 45 54 51 22 2c 09 | */.X{."|PSETQ",.|
|00005e40| 09 09 46 2c 20 78 70 73 | 65 74 71 09 09 7d 2c 20 |..F, xps|etq..}, |
|00005e50| 2f 2a 20 32 30 33 20 2a | 2f 0a 58 7b 09 22 46 4c |/* 203 *|/.X{."FL|
|00005e60| 45 54 22 2c 09 09 09 09 | 46 2c 20 78 66 6c 65 74 |ET",....|F, xflet|
|00005e70| 09 09 7d 2c 20 2f 2a 20 | 32 30 34 20 2a 2f 0a 58 |..}, /* |204 */.X|
|00005e80| 7b 09 22 4c 41 42 45 4c | 53 22 2c 09 09 09 46 2c |{."LABEL|S",...F,|
|00005e90| 20 78 6c 61 62 65 6c 73 | 20 20 09 09 7d 2c 20 2f | xlabels|  ..}, /|
|00005ea0| 2a 20 32 30 35 20 2a 2f | 0a 58 7b 09 22 4d 41 43 |* 205 */|.X{."MAC|
|00005eb0| 52 4f 4c 45 54 22 2c 09 | 09 09 46 2c 20 78 6d 61 |ROLET",.|..F, xma|
|00005ec0| 63 72 6f 6c 65 74 09 09 | 7d 2c 20 2f 2a 20 32 30 |crolet..|}, /* 20|
|00005ed0| 36 20 2a 2f 0a 58 7b 09 | 22 55 4e 57 49 4e 44 2d |6 */.X{.|"UNWIND-|
|00005ee0| 50 52 4f 54 45 43 54 22 | 2c 09 09 46 2c 20 78 75 |PROTECT"|,..F, xu|
|00005ef0| 6e 77 69 6e 64 70 72 6f | 74 65 63 74 09 7d 2c 20 |nwindpro|tect.}, |
|00005f00| 2f 2a 20 32 30 37 20 2a | 2f 0a 58 7b 09 22 50 50 |/* 207 *|/.X{."PP|
|00005f10| 52 49 4e 54 22 2c 09 09 | 09 53 2c 20 78 70 70 09 |RINT",..|.S, xpp.|
|00005f20| 09 09 7d 2c 20 2f 2a 20 | 32 30 38 20 2a 2f 0a 58 |..}, /* |208 */.X|
|00005f30| 7b 09 22 53 54 52 49 4e | 47 3c 22 2c 09 09 09 53 |{."STRIN|G<",...S|
|00005f40| 2c 20 78 73 74 72 6c 73 | 73 20 20 09 09 7d 2c 20 |, xstrls|s  ..}, |
|00005f50| 2f 2a 20 32 30 39 20 2a | 2f 0a 58 7b 09 22 53 54 |/* 209 *|/.X{."ST|
|00005f60| 52 49 4e 47 3c 3d 22 2c | 09 09 09 53 2c 20 78 73 |RING<=",|...S, xs|
|00005f70| 74 72 6c 65 71 20 20 09 | 09 7d 2c 20 2f 2a 20 32 |trleq  .|.}, /* 2|
|00005f80| 31 30 20 2a 2f 0a 58 7b | 09 22 53 54 52 49 4e 47 |10 */.X{|."STRING|
|00005f90| 3d 22 2c 09 09 09 53 2c | 20 78 73 74 72 65 71 6c |=",...S,| xstreql|
|00005fa0| 20 20 09 09 7d 2c 20 2f | 2a 20 32 31 31 20 2a 2f |  ..}, /|* 211 */|
|00005fb0| 0a 58 7b 09 22 53 54 52 | 49 4e 47 2f 3d 22 2c 09 |.X{."STR|ING/=",.|
|00005fc0| 09 09 53 2c 20 78 73 74 | 72 6e 65 71 20 20 09 09 |..S, xst|rneq  ..|
|00005fd0| 7d 2c 20 2f 2a 20 32 31 | 32 20 2a 2f 0a 58 7b 09 |}, /* 21|2 */.X{.|
|00005fe0| 22 53 54 52 49 4e 47 3e | 3d 22 2c 09 09 09 53 2c |"STRING>|=",...S,|
|00005ff0| 20 78 73 74 72 67 65 71 | 20 20 09 09 7d 2c 20 2f | xstrgeq|  ..}, /|
|00006000| 2a 20 32 31 33 20 2a 2f | 0a 58 7b 09 22 53 54 52 |* 213 */|.X{."STR|
|00006010| 49 4e 47 3e 22 2c 09 09 | 09 53 2c 20 78 73 74 72 |ING>",..|.S, xstr|
|00006020| 67 74 72 20 20 09 09 7d | 2c 20 2f 2a 20 32 31 34 |gtr  ..}|, /* 214|
|00006030| 20 2a 2f 0a 58 7b 09 22 | 53 54 52 49 4e 47 2d 4c | */.X{."|STRING-L|
|00006040| 45 53 53 50 22 2c 09 09 | 09 53 2c 20 78 73 74 72 |ESSP",..|.S, xstr|
|00006050| 69 6c 73 73 09 09 7d 2c | 20 2f 2a 20 32 31 35 20 |ilss..},| /* 215 |
|00006060| 2a 2f 0a 58 7b 09 22 53 | 54 52 49 4e 47 2d 4e 4f |*/.X{."S|TRING-NO|
|00006070| 54 2d 47 52 45 41 54 45 | 52 50 22 2c 09 09 53 2c |T-GREATE|RP",..S,|
|00006080| 20 78 73 74 72 69 6c 65 | 71 09 09 7d 2c 20 2f 2a | xstrile|q..}, /*|
|00006090| 20 32 31 36 20 2a 2f 0a | 58 7b 09 22 53 54 52 49 | 216 */.|X{."STRI|
|000060a0| 4e 47 2d 45 51 55 41 4c | 22 2c 09 09 09 53 2c 20 |NG-EQUAL|",...S, |
|000060b0| 78 73 74 72 69 65 71 6c | 09 09 7d 2c 20 2f 2a 20 |xstrieql|..}, /* |
|000060c0| 32 31 37 20 2a 2f 0a 58 | 7b 09 22 53 54 52 49 4e |217 */.X|{."STRIN|
|000060d0| 47 2d 4e 4f 54 2d 45 51 | 55 41 4c 22 2c 09 09 53 |G-NOT-EQ|UAL",..S|
|000060e0| 2c 20 78 73 74 72 69 6e | 65 71 09 09 7d 2c 20 2f |, xstrin|eq..}, /|
|000060f0| 2a 20 32 31 38 20 2a 2f | 0a 58 7b 09 22 53 54 52 |* 218 */|.X{."STR|
|00006100| 49 4e 47 2d 4e 4f 54 2d | 4c 45 53 53 50 22 2c 09 |ING-NOT-|LESSP",.|
|00006110| 09 53 2c 20 78 73 74 72 | 69 67 65 71 09 09 7d 2c |.S, xstr|igeq..},|
|00006120| 20 2f 2a 20 32 31 39 20 | 2a 2f 0a 58 7b 09 22 53 | /* 219 |*/.X{."S|
|00006130| 54 52 49 4e 47 2d 47 52 | 45 41 54 45 52 50 22 2c |TRING-GR|EATERP",|
|00006140| 09 09 53 2c 20 78 73 74 | 72 69 67 74 72 09 09 7d |..S, xst|rigtr..}|
|00006150| 2c 20 2f 2a 20 32 32 30 | 20 2a 2f 0a 58 7b 09 22 |, /* 220| */.X{."|
|00006160| 49 4e 54 45 47 45 52 50 | 22 2c 09 09 09 53 2c 20 |INTEGERP|",...S, |
|00006170| 78 69 6e 74 65 67 65 72 | 70 09 09 7d 2c 20 2f 2a |xinteger|p..}, /*|
|00006180| 20 32 32 31 20 2a 2f 0a | 58 7b 09 22 46 4c 4f 41 | 221 */.|X{."FLOA|
|00006190| 54 50 22 2c 09 09 09 53 | 2c 20 78 66 6c 6f 61 74 |TP",...S|, xfloat|
|000061a0| 70 20 20 09 09 7d 2c 20 | 2f 2a 20 32 32 32 20 2a |p  ..}, |/* 222 *|
|000061b0| 2f 0a 58 7b 09 22 53 54 | 52 49 4e 47 50 22 2c 09 |/.X{."ST|RINGP",.|
|000061c0| 09 09 53 2c 20 78 73 74 | 72 69 6e 67 70 09 09 7d |..S, xst|ringp..}|
|000061d0| 2c 20 2f 2a 20 32 32 33 | 20 2a 2f 0a 58 7b 09 22 |, /* 223| */.X{."|
|000061e0| 41 52 52 41 59 50 22 2c | 09 09 09 53 2c 20 78 61 |ARRAYP",|...S, xa|
|000061f0| 72 72 61 79 70 20 20 09 | 09 7d 2c 20 2f 2a 20 32 |rrayp  .|.}, /* 2|
|00006200| 32 34 20 2a 2f 0a 58 7b | 09 22 53 54 52 45 41 4d |24 */.X{|."STREAM|
|00006210| 50 22 2c 09 09 09 53 2c | 20 78 73 74 72 65 61 6d |P",...S,| xstream|
|00006220| 70 09 09 7d 2c 20 2f 2a | 20 32 32 35 20 2a 2f 0a |p..}, /*| 225 */.|
|00006230| 58 7b 09 22 4f 42 4a 45 | 43 54 50 22 2c 09 09 09 |X{."OBJE|CTP",...|
|00006240| 53 2c 20 78 6f 62 6a 65 | 63 74 70 09 09 7d 2c 20 |S, xobje|ctp..}, |
|00006250| 2f 2a 20 32 32 36 20 2a | 2f 0a 58 7b 09 22 53 54 |/* 226 *|/.X{."ST|
|00006260| 52 49 4e 47 2d 55 50 43 | 41 53 45 22 2c 09 09 53 |RING-UPC|ASE",..S|
|00006270| 2c 20 78 75 70 63 61 73 | 65 20 20 09 09 7d 2c 20 |, xupcas|e  ..}, |
|00006280| 2f 2a 20 32 32 37 20 2a | 2f 0a 58 7b 09 22 53 54 |/* 227 *|/.X{."ST|
|00006290| 52 49 4e 47 2d 44 4f 57 | 4e 43 41 53 45 22 2c 09 |RING-DOW|NCASE",.|
|000062a0| 09 53 2c 20 78 64 6f 77 | 6e 63 61 73 65 09 09 7d |.S, xdow|ncase..}|
|000062b0| 2c 20 2f 2a 20 32 32 38 | 20 2a 2f 0a 58 7b 09 22 |, /* 228| */.X{."|
|000062c0| 4e 53 54 52 49 4e 47 2d | 55 50 43 41 53 45 22 2c |NSTRING-|UPCASE",|
|000062d0| 09 09 53 2c 20 78 6e 75 | 70 63 61 73 65 09 09 7d |..S, xnu|pcase..}|
|000062e0| 2c 20 2f 2a 20 32 32 39 | 20 2a 2f 0a 58 7b 09 22 |, /* 229| */.X{."|
|000062f0| 4e 53 54 52 49 4e 47 2d | 44 4f 57 4e 43 41 53 45 |NSTRING-|DOWNCASE|
|00006300| 22 2c 09 09 53 2c 20 78 | 6e 64 6f 77 6e 63 61 73 |",..S, x|ndowncas|
|00006310| 65 09 09 7d 2c 20 2f 2a | 20 32 33 30 20 2a 2f 0a |e..}, /*| 230 */.|
|00006320| 58 7b 09 22 53 54 52 49 | 4e 47 2d 54 52 49 4d 22 |X{."STRI|NG-TRIM"|
|00006330| 2c 09 09 09 53 2c 20 78 | 74 72 69 6d 09 09 7d 2c |,...S, x|trim..},|
|00006340| 20 2f 2a 20 32 33 31 20 | 2a 2f 0a 58 7b 09 22 53 | /* 231 |*/.X{."S|
|00006350| 54 52 49 4e 47 2d 4c 45 | 46 54 2d 54 52 49 4d 22 |TRING-LE|FT-TRIM"|
|00006360| 2c 09 09 53 2c 20 78 6c | 65 66 74 74 72 69 6d 09 |,..S, xl|efttrim.|
|00006370| 09 7d 2c 20 2f 2a 20 32 | 33 32 20 2a 2f 0a 58 7b |.}, /* 2|32 */.X{|
|00006380| 09 22 53 54 52 49 4e 47 | 2d 52 49 47 48 54 2d 54 |."STRING|-RIGHT-T|
|00006390| 52 49 4d 22 2c 09 09 53 | 2c 20 78 72 69 67 68 74 |RIM",..S|, xright|
|000063a0| 74 72 69 6d 09 09 7d 2c | 20 2f 2a 20 32 33 33 20 |trim..},| /* 233 |
|000063b0| 2a 2f 0a 58 7b 09 22 57 | 48 45 4e 22 2c 09 09 09 |*/.X{."W|HEN",...|
|000063c0| 09 46 2c 20 78 77 68 65 | 6e 09 09 7d 2c 20 2f 2a |.F, xwhe|n..}, /*|
|000063d0| 20 32 33 34 20 2a 2f 0a | 58 7b 09 22 55 4e 4c 45 | 234 */.|X{."UNLE|
|000063e0| 53 53 22 2c 09 09 09 46 | 2c 20 78 75 6e 6c 65 73 |SS",...F|, xunles|
|000063f0| 73 20 20 09 09 7d 2c 20 | 2f 2a 20 32 33 35 20 2a |s  ..}, |/* 235 *|
+--------+-------------------------+-------------------------+--------+--------+