/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2116

< prev

next >

MacOS 8.1

Win98

DOS

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 6c 61 6e 67 2e 70 65 | 72 6c 2c 61 6c 74 2e 73 |.lang.pe|rl,alt.s|
|00000020| 6f 75 72 63 65 73 0a 46 | 72 6f 6d 3a 20 66 6c 65 |ources.F|rom: fle|
|00000030| 65 40 67 75 61 72 64 69 | 61 6e 2e 63 73 2e 70 73 |e@guardi|an.cs.ps|
|00000040| 75 2e 65 64 75 20 28 46 | 65 6c 69 78 20 4c 65 65 |u.edu (F|elix Lee|
|00000050| 29 0a 53 75 62 6a 65 63 | 74 3a 20 53 63 68 65 6d |).Subjec|t: Schem|
|00000060| 65 20 69 6e 20 50 65 72 | 6c 3f 20 28 73 70 3f 29 |e in Per|l? (sp?)|
|00000070| 3a 20 20 54 68 65 20 43 | 6f 64 65 2e 20 20 50 61 |:  The C|ode.  Pa|
|00000080| 72 74 20 32 20 6f 66 20 | 32 2e 0a 4d 65 73 73 61 |rt 2 of |2..Messa|
|00000090| 67 65 2d 49 44 3a 20 3c | 46 21 23 2d 72 62 39 33 |ge-ID: <|F!#-rb93|
|000000a0| 40 63 73 2e 70 73 75 2e | 65 64 75 3e 0a 44 61 74 |@cs.psu.|edu>.Dat|
|000000b0| 65 3a 20 4d 6f 6e 2c 20 | 31 39 20 4e 6f 76 20 39 |e: Mon, |19 Nov 9|
|000000c0| 30 20 30 37 3a 35 35 3a | 35 39 20 47 4d 54 0a 0a |0 07:55:|59 GMT..|
|000000d0| 4a 75 73 74 20 77 68 61 | 74 20 79 6f 75 27 76 65 |Just wha|t you've|
|000000e0| 20 61 6c 6c 20 62 65 65 | 6e 20 77 61 69 74 69 6e | all bee|n waitin|
|000000f0| 67 20 66 6f 72 2c 20 61 | 20 53 63 68 65 6d 65 20 |g for, a| Scheme |
|00000100| 69 6e 74 65 72 70 72 65 | 74 65 72 20 77 72 69 74 |interpre|ter writ|
|00000110| 74 65 6e 20 69 6e 0a 50 | 65 72 6c 2e 20 20 53 65 |ten in.P|erl.  Se|
|00000120| 65 20 74 68 65 20 42 6c | 75 72 62 2c 20 69 6e 20 |e the Bl|urb, in |
|00000130| 61 20 73 65 70 61 72 61 | 74 65 20 61 72 74 69 63 |a separa|te artic|
|00000140| 6c 65 20 28 69 6e 20 63 | 6f 6d 70 2e 6c 61 6e 67 |le (in c|omp.lang|
|00000150| 2e 70 65 72 6c 29 2e 0a | 0a 41 66 74 65 72 20 75 |.perl)..|.After u|
|00000160| 6e 70 61 63 6b 69 6e 67 | 20 70 61 72 74 73 20 31 |npacking| parts 1|
|00000170| 20 61 6e 64 20 32 2c 20 | 79 6f 75 20 73 68 6f 75 | and 2, |you shou|
|00000180| 6c 64 0a 09 63 61 74 20 | 73 70 2e 70 6c 2e 70 61 |ld..cat |sp.pl.pa|
|00000190| 72 74 31 20 73 70 2e 70 | 6c 2e 70 61 72 74 32 20 |rt1 sp.p|l.part2 |
|000001a0| 3e 20 73 70 2e 70 6c 0a | 2d 2d 0a 46 65 6c 69 78 |> sp.pl.|--.Felix|
|000001b0| 20 4c 65 65 09 66 6c 65 | 65 40 63 73 2e 70 73 75 | Lee.fle|e@cs.psu|
|000001c0| 2e 65 64 75 0a 0a 23 21 | 20 2f 62 69 6e 2f 73 68 |.edu..#!| /bin/sh|
|000001d0| 0a 23 20 54 68 69 73 20 | 69 73 20 61 20 73 68 65 |.# This |is a she|
|000001e0| 6c 6c 20 61 72 63 68 69 | 76 65 2e 20 20 52 65 6d |ll archi|ve.  Rem|
|000001f0| 6f 76 65 20 61 6e 79 74 | 68 69 6e 67 20 62 65 66 |ove anyt|hing bef|
|00000200| 6f 72 65 20 74 68 69 73 | 20 6c 69 6e 65 2c 20 74 |ore this| line, t|
|00000210| 68 65 6e 20 75 6e 70 61 | 63 6b 0a 23 20 69 74 20 |hen unpa|ck.# it |
|00000220| 62 79 20 73 61 76 69 6e | 67 20 69 74 20 69 6e 74 |by savin|g it int|
|00000230| 6f 20 61 20 66 69 6c 65 | 20 61 6e 64 20 74 79 70 |o a file| and typ|
|00000240| 69 6e 67 20 22 73 68 20 | 66 69 6c 65 22 2e 20 20 |ing "sh |file".  |
|00000250| 54 6f 20 6f 76 65 72 77 | 72 69 74 65 20 65 78 69 |To overw|rite exi|
|00000260| 73 74 69 6e 67 0a 23 20 | 66 69 6c 65 73 2c 20 74 |sting.# |files, t|
|00000270| 79 70 65 20 22 73 68 20 | 66 69 6c 65 20 2d 63 22 |ype "sh |file -c"|
|00000280| 2e 20 20 59 6f 75 20 63 | 61 6e 20 61 6c 73 6f 20 |.  You c|an also |
|00000290| 66 65 65 64 20 74 68 69 | 73 20 61 73 20 73 74 61 |feed thi|s as sta|
|000002a0| 6e 64 61 72 64 20 69 6e | 70 75 74 20 76 69 61 0a |ndard in|put via.|
|000002b0| 23 20 75 6e 73 68 61 72 | 2c 20 6f 72 20 62 79 20 |# unshar|, or by |
|000002c0| 74 79 70 69 6e 67 20 22 | 73 68 20 3c 66 69 6c 65 |typing "|sh <file|
|000002d0| 22 2c 20 65 2e 67 2e 2e | 20 20 49 66 20 74 68 69 |", e.g..|  If thi|
|000002e0| 73 20 61 72 63 68 69 76 | 65 20 69 73 20 63 6f 6d |s archiv|e is com|
|000002f0| 70 6c 65 74 65 2c 20 79 | 6f 75 0a 23 20 77 69 6c |plete, y|ou.# wil|
|00000300| 6c 20 73 65 65 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |l see th|e follow|
|00000310| 69 6e 67 20 6d 65 73 73 | 61 67 65 20 61 74 20 74 |ing mess|age at t|
|00000320| 68 65 20 65 6e 64 3a 0a | 23 09 09 22 45 6e 64 20 |he end:.|#.."End |
|00000330| 6f 66 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 |of shell| archive|
|00000340| 2e 22 0a 23 20 43 6f 6e | 74 65 6e 74 73 3a 20 20 |.".# Con|tents:  |
|00000350| 73 70 2e 70 6c 2e 70 61 | 72 74 32 0a 50 41 54 48 |sp.pl.pa|rt2.PATH|
|00000360| 3d 2f 62 69 6e 3a 2f 75 | 73 72 2f 62 69 6e 3a 2f |=/bin:/u|sr/bin:/|
|00000370| 75 73 72 2f 75 63 62 20 | 3b 20 65 78 70 6f 72 74 |usr/ucb |; export|
|00000380| 20 50 41 54 48 0a 69 66 | 20 74 65 73 74 20 2d 66 | PATH.if| test -f|
|00000390| 20 27 73 70 2e 70 6c 2e | 70 61 72 74 32 27 20 2d | 'sp.pl.|part2' -|
|000003a0| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|000003b0| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |.  echo |
|000003c0| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 63 |shar: Wi|ll not c|
|000003d0| 6c 6f 62 62 65 72 20 65 | 78 69 73 74 69 6e 67 20 |lobber e|xisting |
|000003e0| 66 69 6c 65 20 5c 22 27 | 73 70 2e 70 6c 2e 70 61 |file \"'|sp.pl.pa|
|000003f0| 72 74 32 27 5c 22 0a 65 | 6c 73 65 0a 65 63 68 6f |rt2'\".e|lse.echo|
|00000400| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|00000410| 67 20 5c 22 27 73 70 2e | 70 6c 2e 70 61 72 74 32 |g \"'sp.|pl.part2|
|00000420| 27 5c 22 20 5c 28 32 30 | 37 36 30 20 63 68 61 72 |'\" \(20|760 char|
|00000430| 61 63 74 65 72 73 5c 29 | 0a 73 65 64 20 22 73 2f |acters\)|.sed "s/|
|00000440| 5e 58 2f 2f 22 20 3e 27 | 73 70 2e 70 6c 2e 70 61 |^X//" >'|sp.pl.pa|
|00000450| 72 74 32 27 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 46 |rt2' <<'|END_OF_F|
|00000460| 49 4c 45 27 0a 58 23 2d | 2d 2d 2d 2d 2d 0a 58 23 |ILE'.X#-|-----.X#|
|00000470| 2d 2d 20 53 74 72 69 6e | 67 73 2e 0a 58 23 2d 2d |-- Strin|gs..X#--|
|00000480| 2d 2d 2d 2d 0a 58 0a 58 | 26 53 55 42 52 31 28 27 |----.X.X|&SUBR1('|
|00000490| 73 74 72 69 6e 67 3f 27 | 29 3b 0a 58 73 75 62 20 |string?'|);.Xsub |
|000004a0| 73 74 72 69 6e 67 50 20 | 7b 0a 58 09 26 54 59 50 |stringP |{.X.&TYP|
|000004b0| 45 28 40 5f 5b 30 5d 29 | 20 3d 3d 20 24 54 5f 53 |E(@_[0])| == $T_S|
|000004c0| 54 52 49 4e 47 3b 0a 58 | 7d 0a 58 0a 58 26 53 55 |TRING;.X|}.X.X&SU|
|000004d0| 42 52 28 27 6d 61 6b 65 | 2d 73 74 72 69 6e 67 27 |BR('make|-string'|
|000004e0| 2c 20 31 2c 20 32 2c 20 | 24 54 5f 4e 55 4d 42 45 |, 1, 2, |$T_NUMBE|
|000004f0| 52 2c 20 24 54 5f 43 48 | 41 52 29 3b 0a 58 73 75 |R, $T_CH|AR);.Xsu|
|00000500| 62 20 6d 61 6b 65 5f 73 | 74 72 69 6e 67 20 7b 0a |b make_s|tring {.|
|00000510| 58 09 6c 6f 63 61 6c 28 | 40 73 69 70 29 20 3d 20 |X.local(|@sip) = |
|00000520| 40 5f 3b 0a 58 09 6c 6f | 63 61 6c 28 24 63 29 20 |@_;.X.lo|cal($c) |
|00000530| 3d 20 40 73 69 70 20 3e | 20 31 20 3f 20 26 43 76 |= @sip >| 1 ? &Cv|
|00000540| 61 6c 28 40 73 69 70 5b | 31 5d 29 20 3a 20 27 2e |al(@sip[|1]) : '.|
|00000550| 27 3b 0a 58 09 26 53 28 | 24 63 20 78 20 26 4e 76 |';.X.&S(|$c x &Nv|
|00000560| 61 6c 28 40 73 69 70 5b | 30 5d 29 29 3b 0a 58 7d |al(@sip[|0]));.X}|
|00000570| 0a 58 0a 58 26 53 55 42 | 52 31 28 27 73 74 72 69 |.X.X&SUB|R1('stri|
|00000580| 6e 67 2d 6c 65 6e 67 74 | 68 27 2c 20 24 54 5f 53 |ng-lengt|h', $T_S|
|00000590| 54 52 49 4e 47 29 3b 0a | 58 73 75 62 20 73 74 72 |TRING);.|Xsub str|
|000005a0| 69 6e 67 5f 6c 65 6e 67 | 74 68 20 7b 0a 58 09 26 |ing_leng|th {.X.&|
|000005b0| 4e 28 6c 65 6e 67 74 68 | 28 26 53 76 61 6c 28 40 |N(length|(&Sval(@|
|000005c0| 5f 5b 30 5d 29 29 29 3b | 0a 58 7d 0a 58 0a 58 26 |_[0])));|.X}.X.X&|
|000005d0| 53 55 42 52 32 28 27 73 | 74 72 69 6e 67 2d 72 65 |SUBR2('s|tring-re|
|000005e0| 66 27 2c 20 24 54 5f 53 | 54 52 49 4e 47 2c 20 24 |f', $T_S|TRING, $|
|000005f0| 54 5f 4e 55 4d 42 45 52 | 29 3b 0a 58 73 75 62 20 |T_NUMBER|);.Xsub |
|00000600| 73 74 72 69 6e 67 5f 72 | 65 66 20 7b 0a 58 09 26 |string_r|ef {.X.&|
|00000610| 43 28 73 75 62 73 74 72 | 28 26 53 76 61 6c 28 40 |C(substr|(&Sval(@|
|00000620| 5f 5b 30 5d 29 2c 20 26 | 4e 76 61 6c 28 40 5f 5b |_[0]), &|Nval(@_[|
|00000630| 31 5d 29 2c 20 31 29 29 | 3b 0a 58 7d 0a 58 0a 58 |1]), 1))|;.X}.X.X|
|00000640| 26 53 55 42 52 33 28 27 | 73 74 72 69 6e 67 2d 73 |&SUBR3('|string-s|
|00000650| 65 74 21 27 2c 20 24 54 | 5f 53 54 52 49 4e 47 2c |et!', $T|_STRING,|
|00000660| 20 24 54 5f 4e 55 4d 42 | 45 52 2c 20 24 54 5f 43 | $T_NUMB|ER, $T_C|
|00000670| 48 41 52 29 3b 0a 58 73 | 75 62 20 73 74 72 69 6e |HAR);.Xs|ub strin|
|00000680| 67 5f 73 65 74 49 20 7b | 0a 58 09 26 53 73 65 74 |g_setI {|.X.&Sset|
|00000690| 28 40 5f 5b 30 5d 2c 20 | 26 4e 76 61 6c 28 40 5f |(@_[0], |&Nval(@_|
|000006a0| 5b 31 5d 29 2c 20 31 2c | 20 26 43 76 61 6c 28 40 |[1]), 1,| &Cval(@|
|000006b0| 5f 5b 32 5d 29 29 3b 09 | 23 20 58 58 58 20 64 6f |_[2]));.|# XXX do|
|000006c0| 6d 61 69 6e 20 65 72 72 | 6f 72 2e 0a 58 09 24 54 |main err|or..X.$T|
|000006d0| 52 55 45 3b 0a 58 7d 0a | 58 0a 58 26 43 4d 50 5f |RUE;.X}.|X.X&CMP_|
|000006e0| 53 55 42 52 28 27 73 74 | 72 69 6e 67 3d 3f 27 2c |SUBR('st|ring=?',|
|000006f0| 20 27 73 74 72 69 6e 67 | 2d 65 71 3f 27 2c 20 24 | 'string|-eq?', $|
|00000700| 54 5f 53 54 52 49 4e 47 | 2c 20 27 26 53 76 61 6c |T_STRING|, '&Sval|
|00000710| 27 2c 20 27 65 71 27 29 | 3b 0a 58 26 43 4d 50 5f |', 'eq')|;.X&CMP_|
|00000720| 53 55 42 52 28 27 73 74 | 72 69 6e 67 3c 3f 27 2c |SUBR('st|ring<?',|
|00000730| 20 27 73 74 72 69 6e 67 | 2d 6c 74 3f 27 2c 20 24 | 'string|-lt?', $|
|00000740| 54 5f 53 54 52 49 4e 47 | 2c 20 27 26 53 76 61 6c |T_STRING|, '&Sval|
|00000750| 27 2c 20 27 6c 74 27 29 | 3b 0a 58 26 43 4d 50 5f |', 'lt')|;.X&CMP_|
|00000760| 53 55 42 52 28 27 73 74 | 72 69 6e 67 3e 3f 27 2c |SUBR('st|ring>?',|
|00000770| 20 27 73 74 72 69 6e 67 | 2d 67 74 3f 27 2c 20 24 | 'string|-gt?', $|
|00000780| 54 5f 53 54 52 49 4e 47 | 2c 20 27 26 53 76 61 6c |T_STRING|, '&Sval|
|00000790| 27 2c 20 27 67 74 27 29 | 3b 0a 58 26 43 4d 50 5f |', 'gt')|;.X&CMP_|
|000007a0| 53 55 42 52 28 27 73 74 | 72 69 6e 67 3c 3d 3f 27 |SUBR('st|ring<=?'|
|000007b0| 2c 20 27 73 74 72 69 6e | 67 2d 6c 65 3f 27 2c 20 |, 'strin|g-le?', |
|000007c0| 24 54 5f 53 54 52 49 4e | 47 2c 20 27 26 53 76 61 |$T_STRIN|G, '&Sva|
|000007d0| 6c 27 2c 20 27 6c 65 27 | 29 3b 0a 58 26 43 4d 50 |l', 'le'|);.X&CMP|
|000007e0| 5f 53 55 42 52 28 27 73 | 74 72 69 6e 67 3e 3d 3f |_SUBR('s|tring>=?|
|000007f0| 27 2c 20 27 73 74 72 69 | 6e 67 2d 67 65 3f 27 2c |', 'stri|ng-ge?',|
|00000800| 20 24 54 5f 53 54 52 49 | 4e 47 2c 20 27 26 53 76 | $T_STRI|NG, '&Sv|
|00000810| 61 6c 27 2c 20 27 67 65 | 27 29 3b 0a 58 0a 58 73 |al', 'ge|');.X.Xs|
|00000820| 75 62 20 63 69 53 76 61 | 6c 20 7b 0a 58 09 6c 6f |ub ciSva|l {.X.lo|
|00000830| 63 61 6c 28 24 5f 29 20 | 3d 20 26 53 76 61 6c 28 |cal($_) |= &Sval(|
|00000840| 40 5f 5b 30 5d 29 3b 0a | 58 09 74 72 2f 41 2d 5a |@_[0]);.|X.tr/A-Z|
|00000850| 2f 61 2d 7a 2f 3b 0a 58 | 09 24 5f 3b 0a 58 7d 0a |/a-z/;.X|.$_;.X}.|
|00000860| 58 26 43 4d 50 5f 53 55 | 42 52 28 27 73 74 72 69 |X&CMP_SU|BR('stri|
|00000870| 6e 67 2d 63 69 3d 3f 27 | 2c 20 27 73 74 72 69 6e |ng-ci=?'|, 'strin|
|00000880| 67 2d 63 69 2d 65 71 3f | 27 2c 20 24 54 5f 53 54 |g-ci-eq?|', $T_ST|
|00000890| 52 49 4e 47 2c 20 27 26 | 63 69 53 76 61 6c 27 2c |RING, '&|ciSval',|
|000008a0| 20 27 65 71 27 29 3b 0a | 58 26 43 4d 50 5f 53 55 | 'eq');.|X&CMP_SU|
|000008b0| 42 52 28 27 73 74 72 69 | 6e 67 2d 63 69 3c 3f 27 |BR('stri|ng-ci<?'|
|000008c0| 2c 20 27 73 74 72 69 6e | 67 2d 63 69 2d 6c 74 3f |, 'strin|g-ci-lt?|
|000008d0| 27 2c 20 24 54 5f 53 54 | 52 49 4e 47 2c 20 27 26 |', $T_ST|RING, '&|
|000008e0| 63 69 53 76 61 6c 27 2c | 20 27 6c 74 27 29 3b 0a |ciSval',| 'lt');.|
|000008f0| 58 26 43 4d 50 5f 53 55 | 42 52 28 27 73 74 72 69 |X&CMP_SU|BR('stri|
|00000900| 6e 67 2d 63 69 3e 3f 27 | 2c 20 27 73 74 72 69 6e |ng-ci>?'|, 'strin|
|00000910| 67 2d 63 69 2d 67 74 3f | 27 2c 20 24 54 5f 53 54 |g-ci-gt?|', $T_ST|
|00000920| 52 49 4e 47 2c 20 27 26 | 63 69 53 76 61 6c 27 2c |RING, '&|ciSval',|
|00000930| 20 27 67 74 27 29 3b 0a | 58 26 43 4d 50 5f 53 55 | 'gt');.|X&CMP_SU|
|00000940| 42 52 28 27 73 74 72 69 | 6e 67 2d 63 69 3c 3d 3f |BR('stri|ng-ci<=?|
|00000950| 27 2c 20 27 73 74 72 69 | 6e 67 2d 63 69 2d 6c 65 |', 'stri|ng-ci-le|
|00000960| 3f 27 2c 20 24 54 5f 53 | 54 52 49 4e 47 2c 20 27 |?', $T_S|TRING, '|
|00000970| 26 63 69 53 76 61 6c 27 | 2c 20 27 6c 65 27 29 3b |&ciSval'|, 'le');|
|00000980| 0a 58 26 43 4d 50 5f 53 | 55 42 52 28 27 73 74 72 |.X&CMP_S|UBR('str|
|00000990| 69 6e 67 2d 63 69 3e 3d | 3f 27 2c 20 27 73 74 72 |ing-ci>=|?', 'str|
|000009a0| 69 6e 67 2d 63 69 2d 67 | 65 3f 27 2c 20 24 54 5f |ing-ci-g|e?', $T_|
|000009b0| 53 54 52 49 4e 47 2c 20 | 27 26 63 69 53 76 61 6c |STRING, |'&ciSval|
|000009c0| 27 2c 20 27 67 65 27 29 | 3b 0a 58 0a 58 26 53 55 |', 'ge')|;.X.X&SU|
|000009d0| 42 52 33 28 27 73 75 62 | 73 74 72 69 6e 67 27 2c |BR3('sub|string',|
|000009e0| 20 24 54 5f 53 54 52 49 | 4e 47 2c 20 24 54 5f 4e | $T_STRI|NG, $T_N|
|000009f0| 55 4d 42 45 52 2c 20 24 | 54 5f 4e 55 4d 42 45 52 |UMBER, $|T_NUMBER|
|00000a00| 29 3b 0a 58 73 75 62 20 | 73 75 62 73 74 72 69 6e |);.Xsub |substrin|
|00000a10| 67 20 7b 0a 58 09 6c 6f | 63 61 6c 28 40 73 69 70 |g {.X.lo|cal(@sip|
|00000a20| 29 20 3d 20 40 5f 3b 0a | 58 09 6c 6f 63 61 6c 28 |) = @_;.|X.local(|
|00000a30| 24 70 29 20 3d 20 26 4e | 76 61 6c 28 40 73 69 70 |$p) = &N|val(@sip|
|00000a40| 5b 31 5d 29 3b 0a 58 09 | 26 53 28 73 75 62 73 74 |[1]);.X.|&S(subst|
|00000a50| 72 28 26 53 76 61 6c 28 | 40 73 69 70 5b 30 5d 29 |r(&Sval(|@sip[0])|
|00000a60| 2c 20 24 70 2c 20 26 4e | 76 61 6c 28 40 73 69 70 |, $p, &N|val(@sip|
|00000a70| 5b 32 5d 29 20 2d 20 24 | 70 29 29 3b 0a 58 7d 0a |[2]) - $|p));.X}.|
|00000a80| 58 0a 58 26 53 55 42 52 | 4e 28 27 73 74 72 69 6e |X.X&SUBR|N('strin|
|00000a90| 67 2d 61 70 70 65 6e 64 | 27 2c 20 24 54 5f 53 54 |g-append|', $T_ST|
|00000aa0| 52 49 4e 47 29 3b 0a 58 | 73 75 62 20 73 74 72 69 |RING);.X|sub stri|
|00000ab0| 6e 67 5f 61 70 70 65 6e | 64 20 7b 0a 58 09 6c 6f |ng_appen|d {.X.lo|
|00000ac0| 63 61 6c 28 40 73 69 70 | 29 20 3d 20 40 5f 3b 0a |cal(@sip|) = @_;.|
|00000ad0| 58 09 6c 6f 63 61 6c 28 | 24 73 29 20 3d 20 27 27 |X.local(|$s) = ''|
|00000ae0| 3b 0a 58 09 24 73 20 2e | 3d 20 26 53 76 61 6c 28 |;.X.$s .|= &Sval(|
|00000af0| 73 68 69 66 74 20 40 73 | 69 70 29 20 77 68 69 6c |shift @s|ip) whil|
|00000b00| 65 20 40 73 69 70 3b 0a | 58 09 26 53 28 24 73 29 |e @sip;.|X.&S($s)|
|00000b10| 3b 0a 58 7d 0a 58 0a 58 | 26 53 55 42 52 31 28 27 |;.X}.X.X|&SUBR1('|
|00000b20| 73 74 72 69 6e 67 2d 3e | 6c 69 73 74 27 2c 20 24 |string->|list', $|
|00000b30| 54 5f 53 54 52 49 4e 47 | 29 3b 0a 58 73 75 62 20 |T_STRING|);.Xsub |
|00000b40| 73 74 72 69 6e 67 5f 32 | 6c 69 73 74 20 7b 0a 58 |string_2|list {.X|
|00000b50| 09 6c 6f 63 61 6c 28 40 | 73 69 70 29 20 3d 20 40 |.local(@|sip) = @|
|00000b60| 5f 3b 0a 58 09 6c 6f 63 | 61 6c 28 24 70 29 20 3d |_;.X.loc|al($p) =|
|00000b70| 20 24 4e 49 4c 3b 0a 58 | 09 66 6f 72 20 24 63 20 | $NIL;.X|.for $c |
|00000b80| 28 72 65 76 65 72 73 65 | 20 73 70 6c 69 74 28 2f |(reverse| split(/|
|00000b90| 2f 2c 20 26 53 76 61 6c | 28 40 73 69 70 5b 30 5d |/, &Sval|(@sip[0]|
|00000ba0| 29 29 29 20 7b 0a 58 09 | 09 24 70 20 3d 20 26 50 |))) {.X.|.$p = &P|
|00000bb0| 28 26 43 28 24 63 29 2c | 20 24 70 29 3b 0a 58 09 |(&C($c),| $p);.X.|
|00000bc0| 7d 0a 58 09 24 70 3b 0a | 58 7d 0a 58 0a 58 26 53 |}.X.$p;.|X}.X.X&S|
|00000bd0| 55 42 52 31 28 27 6c 69 | 73 74 2d 3e 73 74 72 69 |UBR1('li|st->stri|
|00000be0| 6e 67 27 2c 20 24 54 5f | 4c 49 53 54 29 3b 0a 58 |ng', $T_|LIST);.X|
|00000bf0| 73 75 62 20 6c 69 73 74 | 5f 32 73 74 72 69 6e 67 |sub list|_2string|
|00000c00| 20 7b 0a 58 09 6c 6f 63 | 61 6c 28 24 70 29 20 3d | {.X.loc|al($p) =|
|00000c10| 20 40 5f 3b 0a 58 09 6c | 6f 63 61 6c 28 24 73 29 | @_;.X.l|ocal($s)|
|00000c20| 20 3d 20 27 27 3b 0a 58 | 09 6c 6f 63 61 6c 28 24 | = '';.X|.local($|
|00000c30| 61 29 3b 0a 58 09 77 68 | 69 6c 65 20 28 24 70 20 |a);.X.wh|ile ($p |
|00000c40| 6e 65 20 24 4e 49 4c 29 | 20 7b 09 23 20 58 58 58 |ne $NIL)| {.# XXX|
|00000c50| 20 69 6d 70 72 6f 70 65 | 72 20 6c 69 73 74 73 2e | imprope|r lists.|
|00000c60| 0a 58 09 09 28 24 61 2c | 20 24 70 29 20 3d 20 26 |.X..($a,| $p) = &|
|00000c70| 50 76 61 6c 28 24 70 29 | 3b 0a 58 09 09 26 43 48 |Pval($p)|;.X..&CH|
|00000c80| 4b 74 79 70 65 28 24 61 | 2c 20 24 54 5f 43 48 41 |Ktype($a|, $T_CHA|
|00000c90| 52 2c 20 27 6c 69 73 74 | 2d 3e 73 74 72 69 6e 67 |R, 'list|->string|
|00000ca0| 27 29 3b 0a 58 09 09 24 | 73 20 3d 20 24 73 20 2e |');.X..$|s = $s .|
|00000cb0| 20 26 43 76 61 6c 28 24 | 61 29 3b 0a 58 09 7d 0a | &Cval($|a);.X.}.|
|00000cc0| 58 09 26 53 28 24 73 29 | 3b 0a 58 7d 0a 58 0a 58 |X.&S($s)|;.X}.X.X|
|00000cd0| 26 53 55 42 52 31 28 27 | 73 74 72 69 6e 67 2d 63 |&SUBR1('|string-c|
|00000ce0| 6f 70 79 27 2c 20 24 54 | 5f 53 54 52 49 4e 47 29 |opy', $T|_STRING)|
|00000cf0| 3b 0a 58 73 75 62 20 73 | 74 72 69 6e 67 5f 63 6f |;.Xsub s|tring_co|
|00000d00| 70 79 20 7b 0a 58 09 26 | 53 28 26 53 76 61 6c 28 |py {.X.&|S(&Sval(|
|00000d10| 40 5f 5b 30 5d 29 29 3b | 0a 58 7d 0a 58 0a 58 26 |@_[0]));|.X}.X.X&|
|00000d20| 53 55 42 52 32 28 27 73 | 74 72 69 6e 67 2d 66 69 |SUBR2('s|tring-fi|
|00000d30| 6c 6c 21 27 2c 20 24 54 | 5f 53 54 52 49 4e 47 2c |ll!', $T|_STRING,|
|00000d40| 20 24 54 5f 43 48 41 52 | 29 3b 0a 58 73 75 62 20 | $T_CHAR|);.Xsub |
|00000d50| 73 74 72 69 6e 67 5f 66 | 69 6c 6c 49 20 7b 0a 58 |string_f|illI {.X|
|00000d60| 09 6c 6f 63 61 6c 28 40 | 73 69 70 29 20 3d 20 40 |.local(@|sip) = @|
|00000d70| 5f 3b 0a 58 09 6c 6f 63 | 61 6c 28 24 73 2c 20 24 |_;.X.loc|al($s, $|
|00000d80| 63 29 20 3d 20 40 73 69 | 70 3b 0a 58 09 6c 6f 63 |c) = @si|p;.X.loc|
|00000d90| 61 6c 28 24 6c 65 6e 29 | 20 3d 20 6c 65 6e 67 74 |al($len)| = lengt|
|00000da0| 68 28 26 53 76 61 6c 28 | 24 73 29 29 3b 0a 58 09 |h(&Sval(|$s));.X.|
|00000db0| 26 53 73 65 74 28 24 73 | 2c 20 30 2c 20 24 6c 65 |&Sset($s|, 0, $le|
|00000dc0| 6e 2c 20 26 43 76 61 6c | 28 24 63 29 20 78 20 24 |n, &Cval|($c) x $|
|00000dd0| 6c 65 6e 29 3b 0a 58 09 | 24 54 52 55 45 3b 0a 58 |len);.X.|$TRUE;.X|
|00000de0| 7d 0a 58 0a 58 23 2d 2d | 2d 2d 2d 2d 0a 58 23 2d |}.X.X#--|----.X#-|
|00000df0| 2d 20 56 65 63 74 6f 72 | 73 2e 0a 58 23 2d 2d 2d |- Vector|s..X#---|
|00000e00| 2d 2d 2d 0a 58 0a 58 26 | 53 55 42 52 31 28 27 76 |---.X.X&|SUBR1('v|
|00000e10| 65 63 74 6f 72 3f 27 29 | 3b 0a 58 73 75 62 20 76 |ector?')|;.Xsub v|
|00000e20| 65 63 74 6f 72 50 20 7b | 0a 58 09 26 54 59 50 45 |ectorP {|.X.&TYPE|
|00000e30| 28 40 5f 5b 30 5d 29 20 | 3d 3d 20 24 54 5f 56 45 |(@_[0]) |== $T_VE|
|00000e40| 43 54 4f 52 3b 0a 58 7d | 0a 58 0a 58 26 53 55 42 |CTOR;.X}|.X.X&SUB|
|00000e50| 52 28 27 6d 61 6b 65 2d | 76 65 63 74 6f 72 27 2c |R('make-|vector',|
|00000e60| 20 31 2c 20 32 2c 20 24 | 54 5f 4e 55 4d 42 45 52 | 1, 2, $|T_NUMBER|
|00000e70| 29 3b 0a 58 73 75 62 20 | 6d 61 6b 65 5f 76 65 63 |);.Xsub |make_vec|
|00000e80| 74 6f 72 20 7b 0a 58 09 | 6c 6f 63 61 6c 28 40 73 |tor {.X.|local(@s|
|00000e90| 69 70 29 20 3d 20 40 5f | 3b 0a 58 09 6c 6f 63 61 |ip) = @_|;.X.loca|
|00000ea0| 6c 28 24 6e 29 20 3d 20 | 26 4e 76 61 6c 28 40 73 |l($n) = |&Nval(@s|
|00000eb0| 69 70 5b 30 5d 29 3b 0a | 58 09 6c 6f 63 61 6c 28 |ip[0]);.|X.local(|
|00000ec0| 24 78 29 20 3d 20 40 73 | 69 70 20 3e 20 31 20 3f |$x) = @s|ip > 1 ?|
|00000ed0| 20 40 73 69 70 5b 31 5d | 20 3a 20 24 46 41 4c 53 | @sip[1]| : $FALS|
|00000ee0| 45 3b 0a 58 09 6c 6f 63 | 61 6c 28 40 76 29 3b 0a |E;.X.loc|al(@v);.|
|00000ef0| 58 09 24 23 76 20 3d 20 | 24 6e 20 2d 20 31 3b 0a |X.$#v = |$n - 1;.|
|00000f00| 58 09 66 6f 72 20 24 6b | 20 28 40 76 29 20 7b 20 |X.for $k| (@v) { |
|00000f10| 24 6b 20 3d 20 24 78 3b | 20 7d 0a 58 09 26 56 28 |$k = $x;| }.X.&V(|
|00000f20| 40 76 29 3b 0a 58 7d 0a | 58 0a 58 26 44 45 46 28 |@v);.X}.|X.X&DEF(|
|00000f30| 27 76 65 63 74 6f 72 27 | 2c 20 26 53 55 42 52 4e |'vector'|, &SUBRN|
|00000f40| 28 27 56 27 29 29 3b 0a | 58 0a 58 26 53 55 42 52 |('V'));.|X.X&SUBR|
|00000f50| 31 28 27 76 65 63 74 6f | 72 2d 6c 65 6e 67 74 68 |1('vecto|r-length|
|00000f60| 27 2c 20 24 54 5f 56 45 | 43 54 4f 52 29 3b 0a 58 |', $T_VE|CTOR);.X|
|00000f70| 73 75 62 20 76 65 63 74 | 6f 72 5f 6c 65 6e 67 74 |sub vect|or_lengt|
|00000f80| 68 20 7b 0a 58 09 26 4e | 28 26 56 76 61 6c 28 40 |h {.X.&N|(&Vval(@|
|00000f90| 5f 5b 30 5d 29 20 2b 20 | 30 29 3b 0a 58 7d 0a 58 |_[0]) + |0);.X}.X|
|00000fa0| 0a 58 26 53 55 42 52 32 | 28 27 76 65 63 74 6f 72 |.X&SUBR2|('vector|
|00000fb0| 2d 72 65 66 27 2c 20 24 | 54 5f 56 45 43 54 4f 52 |-ref', $|T_VECTOR|
|00000fc0| 2c 20 24 54 5f 4e 55 4d | 42 45 52 29 3b 0a 58 73 |, $T_NUM|BER);.Xs|
|00000fd0| 75 62 20 76 65 63 74 6f | 72 5f 72 65 66 20 7b 0a |ub vecto|r_ref {.|
|00000fe0| 58 09 28 26 56 76 61 6c | 28 40 5f 5b 30 5d 29 29 |X.(&Vval|(@_[0]))|
|00000ff0| 5b 26 4e 76 61 6c 28 40 | 5f 5b 31 5d 29 5d 3b 0a |[&Nval(@|_[1])];.|
|00001000| 58 7d 0a 58 0a 58 26 53 | 55 42 52 33 28 27 76 65 |X}.X.X&S|UBR3('ve|
|00001010| 63 74 6f 72 2d 73 65 74 | 21 27 2c 20 24 54 5f 56 |ctor-set|!', $T_V|
|00001020| 45 43 54 4f 52 2c 20 24 | 54 5f 4e 55 4d 42 45 52 |ECTOR, $|T_NUMBER|
|00001030| 2c 20 24 54 5f 41 4e 59 | 29 3b 0a 58 73 75 62 20 |, $T_ANY|);.Xsub |
|00001040| 76 65 63 74 6f 72 5f 73 | 65 74 49 20 7b 0a 58 09 |vector_s|etI {.X.|
|00001050| 26 56 73 65 74 28 40 5f | 5b 30 5d 2c 20 26 4e 76 |&Vset(@_|[0], &Nv|
|00001060| 61 6c 28 40 5f 5b 31 5d | 29 2c 20 31 2c 20 40 5f |al(@_[1]|), 1, @_|
|00001070| 5b 32 5d 29 3b 0a 58 7d | 0a 58 0a 58 26 53 55 42 |[2]);.X}|.X.X&SUB|
|00001080| 52 31 28 27 76 65 63 74 | 6f 72 2d 63 6f 70 79 27 |R1('vect|or-copy'|
|00001090| 2c 20 24 54 5f 56 45 43 | 54 4f 52 29 3b 0a 58 73 |, $T_VEC|TOR);.Xs|
|000010a0| 75 62 20 76 65 63 74 6f | 72 5f 63 6f 70 79 20 7b |ub vecto|r_copy {|
|000010b0| 0a 58 09 26 56 28 26 56 | 76 61 6c 28 40 5f 5b 30 |.X.&V(&V|val(@_[0|
|000010c0| 5d 29 29 3b 0a 58 7d 0a | 58 0a 58 26 53 55 42 52 |]));.X}.|X.X&SUBR|
|000010d0| 31 28 27 76 65 63 74 6f | 72 2d 3e 6c 69 73 74 27 |1('vecto|r->list'|
|000010e0| 2c 20 24 54 5f 56 45 43 | 54 4f 52 29 3b 0a 58 73 |, $T_VEC|TOR);.Xs|
|000010f0| 75 62 20 76 65 63 74 6f | 72 5f 32 6c 69 73 74 20 |ub vecto|r_2list |
|00001100| 7b 0a 58 09 26 4c 28 26 | 56 76 61 6c 28 40 5f 5b |{.X.&L(&|Vval(@_[|
|00001110| 30 5d 29 29 3b 0a 58 7d | 0a 58 0a 58 26 53 55 42 |0]));.X}|.X.X&SUB|
|00001120| 52 31 28 27 6c 69 73 74 | 2d 3e 76 65 63 74 6f 72 |R1('list|->vector|
|00001130| 27 2c 20 24 54 5f 4c 49 | 53 54 29 3b 0a 58 73 75 |', $T_LI|ST);.Xsu|
|00001140| 62 20 6c 69 73 74 5f 32 | 76 65 63 74 6f 72 20 7b |b list_2|vector {|
|00001150| 0a 58 09 26 56 28 26 4c | 76 61 6c 28 40 5f 5b 30 |.X.&V(&L|val(@_[0|
|00001160| 5d 29 29 3b 09 23 20 58 | 58 58 20 69 6d 70 72 6f |]));.# X|XX impro|
|00001170| 70 65 72 20 6c 69 73 74 | 73 2e 0a 58 7d 0a 58 0a |per list|s..X}.X.|
|00001180| 58 23 2d 2d 2d 2d 2d 2d | 0a 58 23 2d 2d 20 54 61 |X#------|.X#-- Ta|
|00001190| 62 6c 65 73 2e 20 20 28 | 65 78 74 65 6e 73 69 6f |bles.  (|extensio|
|000011a0| 6e 29 0a 58 23 2d 2d 2d | 2d 2d 2d 0a 58 0a 58 26 |n).X#---|---.X.X&|
|000011b0| 53 55 42 52 31 28 27 74 | 61 62 6c 65 3f 27 29 3b |SUBR1('t|able?');|
|000011c0| 0a 58 73 75 62 20 74 61 | 62 6c 65 50 20 7b 0a 58 |.Xsub ta|bleP {.X|
|000011d0| 09 26 54 59 50 45 28 40 | 5f 5b 30 5d 29 20 3d 3d |.&TYPE(@|_[0]) ==|
|000011e0| 20 24 54 5f 54 41 42 4c | 45 3b 0a 58 7d 0a 58 0a | $T_TABL|E;.X}.X.|
|000011f0| 58 26 44 45 46 28 27 6d | 61 6b 65 2d 74 61 62 6c |X&DEF('m|ake-tabl|
|00001200| 65 27 2c 20 26 53 55 42 | 52 30 28 27 54 27 29 29 |e', &SUB|R0('T'))|
|00001210| 3b 0a 58 0a 58 26 53 55 | 42 52 33 28 27 74 61 62 |;.X.X&SU|BR3('tab|
|00001220| 6c 65 2d 73 65 74 21 27 | 2c 20 24 54 5f 54 41 42 |le-set!'|, $T_TAB|
|00001230| 4c 45 2c 20 24 54 5f 53 | 59 4d 42 4f 4c 29 3b 0a |LE, $T_S|YMBOL);.|
|00001240| 58 73 75 62 20 74 61 62 | 6c 65 5f 73 65 74 49 20 |Xsub tab|le_setI |
|00001250| 7b 0a 58 09 26 54 73 65 | 74 28 40 5f 5b 30 5d 2c |{.X.&Tse|t(@_[0],|
|00001260| 20 40 5f 5b 31 5d 2c 20 | 40 5f 5b 32 5d 29 3b 0a | @_[1], |@_[2]);.|
|00001270| 58 09 24 54 52 55 45 3b | 0a 58 7d 0a 58 0a 58 26 |X.$TRUE;|.X}.X.X&|
|00001280| 53 55 42 52 32 28 27 74 | 61 62 6c 65 2d 72 65 66 |SUBR2('t|able-ref|
|00001290| 27 2c 20 24 54 5f 54 41 | 42 4c 45 2c 20 24 54 5f |', $T_TA|BLE, $T_|
|000012a0| 53 59 4d 42 4f 4c 29 3b | 0a 58 73 75 62 20 74 61 |SYMBOL);|.Xsub ta|
|000012b0| 62 6c 65 5f 72 65 66 20 | 7b 0a 58 09 26 54 76 61 |ble_ref |{.X.&Tva|
|000012c0| 6c 28 40 5f 5b 30 5d 2c | 20 40 5f 5b 31 5d 29 3b |l(@_[0],| @_[1]);|
|000012d0| 0a 58 7d 0a 58 0a 58 26 | 53 55 42 52 31 28 27 74 |.X}.X.X&|SUBR1('t|
|000012e0| 61 62 6c 65 2d 6b 65 79 | 73 27 2c 20 24 54 5f 54 |able-key|s', $T_T|
|000012f0| 41 42 4c 45 29 3b 0a 58 | 73 75 62 20 74 61 62 6c |ABLE);.X|sub tabl|
|00001300| 65 5f 6b 65 79 73 20 7b | 0a 58 09 6c 6f 63 61 6c |e_keys {|.X.local|
|00001310| 28 40 76 29 20 3d 20 26 | 54 6b 65 79 73 28 40 5f |(@v) = &|Tkeys(@_|
|00001320| 5b 30 5d 29 3b 0a 58 09 | 66 6f 72 20 24 6b 20 28 |[0]);.X.|for $k (|
|00001330| 40 76 29 20 7b 0a 58 09 | 09 24 6b 20 3d 20 26 59 |@v) {.X.|.$k = &Y|
|00001340| 28 24 6b 29 3b 0a 58 09 | 7d 0a 58 09 26 56 28 40 |($k);.X.|}.X.&V(@|
|00001350| 76 29 3b 0a 58 7d 0a 58 | 0a 58 23 2d 2d 2d 2d 2d |v);.X}.X|.X#-----|
|00001360| 2d 0a 58 23 2d 2d 20 53 | 79 6e 74 61 63 74 69 63 |-.X#-- S|yntactic|
|00001370| 20 6b 65 79 77 6f 72 64 | 73 2c 20 73 70 65 63 69 | keyword|s, speci|
|00001380| 61 6c 20 66 6f 72 6d 73 | 2e 0a 58 23 2d 2d 2d 2d |al forms|..X#----|
|00001390| 2d 2d 0a 58 0a 58 24 41 | 52 52 4f 57 20 3d 20 26 |--.X.X$A|RROW = &|
|000013a0| 59 28 27 3d 3e 27 29 3b | 0a 58 24 45 4c 53 45 20 |Y('=>');|.X$ELSE |
|000013b0| 3d 20 26 59 28 27 65 6c | 73 65 27 29 3b 0a 58 24 |= &Y('el|se');.X$|
|000013c0| 51 55 4f 54 45 20 3d 20 | 26 59 28 27 71 75 6f 74 |QUOTE = |&Y('quot|
|000013d0| 65 27 29 3b 0a 58 24 51 | 55 41 53 49 51 55 4f 54 |e');.X$Q|UASIQUOT|
|000013e0| 45 20 3d 20 26 59 28 27 | 71 75 61 73 69 71 75 6f |E = &Y('|quasiquo|
|000013f0| 74 65 27 29 3b 0a 58 24 | 55 4e 51 55 4f 54 45 20 |te');.X$|UNQUOTE |
|00001400| 3d 20 26 59 28 27 75 6e | 71 75 6f 74 65 27 29 3b |= &Y('un|quote');|
|00001410| 0a 58 24 55 4e 51 55 4f | 54 45 5f 53 50 4c 49 43 |.X$UNQUO|TE_SPLIC|
|00001420| 49 4e 47 20 3d 20 26 59 | 28 27 75 6e 71 75 6f 74 |ING = &Y|('unquot|
|00001430| 65 2d 73 70 6c 69 63 69 | 6e 67 27 29 3b 0a 58 0a |e-splici|ng');.X.|
|00001440| 58 26 46 4f 52 4d 28 27 | 71 75 6f 74 65 27 29 3b |X&FORM('|quote');|
|00001450| 0a 58 73 75 62 20 71 75 | 6f 74 65 20 7b 0a 58 09 |.Xsub qu|ote {.X.|
|00001460| 40 5f 5b 30 5d 3b 0a 58 | 7d 0a 58 0a 58 23 20 58 |@_[0];.X|}.X.X# X|
|00001470| 58 58 20 77 72 6f 74 65 | 20 71 75 61 73 69 71 75 |XX wrote| quasiqu|
|00001480| 6f 74 65 20 69 6e 20 61 | 20 64 65 6c 69 72 69 75 |ote in a| deliriu|
|00001490| 6d 2e 20 20 69 74 20 6d | 61 79 20 6e 6f 74 20 77 |m.  it m|ay not w|
|000014a0| 6f 72 6b 20 63 6f 72 72 | 65 63 74 6c 79 2e 0a 58 |ork corr|ectly..X|
|000014b0| 26 46 4f 52 4d 28 27 71 | 75 61 73 69 71 75 6f 74 |&FORM('q|uasiquot|
|000014c0| 65 27 29 3b 0a 58 73 75 | 62 20 71 75 61 73 69 71 |e');.Xsu|b quasiq|
|000014d0| 75 6f 74 65 20 7b 0a 58 | 09 26 51 51 28 40 5f 5b |uote {.X|.&QQ(@_[|
|000014e0| 30 5d 2c 20 30 29 3b 0a | 58 7d 0a 58 0a 58 73 75 |0], 0);.|X}.X.Xsu|
|000014f0| 62 20 51 51 20 7b 0a 58 | 09 6c 6f 63 61 6c 28 40 |b QQ {.X|.local(@|
|00001500| 73 69 70 29 20 3d 20 40 | 5f 3b 0a 58 09 6c 6f 63 |sip) = @|_;.X.loc|
|00001510| 61 6c 28 24 69 74 2c 20 | 24 6e 29 20 3d 20 40 73 |al($it, |$n) = @s|
|00001520| 69 70 3b 0a 58 09 6c 6f | 63 61 6c 28 24 74 29 20 |ip;.X.lo|cal($t) |
|00001530| 3d 20 26 54 59 50 45 28 | 24 69 74 29 3b 0a 58 09 |= &TYPE(|$it);.X.|
|00001540| 69 66 20 28 24 74 20 3d | 3d 20 24 54 5f 56 45 43 |if ($t =|= $T_VEC|
|00001550| 54 4f 52 29 20 7b 0a 58 | 09 09 72 65 74 75 72 6e |TOR) {.X|..return|
|00001560| 20 26 51 51 76 65 63 74 | 6f 72 28 24 69 74 2c 20 | &QQvect|or($it, |
|00001570| 24 6e 29 3b 0a 58 09 7d | 20 65 6c 73 69 66 20 28 |$n);.X.}| elsif (|
|00001580| 24 74 20 3d 3d 20 24 54 | 5f 50 41 49 52 29 20 7b |$t == $T|_PAIR) {|
|00001590| 0a 58 09 09 72 65 74 75 | 72 6e 20 26 51 51 6c 69 |.X..retu|rn &QQli|
|000015a0| 73 74 28 24 69 74 2c 20 | 24 6e 29 3b 0a 58 09 7d |st($it, |$n);.X.}|
|000015b0| 20 65 6c 73 65 20 7b 0a | 58 09 09 72 65 74 75 72 | else {.|X..retur|
|000015c0| 6e 20 24 69 74 3b 0a 58 | 09 7d 0a 58 7d 0a 58 0a |n $it;.X|.}.X}.X.|
|000015d0| 58 73 75 62 20 51 51 76 | 65 63 74 6f 72 20 7b 0a |Xsub QQv|ector {.|
|000015e0| 58 09 6c 6f 63 61 6c 28 | 40 73 69 70 29 20 3d 20 |X.local(|@sip) = |
|000015f0| 40 5f 3b 0a 58 09 6c 6f | 63 61 6c 28 24 69 74 2c |@_;.X.lo|cal($it,|
|00001600| 20 24 6e 29 20 3d 20 40 | 73 69 70 3b 0a 58 09 72 | $n) = @|sip;.X.r|
|00001610| 65 74 75 72 6e 20 26 6c | 69 73 74 5f 32 76 65 63 |eturn &l|ist_2vec|
|00001620| 74 6f 72 28 26 51 51 6c | 69 73 74 28 26 76 65 63 |tor(&QQl|ist(&vec|
|00001630| 74 6f 72 5f 32 6c 69 73 | 74 28 24 69 74 29 2c 20 |tor_2lis|t($it), |
|00001640| 24 6e 29 29 3b 0a 58 7d | 0a 58 0a 58 73 75 62 20 |$n));.X}|.X.Xsub |
|00001650| 51 51 6c 69 73 74 20 7b | 0a 58 09 6c 6f 63 61 6c |QQlist {|.X.local|
|00001660| 28 40 73 69 70 29 20 3d | 20 40 5f 3b 0a 58 09 6c |(@sip) =| @_;.X.l|
|00001670| 6f 63 61 6c 28 24 69 74 | 2c 20 24 6e 29 20 3d 20 |ocal($it|, $n) = |
|00001680| 40 73 69 70 3b 0a 58 09 | 6c 6f 63 61 6c 28 24 61 |@sip;.X.|local($a|
|00001690| 2c 20 24 64 29 20 3d 20 | 26 50 76 61 6c 28 24 69 |, $d) = |&Pval($i|
|000016a0| 74 29 3b 0a 58 09 69 66 | 20 28 24 61 20 65 71 20 |t);.X.if| ($a eq |
|000016b0| 24 51 55 41 53 49 51 55 | 4f 54 45 29 20 7b 0a 58 |$QUASIQU|OTE) {.X|
|000016c0| 09 09 72 65 74 75 72 6e | 20 26 4c 28 24 51 55 41 |..return| &L($QUA|
|000016d0| 53 49 51 55 4f 54 45 2c | 20 26 51 51 28 26 63 61 |SIQUOTE,| &QQ(&ca|
|000016e0| 72 28 24 64 29 2c 20 24 | 6e 20 2b 20 31 29 29 3b |r($d), $|n + 1));|
|000016f0| 0a 58 09 7d 20 65 6c 73 | 69 66 20 28 24 61 20 65 |.X.} els|if ($a e|
|00001700| 71 20 24 55 4e 51 55 4f | 54 45 29 20 7b 0a 58 09 |q $UNQUO|TE) {.X.|
|00001710| 09 72 65 74 75 72 6e 20 | 24 6e 20 3d 3d 20 30 0a |.return |$n == 0.|
|00001720| 58 09 09 09 3f 20 26 65 | 76 61 6c 28 26 63 61 72 |X...? &e|val(&car|
|00001730| 28 24 64 29 29 0a 58 09 | 09 09 3a 20 26 4c 28 24 |($d)).X.|..: &L($|
|00001740| 55 4e 51 55 4f 54 45 2c | 20 26 51 51 28 26 63 61 |UNQUOTE,| &QQ(&ca|
|00001750| 72 28 24 64 29 2c 20 24 | 6e 20 2d 20 31 29 29 3b |r($d), $|n - 1));|
|00001760| 0a 58 09 7d 0a 58 0a 58 | 09 69 66 20 28 26 70 61 |.X.}.X.X|.if (&pa|
|00001770| 69 72 50 28 24 61 29 20 | 26 26 20 26 63 61 72 28 |irP($a) |&& &car(|
|00001780| 24 61 29 20 65 71 20 24 | 55 4e 51 55 4f 54 45 5f |$a) eq $|UNQUOTE_|
|00001790| 53 50 4c 49 43 49 4e 47 | 29 20 7b 0a 58 09 09 24 |SPLICING|) {.X..$|
|000017a0| 61 20 3d 20 28 24 6e 20 | 3d 3d 20 30 29 0a 58 09 |a = ($n |== 0).X.|
|000017b0| 09 09 3f 20 26 65 76 61 | 6c 28 26 63 61 64 72 28 |..? &eva|l(&cadr(|
|000017c0| 24 61 29 29 0a 58 09 09 | 09 3a 20 26 4c 28 24 55 |$a)).X..|.: &L($U|
|000017d0| 4e 51 55 4f 54 45 5f 53 | 50 4c 49 43 49 4e 47 2c |NQUOTE_S|PLICING,|
|000017e0| 20 26 51 51 28 26 63 61 | 64 72 28 24 61 29 2c 20 | &QQ(&ca|dr($a), |
|000017f0| 24 6e 20 2d 20 31 29 29 | 3b 0a 58 09 7d 20 65 6c |$n - 1))|;.X.} el|
|00001800| 73 65 20 7b 0a 58 09 09 | 24 61 20 3d 20 26 4c 28 |se {.X..|$a = &L(|
|00001810| 26 51 51 28 24 61 2c 20 | 24 6e 29 29 3b 0a 58 09 |&QQ($a, |$n));.X.|
|00001820| 7d 0a 58 09 69 66 20 28 | 24 64 20 6e 65 20 24 4e |}.X.if (|$d ne $N|
|00001830| 49 4c 29 20 7b 0a 58 09 | 09 72 65 74 75 72 6e 20 |IL) {.X.|.return |
|00001840| 26 61 70 70 65 6e 64 28 | 24 61 2c 20 26 51 51 28 |&append(|$a, &QQ(|
|00001850| 24 64 2c 20 24 6e 29 29 | 3b 0a 58 09 7d 20 65 6c |$d, $n))|;.X.} el|
|00001860| 73 65 20 7b 0a 58 09 09 | 72 65 74 75 72 6e 20 24 |se {.X..|return $|
|00001870| 61 3b 0a 58 09 7d 0a 58 | 7d 0a 58 0a 58 26 46 4f |a;.X.}.X|}.X.X&FO|
|00001880| 52 4d 28 27 64 65 6c 61 | 79 27 29 3b 0a 58 73 75 |RM('dela|y');.Xsu|
|00001890| 62 20 64 65 6c 61 79 20 | 7b 0a 58 09 26 56 28 24 |b delay |{.X.&V($|
|000018a0| 50 52 4f 4d 49 53 45 2c | 20 24 4e 49 4c 2c 20 24 |PROMISE,| $NIL, $|
|000018b0| 4e 49 4c 2c 20 26 45 4e | 56 63 75 72 72 65 6e 74 |NIL, &EN|Vcurrent|
|000018c0| 28 29 2c 20 40 5f 29 3b | 0a 58 7d 0a 58 0a 58 26 |(), @_);|.X}.X.X&|
|000018d0| 46 4f 52 4d 28 27 6c 61 | 6d 62 64 61 27 29 3b 0a |FORM('la|mbda');.|
|000018e0| 58 73 75 62 20 6c 61 6d | 62 64 61 20 7b 0a 58 09 |Xsub lam|bda {.X.|
|000018f0| 6c 6f 63 61 6c 28 40 63 | 6f 64 65 29 20 3d 20 40 |local(@c|ode) = @|
|00001900| 5f 3b 0a 58 09 6c 6f 63 | 61 6c 28 24 61 72 67 73 |_;.X.loc|al($args|
|00001910| 29 20 3d 20 73 68 69 66 | 74 20 40 63 6f 64 65 3b |) = shif|t @code;|
|00001920| 0a 58 09 6c 6f 63 61 6c | 28 24 61 2c 20 40 73 79 |.X.local|($a, @sy|
|00001930| 6d 73 29 3b 0a 58 09 77 | 68 69 6c 65 20 28 26 70 |ms);.X.w|hile (&p|
|00001940| 61 69 72 50 28 24 61 72 | 67 73 29 29 20 7b 0a 58 |airP($ar|gs)) {.X|
|00001950| 09 09 28 24 61 2c 20 24 | 61 72 67 73 29 20 3d 20 |..($a, $|args) = |
|00001960| 26 50 76 61 6c 28 24 61 | 72 67 73 29 3b 0a 58 09 |&Pval($a|rgs);.X.|
|00001970| 09 26 43 48 4b 74 79 70 | 65 28 24 61 2c 20 24 54 |.&CHKtyp|e($a, $T|
|00001980| 5f 53 59 4d 42 4f 4c 2c | 20 27 6c 61 6d 62 64 61 |_SYMBOL,| 'lambda|
|00001990| 27 29 3b 0a 58 09 09 70 | 75 73 68 28 40 73 79 6d |');.X..p|ush(@sym|
|000019a0| 73 2c 20 24 61 29 3b 0a | 58 09 7d 0a 58 09 26 43 |s, $a);.|X.}.X.&C|
|000019b0| 48 4b 74 79 70 65 28 24 | 61 72 67 73 2c 20 24 54 |HKtype($|args, $T|
|000019c0| 5f 53 59 4d 42 4f 4c 2c | 20 27 6c 61 6d 62 64 61 |_SYMBOL,| 'lambda|
|000019d0| 27 29 20 69 66 20 24 61 | 72 67 73 20 6e 65 20 24 |') if $a|rgs ne $|
|000019e0| 4e 49 4c 3b 0a 58 09 26 | 56 28 24 43 4c 4f 53 55 |NIL;.X.&|V($CLOSU|
|000019f0| 52 45 2c 20 26 45 4e 56 | 63 75 72 72 65 6e 74 28 |RE, &ENV|current(|
|00001a00| 29 2c 20 24 61 72 67 73 | 2c 20 26 4e 28 40 73 79 |), $args|, &N(@sy|
|00001a10| 6d 73 20 2b 20 30 29 2c | 20 40 73 79 6d 73 2c 20 |ms + 0),| @syms, |
|00001a20| 40 63 6f 64 65 29 3b 0a | 58 7d 0a 58 0a 58 23 20 |@code);.|X}.X.X# |
|00001a30| 58 58 58 20 6e 61 6d 65 | 64 20 6c 65 74 20 66 6f |XXX name|d let fo|
|00001a40| 72 6d 0a 58 26 46 4f 52 | 4d 28 27 6c 65 74 27 29 |rm.X&FOR|M('let')|
|00001a50| 3b 0a 58 73 75 62 20 6c | 65 74 20 7b 0a 58 09 6c |;.Xsub l|et {.X.l|
|00001a60| 6f 63 61 6c 28 40 63 6f | 64 65 29 20 3d 20 40 5f |ocal(@co|de) = @_|
|00001a70| 3b 0a 58 09 6c 6f 63 61 | 6c 28 40 62 69 6e 64 69 |;.X.loca|l(@bindi|
|00001a80| 6e 67 73 29 20 3d 20 26 | 4c 76 61 6c 28 73 68 69 |ngs) = &|Lval(shi|
|00001a90| 66 74 20 40 63 6f 64 65 | 29 3b 0a 58 09 6c 6f 63 |ft @code|);.X.loc|
|00001aa0| 61 6c 28 40 73 79 6d 73 | 2c 20 40 76 61 6c 73 29 |al(@syms|, @vals)|
|00001ab0| 3b 0a 58 09 66 6f 72 20 | 24 78 20 28 40 62 69 6e |;.X.for |$x (@bin|
|00001ac0| 64 69 6e 67 73 29 20 7b | 0a 58 09 09 70 75 73 68 |dings) {|.X..push|
|00001ad0| 28 40 73 79 6d 73 2c 20 | 26 63 61 72 28 24 78 29 |(@syms, |&car($x)|
|00001ae0| 29 3b 0a 58 09 09 70 75 | 73 68 28 40 76 61 6c 73 |);.X..pu|sh(@vals|
|00001af0| 2c 20 26 65 76 61 6c 28 | 26 63 61 64 72 28 24 78 |, &eval(|&cadr($x|
|00001b00| 29 29 29 3b 0a 58 09 7d | 0a 58 09 26 45 4e 56 70 |)));.X.}|.X.&ENVp|
|00001b10| 75 73 68 5f 66 72 61 6d | 65 28 29 3b 0a 58 09 26 |ush_fram|e();.X.&|
|00001b20| 45 4e 56 62 69 6e 64 28 | 40 73 79 6d 73 2c 20 40 |ENVbind(|@syms, @|
|00001b30| 76 61 6c 73 29 3b 0a 58 | 09 6c 6f 63 61 6c 28 24 |vals);.X|.local($|
|00001b40| 78 29 20 3d 20 26 62 65 | 67 69 6e 28 40 63 6f 64 |x) = &be|gin(@cod|
|00001b50| 65 29 3b 0a 58 09 26 45 | 4e 56 70 6f 70 5f 66 72 |e);.X.&E|NVpop_fr|
|00001b60| 61 6d 65 28 29 3b 0a 58 | 09 24 78 3b 0a 58 7d 0a |ame();.X|.$x;.X}.|
|00001b70| 58 0a 58 26 46 4f 52 4d | 28 27 6c 65 74 2a 27 29 |X.X&FORM|('let*')|
|00001b80| 3b 0a 58 73 75 62 20 6c | 65 74 58 20 7b 0a 58 09 |;.Xsub l|etX {.X.|
|00001b90| 6c 6f 63 61 6c 28 40 63 | 6f 64 65 29 20 3d 20 40 |local(@c|ode) = @|
|00001ba0| 5f 3b 0a 58 09 6c 6f 63 | 61 6c 28 40 62 69 6e 64 |_;.X.loc|al(@bind|
|00001bb0| 69 6e 67 73 29 20 3d 20 | 26 4c 76 61 6c 28 73 68 |ings) = |&Lval(sh|
|00001bc0| 69 66 74 20 40 63 6f 64 | 65 29 3b 0a 58 09 6c 6f |ift @cod|e);.X.lo|
|00001bd0| 63 61 6c 28 24 78 29 3b | 0a 58 09 26 45 4e 56 70 |cal($x);|.X.&ENVp|
|00001be0| 75 73 68 28 26 45 4e 56 | 63 75 72 72 65 6e 74 28 |ush(&ENV|current(|
|00001bf0| 29 29 3b 0a 58 09 66 6f | 72 20 24 62 20 28 40 62 |));.X.fo|r $b (@b|
|00001c00| 69 6e 64 69 6e 67 73 29 | 20 7b 0a 58 09 09 24 78 |indings)| {.X..$x|
|00001c10| 20 3d 20 26 65 76 61 6c | 28 26 63 61 64 72 28 24 | = &eval|(&cadr($|
|00001c20| 62 29 29 3b 0a 58 09 09 | 26 45 4e 56 70 75 73 68 |b));.X..|&ENVpush|
|00001c30| 5f 66 72 61 6d 65 28 29 | 3b 0a 58 09 09 26 45 4e |_frame()|;.X..&EN|
|00001c40| 56 62 69 6e 64 28 26 63 | 61 72 28 24 62 29 2c 20 |Vbind(&c|ar($b), |
|00001c50| 24 78 29 3b 0a 58 09 7d | 0a 58 09 24 78 20 3d 20 |$x);.X.}|.X.$x = |
|00001c60| 26 62 65 67 69 6e 28 40 | 63 6f 64 65 29 3b 0a 58 |&begin(@|code);.X|
|00001c70| 09 26 45 4e 56 70 6f 70 | 28 29 3b 0a 58 09 24 78 |.&ENVpop|();.X.$x|
|00001c80| 3b 0a 58 7d 0a 58 0a 58 | 26 46 4f 52 4d 28 27 6c |;.X}.X.X|&FORM('l|
|00001c90| 65 74 72 65 63 27 29 3b | 0a 58 73 75 62 20 6c 65 |etrec');|.Xsub le|
|00001ca0| 74 72 65 63 20 7b 0a 58 | 09 6c 6f 63 61 6c 28 40 |trec {.X|.local(@|
|00001cb0| 63 6f 64 65 29 20 3d 20 | 40 5f 3b 0a 58 09 6c 6f |code) = |@_;.X.lo|
|00001cc0| 63 61 6c 28 40 62 69 6e | 64 69 6e 67 73 29 20 3d |cal(@bin|dings) =|
|00001cd0| 20 26 4c 76 61 6c 28 73 | 68 69 66 74 20 40 63 6f | &Lval(s|hift @co|
|00001ce0| 64 65 29 3b 0a 58 09 6c | 6f 63 61 6c 28 24 78 2c |de);.X.l|ocal($x,|
|00001cf0| 20 40 73 79 6d 73 2c 20 | 40 76 61 6c 73 29 3b 0a | @syms, |@vals);.|
|00001d00| 58 09 66 6f 72 20 24 78 | 20 28 40 62 69 6e 64 69 |X.for $x| (@bindi|
|00001d10| 6e 67 73 29 20 7b 0a 58 | 09 09 70 75 73 68 28 40 |ngs) {.X|..push(@|
|00001d20| 73 79 6d 73 2c 20 26 63 | 61 72 28 24 78 29 29 3b |syms, &c|ar($x));|
|00001d30| 0a 58 09 7d 0a 58 09 26 | 45 4e 56 70 75 73 68 5f |.X.}.X.&|ENVpush_|
|00001d40| 66 72 61 6d 65 28 29 3b | 0a 58 09 26 45 4e 56 62 |frame();|.X.&ENVb|
|00001d50| 69 6e 64 28 40 73 79 6d | 73 2c 20 40 73 79 6d 73 |ind(@sym|s, @syms|
|00001d60| 29 3b 0a 58 09 66 6f 72 | 20 24 78 20 28 40 62 69 |);.X.for| $x (@bi|
|00001d70| 6e 64 69 6e 67 73 29 20 | 7b 0a 58 09 09 70 75 73 |ndings) |{.X..pus|
|00001d80| 68 28 40 76 61 6c 73 2c | 20 26 65 76 61 6c 28 26 |h(@vals,| &eval(&|
|00001d90| 63 61 64 72 28 24 78 29 | 29 29 3b 0a 58 09 7d 0a |cadr($x)|));.X.}.|
|00001da0| 58 09 26 45 4e 56 62 69 | 6e 64 28 40 73 79 6d 73 |X.&ENVbi|nd(@syms|
|00001db0| 2c 20 40 76 61 6c 73 29 | 3b 0a 58 09 6c 6f 63 61 |, @vals)|;.X.loca|
|00001dc0| 6c 28 24 78 29 20 3d 20 | 26 62 65 67 69 6e 28 40 |l($x) = |&begin(@|
|00001dd0| 63 6f 64 65 29 3b 0a 58 | 09 26 45 4e 56 70 6f 70 |code);.X|.&ENVpop|
|00001de0| 5f 66 72 61 6d 65 28 29 | 3b 0a 58 09 24 78 3b 0a |_frame()|;.X.$x;.|
|00001df0| 58 7d 0a 58 0a 58 26 46 | 4f 52 4d 28 27 64 6f 27 |X}.X.X&F|ORM('do'|
|00001e00| 29 3b 0a 58 73 75 62 20 | 64 6f 20 7b 0a 58 09 6c |);.Xsub |do {.X.l|
|00001e10| 6f 63 61 6c 28 40 63 6f | 64 65 29 20 3d 20 40 5f |ocal(@co|de) = @_|
|00001e20| 3b 0a 58 09 6c 6f 63 61 | 6c 28 24 62 69 6e 64 69 |;.X.loca|l($bindi|
|00001e30| 6e 67 73 29 20 3d 20 73 | 68 69 66 74 20 40 63 6f |ngs) = s|hift @co|
|00001e40| 64 65 3b 0a 58 09 6c 6f | 63 61 6c 28 24 79 2c 20 |de;.X.lo|cal($y, |
|00001e50| 24 76 2c 20 24 6e 2c 20 | 40 73 79 6d 73 2c 20 40 |$v, $n, |@syms, @|
|00001e60| 76 61 6c 73 2c 20 40 6e | 65 78 74 73 29 3b 0a 58 |vals, @n|exts);.X|
|00001e70| 09 66 6f 72 20 24 78 20 | 28 26 4c 76 61 6c 28 24 |.for $x |(&Lval($|
|00001e80| 62 69 6e 64 69 6e 67 73 | 29 29 20 7b 0a 58 09 09 |bindings|)) {.X..|
|00001e90| 28 24 79 2c 20 24 76 2c | 20 24 6e 29 20 3d 20 26 |($y, $v,| $n) = &|
|00001ea0| 4c 76 61 6c 28 24 78 29 | 3b 0a 58 09 09 69 66 20 |Lval($x)|;.X..if |
|00001eb0| 28 64 65 66 69 6e 65 64 | 20 24 6e 29 20 7b 0a 58 |(defined| $n) {.X|
|00001ec0| 09 09 09 75 6e 73 68 69 | 66 74 28 40 73 79 6d 73 |...unshi|ft(@syms|
|00001ed0| 2c 20 24 79 29 3b 0a 58 | 09 09 09 75 6e 73 68 69 |, $y);.X|...unshi|
|00001ee0| 66 74 28 40 76 61 6c 73 | 2c 20 26 65 76 61 6c 28 |ft(@vals|, &eval(|
|00001ef0| 24 76 29 29 3b 0a 58 09 | 09 09 75 6e 73 68 69 66 |$v));.X.|..unshif|
|00001f00| 74 28 40 6e 65 78 74 73 | 2c 20 24 6e 29 3b 0a 58 |t(@nexts|, $n);.X|
|00001f10| 09 09 7d 20 65 6c 73 65 | 20 7b 0a 58 09 09 09 70 |..} else| {.X...p|
|00001f20| 75 73 68 28 40 73 79 6d | 73 2c 20 24 79 29 3b 0a |ush(@sym|s, $y);.|
|00001f30| 58 09 09 09 70 75 73 68 | 28 40 76 61 6c 73 2c 20 |X...push|(@vals, |
|00001f40| 26 65 76 61 6c 28 24 76 | 29 29 3b 0a 58 09 09 7d |&eval($v|));.X..}|
|00001f50| 0a 58 09 7d 0a 58 09 26 | 45 4e 56 70 75 73 68 5f |.X.}.X.&|ENVpush_|
|00001f60| 66 72 61 6d 65 28 29 3b | 0a 58 09 26 45 4e 56 62 |frame();|.X.&ENVb|
|00001f70| 69 6e 64 28 40 73 79 6d | 73 2c 20 40 76 61 6c 73 |ind(@sym|s, @vals|
|00001f80| 29 3b 0a 58 0a 58 09 24 | 23 73 79 6d 73 20 3d 20 |);.X.X.$|#syms = |
|00001f90| 24 23 6e 65 78 74 73 3b | 0a 58 0a 58 09 6c 6f 63 |$#nexts;|.X.X.loc|
|00001fa0| 61 6c 28 24 74 65 73 74 | 2c 20 40 65 78 69 74 29 |al($test|, @exit)|
|00001fb0| 20 3d 20 26 4c 76 61 6c | 28 73 68 69 66 74 20 40 | = &Lval|(shift @|
|00001fc0| 63 6f 64 65 29 3b 0a 58 | 0a 58 09 77 68 69 6c 65 |code);.X|.X.while|
|00001fd0| 20 28 21 26 65 76 61 6c | 28 24 74 65 73 74 29 29 | (!&eval|($test))|
|00001fe0| 20 7b 0a 58 09 09 26 62 | 65 67 69 6e 28 40 63 6f | {.X..&b|egin(@co|
|00001ff0| 64 65 29 3b 0a 58 09 7d | 20 63 6f 6e 74 69 6e 75 |de);.X.}| continu|
|00002000| 65 20 7b 0a 58 09 09 40 | 76 61 6c 73 20 3d 20 28 |e {.X..@|vals = (|
|00002010| 29 3b 0a 58 09 09 66 6f | 72 20 24 78 20 28 40 6e |);.X..fo|r $x (@n|
|00002020| 65 78 74 73 29 20 7b 0a | 58 09 09 09 70 75 73 68 |exts) {.|X...push|
|00002030| 28 40 76 61 6c 73 2c 20 | 26 65 76 61 6c 28 24 78 |(@vals, |&eval($x|
|00002040| 29 29 3b 0a 58 09 09 7d | 0a 58 09 09 26 45 4e 56 |));.X..}|.X..&ENV|
|00002050| 62 69 6e 64 28 40 73 79 | 6d 73 2c 20 40 76 61 6c |bind(@sy|ms, @val|
|00002060| 73 29 3b 0a 58 09 7d 0a | 58 09 6c 6f 63 61 6c 28 |s);.X.}.|X.local(|
|00002070| 24 78 29 20 3d 20 26 62 | 65 67 69 6e 28 40 65 78 |$x) = &b|egin(@ex|
|00002080| 69 74 29 3b 0a 58 09 26 | 45 4e 56 70 6f 70 5f 66 |it);.X.&|ENVpop_f|
|00002090| 72 61 6d 65 28 29 3b 0a | 58 09 24 78 3b 0a 58 7d |rame();.|X.$x;.X}|
|000020a0| 0a 58 0a 58 26 46 4f 52 | 4d 28 27 73 65 74 21 27 |.X.X&FOR|M('set!'|
|000020b0| 29 3b 0a 58 73 75 62 20 | 73 65 74 49 20 7b 0a 58 |);.Xsub |setI {.X|
|000020c0| 09 26 43 48 4b 74 79 70 | 65 28 40 5f 5b 30 5d 2c |.&CHKtyp|e(@_[0],|
|000020d0| 20 24 54 5f 53 59 4d 42 | 4f 4c 2c 20 27 73 65 74 | $T_SYMB|OL, 'set|
|000020e0| 21 27 29 3b 0a 58 09 23 | 20 58 58 58 20 61 72 67 |!');.X.#| XXX arg|
|000020f0| 63 6f 75 6e 74 2c 20 73 | 79 6e 74 61 78 20 65 72 |count, s|yntax er|
|00002100| 72 6f 72 2e 0a 58 09 23 | 20 58 58 58 20 65 72 72 |ror..X.#| XXX err|
|00002110| 6f 72 20 69 66 20 75 6e | 62 6f 75 6e 64 3f 0a 58 |or if un|bound?.X|
|00002120| 09 26 45 4e 56 73 65 74 | 28 40 5f 5b 30 5d 2c 20 |.&ENVset|(@_[0], |
|00002130| 26 65 76 61 6c 28 40 5f | 5b 31 5d 29 29 3b 0a 58 |&eval(@_|[1]));.X|
|00002140| 09 24 54 52 55 45 3b 0a | 58 7d 0a 58 0a 58 26 46 |.$TRUE;.|X}.X.X&F|
|00002150| 4f 52 4d 28 27 64 65 66 | 69 6e 65 27 29 3b 0a 58 |ORM('def|ine');.X|
|00002160| 73 75 62 20 64 65 66 69 | 6e 65 20 7b 0a 58 09 6c |sub defi|ne {.X.l|
|00002170| 6f 63 61 6c 28 40 73 69 | 70 29 20 3d 20 40 5f 3b |ocal(@si|p) = @_;|
|00002180| 0a 58 09 6c 6f 63 61 6c | 28 24 73 79 6d 29 20 3d |.X.local|($sym) =|
|00002190| 20 73 68 69 66 74 20 40 | 73 69 70 3b 0a 58 09 6c | shift @|sip;.X.l|
|000021a0| 6f 63 61 6c 28 24 74 29 | 20 3d 20 26 54 59 50 45 |ocal($t)| = &TYPE|
|000021b0| 28 24 73 79 6d 29 3b 0a | 58 09 69 66 20 28 24 74 |($sym);.|X.if ($t|
|000021c0| 20 3d 3d 20 24 54 5f 53 | 59 4d 42 4f 4c 29 20 7b | == $T_S|YMBOL) {|
|000021d0| 0a 58 09 09 26 45 4e 56 | 62 69 6e 64 28 24 73 79 |.X..&ENV|bind($sy|
|000021e0| 6d 2c 20 26 65 76 61 6c | 28 40 73 69 70 5b 30 5d |m, &eval|(@sip[0]|
|000021f0| 29 29 3b 0a 58 09 7d 20 | 65 6c 73 69 66 20 28 24 |));.X.} |elsif ($|
|00002200| 74 20 3d 3d 20 24 54 5f | 50 41 49 52 29 20 7b 0a |t == $T_|PAIR) {.|
|00002210| 58 09 09 6c 6f 63 61 6c | 28 24 61 72 67 73 29 3b |X..local|($args);|
|00002220| 0a 58 09 09 28 24 73 79 | 6d 2c 20 24 61 72 67 73 |.X..($sy|m, $args|
|00002230| 29 20 3d 20 26 50 76 61 | 6c 28 24 73 79 6d 29 3b |) = &Pva|l($sym);|
|00002240| 0a 58 09 09 26 43 48 4b | 74 79 70 65 28 24 73 79 |.X..&CHK|type($sy|
|00002250| 6d 2c 20 24 54 5f 53 59 | 4d 42 4f 4c 2c 20 27 64 |m, $T_SY|MBOL, 'd|
|00002260| 65 66 69 6e 65 27 29 3b | 0a 58 09 09 26 45 4e 56 |efine');|.X..&ENV|
|00002270| 62 69 6e 64 28 24 73 79 | 6d 2c 20 26 6c 61 6d 62 |bind($sy|m, &lamb|
|00002280| 64 61 28 24 61 72 67 73 | 2c 20 40 73 69 70 29 29 |da($args|, @sip))|
|00002290| 3b 0a 58 09 7d 20 65 6c | 73 65 20 7b 0a 58 09 09 |;.X.} el|se {.X..|
|000022a0| 26 45 52 52 74 79 70 65 | 28 24 73 79 6d 2c 20 27 |&ERRtype|($sym, '|
|000022b0| 61 20 73 79 6d 62 6f 6c | 20 6f 72 20 61 20 70 61 |a symbol| or a pa|
|000022c0| 69 72 27 2c 20 27 64 65 | 66 69 6e 65 27 29 3b 0a |ir', 'de|fine');.|
|000022d0| 58 09 7d 0a 58 09 24 54 | 52 55 45 3b 0a 58 7d 0a |X.}.X.$T|RUE;.X}.|
|000022e0| 58 0a 58 26 46 4f 52 4d | 28 27 62 65 67 69 6e 27 |X.X&FORM|('begin'|
|000022f0| 29 3b 0a 58 73 75 62 20 | 62 65 67 69 6e 20 7b 0a |);.Xsub |begin {.|
|00002300| 58 09 6c 6f 63 61 6c 28 | 40 73 69 70 29 20 3d 20 |X.local(|@sip) = |
|00002310| 40 5f 3b 0a 58 09 6c 6f | 63 61 6c 28 24 78 29 20 |@_;.X.lo|cal($x) |
|00002320| 3d 20 24 4e 49 4c 3b 0a | 58 09 24 78 20 3d 20 26 |= $NIL;.|X.$x = &|
|00002330| 65 76 61 6c 28 73 68 69 | 66 74 20 40 73 69 70 29 |eval(shi|ft @sip)|
|00002340| 20 77 68 69 6c 65 20 40 | 73 69 70 3b 0a 58 09 24 | while @|sip;.X.$|
|00002350| 78 3b 0a 58 7d 0a 58 0a | 58 26 46 4f 52 4d 28 27 |x;.X}.X.|X&FORM('|
|00002360| 61 6e 64 27 29 3b 0a 58 | 73 75 62 20 61 6e 64 20 |and');.X|sub and |
|00002370| 7b 0a 58 09 6c 6f 63 61 | 6c 28 40 73 69 70 29 20 |{.X.loca|l(@sip) |
|00002380| 3d 20 40 5f 3b 0a 58 09 | 6c 6f 63 61 6c 28 24 78 |= @_;.X.|local($x|
|00002390| 29 20 3d 20 24 54 52 55 | 45 3b 0a 58 09 24 78 20 |) = $TRU|E;.X.$x |
|000023a0| 3d 20 26 65 76 61 6c 28 | 73 68 69 66 74 20 40 73 |= &eval(|shift @s|
|000023b0| 69 70 29 20 77 68 69 6c | 65 20 24 78 20 26 26 20 |ip) whil|e $x && |
|000023c0| 40 73 69 70 3b 0a 58 09 | 24 78 3b 0a 58 7d 0a 58 |@sip;.X.|$x;.X}.X|
|000023d0| 0a 58 26 46 4f 52 4d 28 | 27 6f 72 27 29 3b 0a 58 |.X&FORM(|'or');.X|
|000023e0| 73 75 62 20 6f 72 20 7b | 0a 58 09 6c 6f 63 61 6c |sub or {|.X.local|
|000023f0| 28 40 73 69 70 29 20 3d | 20 40 5f 3b 0a 58 09 6c |(@sip) =| @_;.X.l|
|00002400| 6f 63 61 6c 28 24 78 29 | 20 3d 20 24 46 41 4c 53 |ocal($x)| = $FALS|
|00002410| 45 3b 0a 58 09 24 78 20 | 3d 20 26 65 76 61 6c 28 |E;.X.$x |= &eval(|
|00002420| 73 68 69 66 74 20 40 73 | 69 70 29 20 77 68 69 6c |shift @s|ip) whil|
|00002430| 65 20 21 24 78 20 26 26 | 20 40 73 69 70 3b 0a 58 |e !$x &&| @sip;.X|
|00002440| 09 24 78 3b 0a 58 7d 0a | 58 0a 58 26 46 4f 52 4d |.$x;.X}.|X.X&FORM|
|00002450| 28 27 69 66 27 29 3b 0a | 58 73 75 62 20 69 66 20 |('if');.|Xsub if |
|00002460| 7b 0a 58 09 23 20 58 58 | 58 20 61 72 67 63 6f 75 |{.X.# XX|X argcou|
|00002470| 6e 74 2c 20 73 79 6e 74 | 61 78 20 65 72 72 6f 72 |nt, synt|ax error|
|00002480| 2e 0a 58 09 69 66 20 28 | 26 65 76 61 6c 28 40 5f |..X.if (|&eval(@_|
|00002490| 5b 30 5d 29 29 20 7b 0a | 58 09 09 26 65 76 61 6c |[0])) {.|X..&eval|
|000024a0| 28 40 5f 5b 31 5d 29 3b | 0a 58 09 7d 20 65 6c 73 |(@_[1]);|.X.} els|
|000024b0| 69 66 20 28 40 5f 5b 32 | 5d 20 6e 65 20 27 27 29 |if (@_[2|] ne '')|
|000024c0| 20 7b 0a 58 09 09 26 65 | 76 61 6c 28 40 5f 5b 32 | {.X..&e|val(@_[2|
|000024d0| 5d 29 3b 0a 58 09 7d 20 | 65 6c 73 65 20 7b 0a 58 |]);.X.} |else {.X|
|000024e0| 09 09 24 4e 49 4c 3b 0a | 58 09 7d 0a 58 7d 0a 58 |..$NIL;.|X.}.X}.X|
|000024f0| 0a 58 26 46 4f 52 4d 28 | 27 63 6f 6e 64 27 29 3b |.X&FORM(|'cond');|
|00002500| 0a 58 73 75 62 20 63 6f | 6e 64 20 7b 0a 58 09 6c |.Xsub co|nd {.X.l|
|00002510| 6f 63 61 6c 28 40 73 69 | 70 29 20 3d 20 40 5f 3b |ocal(@si|p) = @_;|
|00002520| 0a 58 09 6c 6f 63 61 6c | 28 24 61 2c 20 24 64 2c |.X.local|($a, $d,|
|00002530| 20 24 78 29 3b 0a 58 09 | 66 6f 72 20 24 69 74 20 | $x);.X.|for $it |
|00002540| 28 40 73 69 70 29 20 7b | 0a 58 09 09 26 43 48 4b |(@sip) {|.X..&CHK|
|00002550| 74 79 70 65 28 24 69 74 | 2c 20 24 54 5f 50 41 49 |type($it|, $T_PAI|
|00002560| 52 2c 20 27 63 6f 6e 64 | 27 29 3b 0a 58 09 09 28 |R, 'cond|');.X..(|
|00002570| 24 61 2c 20 24 64 29 20 | 3d 20 26 50 76 61 6c 28 |$a, $d) |= &Pval(|
|00002580| 24 69 74 29 3b 0a 58 09 | 09 69 66 20 28 24 61 20 |$it);.X.|.if ($a |
|00002590| 65 71 20 24 45 4c 53 45 | 20 7c 7c 20 28 24 78 20 |eq $ELSE| || ($x |
|000025a0| 3d 20 26 65 76 61 6c 28 | 24 61 29 29 29 20 7b 0a |= &eval(|$a))) {.|
|000025b0| 58 09 09 09 26 43 48 4b | 74 79 70 65 28 24 69 74 |X...&CHK|type($it|
|000025c0| 2c 20 24 54 5f 50 41 49 | 52 2c 20 27 63 6f 6e 64 |, $T_PAI|R, 'cond|
|000025d0| 27 29 3b 0a 58 09 09 09 | 6c 6f 63 61 6c 28 40 76 |');.X...|local(@v|
|000025e0| 29 20 3d 20 26 4c 76 61 | 6c 28 24 64 29 3b 0a 58 |) = &Lva|l($d);.X|
|000025f0| 09 09 09 69 66 20 28 40 | 76 5b 30 5d 20 65 71 20 |...if (@|v[0] eq |
|00002600| 24 41 52 52 4f 57 29 20 | 7b 0a 58 09 09 09 09 23 |$ARROW) |{.X....#|
|00002610| 20 58 58 58 20 73 79 6e | 74 61 78 20 65 72 72 6f | XXX syn|tax erro|
|00002620| 72 2c 20 40 76 20 3e 20 | 32 3b 0a 58 09 09 09 09 |r, @v > |2;.X....|
|00002630| 72 65 74 75 72 6e 20 26 | 61 70 70 6c 79 4e 28 26 |return &|applyN(&|
|00002640| 65 76 61 6c 28 40 76 5b | 31 5d 29 2c 20 24 78 29 |eval(@v[|1]), $x)|
|00002650| 3b 0a 58 09 09 09 7d 20 | 65 6c 73 65 20 7b 0a 58 |;.X...} |else {.X|
|00002660| 09 09 09 09 72 65 74 75 | 72 6e 20 26 62 65 67 69 |....retu|rn &begi|
|00002670| 6e 28 40 76 29 3b 0a 58 | 09 09 09 7d 0a 58 09 09 |n(@v);.X|...}.X..|
|00002680| 7d 0a 58 09 7d 0a 58 09 | 72 65 74 75 72 6e 20 24 |}.X.}.X.|return $|
|00002690| 4e 49 4c 3b 0a 58 7d 0a | 58 0a 58 26 46 4f 52 4d |NIL;.X}.|X.X&FORM|
|000026a0| 28 27 63 61 73 65 27 29 | 3b 0a 58 73 75 62 20 63 |('case')|;.Xsub c|
|000026b0| 61 73 65 20 7b 0a 58 09 | 6c 6f 63 61 6c 28 40 73 |ase {.X.|local(@s|
|000026c0| 69 70 29 20 3d 20 40 5f | 3b 0a 58 09 6c 6f 63 61 |ip) = @_|;.X.loca|
|000026d0| 6c 28 24 78 29 20 3d 20 | 26 65 76 61 6c 28 73 68 |l($x) = |&eval(sh|
|000026e0| 69 66 74 20 40 73 69 70 | 29 3b 0a 58 09 6c 6f 63 |ift @sip|);.X.loc|
|000026f0| 61 6c 28 24 61 2c 20 24 | 64 29 3b 0a 58 09 66 6f |al($a, $|d);.X.fo|
|00002700| 72 20 24 69 74 20 28 40 | 73 69 70 29 20 7b 0a 58 |r $it (@|sip) {.X|
|00002710| 09 09 26 43 48 4b 74 79 | 70 65 28 24 69 74 2c 20 |..&CHKty|pe($it, |
|00002720| 24 54 5f 50 41 49 52 2c | 20 27 63 61 73 65 27 29 |$T_PAIR,| 'case')|
|00002730| 3b 0a 58 09 09 28 24 61 | 2c 20 24 64 29 20 3d 20 |;.X..($a|, $d) = |
|00002740| 26 50 76 61 6c 28 24 69 | 74 29 3b 0a 58 09 09 69 |&Pval($i|t);.X..i|
|00002750| 66 20 28 24 61 20 65 71 | 20 24 45 4c 53 45 20 7c |f ($a eq| $ELSE ||
|00002760| 7c 20 26 6d 65 6d 76 28 | 24 78 2c 20 24 61 29 29 || &memv(|$x, $a))|
|00002770| 20 7b 09 23 20 58 58 58 | 20 70 61 69 72 3f 20 24 | {.# XXX| pair? $|
|00002780| 61 0a 58 09 09 09 26 43 | 48 4b 74 79 70 65 28 24 |a.X...&C|HKtype($|
|00002790| 64 2c 20 24 54 5f 50 41 | 49 52 2c 20 27 63 61 73 |d, $T_PA|IR, 'cas|
|000027a0| 65 27 29 3b 0a 58 09 09 | 09 72 65 74 75 72 6e 20 |e');.X..|.return |
|000027b0| 26 62 65 67 69 6e 28 26 | 4c 76 61 6c 28 24 64 29 |&begin(&|Lval($d)|
|000027c0| 29 3b 0a 58 09 09 7d 0a | 58 09 7d 0a 58 09 72 65 |);.X..}.|X.}.X.re|
|000027d0| 74 75 72 6e 20 24 4e 49 | 4c 3b 0a 58 7d 0a 58 0a |turn $NI|L;.X}.X.|
|000027e0| 58 26 46 4f 52 4d 28 27 | 2a 74 69 6d 65 2d 65 78 |X&FORM('|*time-ex|
|000027f0| 65 63 75 74 69 6f 6e 27 | 29 3b 0a 58 73 75 62 20 |ecution'|);.Xsub |
|00002800| 58 74 69 6d 65 5f 65 78 | 65 63 75 74 69 6f 6e 20 |Xtime_ex|ecution |
|00002810| 7b 0a 58 09 6c 6f 63 61 | 6c 28 40 63 6f 64 65 29 |{.X.loca|l(@code)|
|00002820| 20 3d 20 40 5f 3b 0a 58 | 09 6c 6f 63 61 6c 28 24 | = @_;.X|.local($|
|00002830| 78 29 3b 0a 58 09 6c 6f | 63 61 6c 28 24 75 30 2c |x);.X.lo|cal($u0,|
|00002840| 20 24 73 30 2c 20 24 63 | 75 30 2c 20 24 63 73 30 | $s0, $c|u0, $cs0|
|00002850| 2c 20 24 74 30 29 3b 0a | 58 09 6c 6f 63 61 6c 28 |, $t0);.|X.local(|
|00002860| 24 75 31 2c 20 24 73 31 | 2c 20 24 63 75 31 2c 20 |$u1, $s1|, $cu1, |
|00002870| 24 63 73 31 2c 20 24 74 | 31 29 3b 0a 58 09 24 74 |$cs1, $t|1);.X.$t|
|00002880| 30 20 3d 20 74 69 6d 65 | 3b 0a 58 09 28 24 75 30 |0 = time|;.X.($u0|
|00002890| 2c 20 24 73 30 2c 20 24 | 63 75 30 2c 20 24 63 73 |, $s0, $|cu0, $cs|
|000028a0| 30 29 20 3d 20 74 69 6d | 65 73 3b 0a 58 09 24 78 |0) = tim|es;.X.$x|
|000028b0| 20 3d 20 26 62 65 67 69 | 6e 28 40 63 6f 64 65 29 | = &begi|n(@code)|
|000028c0| 3b 0a 58 09 28 24 75 31 | 2c 20 24 73 31 2c 20 24 |;.X.($u1|, $s1, $|
|000028d0| 63 75 31 2c 20 24 63 73 | 31 29 20 3d 20 74 69 6d |cu1, $cs|1) = tim|
|000028e0| 65 73 3b 0a 58 09 24 74 | 31 20 3d 20 74 69 6d 65 |es;.X.$t|1 = time|
|000028f0| 3b 0a 58 09 70 72 69 6e | 74 66 20 24 73 74 64 65 |;.X.prin|tf $stde|
|00002900| 72 72 20 22 5c 6e 74 69 | 6d 65 73 3a 20 25 2e 33 |rr "\nti|mes: %.3|
|00002910| 66 20 75 73 65 72 2c 20 | 25 2e 33 66 20 73 79 73 |f user, |%.3f sys|
|00002920| 74 65 6d 2c 20 25 64 3a | 25 30 32 64 20 72 65 61 |tem, %d:|%02d rea|
|00002930| 6c 2e 5c 6e 22 2c 0a 58 | 09 09 24 75 31 20 2d 20 |l.\n",.X|..$u1 - |
|00002940| 24 75 30 20 2b 20 24 63 | 75 31 20 2d 20 24 63 75 |$u0 + $c|u1 - $cu|
|00002950| 31 2c 0a 58 09 09 24 73 | 31 20 2d 20 24 73 30 20 |1,.X..$s|1 - $s0 |
|00002960| 2b 20 24 63 73 31 20 2d | 20 24 63 75 31 2c 0a 58 |+ $cs1 -| $cu1,.X|
|00002970| 09 09 28 24 74 31 20 2d | 20 24 74 30 29 20 2f 20 |..($t1 -| $t0) / |
|00002980| 36 30 2c 20 28 24 74 31 | 20 2d 20 24 74 30 29 20 |60, ($t1| - $t0) |
|00002990| 25 20 36 30 3b 0a 58 7d | 0a 58 0a 58 23 2d 2d 2d |% 60;.X}|.X.X#---|
|000029a0| 2d 2d 2d 0a 58 23 2d 2d | 20 49 6e 70 75 74 20 61 |---.X#--| Input a|
|000029b0| 6e 64 20 6f 75 74 70 75 | 74 20 70 6f 72 74 73 2e |nd outpu|t ports.|
|000029c0| 0a 58 23 2d 2d 2d 2d 2d | 2d 0a 58 0a 58 40 49 50 |.X#-----|-.X.X@IP|
|000029d0| 73 74 61 63 6b 20 3d 20 | 28 29 3b 0a 58 40 4f 50 |stack = |();.X@OP|
|000029e0| 73 74 61 63 6b 20 3d 20 | 28 29 3b 0a 58 0a 58 24 |stack = |();.X.X$|
|000029f0| 49 50 63 75 72 72 65 6e | 74 20 3d 20 24 73 74 64 |IPcurren|t = $std|
|00002a00| 69 6e 3b 0a 58 24 4f 50 | 63 75 72 72 65 6e 74 20 |in;.X$OP|current |
|00002a10| 3d 20 24 73 74 64 6f 75 | 74 3b 0a 58 0a 58 23 20 |= $stdou|t;.X.X# |
|00002a20| 52 65 73 74 6f 72 65 20 | 49 2f 4f 20 74 6f 20 61 |Restore |I/O to a|
|00002a30| 20 73 61 6e 65 20 73 74 | 61 74 65 2e 0a 58 73 75 | sane st|ate..Xsu|
|00002a40| 62 20 49 4f 72 65 73 65 | 74 20 7b 0a 58 09 40 49 |b IOrese|t {.X.@I|
|00002a50| 50 73 74 61 63 6b 20 3d | 20 28 29 3b 0a 58 09 40 |Pstack =| ();.X.@|
|00002a60| 4f 50 73 74 61 63 6b 20 | 3d 20 28 29 3b 0a 58 09 |OPstack |= ();.X.|
|00002a70| 24 49 50 63 75 72 72 65 | 6e 74 20 3d 20 24 73 74 |$IPcurre|nt = $st|
|00002a80| 64 69 6e 3b 0a 58 09 24 | 4f 50 63 75 72 72 65 6e |din;.X.$|OPcurren|
|00002a90| 74 20 3d 20 24 73 74 64 | 6f 75 74 3b 0a 58 09 73 |t = $std|out;.X.s|
|00002aa0| 65 6c 65 63 74 28 26 4f | 50 76 61 6c 28 24 73 74 |elect(&O|Pval($st|
|00002ab0| 64 6f 75 74 29 29 3b 0a | 58 09 24 7c 20 3d 20 31 |dout));.|X.$| = 1|
|00002ac0| 3b 0a 58 7d 0a 58 0a 58 | 26 53 55 42 52 31 28 27 |;.X}.X.X|&SUBR1('|
|00002ad0| 69 6e 70 75 74 2d 70 6f | 72 74 3f 27 29 3b 0a 58 |input-po|rt?');.X|
|00002ae0| 73 75 62 20 69 6e 70 75 | 74 5f 70 6f 72 74 50 20 |sub inpu|t_portP |
|00002af0| 7b 0a 58 09 26 54 59 50 | 45 28 40 5f 5b 30 5d 29 |{.X.&TYP|E(@_[0])|
|00002b00| 20 3d 3d 20 24 54 5f 49 | 4e 50 55 54 3b 0a 58 7d | == $T_I|NPUT;.X}|
|00002b10| 0a 58 0a 58 26 53 55 42 | 52 31 28 27 6f 75 74 70 |.X.X&SUB|R1('outp|
|00002b20| 75 74 2d 70 6f 72 74 3f | 27 29 3b 0a 58 73 75 62 |ut-port?|');.Xsub|
|00002b30| 20 6f 75 74 70 75 74 5f | 70 6f 72 74 50 20 7b 0a | output_|portP {.|
|00002b40| 58 09 26 54 59 50 45 28 | 40 5f 5b 30 5d 29 20 3d |X.&TYPE(|@_[0]) =|
|00002b50| 3d 20 24 54 5f 4f 55 54 | 50 55 54 3b 0a 58 7d 0a |= $T_OUT|PUT;.X}.|
|00002b60| 58 0a 58 26 53 55 42 52 | 30 28 27 63 75 72 72 65 |X.X&SUBR|0('curre|
|00002b70| 6e 74 2d 69 6e 70 75 74 | 2d 70 6f 72 74 27 29 3b |nt-input|-port');|
|00002b80| 0a 58 73 75 62 20 63 75 | 72 72 65 6e 74 5f 69 6e |.Xsub cu|rrent_in|
|00002b90| 70 75 74 5f 70 6f 72 74 | 20 7b 0a 58 09 24 49 50 |put_port| {.X.$IP|
|00002ba0| 63 75 72 72 65 6e 74 3b | 0a 58 7d 0a 58 0a 58 26 |current;|.X}.X.X&|
|00002bb0| 53 55 42 52 30 28 27 63 | 75 72 72 65 6e 74 2d 6f |SUBR0('c|urrent-o|
|00002bc0| 75 74 70 75 74 2d 70 6f | 72 74 27 29 3b 0a 58 73 |utput-po|rt');.Xs|
|00002bd0| 75 62 20 63 75 72 72 65 | 6e 74 5f 6f 75 74 70 75 |ub curre|nt_outpu|
|00002be0| 74 5f 70 6f 72 74 20 7b | 0a 58 09 24 4f 50 63 75 |t_port {|.X.$OPcu|
|00002bf0| 72 72 65 6e 74 3b 0a 58 | 7d 0a 58 0a 58 26 53 55 |rrent;.X|}.X.X&SU|
|00002c00| 42 52 32 28 27 77 69 74 | 68 2d 69 6e 70 75 74 2d |BR2('wit|h-input-|
|00002c10| 66 72 6f 6d 2d 66 69 6c | 65 27 2c 20 24 54 5f 53 |from-fil|e', $T_S|
|00002c20| 54 52 49 4e 47 2c 20 24 | 54 5f 50 52 4f 43 45 44 |TRING, $|T_PROCED|
|00002c30| 55 52 45 29 3b 0a 58 73 | 75 62 20 77 69 74 68 5f |URE);.Xs|ub with_|
|00002c40| 69 6e 70 75 74 5f 66 72 | 6f 6d 5f 66 69 6c 65 20 |input_fr|om_file |
|00002c50| 7b 0a 58 09 6c 6f 63 61 | 6c 28 40 73 69 70 29 20 |{.X.loca|l(@sip) |
|00002c60| 3d 20 40 5f 3b 0a 58 09 | 6c 6f 63 61 6c 28 24 66 |= @_;.X.|local($f|
|00002c70| 29 20 3d 20 26 49 50 28 | 26 53 76 61 6c 28 40 73 |) = &IP(|&Sval(@s|
|00002c80| 69 70 5b 30 5d 29 29 3b | 0a 58 09 72 65 74 75 72 |ip[0]));|.X.retur|
|00002c90| 6e 20 24 4e 49 4c 20 69 | 66 20 21 24 66 3b 09 23 |n $NIL i|f !$f;.#|
|00002ca0| 20 58 58 58 20 6f 70 65 | 6e 20 65 72 72 6f 72 0a | XXX ope|n error.|
|00002cb0| 58 0a 58 09 70 75 73 68 | 28 40 49 50 73 74 61 63 |X.X.push|(@IPstac|
|00002cc0| 6b 2c 20 24 49 50 63 75 | 72 72 65 6e 74 29 3b 0a |k, $IPcu|rrent);.|
|00002cd0| 58 09 24 49 50 63 75 72 | 72 65 6e 74 20 3d 20 24 |X.$IPcur|rent = $|
|00002ce0| 66 3b 0a 58 09 6c 6f 63 | 61 6c 28 24 78 29 20 3d |f;.X.loc|al($x) =|
|00002cf0| 20 26 61 70 70 6c 79 4e | 28 40 73 69 70 5b 31 5d | &applyN|(@sip[1]|
|00002d00| 29 3b 0a 58 09 24 49 50 | 63 75 72 72 65 6e 74 20 |);.X.$IP|current |
|00002d10| 3d 20 70 6f 70 20 40 49 | 50 73 74 61 63 6b 3b 0a |= pop @I|Pstack;.|
|00002d20| 58 09 63 6c 6f 73 65 28 | 26 49 50 76 61 6c 28 24 |X.close(|&IPval($|
|00002d30| 66 29 29 3b 0a 58 09 24 | 78 3b 0a 58 7d 0a 58 0a |f));.X.$|x;.X}.X.|
|00002d40| 58 26 53 55 42 52 32 28 | 27 77 69 74 68 2d 6f 75 |X&SUBR2(|'with-ou|
|00002d50| 74 70 75 74 2d 74 6f 2d | 66 69 6c 65 27 2c 20 24 |tput-to-|file', $|
|00002d60| 54 5f 53 54 52 49 4e 47 | 2c 20 24 54 5f 50 52 4f |T_STRING|, $T_PRO|
|00002d70| 43 45 44 55 52 45 29 3b | 0a 58 73 75 62 20 77 69 |CEDURE);|.Xsub wi|
|00002d80| 74 68 5f 6f 75 74 70 75 | 74 5f 74 6f 5f 66 69 6c |th_outpu|t_to_fil|
|00002d90| 65 20 7b 0a 58 09 6c 6f | 63 61 6c 28 40 73 69 70 |e {.X.lo|cal(@sip|
|00002da0| 29 20 3d 20 40 5f 3b 0a | 58 09 6c 6f 63 61 6c 28 |) = @_;.|X.local(|
|00002db0| 24 66 29 20 3d 20 26 4f | 50 28 26 53 76 61 6c 28 |$f) = &O|P(&Sval(|
|00002dc0| 40 73 69 70 5b 30 5d 29 | 29 3b 0a 58 09 72 65 74 |@sip[0])|);.X.ret|
|00002dd0| 75 72 6e 20 24 4e 49 4c | 20 69 66 20 21 24 66 3b |urn $NIL| if !$f;|
|00002de0| 09 23 20 58 58 58 20 6f | 70 65 6e 20 65 72 72 6f |.# XXX o|pen erro|
|00002df0| 72 2e 0a 58 0a 58 09 70 | 75 73 68 28 40 4f 50 73 |r..X.X.p|ush(@OPs|
|00002e00| 74 61 63 6b 2c 20 24 4f | 50 63 75 72 72 65 6e 74 |tack, $O|Pcurrent|
|00002e10| 29 3b 0a 58 09 24 4f 50 | 63 75 72 72 65 6e 74 20 |);.X.$OP|current |
|00002e20| 3d 20 24 66 3b 0a 58 09 | 6c 6f 63 61 6c 28 24 78 |= $f;.X.|local($x|
|00002e30| 29 20 3d 20 26 61 70 70 | 6c 79 4e 28 40 73 69 70 |) = &app|lyN(@sip|
|00002e40| 5b 31 5d 29 3b 0a 58 09 | 24 4f 50 63 75 72 72 65 |[1]);.X.|$OPcurre|
|00002e50| 6e 74 20 3d 20 70 6f 70 | 20 40 4f 50 73 74 61 63 |nt = pop| @OPstac|
|00002e60| 6b 3b 0a 58 09 63 6c 6f | 73 65 28 26 4f 50 76 61 |k;.X.clo|se(&OPva|
|00002e70| 6c 28 24 66 29 29 3b 0a | 58 09 24 78 3b 0a 58 7d |l($f));.|X.$x;.X}|
|00002e80| 0a 58 0a 58 26 53 55 42 | 52 31 28 27 6f 70 65 6e |.X.X&SUB|R1('open|
|00002e90| 2d 69 6e 70 75 74 2d 66 | 69 6c 65 27 2c 20 24 54 |-input-f|ile', $T|
|00002ea0| 5f 53 54 52 49 4e 47 29 | 3b 0a 58 73 75 62 20 6f |_STRING)|;.Xsub o|
|00002eb0| 70 65 6e 5f 69 6e 70 75 | 74 5f 66 69 6c 65 20 7b |pen_inpu|t_file {|
|00002ec0| 0a 58 09 26 49 50 28 26 | 53 76 61 6c 28 40 5f 5b |.X.&IP(&|Sval(@_[|
|00002ed0| 30 5d 29 29 3b 09 23 20 | 58 58 58 20 6f 70 65 6e |0]));.# |XXX open|
|00002ee0| 20 65 72 72 6f 72 2e 0a | 58 7d 0a 58 0a 58 26 53 | error..|X}.X.X&S|
|00002ef0| 55 42 52 31 28 27 6f 70 | 65 6e 2d 6f 75 74 70 75 |UBR1('op|en-outpu|
|00002f00| 74 2d 66 69 6c 65 27 2c | 20 24 54 5f 53 54 52 49 |t-file',| $T_STRI|
|00002f10| 4e 47 29 3b 0a 58 73 75 | 62 20 6f 70 65 6e 5f 6f |NG);.Xsu|b open_o|
|00002f20| 75 74 70 75 74 5f 66 69 | 6c 65 20 7b 0a 58 09 26 |utput_fi|le {.X.&|
|00002f30| 4f 50 28 26 53 76 61 6c | 28 40 5f 5b 30 5d 29 29 |OP(&Sval|(@_[0]))|
|00002f40| 3b 09 23 20 58 58 58 20 | 6f 70 65 6e 20 65 72 72 |;.# XXX |open err|
|00002f50| 6f 72 2e 0a 58 7d 0a 58 | 0a 58 26 53 55 42 52 31 |or..X}.X|.X&SUBR1|
|00002f60| 28 27 63 6c 6f 73 65 2d | 69 6e 70 75 74 2d 70 6f |('close-|input-po|
|00002f70| 72 74 27 2c 20 24 54 5f | 49 4e 50 55 54 29 3b 0a |rt', $T_|INPUT);.|
|00002f80| 58 73 75 62 20 63 6c 6f | 73 65 5f 69 6e 70 75 74 |Xsub clo|se_input|
|00002f90| 5f 70 6f 72 74 20 7b 0a | 58 09 63 6c 6f 73 65 28 |_port {.|X.close(|
|00002fa0| 26 49 50 76 61 6c 28 40 | 5f 5b 30 5d 29 29 3b 09 |&IPval(@|_[0]));.|
|00002fb0| 23 20 58 58 58 20 73 68 | 6f 75 6c 64 20 64 65 73 |# XXX sh|ould des|
|00002fc0| 74 72 6f 79 20 70 6f 72 | 74 2e 0a 58 09 26 49 50 |troy por|t..X.&IP|
|00002fd0| 67 65 74 28 40 5f 5b 30 | 5d 29 3b 09 23 20 66 6c |get(@_[0|]);.# fl|
|00002fe0| 75 73 68 20 74 68 65 20 | 69 6e 70 75 74 20 62 75 |ush the |input bu|
|00002ff0| 66 66 65 72 2e 0a 58 09 | 24 54 52 55 45 3b 0a 58 |ffer..X.|$TRUE;.X|
|00003000| 7d 0a 58 0a 58 26 53 55 | 42 52 31 28 27 63 6c 6f |}.X.X&SU|BR1('clo|
|00003010| 73 65 2d 6f 75 74 70 75 | 74 2d 70 6f 72 74 27 2c |se-outpu|t-port',|
|00003020| 20 24 54 5f 4f 55 54 50 | 55 54 29 3b 0a 58 73 75 | $T_OUTP|UT);.Xsu|
|00003030| 62 20 63 6c 6f 73 65 5f | 6f 75 74 70 75 74 5f 70 |b close_|output_p|
|00003040| 6f 72 74 20 7b 0a 58 09 | 63 6c 6f 73 65 28 26 4f |ort {.X.|close(&O|
|00003050| 50 76 61 6c 28 40 5f 5b | 30 5d 29 29 3b 09 23 20 |Pval(@_[|0]));.# |
|00003060| 58 58 58 20 73 68 6f 75 | 6c 64 20 64 65 73 74 72 |XXX shou|ld destr|
|00003070| 6f 79 20 70 6f 72 74 2e | 0a 58 09 24 54 52 55 45 |oy port.|.X.$TRUE|
|00003080| 3b 0a 58 7d 0a 58 0a 58 | 23 2d 2d 2d 2d 2d 2d 0a |;.X}.X.X|#------.|
|00003090| 58 23 2d 2d 20 49 6e 70 | 75 74 2e 0a 58 23 2d 2d |X#-- Inp|ut..X#--|
|000030a0| 2d 2d 2d 2d 0a 58 0a 58 | 24 45 4f 46 20 3d 20 26 |----.X.X|$EOF = &|
|000030b0| 59 28 27 23 45 4f 46 27 | 29 3b 09 23 20 65 6f 66 |Y('#EOF'|);.# eof|
|000030c0| 20 6f 62 6a 65 63 74 2e | 0a 58 0a 58 26 53 55 42 | object.|.X.X&SUB|
|000030d0| 52 31 28 27 65 6f 66 2d | 6f 62 6a 65 63 74 3f 27 |R1('eof-|object?'|
|000030e0| 29 3b 0a 58 73 75 62 20 | 65 6f 66 5f 6f 62 6a 65 |);.Xsub |eof_obje|
|000030f0| 63 74 50 20 7b 0a 58 09 | 40 5f 5b 30 5d 20 65 71 |ctP {.X.|@_[0] eq|
|00003100| 20 24 45 4f 46 3b 0a 58 | 7d 0a 58 0a 58 26 53 55 | $EOF;.X|}.X.X&SU|
|00003110| 42 52 28 27 72 65 61 64 | 2d 63 68 61 72 27 2c 20 |BR('read|-char', |
|00003120| 30 2c 20 31 2c 20 24 54 | 5f 49 4e 50 55 54 29 3b |0, 1, $T|_INPUT);|
|00003130| 0a 58 73 75 62 20 72 65 | 61 64 5f 63 68 61 72 20 |.Xsub re|ad_char |
|00003140| 7b 0a 58 09 6c 6f 63 61 | 6c 28 24 69 70 29 20 3d |{.X.loca|l($ip) =|
|00003150| 20 40 5f 20 3f 20 40 5f | 20 3a 20 24 49 50 63 75 | @_ ? @_| : $IPcu|
|00003160| 72 72 65 6e 74 3b 0a 58 | 09 6c 6f 63 61 6c 28 24 |rrent;.X|.local($|
|00003170| 5f 29 20 3d 20 26 49 50 | 67 65 74 28 24 69 70 29 |_) = &IP|get($ip)|
|00003180| 3b 0a 58 09 72 65 74 75 | 72 6e 20 24 45 4f 46 20 |;.X.retu|rn $EOF |
|00003190| 69 66 20 24 5f 20 65 71 | 20 27 27 3b 0a 58 09 6c |if $_ eq| '';.X.l|
|000031a0| 6f 63 61 6c 28 24 63 29 | 20 3d 20 73 75 62 73 74 |ocal($c)| = subst|
|000031b0| 72 28 24 5f 2c 20 30 2c | 20 31 29 3b 0a 58 09 26 |r($_, 0,| 1);.X.&|
|000031c0| 49 50 70 75 74 28 24 69 | 70 2c 20 73 75 62 73 74 |IPput($i|p, subst|
|000031d0| 72 28 24 5f 2c 20 31 2c | 20 6c 65 6e 67 74 68 20 |r($_, 1,| length |
|000031e0| 2d 20 31 29 29 3b 0a 58 | 09 26 43 28 24 63 29 3b |- 1));.X|.&C($c);|
|000031f0| 0a 58 7d 0a 58 0a 58 26 | 53 55 42 52 28 27 63 68 |.X}.X.X&|SUBR('ch|
|00003200| 61 72 2d 72 65 61 64 79 | 3f 27 2c 20 30 2c 20 31 |ar-ready|?', 0, 1|
|00003210| 2c 20 24 54 5f 49 4e 50 | 55 54 29 3b 0a 58 73 75 |, $T_INP|UT);.Xsu|
|00003220| 62 20 63 68 61 72 5f 72 | 65 61 64 79 50 20 7b 0a |b char_r|eadyP {.|
|00003230| 58 09 6c 6f 63 61 6c 28 | 24 69 70 29 20 3d 20 40 |X.local(|$ip) = @|
|00003240| 5f 20 3f 20 40 5f 20 3a | 20 24 49 50 63 75 72 72 |_ ? @_ :| $IPcurr|
|00003250| 65 6e 74 3b 0a 58 09 24 | 49 50 62 75 66 66 65 72 |ent;.X.$|IPbuffer|
|00003260| 7b 24 69 70 7d 20 6e 65 | 20 27 27 3b 09 23 20 58 |{$ip} ne| '';.# X|
|00003270| 58 58 20 73 68 6f 75 6c | 64 6e 27 74 20 72 65 66 |XX shoul|dn't ref|
|00003280| 65 72 20 74 6f 20 49 50 | 62 75 66 66 65 72 20 64 |er to IP|buffer d|
|00003290| 69 72 65 63 74 6c 79 2e | 0a 58 7d 0a 58 0a 58 26 |irectly.|.X}.X.X&|
|000032a0| 53 55 42 52 28 27 72 65 | 61 64 2d 6c 69 6e 65 27 |SUBR('re|ad-line'|
|000032b0| 2c 20 30 2c 20 31 2c 20 | 24 54 5f 49 4e 50 55 54 |, 0, 1, |$T_INPUT|
|000032c0| 29 3b 09 23 20 28 65 78 | 74 65 6e 73 69 6f 6e 29 |);.# (ex|tension)|
|000032d0| 0a 58 73 75 62 20 72 65 | 61 64 5f 6c 69 6e 65 20 |.Xsub re|ad_line |
|000032e0| 7b 0a 58 09 6c 6f 63 61 | 6c 28 24 69 70 29 20 3d |{.X.loca|l($ip) =|
|000032f0| 20 40 5f 20 3f 20 40 5f | 20 3a 20 24 49 50 63 75 | @_ ? @_| : $IPcu|
|00003300| 72 72 65 6e 74 3b 0a 58 | 09 6c 6f 63 61 6c 28 24 |rrent;.X|.local($|
|00003310| 5f 29 20 3d 20 26 49 50 | 67 65 74 28 24 69 70 29 |_) = &IP|get($ip)|
|00003320| 3b 0a 58 09 24 5f 20 65 | 71 20 27 27 20 3f 20 24 |;.X.$_ e|q '' ? $|
|00003330| 45 4f 46 20 3a 20 26 53 | 28 24 5f 29 3b 0a 58 7d |EOF : &S|($_);.X}|
|00003340| 0a 58 0a 58 26 53 55 42 | 52 28 27 72 65 61 64 27 |.X.X&SUB|R('read'|
|00003350| 2c 20 30 2c 20 31 2c 20 | 24 54 5f 49 4e 50 55 54 |, 0, 1, |$T_INPUT|
|00003360| 29 3b 0a 58 73 75 62 20 | 72 65 61 64 20 7b 0a 58 |);.Xsub |read {.X|
|00003370| 09 6c 6f 63 61 6c 28 24 | 69 70 29 20 3d 20 40 5f |.local($|ip) = @_|
|00003380| 20 3f 20 40 5f 20 3a 20 | 24 49 50 63 75 72 72 65 | ? @_ : |$IPcurre|
|00003390| 6e 74 3b 0a 58 09 6c 6f | 63 61 6c 28 24 5f 29 20 |nt;.X.lo|cal($_) |
|000033a0| 3d 20 26 49 50 67 65 74 | 6e 73 28 24 69 70 29 3b |= &IPget|ns($ip);|
|000033b0| 0a 58 0a 58 09 69 66 20 | 28 24 5f 20 65 71 20 27 |.X.X.if |($_ eq '|
|000033c0| 27 29 20 7b 0a 58 09 09 | 24 45 4f 46 3b 0a 58 09 |') {.X..|$EOF;.X.|
|000033d0| 7d 20 65 6c 73 69 66 20 | 28 2f 5e 5c 28 2f 29 20 |} elsif |(/^\(/) |
|000033e0| 7b 0a 58 09 09 26 49 50 | 70 75 74 28 24 69 70 2c |{.X..&IP|put($ip,|
|000033f0| 20 24 27 29 3b 0a 58 09 | 09 26 4c 28 26 52 44 76 | $');.X.|.&L(&RDv|
|00003400| 65 63 28 24 69 70 29 29 | 3b 0a 58 09 7d 20 65 6c |ec($ip))|;.X.} el|
|00003410| 73 69 66 20 28 2f 5e 27 | 2f 29 20 7b 0a 58 09 09 |sif (/^'|/) {.X..|
|00003420| 26 49 50 70 75 74 28 24 | 69 70 2c 20 24 27 29 3b |&IPput($|ip, $');|
|00003430| 0a 58 09 09 26 50 28 24 | 51 55 4f 54 45 2c 20 26 |.X..&P($|QUOTE, &|
|00003440| 50 28 26 72 65 61 64 28 | 24 69 70 29 2c 20 24 4e |P(&read(|$ip), $N|
|00003450| 49 4c 29 29 3b 0a 58 09 | 7d 20 65 6c 73 69 66 20 |IL));.X.|} elsif |
|00003460| 28 2f 5e 60 2f 29 20 7b | 0a 58 09 09 26 49 50 70 |(/^`/) {|.X..&IPp|
|00003470| 75 74 28 24 69 70 2c 20 | 24 27 29 3b 0a 58 09 09 |ut($ip, |$');.X..|
|00003480| 26 50 28 24 51 55 41 53 | 49 51 55 4f 54 45 2c 20 |&P($QUAS|IQUOTE, |
|00003490| 26 50 28 26 72 65 61 64 | 28 24 69 70 29 2c 20 24 |&P(&read|($ip), $|
|000034a0| 4e 49 4c 29 29 3b 0a 58 | 09 7d 20 65 6c 73 69 66 |NIL));.X|.} elsif|
|000034b0| 20 28 2f 5e 2c 40 2f 29 | 20 7b 0a 58 09 09 26 49 | (/^,@/)| {.X..&I|
|000034c0| 50 70 75 74 28 24 69 70 | 2c 20 24 27 29 3b 0a 58 |Pput($ip|, $');.X|
|000034d0| 09 09 26 50 28 24 55 4e | 51 55 4f 54 45 5f 53 50 |..&P($UN|QUOTE_SP|
|000034e0| 4c 49 43 49 4e 47 2c 20 | 26 50 28 26 72 65 61 64 |LICING, |&P(&read|
|000034f0| 28 24 69 70 29 2c 20 24 | 4e 49 4c 29 29 3b 0a 58 |($ip), $|NIL));.X|
|00003500| 09 7d 20 65 6c 73 69 66 | 20 28 2f 5e 2c 2f 29 20 |.} elsif| (/^,/) |
|00003510| 7b 0a 58 09 09 26 49 50 | 70 75 74 28 24 69 70 2c |{.X..&IP|put($ip,|
|00003520| 20 24 27 29 3b 0a 58 09 | 09 26 50 28 24 55 4e 51 | $');.X.|.&P($UNQ|
|00003530| 55 4f 54 45 2c 20 26 50 | 28 26 72 65 61 64 28 24 |UOTE, &P|(&read($|
|00003540| 69 70 29 2c 20 24 4e 49 | 4c 29 29 3b 0a 58 09 7d |ip), $NI|L));.X.}|
|00003550| 20 65 6c 73 69 66 20 28 | 2f 5e 22 2f 29 20 7b 0a | elsif (|/^"/) {.|
|00003560| 58 09 09 26 49 50 70 75 | 74 28 24 69 70 2c 20 24 |X..&IPpu|t($ip, $|
|00003570| 27 29 3b 0a 58 09 09 26 | 53 28 26 52 44 73 74 72 |');.X..&|S(&RDstr|
|00003580| 69 6e 67 28 24 69 70 29 | 29 3b 0a 58 09 7d 20 65 |ing($ip)|);.X.} e|
|00003590| 6c 73 69 66 20 28 2f 5e | 23 5c 28 2f 29 20 7b 0a |lsif (/^|#\(/) {.|
|000035a0| 58 09 09 26 49 50 70 75 | 74 28 24 69 70 2c 20 24 |X..&IPpu|t($ip, $|
|000035b0| 27 29 3b 0a 58 09 09 26 | 56 28 26 52 44 76 65 63 |');.X..&|V(&RDvec|
|000035c0| 28 24 69 70 29 29 3b 0a | 58 09 7d 20 65 6c 73 69 |($ip));.|X.} elsi|
|000035d0| 66 20 28 2f 5e 28 23 5c | 5c 5c 77 5c 77 2b 29 5c |f (/^(#\|\\w\w+)\|
|000035e0| 73 2a 2f 29 20 7b 0a 58 | 09 09 6c 6f 63 61 6c 28 |s*/) {.X|..local(|
|000035f0| 24 78 29 20 3d 20 24 31 | 3b 0a 58 09 09 26 49 50 |$x) = $1|;.X..&IP|
|00003600| 70 75 74 28 24 69 70 2c | 20 24 27 29 3b 0a 58 09 |put($ip,| $');.X.|
|00003610| 09 26 52 44 74 6f 6b 65 | 6e 28 24 78 29 3b 0a 58 |.&RDtoke|n($x);.X|
|00003620| 09 7d 20 65 6c 73 69 66 | 20 28 2f 5e 23 5c 5c 28 |.} elsif| (/^#\\(|
|00003630| 5b 5c 30 2d 5c 33 37 37 | 5d 29 5c 73 2a 2f 29 20 |[\0-\377|])\s*/) |
|00003640| 7b 0a 58 09 09 6c 6f 63 | 61 6c 28 24 63 29 20 3d |{.X..loc|al($c) =|
|00003650| 20 24 31 3b 0a 58 09 09 | 26 49 50 70 75 74 28 24 | $1;.X..|&IPput($|
|00003660| 69 70 2c 20 24 27 29 3b | 0a 58 09 09 26 43 28 24 |ip, $');|.X..&C($|
|00003670| 63 29 3b 0a 58 09 7d 20 | 65 6c 73 69 66 20 28 2f |c);.X.} |elsif (/|
|00003680| 5e 28 5b 5e 28 29 22 27 | 2c 5c 73 5d 2b 29 5c 73 |^([^()"'|,\s]+)\s|
|00003690| 2a 2f 29 20 7b 0a 58 09 | 09 6c 6f 63 61 6c 28 24 |*/) {.X.|.local($|
|000036a0| 78 29 20 3d 20 24 31 3b | 0a 58 09 09 26 49 50 70 |x) = $1;|.X..&IPp|
|000036b0| 75 74 28 24 69 70 2c 20 | 24 27 29 3b 0a 58 09 09 |ut($ip, |$');.X..|
|000036c0| 26 52 44 74 6f 6b 65 6e | 28 24 78 29 3b 0a 58 09 |&RDtoken|($x);.X.|
|000036d0| 7d 20 65 6c 73 65 20 7b | 0a 58 09 09 26 45 52 52 |} else {|.X..&ERR|
|000036e0| 28 22 66 61 69 6c 75 72 | 65 20 69 6e 20 52 45 41 |("failur|e in REA|
|000036f0| 44 2c 20 63 61 6e 27 74 | 20 75 6e 64 65 72 73 74 |D, can't| underst|
|00003700| 61 6e 64 20 24 5f 22 29 | 3b 0a 58 09 7d 0a 58 7d |and $_")|;.X.}.X}|
|00003710| 0a 58 0a 58 73 75 62 20 | 52 44 74 6f 6b 65 6e 20 |.X.Xsub |RDtoken |
|00003720| 7b 0a 58 09 6c 6f 63 61 | 6c 28 24 5f 29 20 3d 20 |{.X.loca|l($_) = |
|00003730| 40 5f 3b 0a 58 09 24 5f | 20 3d 7e 20 74 72 2f 41 |@_;.X.$_| =~ tr/A|
|00003740| 2d 5a 2f 61 2d 7a 2f 3b | 0a 58 0a 58 09 69 66 20 |-Z/a-z/;|.X.X.if |
|00003750| 20 20 20 28 2f 5e 5c 2e | 24 2f 29 09 09 7b 20 27 |   (/^\.|$/)..{ '|
|00003760| 2e 27 3b 20 7d 09 23 20 | 72 65 61 64 20 68 61 63 |.'; }.# |read hac|
|00003770| 6b 2e 0a 58 09 65 6c 73 | 69 66 20 28 2f 5e 23 74 |k..X.els|if (/^#t|
|00003780| 24 2f 29 09 09 7b 20 24 | 54 52 55 45 3b 20 7d 0a |$/)..{ $|TRUE; }.|
|00003790| 58 09 65 6c 73 69 66 20 | 28 2f 5e 23 66 24 2f 29 |X.elsif |(/^#f$/)|
|000037a0| 09 09 7b 20 24 46 41 4c | 53 45 3b 20 7d 0a 58 09 |..{ $FAL|SE; }.X.|
|000037b0| 65 6c 73 69 66 20 28 2f | 5e 23 5c 5c 73 70 61 63 |elsif (/|^#\\spac|
|000037c0| 65 24 2f 29 09 7b 20 26 | 43 28 27 20 27 29 3b 20 |e$/).{ &|C(' '); |
|000037d0| 7d 0a 58 09 65 6c 73 69 | 66 20 28 2f 5e 23 5c 5c |}.X.elsi|f (/^#\\|
|000037e0| 6e 65 77 6c 69 6e 65 24 | 2f 29 09 7b 20 26 43 28 |newline$|/).{ &C(|
|000037f0| 22 5c 6e 22 29 3b 20 7d | 0a 58 09 65 6c 73 69 66 |"\n"); }|.X.elsif|
|00003800| 20 28 2f 5e 23 5c 5c 74 | 61 62 24 2f 29 09 7b 20 | (/^#\\t|ab$/).{ |
|00003810| 26 43 28 22 5c 74 22 29 | 3b 20 7d 0a 58 0a 58 09 |&C("\t")|; }.X.X.|
|00003820| 65 6c 73 69 66 20 28 2f | 5e 23 2f 29 20 7b 0a 58 |elsif (/|^#/) {.X|
|00003830| 09 09 26 45 52 52 28 22 | 72 65 61 64 2c 20 62 61 |..&ERR("|read, ba|
|00003840| 64 20 74 6f 6b 65 6e 20 | 24 5f 22 29 3b 0a 58 09 |d token |$_");.X.|
|00003850| 7d 20 65 6c 73 69 66 20 | 28 2f 5e 5b 2d 2b 5d 3f |} elsif |(/^[-+]?|
|00003860| 28 5c 64 2b 5c 2e 3f 5c | 64 2a 7c 5c 64 2a 5c 2e |(\d+\.?\|d*|\d*\.|
|00003870| 5c 64 2b 29 28 65 5b 2d | 2b 5d 3f 5c 64 2b 29 3f |\d+)(e[-|+]?\d+)?|
|00003880| 24 2f 29 20 7b 0a 58 09 | 09 26 4e 28 24 5f 20 2b |$/) {.X.|.&N($_ +|
|00003890| 20 30 29 3b 0a 58 09 7d | 20 65 6c 73 69 66 20 28 | 0);.X.}| elsif (|
|000038a0| 2f 5e 5b 2d 2b 5d 3f 28 | 5c 64 2b 29 5c 2f 28 5c |/^[-+]?(|\d+)\/(\|
|000038b0| 64 2b 29 24 2f 29 20 7b | 0a 58 09 09 26 4e 28 24 |d+)$/) {|.X..&N($|
|000038c0| 31 20 2f 20 24 32 29 3b | 0a 58 09 7d 20 65 6c 73 |1 / $2);|.X.} els|
|000038d0| 65 20 7b 0a 58 09 09 26 | 59 28 24 5f 29 3b 0a 58 |e {.X..&|Y($_);.X|
|000038e0| 09 7d 0a 58 7d 0a 58 0a | 58 73 75 62 20 52 44 76 |.}.X}.X.|Xsub RDv|
|000038f0| 65 63 20 7b 0a 58 09 6c | 6f 63 61 6c 28 24 69 70 |ec {.X.l|ocal($ip|
|00003900| 29 20 3d 20 40 5f 3b 0a | 58 09 6c 6f 63 61 6c 28 |) = @_;.|X.local(|
|00003910| 24 5f 2c 20 40 76 29 3b | 0a 58 09 77 68 69 6c 65 |$_, @v);|.X.while|
|00003920| 20 28 28 24 5f 20 3d 20 | 26 49 50 67 65 74 6e 73 | (($_ = |&IPgetns|
|00003930| 28 24 69 70 29 29 20 6e | 65 20 27 27 29 20 7b 0a |($ip)) n|e '') {.|
|00003940| 58 09 09 26 49 50 70 75 | 74 28 24 69 70 2c 20 24 |X..&IPpu|t($ip, $|
|00003950| 27 29 2c 20 6c 61 73 74 | 20 69 66 20 2f 5e 5c 29 |'), last| if /^\)|
|00003960| 5c 73 2a 2f 3b 0a 58 09 | 09 26 49 50 70 75 74 28 |\s*/;.X.|.&IPput(|
|00003970| 24 69 70 2c 20 24 5f 29 | 3b 0a 58 09 09 70 75 73 |$ip, $_)|;.X..pus|
|00003980| 68 28 40 76 2c 20 26 72 | 65 61 64 28 24 69 70 29 |h(@v, &r|ead($ip)|
|00003990| 29 3b 0a 58 09 7d 0a 58 | 09 69 66 20 28 24 5f 20 |);.X.}.X|.if ($_ |
|000039a0| 65 71 20 27 27 29 20 7b | 0a 58 09 09 26 45 52 52 |eq '') {|.X..&ERR|
|000039b0| 28 22 45 4f 46 20 77 68 | 69 6c 65 20 72 65 61 64 |("EOF wh|ile read|
|000039c0| 69 6e 67 20 6c 69 73 74 | 20 6f 72 20 76 65 63 74 |ing list| or vect|
|000039d0| 6f 72 2e 22 29 3b 0a 58 | 09 7d 0a 58 09 72 65 74 |or.");.X|.}.X.ret|
|000039e0| 75 72 6e 20 40 76 3b 0a | 58 7d 0a 58 0a 58 73 75 |urn @v;.|X}.X.Xsu|
|000039f0| 62 20 52 44 73 74 72 69 | 6e 67 20 7b 0a 58 09 6c |b RDstri|ng {.X.l|
|00003a00| 6f 63 61 6c 28 24 69 70 | 29 20 3d 20 40 5f 3b 0a |ocal($ip|) = @_;.|
|00003a10| 58 09 6c 6f 63 61 6c 28 | 24 73 29 20 3d 20 22 22 |X.local(|$s) = ""|
|00003a20| 3b 0a 58 09 24 5f 20 3d | 20 26 49 50 67 65 74 28 |;.X.$_ =| &IPget(|
|00003a30| 24 69 70 29 3b 0a 58 09 | 77 68 69 6c 65 20 28 24 |$ip);.X.|while ($|
|00003a40| 5f 20 6e 65 20 27 27 29 | 20 7b 0a 58 09 09 26 49 |_ ne '')| {.X..&I|
|00003a50| 50 70 75 74 28 24 69 70 | 2c 20 24 27 29 2c 20 6c |Pput($ip|, $'), l|
|00003a60| 61 73 74 20 69 66 20 2f | 5e 22 5c 73 2a 2f 3b 0a |ast if /|^"\s*/;.|
|00003a70| 58 09 09 69 66 20 28 2f | 5e 5c 5c 28 5b 5c 30 2d |X..if (/|^\\([\0-|
|00003a80| 5c 33 37 37 5d 29 2f 29 | 20 7b 0a 58 09 09 09 24 |\377])/)| {.X...$|
|00003a90| 73 20 2e 3d 20 24 31 3b | 20 24 5f 20 3d 20 24 27 |s .= $1;| $_ = $'|
|00003aa0| 3b 0a 58 09 09 7d 20 65 | 6c 73 69 66 20 28 2f 5e |;.X..} e|lsif (/^|
|00003ab0| 5b 5e 22 5c 5c 5d 2b 2f | 29 20 7b 0a 58 09 09 09 |[^"\\]+/|) {.X...|
|00003ac0| 24 73 20 2e 3d 20 24 26 | 3b 20 24 5f 20 3d 20 24 |$s .= $&|; $_ = $|
|00003ad0| 27 3b 0a 58 09 09 7d 20 | 65 6c 73 65 20 7b 0a 58 |';.X..} |else {.X|
|00003ae0| 09 09 09 24 73 20 2e 3d | 20 24 5f 3b 20 24 5f 20 |...$s .=| $_; $_ |
|00003af0| 3d 20 27 27 3b 0a 58 09 | 09 7d 0a 58 09 09 24 5f |= '';.X.|.}.X..$_|
|00003b00| 20 3d 20 26 49 50 67 65 | 74 28 24 69 70 29 20 69 | = &IPge|t($ip) i|
|00003b10| 66 20 24 5f 20 65 71 20 | 27 27 3b 0a 58 09 7d 0a |f $_ eq |'';.X.}.|
|00003b20| 58 09 72 65 74 75 72 6e | 20 24 73 3b 0a 58 7d 0a |X.return| $s;.X}.|
|00003b30| 58 0a 58 23 2d 2d 2d 2d | 2d 2d 0a 58 23 2d 2d 20 |X.X#----|--.X#-- |
|00003b40| 4f 75 74 70 75 74 2e 0a | 58 23 2d 2d 2d 2d 2d 2d |Output..|X#------|
|00003b50| 0a 58 0a 58 26 53 55 42 | 52 28 27 6e 65 77 6c 69 |.X.X&SUB|R('newli|
|00003b60| 6e 65 27 2c 20 30 2c 20 | 31 2c 20 24 54 5f 4f 55 |ne', 0, |1, $T_OU|
|00003b70| 54 50 55 54 29 3b 0a 58 | 73 75 62 20 6e 65 77 6c |TPUT);.X|sub newl|
|00003b80| 69 6e 65 20 7b 0a 58 09 | 26 4f 50 70 75 74 28 40 |ine {.X.|&OPput(@|
|00003b90| 5f 20 3f 20 40 5f 5b 30 | 5d 20 3a 20 24 4f 50 63 |_ ? @_[0|] : $OPc|
|00003ba0| 75 72 72 65 6e 74 2c 20 | 22 5c 6e 22 29 3b 0a 58 |urrent, |"\n");.X|
|00003bb0| 7d 0a 58 0a 58 26 53 55 | 42 52 28 27 77 72 69 74 |}.X.X&SU|BR('writ|
|00003bc0| 65 2d 63 68 61 72 27 2c | 20 31 2c 20 32 2c 20 24 |e-char',| 1, 2, $|
|00003bd0| 54 5f 43 48 41 52 2c 20 | 24 54 5f 4f 55 54 50 55 |T_CHAR, |$T_OUTPU|
|00003be0| 54 29 3b 0a 58 73 75 62 | 20 77 72 69 74 65 5f 63 |T);.Xsub| write_c|
|00003bf0| 68 61 72 20 7b 0a 58 09 | 26 4f 50 70 75 74 28 40 |har {.X.|&OPput(@|
|00003c00| 5f 20 3e 20 31 20 3f 20 | 40 5f 5b 31 5d 20 3a 20 |_ > 1 ? |@_[1] : |
|00003c10| 24 4f 50 63 75 72 72 65 | 6e 74 2c 20 26 43 76 61 |$OPcurre|nt, &Cva|
|00003c20| 6c 28 40 5f 5b 30 5d 29 | 29 3b 0a 58 7d 0a 58 0a |l(@_[0])|);.X}.X.|
|00003c30| 58 24 57 52 71 75 6f 74 | 65 64 20 3d 20 30 3b 0a |X$WRquot|ed = 0;.|
|00003c40| 58 25 57 52 6d 61 72 6b | 20 3d 20 28 29 3b 0a 58 |X%WRmark| = ();.X|
|00003c50| 0a 58 26 53 55 42 52 28 | 27 77 72 69 74 65 27 2c |.X&SUBR(|'write',|
|00003c60| 20 31 2c 20 32 2c 20 24 | 54 5f 41 4e 59 2c 20 24 | 1, 2, $|T_ANY, $|
|00003c70| 54 5f 4f 55 54 50 55 54 | 29 3b 0a 58 73 75 62 20 |T_OUTPUT|);.Xsub |
|00003c80| 77 72 69 74 65 20 7b 0a | 58 09 24 57 52 71 75 6f |write {.|X.$WRquo|
|00003c90| 74 65 64 20 3d 20 31 3b | 0a 58 09 26 57 52 28 40 |ted = 1;|.X.&WR(@|
|00003ca0| 5f 29 3b 0a 58 7d 0a 58 | 0a 58 26 53 55 42 52 28 |_);.X}.X|.X&SUBR(|
|00003cb0| 27 64 69 73 70 6c 61 79 | 27 2c 20 31 2c 20 32 2c |'display|', 1, 2,|
|00003cc0| 20 24 54 5f 41 4e 59 2c | 20 24 54 5f 4f 55 54 50 | $T_ANY,| $T_OUTP|
|00003cd0| 55 54 29 3b 0a 58 73 75 | 62 20 64 69 73 70 6c 61 |UT);.Xsu|b displa|
|00003ce0| 79 20 7b 0a 58 09 24 57 | 52 71 75 6f 74 65 64 20 |y {.X.$W|Rquoted |
|00003cf0| 3d 20 30 3b 0a 58 09 26 | 57 52 28 40 5f 29 3b 0a |= 0;.X.&|WR(@_);.|
|00003d00| 58 7d 0a 58 73 75 62 20 | 57 52 20 7b 0a 58 09 6c |X}.Xsub |WR {.X.l|
|00003d10| 6f 63 61 6c 28 40 73 69 | 70 29 20 3d 20 40 5f 3b |ocal(@si|p) = @_;|
|00003d20| 0a 58 09 6c 6f 63 61 6c | 28 24 66 68 29 20 3d 20 |.X.local|($fh) = |
|00003d30| 26 4f 50 76 61 6c 28 40 | 5f 20 3e 20 31 20 3f 20 |&OPval(@|_ > 1 ? |
|00003d40| 40 5f 5b 31 5d 20 3a 20 | 24 4f 50 63 75 72 72 65 |@_[1] : |$OPcurre|
|00003d50| 6e 74 29 3b 0a 58 09 6c | 6f 63 61 6c 28 24 6f 6c |nt);.X.l|ocal($ol|
|00003d60| 64 66 68 29 20 3d 20 73 | 65 6c 65 63 74 28 24 66 |dfh) = s|elect($f|
|00003d70| 68 29 3b 0a 58 09 25 57 | 52 6d 61 72 6b 20 3d 20 |h);.X.%W|Rmark = |
|00003d80| 28 29 3b 0a 58 09 26 57 | 52 31 28 40 5f 5b 30 5d |();.X.&W|R1(@_[0]|
|00003d90| 29 3b 0a 58 09 73 65 6c | 65 63 74 28 24 6f 6c 64 |);.X.sel|ect($old|
|00003da0| 66 68 29 3b 0a 58 09 24 | 54 52 55 45 3b 0a 58 7d |fh);.X.$|TRUE;.X}|
|00003db0| 0a 58 0a 58 73 75 62 20 | 57 52 31 20 7b 0a 58 09 |.X.Xsub |WR1 {.X.|
|00003dc0| 6c 6f 63 61 6c 28 24 69 | 74 29 20 3d 20 40 5f 3b |local($i|t) = @_;|
|00003dd0| 0a 58 09 6c 6f 63 61 6c | 28 24 74 29 20 3d 20 26 |.X.local|($t) = &|
|00003de0| 54 59 50 45 28 24 69 74 | 29 3b 0a 58 09 69 66 20 |TYPE($it|);.X.if |
|00003df0| 20 20 20 28 24 74 20 3d | 3d 20 24 54 5f 4e 49 4c |   ($t =|= $T_NIL|
|00003e00| 29 09 7b 20 70 72 69 6e | 74 20 27 28 29 27 3b 20 |).{ prin|t '()'; |
|00003e10| 7d 0a 58 09 65 6c 73 69 | 66 20 28 24 74 20 3d 3d |}.X.elsi|f ($t ==|
|00003e20| 20 24 54 5f 42 4f 4f 4c | 45 41 4e 29 7b 20 70 72 | $T_BOOL|EAN){ pr|
|00003e30| 69 6e 74 20 24 69 74 20 | 3f 20 27 23 74 27 20 3a |int $it |? '#t' :|
|00003e40| 20 27 23 66 27 3b 20 7d | 0a 58 09 65 6c 73 69 66 | '#f'; }|.X.elsif|
|00003e50| 20 28 24 74 20 3d 3d 20 | 24 54 5f 4e 55 4d 42 45 | ($t == |$T_NUMBE|
|00003e60| 52 29 09 7b 20 70 72 69 | 6e 74 20 26 4e 76 61 6c |R).{ pri|nt &Nval|
|00003e70| 28 24 69 74 29 3b 20 7d | 0a 58 09 65 6c 73 69 66 |($it); }|.X.elsif|
|00003e80| 20 28 24 74 20 3d 3d 20 | 24 54 5f 43 48 41 52 29 | ($t == |$T_CHAR)|
|00003e90| 09 7b 20 26 57 52 63 68 | 61 72 28 24 69 74 29 3b |.{ &WRch|ar($it);|
|00003ea0| 20 7d 0a 58 09 65 6c 73 | 69 66 20 28 24 74 20 3d | }.X.els|if ($t =|
|00003eb0| 3d 20 24 54 5f 53 59 4d | 42 4f 4c 29 09 7b 20 70 |= $T_SYM|BOL).{ p|
|00003ec0| 72 69 6e 74 20 26 59 6e | 61 6d 65 28 24 69 74 29 |rint &Yn|ame($it)|
|00003ed0| 3b 20 7d 0a 58 09 65 6c | 73 69 66 20 28 24 74 20 |; }.X.el|sif ($t |
|00003ee0| 3d 3d 20 24 54 5f 53 54 | 52 49 4e 47 29 09 7b 20 |== $T_ST|RING).{ |
|00003ef0| 26 57 52 73 74 72 69 6e | 67 28 24 69 74 29 3b 20 |&WRstrin|g($it); |
|00003f00| 7d 0a 58 09 65 6c 73 69 | 66 20 28 24 74 20 3d 3d |}.X.elsi|f ($t ==|
|00003f10| 20 24 54 5f 56 45 43 54 | 4f 52 29 09 7b 20 26 57 | $T_VECT|OR).{ &W|
|00003f20| 52 76 65 63 74 6f 72 28 | 24 69 74 29 3b 20 7d 0a |Rvector(|$it); }.|
|00003f30| 58 09 65 6c 73 69 66 20 | 28 24 74 20 3d 3d 20 24 |X.elsif |($t == $|
|00003f40| 54 5f 54 41 42 4c 45 29 | 09 7b 20 26 57 52 74 61 |T_TABLE)|.{ &WRta|
|00003f50| 62 6c 65 28 24 69 74 29 | 3b 20 7d 0a 58 09 65 6c |ble($it)|; }.X.el|
|00003f60| 73 69 66 20 28 24 74 20 | 3d 3d 20 24 54 5f 50 41 |sif ($t |== $T_PA|
|00003f70| 49 52 29 09 7b 20 26 57 | 52 6c 69 73 74 28 24 69 |IR).{ &W|Rlist($i|
|00003f80| 74 29 3b 20 7d 0a 58 0a | 58 09 65 6c 73 69 66 20 |t); }.X.|X.elsif |
|00003f90| 28 24 74 20 3d 3d 20 24 | 54 5f 49 4e 50 55 54 29 |($t == $|T_INPUT)|
|00003fa0| 20 7b 0a 58 09 09 70 72 | 69 6e 74 20 27 23 3c 69 | {.X..pr|int '#<i|
|00003fb0| 6e 70 75 74 20 70 6f 72 | 74 20 27 2c 20 26 49 50 |nput por|t ', &IP|
|00003fc0| 76 61 6c 28 24 69 74 29 | 2c 20 27 3e 27 3b 0a 58 |val($it)|, '>';.X|
|00003fd0| 09 7d 20 65 6c 73 69 66 | 20 28 24 74 20 3d 3d 20 |.} elsif| ($t == |
|00003fe0| 24 54 5f 4f 55 54 50 55 | 54 29 20 7b 0a 58 09 09 |$T_OUTPU|T) {.X..|
|00003ff0| 70 72 69 6e 74 20 27 23 | 3c 6f 75 74 70 75 74 20 |print '#|<output |
|00004000| 70 6f 72 74 20 27 2c 20 | 26 4f 50 76 61 6c 28 24 |port ', |&OPval($|
|00004010| 69 74 29 2c 20 27 3e 27 | 3b 0a 58 09 7d 20 65 6c |it), '>'|;.X.} el|
|00004020| 73 69 66 20 28 24 74 20 | 3d 3d 20 24 54 5f 53 55 |sif ($t |== $T_SU|
|00004030| 42 52 29 20 7b 0a 58 09 | 09 70 72 69 6e 74 20 27 |BR) {.X.|.print '|
|00004040| 23 3c 62 75 69 6c 74 2d | 69 6e 20 27 2c 20 28 26 |#<built-|in ', (&|
|00004050| 53 55 42 52 76 61 6c 28 | 24 69 74 29 29 5b 30 5d |SUBRval(|$it))[0]|
|00004060| 2c 20 27 3e 27 3b 0a 58 | 09 7d 20 65 6c 73 69 66 |, '>';.X|.} elsif|
|00004070| 20 28 24 74 20 3d 3d 20 | 24 54 5f 46 4f 52 4d 29 | ($t == |$T_FORM)|
|00004080| 20 7b 0a 58 09 09 70 72 | 69 6e 74 20 27 23 3c 6b | {.X..pr|int '#<k|
|00004090| 65 79 77 6f 72 64 20 27 | 2c 20 28 26 46 4f 52 4d |eyword '|, (&FORM|
|000040a0| 76 61 6c 28 24 69 74 29 | 29 5b 30 5d 2c 20 27 3e |val($it)|)[0], '>|
|000040b0| 27 3b 0a 58 09 7d 20 65 | 6c 73 65 20 7b 0a 58 09 |';.X.} e|lse {.X.|
|000040c0| 09 70 72 69 6e 74 20 22 | 23 3c 73 74 72 61 6e 67 |.print "|#<strang|
|000040d0| 65 20 6f 62 6a 65 63 74 | 3a 20 24 69 74 3e 22 3b |e object|: $it>";|
|000040e0| 0a 58 09 7d 0a 58 7d 0a | 58 0a 58 73 75 62 20 57 |.X.}.X}.|X.Xsub W|
|000040f0| 52 73 74 72 69 6e 67 20 | 7b 0a 58 09 6c 6f 63 61 |Rstring |{.X.loca|
|00004100| 6c 28 24 73 29 20 3d 20 | 26 53 76 61 6c 28 40 5f |l($s) = |&Sval(@_|
|00004110| 5b 30 5d 29 3b 0a 58 09 | 69 66 20 28 21 24 57 52 |[0]);.X.|if (!$WR|
|00004120| 71 75 6f 74 65 64 29 20 | 7b 0a 58 09 09 70 72 69 |quoted) |{.X..pri|
|00004130| 6e 74 20 24 73 3b 0a 58 | 09 7d 20 65 6c 73 65 20 |nt $s;.X|.} else |
|00004140| 7b 0a 58 09 09 24 73 20 | 3d 7e 20 73 2f 5c 5c 2f |{.X..$s |=~ s/\\/|
|00004150| 5c 5c 5c 5c 2f 67 3b 0a | 58 09 09 24 73 20 3d 7e |\\\\/g;.|X..$s =~|
|00004160| 20 73 2f 22 2f 5c 5c 22 | 2f 67 3b 0a 58 09 09 70 | s/"/\\"|/g;.X..p|
|00004170| 72 69 6e 74 20 27 22 27 | 2c 20 24 73 2c 20 27 22 |rint '"'|, $s, '"|
|00004180| 27 3b 0a 58 09 7d 0a 58 | 7d 0a 58 0a 58 73 75 62 |';.X.}.X|}.X.Xsub|
|00004190| 20 57 52 63 68 61 72 20 | 7b 0a 58 09 6c 6f 63 61 | WRchar |{.X.loca|
|000041a0| 6c 28 24 63 29 20 3d 20 | 26 43 76 61 6c 28 40 5f |l($c) = |&Cval(@_|
|000041b0| 5b 30 5d 29 3b 0a 58 09 | 69 66 20 20 20 20 28 21 |[0]);.X.|if    (!|
|000041c0| 24 57 52 71 75 6f 74 65 | 64 29 09 7b 20 70 72 69 |$WRquote|d).{ pri|
|000041d0| 6e 74 20 24 63 3b 20 7d | 0a 58 09 65 6c 73 69 66 |nt $c; }|.X.elsif|
|000041e0| 20 28 24 63 20 65 71 20 | 27 20 27 29 09 7b 20 70 | ($c eq |' ').{ p|
|000041f0| 72 69 6e 74 20 27 23 5c | 73 70 61 63 65 27 3b 20 |rint '#\|space'; |
|00004200| 7d 0a 58 09 65 6c 73 69 | 66 20 28 24 63 20 65 71 |}.X.elsi|f ($c eq|
|00004210| 20 22 5c 6e 22 29 09 7b | 20 70 72 69 6e 74 20 27 | "\n").{| print '|
|00004220| 23 5c 6e 65 77 6c 69 6e | 65 27 3b 20 7d 0a 58 09 |#\newlin|e'; }.X.|
|00004230| 65 6c 73 69 66 20 28 24 | 63 20 65 71 20 22 5c 74 |elsif ($|c eq "\t|
|00004240| 22 29 09 7b 20 70 72 69 | 6e 74 20 27 23 5c 74 61 |").{ pri|nt '#\ta|
|00004250| 62 27 3b 20 7d 0a 58 09 | 65 6c 73 65 09 09 09 7b |b'; }.X.|else...{|
|00004260| 20 70 72 69 6e 74 20 22 | 23 5c 5c 24 63 22 3b 20 | print "|#\\$c"; |
|00004270| 7d 0a 58 7d 0a 58 0a 58 | 23 20 58 58 58 20 43 61 |}.X}.X.X|# XXX Ca|
|00004280| 6e 27 74 20 72 65 61 64 | 20 61 20 77 72 69 74 74 |n't read| a writt|
|00004290| 65 6e 20 74 61 62 6c 65 | 2e 0a 58 73 75 62 20 57 |en table|..Xsub W|
|000042a0| 52 74 61 62 6c 65 20 7b | 0a 58 09 6c 6f 63 61 6c |Rtable {|.X.local|
|000042b0| 28 24 69 74 29 20 3d 20 | 40 5f 3b 0a 58 09 72 65 |($it) = |@_;.X.re|
|000042c0| 74 75 72 6e 20 70 72 69 | 6e 74 20 27 7b 2e 2e 2e |turn pri|nt '{...|
|000042d0| 7d 27 20 69 66 20 24 57 | 52 6d 61 72 6b 7b 24 69 |}' if $W|Rmark{$i|
|000042e0| 74 7d 3b 0a 58 09 24 57 | 52 6d 61 72 6b 7b 24 69 |t};.X.$W|Rmark{$i|
|000042f0| 74 7d 20 2b 3d 20 33 3b | 09 23 20 73 74 72 6f 6e |t} += 3;|.# stron|
|00004300| 67 20 62 69 61 73 20 61 | 67 61 69 6e 73 74 20 70 |g bias a|gainst p|
|00004310| 72 69 6e 74 69 6e 67 20 | 74 61 62 6c 65 73 20 61 |rinting |tables a|
|00004320| 67 61 69 6e 2e 0a 58 0a | 58 09 70 72 69 6e 74 20 |gain..X.|X.print |
|00004330| 27 7b 27 3b 0a 58 09 6c | 6f 63 61 6c 28 40 6b 65 |'{';.X.l|ocal(@ke|
|00004340| 79 73 29 20 3d 20 26 54 | 6b 65 79 73 28 24 69 74 |ys) = &T|keys($it|
|00004350| 29 3b 0a 58 09 69 66 20 | 28 40 6b 65 79 73 29 20 |);.X.if |(@keys) |
|00004360| 7b 0a 58 09 09 6c 6f 63 | 61 6c 28 24 6b 29 20 3d |{.X..loc|al($k) =|
|00004370| 20 70 6f 70 20 40 6b 65 | 79 73 3b 0a 58 09 09 70 | pop @ke|ys;.X..p|
|00004380| 72 69 6e 74 20 24 6b 2c | 20 27 20 3d 3e 20 27 3b |rint $k,| ' => ';|
|00004390| 0a 58 09 09 26 57 52 31 | 28 26 54 76 61 6c 28 24 |.X..&WR1|(&Tval($|
|000043a0| 69 74 2c 20 26 59 28 24 | 6b 29 29 29 3b 0a 58 09 |it, &Y($|k)));.X.|
|000043b0| 7d 0a 58 09 66 6f 72 20 | 24 6b 20 28 40 6b 65 79 |}.X.for |$k (@key|
|000043c0| 73 29 20 7b 0a 58 09 09 | 70 72 69 6e 74 20 27 2c |s) {.X..|print ',|
|000043d0| 20 27 2c 20 24 6b 2c 20 | 27 20 3d 3e 20 27 3b 0a | ', $k, |' => ';.|
|000043e0| 58 09 09 26 57 52 31 28 | 26 54 76 61 6c 28 24 69 |X..&WR1(|&Tval($i|
|000043f0| 74 2c 20 26 59 28 24 6b | 29 29 29 3b 0a 58 09 7d |t, &Y($k|)));.X.}|
|00004400| 0a 58 09 70 72 69 6e 74 | 20 27 7d 27 3b 0a 58 0a |.X.print| '}';.X.|
|00004410| 58 09 24 57 52 6d 61 72 | 6b 7b 24 69 74 7d 20 2d |X.$WRmar|k{$it} -|
|00004420| 3d 20 33 3b 0a 58 7d 0a | 58 0a 58 73 75 62 20 57 |= 3;.X}.|X.Xsub W|
|00004430| 52 76 65 63 74 6f 72 20 | 7b 0a 58 09 6c 6f 63 61 |Rvector |{.X.loca|
|00004440| 6c 28 24 69 74 29 20 3d | 20 40 5f 3b 0a 58 09 72 |l($it) =| @_;.X.r|
|00004450| 65 74 75 72 6e 20 70 72 | 69 6e 74 20 27 23 28 2e |eturn pr|int '#(.|
|00004460| 2e 2e 29 27 20 69 66 20 | 24 57 52 6d 61 72 6b 7b |..)' if |$WRmark{|
|00004470| 24 69 74 7d 3b 0a 58 09 | 2b 2b 24 57 52 6d 61 72 |$it};.X.|++$WRmar|
|00004480| 6b 7b 24 69 74 7d 3b 0a | 58 0a 58 09 6c 6f 63 61 |k{$it};.|X.X.loca|
|00004490| 6c 28 40 76 29 20 3d 20 | 26 56 76 61 6c 28 24 69 |l(@v) = |&Vval($i|
|000044a0| 74 29 3b 0a 58 09 70 72 | 69 6e 74 20 27 23 28 27 |t);.X.pr|int '#('|
|000044b0| 3b 0a 58 09 26 57 52 31 | 28 73 68 69 66 74 20 40 |;.X.&WR1|(shift @|
|000044c0| 76 29 20 69 66 20 40 76 | 3b 0a 58 09 77 68 69 6c |v) if @v|;.X.whil|
|000044d0| 65 20 28 40 76 29 20 7b | 0a 58 09 09 70 72 69 6e |e (@v) {|.X..prin|
|000044e0| 74 20 27 20 27 3b 0a 58 | 09 09 26 57 52 31 28 73 |t ' ';.X|..&WR1(s|
|000044f0| 68 69 66 74 20 40 76 29 | 3b 0a 58 09 7d 0a 58 09 |hift @v)|;.X.}.X.|
|00004500| 70 72 69 6e 74 20 27 29 | 27 3b 0a 58 0a 58 09 2d |print ')|';.X.X.-|
|00004510| 2d 24 57 52 6d 61 72 6b | 7b 24 69 74 7d 3b 0a 58 |-$WRmark|{$it};.X|
|00004520| 7d 0a 58 0a 58 73 75 62 | 20 57 52 6c 69 73 74 20 |}.X.Xsub| WRlist |
|00004530| 7b 0a 58 09 6c 6f 63 61 | 6c 28 24 69 74 29 20 3d |{.X.loca|l($it) =|
|00004540| 20 40 5f 3b 0a 58 09 72 | 65 74 75 72 6e 20 70 72 | @_;.X.r|eturn pr|
|00004550| 69 6e 74 20 27 28 2e 2e | 2e 29 27 20 69 66 20 24 |int '(..|.)' if $|
|00004560| 57 52 6d 61 72 6b 7b 24 | 69 74 7d 3b 0a 58 09 6c |WRmark{$|it};.X.l|
|00004570| 6f 63 61 6c 28 25 73 61 | 76 65 29 20 3d 20 25 57 |ocal(%sa|ve) = %W|
|00004580| 52 6d 61 72 6b 3b 0a 58 | 09 2b 2b 24 57 52 6d 61 |Rmark;.X|.++$WRma|
|00004590| 72 6b 7b 24 69 74 7d 3b | 0a 58 0a 58 09 6c 6f 63 |rk{$it};|.X.X.loc|
|000045a0| 61 6c 28 24 61 2c 20 24 | 64 29 20 3d 20 26 50 76 |al($a, $|d) = &Pv|
|000045b0| 61 6c 28 24 69 74 29 3b | 0a 58 09 70 72 69 6e 74 |al($it);|.X.print|
|000045c0| 20 22 28 22 3b 0a 58 09 | 26 57 52 31 28 24 61 29 | "(";.X.|&WR1($a)|
|000045d0| 3b 0a 58 09 77 68 69 6c | 65 20 28 24 64 20 6e 65 |;.X.whil|e ($d ne|
|000045e0| 20 24 4e 49 4c 29 20 7b | 0a 58 09 09 69 66 20 28 | $NIL) {|.X..if (|
|000045f0| 24 57 52 6d 61 72 6b 7b | 24 64 7d 29 20 7b 0a 58 |$WRmark{|$d}) {.X|
|00004600| 09 09 09 70 72 69 6e 74 | 20 27 20 2e 2e 2e 27 3b |...print| ' ...';|
|00004610| 0a 58 09 09 09 6c 61 73 | 74 3b 0a 58 09 09 7d 20 |.X...las|t;.X..} |
|00004620| 65 6c 73 69 66 20 28 26 | 54 59 50 45 28 24 64 29 |elsif (&|TYPE($d)|
|00004630| 20 21 3d 20 24 54 5f 50 | 41 49 52 29 20 7b 0a 58 | != $T_P|AIR) {.X|
|00004640| 09 09 09 70 72 69 6e 74 | 20 27 20 2e 20 27 3b 0a |...print| ' . ';.|
|00004650| 58 09 09 09 26 57 52 31 | 28 24 64 29 3b 0a 58 09 |X...&WR1|($d);.X.|
|00004660| 09 09 6c 61 73 74 3b 0a | 58 09 09 7d 20 65 6c 73 |..last;.|X..} els|
|00004670| 65 20 7b 0a 58 09 09 09 | 2b 2b 24 57 52 6d 61 72 |e {.X...|++$WRmar|
|00004680| 6b 7b 24 64 7d 3b 0a 58 | 09 09 09 28 24 61 2c 20 |k{$d};.X|...($a, |
|00004690| 24 64 29 20 3d 20 26 50 | 76 61 6c 28 24 64 29 3b |$d) = &P|val($d);|
|000046a0| 0a 58 09 09 09 70 72 69 | 6e 74 20 27 20 27 3b 0a |.X...pri|nt ' ';.|
|000046b0| 58 09 09 09 26 57 52 31 | 28 24 61 29 3b 0a 58 09 |X...&WR1|($a);.X.|
|000046c0| 09 7d 0a 58 09 7d 0a 58 | 09 70 72 69 6e 74 20 27 |.}.X.}.X|.print '|
|000046d0| 29 27 3b 0a 58 0a 58 09 | 25 57 52 6d 61 72 6b 20 |)';.X.X.|%WRmark |
|000046e0| 3d 20 25 73 61 76 65 3b | 0a 58 7d 0a 58 0a 58 23 |= %save;|.X}.X.X#|
|000046f0| 2d 2d 2d 2d 2d 2d 0a 58 | 23 2d 2d 20 43 6f 6e 74 |------.X|#-- Cont|
|00004700| 72 6f 6c 20 66 65 61 74 | 75 72 65 73 2e 0a 58 23 |rol feat|ures..X#|
|00004710| 2d 2d 2d 2d 2d 2d 0a 58 | 0a 58 23 20 58 58 58 20 |------.X|.X# XXX |
|00004720| 53 55 42 52 20 63 61 6c | 6c 2d 77 69 74 68 2d 63 |SUBR cal|l-with-c|
|00004730| 75 72 72 65 6e 74 2d 63 | 6f 6e 74 69 6e 75 61 74 |urrent-c|ontinuat|
|00004740| 69 6f 6e 0a 58 0a 58 26 | 53 55 42 52 31 28 27 70 |ion.X.X&|SUBR1('p|
|00004750| 72 6f 63 65 64 75 72 65 | 3f 27 29 3b 0a 58 73 75 |rocedure|?');.Xsu|
|00004760| 62 20 70 72 6f 63 65 64 | 75 72 65 50 20 7b 0a 58 |b proced|ureP {.X|
|00004770| 09 6c 6f 63 61 6c 28 24 | 69 74 29 20 3d 20 40 5f |.local($|it) = @_|
|00004780| 3b 0a 58 09 6c 6f 63 61 | 6c 28 24 74 29 20 3d 20 |;.X.loca|l($t) = |
|00004790| 26 54 59 50 45 28 24 69 | 74 29 3b 0a 58 09 24 74 |&TYPE($i|t);.X.$t|
|000047a0| 20 3d 3d 20 24 54 5f 53 | 55 42 52 20 7c 7c 0a 58 | == $T_S|UBR ||.X|
|000047b0| 09 28 24 74 20 3d 3d 20 | 24 54 5f 56 45 43 54 4f |.($t == |$T_VECTO|
|000047c0| 52 20 26 26 20 28 26 56 | 76 61 6c 28 24 69 74 29 |R && (&V|val($it)|
|000047d0| 29 5b 30 5d 20 65 71 20 | 24 43 4c 4f 53 55 52 45 |)[0] eq |$CLOSURE|
|000047e0| 29 3b 0a 58 7d 0a 58 0a | 58 26 53 55 42 52 31 28 |);.X}.X.|X&SUBR1(|
|000047f0| 27 66 6f 72 63 65 27 29 | 3b 0a 58 73 75 62 20 66 |'force')|;.Xsub f|
|00004800| 6f 72 63 65 20 7b 0a 58 | 09 26 45 52 52 74 79 70 |orce {.X|.&ERRtyp|
|00004810| 65 28 40 5f 5b 30 5d 2c | 20 27 61 20 70 72 6f 6d |e(@_[0],| 'a prom|
|00004820| 69 73 65 27 2c 20 27 66 | 6f 72 63 65 27 29 20 69 |ise', 'f|orce') i|
|00004830| 66 20 26 54 59 50 45 28 | 40 5f 5b 30 5d 29 20 6e |f &TYPE(|@_[0]) n|
|00004840| 65 20 24 54 5f 56 45 43 | 54 4f 52 3b 0a 58 09 6c |e $T_VEC|TOR;.X.l|
|00004850| 6f 63 61 6c 28 24 74 68 | 75 6e 6b 29 20 3d 20 40 |ocal($th|unk) = @|
|00004860| 5f 3b 0a 58 09 6c 6f 63 | 61 6c 28 24 6b 2c 20 24 |_;.X.loc|al($k, $|
|00004870| 66 6f 72 63 65 64 2c 20 | 24 76 61 6c 2c 20 24 65 |forced, |$val, $e|
|00004880| 6e 76 2c 20 40 63 6f 64 | 65 29 20 3d 20 26 56 76 |nv, @cod|e) = &Vv|
|00004890| 61 6c 28 24 74 68 75 6e | 6b 29 3b 0a 58 09 26 45 |al($thun|k);.X.&E|
|000048a0| 52 52 74 79 70 65 28 24 | 74 68 75 6e 6b 2c 20 27 |RRtype($|thunk, '|
|000048b0| 61 20 70 72 6f 6d 69 73 | 65 27 2c 20 27 66 6f 72 |a promis|e', 'for|
|000048c0| 63 65 27 29 20 69 66 20 | 24 6b 20 6e 65 20 24 50 |ce') if |$k ne $P|
|000048d0| 52 4f 4d 49 53 45 3b 0a | 58 09 69 66 20 28 21 24 |ROMISE;.|X.if (!$|
|000048e0| 66 6f 72 63 65 64 29 20 | 7b 0a 58 09 09 26 45 4e |forced) |{.X..&EN|
|000048f0| 56 70 75 73 68 28 24 65 | 6e 76 29 3b 0a 58 09 09 |Vpush($e|nv);.X..|
|00004900| 24 76 61 6c 20 3d 20 26 | 62 65 67 69 6e 28 40 63 |$val = &|begin(@c|
|00004910| 6f 64 65 29 3b 0a 58 09 | 09 26 45 4e 56 70 6f 70 |ode);.X.|.&ENVpop|
|00004920| 28 29 3b 0a 58 09 09 26 | 56 73 65 74 28 24 74 68 |();.X..&|Vset($th|
|00004930| 75 6e 6b 2c 20 31 2c 20 | 32 2c 20 24 54 52 55 45 |unk, 1, |2, $TRUE|
|00004940| 2c 20 24 76 61 6c 29 3b | 0a 58 09 7d 0a 58 09 24 |, $val);|.X.}.X.$|
|00004950| 76 61 6c 3b 0a 58 7d 0a | 58 0a 58 26 53 55 42 52 |val;.X}.|X.X&SUBR|
|00004960| 4e 28 27 61 70 70 6c 79 | 27 29 3b 0a 58 73 75 62 |N('apply|');.Xsub|
|00004970| 20 61 70 70 6c 79 20 7b | 0a 58 09 6c 6f 63 61 6c | apply {|.X.local|
|00004980| 28 40 73 69 70 29 20 3d | 20 40 5f 3b 0a 58 09 6c |(@sip) =| @_;.X.l|
|00004990| 6f 63 61 6c 28 24 66 2c | 20 40 61 72 67 73 29 20 |ocal($f,| @args) |
|000049a0| 3d 20 40 5f 3b 0a 58 09 | 26 43 48 4b 74 79 70 65 |= @_;.X.|&CHKtype|
|000049b0| 28 40 61 72 67 73 5b 24 | 23 61 72 67 73 5d 2c 20 |(@args[$|#args], |
|000049c0| 24 54 5f 4c 49 53 54 2c | 20 27 61 70 70 6c 79 27 |$T_LIST,| 'apply'|
|000049d0| 29 3b 0a 58 09 70 75 73 | 68 28 40 61 72 67 73 2c |);.X.pus|h(@args,|
|000049e0| 20 26 4c 76 61 6c 28 70 | 6f 70 20 40 61 72 67 73 | &Lval(p|op @args|
|000049f0| 29 29 3b 0a 58 09 26 61 | 70 70 6c 79 4e 28 24 66 |));.X.&a|pplyN($f|
|00004a00| 2c 20 40 61 72 67 73 29 | 3b 0a 58 7d 0a 58 0a 58 |, @args)|;.X}.X.X|
|00004a10| 73 75 62 20 61 70 70 6c | 79 4e 20 7b 0a 58 09 6c |sub appl|yN {.X.l|
|00004a20| 6f 63 61 6c 28 40 61 72 | 67 73 29 20 3d 20 40 5f |ocal(@ar|gs) = @_|
|00004a30| 3b 0a 58 09 6c 6f 63 61 | 6c 28 24 66 29 20 3d 20 |;.X.loca|l($f) = |
|00004a40| 73 68 69 66 74 20 40 61 | 72 67 73 3b 0a 58 09 6c |shift @a|rgs;.X.l|
|00004a50| 6f 63 61 6c 28 24 74 29 | 20 3d 20 26 54 59 50 45 |ocal($t)| = &TYPE|
|00004a60| 28 24 66 29 3b 0a 58 0a | 58 09 69 66 20 28 24 74 |($f);.X.|X.if ($t|
|00004a70| 20 3d 3d 20 24 54 5f 53 | 55 42 52 29 20 7b 0a 58 | == $T_S|UBR) {.X|
|00004a80| 09 09 6c 6f 63 61 6c 28 | 24 66 2c 20 24 6d 69 6e |..local(|$f, $min|
|00004a90| 2c 20 24 6d 61 78 2c 20 | 40 74 29 20 3d 20 26 53 |, $max, |@t) = &S|
|00004aa0| 55 42 52 76 61 6c 28 24 | 66 29 3b 0a 58 09 09 69 |UBRval($|f);.X..i|
|00004ab0| 66 20 28 40 61 72 67 73 | 20 3c 20 24 6d 69 6e 29 |f (@args| < $min)|
|00004ac0| 20 7b 0a 58 09 09 09 26 | 45 52 52 28 22 45 72 72 | {.X...&|ERR("Err|
|00004ad0| 6f 72 2c 20 24 66 20 6e | 65 65 64 73 20 61 74 20 |or, $f n|eeds at |
|00004ae0| 6c 65 61 73 74 20 24 6d | 69 6e 20 61 72 67 75 6d |least $m|in argum|
|00004af0| 65 6e 74 73 2e 22 29 3b | 0a 58 09 09 7d 20 65 6c |ents.");|.X..} el|
|00004b00| 73 69 66 20 28 24 6d 61 | 78 20 3e 3d 20 30 20 26 |sif ($ma|x >= 0 &|
|00004b10| 26 20 40 61 72 67 73 20 | 3e 20 24 6d 61 78 29 20 |& @args |> $max) |
|00004b20| 7b 0a 58 09 09 09 26 45 | 52 52 28 22 45 72 72 6f |{.X...&E|RR("Erro|
|00004b30| 72 2c 20 24 66 20 77 61 | 6e 74 73 20 61 74 20 6d |r, $f wa|nts at m|
|00004b40| 6f 73 74 20 24 6d 61 78 | 20 61 72 67 75 6d 65 6e |ost $max| argumen|
|00004b50| 74 73 2e 22 29 3b 0a 58 | 09 09 7d 0a 58 09 09 69 |ts.");.X|..}.X..i|
|00004b60| 66 20 28 24 6d 61 78 20 | 3c 20 30 20 26 26 20 40 |f ($max |< 0 && @|
|00004b70| 74 5b 30 5d 29 20 7b 0a | 58 09 09 09 66 6f 72 20 |t[0]) {.|X...for |
|00004b80| 24 78 20 28 40 61 72 67 | 73 29 20 7b 0a 58 09 09 |$x (@arg|s) {.X..|
|00004b90| 09 09 26 43 48 4b 74 79 | 70 65 28 24 78 2c 20 40 |..&CHKty|pe($x, @|
|00004ba0| 74 5b 30 5d 2c 20 24 66 | 29 3b 0a 58 09 09 09 7d |t[0], $f|);.X...}|
|00004bb0| 0a 58 09 09 7d 20 65 6c | 73 69 66 20 28 40 74 29 |.X..} el|sif (@t)|
|00004bc0| 20 7b 0a 58 09 09 09 6c | 6f 63 61 6c 28 24 6b 29 | {.X...l|ocal($k)|
|00004bd0| 20 3d 20 24 23 74 20 3c | 20 24 23 61 72 67 73 20 | = $#t <| $#args |
|00004be0| 3f 20 24 23 74 20 3a 20 | 24 23 61 72 67 73 3b 0a |? $#t : |$#args;.|
|00004bf0| 58 09 09 09 66 6f 72 20 | 28 3b 20 24 6b 20 3e 3d |X...for |(; $k >=|
|00004c00| 20 30 3b 20 2d 2d 24 6b | 29 20 7b 0a 58 09 09 09 | 0; --$k|) {.X...|
|00004c10| 09 26 43 48 4b 74 79 70 | 65 28 40 61 72 67 73 5b |.&CHKtyp|e(@args[|
|00004c20| 24 6b 5d 2c 20 40 74 5b | 24 6b 5d 2c 20 24 66 29 |$k], @t[|$k], $f)|
|00004c30| 3b 0a 58 09 09 09 7d 0a | 58 09 09 7d 0a 58 09 09 |;.X...}.|X..}.X..|
|00004c40| 72 65 74 75 72 6e 20 64 | 6f 20 24 66 20 28 40 61 |return d|o $f (@a|
|00004c50| 72 67 73 29 3b 0a 58 0a | 58 09 7d 20 65 6c 73 69 |rgs);.X.|X.} elsi|
|00004c60| 66 20 28 24 74 20 3d 3d | 20 24 54 5f 56 45 43 54 |f ($t ==| $T_VECT|
|00004c70| 4f 52 29 20 7b 0a 58 09 | 09 6c 6f 63 61 6c 28 24 |OR) {.X.|.local($|
|00004c80| 6b 2c 20 24 65 6e 76 2c | 20 24 6e 73 79 6d 2c 20 |k, $env,| $nsym, |
|00004c90| 24 6e 2c 20 40 63 6f 64 | 65 29 20 3d 20 26 56 76 |$n, @cod|e) = &Vv|
|00004ca0| 61 6c 28 24 66 29 3b 0a | 58 09 09 26 45 52 52 74 |al($f);.|X..&ERRt|
|00004cb0| 79 70 65 28 24 66 2c 20 | 24 54 5f 50 52 4f 43 45 |ype($f, |$T_PROCE|
|00004cc0| 44 55 52 45 2c 20 27 61 | 70 70 6c 79 4e 27 29 20 |DURE, 'a|pplyN') |
|00004cd0| 69 66 20 24 6b 20 6e 65 | 20 24 43 4c 4f 53 55 52 |if $k ne| $CLOSUR|
|00004ce0| 45 3b 0a 58 09 09 24 6e | 20 3d 20 26 4e 76 61 6c |E;.X..$n| = &Nval|
|00004cf0| 28 24 6e 29 3b 0a 58 09 | 09 69 66 20 28 40 61 72 |($n);.X.|.if (@ar|
|00004d00| 67 73 20 3c 20 24 6e 29 | 20 7b 0a 58 09 09 09 26 |gs < $n)| {.X...&|
|00004d10| 45 52 52 28 27 6e 6f 74 | 20 65 6e 6f 75 67 68 20 |ERR('not| enough |
|00004d20| 61 72 67 73 20 74 6f 20 | 70 72 6f 63 65 64 75 72 |args to |procedur|
|00004d30| 65 2e 27 29 3b 0a 58 09 | 09 7d 20 65 6c 73 69 66 |e.');.X.|.} elsif|
|00004d40| 20 28 40 61 72 67 73 20 | 3e 20 24 6e 20 26 26 20 | (@args |> $n && |
|00004d50| 24 6e 73 79 6d 20 65 71 | 20 24 4e 49 4c 29 20 7b |$nsym eq| $NIL) {|
|00004d60| 0a 58 09 09 09 26 45 52 | 52 28 27 74 6f 6f 20 6d |.X...&ER|R('too m|
|00004d70| 61 6e 79 20 61 72 67 73 | 20 74 6f 20 70 72 6f 63 |any args| to proc|
|00004d80| 65 64 75 72 65 2e 27 29 | 3b 0a 58 09 09 7d 0a 58 |edure.')|;.X..}.X|
|00004d90| 09 09 26 45 4e 56 70 75 | 73 68 28 24 65 6e 76 29 |..&ENVpu|sh($env)|
|00004da0| 3b 0a 58 09 09 26 45 4e | 56 70 75 73 68 5f 66 72 |;.X..&EN|Vpush_fr|
|00004db0| 61 6d 65 28 29 3b 0a 58 | 09 09 69 66 20 28 24 6e |ame();.X|..if ($n|
|00004dc0| 20 3e 20 30 29 20 7b 0a | 58 09 09 09 26 45 4e 56 | > 0) {.|X...&ENV|
|00004dd0| 62 69 6e 64 28 73 70 6c | 69 63 65 28 40 63 6f 64 |bind(spl|ice(@cod|
|00004de0| 65 2c 20 30 2c 20 24 6e | 29 2c 20 73 70 6c 69 63 |e, 0, $n|), splic|
|00004df0| 65 28 40 61 72 67 73 2c | 20 30 2c 20 24 6e 29 29 |e(@args,| 0, $n))|
|00004e00| 3b 0a 58 09 09 7d 0a 58 | 09 09 69 66 20 28 24 6e |;.X..}.X|..if ($n|
|00004e10| 73 79 6d 20 6e 65 20 24 | 4e 49 4c 29 20 7b 0a 58 |sym ne $|NIL) {.X|
|00004e20| 09 09 09 26 45 4e 56 62 | 69 6e 64 28 24 6e 73 79 |...&ENVb|ind($nsy|
|00004e30| 6d 2c 20 26 4c 28 40 61 | 72 67 73 29 29 3b 0a 58 |m, &L(@a|rgs));.X|
|00004e40| 09 09 7d 0a 58 09 09 6c | 6f 63 61 6c 28 24 78 29 |..}.X..l|ocal($x)|
|00004e50| 20 3d 20 26 62 65 67 69 | 6e 28 40 63 6f 64 65 29 | = &begi|n(@code)|
|00004e60| 3b 0a 58 09 09 26 45 4e | 56 70 6f 70 28 29 3b 0a |;.X..&EN|Vpop();.|
|00004e70| 58 09 09 72 65 74 75 72 | 6e 20 24 78 3b 0a 58 0a |X..retur|n $x;.X.|
|00004e80| 58 09 7d 20 65 6c 73 65 | 20 7b 0a 58 09 09 26 45 |X.} else| {.X..&E|
|00004e90| 52 52 74 79 70 65 28 24 | 66 2c 20 24 54 5f 50 52 |RRtype($|f, $T_PR|
|00004ea0| 4f 43 45 44 55 52 45 2c | 20 27 61 70 70 6c 79 4e |OCEDURE,| 'applyN|
|00004eb0| 27 29 3b 0a 58 09 7d 0a | 58 7d 0a 58 0a 58 26 53 |');.X.}.|X}.X.X&S|
|00004ec0| 55 42 52 4e 28 27 6d 61 | 70 27 29 3b 0a 58 73 75 |UBRN('ma|p');.Xsu|
|00004ed0| 62 20 6d 61 70 20 7b 0a | 58 09 6c 6f 63 61 6c 28 |b map {.|X.local(|
|00004ee0| 40 6c 69 73 74 73 29 20 | 3d 20 40 5f 3b 0a 58 09 |@lists) |= @_;.X.|
|00004ef0| 6c 6f 63 61 6c 28 24 66 | 29 20 3d 20 26 65 76 61 |local($f|) = &eva|
|00004f00| 6c 28 73 68 69 66 74 20 | 40 6c 69 73 74 73 29 3b |l(shift |@lists);|
|00004f10| 0a 58 09 6c 6f 63 61 6c | 28 40 72 65 73 75 6c 74 |.X.local|(@result|
|00004f20| 2c 20 40 61 72 67 73 2c | 20 24 61 29 3b 0a 58 09 |, @args,| $a);.X.|
|00004f30| 26 43 48 4b 74 79 70 65 | 28 24 66 2c 20 24 54 5f |&CHKtype|($f, $T_|
|00004f40| 50 52 4f 43 45 44 55 52 | 45 2c 20 27 6d 61 70 27 |PROCEDUR|E, 'map'|
|00004f50| 29 3b 0a 58 09 23 20 58 | 58 58 20 43 48 4b 74 79 |);.X.# X|XX CHKty|
|00004f60| 70 65 20 6c 69 73 74 73 | 2e 20 61 6e 64 20 61 6c |pe lists|. and al|
|00004f70| 6c 20 6c 69 73 74 73 20 | 6d 75 73 74 20 62 65 20 |l lists |must be |
|00004f80| 73 61 6d 65 20 6c 65 6e | 67 74 68 2e 0a 58 09 77 |same len|gth..X.w|
|00004f90| 68 69 6c 65 20 28 40 6c | 69 73 74 73 5b 30 5d 20 |hile (@l|ists[0] |
|00004fa0| 6e 65 20 24 4e 49 4c 29 | 20 7b 0a 58 09 09 40 61 |ne $NIL)| {.X..@a|
|00004fb0| 72 67 73 20 3d 20 28 29 | 3b 0a 58 09 09 66 6f 72 |rgs = ()|;.X..for|
|00004fc0| 20 24 78 20 28 40 6c 69 | 73 74 73 29 20 7b 0a 58 | $x (@li|sts) {.X|
|00004fd0| 09 09 09 28 24 61 2c 20 | 24 78 29 20 3d 20 26 50 |...($a, |$x) = &P|
|00004fe0| 76 61 6c 28 24 78 29 3b | 0a 58 09 09 09 70 75 73 |val($x);|.X...pus|
|00004ff0| 68 28 40 61 72 67 73 2c | 20 24 61 29 3b 0a 58 09 |h(@args,| $a);.X.|
|00005000| 09 7d 0a 58 09 09 70 75 | 73 68 28 40 72 65 73 75 |.}.X..pu|sh(@resu|
|00005010| 6c 74 2c 20 26 61 70 70 | 6c 79 4e 28 24 66 2c 20 |lt, &app|lyN($f, |
|00005020| 40 61 72 67 73 29 29 3b | 0a 58 09 7d 0a 58 09 26 |@args));|.X.}.X.&|
|00005030| 4c 28 40 72 65 73 75 6c | 74 29 3b 0a 58 7d 0a 58 |L(@resul|t);.X}.X|
|00005040| 0a 58 26 53 55 42 52 4e | 28 27 66 6f 72 2d 65 61 |.X&SUBRN|('for-ea|
|00005050| 63 68 27 29 3b 0a 58 73 | 75 62 20 66 6f 72 5f 65 |ch');.Xs|ub for_e|
|00005060| 61 63 68 20 7b 0a 58 09 | 6c 6f 63 61 6c 28 40 6c |ach {.X.|local(@l|
|00005070| 69 73 74 73 29 20 3d 20 | 40 5f 3b 0a 58 09 6c 6f |ists) = |@_;.X.lo|
|00005080| 63 61 6c 28 24 66 29 20 | 3d 20 26 65 76 61 6c 28 |cal($f) |= &eval(|
|00005090| 73 68 69 66 74 20 40 6c | 69 73 74 73 29 3b 0a 58 |shift @l|ists);.X|
|000050a0| 09 6c 6f 63 61 6c 28 40 | 61 72 67 73 2c 20 24 61 |.local(@|args, $a|
|000050b0| 29 3b 0a 58 09 26 43 48 | 4b 74 79 70 65 28 24 66 |);.X.&CH|Ktype($f|
|000050c0| 2c 20 24 54 5f 50 52 4f | 43 45 44 55 52 45 2c 20 |, $T_PRO|CEDURE, |
|000050d0| 27 66 6f 72 2d 65 61 63 | 68 27 29 3b 0a 58 09 23 |'for-eac|h');.X.#|
|000050e0| 20 58 58 58 20 43 48 4b | 74 79 70 65 20 6c 69 73 | XXX CHK|type lis|
|000050f0| 74 73 2e 20 61 6e 64 20 | 61 6c 6c 20 6c 69 73 74 |ts. and |all list|
|00005100| 73 20 6d 75 73 74 20 62 | 65 20 73 61 6d 65 20 6c |s must b|e same l|
|00005110| 65 6e 67 74 68 2e 0a 58 | 09 77 68 69 6c 65 20 28 |ength..X|.while (|
|00005120| 40 6c 69 73 74 73 5b 30 | 5d 20 6e 65 20 24 4e 49 |@lists[0|] ne $NI|
|00005130| 4c 29 20 7b 0a 58 09 09 | 40 61 72 67 73 20 3d 20 |L) {.X..|@args = |
|00005140| 28 29 3b 0a 58 09 09 66 | 6f 72 20 24 78 20 28 40 |();.X..f|or $x (@|
|00005150| 6c 69 73 74 73 29 20 7b | 0a 58 09 09 09 28 24 61 |lists) {|.X...($a|
|00005160| 2c 20 24 78 29 20 3d 20 | 26 50 76 61 6c 28 24 78 |, $x) = |&Pval($x|
|00005170| 29 3b 0a 58 09 09 09 70 | 75 73 68 28 40 61 72 67 |);.X...p|ush(@arg|
|00005180| 73 2c 20 24 61 29 3b 0a | 58 09 09 7d 0a 58 09 09 |s, $a);.|X..}.X..|
|00005190| 26 61 70 70 6c 79 4e 28 | 24 66 2c 20 40 61 72 67 |&applyN(|$f, @arg|
|000051a0| 73 29 3b 0a 58 09 7d 0a | 58 09 24 54 52 55 45 3b |s);.X.}.|X.$TRUE;|
|000051b0| 0a 58 7d 0a 58 0a 58 0a | 58 73 75 62 20 65 76 61 |.X}.X.X.|Xsub eva|
|000051c0| 6c 20 7b 0a 58 09 6c 6f | 63 61 6c 28 24 69 74 29 |l {.X.lo|cal($it)|
|000051d0| 20 3d 20 40 5f 3b 0a 58 | 09 6c 6f 63 61 6c 28 24 | = @_;.X|.local($|
|000051e0| 74 29 20 3d 20 26 54 59 | 50 45 28 24 69 74 29 3b |t) = &TY|PE($it);|
|000051f0| 0a 58 0a 58 09 69 66 20 | 28 24 74 20 3d 3d 20 24 |.X.X.if |($t == $|
|00005200| 54 5f 53 59 4d 42 4f 4c | 29 20 7b 0a 58 09 09 72 |T_SYMBOL|) {.X..r|
|00005210| 65 74 75 72 6e 20 26 45 | 4e 56 76 61 6c 28 24 69 |eturn &E|NVval($i|
|00005220| 74 29 3b 0a 58 09 7d 20 | 65 6c 73 69 66 20 28 24 |t);.X.} |elsif ($|
|00005230| 74 20 21 3d 20 24 54 5f | 50 41 49 52 29 20 7b 0a |t != $T_|PAIR) {.|
|00005240| 58 09 09 72 65 74 75 72 | 6e 20 24 69 74 3b 0a 58 |X..retur|n $it;.X|
|00005250| 09 7d 0a 58 0a 58 09 6c | 6f 63 61 6c 28 24 66 2c |.}.X.X.l|ocal($f,|
|00005260| 20 24 61 72 67 73 29 20 | 3d 20 26 50 76 61 6c 28 | $args) |= &Pval(|
|00005270| 24 69 74 29 3b 0a 58 0a | 58 09 24 74 20 3d 20 26 |$it);.X.|X.$t = &|
|00005280| 54 59 50 45 28 24 66 29 | 3b 0a 58 09 69 66 20 28 |TYPE($f)|;.X.if (|
|00005290| 24 74 20 3d 3d 20 24 54 | 5f 53 59 4d 42 4f 4c 29 |$t == $T|_SYMBOL)|
|000052a0| 20 7b 0a 58 09 09 24 66 | 20 3d 20 26 45 4e 56 76 | {.X..$f| = &ENVv|
|000052b0| 61 6c 28 24 66 29 3b 0a | 58 09 09 24 74 20 3d 20 |al($f);.|X..$t = |
|000052c0| 26 54 59 50 45 28 24 66 | 29 3b 0a 58 09 7d 20 65 |&TYPE($f|);.X.} e|
|000052d0| 6c 73 69 66 20 28 24 74 | 20 3d 3d 20 24 54 5f 50 |lsif ($t| == $T_P|
|000052e0| 41 49 52 29 20 7b 0a 58 | 09 09 24 66 20 3d 20 26 |AIR) {.X|..$f = &|
|000052f0| 65 76 61 6c 28 24 66 29 | 3b 0a 58 09 09 24 74 20 |eval($f)|;.X..$t |
|00005300| 3d 20 26 54 59 50 45 28 | 24 66 29 3b 0a 58 09 7d |= &TYPE(|$f);.X.}|
|00005310| 0a 58 0a 58 09 69 66 20 | 28 24 74 20 3d 3d 20 24 |.X.X.if |($t == $|
|00005320| 54 5f 46 4f 52 4d 29 20 | 7b 0a 58 09 09 24 66 20 |T_FORM) |{.X..$f |
|00005330| 3d 20 26 46 4f 52 4d 76 | 61 6c 28 24 66 29 3b 0a |= &FORMv|al($f);.|
|00005340| 58 09 09 72 65 74 75 72 | 6e 20 64 6f 20 24 66 20 |X..retur|n do $f |
|00005350| 28 26 4c 76 61 6c 28 24 | 61 72 67 73 29 29 3b 0a |(&Lval($|args));.|
|00005360| 58 09 7d 0a 58 0a 58 09 | 69 66 20 28 24 74 20 21 |X.}.X.X.|if ($t !|
|00005370| 3d 20 24 54 5f 53 55 42 | 52 20 26 26 20 24 74 20 |= $T_SUB|R && $t |
|00005380| 21 3d 20 24 54 5f 56 45 | 43 54 4f 52 29 20 7b 0a |!= $T_VE|CTOR) {.|
|00005390| 58 09 09 26 45 52 52 74 | 79 70 65 28 26 63 61 72 |X..&ERRt|ype(&car|
|000053a0| 28 40 5f 5b 30 5d 29 2c | 20 24 54 5f 50 52 4f 43 |(@_[0]),| $T_PROC|
|000053b0| 45 44 55 52 45 2c 20 27 | 65 76 61 6c 27 29 3b 0a |EDURE, '|eval');.|
|000053c0| 58 09 7d 0a 58 0a 58 09 | 6c 6f 63 61 6c 28 40 61 |X.}.X.X.|local(@a|
|000053d0| 72 67 73 29 20 3d 20 26 | 4c 76 61 6c 28 24 61 72 |rgs) = &|Lval($ar|
|000053e0| 67 73 29 3b 0a 58 09 66 | 6f 72 20 24 61 20 28 40 |gs);.X.f|or $a (@|
|000053f0| 61 72 67 73 29 20 7b 20 | 24 61 20 3d 20 26 65 76 |args) { |$a = &ev|
|00005400| 61 6c 28 24 61 29 3b 20 | 7d 0a 58 09 26 61 70 70 |al($a); |}.X.&app|
|00005410| 6c 79 4e 28 24 66 2c 20 | 40 61 72 67 73 29 3b 0a |lyN($f, |@args);.|
|00005420| 58 7d 0a 58 0a 58 23 2d | 2d 2d 2d 2d 2d 0a 58 23 |X}.X.X#-|-----.X#|
|00005430| 2d 2d 20 55 73 65 72 20 | 69 6e 74 65 72 66 61 63 |-- User |interfac|
|00005440| 65 2e 0a 58 23 2d 2d 2d | 2d 2d 2d 0a 58 0a 58 26 |e..X#---|---.X.X&|
|00005450| 53 55 42 52 31 28 27 6c | 6f 61 64 27 2c 20 24 54 |SUBR1('l|oad', $T|
|00005460| 5f 53 54 52 49 4e 47 29 | 3b 0a 58 73 75 62 20 6c |_STRING)|;.Xsub l|
|00005470| 6f 61 64 20 7b 0a 58 09 | 6c 6f 63 61 6c 28 24 66 |oad {.X.|local($f|
|00005480| 29 20 3d 20 26 53 76 61 | 6c 28 40 5f 5b 30 5d 29 |) = &Sva|l(@_[0])|
|00005490| 3b 0a 58 09 6c 6f 63 61 | 6c 28 24 69 70 29 20 3d |;.X.loca|l($ip) =|
|000054a0| 20 26 49 50 28 24 66 20 | 2e 20 27 2e 73 70 27 29 | &IP($f |. '.sp')|
|000054b0| 20 7c 7c 20 26 49 50 28 | 24 66 29 20 7c 7c 0a 58 | || &IP(|$f) ||.X|
|000054c0| 09 09 26 45 52 52 28 22 | 6c 6f 61 64 2c 20 6e 65 |..&ERR("|load, ne|
|000054d0| 69 74 68 65 72 20 24 66 | 20 6e 6f 72 20 24 66 2e |ither $f| nor $f.|
|000054e0| 73 70 20 66 6f 75 6e 64 | 2e 22 29 3b 0a 58 0a 58 |sp found|.");.X.X|
|000054f0| 09 70 72 69 6e 74 20 24 | 73 74 64 65 72 72 20 22 |.print $|stderr "|
|00005500| 4c 6f 61 64 69 6e 67 20 | 24 66 2e 2e 2e 5c 6e 22 |Loading |$f...\n"|
|00005510| 3b 0a 58 0a 58 09 6c 6f | 63 61 6c 28 24 78 2c 20 |;.X.X.lo|cal($x, |
|00005520| 24 79 29 3b 0a 58 09 77 | 68 69 6c 65 20 28 28 24 |$y);.X.w|hile (($|
|00005530| 78 20 3d 20 26 72 65 61 | 64 28 24 69 70 29 29 20 |x = &rea|d($ip)) |
|00005540| 6e 65 20 24 45 4f 46 29 | 20 7b 0a 58 09 09 24 79 |ne $EOF)| {.X..$y|
|00005550| 20 3d 20 26 65 76 61 6c | 28 24 78 29 3b 0a 58 09 | = &eval|($x);.X.|
|00005560| 7d 0a 58 09 63 6c 6f 73 | 65 28 26 49 50 76 61 6c |}.X.clos|e(&IPval|
|00005570| 28 24 69 70 29 29 3b 0a | 58 0a 58 09 24 79 3b 0a |($ip));.|X.X.$y;.|
|00005580| 58 7d 0a 58 0a 58 23 20 | 58 58 58 20 53 55 42 52 |X}.X.X# |XXX SUBR|
|00005590| 20 74 72 61 6e 73 63 72 | 69 70 74 2d 6f 6e 2c 20 | transcr|ipt-on, |
|000055a0| 74 72 61 6e 73 63 72 69 | 70 74 2d 6f 66 66 0a 58 |transcri|pt-off.X|
|000055b0| 0a 58 26 53 55 42 52 28 | 27 65 78 69 74 27 2c 20 |.X&SUBR(|'exit', |
|000055c0| 30 2c 20 31 2c 20 24 54 | 5f 4e 55 4d 42 45 52 29 |0, 1, $T|_NUMBER)|
|000055d0| 3b 0a 58 73 75 62 20 65 | 78 69 74 20 7b 0a 58 09 |;.Xsub e|xit {.X.|
|000055e0| 6c 6f 63 61 6c 28 24 78 | 29 20 3d 20 40 5f 20 3f |local($x|) = @_ ?|
|000055f0| 20 26 4e 76 61 6c 28 40 | 5f 5b 30 5d 29 20 3a 20 | &Nval(@|_[0]) : |
|00005600| 30 3b 0a 58 09 26 44 42 | 27 70 72 6f 66 5f 64 75 |0;.X.&DB|'prof_du|
|00005610| 6d 70 20 69 66 20 64 65 | 66 69 6e 65 64 20 26 44 |mp if de|fined &D|
|00005620| 42 27 70 72 6f 66 5f 64 | 75 6d 70 3b 0a 58 09 65 |B'prof_d|ump;.X.e|
|00005630| 78 69 74 20 24 78 3b 0a | 58 7d 0a 58 0a 58 26 53 |xit $x;.|X}.X.X&S|
|00005640| 55 42 52 30 28 27 73 70 | 2d 76 65 72 73 69 6f 6e |UBR0('sp|-version|
|00005650| 27 29 3b 0a 58 73 75 62 | 20 73 70 5f 76 65 72 73 |');.Xsub| sp_vers|
|00005660| 69 6f 6e 20 7b 0a 58 09 | 26 4e 28 24 76 65 72 73 |ion {.X.|&N($vers|
|00005670| 69 6f 6e 29 3b 0a 58 7d | 0a 58 0a 58 73 75 62 20 |ion);.X}|.X.Xsub |
|00005680| 72 65 70 6c 20 7b 0a 58 | 09 6c 6f 63 61 6c 28 24 |repl {.X|.local($|
|00005690| 78 29 3b 0a 58 09 77 68 | 69 6c 65 20 7b 0a 58 09 |x);.X.wh|ile {.X.|
|000056a0| 09 70 72 69 6e 74 20 22 | 3e 20 22 3b 0a 58 09 09 |.print "|> ";.X..|
|000056b0| 24 78 20 3d 20 26 72 65 | 61 64 28 29 3b 0a 58 09 |$x = &re|ad();.X.|
|000056c0| 09 24 78 20 6e 65 20 24 | 45 4f 46 3b 0a 58 09 7d |.$x ne $|EOF;.X.}|
|000056d0| 20 7b 0a 58 09 09 24 78 | 20 3d 20 26 65 76 61 6c | {.X..$x| = &eval|
|000056e0| 28 24 78 29 3b 0a 58 09 | 09 70 72 69 6e 74 20 22 |($x);.X.|.print "|
|000056f0| 5c 6e 22 3b 0a 58 09 09 | 26 77 72 69 74 65 28 24 |\n";.X..|&write($|
|00005700| 78 29 3b 0a 58 09 09 70 | 72 69 6e 74 20 22 5c 6e |x);.X..p|rint "\n|
|00005710| 22 3b 0a 58 09 7d 0a 58 | 7d 0a 58 0a 58 23 2d 2d |";.X.}.X|}.X.X#--|
|00005720| 2d 2d 2d 2d 0a 58 23 2d | 2d 20 4d 61 69 6e 20 70 |----.X#-|- Main p|
|00005730| 72 6f 67 72 61 6d 2e 0a | 58 23 2d 2d 2d 2d 2d 2d |rogram..|X#------|
|00005740| 0a 58 0a 58 73 75 62 20 | 63 61 74 63 68 5f 69 6e |.X.Xsub |catch_in|
|00005750| 74 65 72 72 75 70 74 20 | 7b 0a 58 09 70 72 69 6e |terrupt |{.X.prin|
|00005760| 74 20 24 73 74 64 65 72 | 72 20 22 49 6e 74 65 72 |t $stder|r "Inter|
|00005770| 72 75 70 74 5c 6e 22 3b | 0a 58 09 67 6f 74 6f 20 |rupt\n";|.X.goto |
|00005780| 54 4f 50 3b 09 23 20 4e | 6f 74 20 71 75 69 74 65 |TOP;.# N|ot quite|
|00005790| 20 61 20 73 61 66 65 20 | 74 68 69 6e 67 20 74 6f | a safe |thing to|
|000057a0| 20 64 6f 2e 0a 58 7d 0a | 58 0a 58 24 23 20 3d 20 | do..X}.|X.X$# = |
|000057b0| 27 25 2e 31 35 67 27 3b | 09 23 20 74 68 65 20 64 |'%.15g';|.# the d|
|000057c0| 65 66 61 75 6c 74 2c 20 | 25 2e 32 30 67 2c 20 69 |efault, |%.20g, i|
|000057d0| 73 20 61 20 6c 69 74 74 | 6c 65 20 74 6f 6f 20 6d |s a litt|le too m|
|000057e0| 61 6e 79 20 64 69 67 69 | 74 73 2e 0a 58 0a 58 49 |any digi|ts..X.XI|
|000057f0| 4e 49 54 3a 3b 0a 58 0a | 58 26 49 4f 69 6e 69 74 |NIT:;.X.|X&IOinit|
|00005800| 28 29 3b 0a 58 0a 58 24 | 54 4f 50 6a 6d 70 20 3d |();.X.X$|TOPjmp =|
|00005810| 20 30 3b 0a 58 0a 58 54 | 4f 50 3a 3b 0a 58 0a 58 | 0;.X.XT|OP:;.X.X|
|00005820| 26 49 4f 72 65 73 65 74 | 28 29 3b 0a 58 26 45 4e |&IOreset|();.X&EN|
|00005830| 56 72 65 73 65 74 28 29 | 3b 0a 58 0a 58 69 66 20 |Vreset()|;.X.Xif |
|00005840| 28 24 54 4f 50 6a 6d 70 | 29 20 7b 0a 58 09 70 72 |($TOPjmp|) {.X.pr|
|00005850| 69 6e 74 20 24 73 74 64 | 65 72 72 20 22 5c 6e 43 |int $std|err "\nC|
|00005860| 6f 6e 74 69 6e 75 69 6e | 67 20 66 72 6f 6d 20 74 |ontinuin|g from t|
|00005870| 6f 70 2e 2e 2e 5c 6e 22 | 3b 0a 58 7d 20 65 6c 73 |op...\n"|;.X} els|
|00005880| 65 20 7b 0a 58 09 24 54 | 4f 50 6a 6d 70 20 3d 20 |e {.X.$T|OPjmp = |
|00005890| 31 3b 0a 58 09 70 72 69 | 6e 74 20 24 73 74 64 65 |1;.X.pri|nt $stde|
|000058a0| 72 72 20 22 53 63 68 65 | 6d 65 20 69 6e 20 50 65 |rr "Sche|me in Pe|
|000058b0| 72 6c 3f 20 28 73 70 3f | 29 5c 6e 22 3b 0a 58 09 |rl? (sp?|)\n";.X.|
|000058c0| 70 72 69 6e 74 20 24 73 | 74 64 65 72 72 20 22 20 |print $s|tderr " |
|000058d0| 20 76 65 72 73 69 6f 6e | 20 24 76 65 72 73 69 6f | version| $versio|
|000058e0| 6e 5c 6e 22 3b 0a 58 7d | 0a 58 0a 58 69 66 20 28 |n\n";.X}|.X.Xif (|
|000058f0| 21 20 40 41 52 47 56 29 | 20 7b 0a 58 09 24 53 49 |! @ARGV)| {.X.$SI|
|00005900| 47 7b 27 49 4e 54 27 7d | 20 3d 20 27 63 61 74 63 |G{'INT'}| = 'catc|
|00005910| 68 5f 69 6e 74 65 72 72 | 75 70 74 27 3b 0a 58 09 |h_interr|upt';.X.|
|00005920| 26 72 65 70 6c 28 29 3b | 0a 58 7d 20 65 6c 73 65 |&repl();|.X} else|
|00005930| 20 7b 0a 58 09 24 64 6f | 64 75 6d 70 20 3d 20 28 | {.X.$do|dump = (|
|00005940| 40 41 52 47 56 5b 30 5d | 20 65 71 20 27 2d 44 27 |@ARGV[0]| eq '-D'|
|00005950| 29 20 26 26 20 73 68 69 | 66 74 20 40 41 52 47 56 |) && shi|ft @ARGV|
|00005960| 3b 0a 58 09 66 6f 72 20 | 24 78 20 28 40 41 52 47 |;.X.for |$x (@ARG|
|00005970| 56 29 20 7b 0a 58 09 09 | 26 6c 6f 61 64 28 26 53 |V) {.X..|&load(&S|
|00005980| 28 24 78 29 29 3b 0a 58 | 09 7d 0a 58 09 69 66 20 |($x));.X|.}.X.if |
|00005990| 28 24 64 6f 64 75 6d 70 | 29 20 7b 0a 58 09 09 26 |($dodump|) {.X..&|
|000059a0| 49 4f 73 68 75 74 64 6f | 77 6e 28 29 3b 0a 58 09 |IOshutdo|wn();.X.|
|000059b0| 09 64 75 6d 70 20 49 4e | 49 54 3b 0a 58 09 7d 0a |.dump IN|IT;.X.}.|
|000059c0| 58 7d 0a 58 0a 58 26 65 | 78 69 74 28 29 3b 0a 45 |X}.X.X&e|xit();.E|
|000059d0| 4e 44 5f 4f 46 5f 46 49 | 4c 45 0a 69 66 20 74 65 |ND_OF_FI|LE.if te|
|000059e0| 73 74 20 32 30 37 36 30 | 20 2d 6e 65 20 60 77 63 |st 20760| -ne `wc|
|000059f0| 20 2d 63 20 3c 27 73 70 | 2e 70 6c 2e 70 61 72 74 | -c <'sp|.pl.part|
|00005a00| 32 27 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |2'`; the|n.    ec|
|00005a10| 68 6f 20 73 68 61 72 3a | 20 5c 22 27 73 70 2e 70 |ho shar:| \"'sp.p|
|00005a20| 6c 2e 70 61 72 74 32 27 | 5c 22 20 75 6e 70 61 63 |l.part2'|\" unpac|
|00005a30| 6b 65 64 20 77 69 74 68 | 20 77 72 6f 6e 67 20 73 |ked with| wrong s|
|00005a40| 69 7a 65 21 0a 66 69 0a | 23 20 65 6e 64 20 6f 66 |ize!.fi.|# end of|
|00005a50| 20 27 73 70 2e 70 6c 2e | 70 61 72 74 32 27 0a 66 | 'sp.pl.|part2'.f|
|00005a60| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 6e 64 |i.echo s|har: End|
|00005a70| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00005a80| 65 2e 0a 65 78 69 74 20 | 30 0a                   |e..exit |0.      |
+--------+-------------------------+-------------------------+--------+--------+