home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / dump.c < prev    next >
MacBinary  |  1992-09-27  |  8.9 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Sep 27 01:57:56 1992, modified Sun Sep 27 01:57:56 1992, creator 'MPS ', type ASCII, 8398 bytes "dump.c" , at 0x214e 428 bytes resource default (weak)
99% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-4K) default (weak)
16% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 64 75 6d 70 2e 63 | 00 00 00 00 00 00 00 00 |..dump.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 20 ce 00 | 00 01 ac a6 ea fd e4 a6 |..... ..|........|
|00000060| ea fd e4 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 35 a5 00 00 |........|....5...|
|00000080| 2f 2a 20 24 52 43 53 66 | 69 6c 65 3a 20 64 75 6d |/* $RCSf|ile: dum|
|00000090| 70 2e 63 2c 76 20 24 24 | 52 65 76 69 73 69 6f 6e |p.c,v $$|Revision|
|000000a0| 3a 20 34 2e 30 2e 31 2e | 32 20 24 24 44 61 74 65 |: 4.0.1.|2 $$Date|
|000000b0| 3a 20 39 32 2f 30 36 2f | 30 38 20 31 33 3a 31 34 |: 92/06/|08 13:14|
|000000c0| 3a 32 32 20 24 0d 20 2a | 0d 20 2a 20 20 20 20 43 |:22 $. *|. *    C|
|000000d0| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 39 |opyright| (c) 199|
|000000e0| 31 2c 20 4c 61 72 72 79 | 20 57 61 6c 6c 0d 20 2a |1, Larry| Wall. *|
|000000f0| 0d 20 2a 20 20 20 20 59 | 6f 75 20 6d 61 79 20 64 |. *    Y|ou may d|
|00000100| 69 73 74 72 69 62 75 74 | 65 20 75 6e 64 65 72 20 |istribut|e under |
|00000110| 74 68 65 20 74 65 72 6d | 73 20 6f 66 20 65 69 74 |the term|s of eit|
|00000120| 68 65 72 20 74 68 65 20 | 47 4e 55 20 47 65 6e 65 |her the |GNU Gene|
|00000130| 72 61 6c 20 50 75 62 6c | 69 63 0d 20 2a 20 20 20 |ral Publ|ic. *   |
|00000140| 20 4c 69 63 65 6e 73 65 | 20 6f 72 20 74 68 65 20 | License| or the |
|00000150| 41 72 74 69 73 74 69 63 | 20 4c 69 63 65 6e 73 65 |Artistic| License|
|00000160| 2c 20 61 73 20 73 70 65 | 63 69 66 69 65 64 20 69 |, as spe|cified i|
|00000170| 6e 20 74 68 65 20 52 45 | 41 44 4d 45 20 66 69 6c |n the RE|ADME fil|
|00000180| 65 2e 0d 20 2a 0d 20 2a | 20 24 4c 6f 67 3a 09 64 |e.. *. *| $Log:.d|
|00000190| 75 6d 70 2e 63 2c 76 20 | 24 0d 20 2a 20 52 65 76 |ump.c,v |$. * Rev|
|000001a0| 69 73 69 6f 6e 20 34 2e | 30 2e 31 2e 32 20 20 39 |ision 4.|0.1.2  9|
|000001b0| 32 2f 30 36 2f 30 38 20 | 20 31 33 3a 31 34 3a 32 |2/06/08 | 13:14:2|
|000001c0| 32 20 20 6c 77 61 6c 6c | 0d 20 2a 20 70 61 74 63 |2  lwall|. * patc|
|000001d0| 68 32 30 3a 20 72 65 6d | 6f 76 65 64 20 69 6d 70 |h20: rem|oved imp|
|000001e0| 6c 69 63 69 74 20 69 6e | 74 20 64 65 63 6c 61 72 |licit in|t declar|
|000001f0| 61 74 69 6f 6e 73 20 6f | 6e 20 66 75 6e 63 69 6f |ations o|n funcio|
|00000200| 6e 73 0d 20 2a 20 70 61 | 74 63 68 32 30 3a 20 66 |ns. * pa|tch20: f|
|00000210| 69 78 65 64 20 63 6f 6e | 66 75 73 69 6f 6e 20 62 |ixed con|fusion b|
|00000220| 65 74 77 65 65 6e 20 61 | 20 2a 76 61 72 27 73 20 |etween a| *var's |
|00000230| 72 65 61 6c 20 6e 61 6d | 65 20 61 6e 64 20 69 74 |real nam|e and it|
|00000240| 73 20 65 66 66 65 63 74 | 69 76 65 20 6e 61 6d 65 |s effect|ive name|
|00000250| 0d 20 2a 20 0d 20 2a 20 | 52 65 76 69 73 69 6f 6e |. * . * |Revision|
|00000260| 20 34 2e 30 2e 31 2e 31 | 20 20 39 31 2f 30 36 2f | 4.0.1.1|  91/06/|
|00000270| 30 37 20 20 31 30 3a 35 | 38 3a 34 34 20 20 6c 77 |07  10:5|8:44  lw|
|00000280| 61 6c 6c 0d 20 2a 20 70 | 61 74 63 68 34 3a 20 6e |all. * p|atch4: n|
|00000290| 65 77 20 63 6f 70 79 72 | 69 67 68 74 20 6e 6f 74 |ew copyr|ight not|
|000002a0| 69 63 65 0d 20 2a 20 0d | 20 2a 20 52 65 76 69 73 |ice. * .| * Revis|
|000002b0| 69 6f 6e 20 34 2e 30 20 | 20 39 31 2f 30 33 2f 32 |ion 4.0 | 91/03/2|
|000002c0| 30 20 20 30 31 3a 30 38 | 3a 32 35 20 20 6c 77 61 |0  01:08|:25  lwa|
|000002d0| 6c 6c 0d 20 2a 20 34 2e | 30 20 62 61 73 65 6c 69 |ll. * 4.|0 baseli|
|000002e0| 6e 65 2e 0d 20 2a 20 0d | 20 2a 2f 0d 0d 23 69 6e |ne.. * .| */..#in|
|000002f0| 63 6c 75 64 65 20 22 45 | 58 54 45 52 4e 2e 68 22 |clude "E|XTERN.h"|
|00000300| 0d 23 69 6e 63 6c 75 64 | 65 20 22 70 65 72 6c 2e |.#includ|e "perl.|
|00000310| 68 22 0d 0d 23 69 66 64 | 65 66 20 44 45 42 55 47 |h"..#ifd|ef DEBUG|
|00000320| 47 49 4e 47 0d 73 74 61 | 74 69 63 20 69 6e 74 20 |GING.sta|tic int |
|00000330| 64 75 6d 70 6c 76 6c 20 | 3d 20 30 3b 0d 0d 73 74 |dumplvl |= 0;..st|
|00000340| 61 74 69 63 20 76 6f 69 | 64 20 64 75 6d 70 28 29 |atic voi|d dump()|
|00000350| 3b 0d 0d 76 6f 69 64 0d | 64 75 6d 70 5f 61 6c 6c |;..void.|dump_all|
|00000360| 28 29 0d 7b 0d 20 20 20 | 20 72 65 67 69 73 74 65 |().{.   | registe|
|00000370| 72 20 69 6e 74 20 69 3b | 0d 20 20 20 20 72 65 67 |r int i;|.    reg|
|00000380| 69 73 74 65 72 20 53 54 | 41 42 20 2a 73 74 61 62 |ister ST|AB *stab|
|00000390| 3b 0d 20 20 20 20 72 65 | 67 69 73 74 65 72 20 48 |;.    re|gister H|
|000003a0| 45 4e 54 20 2a 65 6e 74 | 72 79 3b 0d 20 20 20 20 |ENT *ent|ry;.    |
|000003b0| 53 54 52 20 2a 73 74 72 | 20 3d 20 73 74 72 5f 6d |STR *str| = str_m|
|000003c0| 6f 72 74 61 6c 28 26 73 | 74 72 5f 75 6e 64 65 66 |ortal(&s|tr_undef|
|000003d0| 29 3b 0d 0d 20 20 20 20 | 64 75 6d 70 5f 63 6d 64 |);..    |dump_cmd|
|000003e0| 28 6d 61 69 6e 5f 72 6f | 6f 74 2c 4e 75 6c 6c 63 |(main_ro|ot,Nullc|
|000003f0| 6d 64 29 3b 0d 20 20 20 | 20 66 6f 72 20 28 69 20 |md);.   | for (i |
|00000400| 3d 20 30 3b 20 69 20 3c | 3d 20 31 32 37 3b 20 69 |= 0; i <|= 127; i|
|00000410| 2b 2b 29 20 7b 0d 09 66 | 6f 72 20 28 65 6e 74 72 |++) {..f|or (entr|
|00000420| 79 20 3d 20 64 65 66 73 | 74 61 73 68 2d 3e 74 62 |y = defs|tash->tb|
|00000430| 6c 5f 61 72 72 61 79 5b | 69 5d 3b 20 65 6e 74 72 |l_array[|i]; entr|
|00000440| 79 3b 20 65 6e 74 72 79 | 20 3d 20 65 6e 74 72 79 |y; entry| = entry|
|00000450| 2d 3e 68 65 6e 74 5f 6e | 65 78 74 29 20 7b 0d 09 |->hent_n|ext) {..|
|00000460| 20 20 20 20 73 74 61 62 | 20 3d 20 28 53 54 41 42 |    stab| = (STAB|
|00000470| 2a 29 65 6e 74 72 79 2d | 3e 68 65 6e 74 5f 76 61 |*)entry-|>hent_va|
|00000480| 6c 3b 0d 09 20 20 20 20 | 69 66 20 28 73 74 61 62 |l;..    |if (stab|
|00000490| 5f 73 75 62 28 73 74 61 | 62 29 29 20 7b 0d 09 09 |_sub(sta|b)) {...|
|000004a0| 73 74 61 62 5f 66 75 6c | 6c 6e 61 6d 65 28 73 74 |stab_ful|lname(st|
|000004b0| 72 2c 73 74 61 62 29 3b | 0d 09 09 64 75 6d 70 28 |r,stab);|...dump(|
|000004c0| 22 5c 6e 53 55 42 20 25 | 73 20 3d 20 22 2c 20 73 |"\nSUB %|s = ", s|
|000004d0| 74 72 2d 3e 73 74 72 5f | 70 74 72 29 3b 0d 09 09 |tr->str_|ptr);...|
|000004e0| 64 75 6d 70 5f 63 6d 64 | 28 73 74 61 62 5f 73 75 |dump_cmd|(stab_su|
|000004f0| 62 28 73 74 61 62 29 2d | 3e 63 6d 64 2c 4e 75 6c |b(stab)-|>cmd,Nul|
|00000500| 6c 63 6d 64 29 3b 0d 09 | 20 20 20 20 7d 0d 09 7d |lcmd);..|    }..}|
|00000510| 0d 20 20 20 20 7d 0d 7d | 0d 0d 76 6f 69 64 0d 64 |.    }.}|..void.d|
|00000520| 75 6d 70 5f 63 6d 64 28 | 63 6d 64 2c 61 6c 74 29 |ump_cmd(|cmd,alt)|
|00000530| 0d 72 65 67 69 73 74 65 | 72 20 43 4d 44 20 2a 63 |.registe|r CMD *c|
|00000540| 6d 64 3b 0d 72 65 67 69 | 73 74 65 72 20 43 4d 44 |md;.regi|ster CMD|
|00000550| 20 2a 61 6c 74 3b 0d 7b | 0d 20 20 20 20 66 70 72 | *alt;.{|.    fpr|
|00000560| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 22 7b 5c 6e |intf(std|err,"{\n|
|00000570| 22 29 3b 0d 20 20 20 20 | 77 68 69 6c 65 20 28 63 |");.    |while (c|
|00000580| 6d 64 29 20 7b 0d 09 64 | 75 6d 70 6c 76 6c 2b 2b |md) {..d|umplvl++|
|00000590| 3b 0d 09 64 75 6d 70 28 | 22 43 5f 54 59 50 45 20 |;..dump(|"C_TYPE |
|000005a0| 3d 20 25 73 5c 6e 22 2c | 63 6d 64 6e 61 6d 65 5b |= %s\n",|cmdname[|
|000005b0| 63 6d 64 2d 3e 63 5f 74 | 79 70 65 5d 29 3b 0d 09 |cmd->c_t|ype]);..|
|000005c0| 64 75 6d 70 28 22 43 5f | 41 44 44 52 20 3d 20 30 |dump("C_|ADDR = 0|
|000005d0| 78 25 6c 78 5c 6e 22 2c | 63 6d 64 29 3b 0d 09 64 |x%lx\n",|cmd);..d|
|000005e0| 75 6d 70 28 22 43 5f 4e | 45 58 54 20 3d 20 30 78 |ump("C_N|EXT = 0x|
|000005f0| 25 6c 78 5c 6e 22 2c 63 | 6d 64 2d 3e 63 5f 6e 65 |%lx\n",c|md->c_ne|
|00000600| 78 74 29 3b 0d 09 69 66 | 20 28 63 6d 64 2d 3e 63 |xt);..if| (cmd->c|
|00000610| 5f 6c 69 6e 65 29 0d 09 | 20 20 20 20 64 75 6d 70 |_line)..|    dump|
|00000620| 28 22 43 5f 4c 49 4e 45 | 20 3d 20 25 64 20 28 30 |("C_LINE| = %d (0|
|00000630| 78 25 6c 78 29 5c 6e 22 | 2c 63 6d 64 2d 3e 63 5f |x%lx)\n"|,cmd->c_|
|00000640| 6c 69 6e 65 2c 63 6d 64 | 29 3b 0d 09 69 66 20 28 |line,cmd|);..if (|
|00000650| 63 6d 64 2d 3e 63 5f 6c | 61 62 65 6c 29 0d 09 20 |cmd->c_l|abel).. |
|00000660| 20 20 20 64 75 6d 70 28 | 22 43 5f 4c 41 42 45 4c |   dump(|"C_LABEL|
|00000670| 20 3d 20 5c 22 25 73 5c | 22 5c 6e 22 2c 63 6d 64 | = \"%s\|"\n",cmd|
|00000680| 2d 3e 63 5f 6c 61 62 65 | 6c 29 3b 0d 09 64 75 6d |->c_labe|l);..dum|
|00000690| 70 28 22 43 5f 4f 50 54 | 20 3d 20 43 46 54 5f 25 |p("C_OPT| = CFT_%|
|000006a0| 73 5c 6e 22 2c 63 6d 64 | 6f 70 74 5b 63 6d 64 2d |s\n",cmd|opt[cmd-|
|000006b0| 3e 63 5f 66 6c 61 67 73 | 20 26 20 43 46 5f 4f 50 |>c_flags| & CF_OP|
|000006c0| 54 49 4d 49 5a 45 5d 29 | 3b 0d 09 2a 62 75 66 20 |TIMIZE])|;..*buf |
|000006d0| 3d 20 27 5c 30 27 3b 0d | 09 69 66 20 28 63 6d 64 |= '\0';.|.if (cmd|
|000006e0| 2d 3e 63 5f 66 6c 61 67 | 73 20 26 20 43 46 5f 46 |->c_flag|s & CF_F|
|000006f0| 49 52 53 54 4e 45 47 29 | 0d 09 20 20 20 20 28 76 |IRSTNEG)|..    (v|
|00000700| 6f 69 64 29 73 74 72 63 | 61 74 28 62 75 66 2c 22 |oid)strc|at(buf,"|
|00000710| 46 49 52 53 54 4e 45 47 | 2c 22 29 3b 0d 09 69 66 |FIRSTNEG|,");..if|
|00000720| 20 28 63 6d 64 2d 3e 63 | 5f 66 6c 61 67 73 20 26 | (cmd->c|_flags &|
|00000730| 20 43 46 5f 4e 45 53 55 | 52 45 29 0d 09 20 20 20 | CF_NESU|RE)..   |
|00000740| 20 28 76 6f 69 64 29 73 | 74 72 63 61 74 28 62 75 | (void)s|trcat(bu|
|00000750| 66 2c 22 4e 45 53 55 52 | 45 2c 22 29 3b 0d 09 69 |f,"NESUR|E,");..i|
|00000760| 66 20 28 63 6d 64 2d 3e | 63 5f 66 6c 61 67 73 20 |f (cmd->|c_flags |
|00000770| 26 20 43 46 5f 45 51 53 | 55 52 45 29 0d 09 20 20 |& CF_EQS|URE)..  |
|00000780| 20 20 28 76 6f 69 64 29 | 73 74 72 63 61 74 28 62 |  (void)|strcat(b|
|00000790| 75 66 2c 22 45 51 53 55 | 52 45 2c 22 29 3b 0d 09 |uf,"EQSU|RE,");..|
|000007a0| 69 66 20 28 63 6d 64 2d | 3e 63 5f 66 6c 61 67 73 |if (cmd-|>c_flags|
|000007b0| 20 26 20 43 46 5f 43 4f | 4e 44 29 0d 09 20 20 20 | & CF_CO|ND)..   |
|000007c0| 20 28 76 6f 69 64 29 73 | 74 72 63 61 74 28 62 75 | (void)s|trcat(bu|
|000007d0| 66 2c 22 43 4f 4e 44 2c | 22 29 3b 0d 09 69 66 20 |f,"COND,|");..if |
|000007e0| 28 63 6d 64 2d 3e 63 5f | 66 6c 61 67 73 20 26 20 |(cmd->c_|flags & |
|000007f0| 43 46 5f 4c 4f 4f 50 29 | 0d 09 20 20 20 20 28 76 |CF_LOOP)|..    (v|
|00000800| 6f 69 64 29 73 74 72 63 | 61 74 28 62 75 66 2c 22 |oid)strc|at(buf,"|
|00000810| 4c 4f 4f 50 2c 22 29 3b | 0d 09 69 66 20 28 63 6d |LOOP,");|..if (cm|
|00000820| 64 2d 3e 63 5f 66 6c 61 | 67 73 20 26 20 43 46 5f |d->c_fla|gs & CF_|
|00000830| 49 4e 56 45 52 54 29 0d | 09 20 20 20 20 28 76 6f |INVERT).|.    (vo|
|00000840| 69 64 29 73 74 72 63 61 | 74 28 62 75 66 2c 22 49 |id)strca|t(buf,"I|
|00000850| 4e 56 45 52 54 2c 22 29 | 3b 0d 09 69 66 20 28 63 |NVERT,")|;..if (c|
|00000860| 6d 64 2d 3e 63 5f 66 6c | 61 67 73 20 26 20 43 46 |md->c_fl|ags & CF|
|00000870| 5f 4f 4e 43 45 29 0d 09 | 20 20 20 20 28 76 6f 69 |_ONCE)..|    (voi|
|00000880| 64 29 73 74 72 63 61 74 | 28 62 75 66 2c 22 4f 4e |d)strcat|(buf,"ON|
|00000890| 43 45 2c 22 29 3b 0d 09 | 69 66 20 28 63 6d 64 2d |CE,");..|if (cmd-|
|000008a0| 3e 63 5f 66 6c 61 67 73 | 20 26 20 43 46 5f 46 4c |>c_flags| & CF_FL|
|000008b0| 49 50 29 0d 09 20 20 20 | 20 28 76 6f 69 64 29 73 |IP)..   | (void)s|
|000008c0| 74 72 63 61 74 28 62 75 | 66 2c 22 46 4c 49 50 2c |trcat(bu|f,"FLIP,|
|000008d0| 22 29 3b 0d 09 69 66 20 | 28 63 6d 64 2d 3e 63 5f |");..if |(cmd->c_|
|000008e0| 66 6c 61 67 73 20 26 20 | 43 46 5f 54 45 52 4d 29 |flags & |CF_TERM)|
|000008f0| 0d 09 20 20 20 20 28 76 | 6f 69 64 29 73 74 72 63 |..    (v|oid)strc|
|00000900| 61 74 28 62 75 66 2c 22 | 54 45 52 4d 2c 22 29 3b |at(buf,"|TERM,");|
|00000910| 0d 09 69 66 20 28 2a 62 | 75 66 29 0d 09 20 20 20 |..if (*b|uf)..   |
|00000920| 20 62 75 66 5b 73 74 72 | 6c 65 6e 28 62 75 66 29 | buf[str|len(buf)|
|00000930| 2d 31 5d 20 3d 20 27 5c | 30 27 3b 0d 09 64 75 6d |-1] = '\|0';..dum|
|00000940| 70 28 22 43 5f 46 4c 41 | 47 53 20 3d 20 28 25 73 |p("C_FLA|GS = (%s|
|00000950| 29 5c 6e 22 2c 62 75 66 | 29 3b 0d 09 69 66 20 28 |)\n",buf|);..if (|
|00000960| 63 6d 64 2d 3e 63 5f 73 | 68 6f 72 74 29 20 7b 0d |cmd->c_s|hort) {.|
|00000970| 09 20 20 20 20 64 75 6d | 70 28 22 43 5f 53 48 4f |.    dum|p("C_SHO|
|00000980| 52 54 20 3d 20 5c 22 25 | 73 5c 22 5c 6e 22 2c 73 |RT = \"%|s\"\n",s|
|00000990| 74 72 5f 70 65 65 6b 28 | 63 6d 64 2d 3e 63 5f 73 |tr_peek(|cmd->c_s|
|000009a0| 68 6f 72 74 29 29 3b 0d | 09 20 20 20 20 64 75 6d |hort));.|.    dum|
|000009b0| 70 28 22 43 5f 53 4c 45 | 4e 20 3d 20 5c 22 25 64 |p("C_SLE|N = \"%d|
|000009c0| 5c 22 5c 6e 22 2c 63 6d | 64 2d 3e 63 5f 73 6c 65 |\"\n",cm|d->c_sle|
|000009d0| 6e 29 3b 0d 09 7d 0d 09 | 69 66 20 28 63 6d 64 2d |n);..}..|if (cmd-|
|000009e0| 3e 63 5f 73 74 61 62 29 | 20 7b 0d 09 20 20 20 20 |>c_stab)| {..    |
|000009f0| 64 75 6d 70 28 22 43 5f | 53 54 41 42 20 3d 20 22 |dump("C_|STAB = "|
|00000a00| 29 3b 0d 09 20 20 20 20 | 64 75 6d 70 5f 73 74 61 |);..    |dump_sta|
|00000a10| 62 28 63 6d 64 2d 3e 63 | 5f 73 74 61 62 29 3b 0d |b(cmd->c|_stab);.|
|00000a20| 09 7d 0d 09 69 66 20 28 | 63 6d 64 2d 3e 63 5f 73 |.}..if (|cmd->c_s|
|00000a30| 70 61 74 29 20 7b 0d 09 | 20 20 20 20 64 75 6d 70 |pat) {..|    dump|
|00000a40| 28 22 43 5f 53 50 41 54 | 20 3d 20 22 29 3b 0d 09 |("C_SPAT| = ");..|
|00000a50| 20 20 20 20 64 75 6d 70 | 5f 73 70 61 74 28 63 6d |    dump|_spat(cm|
|00000a60| 64 2d 3e 63 5f 73 70 61 | 74 29 3b 0d 09 7d 0d 09 |d->c_spa|t);..}..|
|00000a70| 69 66 20 28 63 6d 64 2d | 3e 63 5f 65 78 70 72 29 |if (cmd-|>c_expr)|
|00000a80| 20 7b 0d 09 20 20 20 20 | 64 75 6d 70 28 22 43 5f | {..    |dump("C_|
|00000a90| 45 58 50 52 20 3d 20 22 | 29 3b 0d 09 20 20 20 20 |EXPR = "|);..    |
|00000aa0| 64 75 6d 70 5f 61 72 67 | 28 63 6d 64 2d 3e 63 5f |dump_arg|(cmd->c_|
|00000ab0| 65 78 70 72 29 3b 0d 09 | 7d 20 65 6c 73 65 0d 09 |expr);..|} else..|
|00000ac0| 20 20 20 20 64 75 6d 70 | 28 22 43 5f 45 58 50 52 |    dump|("C_EXPR|
|00000ad0| 20 3d 20 4e 55 4c 4c 5c | 6e 22 29 3b 0d 09 73 77 | = NULL\|n");..sw|
|00000ae0| 69 74 63 68 20 28 63 6d | 64 2d 3e 63 5f 74 79 70 |itch (cm|d->c_typ|
|00000af0| 65 29 20 7b 0d 09 63 61 | 73 65 20 43 5f 4e 45 58 |e) {..ca|se C_NEX|
|00000b00| 54 3a 0d 09 63 61 73 65 | 20 43 5f 57 48 49 4c 45 |T:..case| C_WHILE|
|00000b10| 3a 0d 09 63 61 73 65 20 | 43 5f 42 4c 4f 43 4b 3a |:..case |C_BLOCK:|
|00000b20| 0d 09 63 61 73 65 20 43 | 5f 45 4c 53 45 3a 0d 09 |..case C|_ELSE:..|
|00000b30| 63 61 73 65 20 43 5f 49 | 46 3a 0d 09 20 20 20 20 |case C_I|F:..    |
|00000b40| 69 66 20 28 63 6d 64 2d | 3e 75 63 6d 64 2e 63 63 |if (cmd-|>ucmd.cc|
|00000b50| 6d 64 2e 63 63 5f 74 72 | 75 65 29 20 7b 0d 09 09 |md.cc_tr|ue) {...|
|00000b60| 64 75 6d 70 28 22 43 43 | 5f 54 52 55 45 20 3d 20 |dump("CC|_TRUE = |
|00000b70| 22 29 3b 0d 09 09 64 75 | 6d 70 5f 63 6d 64 28 63 |");...du|mp_cmd(c|
|00000b80| 6d 64 2d 3e 75 63 6d 64 | 2e 63 63 6d 64 2e 63 63 |md->ucmd|.ccmd.cc|
|00000b90| 5f 74 72 75 65 2c 63 6d | 64 2d 3e 75 63 6d 64 2e |_true,cm|d->ucmd.|
|00000ba0| 63 63 6d 64 2e 63 63 5f | 61 6c 74 29 3b 0d 09 20 |ccmd.cc_|alt);.. |
|00000bb0| 20 20 20 7d 0d 09 20 20 | 20 20 65 6c 73 65 0d 09 |   }..  |  else..|
|00000bc0| 09 64 75 6d 70 28 22 43 | 43 5f 54 52 55 45 20 3d |.dump("C|C_TRUE =|
|00000bd0| 20 4e 55 4c 4c 5c 6e 22 | 29 3b 0d 09 20 20 20 20 | NULL\n"|);..    |
|00000be0| 69 66 20 28 63 6d 64 2d | 3e 63 5f 74 79 70 65 20 |if (cmd-|>c_type |
|00000bf0| 3d 3d 20 43 5f 49 46 20 | 26 26 20 63 6d 64 2d 3e |== C_IF |&& cmd->|
|00000c00| 75 63 6d 64 2e 63 63 6d | 64 2e 63 63 5f 61 6c 74 |ucmd.ccm|d.cc_alt|
|00000c10| 29 20 7b 0d 09 09 64 75 | 6d 70 28 22 43 43 5f 45 |) {...du|mp("CC_E|
|00000c20| 4e 44 45 4c 53 45 20 3d | 20 30 78 25 6c 78 5c 6e |NDELSE =| 0x%lx\n|
|00000c30| 22 2c 63 6d 64 2d 3e 75 | 63 6d 64 2e 63 63 6d 64 |",cmd->u|cmd.ccmd|
|00000c40| 2e 63 63 5f 61 6c 74 29 | 3b 0d 09 20 20 20 20 7d |.cc_alt)|;..    }|
|00000c50| 0d 09 20 20 20 20 65 6c | 73 65 20 69 66 20 28 63 |..    el|se if (c|
|00000c60| 6d 64 2d 3e 63 5f 74 79 | 70 65 20 3d 3d 20 43 5f |md->c_ty|pe == C_|
|00000c70| 4e 45 58 54 20 26 26 20 | 63 6d 64 2d 3e 75 63 6d |NEXT && |cmd->ucm|
|00000c80| 64 2e 63 63 6d 64 2e 63 | 63 5f 61 6c 74 29 20 7b |d.ccmd.c|c_alt) {|
|00000c90| 0d 09 09 64 75 6d 70 28 | 22 43 43 5f 4e 45 58 54 |...dump(|"CC_NEXT|
|00000ca0| 20 3d 20 30 78 25 6c 78 | 5c 6e 22 2c 63 6d 64 2d | = 0x%lx|\n",cmd-|
|00000cb0| 3e 75 63 6d 64 2e 63 63 | 6d 64 2e 63 63 5f 61 6c |>ucmd.cc|md.cc_al|
|00000cc0| 74 29 3b 0d 09 20 20 20 | 20 7d 0d 09 20 20 20 20 |t);..   | }..    |
|00000cd0| 65 6c 73 65 0d 09 09 64 | 75 6d 70 28 22 43 43 5f |else...d|ump("CC_|
|00000ce0| 41 4c 54 20 3d 20 4e 55 | 4c 4c 5c 6e 22 29 3b 0d |ALT = NU|LL\n");.|
|00000cf0| 09 20 20 20 20 62 72 65 | 61 6b 3b 0d 09 63 61 73 |.    bre|ak;..cas|
|00000d00| 65 20 43 5f 45 58 50 52 | 3a 0d 09 20 20 20 20 69 |e C_EXPR|:..    i|
|00000d10| 66 20 28 63 6d 64 2d 3e | 75 63 6d 64 2e 61 63 6d |f (cmd->|ucmd.acm|
|00000d20| 64 2e 61 63 5f 73 74 61 | 62 29 20 7b 0d 09 09 64 |d.ac_sta|b) {...d|
|00000d30| 75 6d 70 28 22 41 43 5f | 53 54 41 42 20 3d 20 22 |ump("AC_|STAB = "|
|00000d40| 29 3b 0d 09 09 64 75 6d | 70 5f 73 74 61 62 28 63 |);...dum|p_stab(c|
|00000d50| 6d 64 2d 3e 75 63 6d 64 | 2e 61 63 6d 64 2e 61 63 |md->ucmd|.acmd.ac|
|00000d60| 5f 73 74 61 62 29 3b 0d | 09 20 20 20 20 7d 20 65 |_stab);.|.    } e|
|00000d70| 6c 73 65 0d 09 09 64 75 | 6d 70 28 22 41 43 5f 53 |lse...du|mp("AC_S|
|00000d80| 54 41 42 20 3d 20 4e 55 | 4c 4c 5c 6e 22 29 3b 0d |TAB = NU|LL\n");.|
|00000d90| 09 20 20 20 20 69 66 20 | 28 63 6d 64 2d 3e 75 63 |.    if |(cmd->uc|
|00000da0| 6d 64 2e 61 63 6d 64 2e | 61 63 5f 65 78 70 72 29 |md.acmd.|ac_expr)|
|00000db0| 20 7b 0d 09 09 64 75 6d | 70 28 22 41 43 5f 45 58 | {...dum|p("AC_EX|
|00000dc0| 50 52 20 3d 20 22 29 3b | 0d 09 09 64 75 6d 70 5f |PR = ");|...dump_|
|00000dd0| 61 72 67 28 63 6d 64 2d | 3e 75 63 6d 64 2e 61 63 |arg(cmd-|>ucmd.ac|
|00000de0| 6d 64 2e 61 63 5f 65 78 | 70 72 29 3b 0d 09 20 20 |md.ac_ex|pr);..  |
|00000df0| 20 20 7d 20 65 6c 73 65 | 0d 09 09 64 75 6d 70 28 |  } else|...dump(|
|00000e00| 22 41 43 5f 45 58 50 52 | 20 3d 20 4e 55 4c 4c 5c |"AC_EXPR| = NULL\|
|00000e10| 6e 22 29 3b 0d 09 20 20 | 20 20 62 72 65 61 6b 3b |n");..  |  break;|
|00000e20| 0d 09 63 61 73 65 20 43 | 5f 43 53 57 49 54 43 48 |..case C|_CSWITCH|
|00000e30| 3a 0d 09 63 61 73 65 20 | 43 5f 4e 53 57 49 54 43 |:..case |C_NSWITC|
|00000e40| 48 3a 0d 09 20 20 20 20 | 7b 0d 09 09 69 6e 74 20 |H:..    |{...int |
|00000e50| 6d 61 78 2c 20 69 3b 0d | 0d 09 09 6d 61 78 20 3d |max, i;.|...max =|
|00000e60| 20 63 6d 64 2d 3e 75 63 | 6d 64 2e 73 63 6d 64 2e | cmd->uc|md.scmd.|
|00000e70| 73 63 5f 6d 61 78 3b 0d | 09 09 64 75 6d 70 28 22 |sc_max;.|..dump("|
|00000e80| 53 43 5f 4d 49 4e 20 3d | 20 28 25 64 29 5c 6e 22 |SC_MIN =| (%d)\n"|
|00000e90| 2c 63 6d 64 2d 3e 75 63 | 6d 64 2e 73 63 6d 64 2e |,cmd->uc|md.scmd.|
|00000ea0| 73 63 5f 6f 66 66 73 65 | 74 20 2b 20 31 29 3b 0d |sc_offse|t + 1);.|
|00000eb0| 09 09 64 75 6d 70 28 22 | 53 43 5f 4d 41 58 20 3d |..dump("|SC_MAX =|
|00000ec0| 20 28 25 64 29 5c 6e 22 | 2c 20 6d 61 78 20 2b 20 | (%d)\n"|, max + |
|00000ed0| 63 6d 64 2d 3e 75 63 6d | 64 2e 73 63 6d 64 2e 73 |cmd->ucm|d.scmd.s|
|00000ee0| 63 5f 6f 66 66 73 65 74 | 20 2d 20 31 29 3b 0d 09 |c_offset| - 1);..|
|00000ef0| 09 64 75 6d 70 28 22 53 | 43 5f 4e 45 58 54 5b 4c |.dump("S|C_NEXT[L|
|00000f00| 54 5d 20 3d 20 30 78 25 | 6c 78 5c 6e 22 2c 20 63 |T] = 0x%|lx\n", c|
|00000f10| 6d 64 2d 3e 75 63 6d 64 | 2e 73 63 6d 64 2e 73 63 |md->ucmd|.scmd.sc|
|00000f20| 5f 6e 65 78 74 5b 30 5d | 29 3b 0d 09 09 66 6f 72 |_next[0]|);...for|
|00000f30| 20 28 69 20 3d 20 31 3b | 20 69 20 3c 20 6d 61 78 | (i = 1;| i < max|
|00000f40| 3b 20 69 2b 2b 29 0d 09 | 09 20 20 20 20 64 75 6d |; i++)..|.    dum|
|00000f50| 70 28 22 53 43 5f 4e 45 | 58 54 5b 25 64 5d 20 3d |p("SC_NE|XT[%d] =|
|00000f60| 20 30 78 25 6c 78 5c 6e | 22 2c 20 69 20 2b 20 63 | 0x%lx\n|", i + c|
|00000f70| 6d 64 2d 3e 75 63 6d 64 | 2e 73 63 6d 64 2e 73 63 |md->ucmd|.scmd.sc|
|00000f80| 5f 6f 66 66 73 65 74 2c | 0d 09 09 20 20 20 20 20 |_offset,|...     |
|00000f90| 20 63 6d 64 2d 3e 75 63 | 6d 64 2e 73 63 6d 64 2e | cmd->uc|md.scmd.|
|00000fa0| 73 63 5f 6e 65 78 74 5b | 69 5d 29 3b 0d 09 09 64 |sc_next[|i]);...d|
|00000fb0| 75 6d 70 28 22 53 43 5f | 4e 45 58 54 5b 47 54 5d |ump("SC_|NEXT[GT]|
|00000fc0| 20 3d 20 30 78 25 6c 78 | 5c 6e 22 2c 20 63 6d 64 | = 0x%lx|\n", cmd|
|00000fd0| 2d 3e 75 63 6d 64 2e 73 | 63 6d 64 2e 73 63 5f 6e |->ucmd.s|cmd.sc_n|
|00000fe0| 65 78 74 5b 6d 61 78 5d | 29 3b 0d 09 20 20 20 20 |ext[max]|);..    |
|00000ff0| 7d 0d 09 20 20 20 20 62 | 72 65 61 6b 3b 0d 09 7d |}..    b|reak;..}|
|00001000| 0d 09 63 6d 64 20 3d 20 | 63 6d 64 2d 3e 63 5f 6e |..cmd = |cmd->c_n|
|00001010| 65 78 74 3b 0d 09 69 66 | 20 28 63 6d 64 20 26 26 |ext;..if| (cmd &&|
|00001020| 20 63 6d 64 2d 3e 63 5f | 68 65 61 64 20 3d 3d 20 | cmd->c_|head == |
|00001030| 63 6d 64 29 20 7b 09 2f | 2a 20 72 65 61 63 68 65 |cmd) {./|* reache|
|00001040| 64 20 65 6e 64 20 6f 66 | 20 77 68 69 6c 65 20 6c |d end of| while l|
|00001050| 6f 6f 70 20 2a 2f 0d 09 | 20 20 20 20 64 75 6d 70 |oop */..|    dump|
|00001060| 28 22 43 5f 4e 45 58 54 | 20 3d 20 48 45 41 44 5c |("C_NEXT| = HEAD\|
|00001070| 6e 22 29 3b 0d 09 20 20 | 20 20 64 75 6d 70 6c 76 |n");..  |  dumplv|
|00001080| 6c 2d 2d 3b 0d 09 20 20 | 20 20 64 75 6d 70 28 22 |l--;..  |  dump("|
|00001090| 7d 5c 6e 22 29 3b 0d 09 | 20 20 20 20 62 72 65 61 |}\n");..|    brea|
|000010a0| 6b 3b 0d 09 7d 0d 09 64 | 75 6d 70 6c 76 6c 2d 2d |k;..}..d|umplvl--|
|000010b0| 3b 0d 09 64 75 6d 70 28 | 22 7d 5c 6e 22 29 3b 0d |;..dump(|"}\n");.|
|000010c0| 09 69 66 20 28 63 6d 64 | 29 0d 09 20 20 20 20 69 |.if (cmd|)..    i|
|000010d0| 66 20 28 63 6d 64 20 3d | 3d 20 61 6c 74 29 0d 09 |f (cmd =|= alt)..|
|000010e0| 09 64 75 6d 70 28 22 43 | 4f 4e 54 20 30 78 25 6c |.dump("C|ONT 0x%l|
|000010f0| 78 20 7b 5c 6e 22 2c 63 | 6d 64 29 3b 0d 09 20 20 |x {\n",c|md);..  |
|00001100| 20 20 65 6c 73 65 0d 09 | 09 64 75 6d 70 28 22 7b |  else..|.dump("{|
|00001110| 5c 6e 22 29 3b 0d 20 20 | 20 20 7d 0d 7d 0d 0d 76 |\n");.  |  }.}..v|
|00001120| 6f 69 64 0d 64 75 6d 70 | 5f 61 72 67 28 61 72 67 |oid.dump|_arg(arg|
|00001130| 29 0d 72 65 67 69 73 74 | 65 72 20 41 52 47 20 2a |).regist|er ARG *|
|00001140| 61 72 67 3b 0d 7b 0d 20 | 20 20 20 72 65 67 69 73 |arg;.{. |   regis|
|00001150| 74 65 72 20 69 6e 74 20 | 69 3b 0d 0d 20 20 20 20 |ter int |i;..    |
|00001160| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 22 |fprintf(|stderr,"|
|00001170| 7b 5c 6e 22 29 3b 0d 20 | 20 20 20 64 75 6d 70 6c |{\n");. |   dumpl|
|00001180| 76 6c 2b 2b 3b 0d 20 20 | 20 20 64 75 6d 70 28 22 |vl++;.  |  dump("|
|00001190| 4f 50 5f 54 59 50 45 20 | 3d 20 25 73 5c 6e 22 2c |OP_TYPE |= %s\n",|
|000011a0| 6f 70 6e 61 6d 65 5b 61 | 72 67 2d 3e 61 72 67 5f |opname[a|rg->arg_|
|000011b0| 74 79 70 65 5d 29 3b 0d | 20 20 20 20 64 75 6d 70 |type]);.|    dump|
|000011c0| 28 22 4f 50 5f 4c 45 4e | 20 3d 20 25 64 5c 6e 22 |("OP_LEN| = %d\n"|
|000011d0| 2c 61 72 67 2d 3e 61 72 | 67 5f 6c 65 6e 29 3b 0d |,arg->ar|g_len);.|
|000011e0| 20 20 20 20 69 66 20 28 | 61 72 67 2d 3e 61 72 67 |    if (|arg->arg|
|000011f0| 5f 66 6c 61 67 73 29 20 | 7b 0d 09 64 75 6d 70 5f |_flags) |{..dump_|
|00001200| 66 6c 61 67 73 28 62 75 | 66 2c 61 72 67 2d 3e 61 |flags(bu|f,arg->a|
|00001210| 72 67 5f 66 6c 61 67 73 | 29 3b 0d 09 64 75 6d 70 |rg_flags|);..dump|
|00001220| 28 22 4f 50 5f 46 4c 41 | 47 53 20 3d 20 28 25 73 |("OP_FLA|GS = (%s|
|00001230| 29 5c 6e 22 2c 62 75 66 | 29 3b 0d 20 20 20 20 7d |)\n",buf|);.    }|
|00001240| 0d 20 20 20 20 66 6f 72 | 20 28 69 20 3d 20 31 3b |.    for| (i = 1;|
|00001250| 20 69 20 3c 3d 20 61 72 | 67 2d 3e 61 72 67 5f 6c | i <= ar|g->arg_l|
|00001260| 65 6e 3b 20 69 2b 2b 29 | 20 7b 0d 09 64 75 6d 70 |en; i++)| {..dump|
|00001270| 28 22 5b 25 64 5d 41 52 | 47 5f 54 59 50 45 20 3d |("[%d]AR|G_TYPE =|
|00001280| 20 25 73 25 73 5c 6e 22 | 2c 69 2c 61 72 67 6e 61 | %s%s\n"|,i,argna|
|00001290| 6d 65 5b 61 72 67 5b 69 | 5d 2e 61 72 67 5f 74 79 |me[arg[i|].arg_ty|
|000012a0| 70 65 20 26 20 41 5f 4d | 41 53 4b 5d 2c 0d 09 20 |pe & A_M|ASK],.. |
|000012b0| 20 20 20 61 72 67 5b 69 | 5d 2e 61 72 67 5f 74 79 |   arg[i|].arg_ty|
|000012c0| 70 65 20 26 20 41 5f 44 | 4f 4e 54 20 3f 20 22 20 |pe & A_D|ONT ? " |
|000012d0| 28 75 6e 65 76 61 6c 75 | 61 74 65 64 29 22 20 3a |(unevalu|ated)" :|
|000012e0| 20 22 22 29 3b 0d 09 69 | 66 20 28 61 72 67 5b 69 | "");..i|f (arg[i|
|000012f0| 5d 2e 61 72 67 5f 6c 65 | 6e 29 0d 09 20 20 20 20 |].arg_le|n)..    |
|00001300| 64 75 6d 70 28 22 5b 25 | 64 5d 41 52 47 5f 4c 45 |dump("[%|d]ARG_LE|
|00001310| 4e 20 3d 20 25 64 5c 6e | 22 2c 69 2c 61 72 67 5b |N = %d\n|",i,arg[|
|00001320| 69 5d 2e 61 72 67 5f 6c | 65 6e 29 3b 0d 09 69 66 |i].arg_l|en);..if|
|00001330| 20 28 61 72 67 5b 69 5d | 2e 61 72 67 5f 66 6c 61 | (arg[i]|.arg_fla|
|00001340| 67 73 29 20 7b 0d 09 20 | 20 20 20 64 75 6d 70 5f |gs) {.. |   dump_|
|00001350| 66 6c 61 67 73 28 62 75 | 66 2c 61 72 67 5b 69 5d |flags(bu|f,arg[i]|
|00001360| 2e 61 72 67 5f 66 6c 61 | 67 73 29 3b 0d 09 20 20 |.arg_fla|gs);..  |
|00001370| 20 20 64 75 6d 70 28 22 | 5b 25 64 5d 41 52 47 5f |  dump("|[%d]ARG_|
|00001380| 46 4c 41 47 53 20 3d 20 | 28 25 73 29 5c 6e 22 2c |FLAGS = |(%s)\n",|
|00001390| 69 2c 62 75 66 29 3b 0d | 09 7d 0d 09 73 77 69 74 |i,buf);.|.}..swit|
|000013a0| 63 68 20 28 61 72 67 5b | 69 5d 2e 61 72 67 5f 74 |ch (arg[|i].arg_t|
|000013b0| 79 70 65 20 26 20 41 5f | 4d 41 53 4b 29 20 7b 0d |ype & A_|MASK) {.|
|000013c0| 09 63 61 73 65 20 41 5f | 4e 55 4c 4c 3a 0d 09 20 |.case A_|NULL:.. |
|000013d0| 20 20 20 69 66 20 28 61 | 72 67 2d 3e 61 72 67 5f |   if (a|rg->arg_|
|000013e0| 74 79 70 65 20 3d 3d 20 | 4f 5f 54 52 41 4e 53 29 |type == |O_TRANS)|
|000013f0| 20 7b 0d 09 09 73 68 6f | 72 74 20 2a 74 62 6c 20 | {...sho|rt *tbl |
|00001400| 3d 20 28 73 68 6f 72 74 | 2a 29 61 72 67 5b 32 5d |= (short|*)arg[2]|
|00001410| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 63 76 61 |.arg_ptr|.arg_cva|
|00001420| 6c 3b 0d 09 09 69 6e 74 | 20 69 3b 0d 0d 09 09 66 |l;...int| i;....f|
|00001430| 6f 72 20 28 69 20 3d 20 | 30 3b 20 69 20 3c 20 32 |or (i = |0; i < 2|
|00001440| 35 36 3b 20 69 2b 2b 29 | 20 7b 0d 09 09 20 20 20 |56; i++)| {...   |
|00001450| 20 69 66 20 28 74 62 6c | 5b 69 5d 20 3e 3d 20 30 | if (tbl|[i] >= 0|
|00001460| 29 0d 09 09 09 64 75 6d | 70 28 22 20 20 20 25 64 |)....dum|p("   %d|
|00001470| 20 2d 3e 20 25 64 5c 6e | 22 2c 20 69 2c 20 74 62 | -> %d\n|", i, tb|
|00001480| 6c 5b 69 5d 29 3b 0d 09 | 09 20 20 20 20 65 6c 73 |l[i]);..|.    els|
|00001490| 65 20 69 66 20 28 74 62 | 6c 5b 69 5d 20 3d 3d 20 |e if (tb|l[i] == |
|000014a0| 2d 32 29 0d 09 09 09 64 | 75 6d 70 28 22 20 20 20 |-2)....d|ump("   |
|000014b0| 25 64 20 2d 3e 20 44 45 | 4c 45 54 45 5c 6e 22 2c |%d -> DE|LETE\n",|
|000014c0| 20 69 29 3b 0d 09 09 7d | 0d 09 20 20 20 20 7d 0d | i);...}|..    }.|
|000014d0| 09 20 20 20 20 62 72 65 | 61 6b 3b 0d 09 63 61 73 |.    bre|ak;..cas|
|000014e0| 65 20 41 5f 4c 45 58 50 | 52 3a 0d 09 63 61 73 65 |e A_LEXP|R:..case|
|000014f0| 20 41 5f 45 58 50 52 3a | 0d 09 20 20 20 20 64 75 | A_EXPR:|..    du|
|00001500| 6d 70 28 22 5b 25 64 5d | 41 52 47 5f 41 52 47 20 |mp("[%d]|ARG_ARG |
|00001510| 3d 20 22 2c 69 29 3b 0d | 09 20 20 20 20 64 75 6d |= ",i);.|.    dum|
|00001520| 70 5f 61 72 67 28 61 72 | 67 5b 69 5d 2e 61 72 67 |p_arg(ar|g[i].arg|
|00001530| 5f 70 74 72 2e 61 72 67 | 5f 61 72 67 29 3b 0d 09 |_ptr.arg|_arg);..|
|00001540| 20 20 20 20 62 72 65 61 | 6b 3b 0d 09 63 61 73 65 |    brea|k;..case|
|00001550| 20 41 5f 43 4d 44 3a 0d | 09 20 20 20 20 64 75 6d | A_CMD:.|.    dum|
|00001560| 70 28 22 5b 25 64 5d 41 | 52 47 5f 43 4d 44 20 3d |p("[%d]A|RG_CMD =|
|00001570| 20 22 2c 69 29 3b 0d 09 | 20 20 20 20 64 75 6d 70 | ",i);..|    dump|
|00001580| 5f 63 6d 64 28 61 72 67 | 5b 69 5d 2e 61 72 67 5f |_cmd(arg|[i].arg_|
|00001590| 70 74 72 2e 61 72 67 5f | 63 6d 64 2c 4e 75 6c 6c |ptr.arg_|cmd,Null|
|000015a0| 63 6d 64 29 3b 0d 09 20 | 20 20 20 62 72 65 61 6b |cmd);.. |   break|
|000015b0| 3b 0d 09 63 61 73 65 20 | 41 5f 57 4f 52 44 3a 0d |;..case |A_WORD:.|
|000015c0| 09 63 61 73 65 20 41 5f | 53 54 41 42 3a 0d 09 63 |.case A_|STAB:..c|
|000015d0| 61 73 65 20 41 5f 4c 56 | 41 4c 3a 0d 09 63 61 73 |ase A_LV|AL:..cas|
|000015e0| 65 20 41 5f 52 45 41 44 | 3a 0d 09 63 61 73 65 20 |e A_READ|:..case |
|000015f0| 41 5f 47 4c 4f 42 3a 0d | 09 63 61 73 65 20 41 5f |A_GLOB:.|.case A_|
|00001600| 41 52 59 4c 45 4e 3a 0d | 09 63 61 73 65 20 41 5f |ARYLEN:.|.case A_|
|00001610| 41 52 59 53 54 41 42 3a | 0d 09 63 61 73 65 20 41 |ARYSTAB:|..case A|
|00001620| 5f 4c 41 52 59 53 54 41 | 42 3a 0d 09 20 20 20 20 |_LARYSTA|B:..    |
|00001630| 64 75 6d 70 28 22 5b 25 | 64 5d 41 52 47 5f 53 54 |dump("[%|d]ARG_ST|
|00001640| 41 42 20 3d 20 22 2c 69 | 29 3b 0d 09 20 20 20 20 |AB = ",i|);..    |
|00001650| 64 75 6d 70 5f 73 74 61 | 62 28 61 72 67 5b 69 5d |dump_sta|b(arg[i]|
|00001660| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 73 74 61 |.arg_ptr|.arg_sta|
|00001670| 62 29 3b 0d 09 20 20 20 | 20 62 72 65 61 6b 3b 0d |b);..   | break;.|
|00001680| 09 63 61 73 65 20 41 5f | 53 49 4e 47 4c 45 3a 0d |.case A_|SINGLE:.|
|00001690| 09 63 61 73 65 20 41 5f | 44 4f 55 42 4c 45 3a 0d |.case A_|DOUBLE:.|
|000016a0| 09 63 61 73 65 20 41 5f | 42 41 43 4b 54 49 43 4b |.case A_|BACKTICK|
|000016b0| 3a 0d 09 20 20 20 20 64 | 75 6d 70 28 22 5b 25 64 |:..    d|ump("[%d|
|000016c0| 5d 41 52 47 5f 53 54 52 | 20 3d 20 27 25 73 27 5c |]ARG_STR| = '%s'\|
|000016d0| 6e 22 2c 69 2c 73 74 72 | 5f 70 65 65 6b 28 61 72 |n",i,str|_peek(ar|
|000016e0| 67 5b 69 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[i].arg|_ptr.arg|
|000016f0| 5f 73 74 72 29 29 3b 0d | 09 20 20 20 20 62 72 65 |_str));.|.    bre|
|00001700| 61 6b 3b 0d 09 63 61 73 | 65 20 41 5f 53 50 41 54 |ak;..cas|e A_SPAT|
|00001710| 3a 0d 09 20 20 20 20 64 | 75 6d 70 28 22 5b 25 64 |:..    d|ump("[%d|
|00001720| 5d 41 52 47 5f 53 50 41 | 54 20 3d 20 22 2c 69 29 |]ARG_SPA|T = ",i)|
|00001730| 3b 0d 09 20 20 20 20 64 | 75 6d 70 5f 73 70 61 74 |;..    d|ump_spat|
|00001740| 28 61 72 67 5b 69 5d 2e | 61 72 67 5f 70 74 72 2e |(arg[i].|arg_ptr.|
|00001750| 61 72 67 5f 73 70 61 74 | 29 3b 0d 09 20 20 20 20 |arg_spat|);..    |
|00001760| 62 72 65 61 6b 3b 0d 09 | 7d 0d 20 20 20 20 7d 0d |break;..|}.    }.|
|00001770| 20 20 20 20 64 75 6d 70 | 6c 76 6c 2d 2d 3b 0d 20 |    dump|lvl--;. |
|00001780| 20 20 20 64 75 6d 70 28 | 22 7d 5c 6e 22 29 3b 0d |   dump(|"}\n");.|
|00001790| 7d 0d 0d 76 6f 69 64 0d | 64 75 6d 70 5f 66 6c 61 |}..void.|dump_fla|
|000017a0| 67 73 28 62 2c 66 6c 61 | 67 73 29 0d 63 68 61 72 |gs(b,fla|gs).char|
|000017b0| 20 2a 62 3b 0d 75 6e 73 | 69 67 6e 65 64 20 69 6e | *b;.uns|igned in|
|000017c0| 74 20 66 6c 61 67 73 3b | 0d 7b 0d 20 20 20 20 2a |t flags;|.{.    *|
|000017d0| 62 20 3d 20 27 5c 30 27 | 3b 0d 20 20 20 20 69 66 |b = '\0'|;.    if|
|000017e0| 20 28 66 6c 61 67 73 20 | 26 20 41 46 5f 41 52 59 | (flags |& AF_ARY|
|000017f0| 4f 4b 29 0d 09 28 76 6f | 69 64 29 73 74 72 63 61 |OK)..(vo|id)strca|
|00001800| 74 28 62 2c 22 41 52 59 | 4f 4b 2c 22 29 3b 0d 20 |t(b,"ARY|OK,");. |
|00001810| 20 20 20 69 66 20 28 66 | 6c 61 67 73 20 26 20 41 |   if (f|lags & A|
|00001820| 46 5f 50 4f 53 54 29 0d | 09 28 76 6f 69 64 29 73 |F_POST).|.(void)s|
|00001830| 74 72 63 61 74 28 62 2c | 22 50 4f 53 54 2c 22 29 |trcat(b,|"POST,")|
|00001840| 3b 0d 20 20 20 20 69 66 | 20 28 66 6c 61 67 73 20 |;.    if| (flags |
|00001850| 26 20 41 46 5f 50 52 45 | 29 0d 09 28 76 6f 69 64 |& AF_PRE|)..(void|
|00001860| 29 73 74 72 63 61 74 28 | 62 2c 22 50 52 45 2c 22 |)strcat(|b,"PRE,"|
|00001870| 29 3b 0d 20 20 20 20 69 | 66 20 28 66 6c 61 67 73 |);.    i|f (flags|
|00001880| 20 26 20 41 46 5f 55 50 | 29 0d 09 28 76 6f 69 64 | & AF_UP|)..(void|
|00001890| 29 73 74 72 63 61 74 28 | 62 2c 22 55 50 2c 22 29 |)strcat(|b,"UP,")|
|000018a0| 3b 0d 20 20 20 20 69 66 | 20 28 66 6c 61 67 73 20 |;.    if| (flags |
|000018b0| 26 20 41 46 5f 43 4f 4d | 4d 4f 4e 29 0d 09 28 76 |& AF_COM|MON)..(v|
|000018c0| 6f 69 64 29 73 74 72 63 | 61 74 28 62 2c 22 43 4f |oid)strc|at(b,"CO|
|000018d0| 4d 4d 4f 4e 2c 22 29 3b | 0d 20 20 20 20 69 66 20 |MMON,");|.    if |
|000018e0| 28 66 6c 61 67 73 20 26 | 20 41 46 5f 44 45 50 52 |(flags &| AF_DEPR|
|000018f0| 29 0d 09 28 76 6f 69 64 | 29 73 74 72 63 61 74 28 |)..(void|)strcat(|
|00001900| 62 2c 22 44 45 50 52 2c | 22 29 3b 0d 20 20 20 20 |b,"DEPR,|");.    |
|00001910| 69 66 20 28 66 6c 61 67 | 73 20 26 20 41 46 5f 4c |if (flag|s & AF_L|
|00001920| 49 53 54 49 53 48 29 0d | 09 28 76 6f 69 64 29 73 |ISTISH).|.(void)s|
|00001930| 74 72 63 61 74 28 62 2c | 22 4c 49 53 54 49 53 48 |trcat(b,|"LISTISH|
|00001940| 2c 22 29 3b 0d 20 20 20 | 20 69 66 20 28 66 6c 61 |,");.   | if (fla|
|00001950| 67 73 20 26 20 41 46 5f | 4c 4f 43 41 4c 29 0d 09 |gs & AF_|LOCAL)..|
|00001960| 28 76 6f 69 64 29 73 74 | 72 63 61 74 28 62 2c 22 |(void)st|rcat(b,"|
|00001970| 4c 4f 43 41 4c 2c 22 29 | 3b 0d 20 20 20 20 69 66 |LOCAL,")|;.    if|
|00001980| 20 28 2a 62 29 0d 09 62 | 5b 73 74 72 6c 65 6e 28 | (*b)..b|[strlen(|
|00001990| 62 29 2d 31 5d 20 3d 20 | 27 5c 30 27 3b 0d 7d 0d |b)-1] = |'\0';.}.|
|000019a0| 0d 76 6f 69 64 0d 64 75 | 6d 70 5f 73 74 61 62 28 |.void.du|mp_stab(|
|000019b0| 73 74 61 62 29 0d 72 65 | 67 69 73 74 65 72 20 53 |stab).re|gister S|
|000019c0| 54 41 42 20 2a 73 74 61 | 62 3b 0d 7b 0d 20 20 20 |TAB *sta|b;.{.   |
|000019d0| 20 53 54 52 20 2a 73 74 | 72 3b 0d 0d 20 20 20 20 | STR *st|r;..    |
|000019e0| 69 66 20 28 21 73 74 61 | 62 29 20 7b 0d 09 66 70 |if (!sta|b) {..fp|
|000019f0| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 22 7b 7d |rintf(st|derr,"{}|
|00001a00| 5c 6e 22 29 3b 0d 09 72 | 65 74 75 72 6e 3b 0d 20 |\n");..r|eturn;. |
|00001a10| 20 20 20 7d 0d 20 20 20 | 20 73 74 72 20 3d 20 73 |   }.   | str = s|
|00001a20| 74 72 5f 6d 6f 72 74 61 | 6c 28 26 73 74 72 5f 75 |tr_morta|l(&str_u|
|00001a30| 6e 64 65 66 29 3b 0d 20 | 20 20 20 64 75 6d 70 6c |ndef);. |   dumpl|
|00001a40| 76 6c 2b 2b 3b 0d 20 20 | 20 20 66 70 72 69 6e 74 |vl++;.  |  fprint|
|00001a50| 66 28 73 74 64 65 72 72 | 2c 22 7b 5c 6e 22 29 3b |f(stderr|,"{\n");|
|00001a60| 0d 20 20 20 20 73 74 61 | 62 5f 66 75 6c 6c 6e 61 |.    sta|b_fullna|
|00001a70| 6d 65 28 73 74 72 2c 73 | 74 61 62 29 3b 0d 20 20 |me(str,s|tab);.  |
|00001a80| 20 20 64 75 6d 70 28 22 | 53 54 41 42 5f 4e 41 4d |  dump("|STAB_NAM|
|00001a90| 45 20 3d 20 25 73 22 2c | 20 73 74 72 2d 3e 73 74 |E = %s",| str->st|
|00001aa0| 72 5f 70 74 72 29 3b 0d | 20 20 20 20 69 66 20 28 |r_ptr);.|    if (|
|00001ab0| 73 74 61 62 20 21 3d 20 | 73 74 61 62 5f 65 73 74 |stab != |stab_est|
|00001ac0| 61 62 28 73 74 61 62 29 | 29 20 7b 0d 09 73 74 61 |ab(stab)|) {..sta|
|00001ad0| 62 5f 65 66 75 6c 6c 6e | 61 6d 65 28 73 74 72 2c |b_efulln|ame(str,|
|00001ae0| 73 74 61 62 5f 65 73 74 | 61 62 28 73 74 61 62 29 |stab_est|ab(stab)|
|00001af0| 29 3b 0d 09 64 75 6d 70 | 28 22 2d 3e 20 25 73 22 |);..dump|("-> %s"|
|00001b00| 2c 20 73 74 72 2d 3e 73 | 74 72 5f 70 74 72 29 3b |, str->s|tr_ptr);|
|00001b10| 0d 20 20 20 20 7d 0d 20 | 20 20 20 64 75 6d 70 28 |.    }. |   dump(|
|00001b20| 22 5c 6e 22 29 3b 0d 20 | 20 20 20 64 75 6d 70 6c |"\n");. |   dumpl|
|00001b30| 76 6c 2d 2d 3b 0d 20 20 | 20 20 64 75 6d 70 28 22 |vl--;.  |  dump("|
|00001b40| 7d 5c 6e 22 29 3b 0d 7d | 0d 0d 76 6f 69 64 0d 64 |}\n");.}|..void.d|
|00001b50| 75 6d 70 5f 73 70 61 74 | 28 73 70 61 74 29 0d 72 |ump_spat|(spat).r|
|00001b60| 65 67 69 73 74 65 72 20 | 53 50 41 54 20 2a 73 70 |egister |SPAT *sp|
|00001b70| 61 74 3b 0d 7b 0d 20 20 | 20 20 63 68 61 72 20 63 |at;.{.  |  char c|
|00001b80| 68 3b 0d 0d 20 20 20 20 | 69 66 20 28 21 73 70 61 |h;..    |if (!spa|
|00001b90| 74 29 20 7b 0d 09 66 70 | 72 69 6e 74 66 28 73 74 |t) {..fp|rintf(st|
|00001ba0| 64 65 72 72 2c 22 7b 7d | 5c 6e 22 29 3b 0d 09 72 |derr,"{}|\n");..r|
|00001bb0| 65 74 75 72 6e 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |eturn;. |   }.   |
|00001bc0| 20 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c | fprintf|(stderr,|
|00001bd0| 22 7b 5c 6e 22 29 3b 0d | 20 20 20 20 64 75 6d 70 |"{\n");.|    dump|
|00001be0| 6c 76 6c 2b 2b 3b 0d 20 | 20 20 20 69 66 20 28 73 |lvl++;. |   if (s|
|00001bf0| 70 61 74 2d 3e 73 70 61 | 74 5f 72 75 6e 74 69 6d |pat->spa|t_runtim|
|00001c00| 65 29 20 7b 0d 09 64 75 | 6d 70 28 22 53 50 41 54 |e) {..du|mp("SPAT|
|00001c10| 5f 52 55 4e 54 49 4d 45 | 20 3d 20 22 29 3b 0d 09 |_RUNTIME| = ");..|
|00001c20| 64 75 6d 70 5f 61 72 67 | 28 73 70 61 74 2d 3e 73 |dump_arg|(spat->s|
|00001c30| 70 61 74 5f 72 75 6e 74 | 69 6d 65 29 3b 0d 20 20 |pat_runt|ime);.  |
|00001c40| 20 20 7d 20 65 6c 73 65 | 20 7b 0d 09 69 66 20 28 |  } else| {..if (|
|00001c50| 73 70 61 74 2d 3e 73 70 | 61 74 5f 66 6c 61 67 73 |spat->sp|at_flags|
|00001c60| 20 26 20 53 50 41 54 5f | 4f 4e 43 45 29 0d 09 20 | & SPAT_|ONCE).. |
|00001c70| 20 20 20 63 68 20 3d 20 | 27 3f 27 3b 0d 09 65 6c |   ch = |'?';..el|
|00001c80| 73 65 0d 09 20 20 20 20 | 63 68 20 3d 20 27 2f 27 |se..    |ch = '/'|
|00001c90| 3b 0d 09 64 75 6d 70 28 | 22 53 50 41 54 5f 50 52 |;..dump(|"SPAT_PR|
|00001ca0| 45 20 25 63 25 73 25 63 | 5c 6e 22 2c 63 68 2c 73 |E %c%s%c|\n",ch,s|
|00001cb0| 70 61 74 2d 3e 73 70 61 | 74 5f 72 65 67 65 78 70 |pat->spa|t_regexp|
|00001cc0| 2d 3e 70 72 65 63 6f 6d | 70 2c 63 68 29 3b 0d 20 |->precom|p,ch);. |
|00001cd0| 20 20 20 7d 0d 20 20 20 | 20 69 66 20 28 73 70 61 |   }.   | if (spa|
|00001ce0| 74 2d 3e 73 70 61 74 5f | 72 65 70 6c 29 20 7b 0d |t->spat_|repl) {.|
|00001cf0| 09 64 75 6d 70 28 22 53 | 50 41 54 5f 52 45 50 4c |.dump("S|PAT_REPL|
|00001d00| 20 3d 20 22 29 3b 0d 09 | 64 75 6d 70 5f 61 72 67 | = ");..|dump_arg|
|00001d10| 28 73 70 61 74 2d 3e 73 | 70 61 74 5f 72 65 70 6c |(spat->s|pat_repl|
|00001d20| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 69 66 20 |);.    }|.    if |
|00001d30| 28 73 70 61 74 2d 3e 73 | 70 61 74 5f 73 68 6f 72 |(spat->s|pat_shor|
|00001d40| 74 29 20 7b 0d 09 64 75 | 6d 70 28 22 53 50 41 54 |t) {..du|mp("SPAT|
|00001d50| 5f 53 48 4f 52 54 20 3d | 20 5c 22 25 73 5c 22 5c |_SHORT =| \"%s\"\|
|00001d60| 6e 22 2c 73 74 72 5f 70 | 65 65 6b 28 73 70 61 74 |n",str_p|eek(spat|
|00001d70| 2d 3e 73 70 61 74 5f 73 | 68 6f 72 74 29 29 3b 0d |->spat_s|hort));.|
|00001d80| 20 20 20 20 7d 0d 20 20 | 20 20 64 75 6d 70 6c 76 |    }.  |  dumplv|
|00001d90| 6c 2d 2d 3b 0d 20 20 20 | 20 64 75 6d 70 28 22 7d |l--;.   | dump("}|
|00001da0| 5c 6e 22 29 3b 0d 7d 0d | 0d 2f 2a 20 56 41 52 41 |\n");.}.|./* VARA|
|00001db0| 52 47 53 31 20 2a 2f 0d | 73 74 61 74 69 63 20 76 |RGS1 */.|static v|
|00001dc0| 6f 69 64 20 64 75 6d 70 | 28 61 72 67 31 2c 61 72 |oid dump|(arg1,ar|
|00001dd0| 67 32 2c 61 72 67 33 2c | 61 72 67 34 2c 61 72 67 |g2,arg3,|arg4,arg|
|00001de0| 35 29 0d 63 68 61 72 20 | 2a 61 72 67 31 3b 0d 6c |5).char |*arg1;.l|
|00001df0| 6f 6e 67 20 61 72 67 32 | 2c 20 61 72 67 33 2c 20 |ong arg2|, arg3, |
|00001e00| 61 72 67 34 2c 20 61 72 | 67 35 3b 0d 7b 0d 20 20 |arg4, ar|g5;.{.  |
|00001e10| 20 20 69 6e 74 20 69 3b | 0d 0d 20 20 20 20 66 6f |  int i;|..    fo|
|00001e20| 72 20 28 69 20 3d 20 64 | 75 6d 70 6c 76 6c 2a 34 |r (i = d|umplvl*4|
|00001e30| 3b 20 69 3b 20 69 2d 2d | 29 0d 09 28 76 6f 69 64 |; i; i--|)..(void|
|00001e40| 29 70 75 74 63 28 27 20 | 27 2c 73 74 64 65 72 72 |)putc(' |',stderr|
|00001e50| 29 3b 0d 20 20 20 20 66 | 70 72 69 6e 74 66 28 73 |);.    f|printf(s|
|00001e60| 74 64 65 72 72 2c 61 72 | 67 31 2c 20 61 72 67 32 |tderr,ar|g1, arg2|
|00001e70| 2c 20 61 72 67 33 2c 20 | 61 72 67 34 2c 20 61 72 |, arg3, |arg4, ar|
|00001e80| 67 35 29 3b 0d 7d 0d 23 | 65 6e 64 69 66 0d 0d 23 |g5);.}.#|endif..#|
|00001e90| 69 66 64 65 66 20 44 45 | 42 55 47 0d 63 68 61 72 |ifdef DE|BUG.char|
|00001ea0| 20 2a 0d 73 68 6f 77 69 | 6e 70 75 74 28 29 0d 7b | *.showi|nput().{|
|00001eb0| 0d 20 20 20 20 72 65 67 | 69 73 74 65 72 20 63 68 |.    reg|ister ch|
|00001ec0| 61 72 20 2a 73 20 3d 20 | 73 74 72 5f 67 65 74 28 |ar *s = |str_get(|
|00001ed0| 6c 69 6e 65 73 74 72 29 | 3b 0d 20 20 20 20 69 6e |linestr)|;.    in|
|00001ee0| 74 20 66 64 3b 0d 20 20 | 20 20 73 74 61 74 69 63 |t fd;.  |  static|
|00001ef0| 20 63 68 61 72 20 63 6d | 64 5b 5d 20 3d 0d 20 20 | char cm|d[] =.  |
|00001f00| 20 20 20 20 7b 30 35 2c | 30 33 30 2c 30 35 2c 30 |    {05,|030,05,0|
|00001f10| 33 2c 30 34 30 2c 30 33 | 2c 30 32 32 2c 30 33 31 |3,040,03|,022,031|
|00001f20| 2c 30 32 30 2c 30 32 34 | 2c 30 34 30 2c 30 34 2c |,020,024|,040,04,|
|00001f30| 30 31 37 2c 30 31 36 2c | 30 32 34 2c 30 31 2c 30 |017,016,|024,01,0|
|00001f40| 32 33 2c 30 31 33 2c 30 | 34 30 2c 0d 09 30 37 34 |23,013,0|40,..074|
|00001f50| 2c 30 35 37 2c 30 32 34 | 2c 30 31 35 2c 30 32 30 |,057,024|,015,020|
|00001f60| 2c 30 35 37 2c 30 35 36 | 2c 30 30 36 2c 30 31 37 |,057,056|,006,017|
|00001f70| 2c 30 31 37 2c 30 7d 3b | 0d 0d 20 20 20 20 69 66 |,017,0};|..    if|
|00001f80| 20 28 72 73 66 70 20 21 | 3d 20 73 74 64 69 6e 20 | (rsfp !|= stdin |
|00001f90| 7c 7c 20 73 74 72 6e 45 | 51 28 73 2c 22 23 21 22 ||| strnE|Q(s,"#!"|
|00001fa0| 2c 32 29 29 0d 09 72 65 | 74 75 72 6e 20 73 3b 0d |,2))..re|turn s;.|
|00001fb0| 20 20 20 20 66 6f 72 20 | 28 3b 20 2a 73 3b 20 73 |    for |(; *s; s|
|00001fc0| 2b 2b 29 20 7b 0d 09 69 | 66 20 28 2a 73 20 26 20 |++) {..i|f (*s & |
|00001fd0| 30 32 30 30 29 20 7b 0d | 09 20 20 20 20 66 64 20 |0200) {.|.    fd |
|00001fe0| 3d 20 63 72 65 61 74 28 | 22 2f 74 6d 70 2f 2e 66 |= creat(|"/tmp/.f|
|00001ff0| 6f 6f 22 2c 30 36 30 30 | 29 3b 0d 09 20 20 20 20 |oo",0600|);..    |
|00002000| 77 72 69 74 65 28 66 64 | 2c 73 74 72 5f 67 65 74 |write(fd|,str_get|
|00002010| 28 6c 69 6e 65 73 74 72 | 29 2c 6c 69 6e 65 73 74 |(linestr|),linest|
|00002020| 72 2d 3e 73 74 72 5f 63 | 75 72 29 3b 0d 09 20 20 |r->str_c|ur);..  |
|00002030| 20 20 77 68 69 6c 65 28 | 73 20 3d 20 73 74 72 5f |  while(|s = str_|
|00002040| 67 65 74 73 28 6c 69 6e | 65 73 74 72 2c 72 73 66 |gets(lin|estr,rsf|
|00002050| 70 2c 30 29 29 20 7b 0d | 09 09 77 72 69 74 65 28 |p,0)) {.|..write(|
|00002060| 66 64 2c 73 2c 6c 69 6e | 65 73 74 72 2d 3e 73 74 |fd,s,lin|estr->st|
|00002070| 72 5f 63 75 72 29 3b 0d | 09 20 20 20 20 7d 0d 09 |r_cur);.|.    }..|
|00002080| 20 20 20 20 28 76 6f 69 | 64 29 63 6c 6f 73 65 28 |    (voi|d)close(|
|00002090| 66 64 29 3b 0d 09 20 20 | 20 20 66 6f 72 20 28 73 |fd);..  |  for (s|
|000020a0| 3d 63 6d 64 3b 20 2a 73 | 3b 20 73 2b 2b 29 0d 09 |=cmd; *s|; s++)..|
|000020b0| 09 69 66 20 28 2a 73 20 | 3c 20 27 20 27 29 0d 09 |.if (*s |< ' ')..|
|000020c0| 09 20 20 20 20 2a 73 20 | 2b 3d 20 39 36 3b 0d 09 |.    *s |+= 96;..|
|000020d0| 20 20 20 20 72 73 66 70 | 20 3d 20 6d 79 70 6f 70 |    rsfp| = mypop|
|000020e0| 65 6e 28 63 6d 64 2c 22 | 72 22 29 3b 0d 09 20 20 |en(cmd,"|r");..  |
|000020f0| 20 20 73 20 3d 20 73 74 | 72 5f 67 65 74 73 28 6c |  s = st|r_gets(l|
|00002100| 69 6e 65 73 74 72 2c 72 | 73 66 70 2c 30 29 3b 0d |inestr,r|sfp,0);.|
|00002110| 09 20 20 20 20 72 65 74 | 75 72 6e 20 73 3b 0d 09 |.    ret|urn s;..|
|00002120| 7d 0d 20 20 20 20 7d 0d | 20 20 20 20 72 65 74 75 |}.    }.|    retu|
|00002130| 72 6e 20 73 74 72 5f 67 | 65 74 28 6c 69 6e 65 73 |rn str_g|et(lines|
|00002140| 74 72 29 3b 0d 7d 0d 23 | 65 6e 64 69 66 0d 00 00 |tr);.}.#|endif...|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00002190| 34 30 20 20 6c 77 61 6c | 6c 0d 20 2a 20 70 61 74 |40  lwal|l. * pat|
|000021a0| 63 68 31 31 3a 20 73 61 | 66 65 20 6d 61 6c 6c 6f |ch11: sa|fe mallo|
|000021b0| 06 64 75 6d 70 2e 63 da | 02 00 00 00 54 45 58 54 |.dump.c.|....TEXT|
|000021c0| 4d 50 53 20 00 00 00 9c | 01 00 00 00 00 00 75 0b |MPS ....|......u.|
|000021d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 9c 01 00 |..TEXTMP|S ......|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 a6 ea b2 16 00 00 | 20 ce 00 00 01 ac 20 20 |........| .....  |
|00002200| 39 31 2f 30 36 2f 30 37 | 20 20 31 32 3a 31 31 3a |91/06/07|  12:11:|
|00002210| 30 30 20 20 6c 77 61 6c | 6c 0d 20 2a 20 70 61 74 |00  lwal|l. * pat|
|00002220| 63 68 34 3a 20 6e 65 77 | 20 63 6f 70 79 72 69 67 |ch4: new| copyrig|
|00002230| 68 74 20 6e 6f 74 69 63 | 65 0d 20 2a 20 0d 20 2a |ht notic|e. * . *|
|00002240| 20 52 65 76 69 73 69 6f | 6e 20 34 2e 30 20 20 39 | Revisio|n 4.0  9|
|00002250| 31 2f 30 33 2f 32 30 20 | 20 30 31 3a 35 36 3a 34 |1/03/20 | 01:56:4|
|00002260| 38 20 20 6c 77 61 6c 6c | 0d 20 2a 20 34 2e 30 20 |8  lwall|. * 4.0 |
|00002270| 62 61 73 65 6c 69 6e 65 | 2e 0d 20 2a 20 0d 20 2a |baseline|.. * . *|
|00002280| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 30 36 2f |...H..Mo|naco.06/|
|00002290| 30 38 20 31 33 3a 31 34 | 3a 32 32 20 24 0d 20 2a |08 13:14|:22 $. *|
|000022a0| 0d 20 2a 20 20 20 00 06 | 00 03 00 64 00 1c 01 dd |. *   ..|...d....|
|000022b0| 02 3d 00 64 00 1c 01 dd | 02 3d a6 ea c5 a4 00 00 |.=.d....|.=......|
|000022c0| 0d 3b 00 00 0d 42 00 00 | 01 49 01 00 00 00 00 1e |.;...B..|.I......|
|000022d0| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|000022e0| 00 00 01 49 00 00 00 00 | 00 00 00 00 00 00 00 00 |...I....|........|
|000022f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 32 |.....n..|.n...>.2|
|00002300| ef 90 10 2a 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |...*....|.>..MPSR|
|00002310| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00002320| 03 f0 ff ff 00 00 00 4c | 00 39 21 54 00 00 00 00 |.......L|.9!T....|
|00002330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+