Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / cons.c < prev next >
MacBinary | 1992-09-27 | 36.6 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`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:28:57 1992, modified Sun Sep 27 01:28:57 1992, creator 'MPS ', type ASCII, 36746 bytes "cons.c" , at 0x900a 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
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 63 6f 6e 73 2e 63 | 00 00 00 00 00 00 00 00 |..cons.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 8f 8a 00 | 00 01 ac a6 ea f7 19 a6 |........|........|
|00000060| ea f7 19 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 81 44 00 00 |........|.....D..|
|00000080| 2f 2a 20 24 52 43 53 66 | 69 6c 65 3a 20 63 6f 6e |/* $RCSf|ile: con|
|00000090| 73 2e 63 2c 76 20 24 24 | 52 65 76 69 73 69 6f 6e |s.c,v $$|Revision|
|000000a0| 3a 20 34 2e 30 2e 31 2e | 33 20 24 24 44 61 74 65 |: 4.0.1.|3 $$Date|
|000000b0| 3a 20 39 32 2f 30 36 2f | 30 38 20 31 32 3a 31 38 |: 92/06/|08 12:18|
|000000c0| 3a 33 35 20 24 0d 20 2a | 0d 20 2a 20 20 20 20 43 |:35 $. *|. *    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 63 |e.. *. *| $Log:.c|
|00000190| 6f 6e 73 2e 63 2c 76 20 | 24 0d 20 2a 20 52 65 76 |ons.c,v |$. * Rev|
|000001a0| 69 73 69 6f 6e 20 34 2e | 30 2e 31 2e 33 20 20 39 |ision 4.|0.1.3  9|
|000001b0| 32 2f 30 36 2f 30 38 20 | 20 31 32 3a 31 38 3a 33 |2/06/08 | 12:18:3|
|000001c0| 35 20 20 6c 77 61 6c 6c | 0d 20 2a 20 70 61 74 63 |5  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 64 |ns. * pa|tch20: d|
|00000210| 65 6c 65 74 65 64 20 73 | 6f 6d 65 20 6d 69 6e 6f |eleted s|ome mino|
|00000220| 72 20 6d 65 6d 6f 72 79 | 20 6c 65 61 6b 73 0d 20 |r memory| leaks. |
|00000230| 2a 20 70 61 74 63 68 32 | 30 3a 20 66 69 78 65 64 |* patch2|0: fixed|
|00000240| 20 64 6f 75 62 6c 65 20 | 64 65 62 75 67 20 62 72 | double |debug br|
|00000250| 65 61 6b 20 69 6e 20 66 | 6f 72 65 61 63 68 20 77 |eak in f|oreach w|
|00000260| 69 74 68 20 69 6d 70 6c | 69 63 69 74 20 61 72 72 |ith impl|icit arr|
|00000270| 61 79 20 61 73 73 69 67 | 6e 6d 65 6e 74 0d 20 2a |ay assig|nment. *|
|00000280| 20 70 61 74 63 68 32 30 | 3a 20 66 69 78 65 64 20 | patch20|: fixed |
|00000290| 63 6f 6e 66 75 73 69 6f | 6e 20 62 65 74 77 65 65 |confusio|n betwee|
|000002a0| 6e 20 61 20 2a 76 61 72 | 27 73 20 72 65 61 6c 20 |n a *var|'s real |
|000002b0| 6e 61 6d 65 20 61 6e 64 | 20 69 74 73 20 65 66 66 |name and| its eff|
|000002c0| 65 63 74 69 76 65 20 6e | 61 6d 65 0d 20 2a 20 70 |ective n|ame. * p|
|000002d0| 61 74 63 68 32 30 3a 20 | 50 65 72 6c 20 6e 6f 77 |atch20: |Perl now|
|000002e0| 20 64 69 73 74 69 6e 67 | 75 69 73 68 65 73 20 6f | disting|uishes o|
|000002f0| 76 65 72 6c 61 70 70 65 | 64 20 63 6f 70 69 65 73 |verlappe|d copies|
|00000300| 20 66 72 6f 6d 20 6e 6f | 6e 2d 6f 76 65 72 6c 61 | from no|n-overla|
|00000310| 70 70 65 64 0d 20 2a 20 | 70 61 74 63 68 32 30 3a |pped. * |patch20:|
|00000320| 20 64 65 62 75 67 67 65 | 72 20 73 6f 6d 65 74 69 | debugge|r someti|
|00000330| 6d 65 73 20 64 69 73 70 | 6c 61 79 65 64 20 77 72 |mes disp|layed wr|
|00000340| 6f 6e 67 20 73 6f 75 72 | 63 65 20 6c 69 6e 65 0d |ong sour|ce line.|
|00000350| 20 2a 20 70 61 74 63 68 | 32 30 3a 20 76 61 72 69 | * patch|20: vari|
|00000360| 6f 75 73 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |ous erro|r messag|
|00000370| 65 73 20 68 61 76 65 20 | 62 65 65 6e 20 63 6c 61 |es have |been cla|
|00000380| 72 69 66 69 65 64 0d 20 | 2a 20 70 61 74 63 68 32 |rified. |* patch2|
|00000390| 30 3a 20 61 6e 20 65 76 | 61 6c 20 62 6c 6f 63 6b |0: an ev|al block|
|000003a0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 61 20 6e 75 | contain|ing a nu|
|000003b0| 6c 6c 20 62 6c 6f 63 6b | 20 6f 72 20 73 74 61 74 |ll block| or stat|
|000003c0| 65 6d 65 6e 74 20 63 6f | 75 6c 64 20 64 75 6d 70 |ement co|uld dump|
|000003d0| 20 63 6f 72 65 0d 20 2a | 20 0d 20 2a 20 52 65 76 | core. *| . * Rev|
|000003e0| 69 73 69 6f 6e 20 34 2e | 30 2e 31 2e 32 20 20 39 |ision 4.|0.1.2  9|
|000003f0| 31 2f 31 31 2f 30 35 20 | 20 31 36 3a 31 35 3a 31 |1/11/05 | 16:15:1|
|00000400| 33 20 20 6c 77 61 6c 6c | 0d 20 2a 20 70 61 74 63 |3  lwall|. * patc|
|00000410| 68 31 31 3a 20 64 65 62 | 75 67 67 65 72 20 67 6f |h11: deb|ugger go|
|00000420| 74 20 63 6f 6e 66 75 73 | 65 64 20 6f 76 65 72 20 |t confus|ed over |
|00000430| 6e 65 73 74 65 64 20 73 | 75 62 72 6f 75 74 69 6e |nested s|ubroutin|
|00000440| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 0d 20 2a |e defini|tions. *|
|00000450| 20 70 61 74 63 68 31 31 | 3a 20 70 72 65 70 61 72 | patch11|: prepar|
|00000460| 65 64 20 66 6f 72 20 63 | 74 79 70 65 20 69 6d 70 |ed for c|type imp|
|00000470| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 73 20 74 68 61 |lementat|ions tha|
|00000480| 74 20 64 6f 6e 27 74 20 | 64 65 66 69 6e 65 20 69 |t don't |define i|
|00000490| 73 61 73 63 69 69 28 29 | 0d 20 2a 20 0d 20 2a 20 |sascii()|. * . * |
|000004a0| 52 65 76 69 73 69 6f 6e | 20 34 2e 30 2e 31 2e 31 |Revision| 4.0.1.1|
|000004b0| 20 20 39 31 2f 30 36 2f | 30 37 20 20 31 30 3a 33 |  91/06/|07  10:3|
|000004c0| 31 3a 31 35 20 20 6c 77 | 61 6c 6c 0d 20 2a 20 70 |1:15  lw|all. * p|
|000004d0| 61 74 63 68 34 3a 20 6e | 65 77 20 63 6f 70 79 72 |atch4: n|ew copyr|
|000004e0| 69 67 68 74 20 6e 6f 74 | 69 63 65 0d 20 2a 20 70 |ight not|ice. * p|
|000004f0| 61 74 63 68 34 3a 20 61 | 64 64 65 64 20 67 6c 6f |atch4: a|dded glo|
|00000500| 62 61 6c 20 6d 6f 64 69 | 66 69 65 72 20 66 6f 72 |bal modi|fier for|
|00000510| 20 70 61 74 74 65 72 6e | 20 6d 61 74 63 68 65 73 | pattern| matches|
|00000520| 0d 20 2a 20 0d 20 2a 20 | 52 65 76 69 73 69 6f 6e |. * . * |Revision|
|00000530| 20 34 2e 30 20 20 39 31 | 2f 30 33 2f 32 30 20 20 | 4.0  91|/03/20  |
|00000540| 30 31 3a 30 35 3a 35 31 | 20 20 6c 77 61 6c 6c 0d |01:05:51|  lwall.|
|00000550| 20 2a 20 34 2e 30 20 62 | 61 73 65 6c 69 6e 65 2e | * 4.0 b|aseline.|
|00000560| 0d 20 2a 20 0d 20 2a 2f | 0d 0d 23 69 6e 63 6c 75 |. * . */|..#inclu|
|00000570| 64 65 20 22 45 58 54 45 | 52 4e 2e 68 22 0d 23 69 |de "EXTE|RN.h".#i|
|00000580| 6e 63 6c 75 64 65 20 22 | 70 65 72 6c 2e 68 22 0d |nclude "|perl.h".|
|00000590| 23 69 6e 63 6c 75 64 65 | 20 22 70 65 72 6c 79 2e |#include| "perly.|
|000005a0| 68 22 0d 0d 65 78 74 65 | 72 6e 20 63 68 61 72 20 |h"..exte|rn char |
|000005b0| 2a 74 6f 6b 65 6e 61 6d | 65 5b 5d 3b 0d 65 78 74 |*tokenam|e[];.ext|
|000005c0| 65 72 6e 20 69 6e 74 20 | 79 79 63 68 61 72 3b 0d |ern int |yychar;.|
|000005d0| 0d 73 74 61 74 69 63 20 | 69 6e 74 20 63 6d 64 5f |.static |int cmd_|
|000005e0| 74 6f 73 61 76 65 28 29 | 3b 0d 73 74 61 74 69 63 |tosave()|;.static|
|000005f0| 20 69 6e 74 20 61 72 67 | 5f 74 6f 73 61 76 65 28 | int arg|_tosave(|
|00000600| 29 3b 0d 73 74 61 74 69 | 63 20 69 6e 74 20 73 70 |);.stati|c int sp|
|00000610| 61 74 5f 74 6f 73 61 76 | 65 28 29 3b 0d 73 74 61 |at_tosav|e();.sta|
|00000620| 74 69 63 20 76 6f 69 64 | 20 6d 61 6b 65 5f 63 73 |tic void| make_cs|
|00000630| 77 69 74 63 68 28 29 3b | 0d 73 74 61 74 69 63 20 |witch();|.static |
|00000640| 76 6f 69 64 20 6d 61 6b | 65 5f 6e 73 77 69 74 63 |void mak|e_nswitc|
|00000650| 68 28 29 3b 0d 0d 73 74 | 61 74 69 63 20 62 6f 6f |h();..st|atic boo|
|00000660| 6c 20 73 61 77 5f 72 65 | 74 75 72 6e 3b 0d 0d 53 |l saw_re|turn;..S|
|00000670| 55 42 52 20 2a 0d 6d 61 | 6b 65 5f 73 75 62 28 6e |UBR *.ma|ke_sub(n|
|00000680| 61 6d 65 2c 63 6d 64 29 | 0d 63 68 61 72 20 2a 6e |ame,cmd)|.char *n|
|00000690| 61 6d 65 3b 0d 43 4d 44 | 20 2a 63 6d 64 3b 0d 7b |ame;.CMD| *cmd;.{|
|000006a0| 0d 20 20 20 20 72 65 67 | 69 73 74 65 72 20 53 55 |.    reg|ister SU|
|000006b0| 42 52 20 2a 73 75 62 3b | 0d 20 20 20 20 53 54 41 |BR *sub;|.    STA|
|000006c0| 42 20 2a 73 74 61 62 20 | 3d 20 73 74 61 62 65 6e |B *stab |= staben|
|000006d0| 74 28 6e 61 6d 65 2c 54 | 52 55 45 29 3b 0d 0d 20 |t(name,T|RUE);.. |
|000006e0| 20 20 20 69 66 20 28 73 | 75 62 20 3d 20 73 74 61 |   if (s|ub = sta|
|000006f0| 62 5f 73 75 62 28 73 74 | 61 62 29 29 20 7b 0d 09 |b_sub(st|ab)) {..|
|00000700| 69 66 20 28 64 6f 77 61 | 72 6e 29 20 7b 0d 09 20 |if (dowa|rn) {.. |
|00000710| 20 20 20 43 4d 44 20 2a | 6f 6c 64 63 75 72 63 6d |   CMD *|oldcurcm|
|00000720| 64 20 3d 20 63 75 72 63 | 6d 64 3b 0d 0d 09 20 20 |d = curc|md;...  |
|00000730| 20 20 69 66 20 28 63 6d | 64 29 0d 09 09 63 75 72 |  if (cm|d)...cur|
|00000740| 63 6d 64 20 3d 20 63 6d | 64 3b 0d 09 20 20 20 20 |cmd = cm|d;..    |
|00000750| 77 61 72 6e 28 22 53 75 | 62 72 6f 75 74 69 6e 65 |warn("Su|broutine|
|00000760| 20 25 73 20 72 65 64 65 | 66 69 6e 65 64 22 2c 6e | %s rede|fined",n|
|00000770| 61 6d 65 29 3b 0d 09 20 | 20 20 20 63 75 72 63 6d |ame);.. |   curcm|
|00000780| 64 20 3d 20 6f 6c 64 63 | 75 72 63 6d 64 3b 0d 09 |d = oldc|urcmd;..|
|00000790| 7d 0d 09 69 66 20 28 21 | 73 75 62 2d 3e 75 73 65 |}..if (!|sub->use|
|000007a0| 72 73 75 62 20 26 26 20 | 73 75 62 2d 3e 63 6d 64 |rsub && |sub->cmd|
|000007b0| 29 20 7b 0d 09 20 20 20 | 20 63 6d 64 5f 66 72 65 |) {..   | cmd_fre|
|000007c0| 65 28 73 75 62 2d 3e 63 | 6d 64 29 3b 0d 09 20 20 |e(sub->c|md);..  |
|000007d0| 20 20 73 75 62 2d 3e 63 | 6d 64 20 3d 20 4e 75 6c |  sub->c|md = Nul|
|000007e0| 6c 63 6d 64 3b 0d 09 20 | 20 20 20 61 66 72 65 65 |lcmd;.. |   afree|
|000007f0| 28 73 75 62 2d 3e 74 6f | 73 61 76 65 29 3b 0d 09 |(sub->to|save);..|
|00000800| 7d 0d 09 53 61 66 65 66 | 72 65 65 28 73 75 62 29 |}..Safef|ree(sub)|
|00000810| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 4e 65 77 7a |;.    }.|    Newz|
|00000820| 28 31 30 31 2c 73 75 62 | 2c 31 2c 53 55 42 52 29 |(101,sub|,1,SUBR)|
|00000830| 3b 0d 20 20 20 20 73 74 | 61 62 5f 73 75 62 28 73 |;.    st|ab_sub(s|
|00000840| 74 61 62 29 20 3d 20 73 | 75 62 3b 0d 20 20 20 20 |tab) = s|ub;.    |
|00000850| 73 75 62 2d 3e 66 69 6c | 65 73 74 61 62 20 3d 20 |sub->fil|estab = |
|00000860| 63 75 72 63 6d 64 2d 3e | 63 5f 66 69 6c 65 73 74 |curcmd->|c_filest|
|00000870| 61 62 3b 0d 20 20 20 20 | 73 61 77 5f 72 65 74 75 |ab;.    |saw_retu|
|00000880| 72 6e 20 3d 20 46 41 4c | 53 45 3b 0d 20 20 20 20 |rn = FAL|SE;.    |
|00000890| 74 6f 73 61 76 65 20 3d | 20 61 6e 65 77 28 4e 75 |tosave =| anew(Nu|
|000008a0| 6c 6c 73 74 61 62 29 3b | 0d 20 20 20 20 74 6f 73 |llstab);|.    tos|
|000008b0| 61 76 65 2d 3e 61 72 79 | 5f 66 69 6c 6c 20 3d 20 |ave->ary|_fill = |
|000008c0| 30 3b 09 2f 2a 20 6d 61 | 6b 65 20 31 20 62 61 73 |0;./* ma|ke 1 bas|
|000008d0| 65 64 20 2a 2f 0d 20 20 | 20 20 28 76 6f 69 64 29 |ed */.  |  (void)|
|000008e0| 63 6d 64 5f 74 6f 73 61 | 76 65 28 63 6d 64 2c 46 |cmd_tosa|ve(cmd,F|
|000008f0| 41 4c 53 45 29 3b 09 2f | 2a 20 74 68 69 73 20 62 |ALSE);./|* this b|
|00000900| 75 69 6c 64 73 20 74 68 | 65 20 74 6f 73 61 76 65 |uilds th|e tosave|
|00000910| 20 61 72 72 61 79 20 2a | 2f 0d 20 20 20 20 73 75 | array *|/.    su|
|00000920| 62 2d 3e 74 6f 73 61 76 | 65 20 3d 20 74 6f 73 61 |b->tosav|e = tosa|
|00000930| 76 65 3b 0d 20 20 20 20 | 69 66 20 28 73 61 77 5f |ve;.    |if (saw_|
|00000940| 72 65 74 75 72 6e 29 20 | 7b 0d 09 73 74 72 75 63 |return) |{..struc|
|00000950| 74 20 63 6f 6d 70 63 6d | 64 20 6d 79 63 6f 6d 70 |t compcm|d mycomp|
|00000960| 62 6c 6f 63 6b 3b 0d 0d | 09 6d 79 63 6f 6d 70 62 |block;..|.mycompb|
|00000970| 6c 6f 63 6b 2e 63 6f 6d | 70 5f 74 72 75 65 20 3d |lock.com|p_true =|
|00000980| 20 63 6d 64 3b 0d 09 6d | 79 63 6f 6d 70 62 6c 6f | cmd;..m|ycompblo|
|00000990| 63 6b 2e 63 6f 6d 70 5f | 61 6c 74 20 3d 20 4e 75 |ck.comp_|alt = Nu|
|000009a0| 6c 6c 63 6d 64 3b 0d 09 | 63 6d 64 20 3d 20 61 64 |llcmd;..|cmd = ad|
|000009b0| 64 5f 6c 61 62 65 6c 28 | 73 61 76 65 73 74 72 28 |d_label(|savestr(|
|000009c0| 22 5f 53 55 42 5f 22 29 | 2c 6d 61 6b 65 5f 63 63 |"_SUB_")|,make_cc|
|000009d0| 6d 64 28 43 5f 42 4c 4f | 43 4b 2c 30 2c 0d 09 20 |md(C_BLO|CK,0,.. |
|000009e0| 20 20 20 4e 75 6c 6c 61 | 72 67 2c 6d 79 63 6f 6d |   Nulla|rg,mycom|
|000009f0| 70 62 6c 6f 63 6b 29 29 | 3b 0d 09 73 61 77 5f 72 |pblock))|;..saw_r|
|00000a00| 65 74 75 72 6e 20 3d 20 | 46 41 4c 53 45 3b 0d 09 |eturn = |FALSE;..|
|00000a10| 63 6d 64 2d 3e 63 5f 66 | 6c 61 67 73 20 7c 3d 20 |cmd->c_f|lags |= |
|00000a20| 43 46 5f 54 45 52 4d 3b | 0d 20 20 20 20 7d 0d 20 |CF_TERM;|.    }. |
|00000a30| 20 20 20 73 75 62 2d 3e | 63 6d 64 20 3d 20 63 6d |   sub->|cmd = cm|
|00000a40| 64 3b 0d 20 20 20 20 69 | 66 20 28 70 65 72 6c 64 |d;.    i|f (perld|
|00000a50| 62 29 20 7b 0d 09 53 54 | 52 20 2a 73 74 72 3b 0d |b) {..ST|R *str;.|
|00000a60| 09 53 54 52 20 2a 74 6d | 70 73 74 72 20 3d 20 73 |.STR *tm|pstr = s|
|00000a70| 74 72 5f 6d 6f 72 74 61 | 6c 28 26 73 74 72 5f 75 |tr_morta|l(&str_u|
|00000a80| 6e 64 65 66 29 3b 0d 0d | 09 73 70 72 69 6e 74 66 |ndef);..|.sprintf|
|00000a90| 28 62 75 66 2c 22 25 73 | 3a 25 6c 64 22 2c 73 74 |(buf,"%s|:%ld",st|
|00000aa0| 61 62 5f 76 61 6c 28 63 | 75 72 63 6d 64 2d 3e 63 |ab_val(c|urcmd->c|
|00000ab0| 5f 66 69 6c 65 73 74 61 | 62 29 2d 3e 73 74 72 5f |_filesta|b)->str_|
|00000ac0| 70 74 72 2c 20 73 75 62 | 6c 69 6e 65 29 3b 0d 09 |ptr, sub|line);..|
|00000ad0| 73 74 72 20 3d 20 73 74 | 72 5f 6d 61 6b 65 28 62 |str = st|r_make(b|
|00000ae0| 75 66 2c 30 29 3b 0d 09 | 73 74 72 5f 63 61 74 28 |uf,0);..|str_cat(|
|00000af0| 73 74 72 2c 22 2d 22 29 | 3b 0d 09 73 70 72 69 6e |str,"-")|;..sprin|
|00000b00| 74 66 28 62 75 66 2c 22 | 25 6c 64 22 2c 28 6c 6f |tf(buf,"|%ld",(lo|
|00000b10| 6e 67 29 63 75 72 63 6d | 64 2d 3e 63 5f 6c 69 6e |ng)curcm|d->c_lin|
|00000b20| 65 29 3b 0d 09 73 74 72 | 5f 63 61 74 28 73 74 72 |e);..str|_cat(str|
|00000b30| 2c 62 75 66 29 3b 0d 09 | 73 74 61 62 5f 65 66 75 |,buf);..|stab_efu|
|00000b40| 6c 6c 6e 61 6d 65 28 74 | 6d 70 73 74 72 2c 73 74 |llname(t|mpstr,st|
|00000b50| 61 62 29 3b 0d 09 68 73 | 74 6f 72 65 28 73 74 61 |ab);..hs|tore(sta|
|00000b60| 62 5f 78 68 61 73 68 28 | 44 42 73 75 62 29 2c 20 |b_xhash(|DBsub), |
|00000b70| 74 6d 70 73 74 72 2d 3e | 73 74 72 5f 70 74 72 2c |tmpstr->|str_ptr,|
|00000b80| 20 74 6d 70 73 74 72 2d | 3e 73 74 72 5f 63 75 72 | tmpstr-|>str_cur|
|00000b90| 2c 20 73 74 72 2c 20 30 | 29 3b 0d 20 20 20 20 7d |, str, 0|);.    }|
|00000ba0| 0d 20 20 20 20 53 61 66 | 65 66 72 65 65 28 6e 61 |.    Saf|efree(na|
|00000bb0| 6d 65 29 3b 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |me);.   | return |
|00000bc0| 73 75 62 3b 0d 7d 0d 0d | 53 55 42 52 20 2a 0d 6d |sub;.}..|SUBR *.m|
|00000bd0| 61 6b 65 5f 75 73 75 62 | 28 6e 61 6d 65 2c 20 69 |ake_usub|(name, i|
|00000be0| 78 2c 20 73 75 62 61 64 | 64 72 2c 20 66 69 6c 65 |x, subad|dr, file|
|00000bf0| 6e 61 6d 65 29 0d 63 68 | 61 72 20 2a 6e 61 6d 65 |name).ch|ar *name|
|00000c00| 3b 0d 69 6e 74 20 69 78 | 3b 0d 69 6e 74 20 28 2a |;.int ix|;.int (*|
|00000c10| 73 75 62 61 64 64 72 29 | 28 29 3b 0d 63 68 61 72 |subaddr)|();.char|
|00000c20| 20 2a 66 69 6c 65 6e 61 | 6d 65 3b 0d 7b 0d 20 20 | *filena|me;.{.  |
|00000c30| 20 20 72 65 67 69 73 74 | 65 72 20 53 55 42 52 20 |  regist|er SUBR |
|00000c40| 2a 73 75 62 3b 0d 20 20 | 20 20 53 54 41 42 20 2a |*sub;.  |  STAB *|
|00000c50| 73 74 61 62 20 3d 20 73 | 74 61 62 65 6e 74 28 6e |stab = s|tabent(n|
|00000c60| 61 6d 65 2c 61 6c 6c 73 | 74 61 62 73 29 3b 0d 0d |ame,alls|tabs);..|
|00000c70| 20 20 20 20 69 66 20 28 | 21 73 74 61 62 29 09 09 |    if (|!stab)..|
|00000c80| 09 09 2f 2a 20 75 6e 75 | 73 65 64 20 66 75 6e 63 |../* unu|sed func|
|00000c90| 74 69 6f 6e 20 2a 2f 0d | 09 72 65 74 75 72 6e 20 |tion */.|.return |
|00000ca0| 4e 75 6c 6c 28 53 55 42 | 52 2a 29 3b 0d 20 20 20 |Null(SUB|R*);.   |
|00000cb0| 20 69 66 20 28 73 75 62 | 20 3d 20 73 74 61 62 5f | if (sub| = stab_|
|00000cc0| 73 75 62 28 73 74 61 62 | 29 29 20 7b 0d 09 69 66 |sub(stab|)) {..if|
|00000cd0| 20 28 64 6f 77 61 72 6e | 29 0d 09 20 20 20 20 77 | (dowarn|)..    w|
|00000ce0| 61 72 6e 28 22 53 75 62 | 72 6f 75 74 69 6e 65 20 |arn("Sub|routine |
|00000cf0| 25 73 20 72 65 64 65 66 | 69 6e 65 64 22 2c 6e 61 |%s redef|ined",na|
|00000d00| 6d 65 29 3b 0d 09 69 66 | 20 28 21 73 75 62 2d 3e |me);..if| (!sub->|
|00000d10| 75 73 65 72 73 75 62 20 | 26 26 20 73 75 62 2d 3e |usersub |&& sub->|
|00000d20| 63 6d 64 29 20 7b 0d 09 | 20 20 20 20 63 6d 64 5f |cmd) {..|    cmd_|
|00000d30| 66 72 65 65 28 73 75 62 | 2d 3e 63 6d 64 29 3b 0d |free(sub|->cmd);.|
|00000d40| 09 20 20 20 20 73 75 62 | 2d 3e 63 6d 64 20 3d 20 |.    sub|->cmd = |
|00000d50| 4e 75 6c 6c 63 6d 64 3b | 0d 09 20 20 20 20 61 66 |Nullcmd;|..    af|
|00000d60| 72 65 65 28 73 75 62 2d | 3e 74 6f 73 61 76 65 29 |ree(sub-|>tosave)|
|00000d70| 3b 0d 09 7d 0d 09 53 61 | 66 65 66 72 65 65 28 73 |;..}..Sa|fefree(s|
|00000d80| 75 62 29 3b 0d 20 20 20 | 20 7d 0d 20 20 20 20 4e |ub);.   | }.    N|
|00000d90| 65 77 7a 28 31 30 31 2c | 73 75 62 2c 31 2c 53 55 |ewz(101,|sub,1,SU|
|00000da0| 42 52 29 3b 0d 20 20 20 | 20 73 74 61 62 5f 73 75 |BR);.   | stab_su|
|00000db0| 62 28 73 74 61 62 29 20 | 3d 20 73 75 62 3b 0d 20 |b(stab) |= sub;. |
|00000dc0| 20 20 20 73 75 62 2d 3e | 66 69 6c 65 73 74 61 62 |   sub->|filestab|
|00000dd0| 20 3d 20 66 73 74 61 62 | 28 66 69 6c 65 6e 61 6d | = fstab|(filenam|
|00000de0| 65 29 3b 0d 20 20 20 20 | 73 75 62 2d 3e 75 73 65 |e);.    |sub->use|
|00000df0| 72 73 75 62 20 3d 20 73 | 75 62 61 64 64 72 3b 0d |rsub = s|ubaddr;.|
|00000e00| 20 20 20 20 73 75 62 2d | 3e 75 73 65 72 69 6e 64 |    sub-|>userind|
|00000e10| 65 78 20 3d 20 69 78 3b | 0d 20 20 20 20 72 65 74 |ex = ix;|.    ret|
|00000e20| 75 72 6e 20 73 75 62 3b | 0d 7d 0d 0d 76 6f 69 64 |urn sub;|.}..void|
|00000e30| 0d 6d 61 6b 65 5f 66 6f | 72 6d 28 73 74 61 62 2c |.make_fo|rm(stab,|
|00000e40| 66 63 6d 64 29 0d 53 54 | 41 42 20 2a 73 74 61 62 |fcmd).ST|AB *stab|
|00000e50| 3b 0d 46 43 4d 44 20 2a | 66 63 6d 64 3b 0d 7b 0d |;.FCMD *|fcmd;.{.|
|00000e60| 20 20 20 20 69 66 20 28 | 73 74 61 62 5f 66 6f 72 |    if (|stab_for|
|00000e70| 6d 28 73 74 61 62 29 29 | 20 7b 0d 09 46 43 4d 44 |m(stab))| {..FCMD|
|00000e80| 20 2a 74 6d 70 66 63 6d | 64 3b 0d 09 46 43 4d 44 | *tmpfcm|d;..FCMD|
|00000e90| 20 2a 6e 65 78 74 66 63 | 6d 64 3b 0d 0d 09 66 6f | *nextfc|md;...fo|
|00000ea0| 72 20 28 74 6d 70 66 63 | 6d 64 20 3d 20 73 74 61 |r (tmpfc|md = sta|
|00000eb0| 62 5f 66 6f 72 6d 28 73 | 74 61 62 29 3b 20 74 6d |b_form(s|tab); tm|
|00000ec0| 70 66 63 6d 64 3b 20 74 | 6d 70 66 63 6d 64 20 3d |pfcmd; t|mpfcmd =|
|00000ed0| 20 6e 65 78 74 66 63 6d | 64 29 20 7b 0d 09 20 20 | nextfcm|d) {..  |
|00000ee0| 20 20 6e 65 78 74 66 63 | 6d 64 20 3d 20 74 6d 70 |  nextfc|md = tmp|
|00000ef0| 66 63 6d 64 2d 3e 66 5f | 6e 65 78 74 3b 0d 09 20 |fcmd->f_|next;.. |
|00000f00| 20 20 20 69 66 20 28 74 | 6d 70 66 63 6d 64 2d 3e |   if (t|mpfcmd->|
|00000f10| 66 5f 65 78 70 72 29 0d | 09 09 61 72 67 5f 66 72 |f_expr).|..arg_fr|
|00000f20| 65 65 28 74 6d 70 66 63 | 6d 64 2d 3e 66 5f 65 78 |ee(tmpfc|md->f_ex|
|00000f30| 70 72 29 3b 0d 09 20 20 | 20 20 69 66 20 28 74 6d |pr);..  |  if (tm|
|00000f40| 70 66 63 6d 64 2d 3e 66 | 5f 75 6e 70 61 72 73 65 |pfcmd->f|_unparse|
|00000f50| 64 29 0d 09 09 73 74 72 | 5f 66 72 65 65 28 74 6d |d)...str|_free(tm|
|00000f60| 70 66 63 6d 64 2d 3e 66 | 5f 75 6e 70 61 72 73 65 |pfcmd->f|_unparse|
|00000f70| 64 29 3b 0d 09 20 20 20 | 20 69 66 20 28 74 6d 70 |d);..   | if (tmp|
|00000f80| 66 63 6d 64 2d 3e 66 5f | 70 72 65 29 0d 09 09 53 |fcmd->f_|pre)...S|
|00000f90| 61 66 65 66 72 65 65 28 | 74 6d 70 66 63 6d 64 2d |afefree(|tmpfcmd-|
|00000fa0| 3e 66 5f 70 72 65 29 3b | 0d 09 20 20 20 20 53 61 |>f_pre);|..    Sa|
|00000fb0| 66 65 66 72 65 65 28 74 | 6d 70 66 63 6d 64 29 3b |fefree(t|mpfcmd);|
|00000fc0| 0d 09 7d 0d 20 20 20 20 | 7d 0d 20 20 20 20 73 74 |..}.    |}.    st|
|00000fd0| 61 62 5f 66 6f 72 6d 28 | 73 74 61 62 29 20 3d 20 |ab_form(|stab) = |
|00000fe0| 66 63 6d 64 3b 0d 7d 0d | 0d 43 4d 44 20 2a 0d 62 |fcmd;.}.|.CMD *.b|
|00000ff0| 6c 6f 63 6b 5f 68 65 61 | 64 28 74 61 69 6c 29 0d |lock_hea|d(tail).|
|00001000| 72 65 67 69 73 74 65 72 | 20 43 4d 44 20 2a 74 61 |register| CMD *ta|
|00001010| 69 6c 3b 0d 7b 0d 20 20 | 20 20 43 4d 44 20 2a 68 |il;.{.  |  CMD *h|
|00001020| 65 61 64 3b 0d 20 20 20 | 20 72 65 67 69 73 74 65 |ead;.   | registe|
|00001030| 72 20 69 6e 74 20 6f 70 | 74 3b 0d 20 20 20 20 72 |r int op|t;.    r|
|00001040| 65 67 69 73 74 65 72 20 | 69 6e 74 20 6c 61 73 74 |egister |int last|
|00001050| 5f 6f 70 74 20 3d 20 30 | 3b 0d 20 20 20 20 72 65 |_opt = 0|;.    re|
|00001060| 67 69 73 74 65 72 20 53 | 54 41 42 20 2a 6c 61 73 |gister S|TAB *las|
|00001070| 74 5f 73 74 61 62 20 3d | 20 4e 75 6c 6c 73 74 61 |t_stab =| Nullsta|
|00001080| 62 3b 0d 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |b;.    r|egister |
|00001090| 69 6e 74 20 63 6f 75 6e | 74 20 3d 20 30 3b 0d 20 |int coun|t = 0;. |
|000010a0| 20 20 20 72 65 67 69 73 | 74 65 72 20 43 4d 44 20 |   regis|ter CMD |
|000010b0| 2a 73 77 69 74 63 68 62 | 65 67 20 3d 20 4e 75 6c |*switchb|eg = Nul|
|000010c0| 6c 63 6d 64 3b 0d 0d 20 | 20 20 20 69 66 20 28 74 |lcmd;.. |   if (t|
|000010d0| 61 69 6c 20 3d 3d 20 4e | 75 6c 6c 63 6d 64 29 20 |ail == N|ullcmd) |
|000010e0| 7b 0d 09 72 65 74 75 72 | 6e 20 74 61 69 6c 3b 0d |{..retur|n tail;.|
|000010f0| 20 20 20 20 7d 0d 20 20 | 20 20 68 65 61 64 20 3d |    }.  |  head =|
|00001100| 20 74 61 69 6c 2d 3e 63 | 5f 68 65 61 64 3b 0d 0d | tail->c|_head;..|
|00001110| 20 20 20 20 66 6f 72 20 | 28 74 61 69 6c 20 3d 20 |    for |(tail = |
|00001120| 68 65 61 64 3b 20 74 61 | 69 6c 3b 20 74 61 69 6c |head; ta|il; tail|
|00001130| 20 3d 20 74 61 69 6c 2d | 3e 63 5f 6e 65 78 74 29 | = tail-|>c_next)|
|00001140| 20 7b 0d 0d 09 2f 2a 20 | 73 61 76 65 20 6f 6e 65 | {.../* |save one|
|00001150| 20 6d 65 61 73 6c 79 20 | 64 65 72 65 66 65 72 65 | measly |derefere|
|00001160| 6e 63 65 20 61 74 20 72 | 75 6e 74 69 6d 65 20 2a |nce at r|untime *|
|00001170| 2f 0d 09 69 66 20 28 74 | 61 69 6c 2d 3e 63 5f 74 |/..if (t|ail->c_t|
|00001180| 79 70 65 20 3d 3d 20 43 | 5f 49 46 29 20 7b 0d 09 |ype == C|_IF) {..|
|00001190| 20 20 20 20 69 66 20 28 | 21 28 74 61 69 6c 2d 3e |    if (|!(tail->|
|000011a0| 75 63 6d 64 2e 63 63 6d | 64 2e 63 63 5f 61 6c 74 |ucmd.ccm|d.cc_alt|
|000011b0| 20 3d 20 74 61 69 6c 2d | 3e 75 63 6d 64 2e 63 63 | = tail-|>ucmd.cc|
|000011c0| 6d 64 2e 63 63 5f 61 6c | 74 2d 3e 63 5f 6e 65 78 |md.cc_al|t->c_nex|
|000011d0| 74 29 29 0d 09 09 74 61 | 69 6c 2d 3e 63 5f 66 6c |t))...ta|il->c_fl|
|000011e0| 61 67 73 20 7c 3d 20 43 | 46 5f 54 45 52 4d 3b 0d |ags |= C|F_TERM;.|
|000011f0| 09 7d 0d 09 65 6c 73 65 | 20 69 66 20 28 74 61 69 |.}..else| if (tai|
|00001200| 6c 2d 3e 63 5f 74 79 70 | 65 20 3d 3d 20 43 5f 45 |l->c_typ|e == C_E|
|00001210| 58 50 52 29 20 7b 0d 09 | 20 20 20 20 41 52 47 20 |XPR) {..|    ARG |
|00001220| 2a 61 72 67 3b 0d 0d 09 | 20 20 20 20 69 66 20 28 |*arg;...|    if (|
|00001230| 74 61 69 6c 2d 3e 75 63 | 6d 64 2e 61 63 6d 64 2e |tail->uc|md.acmd.|
|00001240| 61 63 5f 65 78 70 72 29 | 0d 09 09 61 72 67 20 3d |ac_expr)|...arg =|
|00001250| 20 74 61 69 6c 2d 3e 75 | 63 6d 64 2e 61 63 6d 64 | tail->u|cmd.acmd|
|00001260| 2e 61 63 5f 65 78 70 72 | 3b 0d 09 20 20 20 20 65 |.ac_expr|;..    e|
|00001270| 6c 73 65 0d 09 09 61 72 | 67 20 3d 20 74 61 69 6c |lse...ar|g = tail|
|00001280| 2d 3e 63 5f 65 78 70 72 | 3b 0d 09 20 20 20 20 69 |->c_expr|;..    i|
|00001290| 66 20 28 61 72 67 29 20 | 7b 0d 09 09 69 66 20 28 |f (arg) |{...if (|
|000012a0| 61 72 67 2d 3e 61 72 67 | 5f 74 79 70 65 20 3d 3d |arg->arg|_type ==|
|000012b0| 20 4f 5f 52 45 54 55 52 | 4e 29 0d 09 09 20 20 20 | O_RETUR|N)...   |
|000012c0| 20 74 61 69 6c 2d 3e 63 | 5f 66 6c 61 67 73 20 7c | tail->c|_flags ||
|000012d0| 3d 20 43 46 5f 54 45 52 | 4d 3b 0d 09 09 65 6c 73 |= CF_TER|M;...els|
|000012e0| 65 20 69 66 20 28 61 72 | 67 2d 3e 61 72 67 5f 74 |e if (ar|g->arg_t|
|000012f0| 79 70 65 20 3d 3d 20 4f | 5f 49 54 45 4d 20 26 26 |ype == O|_ITEM &&|
|00001300| 20 61 72 67 5b 31 5d 2e | 61 72 67 5f 74 79 70 65 | arg[1].|arg_type|
|00001310| 20 3d 3d 20 41 5f 43 4d | 44 29 0d 09 09 20 20 20 | == A_CM|D)...   |
|00001320| 20 74 61 69 6c 2d 3e 63 | 5f 66 6c 61 67 73 20 7c | tail->c|_flags ||
|00001330| 3d 20 43 46 5f 54 45 52 | 4d 3b 0d 09 20 20 20 20 |= CF_TER|M;..    |
|00001340| 7d 0d 09 7d 0d 09 69 66 | 20 28 21 74 61 69 6c 2d |}..}..if| (!tail-|
|00001350| 3e 63 5f 6e 65 78 74 29 | 0d 09 20 20 20 20 74 61 |>c_next)|..    ta|
|00001360| 69 6c 2d 3e 63 5f 66 6c | 61 67 73 20 7c 3d 20 43 |il->c_fl|ags |= C|
|00001370| 46 5f 54 45 52 4d 3b 0d | 0d 09 69 66 20 28 74 61 |F_TERM;.|..if (ta|
|00001380| 69 6c 2d 3e 63 5f 65 78 | 70 72 20 26 26 20 28 74 |il->c_ex|pr && (t|
|00001390| 61 69 6c 2d 3e 63 5f 66 | 6c 61 67 73 20 26 20 43 |ail->c_f|lags & C|
|000013a0| 46 5f 4f 50 54 49 4d 49 | 5a 45 29 20 3d 3d 20 43 |F_OPTIMI|ZE) == C|
|000013b0| 46 54 5f 46 41 4c 53 45 | 29 0d 09 20 20 20 20 6f |FT_FALSE|)..    o|
|000013c0| 70 74 5f 61 72 67 28 74 | 61 69 6c 2c 31 2c 20 74 |pt_arg(t|ail,1, t|
|000013d0| 61 69 6c 2d 3e 63 5f 74 | 79 70 65 20 3d 3d 20 43 |ail->c_t|ype == C|
|000013e0| 5f 45 58 50 52 29 3b 0d | 0d 09 2f 2a 20 6e 6f 77 |_EXPR);.|../* now|
|000013f0| 20 64 6f 20 61 20 6c 69 | 74 74 6c 65 20 6f 70 74 | do a li|ttle opt|
|00001400| 69 6d 69 7a 61 74 69 6f | 6e 20 6f 6e 20 63 61 73 |imizatio|n on cas|
|00001410| 65 2d 69 73 68 20 73 74 | 72 75 63 74 75 72 65 73 |e-ish st|ructures|
|00001420| 20 2a 2f 0d 09 73 77 69 | 74 63 68 28 74 61 69 6c | */..swi|tch(tail|
|00001430| 2d 3e 63 5f 66 6c 61 67 | 73 20 26 20 28 43 46 5f |->c_flag|s & (CF_|
|00001440| 4f 50 54 49 4d 49 5a 45 | 7c 43 46 5f 46 49 52 53 |OPTIMIZE||CF_FIRS|
|00001450| 54 4e 45 47 7c 43 46 5f | 49 4e 56 45 52 54 29 29 |TNEG|CF_|INVERT))|
|00001460| 20 7b 0d 09 63 61 73 65 | 20 43 46 54 5f 41 4e 43 | {..case| CFT_ANC|
|00001470| 48 4f 52 3a 0d 09 63 61 | 73 65 20 43 46 54 5f 53 |HOR:..ca|se CFT_S|
|00001480| 54 52 4f 50 3a 0d 09 20 | 20 20 20 6f 70 74 20 3d |TROP:.. |   opt =|
|00001490| 20 28 74 61 69 6c 2d 3e | 63 5f 66 6c 61 67 73 20 | (tail->|c_flags |
|000014a0| 26 20 43 46 5f 4e 45 53 | 55 52 45 29 20 3f 20 43 |& CF_NES|URE) ? C|
|000014b0| 46 54 5f 53 54 52 4f 50 | 20 3a 20 30 3b 0d 09 20 |FT_STROP| : 0;.. |
|000014c0| 20 20 20 62 72 65 61 6b | 3b 0d 09 63 61 73 65 20 |   break|;..case |
|000014d0| 43 46 54 5f 43 43 4c 41 | 53 53 3a 0d 09 20 20 20 |CFT_CCLA|SS:..   |
|000014e0| 20 6f 70 74 20 3d 20 43 | 46 54 5f 53 54 52 4f 50 | opt = C|FT_STROP|
|000014f0| 3b 0d 09 20 20 20 20 62 | 72 65 61 6b 3b 0d 09 63 |;..    b|reak;..c|
|00001500| 61 73 65 20 43 46 54 5f | 4e 55 4d 4f 50 3a 0d 09 |ase CFT_|NUMOP:..|
|00001510| 20 20 20 20 6f 70 74 20 | 3d 20 28 74 61 69 6c 2d |    opt |= (tail-|
|00001520| 3e 63 5f 73 6c 65 6e 20 | 3d 3d 20 4f 5f 4e 45 20 |>c_slen |== O_NE |
|00001530| 3f 20 30 20 3a 20 43 46 | 54 5f 4e 55 4d 4f 50 29 |? 0 : CF|T_NUMOP)|
|00001540| 3b 0d 09 20 20 20 20 69 | 66 20 28 28 74 61 69 6c |;..    i|f ((tail|
|00001550| 2d 3e 63 5f 66 6c 61 67 | 73 26 28 43 46 5f 4e 45 |->c_flag|s&(CF_NE|
|00001560| 53 55 52 45 7c 43 46 5f | 45 51 53 55 52 45 29 29 |SURE|CF_|EQSURE))|
|00001570| 20 21 3d 20 28 43 46 5f | 4e 45 53 55 52 45 7c 43 | != (CF_|NESURE|C|
|00001580| 46 5f 45 51 53 55 52 45 | 29 29 0d 09 09 6f 70 74 |F_EQSURE|))...opt|
|00001590| 20 3d 20 30 3b 0d 09 20 | 20 20 20 62 72 65 61 6b | = 0;.. |   break|
|000015a0| 3b 0d 09 64 65 66 61 75 | 6c 74 3a 0d 09 20 20 20 |;..defau|lt:..   |
|000015b0| 20 6f 70 74 20 3d 20 30 | 3b 0d 09 7d 0d 09 69 66 | opt = 0|;..}..if|
|000015c0| 20 28 6f 70 74 20 26 26 | 20 6f 70 74 20 3d 3d 20 | (opt &&| opt == |
|000015d0| 6c 61 73 74 5f 6f 70 74 | 20 26 26 20 74 61 69 6c |last_opt| && tail|
|000015e0| 2d 3e 63 5f 73 74 61 62 | 20 3d 3d 20 6c 61 73 74 |->c_stab| == last|
|000015f0| 5f 73 74 61 62 29 0d 09 | 20 20 20 20 63 6f 75 6e |_stab)..|    coun|
|00001600| 74 2b 2b 3b 0d 09 65 6c | 73 65 20 7b 0d 09 20 20 |t++;..el|se {..  |
|00001610| 20 20 69 66 20 28 63 6f | 75 6e 74 20 3e 3d 20 33 |  if (co|unt >= 3|
|00001620| 29 20 7b 09 09 2f 2a 20 | 69 73 20 74 68 69 73 20 |) {../* |is this |
|00001630| 74 68 65 20 62 72 65 61 | 6b 65 76 65 6e 20 70 6f |the brea|keven po|
|00001640| 69 6e 74 3f 20 2a 2f 0d | 09 09 69 66 20 28 6c 61 |int? */.|..if (la|
|00001650| 73 74 5f 6f 70 74 20 3d | 3d 20 43 46 54 5f 4e 55 |st_opt =|= CFT_NU|
|00001660| 4d 4f 50 29 0d 09 09 20 | 20 20 20 6d 61 6b 65 5f |MOP)... |   make_|
|00001670| 6e 73 77 69 74 63 68 28 | 73 77 69 74 63 68 62 65 |nswitch(|switchbe|
|00001680| 67 2c 63 6f 75 6e 74 29 | 3b 0d 09 09 65 6c 73 65 |g,count)|;...else|
|00001690| 0d 09 09 20 20 20 20 6d | 61 6b 65 5f 63 73 77 69 |...    m|ake_cswi|
|000016a0| 74 63 68 28 73 77 69 74 | 63 68 62 65 67 2c 63 6f |tch(swit|chbeg,co|
|000016b0| 75 6e 74 29 3b 0d 09 20 | 20 20 20 7d 0d 09 20 20 |unt);.. |   }..  |
|000016c0| 20 20 69 66 20 28 6f 70 | 74 29 20 7b 0d 09 09 63 |  if (op|t) {...c|
|000016d0| 6f 75 6e 74 20 3d 20 31 | 3b 0d 09 09 73 77 69 74 |ount = 1|;...swit|
|000016e0| 63 68 62 65 67 20 3d 20 | 74 61 69 6c 3b 0d 09 20 |chbeg = |tail;.. |
|000016f0| 20 20 20 7d 0d 09 20 20 | 20 20 65 6c 73 65 0d 09 |   }..  |  else..|
|00001700| 09 63 6f 75 6e 74 20 3d | 20 30 3b 0d 09 7d 0d 09 |.count =| 0;..}..|
|00001710| 6c 61 73 74 5f 6f 70 74 | 20 3d 20 6f 70 74 3b 0d |last_opt| = opt;.|
|00001720| 09 6c 61 73 74 5f 73 74 | 61 62 20 3d 20 74 61 69 |.last_st|ab = tai|
|00001730| 6c 2d 3e 63 5f 73 74 61 | 62 3b 0d 20 20 20 20 7d |l->c_sta|b;.    }|
|00001740| 0d 20 20 20 20 69 66 20 | 28 63 6f 75 6e 74 20 3e |.    if |(count >|
|00001750| 3d 20 33 29 20 7b 09 09 | 2f 2a 20 69 73 20 74 68 |= 3) {..|/* is th|
|00001760| 69 73 20 74 68 65 20 62 | 72 65 61 6b 65 76 65 6e |is the b|reakeven|
|00001770| 20 70 6f 69 6e 74 3f 20 | 2a 2f 0d 09 69 66 20 28 | point? |*/..if (|
|00001780| 6c 61 73 74 5f 6f 70 74 | 20 3d 3d 20 43 46 54 5f |last_opt| == CFT_|
|00001790| 4e 55 4d 4f 50 29 0d 09 | 20 20 20 20 6d 61 6b 65 |NUMOP)..|    make|
|000017a0| 5f 6e 73 77 69 74 63 68 | 28 73 77 69 74 63 68 62 |_nswitch|(switchb|
|000017b0| 65 67 2c 63 6f 75 6e 74 | 29 3b 0d 09 65 6c 73 65 |eg,count|);..else|
|000017c0| 0d 09 20 20 20 20 6d 61 | 6b 65 5f 63 73 77 69 74 |..    ma|ke_cswit|
|000017d0| 63 68 28 73 77 69 74 63 | 68 62 65 67 2c 63 6f 75 |ch(switc|hbeg,cou|
|000017e0| 6e 74 29 3b 0d 20 20 20 | 20 7d 0d 20 20 20 20 72 |nt);.   | }.    r|
|000017f0| 65 74 75 72 6e 20 68 65 | 61 64 3b 0d 7d 0d 0d 2f |eturn he|ad;.}../|
|00001800| 2a 20 57 65 27 76 65 20 | 73 70 6f 74 74 65 64 20 |* We've |spotted |
|00001810| 61 20 73 65 71 75 65 6e | 63 65 20 6f 66 20 43 4d |a sequen|ce of CM|
|00001820| 44 73 20 74 68 61 74 20 | 61 6c 6c 20 74 65 73 74 |Ds that |all test|
|00001830| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 74 68 | the val|ue of th|
|00001840| 65 20 73 61 6d 65 0d 20 | 2a 20 73 70 61 74 2e 20 |e same. |* spat. |
|00001850| 20 54 68 75 73 20 77 65 | 20 63 61 6e 20 69 6e 73 | Thus we| can ins|
|00001860| 65 72 74 20 61 20 53 57 | 49 54 43 48 20 69 6e 20 |ert a SW|ITCH in |
|00001870| 66 72 6f 6e 74 20 61 6e | 64 20 6a 75 6d 70 20 64 |front an|d jump d|
|00001880| 69 72 65 63 74 6c 79 0d | 20 2a 20 74 6f 20 74 68 |irectly.| * to th|
|00001890| 65 20 63 6f 72 72 65 63 | 74 20 6f 6e 65 2e 0d 20 |e correc|t one.. |
|000018a0| 2a 2f 0d 73 74 61 74 69 | 63 20 76 6f 69 64 0d 6d |*/.stati|c void.m|
|000018b0| 61 6b 65 5f 63 73 77 69 | 74 63 68 28 68 65 61 64 |ake_cswi|tch(head|
|000018c0| 2c 63 6f 75 6e 74 29 0d | 72 65 67 69 73 74 65 72 |,count).|register|
|000018d0| 20 43 4d 44 20 2a 68 65 | 61 64 3b 0d 69 6e 74 20 | CMD *he|ad;.int |
|000018e0| 63 6f 75 6e 74 3b 0d 7b | 0d 20 20 20 20 72 65 67 |count;.{|.    reg|
|000018f0| 69 73 74 65 72 20 43 4d | 44 20 2a 63 75 72 3b 0d |ister CM|D *cur;.|
|00001900| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 43 4d 44 |    regi|ster CMD|
|00001910| 20 2a 2a 6c 6f 63 3b 0d | 20 20 20 20 72 65 67 69 | **loc;.|    regi|
|00001920| 73 74 65 72 20 69 6e 74 | 20 69 3b 0d 20 20 20 20 |ster int| i;.    |
|00001930| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 6d 69 6e |register| int min|
|00001940| 20 3d 20 32 35 35 3b 0d | 20 20 20 20 72 65 67 69 | = 255;.|    regi|
|00001950| 73 74 65 72 20 69 6e 74 | 20 6d 61 78 20 3d 20 30 |ster int| max = 0|
|00001960| 3b 0d 0d 20 20 20 20 2f | 2a 20 6d 61 6b 65 20 61 |;..    /|* make a|
|00001970| 20 6e 65 77 20 68 65 61 | 64 20 69 6e 20 74 68 65 | new hea|d in the|
|00001980| 20 65 78 61 63 74 20 73 | 61 6d 65 20 73 70 6f 74 | exact s|ame spot|
|00001990| 20 2a 2f 0d 20 20 20 20 | 4e 65 77 28 31 30 32 2c | */.    |New(102,|
|000019a0| 63 75 72 2c 20 31 2c 20 | 43 4d 44 29 3b 0d 20 20 |cur, 1, |CMD);.  |
|000019b0| 20 20 53 74 72 75 63 74 | 43 6f 70 79 28 68 65 61 |  Struct|Copy(hea|
|000019c0| 64 2c 63 75 72 2c 43 4d | 44 29 3b 0d 20 20 20 20 |d,cur,CM|D);.    |
|000019d0| 5a 65 72 6f 28 68 65 61 | 64 2c 31 2c 43 4d 44 29 |Zero(hea|d,1,CMD)|
|000019e0| 3b 0d 20 20 20 20 68 65 | 61 64 2d 3e 63 5f 68 65 |;.    he|ad->c_he|
|000019f0| 61 64 20 3d 20 63 75 72 | 2d 3e 63 5f 68 65 61 64 |ad = cur|->c_head|
|00001a00| 3b 0d 20 20 20 20 68 65 | 61 64 2d 3e 63 5f 74 79 |;.    he|ad->c_ty|
|00001a10| 70 65 20 3d 20 43 5f 43 | 53 57 49 54 43 48 3b 0d |pe = C_C|SWITCH;.|
|00001a20| 20 20 20 20 68 65 61 64 | 2d 3e 63 5f 6e 65 78 74 |    head|->c_next|
|00001a30| 20 3d 20 63 75 72 3b 09 | 09 2f 2a 20 69 6e 73 65 | = cur;.|./* inse|
|00001a40| 72 74 20 6e 65 77 20 63 | 6d 64 20 61 74 20 66 72 |rt new c|md at fr|
|00001a50| 6f 6e 74 20 6f 66 20 6c | 69 73 74 20 2a 2f 0d 20 |ont of l|ist */. |
|00001a60| 20 20 20 68 65 61 64 2d | 3e 63 5f 73 74 61 62 20 |   head-|>c_stab |
|00001a70| 3d 20 63 75 72 2d 3e 63 | 5f 73 74 61 62 3b 0d 0d |= cur->c|_stab;..|
|00001a80| 20 20 20 20 4e 65 77 7a | 28 31 30 33 2c 6c 6f 63 |    Newz|(103,loc|
|00001a90| 2c 32 35 38 2c 43 4d 44 | 2a 29 3b 0d 20 20 20 20 |,258,CMD|*);.    |
|00001aa0| 6c 6f 63 2b 2b 3b 09 09 | 09 09 2f 2a 20 6c 69 65 |loc++;..|../* lie|
|00001ab0| 20 61 20 6c 69 74 74 6c | 65 20 2a 2f 0d 20 20 20 | a littl|e */.   |
|00001ac0| 20 77 68 69 6c 65 20 28 | 63 6f 75 6e 74 2d 2d 29 | while (|count--)|
|00001ad0| 20 7b 0d 09 69 66 20 28 | 28 63 75 72 2d 3e 63 5f | {..if (|(cur->c_|
|00001ae0| 66 6c 61 67 73 20 26 20 | 43 46 5f 4f 50 54 49 4d |flags & |CF_OPTIM|
|00001af0| 49 5a 45 29 20 3d 3d 20 | 43 46 54 5f 43 43 4c 41 |IZE) == |CFT_CCLA|
|00001b00| 53 53 29 20 7b 0d 09 20 | 20 20 20 66 6f 72 20 28 |SS) {.. |   for (|
|00001b10| 69 20 3d 20 30 3b 20 69 | 20 3c 3d 20 32 35 35 3b |i = 0; i| <= 255;|
|00001b20| 20 69 2b 2b 29 20 7b 0d | 09 09 69 66 20 28 21 6c | i++) {.|..if (!l|
|00001b30| 6f 63 5b 69 5d 20 26 26 | 20 63 75 72 2d 3e 63 5f |oc[i] &&| cur->c_|
|00001b40| 73 68 6f 72 74 2d 3e 73 | 74 72 5f 70 74 72 5b 69 |short->s|tr_ptr[i|
|00001b50| 3e 3e 33 5d 20 26 20 28 | 31 20 3c 3c 20 28 69 26 |>>3] & (|1 << (i&|
|00001b60| 37 29 29 29 20 7b 0d 09 | 09 20 20 20 20 6c 6f 63 |7))) {..|.    loc|
|00001b70| 5b 69 5d 20 3d 20 63 75 | 72 3b 0d 09 09 20 20 20 |[i] = cu|r;...   |
|00001b80| 20 69 66 20 28 69 20 3c | 20 6d 69 6e 29 0d 09 09 | if (i <| min)...|
|00001b90| 09 6d 69 6e 20 3d 20 69 | 3b 0d 09 09 20 20 20 20 |.min = i|;...    |
|00001ba0| 69 66 20 28 69 20 3e 20 | 6d 61 78 29 0d 09 09 09 |if (i > |max)....|
|00001bb0| 6d 61 78 20 3d 20 69 3b | 0d 09 09 7d 0d 09 20 20 |max = i;|...}..  |
|00001bc0| 20 20 7d 0d 09 7d 0d 09 | 65 6c 73 65 20 7b 0d 09 |  }..}..|else {..|
|00001bd0| 20 20 20 20 69 20 3d 20 | 2a 63 75 72 2d 3e 63 5f |    i = |*cur->c_|
|00001be0| 73 68 6f 72 74 2d 3e 73 | 74 72 5f 70 74 72 20 26 |short->s|tr_ptr &|
|00001bf0| 20 32 35 35 3b 0d 09 20 | 20 20 20 69 66 20 28 21 | 255;.. |   if (!|
|00001c00| 6c 6f 63 5b 69 5d 29 20 | 7b 0d 09 09 6c 6f 63 5b |loc[i]) |{...loc[|
|00001c10| 69 5d 20 3d 20 63 75 72 | 3b 0d 09 09 69 66 20 28 |i] = cur|;...if (|
|00001c20| 69 20 3c 20 6d 69 6e 29 | 0d 09 09 20 20 20 20 6d |i < min)|...    m|
|00001c30| 69 6e 20 3d 20 69 3b 0d | 09 09 69 66 20 28 69 20 |in = i;.|..if (i |
|00001c40| 3e 20 6d 61 78 29 0d 09 | 09 20 20 20 20 6d 61 78 |> max)..|.    max|
|00001c50| 20 3d 20 69 3b 0d 09 20 | 20 20 20 7d 0d 09 7d 0d | = i;.. |   }..}.|
|00001c60| 09 63 75 72 20 3d 20 63 | 75 72 2d 3e 63 5f 6e 65 |.cur = c|ur->c_ne|
|00001c70| 78 74 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 6d 61 |xt;.    |}.    ma|
|00001c80| 78 2b 2b 3b 0d 20 20 20 | 20 69 66 20 28 6d 69 6e |x++;.   | if (min|
|00001c90| 20 3e 20 30 29 0d 09 4d | 6f 76 65 28 26 6c 6f 63 | > 0)..M|ove(&loc|
|00001ca0| 5b 6d 69 6e 5d 2c 26 6c | 6f 63 5b 30 5d 2c 20 6d |[min],&l|oc[0], m|
|00001cb0| 61 78 20 2d 20 6d 69 6e | 2c 20 43 4d 44 2a 29 3b |ax - min|, CMD*);|
|00001cc0| 0d 20 20 20 20 6c 6f 63 | 2d 2d 3b 0d 20 20 20 20 |.    loc|--;.    |
|00001cd0| 6d 69 6e 2d 2d 3b 0d 20 | 20 20 20 6d 61 78 20 2d |min--;. |   max -|
|00001ce0| 3d 20 6d 69 6e 3b 0d 20 | 20 20 20 66 6f 72 20 28 |= min;. |   for (|
|00001cf0| 69 20 3d 20 30 3b 20 69 | 20 3c 3d 20 6d 61 78 3b |i = 0; i| <= max;|
|00001d00| 20 69 2b 2b 29 0d 09 69 | 66 20 28 21 6c 6f 63 5b | i++)..i|f (!loc[|
|00001d10| 69 5d 29 0d 09 20 20 20 | 20 6c 6f 63 5b 69 5d 20 |i])..   | loc[i] |
|00001d20| 3d 20 63 75 72 3b 0d 20 | 20 20 20 52 65 6e 65 77 |= cur;. |   Renew|
|00001d30| 28 6c 6f 63 2c 6d 61 78 | 2b 31 2c 43 4d 44 2a 29 |(loc,max|+1,CMD*)|
|00001d40| 3b 09 2f 2a 20 63 68 6f | 70 20 69 74 20 64 6f 77 |;./* cho|p it dow|
|00001d50| 6e 20 74 6f 20 73 69 7a | 65 20 2a 2f 0d 20 20 20 |n to siz|e */.   |
|00001d60| 20 68 65 61 64 2d 3e 75 | 63 6d 64 2e 73 63 6d 64 | head->u|cmd.scmd|
|00001d70| 2e 73 63 5f 6f 66 66 73 | 65 74 20 3d 20 6d 69 6e |.sc_offs|et = min|
|00001d80| 3b 0d 20 20 20 20 68 65 | 61 64 2d 3e 75 63 6d 64 |;.    he|ad->ucmd|
|00001d90| 2e 73 63 6d 64 2e 73 63 | 5f 6d 61 78 20 3d 20 6d |.scmd.sc|_max = m|
|00001da0| 61 78 3b 0d 20 20 20 20 | 68 65 61 64 2d 3e 75 63 |ax;.    |head->uc|
|00001db0| 6d 64 2e 73 63 6d 64 2e | 73 63 5f 6e 65 78 74 20 |md.scmd.|sc_next |
|00001dc0| 3d 20 6c 6f 63 3b 0d 7d | 0d 0d 73 74 61 74 69 63 |= loc;.}|..static|
|00001dd0| 20 76 6f 69 64 0d 6d 61 | 6b 65 5f 6e 73 77 69 74 | void.ma|ke_nswit|
|00001de0| 63 68 28 68 65 61 64 2c | 63 6f 75 6e 74 29 0d 72 |ch(head,|count).r|
|00001df0| 65 67 69 73 74 65 72 20 | 43 4d 44 20 2a 68 65 61 |egister |CMD *hea|
|00001e00| 64 3b 0d 69 6e 74 20 63 | 6f 75 6e 74 3b 0d 7b 0d |d;.int c|ount;.{.|
|00001e10| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 43 4d 44 |    regi|ster CMD|
|00001e20| 20 2a 63 75 72 20 3d 20 | 68 65 61 64 3b 0d 20 20 | *cur = |head;.  |
|00001e30| 20 20 72 65 67 69 73 74 | 65 72 20 43 4d 44 20 2a |  regist|er CMD *|
|00001e40| 2a 6c 6f 63 3b 0d 20 20 | 20 20 72 65 67 69 73 74 |*loc;.  |  regist|
|00001e50| 65 72 20 69 6e 74 20 69 | 3b 0d 20 20 20 20 72 65 |er int i|;.    re|
|00001e60| 67 69 73 74 65 72 20 69 | 6e 74 20 6d 69 6e 20 3d |gister i|nt min =|
|00001e70| 20 33 32 37 36 37 3b 0d | 20 20 20 20 72 65 67 69 | 32767;.|    regi|
|00001e80| 73 74 65 72 20 69 6e 74 | 20 6d 61 78 20 3d 20 2d |ster int| max = -|
|00001e90| 33 32 37 36 38 3b 0d 20 | 20 20 20 69 6e 74 20 6f |32768;. |   int o|
|00001ea0| 72 69 67 63 6f 75 6e 74 | 20 3d 20 63 6f 75 6e 74 |rigcount| = count|
|00001eb0| 3b 0d 20 20 20 20 64 6f | 75 62 6c 65 20 76 61 6c |;.    do|uble val|
|00001ec0| 75 65 3b 09 09 2f 2a 20 | 6f 72 20 79 6f 75 72 20 |ue;../* |or your |
|00001ed0| 6d 6f 6e 65 79 20 62 61 | 63 6b 21 20 2a 2f 0d 20 |money ba|ck! */. |
|00001ee0| 20 20 20 73 68 6f 72 74 | 20 63 68 61 6e 67 65 64 |   short| changed|
|00001ef0| 3b 09 09 2f 2a 20 73 6f | 20 74 72 69 70 6c 65 20 |;../* so| triple |
|00001f00| 79 6f 75 72 20 6d 6f 6e | 65 79 20 62 61 63 6b 21 |your mon|ey back!|
|00001f10| 20 2a 2f 0d 0d 20 20 20 | 20 77 68 69 6c 65 20 28 | */..   | while (|
|00001f20| 63 6f 75 6e 74 2d 2d 29 | 20 7b 0d 09 69 20 3d 20 |count--)| {..i = |
|00001f30| 28 69 6e 74 29 73 74 72 | 5f 67 6e 75 6d 28 63 75 |(int)str|_gnum(cu|
|00001f40| 72 2d 3e 63 5f 73 68 6f | 72 74 29 3b 0d 09 76 61 |r->c_sho|rt);..va|
|00001f50| 6c 75 65 20 3d 20 28 64 | 6f 75 62 6c 65 29 69 3b |lue = (d|ouble)i;|
|00001f60| 0d 09 69 66 20 28 76 61 | 6c 75 65 20 21 3d 20 63 |..if (va|lue != c|
|00001f70| 75 72 2d 3e 63 5f 73 68 | 6f 72 74 2d 3e 73 74 72 |ur->c_sh|ort->str|
|00001f80| 5f 75 2e 73 74 72 5f 6e | 76 61 6c 29 0d 09 20 20 |_u.str_n|val)..  |
|00001f90| 20 20 72 65 74 75 72 6e | 3b 09 09 2f 2a 20 66 72 |  return|;../* fr|
|00001fa0| 61 63 74 69 6f 6e 61 6c | 20 76 61 6c 75 65 73 2d |actional| values-|
|00001fb0| 2d 6a 75 73 74 20 66 6f | 72 67 65 74 20 69 74 20 |-just fo|rget it |
|00001fc0| 2a 2f 0d 09 63 68 61 6e | 67 65 64 20 3d 20 69 3b |*/..chan|ged = i;|
|00001fd0| 0d 09 69 66 20 28 63 68 | 61 6e 67 65 64 20 21 3d |..if (ch|anged !=|
|00001fe0| 20 69 29 0d 09 20 20 20 | 20 72 65 74 75 72 6e 3b | i)..   | return;|
|00001ff0| 09 09 2f 2a 20 74 6f 6f | 20 62 69 67 20 66 6f 72 |../* too| big for|
|00002000| 20 61 20 73 68 6f 72 74 | 20 2a 2f 0d 09 69 66 20 | a short| */..if |
|00002010| 28 63 75 72 2d 3e 63 5f | 73 6c 65 6e 20 3d 3d 20 |(cur->c_|slen == |
|00002020| 4f 5f 4c 45 29 0d 09 20 | 20 20 20 69 2b 2b 3b 0d |O_LE).. |   i++;.|
|00002030| 09 65 6c 73 65 20 69 66 | 20 28 63 75 72 2d 3e 63 |.else if| (cur->c|
|00002040| 5f 73 6c 65 6e 20 3d 3d | 20 4f 5f 47 45 29 09 2f |_slen ==| O_GE)./|
|00002050| 2a 20 77 65 20 6f 6e 6c | 79 20 64 6f 20 3c 20 6f |* we onl|y do < o|
|00002060| 72 20 3e 20 68 65 72 65 | 20 2a 2f 0d 09 20 20 20 |r > here| */..   |
|00002070| 20 69 2d 2d 3b 0d 09 69 | 66 20 28 69 20 3c 20 6d | i--;..i|f (i < m|
|00002080| 69 6e 29 0d 09 20 20 20 | 20 6d 69 6e 20 3d 20 69 |in)..   | min = i|
|00002090| 3b 0d 09 69 66 20 28 69 | 20 3e 20 6d 61 78 29 0d |;..if (i| > max).|
|000020a0| 09 20 20 20 20 6d 61 78 | 20 3d 20 69 3b 0d 09 63 |.    max| = i;..c|
|000020b0| 75 72 20 3d 20 63 75 72 | 2d 3e 63 5f 6e 65 78 74 |ur = cur|->c_next|
|000020c0| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 63 6f 75 6e |;.    }.|    coun|
|000020d0| 74 20 3d 20 6f 72 69 67 | 63 6f 75 6e 74 3b 0d 20 |t = orig|count;. |
|000020e0| 20 20 20 69 66 20 28 6d | 61 78 20 2d 20 6d 69 6e |   if (m|ax - min|
|000020f0| 20 3e 20 63 6f 75 6e 74 | 20 2a 20 32 20 2b 20 31 | > count| * 2 + 1|
|00002100| 30 29 09 09 2f 2a 20 74 | 6f 6f 20 73 70 61 72 73 |0)../* t|oo spars|
|00002110| 65 3f 20 2a 2f 0d 09 72 | 65 74 75 72 6e 3b 0d 0d |e? */..r|eturn;..|
|00002120| 20 20 20 20 2f 2a 20 6e | 6f 77 20 6d 61 6b 65 20 |    /* n|ow make |
|00002130| 61 20 6e 65 77 20 68 65 | 61 64 20 69 6e 20 74 68 |a new he|ad in th|
|00002140| 65 20 65 78 61 63 74 20 | 73 61 6d 65 20 73 70 6f |e exact |same spo|
|00002150| 74 20 2a 2f 0d 20 20 20 | 20 4e 65 77 28 31 30 34 |t */.   | New(104|
|00002160| 2c 63 75 72 2c 20 31 2c | 20 43 4d 44 29 3b 0d 20 |,cur, 1,| CMD);. |
|00002170| 20 20 20 53 74 72 75 63 | 74 43 6f 70 79 28 68 65 |   Struc|tCopy(he|
|00002180| 61 64 2c 63 75 72 2c 43 | 4d 44 29 3b 0d 20 20 20 |ad,cur,C|MD);.   |
|00002190| 20 5a 65 72 6f 28 68 65 | 61 64 2c 31 2c 43 4d 44 | Zero(he|ad,1,CMD|
|000021a0| 29 3b 0d 20 20 20 20 68 | 65 61 64 2d 3e 63 5f 68 |);.    h|ead->c_h|
|000021b0| 65 61 64 20 3d 20 63 75 | 72 2d 3e 63 5f 68 65 61 |ead = cu|r->c_hea|
|000021c0| 64 3b 0d 20 20 20 20 68 | 65 61 64 2d 3e 63 5f 74 |d;.    h|ead->c_t|
|000021d0| 79 70 65 20 3d 20 43 5f | 4e 53 57 49 54 43 48 3b |ype = C_|NSWITCH;|
|000021e0| 0d 20 20 20 20 68 65 61 | 64 2d 3e 63 5f 6e 65 78 |.    hea|d->c_nex|
|000021f0| 74 20 3d 20 63 75 72 3b | 09 09 2f 2a 20 69 6e 73 |t = cur;|../* ins|
|00002200| 65 72 74 20 6e 65 77 20 | 63 6d 64 20 61 74 20 66 |ert new |cmd at f|
|00002210| 72 6f 6e 74 20 6f 66 20 | 6c 69 73 74 20 2a 2f 0d |ront of |list */.|
|00002220| 20 20 20 20 68 65 61 64 | 2d 3e 63 5f 73 74 61 62 |    head|->c_stab|
|00002230| 20 3d 20 63 75 72 2d 3e | 63 5f 73 74 61 62 3b 0d | = cur->|c_stab;.|
|00002240| 0d 20 20 20 20 4e 65 77 | 7a 28 31 30 35 2c 6c 6f |.    New|z(105,lo|
|00002250| 63 2c 20 6d 61 78 20 2d | 20 6d 69 6e 20 2b 20 33 |c, max -| min + 3|
|00002260| 2c 20 43 4d 44 2a 29 3b | 0d 20 20 20 20 6c 6f 63 |, CMD*);|.    loc|
|00002270| 2b 2b 3b 0d 20 20 20 20 | 6d 61 78 20 2d 3d 20 6d |++;.    |max -= m|
|00002280| 69 6e 3b 0d 20 20 20 20 | 6d 61 78 2b 2b 3b 0d 20 |in;.    |max++;. |
|00002290| 20 20 20 77 68 69 6c 65 | 20 28 63 6f 75 6e 74 2d |   while| (count-|
|000022a0| 2d 29 20 7b 0d 09 69 20 | 3d 20 28 69 6e 74 29 73 |-) {..i |= (int)s|
|000022b0| 74 72 5f 67 6e 75 6d 28 | 63 75 72 2d 3e 63 5f 73 |tr_gnum(|cur->c_s|
|000022c0| 68 6f 72 74 29 3b 0d 09 | 69 20 2d 3d 20 6d 69 6e |hort);..|i -= min|
|000022d0| 3b 0d 09 73 77 69 74 63 | 68 28 63 75 72 2d 3e 63 |;..switc|h(cur->c|
|000022e0| 5f 73 6c 65 6e 29 20 7b | 0d 09 63 61 73 65 20 4f |_slen) {|..case O|
|000022f0| 5f 4c 45 3a 0d 09 20 20 | 20 20 69 2b 2b 3b 0d 09 |_LE:..  |  i++;..|
|00002300| 63 61 73 65 20 4f 5f 4c | 54 3a 0d 09 20 20 20 20 |case O_L|T:..    |
|00002310| 66 6f 72 20 28 69 2d 2d | 3b 20 69 20 3e 3d 20 2d |for (i--|; i >= -|
|00002320| 31 3b 20 69 2d 2d 29 0d | 09 09 69 66 20 28 21 6c |1; i--).|..if (!l|
|00002330| 6f 63 5b 69 5d 29 0d 09 | 09 20 20 20 20 6c 6f 63 |oc[i])..|.    loc|
|00002340| 5b 69 5d 20 3d 20 63 75 | 72 3b 0d 09 20 20 20 20 |[i] = cu|r;..    |
|00002350| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 4f 5f 47 |break;..|case O_G|
|00002360| 45 3a 0d 09 20 20 20 20 | 69 2d 2d 3b 0d 09 63 61 |E:..    |i--;..ca|
|00002370| 73 65 20 4f 5f 47 54 3a | 0d 09 20 20 20 20 66 6f |se O_GT:|..    fo|
|00002380| 72 20 28 69 2b 2b 3b 20 | 69 20 3c 3d 20 6d 61 78 |r (i++; |i <= max|
|00002390| 3b 20 69 2b 2b 29 0d 09 | 09 69 66 20 28 21 6c 6f |; i++)..|.if (!lo|
|000023a0| 63 5b 69 5d 29 0d 09 09 | 20 20 20 20 6c 6f 63 5b |c[i])...|    loc[|
|000023b0| 69 5d 20 3d 20 63 75 72 | 3b 0d 09 20 20 20 20 62 |i] = cur|;..    b|
|000023c0| 72 65 61 6b 3b 0d 09 63 | 61 73 65 20 4f 5f 45 51 |reak;..c|ase O_EQ|
|000023d0| 3a 0d 09 20 20 20 20 69 | 66 20 28 21 6c 6f 63 5b |:..    i|f (!loc[|
|000023e0| 69 5d 29 0d 09 09 6c 6f | 63 5b 69 5d 20 3d 20 63 |i])...lo|c[i] = c|
|000023f0| 75 72 3b 0d 09 20 20 20 | 20 62 72 65 61 6b 3b 0d |ur;..   | break;.|
|00002400| 09 7d 0d 09 63 75 72 20 | 3d 20 63 75 72 2d 3e 63 |.}..cur |= cur->c|
|00002410| 5f 6e 65 78 74 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |_next;. |   }.   |
|00002420| 20 6c 6f 63 2d 2d 3b 0d | 20 20 20 20 6d 69 6e 2d | loc--;.|    min-|
|00002430| 2d 3b 0d 20 20 20 20 6d | 61 78 2b 2b 3b 0d 20 20 |-;.    m|ax++;.  |
|00002440| 20 20 66 6f 72 20 28 69 | 20 3d 20 30 3b 20 69 20 |  for (i| = 0; i |
|00002450| 3c 3d 20 6d 61 78 3b 20 | 69 2b 2b 29 0d 09 69 66 |<= max; |i++)..if|
|00002460| 20 28 21 6c 6f 63 5b 69 | 5d 29 0d 09 20 20 20 20 | (!loc[i|])..    |
|00002470| 6c 6f 63 5b 69 5d 20 3d | 20 63 75 72 3b 0d 20 20 |loc[i] =| cur;.  |
|00002480| 20 20 68 65 61 64 2d 3e | 75 63 6d 64 2e 73 63 6d |  head->|ucmd.scm|
|00002490| 64 2e 73 63 5f 6f 66 66 | 73 65 74 20 3d 20 6d 69 |d.sc_off|set = mi|
|000024a0| 6e 3b 0d 20 20 20 20 68 | 65 61 64 2d 3e 75 63 6d |n;.    h|ead->ucm|
|000024b0| 64 2e 73 63 6d 64 2e 73 | 63 5f 6d 61 78 20 3d 20 |d.scmd.s|c_max = |
|000024c0| 6d 61 78 3b 0d 20 20 20 | 20 68 65 61 64 2d 3e 75 |max;.   | head->u|
|000024d0| 63 6d 64 2e 73 63 6d 64 | 2e 73 63 5f 6e 65 78 74 |cmd.scmd|.sc_next|
|000024e0| 20 3d 20 6c 6f 63 3b 0d | 7d 0d 0d 43 4d 44 20 2a | = loc;.|}..CMD *|
|000024f0| 0d 61 70 70 65 6e 64 5f | 6c 69 6e 65 28 68 65 61 |.append_|line(hea|
|00002500| 64 2c 74 61 69 6c 29 0d | 72 65 67 69 73 74 65 72 |d,tail).|register|
|00002510| 20 43 4d 44 20 2a 68 65 | 61 64 3b 0d 72 65 67 69 | CMD *he|ad;.regi|
|00002520| 73 74 65 72 20 43 4d 44 | 20 2a 74 61 69 6c 3b 0d |ster CMD| *tail;.|
|00002530| 7b 0d 20 20 20 20 69 66 | 20 28 74 61 69 6c 20 3d |{.    if| (tail =|
|00002540| 3d 20 4e 75 6c 6c 63 6d | 64 29 0d 09 72 65 74 75 |= Nullcm|d)..retu|
|00002550| 72 6e 20 68 65 61 64 3b | 0d 20 20 20 20 69 66 20 |rn head;|.    if |
|00002560| 28 21 74 61 69 6c 2d 3e | 63 5f 68 65 61 64 29 09 |(!tail->|c_head).|
|00002570| 09 09 2f 2a 20 6d 61 6b | 65 20 73 75 72 65 20 74 |../* mak|e sure t|
|00002580| 61 69 6c 20 69 73 20 77 | 65 6c 6c 20 66 6f 72 6d |ail is w|ell form|
|00002590| 65 64 20 2a 2f 0d 09 74 | 61 69 6c 2d 3e 63 5f 68 |ed */..t|ail->c_h|
|000025a0| 65 61 64 20 3d 20 74 61 | 69 6c 3b 0d 20 20 20 20 |ead = ta|il;.    |
|000025b0| 69 66 20 28 68 65 61 64 | 20 21 3d 20 4e 75 6c 6c |if (head| != Null|
|000025c0| 63 6d 64 29 20 7b 0d 09 | 74 61 69 6c 20 3d 20 74 |cmd) {..|tail = t|
|000025d0| 61 69 6c 2d 3e 63 5f 68 | 65 61 64 3b 09 09 2f 2a |ail->c_h|ead;../*|
|000025e0| 20 67 65 74 20 74 6f 20 | 73 74 61 72 74 20 6f 66 | get to |start of|
|000025f0| 20 74 61 69 6c 20 6c 69 | 73 74 20 2a 2f 0d 09 69 | tail li|st */..i|
|00002600| 66 20 28 21 68 65 61 64 | 2d 3e 63 5f 68 65 61 64 |f (!head|->c_head|
|00002610| 29 0d 09 20 20 20 20 68 | 65 61 64 2d 3e 63 5f 68 |)..    h|ead->c_h|
|00002620| 65 61 64 20 3d 20 68 65 | 61 64 3b 09 2f 2a 20 73 |ead = he|ad;./* s|
|00002630| 74 61 72 74 20 61 20 6e | 65 77 20 68 65 61 64 20 |tart a n|ew head |
|00002640| 6c 69 73 74 20 2a 2f 0d | 09 77 68 69 6c 65 20 28 |list */.|.while (|
|00002650| 68 65 61 64 2d 3e 63 5f | 6e 65 78 74 29 20 7b 0d |head->c_|next) {.|
|00002660| 09 20 20 20 20 68 65 61 | 64 2d 3e 63 5f 6e 65 78 |.    hea|d->c_nex|
|00002670| 74 2d 3e 63 5f 68 65 61 | 64 20 3d 20 68 65 61 64 |t->c_hea|d = head|
|00002680| 2d 3e 63 5f 68 65 61 64 | 3b 0d 09 20 20 20 20 68 |->c_head|;..    h|
|00002690| 65 61 64 20 3d 20 68 65 | 61 64 2d 3e 63 5f 6e 65 |ead = he|ad->c_ne|
|000026a0| 78 74 3b 09 2f 2a 20 67 | 65 74 20 74 6f 20 65 6e |xt;./* g|et to en|
|000026b0| 64 20 6f 66 20 68 65 61 | 64 20 6c 69 73 74 20 2a |d of hea|d list *|
|000026c0| 2f 0d 09 7d 0d 09 68 65 | 61 64 2d 3e 63 5f 6e 65 |/..}..he|ad->c_ne|
|000026d0| 78 74 20 3d 20 74 61 69 | 6c 3b 09 09 2f 2a 20 6c |xt = tai|l;../* l|
|000026e0| 69 6e 6b 20 74 6f 20 65 | 6e 64 20 6f 66 20 6f 6c |ink to e|nd of ol|
|000026f0| 64 20 6c 69 73 74 20 2a | 2f 0d 09 74 61 69 6c 2d |d list *|/..tail-|
|00002700| 3e 63 5f 68 65 61 64 20 | 3d 20 68 65 61 64 2d 3e |>c_head |= head->|
|00002710| 63 5f 68 65 61 64 3b 09 | 2f 2a 20 70 72 6f 70 61 |c_head;.|/* propa|
|00002720| 67 61 74 65 20 68 65 61 | 64 20 70 6f 69 6e 74 65 |gate hea|d pointe|
|00002730| 72 20 2a 2f 0d 20 20 20 | 20 7d 0d 20 20 20 20 77 |r */.   | }.    w|
|00002740| 68 69 6c 65 20 28 74 61 | 69 6c 2d 3e 63 5f 6e 65 |hile (ta|il->c_ne|
|00002750| 78 74 29 20 7b 0d 09 74 | 61 69 6c 2d 3e 63 5f 6e |xt) {..t|ail->c_n|
|00002760| 65 78 74 2d 3e 63 5f 68 | 65 61 64 20 3d 20 74 61 |ext->c_h|ead = ta|
|00002770| 69 6c 2d 3e 63 5f 68 65 | 61 64 3b 0d 09 74 61 69 |il->c_he|ad;..tai|
|00002780| 6c 20 3d 20 74 61 69 6c | 2d 3e 63 5f 6e 65 78 74 |l = tail|->c_next|
|00002790| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 72 65 74 75 |;.    }.|    retu|
|000027a0| 72 6e 20 74 61 69 6c 3b | 0d 7d 0d 0d 43 4d 44 20 |rn tail;|.}..CMD |
|000027b0| 2a 0d 64 6f 64 62 28 63 | 75 72 29 0d 43 4d 44 20 |*.dodb(c|ur).CMD |
|000027c0| 2a 63 75 72 3b 0d 7b 0d | 20 20 20 20 72 65 67 69 |*cur;.{.|    regi|
|000027d0| 73 74 65 72 20 43 4d 44 | 20 2a 63 6d 64 3b 0d 20 |ster CMD| *cmd;. |
|000027e0| 20 20 20 72 65 67 69 73 | 74 65 72 20 43 4d 44 20 |   regis|ter CMD |
|000027f0| 2a 68 65 61 64 20 3d 20 | 63 75 72 2d 3e 63 5f 68 |*head = |cur->c_h|
|00002800| 65 61 64 3b 0d 20 20 20 | 20 53 54 52 20 2a 73 74 |ead;.   | STR *st|
|00002810| 72 3b 0d 0d 20 20 20 20 | 69 66 20 28 21 68 65 61 |r;..    |if (!hea|
|00002820| 64 29 0d 09 68 65 61 64 | 20 3d 20 63 75 72 3b 0d |d)..head| = cur;.|
|00002830| 20 20 20 20 69 66 20 28 | 21 68 65 61 64 2d 3e 63 |    if (|!head->c|
|00002840| 5f 6c 69 6e 65 29 0d 09 | 72 65 74 75 72 6e 20 63 |_line)..|return c|
|00002850| 75 72 3b 0d 20 20 20 20 | 73 74 72 20 3d 20 61 66 |ur;.    |str = af|
|00002860| 65 74 63 68 28 73 74 61 | 62 5f 78 61 72 72 61 79 |etch(sta|b_xarray|
|00002870| 28 63 75 72 63 6d 64 2d | 3e 63 5f 66 69 6c 65 73 |(curcmd-|>c_files|
|00002880| 74 61 62 29 2c 28 69 6e | 74 29 68 65 61 64 2d 3e |tab),(in|t)head->|
|00002890| 63 5f 6c 69 6e 65 2c 46 | 41 4c 53 45 29 3b 0d 20 |c_line,F|ALSE);. |
|000028a0| 20 20 20 69 66 20 28 73 | 74 72 20 3d 3d 20 26 73 |   if (s|tr == &s|
|000028b0| 74 72 5f 75 6e 64 65 66 | 20 7c 7c 20 73 74 72 2d |tr_undef| || str-|
|000028c0| 3e 73 74 72 5f 6e 6f 6b | 29 0d 09 72 65 74 75 72 |>str_nok|)..retur|
|000028d0| 6e 20 63 75 72 3b 0d 20 | 20 20 20 73 74 72 2d 3e |n cur;. |   str->|
|000028e0| 73 74 72 5f 75 2e 73 74 | 72 5f 6e 76 61 6c 20 3d |str_u.st|r_nval =|
|000028f0| 20 28 64 6f 75 62 6c 65 | 29 68 65 61 64 2d 3e 63 | (double|)head->c|
|00002900| 5f 6c 69 6e 65 3b 0d 20 | 20 20 20 73 74 72 2d 3e |_line;. |   str->|
|00002910| 73 74 72 5f 6e 6f 6b 20 | 3d 20 31 3b 0d 20 20 20 |str_nok |= 1;.   |
|00002920| 20 4e 65 77 7a 28 31 30 | 36 2c 63 6d 64 2c 31 2c | Newz(10|6,cmd,1,|
|00002930| 43 4d 44 29 3b 0d 20 20 | 20 20 73 74 72 5f 6d 61 |CMD);.  |  str_ma|
|00002940| 67 69 63 28 73 74 72 2c | 20 63 75 72 63 6d 64 2d |gic(str,| curcmd-|
|00002950| 3e 63 5f 66 69 6c 65 73 | 74 61 62 2c 20 30 2c 20 |>c_files|tab, 0, |
|00002960| 4e 75 6c 6c 63 68 2c 20 | 30 29 3b 0d 20 20 20 20 |Nullch, |0);.    |
|00002970| 73 74 72 2d 3e 73 74 72 | 5f 6d 61 67 69 63 2d 3e |str->str|_magic->|
|00002980| 73 74 72 5f 75 2e 73 74 | 72 5f 63 6d 64 20 3d 20 |str_u.st|r_cmd = |
|00002990| 63 6d 64 3b 0d 20 20 20 | 20 63 6d 64 2d 3e 63 5f |cmd;.   | cmd->c_|
|000029a0| 74 79 70 65 20 3d 20 43 | 5f 45 58 50 52 3b 0d 20 |type = C|_EXPR;. |
|000029b0| 20 20 20 63 6d 64 2d 3e | 75 63 6d 64 2e 61 63 6d |   cmd->|ucmd.acm|
|000029c0| 64 2e 61 63 5f 73 74 61 | 62 20 3d 20 4e 75 6c 6c |d.ac_sta|b = Null|
|000029d0| 73 74 61 62 3b 0d 20 20 | 20 20 63 6d 64 2d 3e 75 |stab;.  |  cmd->u|
|000029e0| 63 6d 64 2e 61 63 6d 64 | 2e 61 63 5f 65 78 70 72 |cmd.acmd|.ac_expr|
|000029f0| 20 3d 20 4e 75 6c 6c 61 | 72 67 3b 0d 20 20 20 20 | = Nulla|rg;.    |
|00002a00| 63 6d 64 2d 3e 63 5f 65 | 78 70 72 20 3d 20 6d 61 |cmd->c_e|xpr = ma|
|00002a10| 6b 65 5f 6f 70 28 4f 5f | 53 55 42 52 2c 20 32 2c |ke_op(O_|SUBR, 2,|
|00002a20| 0d 09 73 74 61 62 32 61 | 72 67 28 41 5f 57 4f 52 |..stab2a|rg(A_WOR|
|00002a30| 44 2c 44 42 73 74 61 62 | 29 2c 0d 09 4e 75 6c 6c |D,DBstab|),..Null|
|00002a40| 61 72 67 2c 0d 09 4e 75 | 6c 6c 61 72 67 29 3b 0d |arg,..Nu|llarg);.|
|00002a50| 20 20 20 20 2f 2a 53 55 | 50 50 52 45 53 53 20 35 |    /*SU|PPRESS 5|
|00002a60| 33 2a 2f 0d 20 20 20 20 | 63 6d 64 2d 3e 63 5f 66 |3*/.    |cmd->c_f|
|00002a70| 6c 61 67 73 20 7c 3d 20 | 43 46 5f 43 4f 4e 44 7c |lags |= |CF_COND||
|00002a80| 43 46 5f 44 42 53 55 42 | 7c 43 46 54 5f 44 30 3b |CF_DBSUB||CFT_D0;|
|00002a90| 0d 20 20 20 20 63 6d 64 | 2d 3e 63 5f 6c 69 6e 65 |.    cmd|->c_line|
|00002aa0| 20 3d 20 68 65 61 64 2d | 3e 63 5f 6c 69 6e 65 3b | = head-|>c_line;|
|00002ab0| 0d 20 20 20 20 63 6d 64 | 2d 3e 63 5f 6c 61 62 65 |.    cmd|->c_labe|
|00002ac0| 6c 20 3d 20 68 65 61 64 | 2d 3e 63 5f 6c 61 62 65 |l = head|->c_labe|
|00002ad0| 6c 3b 0d 20 20 20 20 63 | 6d 64 2d 3e 63 5f 66 69 |l;.    c|md->c_fi|
|00002ae0| 6c 65 73 74 61 62 20 3d | 20 63 75 72 63 6d 64 2d |lestab =| curcmd-|
|00002af0| 3e 63 5f 66 69 6c 65 73 | 74 61 62 3b 0d 20 20 20 |>c_files|tab;.   |
|00002b00| 20 63 6d 64 2d 3e 63 5f | 73 74 61 73 68 20 3d 20 | cmd->c_|stash = |
|00002b10| 63 75 72 73 74 61 73 68 | 3b 0d 20 20 20 20 72 65 |curstash|;.    re|
|00002b20| 74 75 72 6e 20 61 70 70 | 65 6e 64 5f 6c 69 6e 65 |turn app|end_line|
|00002b30| 28 63 6d 64 2c 20 63 75 | 72 29 3b 0d 7d 0d 0d 43 |(cmd, cu|r);.}..C|
|00002b40| 4d 44 20 2a 0d 6d 61 6b | 65 5f 61 63 6d 64 28 74 |MD *.mak|e_acmd(t|
|00002b50| 79 70 65 2c 73 74 61 62 | 2c 63 6f 6e 64 2c 61 72 |ype,stab|,cond,ar|
|00002b60| 67 29 0d 69 6e 74 20 74 | 79 70 65 3b 0d 53 54 41 |g).int t|ype;.STA|
|00002b70| 42 20 2a 73 74 61 62 3b | 0d 41 52 47 20 2a 63 6f |B *stab;|.ARG *co|
|00002b80| 6e 64 3b 0d 41 52 47 20 | 2a 61 72 67 3b 0d 7b 0d |nd;.ARG |*arg;.{.|
|00002b90| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 43 4d 44 |    regi|ster CMD|
|00002ba0| 20 2a 63 6d 64 3b 0d 0d | 20 20 20 20 4e 65 77 7a | *cmd;..|    Newz|
|00002bb0| 28 31 30 37 2c 63 6d 64 | 2c 31 2c 43 4d 44 29 3b |(107,cmd|,1,CMD);|
|00002bc0| 0d 20 20 20 20 63 6d 64 | 2d 3e 63 5f 74 79 70 65 |.    cmd|->c_type|
|00002bd0| 20 3d 20 74 79 70 65 3b | 0d 20 20 20 20 63 6d 64 | = type;|.    cmd|
|00002be0| 2d 3e 75 63 6d 64 2e 61 | 63 6d 64 2e 61 63 5f 73 |->ucmd.a|cmd.ac_s|
|00002bf0| 74 61 62 20 3d 20 73 74 | 61 62 3b 0d 20 20 20 20 |tab = st|ab;.    |
|00002c00| 63 6d 64 2d 3e 75 63 6d | 64 2e 61 63 6d 64 2e 61 |cmd->ucm|d.acmd.a|
|00002c10| 63 5f 65 78 70 72 20 3d | 20 61 72 67 3b 0d 20 20 |c_expr =| arg;.  |
|00002c20| 20 20 63 6d 64 2d 3e 63 | 5f 65 78 70 72 20 3d 20 |  cmd->c|_expr = |
|00002c30| 63 6f 6e 64 3b 0d 20 20 | 20 20 69 66 20 28 63 6f |cond;.  |  if (co|
|00002c40| 6e 64 29 0d 09 63 6d 64 | 2d 3e 63 5f 66 6c 61 67 |nd)..cmd|->c_flag|
|00002c50| 73 20 7c 3d 20 43 46 5f | 43 4f 4e 44 3b 0d 20 20 |s |= CF_|COND;.  |
|00002c60| 20 20 69 66 20 28 63 6d | 64 6c 69 6e 65 20 3d 3d |  if (cm|dline ==|
|00002c70| 20 4e 4f 4c 49 4e 45 29 | 0d 09 63 6d 64 2d 3e 63 | NOLINE)|..cmd->c|
|00002c80| 5f 6c 69 6e 65 20 3d 20 | 63 75 72 63 6d 64 2d 3e |_line = |curcmd->|
|00002c90| 63 5f 6c 69 6e 65 3b 0d | 20 20 20 20 65 6c 73 65 |c_line;.|    else|
|00002ca0| 20 7b 0d 09 63 6d 64 2d | 3e 63 5f 6c 69 6e 65 20 | {..cmd-|>c_line |
|00002cb0| 3d 20 63 6d 64 6c 69 6e | 65 3b 0d 09 63 6d 64 6c |= cmdlin|e;..cmdl|
|00002cc0| 69 6e 65 20 3d 20 4e 4f | 4c 49 4e 45 3b 0d 20 20 |ine = NO|LINE;.  |
|00002cd0| 20 20 7d 0d 20 20 20 20 | 63 6d 64 2d 3e 63 5f 66 |  }.    |cmd->c_f|
|00002ce0| 69 6c 65 73 74 61 62 20 | 3d 20 63 75 72 63 6d 64 |ilestab |= curcmd|
|00002cf0| 2d 3e 63 5f 66 69 6c 65 | 73 74 61 62 3b 0d 20 20 |->c_file|stab;.  |
|00002d00| 20 20 63 6d 64 2d 3e 63 | 5f 73 74 61 73 68 20 3d |  cmd->c|_stash =|
|00002d10| 20 63 75 72 73 74 61 73 | 68 3b 0d 20 20 20 20 69 | curstas|h;.    i|
|00002d20| 66 20 28 70 65 72 6c 64 | 62 29 0d 09 63 6d 64 20 |f (perld|b)..cmd |
|00002d30| 3d 20 64 6f 64 62 28 63 | 6d 64 29 3b 0d 20 20 20 |= dodb(c|md);.   |
|00002d40| 20 72 65 74 75 72 6e 20 | 63 6d 64 3b 0d 7d 0d 0d | return |cmd;.}..|
|00002d50| 43 4d 44 20 2a 0d 6d 61 | 6b 65 5f 63 63 6d 64 28 |CMD *.ma|ke_ccmd(|
|00002d60| 74 79 70 65 2c 64 65 62 | 75 67 67 61 62 6c 65 2c |type,deb|uggable,|
|00002d70| 61 72 67 2c 63 62 6c 6f | 63 6b 29 0d 69 6e 74 20 |arg,cblo|ck).int |
|00002d80| 74 79 70 65 3b 0d 69 6e | 74 20 64 65 62 75 67 67 |type;.in|t debugg|
|00002d90| 61 62 6c 65 3b 0d 41 52 | 47 20 2a 61 72 67 3b 0d |able;.AR|G *arg;.|
|00002da0| 73 74 72 75 63 74 20 63 | 6f 6d 70 63 6d 64 20 63 |struct c|ompcmd c|
|00002db0| 62 6c 6f 63 6b 3b 0d 7b | 0d 20 20 20 20 72 65 67 |block;.{|.    reg|
|00002dc0| 69 73 74 65 72 20 43 4d | 44 20 2a 63 6d 64 3b 0d |ister CM|D *cmd;.|
|00002dd0| 0d 20 20 20 20 4e 65 77 | 7a 28 31 30 38 2c 63 6d |.    New|z(108,cm|
|00002de0| 64 2c 20 31 2c 20 43 4d | 44 29 3b 0d 20 20 20 20 |d, 1, CM|D);.    |
|00002df0| 63 6d 64 2d 3e 63 5f 74 | 79 70 65 20 3d 20 74 79 |cmd->c_t|ype = ty|
|00002e00| 70 65 3b 0d 20 20 20 20 | 63 6d 64 2d 3e 63 5f 65 |pe;.    |cmd->c_e|
|00002e10| 78 70 72 20 3d 20 61 72 | 67 3b 0d 20 20 20 20 63 |xpr = ar|g;.    c|
|00002e20| 6d 64 2d 3e 75 63 6d 64 | 2e 63 63 6d 64 2e 63 63 |md->ucmd|.ccmd.cc|
|00002e30| 5f 74 72 75 65 20 3d 20 | 63 62 6c 6f 63 6b 2e 63 |_true = |cblock.c|
|00002e40| 6f 6d 70 5f 74 72 75 65 | 3b 0d 20 20 20 20 63 6d |omp_true|;.    cm|
|00002e50| 64 2d 3e 75 63 6d 64 2e | 63 63 6d 64 2e 63 63 5f |d->ucmd.|ccmd.cc_|
|00002e60| 61 6c 74 20 3d 20 63 62 | 6c 6f 63 6b 2e 63 6f 6d |alt = cb|lock.com|
|00002e70| 70 5f 61 6c 74 3b 0d 20 | 20 20 20 69 66 20 28 61 |p_alt;. |   if (a|
|00002e80| 72 67 29 0d 09 63 6d 64 | 2d 3e 63 5f 66 6c 61 67 |rg)..cmd|->c_flag|
|00002e90| 73 20 7c 3d 20 43 46 5f | 43 4f 4e 44 3b 0d 20 20 |s |= CF_|COND;.  |
|00002ea0| 20 20 69 66 20 28 63 6d | 64 6c 69 6e 65 20 3d 3d |  if (cm|dline ==|
|00002eb0| 20 4e 4f 4c 49 4e 45 29 | 0d 09 63 6d 64 2d 3e 63 | NOLINE)|..cmd->c|
|00002ec0| 5f 6c 69 6e 65 20 3d 20 | 63 75 72 63 6d 64 2d 3e |_line = |curcmd->|
|00002ed0| 63 5f 6c 69 6e 65 3b 0d | 20 20 20 20 65 6c 73 65 |c_line;.|    else|
|00002ee0| 20 7b 0d 09 63 6d 64 2d | 3e 63 5f 6c 69 6e 65 20 | {..cmd-|>c_line |
|00002ef0| 3d 20 63 6d 64 6c 69 6e | 65 3b 0d 09 63 6d 64 6c |= cmdlin|e;..cmdl|
|00002f00| 69 6e 65 20 3d 20 4e 4f | 4c 49 4e 45 3b 0d 20 20 |ine = NO|LINE;.  |
|00002f10| 20 20 7d 0d 20 20 20 20 | 63 6d 64 2d 3e 63 5f 66 |  }.    |cmd->c_f|
|00002f20| 69 6c 65 73 74 61 62 20 | 3d 20 63 75 72 63 6d 64 |ilestab |= curcmd|
|00002f30| 2d 3e 63 5f 66 69 6c 65 | 73 74 61 62 3b 0d 20 20 |->c_file|stab;.  |
|00002f40| 20 20 63 6d 64 2d 3e 63 | 5f 73 74 61 73 68 20 3d |  cmd->c|_stash =|
|00002f50| 20 63 75 72 73 74 61 73 | 68 3b 0d 20 20 20 20 69 | curstas|h;.    i|
|00002f60| 66 20 28 70 65 72 6c 64 | 62 20 26 26 20 64 65 62 |f (perld|b && deb|
|00002f70| 75 67 67 61 62 6c 65 29 | 0d 09 63 6d 64 20 3d 20 |uggable)|..cmd = |
|00002f80| 64 6f 64 62 28 63 6d 64 | 29 3b 0d 20 20 20 20 72 |dodb(cmd|);.    r|
|00002f90| 65 74 75 72 6e 20 63 6d | 64 3b 0d 7d 0d 0d 43 4d |eturn cm|d;.}..CM|
|00002fa0| 44 20 2a 0d 6d 61 6b 65 | 5f 69 63 6d 64 28 74 79 |D *.make|_icmd(ty|
|00002fb0| 70 65 2c 61 72 67 2c 63 | 62 6c 6f 63 6b 29 0d 69 |pe,arg,c|block).i|
|00002fc0| 6e 74 20 74 79 70 65 3b | 0d 41 52 47 20 2a 61 72 |nt type;|.ARG *ar|
|00002fd0| 67 3b 0d 73 74 72 75 63 | 74 20 63 6f 6d 70 63 6d |g;.struc|t compcm|
|00002fe0| 64 20 63 62 6c 6f 63 6b | 3b 0d 7b 0d 20 20 20 20 |d cblock|;.{.    |
|00002ff0| 72 65 67 69 73 74 65 72 | 20 43 4d 44 20 2a 63 6d |register| CMD *cm|
|00003000| 64 3b 0d 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |d;.    r|egister |
|00003010| 43 4d 44 20 2a 61 6c 74 | 3b 0d 20 20 20 20 72 65 |CMD *alt|;.    re|
|00003020| 67 69 73 74 65 72 20 43 | 4d 44 20 2a 63 75 72 3b |gister C|MD *cur;|
|00003030| 0d 20 20 20 20 72 65 67 | 69 73 74 65 72 20 43 4d |.    reg|ister CM|
|00003040| 44 20 2a 68 65 61 64 3b | 0d 20 20 20 20 73 74 72 |D *head;|.    str|
|00003050| 75 63 74 20 63 6f 6d 70 | 63 6d 64 20 6e 63 62 6c |uct comp|cmd ncbl|
|00003060| 6f 63 6b 3b 0d 0d 20 20 | 20 20 4e 65 77 7a 28 31 |ock;..  |  Newz(1|
|00003070| 30 39 2c 63 6d 64 2c 20 | 31 2c 20 43 4d 44 29 3b |09,cmd, |1, CMD);|
|00003080| 0d 20 20 20 20 68 65 61 | 64 20 3d 20 63 6d 64 3b |.    hea|d = cmd;|
|00003090| 0d 20 20 20 20 63 6d 64 | 2d 3e 63 5f 74 79 70 65 |.    cmd|->c_type|
|000030a0| 20 3d 20 74 79 70 65 3b | 0d 20 20 20 20 63 6d 64 | = type;|.    cmd|
|000030b0| 2d 3e 63 5f 65 78 70 72 | 20 3d 20 61 72 67 3b 0d |->c_expr| = arg;.|
|000030c0| 20 20 20 20 63 6d 64 2d | 3e 75 63 6d 64 2e 63 63 |    cmd-|>ucmd.cc|
|000030d0| 6d 64 2e 63 63 5f 74 72 | 75 65 20 3d 20 63 62 6c |md.cc_tr|ue = cbl|
|000030e0| 6f 63 6b 2e 63 6f 6d 70 | 5f 74 72 75 65 3b 0d 20 |ock.comp|_true;. |
|000030f0| 20 20 20 63 6d 64 2d 3e | 75 63 6d 64 2e 63 63 6d |   cmd->|ucmd.ccm|
|00003100| 64 2e 63 63 5f 61 6c 74 | 20 3d 20 63 62 6c 6f 63 |d.cc_alt| = cbloc|
|00003110| 6b 2e 63 6f 6d 70 5f 61 | 6c 74 3b 0d 20 20 20 20 |k.comp_a|lt;.    |
|00003120| 69 66 20 28 61 72 67 29 | 0d 09 63 6d 64 2d 3e 63 |if (arg)|..cmd->c|
|00003130| 5f 66 6c 61 67 73 20 7c | 3d 20 43 46 5f 43 4f 4e |_flags ||= CF_CON|
|00003140| 44 3b 0d 20 20 20 20 69 | 66 20 28 63 6d 64 6c 69 |D;.    i|f (cmdli|
|00003150| 6e 65 20 3d 3d 20 4e 4f | 4c 49 4e 45 29 0d 09 63 |ne == NO|LINE)..c|
|00003160| 6d 64 2d 3e 63 5f 6c 69 | 6e 65 20 3d 20 63 75 72 |md->c_li|ne = cur|
|00003170| 63 6d 64 2d 3e 63 5f 6c | 69 6e 65 3b 0d 20 20 20 |cmd->c_l|ine;.   |
|00003180| 20 65 6c 73 65 20 7b 0d | 09 63 6d 64 2d 3e 63 5f | else {.|.cmd->c_|
|00003190| 6c 69 6e 65 20 3d 20 63 | 6d 64 6c 69 6e 65 3b 0d |line = c|mdline;.|
|000031a0| 09 63 6d 64 6c 69 6e 65 | 20 3d 20 4e 4f 4c 49 4e |.cmdline| = NOLIN|
|000031b0| 45 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 63 6d 64 |E;.    }|.    cmd|
|000031c0| 2d 3e 63 5f 66 69 6c 65 | 73 74 61 62 20 3d 20 63 |->c_file|stab = c|
|000031d0| 75 72 63 6d 64 2d 3e 63 | 5f 66 69 6c 65 73 74 61 |urcmd->c|_filesta|
|000031e0| 62 3b 0d 20 20 20 20 63 | 6d 64 2d 3e 63 5f 73 74 |b;.    c|md->c_st|
|000031f0| 61 73 68 20 3d 20 63 75 | 72 73 74 61 73 68 3b 0d |ash = cu|rstash;.|
|00003200| 20 20 20 20 63 75 72 20 | 3d 20 63 6d 64 3b 0d 20 |    cur |= cmd;. |
|00003210| 20 20 20 61 6c 74 20 3d | 20 63 62 6c 6f 63 6b 2e |   alt =| cblock.|
|00003220| 63 6f 6d 70 5f 61 6c 74 | 3b 0d 20 20 20 20 77 68 |comp_alt|;.    wh|
|00003230| 69 6c 65 20 28 61 6c 74 | 20 26 26 20 61 6c 74 2d |ile (alt| && alt-|
|00003240| 3e 63 5f 74 79 70 65 20 | 3d 3d 20 43 5f 45 4c 53 |>c_type |== C_ELS|
|00003250| 49 46 29 20 7b 0d 09 63 | 75 72 20 3d 20 61 6c 74 |IF) {..c|ur = alt|
|00003260| 3b 0d 09 61 6c 74 20 3d | 20 61 6c 74 2d 3e 75 63 |;..alt =| alt->uc|
|00003270| 6d 64 2e 63 63 6d 64 2e | 63 63 5f 61 6c 74 3b 0d |md.ccmd.|cc_alt;.|
|00003280| 20 20 20 20 7d 0d 20 20 | 20 20 69 66 20 28 61 6c |    }.  |  if (al|
|00003290| 74 29 20 7b 09 09 09 2f | 2a 20 61 20 72 65 61 6c |t) {.../|* a real|
|000032a0| 20 6c 69 66 65 20 45 4c | 53 45 20 61 74 20 74 68 | life EL|SE at th|
|000032b0| 65 20 65 6e 64 3f 20 2a | 2f 0d 09 6e 63 62 6c 6f |e end? *|/..ncblo|
|000032c0| 63 6b 2e 63 6f 6d 70 5f | 74 72 75 65 20 3d 20 61 |ck.comp_|true = a|
|000032d0| 6c 74 3b 0d 09 6e 63 62 | 6c 6f 63 6b 2e 63 6f 6d |lt;..ncb|lock.com|
|000032e0| 70 5f 61 6c 74 20 3d 20 | 4e 75 6c 6c 63 6d 64 3b |p_alt = |Nullcmd;|
|000032f0| 0d 09 61 6c 74 20 3d 20 | 61 70 70 65 6e 64 5f 6c |..alt = |append_l|
|00003300| 69 6e 65 28 63 75 72 2c | 6d 61 6b 65 5f 63 63 6d |ine(cur,|make_ccm|
|00003310| 64 28 43 5f 45 4c 53 45 | 2c 31 2c 4e 75 6c 6c 61 |d(C_ELSE|,1,Nulla|
|00003320| 72 67 2c 6e 63 62 6c 6f | 63 6b 29 29 3b 0d 09 63 |rg,ncblo|ck));..c|
|00003330| 75 72 2d 3e 75 63 6d 64 | 2e 63 63 6d 64 2e 63 63 |ur->ucmd|.ccmd.cc|
|00003340| 5f 61 6c 74 20 3d 20 61 | 6c 74 3b 0d 20 20 20 20 |_alt = a|lt;.    |
|00003350| 7d 0d 20 20 20 20 65 6c | 73 65 0d 09 61 6c 74 20 |}.    el|se..alt |
|00003360| 3d 20 63 75 72 3b 09 09 | 2f 2a 20 6e 6f 20 45 4c |= cur;..|/* no EL|
|00003370| 53 45 2c 20 73 6f 20 63 | 75 72 20 69 73 20 70 72 |SE, so c|ur is pr|
|00003380| 6f 78 79 20 45 4c 53 45 | 20 2a 2f 0d 0d 20 20 20 |oxy ELSE| */..   |
|00003390| 20 63 75 72 20 3d 20 63 | 6d 64 3b 0d 20 20 20 20 | cur = c|md;.    |
|000033a0| 77 68 69 6c 65 20 28 63 | 6d 64 29 20 7b 09 09 2f |while (c|md) {../|
|000033b0| 2a 20 6e 6f 77 20 70 6f | 69 6e 74 20 65 76 65 72 |* now po|int ever|
|000033c0| 79 6f 6e 65 20 61 74 20 | 74 68 65 20 45 4c 53 45 |yone at |the ELSE|
|000033d0| 20 2a 2f 0d 09 63 75 72 | 20 3d 20 63 6d 64 3b 0d | */..cur| = cmd;.|
|000033e0| 09 63 6d 64 20 3d 20 63 | 75 72 2d 3e 75 63 6d 64 |.cmd = c|ur->ucmd|
|000033f0| 2e 63 63 6d 64 2e 63 63 | 5f 61 6c 74 3b 0d 09 63 |.ccmd.cc|_alt;..c|
|00003400| 75 72 2d 3e 63 5f 68 65 | 61 64 20 3d 20 68 65 61 |ur->c_he|ad = hea|
|00003410| 64 3b 0d 09 69 66 20 28 | 63 75 72 2d 3e 63 5f 74 |d;..if (|cur->c_t|
|00003420| 79 70 65 20 3d 3d 20 43 | 5f 45 4c 53 49 46 29 0d |ype == C|_ELSIF).|
|00003430| 09 20 20 20 20 63 75 72 | 2d 3e 63 5f 74 79 70 65 |.    cur|->c_type|
|00003440| 20 3d 20 43 5f 49 46 3b | 0d 09 69 66 20 28 63 75 | = C_IF;|..if (cu|
|00003450| 72 2d 3e 63 5f 74 79 70 | 65 20 3d 3d 20 43 5f 49 |r->c_typ|e == C_I|
|00003460| 46 29 0d 09 20 20 20 20 | 63 75 72 2d 3e 75 63 6d |F)..    |cur->ucm|
|00003470| 64 2e 63 63 6d 64 2e 63 | 63 5f 61 6c 74 20 3d 20 |d.ccmd.c|c_alt = |
|00003480| 61 6c 74 3b 0d 09 69 66 | 20 28 63 75 72 20 3d 3d |alt;..if| (cur ==|
|00003490| 20 61 6c 74 29 0d 09 20 | 20 20 20 62 72 65 61 6b | alt).. |   break|
|000034a0| 3b 0d 09 63 75 72 2d 3e | 63 5f 6e 65 78 74 20 3d |;..cur->|c_next =|
|000034b0| 20 63 6d 64 3b 0d 20 20 | 20 20 7d 0d 20 20 20 20 | cmd;.  |  }.    |
|000034c0| 69 66 20 28 70 65 72 6c | 64 62 29 0d 09 63 75 72 |if (perl|db)..cur|
|000034d0| 20 3d 20 64 6f 64 62 28 | 63 75 72 29 3b 0d 20 20 | = dodb(|cur);.  |
|000034e0| 20 20 72 65 74 75 72 6e | 20 63 75 72 3b 0d 7d 0d |  return| cur;.}.|
|000034f0| 0d 76 6f 69 64 0d 6f 70 | 74 5f 61 72 67 28 63 6d |.void.op|t_arg(cm|
|00003500| 64 2c 66 6c 69 70 6f 72 | 66 6c 6f 70 2c 61 63 6d |d,flipor|flop,acm|
|00003510| 64 29 0d 72 65 67 69 73 | 74 65 72 20 43 4d 44 20 |d).regis|ter CMD |
|00003520| 2a 63 6d 64 3b 0d 69 6e | 74 20 66 6c 69 70 6f 72 |*cmd;.in|t flipor|
|00003530| 66 6c 6f 70 3b 0d 69 6e | 74 20 61 63 6d 64 3b 0d |flop;.in|t acmd;.|
|00003540| 7b 0d 20 20 20 20 72 65 | 67 69 73 74 65 72 20 41 |{.    re|gister A|
|00003550| 52 47 20 2a 61 72 67 3b | 0d 20 20 20 20 69 6e 74 |RG *arg;|.    int|
|00003560| 20 6f 70 74 20 3d 20 43 | 46 54 5f 45 56 41 4c 3b | opt = C|FT_EVAL;|
|00003570| 0d 20 20 20 20 69 6e 74 | 20 73 75 72 65 20 3d 20 |.    int| sure = |
|00003580| 30 3b 0d 20 20 20 20 41 | 52 47 20 2a 61 72 67 32 |0;.    A|RG *arg2|
|00003590| 3b 0d 20 20 20 20 69 6e | 74 20 63 6f 6e 74 65 78 |;.    in|t contex|
|000035a0| 74 20 3d 20 30 3b 09 2f | 2a 20 30 20 3d 20 6e 6f |t = 0;./|* 0 = no|
|000035b0| 72 6d 61 6c 2c 20 31 20 | 3d 20 62 65 66 6f 72 65 |rmal, 1 |= before|
|000035c0| 20 26 26 2c 20 32 20 3d | 20 62 65 66 6f 72 65 20 | &&, 2 =| before |
|000035d0| 7c 7c 20 2a 2f 0d 20 20 | 20 20 69 6e 74 20 66 6c ||| */.  |  int fl|
|000035e0| 70 20 3d 20 66 6c 69 70 | 6f 72 66 6c 6f 70 3b 0d |p = flip|orflop;.|
|000035f0| 0d 20 20 20 20 69 66 20 | 28 21 63 6d 64 29 0d 09 |.    if |(!cmd)..|
|00003600| 72 65 74 75 72 6e 3b 0d | 20 20 20 20 69 66 20 28 |return;.|    if (|
|00003610| 21 28 61 72 67 20 3d 20 | 63 6d 64 2d 3e 63 5f 65 |!(arg = |cmd->c_e|
|00003620| 78 70 72 29 29 20 7b 0d | 09 63 6d 64 2d 3e 63 5f |xpr)) {.|.cmd->c_|
|00003630| 66 6c 61 67 73 20 26 3d | 20 7e 43 46 5f 43 4f 4e |flags &=| ~CF_CON|
|00003640| 44 3b 0d 09 72 65 74 75 | 72 6e 3b 0d 20 20 20 20 |D;..retu|rn;.    |
|00003650| 7d 0d 0d 20 20 20 20 2f | 2a 20 43 61 6e 20 77 65 |}..    /|* Can we|
|00003660| 20 74 75 72 6e 20 26 26 | 20 61 6e 64 20 7c 7c 20 | turn &&| and || |
|00003670| 69 6e 74 6f 20 69 66 20 | 61 6e 64 20 75 6e 6c 65 |into if |and unle|
|00003680| 73 73 3f 20 2a 2f 0d 0d | 20 20 20 20 69 66 20 28 |ss? */..|    if (|
|00003690| 61 63 6d 64 20 26 26 20 | 21 63 6d 64 2d 3e 75 63 |acmd && |!cmd->uc|
|000036a0| 6d 64 2e 61 63 6d 64 2e | 61 63 5f 65 78 70 72 20 |md.acmd.|ac_expr |
|000036b0| 26 26 20 21 28 63 6d 64 | 2d 3e 63 5f 66 6c 61 67 |&& !(cmd|->c_flag|
|000036c0| 73 20 26 20 43 46 5f 54 | 45 52 4d 29 20 26 26 0d |s & CF_T|ERM) &&.|
|000036d0| 20 20 20 20 20 20 28 61 | 72 67 2d 3e 61 72 67 5f |      (a|rg->arg_|
|000036e0| 74 79 70 65 20 3d 3d 20 | 4f 5f 41 4e 44 20 7c 7c |type == |O_AND |||
|000036f0| 20 61 72 67 2d 3e 61 72 | 67 5f 74 79 70 65 20 3d | arg->ar|g_type =|
|00003700| 3d 20 4f 5f 4f 52 29 20 | 29 20 7b 0d 09 64 65 68 |= O_OR) |) {..deh|
|00003710| 6f 69 73 74 28 61 72 67 | 2c 31 29 3b 0d 09 61 72 |oist(arg|,1);..ar|
|00003720| 67 5b 32 5d 2e 61 72 67 | 5f 74 79 70 65 20 26 3d |g[2].arg|_type &=|
|00003730| 20 41 5f 4d 41 53 4b 3b | 09 2f 2a 20 64 6f 6e 27 | A_MASK;|./* don'|
|00003740| 74 20 73 75 70 70 72 65 | 73 73 20 65 76 61 6c 20 |t suppre|ss eval |
|00003750| 2a 2f 0d 09 64 65 68 6f | 69 73 74 28 61 72 67 2c |*/..deho|ist(arg,|
|00003760| 32 29 3b 0d 09 63 6d 64 | 2d 3e 75 63 6d 64 2e 61 |2);..cmd|->ucmd.a|
|00003770| 63 6d 64 2e 61 63 5f 65 | 78 70 72 20 3d 20 61 72 |cmd.ac_e|xpr = ar|
|00003780| 67 5b 32 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[2].arg|_ptr.arg|
|00003790| 5f 61 72 67 3b 0d 09 63 | 6d 64 2d 3e 63 5f 65 78 |_arg;..c|md->c_ex|
|000037a0| 70 72 20 3d 20 61 72 67 | 5b 31 5d 2e 61 72 67 5f |pr = arg|[1].arg_|
|000037b0| 70 74 72 2e 61 72 67 5f | 61 72 67 3b 0d 09 69 66 |ptr.arg_|arg;..if|
|000037c0| 20 28 61 72 67 2d 3e 61 | 72 67 5f 74 79 70 65 20 | (arg->a|rg_type |
|000037d0| 3d 3d 20 4f 5f 4f 52 29 | 0d 09 20 20 20 20 63 6d |== O_OR)|..    cm|
|000037e0| 64 2d 3e 63 5f 66 6c 61 | 67 73 20 5e 3d 20 43 46 |d->c_fla|gs ^= CF|
|000037f0| 5f 49 4e 56 45 52 54 3b | 09 09 2f 2a 20 7c 7c 20 |_INVERT;|../* || |
|00003800| 69 73 20 6c 69 6b 65 20 | 75 6e 6c 65 73 73 20 2a |is like |unless *|
|00003810| 2f 0d 09 61 72 67 2d 3e | 61 72 67 5f 6c 65 6e 20 |/..arg->|arg_len |
|00003820| 3d 20 30 3b 0d 09 66 72 | 65 65 5f 61 72 67 28 61 |= 0;..fr|ee_arg(a|
|00003830| 72 67 29 3b 0d 09 61 72 | 67 20 3d 20 63 6d 64 2d |rg);..ar|g = cmd-|
|00003840| 3e 63 5f 65 78 70 72 3b | 0d 20 20 20 20 7d 0d 0d |>c_expr;|.    }..|
|00003850| 20 20 20 20 2f 2a 20 54 | 75 72 6e 20 22 69 66 20 |    /* T|urn "if |
|00003860| 28 21 65 78 70 72 29 22 | 20 69 6e 74 6f 20 22 75 |(!expr)"| into "u|
|00003870| 6e 6c 65 73 73 20 28 65 | 78 70 72 29 22 20 2a 2f |nless (e|xpr)" */|
|00003880| 0d 0d 20 20 20 20 69 66 | 20 28 21 28 63 6d 64 2d |..    if| (!(cmd-|
|00003890| 3e 63 5f 66 6c 61 67 73 | 20 26 20 43 46 5f 54 45 |>c_flags| & CF_TE|
|000038a0| 52 4d 29 29 20 7b 09 09 | 2f 2a 20 75 6e 6c 65 73 |RM)) {..|/* unles|
|000038b0| 73 20 72 65 74 75 72 6e | 20 76 61 6c 75 65 20 77 |s return| value w|
|000038c0| 61 6e 74 65 64 20 2a 2f | 0d 09 77 68 69 6c 65 20 |anted */|..while |
|000038d0| 28 61 72 67 2d 3e 61 72 | 67 5f 74 79 70 65 20 3d |(arg->ar|g_type =|
|000038e0| 3d 20 4f 5f 4e 4f 54 29 | 20 7b 0d 09 20 20 20 20 |= O_NOT)| {..    |
|000038f0| 64 65 68 6f 69 73 74 28 | 61 72 67 2c 31 29 3b 0d |dehoist(|arg,1);.|
|00003900| 09 20 20 20 20 63 6d 64 | 2d 3e 63 5f 66 6c 61 67 |.    cmd|->c_flag|
|00003910| 73 20 5e 3d 20 43 46 5f | 49 4e 56 45 52 54 3b 09 |s ^= CF_|INVERT;.|
|00003920| 09 2f 2a 20 66 6c 69 70 | 20 73 65 6e 73 65 20 6f |./* flip| sense o|
|00003930| 66 20 63 6d 64 20 2a 2f | 0d 09 20 20 20 20 63 6d |f cmd */|..    cm|
|00003940| 64 2d 3e 63 5f 65 78 70 | 72 20 3d 20 61 72 67 5b |d->c_exp|r = arg[|
|00003950| 31 5d 2e 61 72 67 5f 70 | 74 72 2e 61 72 67 5f 61 |1].arg_p|tr.arg_a|
|00003960| 72 67 3b 20 2f 2a 20 68 | 6f 69 73 74 20 74 68 65 |rg; /* h|oist the|
|00003970| 20 72 65 73 74 20 6f 66 | 20 65 78 70 72 20 2a 2f | rest of| expr */|
|00003980| 0d 09 20 20 20 20 66 72 | 65 65 5f 61 72 67 28 61 |..    fr|ee_arg(a|
|00003990| 72 67 29 3b 0d 09 20 20 | 20 20 61 72 67 20 3d 20 |rg);..  |  arg = |
|000039a0| 63 6d 64 2d 3e 63 5f 65 | 78 70 72 3b 09 09 09 2f |cmd->c_e|xpr;.../|
|000039b0| 2a 20 68 65 72 65 20 77 | 65 20 67 6f 20 61 67 61 |* here w|e go aga|
|000039c0| 69 6e 20 2a 2f 0d 09 7d | 0d 20 20 20 20 7d 0d 0d |in */..}|.    }..|
|000039d0| 20 20 20 20 69 66 20 28 | 21 61 72 67 2d 3e 61 72 |    if (|!arg->ar|
|000039e0| 67 5f 6c 65 6e 29 20 7b | 09 09 2f 2a 20 73 61 6e |g_len) {|../* san|
|000039f0| 69 74 79 20 63 68 65 63 | 6b 20 2a 2f 0d 09 63 6d |ity chec|k */..cm|
|00003a00| 64 2d 3e 63 5f 66 6c 61 | 67 73 20 7c 3d 20 6f 70 |d->c_fla|gs |= op|
|00003a10| 74 3b 0d 09 72 65 74 75 | 72 6e 3b 0d 20 20 20 20 |t;..retu|rn;.    |
|00003a20| 7d 0d 0d 20 20 20 20 2f | 2a 20 66 6f 72 20 22 63 |}..    /|* for "c|
|00003a30| 6f 6e 64 20 2e 2e 20 63 | 6f 6e 64 22 20 77 65 20 |ond .. c|ond" we |
|00003a40| 73 65 74 20 75 70 20 66 | 6f 72 20 74 68 65 20 69 |set up f|or the i|
|00003a50| 6e 69 74 69 61 6c 20 63 | 68 65 63 6b 20 2a 2f 0d |nitial c|heck */.|
|00003a60| 0d 20 20 20 20 69 66 20 | 28 61 72 67 2d 3e 61 72 |.    if |(arg->ar|
|00003a70| 67 5f 74 79 70 65 20 3d | 3d 20 4f 5f 46 4c 49 50 |g_type =|= O_FLIP|
|00003a80| 29 0d 09 63 6f 6e 74 65 | 78 74 20 7c 3d 20 34 3b |)..conte|xt |= 4;|
|00003a90| 0d 0d 20 20 20 20 2f 2a | 20 66 6f 72 20 22 63 6f |..    /*| for "co|
|00003aa0| 6e 64 20 26 26 20 65 78 | 70 72 22 20 61 6e 64 20 |nd && ex|pr" and |
|00003ab0| 22 63 6f 6e 64 20 7c 7c | 20 65 78 70 72 22 20 77 |"cond ||| expr" w|
|00003ac0| 65 20 63 61 6e 20 69 67 | 6e 6f 72 65 20 65 78 70 |e can ig|nore exp|
|00003ad0| 72 2c 20 73 6f 72 74 20 | 6f 66 20 2a 2f 0d 0d 20 |r, sort |of */.. |
|00003ae0| 20 6d 6f 72 65 63 6f 6e | 74 65 78 74 3a 0d 20 20 | morecon|text:.  |
|00003af0| 20 20 69 66 20 28 61 72 | 67 2d 3e 61 72 67 5f 74 |  if (ar|g->arg_t|
|00003b00| 79 70 65 20 3d 3d 20 4f | 5f 41 4e 44 29 0d 09 63 |ype == O|_AND)..c|
|00003b10| 6f 6e 74 65 78 74 20 7c | 3d 20 31 3b 0d 20 20 20 |ontext ||= 1;.   |
|00003b20| 20 65 6c 73 65 20 69 66 | 20 28 61 72 67 2d 3e 61 | else if| (arg->a|
|00003b30| 72 67 5f 74 79 70 65 20 | 3d 3d 20 4f 5f 4f 52 29 |rg_type |== O_OR)|
|00003b40| 0d 09 63 6f 6e 74 65 78 | 74 20 7c 3d 20 32 3b 0d |..contex|t |= 2;.|
|00003b50| 20 20 20 20 69 66 20 28 | 63 6f 6e 74 65 78 74 20 |    if (|context |
|00003b60| 26 26 20 28 61 72 67 5b | 66 6c 70 5d 2e 61 72 67 |&& (arg[|flp].arg|
|00003b70| 5f 74 79 70 65 20 26 20 | 41 5f 4d 41 53 4b 29 20 |_type & |A_MASK) |
|00003b80| 3d 3d 20 41 5f 45 58 50 | 52 29 20 7b 0d 09 61 72 |== A_EXP|R) {..ar|
|00003b90| 67 20 3d 20 61 72 67 5b | 66 6c 70 5d 2e 61 72 67 |g = arg[|flp].arg|
|00003ba0| 5f 70 74 72 2e 61 72 67 | 5f 61 72 67 3b 0d 09 66 |_ptr.arg|_arg;..f|
|00003bb0| 6c 70 20 3d 20 31 3b 0d | 09 69 66 20 28 61 72 67 |lp = 1;.|.if (arg|
|00003bc0| 2d 3e 61 72 67 5f 74 79 | 70 65 20 3d 3d 20 4f 5f |->arg_ty|pe == O_|
|00003bd0| 41 4e 44 20 7c 7c 20 61 | 72 67 2d 3e 61 72 67 5f |AND || a|rg->arg_|
|00003be0| 74 79 70 65 20 3d 3d 20 | 4f 5f 4f 52 29 0d 09 20 |type == |O_OR).. |
|00003bf0| 20 20 20 67 6f 74 6f 20 | 6d 6f 72 65 63 6f 6e 74 |   goto |morecont|
|00003c00| 65 78 74 3b 0d 20 20 20 | 20 7d 0d 20 20 20 20 69 |ext;.   | }.    i|
|00003c10| 66 20 28 28 63 6f 6e 74 | 65 78 74 20 26 20 33 29 |f ((cont|ext & 3)|
|00003c20| 20 3d 3d 20 33 29 0d 09 | 72 65 74 75 72 6e 3b 0d | == 3)..|return;.|
|00003c30| 0d 20 20 20 20 69 66 20 | 28 61 72 67 5b 66 6c 70 |.    if |(arg[flp|
|00003c40| 5d 2e 61 72 67 5f 66 6c | 61 67 73 20 26 20 28 41 |].arg_fl|ags & (A|
|00003c50| 46 5f 50 52 45 7c 41 46 | 5f 50 4f 53 54 29 29 20 |F_PRE|AF|_POST)) |
|00003c60| 7b 0d 09 63 6d 64 2d 3e | 63 5f 66 6c 61 67 73 20 |{..cmd->|c_flags |
|00003c70| 7c 3d 20 6f 70 74 3b 0d | 09 69 66 20 28 61 63 6d ||= opt;.|.if (acm|
|00003c80| 64 20 26 26 20 21 63 6d | 64 2d 3e 75 63 6d 64 2e |d && !cm|d->ucmd.|
|00003c90| 61 63 6d 64 2e 61 63 5f | 65 78 70 72 20 26 26 20 |acmd.ac_|expr && |
|00003ca0| 21 28 63 6d 64 2d 3e 63 | 5f 66 6c 61 67 73 20 26 |!(cmd->c|_flags &|
|00003cb0| 20 43 46 5f 54 45 52 4d | 29 0d 09 20 20 26 26 20 | CF_TERM|)..  && |
|00003cc0| 63 6d 64 2d 3e 63 5f 65 | 78 70 72 2d 3e 61 72 67 |cmd->c_e|xpr->arg|
|00003cd0| 5f 74 79 70 65 20 3d 3d | 20 4f 5f 49 54 45 4d 29 |_type ==| O_ITEM)|
|00003ce0| 20 7b 0d 09 20 20 20 20 | 61 72 67 5b 66 6c 70 5d | {..    |arg[flp]|
|00003cf0| 2e 61 72 67 5f 66 6c 61 | 67 73 20 26 3d 20 7e 41 |.arg_fla|gs &= ~A|
|00003d00| 46 5f 50 4f 53 54 3b 09 | 2f 2a 20 70 72 65 66 65 |F_POST;.|/* prefe|
|00003d10| 72 20 2b 2b 24 66 6f 6f | 20 74 6f 20 24 66 6f 6f |r ++$foo| to $foo|
|00003d20| 2b 2b 20 2a 2f 0d 09 20 | 20 20 20 61 72 67 5b 66 |++ */.. |   arg[f|
|00003d30| 6c 70 5d 2e 61 72 67 5f | 66 6c 61 67 73 20 7c 3d |lp].arg_|flags |=|
|00003d40| 20 41 46 5f 50 52 45 3b | 09 2f 2a 20 20 69 66 20 | AF_PRE;|./*  if |
|00003d50| 76 61 6c 75 65 20 6e 6f | 74 20 77 61 6e 74 65 64 |value no|t wanted|
|00003d60| 20 2a 2f 0d 09 7d 0d 09 | 72 65 74 75 72 6e 3b 09 | */..}..|return;.|
|00003d70| 09 09 09 2f 2a 20 73 69 | 64 65 20 65 66 66 65 63 |.../* si|de effec|
|00003d80| 74 2c 20 63 61 6e 27 74 | 20 6f 70 74 69 6d 69 7a |t, can't| optimiz|
|00003d90| 65 20 2a 2f 0d 20 20 20 | 20 7d 0d 0d 20 20 20 20 |e */.   | }..    |
|00003da0| 69 66 20 28 61 72 67 2d | 3e 61 72 67 5f 74 79 70 |if (arg-|>arg_typ|
|00003db0| 65 20 3d 3d 20 4f 5f 49 | 54 45 4d 20 7c 7c 20 61 |e == O_I|TEM || a|
|00003dc0| 72 67 2d 3e 61 72 67 5f | 74 79 70 65 20 3d 3d 20 |rg->arg_|type == |
|00003dd0| 4f 5f 46 4c 49 50 20 7c | 7c 0d 20 20 20 20 20 20 |O_FLIP |||.      |
|00003de0| 61 72 67 2d 3e 61 72 67 | 5f 74 79 70 65 20 3d 3d |arg->arg|_type ==|
|00003df0| 20 4f 5f 41 4e 44 20 7c | 7c 20 61 72 67 2d 3e 61 | O_AND ||| arg->a|
|00003e00| 72 67 5f 74 79 70 65 20 | 3d 3d 20 4f 5f 4f 52 29 |rg_type |== O_OR)|
|00003e10| 20 7b 0d 09 69 66 20 28 | 28 61 72 67 5b 66 6c 70 | {..if (|(arg[flp|
|00003e20| 5d 2e 61 72 67 5f 74 79 | 70 65 20 26 20 41 5f 4d |].arg_ty|pe & A_M|
|00003e30| 41 53 4b 29 20 3d 3d 20 | 41 5f 53 49 4e 47 4c 45 |ASK) == |A_SINGLE|
|00003e40| 29 20 7b 0d 09 20 20 20 | 20 6f 70 74 20 3d 20 28 |) {..   | opt = (|
|00003e50| 73 74 72 5f 74 72 75 65 | 28 61 72 67 5b 66 6c 70 |str_true|(arg[flp|
|00003e60| 5d 2e 61 72 67 5f 70 74 | 72 2e 61 72 67 5f 73 74 |].arg_pt|r.arg_st|
|00003e70| 72 29 20 3f 20 43 46 54 | 5f 54 52 55 45 20 3a 20 |r) ? CFT|_TRUE : |
|00003e80| 43 46 54 5f 46 41 4c 53 | 45 29 3b 0d 09 20 20 20 |CFT_FALS|E);..   |
|00003e90| 20 63 6d 64 2d 3e 63 5f | 73 68 6f 72 74 20 3d 20 | cmd->c_|short = |
|00003ea0| 73 74 72 5f 73 6d 61 6b | 65 28 61 72 67 5b 66 6c |str_smak|e(arg[fl|
|00003eb0| 70 5d 2e 61 72 67 5f 70 | 74 72 2e 61 72 67 5f 73 |p].arg_p|tr.arg_s|
|00003ec0| 74 72 29 3b 0d 09 20 20 | 20 20 67 6f 74 6f 20 6c |tr);..  |  goto l|
|00003ed0| 69 74 65 72 61 6c 3b 0d | 09 7d 0d 09 65 6c 73 65 |iteral;.|.}..else|
|00003ee0| 20 69 66 20 28 28 61 72 | 67 5b 66 6c 70 5d 2e 61 | if ((ar|g[flp].a|
|00003ef0| 72 67 5f 74 79 70 65 20 | 26 20 41 5f 4d 41 53 4b |rg_type |& A_MASK|
|00003f00| 29 20 3d 3d 20 41 5f 53 | 54 41 42 20 7c 7c 0d 09 |) == A_S|TAB ||..|
|00003f10| 20 20 28 61 72 67 5b 66 | 6c 70 5d 2e 61 72 67 5f |  (arg[f|lp].arg_|
|00003f20| 74 79 70 65 20 26 20 41 | 5f 4d 41 53 4b 29 20 3d |type & A|_MASK) =|
|00003f30| 3d 20 41 5f 4c 56 41 4c | 29 20 7b 0d 09 20 20 20 |= A_LVAL|) {..   |
|00003f40| 20 63 6d 64 2d 3e 63 5f | 73 74 61 62 20 20 3d 20 | cmd->c_|stab  = |
|00003f50| 61 72 67 5b 66 6c 70 5d | 2e 61 72 67 5f 70 74 72 |arg[flp]|.arg_ptr|
|00003f60| 2e 61 72 67 5f 73 74 61 | 62 3b 0d 09 20 20 20 20 |.arg_sta|b;..    |
|00003f70| 69 66 20 28 21 63 6f 6e | 74 65 78 74 29 0d 09 09 |if (!con|text)...|
|00003f80| 61 72 67 5b 66 6c 70 5d | 2e 61 72 67 5f 70 74 72 |arg[flp]|.arg_ptr|
|00003f90| 2e 61 72 67 5f 73 74 61 | 62 20 3d 20 4e 75 6c 6c |.arg_sta|b = Null|
|00003fa0| 73 74 61 62 3b 0d 09 20 | 20 20 20 6f 70 74 20 3d |stab;.. |   opt =|
|00003fb0| 20 43 46 54 5f 52 45 47 | 3b 0d 09 20 20 6c 69 74 | CFT_REG|;..  lit|
|00003fc0| 65 72 61 6c 3a 0d 09 20 | 20 20 20 69 66 20 28 21 |eral:.. |   if (!|
|00003fd0| 63 6f 6e 74 65 78 74 29 | 20 7b 09 2f 2a 20 6e 6f |context)| {./* no|
|00003fe0| 20 26 26 20 6f 72 20 7c | 7c 3f 20 2a 2f 0d 09 09 | && or |||? */...|
|00003ff0| 61 72 67 5f 66 72 65 65 | 28 61 72 67 29 3b 0d 09 |arg_free|(arg);..|
|00004000| 09 63 6d 64 2d 3e 63 5f | 65 78 70 72 20 3d 20 4e |.cmd->c_|expr = N|
|00004010| 75 6c 6c 61 72 67 3b 0d | 09 20 20 20 20 7d 0d 09 |ullarg;.|.    }..|
|00004020| 20 20 20 20 69 66 20 28 | 21 28 63 6f 6e 74 65 78 |    if (|!(contex|
|00004030| 74 20 26 20 31 29 29 0d | 09 09 63 6d 64 2d 3e 63 |t & 1)).|..cmd->c|
|00004040| 5f 66 6c 61 67 73 20 7c | 3d 20 43 46 5f 45 51 53 |_flags ||= CF_EQS|
|00004050| 55 52 45 3b 0d 09 20 20 | 20 20 69 66 20 28 21 28 |URE;..  |  if (!(|
|00004060| 63 6f 6e 74 65 78 74 20 | 26 20 32 29 29 0d 09 09 |context |& 2))...|
|00004070| 63 6d 64 2d 3e 63 5f 66 | 6c 61 67 73 20 7c 3d 20 |cmd->c_f|lags |= |
|00004080| 43 46 5f 4e 45 53 55 52 | 45 3b 0d 09 7d 0d 20 20 |CF_NESUR|E;..}.  |
|00004090| 20 20 7d 0d 20 20 20 20 | 65 6c 73 65 20 69 66 20 |  }.    |else if |
|000040a0| 28 61 72 67 2d 3e 61 72 | 67 5f 74 79 70 65 20 3d |(arg->ar|g_type =|
|000040b0| 3d 20 4f 5f 4d 41 54 43 | 48 20 7c 7c 20 61 72 67 |= O_MATC|H || arg|
|000040c0| 2d 3e 61 72 67 5f 74 79 | 70 65 20 3d 3d 20 4f 5f |->arg_ty|pe == O_|
|000040d0| 53 55 42 53 54 20 7c 7c | 0d 09 20 20 20 20 20 61 |SUBST |||..     a|
|000040e0| 72 67 2d 3e 61 72 67 5f | 74 79 70 65 20 3d 3d 20 |rg->arg_|type == |
|000040f0| 4f 5f 4e 4d 41 54 43 48 | 20 7c 7c 20 61 72 67 2d |O_NMATCH| || arg-|
|00004100| 3e 61 72 67 5f 74 79 70 | 65 20 3d 3d 20 4f 5f 4e |>arg_typ|e == O_N|
|00004110| 53 55 42 53 54 29 20 7b | 0d 09 69 66 20 28 28 61 |SUBST) {|..if ((a|
|00004120| 72 67 5b 31 5d 2e 61 72 | 67 5f 74 79 70 65 20 3d |rg[1].ar|g_type =|
|00004130| 3d 20 41 5f 53 54 41 42 | 20 7c 7c 20 61 72 67 5b |= A_STAB| || arg[|
|00004140| 31 5d 2e 61 72 67 5f 74 | 79 70 65 20 3d 3d 20 41 |1].arg_t|ype == A|
|00004150| 5f 4c 56 41 4c 29 20 26 | 26 0d 09 09 28 61 72 67 |_LVAL) &|&...(arg|
|00004160| 5b 32 5d 2e 61 72 67 5f | 74 79 70 65 20 26 20 41 |[2].arg_|type & A|
|00004170| 5f 4d 41 53 4b 29 20 3d | 3d 20 41 5f 53 50 41 54 |_MASK) =|= A_SPAT|
|00004180| 20 26 26 0d 09 09 61 72 | 67 5b 32 5d 2e 61 72 67 | &&...ar|g[2].arg|
|00004190| 5f 70 74 72 2e 61 72 67 | 5f 73 70 61 74 2d 3e 73 |_ptr.arg|_spat->s|
|000041a0| 70 61 74 5f 73 68 6f 72 | 74 20 26 26 0d 09 09 28 |pat_shor|t &&...(|
|000041b0| 61 72 67 2d 3e 61 72 67 | 5f 74 79 70 65 20 3d 3d |arg->arg|_type ==|
|000041c0| 20 4f 5f 53 55 42 53 54 | 20 7c 7c 20 61 72 67 2d | O_SUBST| || arg-|
|000041d0| 3e 61 72 67 5f 74 79 70 | 65 20 3d 3d 20 4f 5f 4e |>arg_typ|e == O_N|
|000041e0| 53 55 42 53 54 20 7c 7c | 0d 09 09 20 28 61 72 67 |SUBST |||... (arg|
|000041f0| 5b 32 5d 2e 61 72 67 5f | 70 74 72 2e 61 72 67 5f |[2].arg_|ptr.arg_|
|00004200| 73 70 61 74 2d 3e 73 70 | 61 74 5f 66 6c 61 67 73 |spat->sp|at_flags|
|00004210| 20 26 20 53 50 41 54 5f | 47 4c 4f 42 41 4c 29 20 | & SPAT_|GLOBAL) |
|00004220| 3d 3d 20 30 20 29 29 20 | 7b 0d 09 20 20 20 20 63 |== 0 )) |{..    c|
|00004230| 6d 64 2d 3e 63 5f 73 74 | 61 62 20 20 3d 20 61 72 |md->c_st|ab  = ar|
|00004240| 67 5b 31 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[1].arg|_ptr.arg|
|00004250| 5f 73 74 61 62 3b 0d 09 | 20 20 20 20 63 6d 64 2d |_stab;..|    cmd-|
|00004260| 3e 63 5f 73 68 6f 72 74 | 20 3d 20 73 74 72 5f 73 |>c_short| = str_s|
|00004270| 6d 61 6b 65 28 61 72 67 | 5b 32 5d 2e 61 72 67 5f |make(arg|[2].arg_|
|00004280| 70 74 72 2e 61 72 67 5f | 73 70 61 74 2d 3e 73 70 |ptr.arg_|spat->sp|
|00004290| 61 74 5f 73 68 6f 72 74 | 29 3b 0d 09 20 20 20 20 |at_short|);..    |
|000042a0| 63 6d 64 2d 3e 63 5f 73 | 6c 65 6e 20 20 3d 20 61 |cmd->c_s|len  = a|
|000042b0| 72 67 5b 32 5d 2e 61 72 | 67 5f 70 74 72 2e 61 72 |rg[2].ar|g_ptr.ar|
|000042c0| 67 5f 73 70 61 74 2d 3e | 73 70 61 74 5f 73 6c 65 |g_spat->|spat_sle|
|000042d0| 6e 3b 0d 09 20 20 20 20 | 69 66 20 28 61 72 67 5b |n;..    |if (arg[|
|000042e0| 32 5d 2e 61 72 67 5f 70 | 74 72 2e 61 72 67 5f 73 |2].arg_p|tr.arg_s|
|000042f0| 70 61 74 2d 3e 73 70 61 | 74 5f 66 6c 61 67 73 20 |pat->spa|t_flags |
|00004300| 26 20 53 50 41 54 5f 41 | 4c 4c 20 26 26 0d 09 09 |& SPAT_A|LL &&...|
|00004310| 21 28 61 72 67 5b 32 5d | 2e 61 72 67 5f 70 74 72 |!(arg[2]|.arg_ptr|
|00004320| 2e 61 72 67 5f 73 70 61 | 74 2d 3e 73 70 61 74 5f |.arg_spa|t->spat_|
|00004330| 66 6c 61 67 73 20 26 20 | 53 50 41 54 5f 4f 4e 43 |flags & |SPAT_ONC|
|00004340| 45 29 20 26 26 0d 09 09 | 28 61 72 67 2d 3e 61 72 |E) &&...|(arg->ar|
|00004350| 67 5f 74 79 70 65 20 3d | 3d 20 4f 5f 4d 41 54 43 |g_type =|= O_MATC|
|00004360| 48 20 7c 7c 20 61 72 67 | 2d 3e 61 72 67 5f 74 79 |H || arg|->arg_ty|
|00004370| 70 65 20 3d 3d 20 4f 5f | 4e 4d 41 54 43 48 29 20 |pe == O_|NMATCH) |
|00004380| 29 0d 09 09 73 75 72 65 | 20 7c 3d 20 43 46 5f 45 |)...sure| |= CF_E|
|00004390| 51 53 55 52 45 3b 09 09 | 2f 2a 20 28 53 55 42 53 |QSURE;..|/* (SUBS|
|000043a0| 54 20 6d 75 73 74 20 62 | 65 20 66 6f 72 63 65 64 |T must b|e forced|
|000043b0| 20 65 76 65 6e 20 2a 2f | 0d 09 09 09 09 09 09 2f | even */|......./|
|000043c0| 2a 20 69 66 20 77 65 20 | 6b 6e 6f 77 20 69 74 20 |* if we |know it |
|000043d0| 77 69 6c 6c 20 77 6f 72 | 6b 2e 29 20 2a 2f 0d 09 |will wor|k.) */..|
|000043e0| 20 20 20 20 69 66 20 28 | 61 72 67 2d 3e 61 72 67 |    if (|arg->arg|
|000043f0| 5f 74 79 70 65 20 21 3d | 20 4f 5f 53 55 42 53 54 |_type !=| O_SUBST|
|00004400| 29 20 7b 0d 09 09 73 74 | 72 5f 66 72 65 65 28 61 |) {...st|r_free(a|
|00004410| 72 67 5b 32 5d 2e 61 72 | 67 5f 70 74 72 2e 61 72 |rg[2].ar|g_ptr.ar|
|00004420| 67 5f 73 70 61 74 2d 3e | 73 70 61 74 5f 73 68 6f |g_spat->|spat_sho|
|00004430| 72 74 29 3b 0d 09 09 61 | 72 67 5b 32 5d 2e 61 72 |rt);...a|rg[2].ar|
|00004440| 67 5f 70 74 72 2e 61 72 | 67 5f 73 70 61 74 2d 3e |g_ptr.ar|g_spat->|
|00004450| 73 70 61 74 5f 73 68 6f | 72 74 20 3d 20 4e 75 6c |spat_sho|rt = Nul|
|00004460| 6c 73 74 72 3b 0d 09 09 | 61 72 67 5b 32 5d 2e 61 |lstr;...|arg[2].a|
|00004470| 72 67 5f 70 74 72 2e 61 | 72 67 5f 73 70 61 74 2d |rg_ptr.a|rg_spat-|
|00004480| 3e 73 70 61 74 5f 73 6c | 65 6e 20 3d 20 30 3b 20 |>spat_sl|en = 0; |
|00004490| 2f 2a 20 6f 6e 6c 79 20 | 6f 6e 65 20 63 68 6b 20 |/* only |one chk |
|000044a0| 2a 2f 0d 09 20 20 20 20 | 7d 0d 09 20 20 20 20 73 |*/..    |}..    s|
|000044b0| 75 72 65 20 7c 3d 20 43 | 46 5f 4e 45 53 55 52 45 |ure |= C|F_NESURE|
|000044c0| 3b 09 09 2f 2a 20 6e 6f | 72 6d 61 6c 6c 79 20 6f |;../* no|rmally o|
|000044d0| 6e 6c 79 20 73 75 72 65 | 20 69 66 20 69 74 20 66 |nly sure| if it f|
|000044e0| 61 69 6c 73 20 2a 2f 0d | 09 20 20 20 20 69 66 20 |ails */.|.    if |
|000044f0| 28 61 72 67 2d 3e 61 72 | 67 5f 74 79 70 65 20 3d |(arg->ar|g_type =|
|00004500| 3d 20 4f 5f 4e 4d 41 54 | 43 48 20 7c 7c 20 61 72 |= O_NMAT|CH || ar|
|00004510| 67 2d 3e 61 72 67 5f 74 | 79 70 65 20 3d 3d 20 4f |g->arg_t|ype == O|
|00004520| 5f 4e 53 55 42 53 54 29 | 0d 09 09 63 6d 64 2d 3e |_NSUBST)|...cmd->|
|00004530| 63 5f 66 6c 61 67 73 20 | 7c 3d 20 43 46 5f 46 49 |c_flags ||= CF_FI|
|00004540| 52 53 54 4e 45 47 3b 0d | 09 20 20 20 20 69 66 20 |RSTNEG;.|.    if |
|00004550| 28 63 6f 6e 74 65 78 74 | 20 26 20 31 29 20 7b 09 |(context| & 1) {.|
|00004560| 09 2f 2a 20 6f 6e 6c 79 | 20 73 75 72 65 20 69 66 |./* only| sure if|
|00004570| 20 74 68 69 6e 67 20 69 | 73 20 66 61 6c 73 65 20 | thing i|s false |
|00004580| 2a 2f 0d 09 09 69 66 20 | 28 63 6d 64 2d 3e 63 5f |*/...if |(cmd->c_|
|00004590| 66 6c 61 67 73 20 26 20 | 43 46 5f 46 49 52 53 54 |flags & |CF_FIRST|
|000045a0| 4e 45 47 29 0d 09 09 20 | 20 20 20 73 75 72 65 20 |NEG)... |   sure |
|000045b0| 26 3d 20 7e 43 46 5f 4e | 45 53 55 52 45 3b 0d 09 |&= ~CF_N|ESURE;..|
|000045c0| 09 65 6c 73 65 0d 09 09 | 20 20 20 20 73 75 72 65 |.else...|    sure|
|000045d0| 20 26 3d 20 7e 43 46 5f | 45 51 53 55 52 45 3b 0d | &= ~CF_|EQSURE;.|
|000045e0| 09 20 20 20 20 7d 0d 09 | 20 20 20 20 65 6c 73 65 |.    }..|    else|
|000045f0| 20 69 66 20 28 63 6f 6e | 74 65 78 74 20 26 20 32 | if (con|text & 2|
|00004600| 29 20 7b 09 2f 2a 20 6f | 6e 6c 79 20 73 75 72 65 |) {./* o|nly sure|
|00004610| 20 69 66 20 74 68 69 6e | 67 20 69 73 20 74 72 75 | if thin|g is tru|
|00004620| 65 20 2a 2f 0d 09 09 69 | 66 20 28 63 6d 64 2d 3e |e */...i|f (cmd->|
|00004630| 63 5f 66 6c 61 67 73 20 | 26 20 43 46 5f 46 49 52 |c_flags |& CF_FIR|
|00004640| 53 54 4e 45 47 29 0d 09 | 09 20 20 20 20 73 75 72 |STNEG)..|.    sur|
|00004650| 65 20 26 3d 20 7e 43 46 | 5f 45 51 53 55 52 45 3b |e &= ~CF|_EQSURE;|
|00004660| 0d 09 09 65 6c 73 65 0d | 09 09 20 20 20 20 73 75 |...else.|..    su|
|00004670| 72 65 20 26 3d 20 7e 43 | 46 5f 4e 45 53 55 52 45 |re &= ~C|F_NESURE|
|00004680| 3b 0d 09 20 20 20 20 7d | 0d 09 20 20 20 20 69 66 |;..    }|..    if|
|00004690| 20 28 73 75 72 65 20 26 | 20 28 43 46 5f 45 51 53 | (sure &| (CF_EQS|
|000046a0| 55 52 45 7c 43 46 5f 4e | 45 53 55 52 45 29 29 20 |URE|CF_N|ESURE)) |
|000046b0| 7b 09 2f 2a 20 69 66 20 | 77 65 20 6b 6e 6f 77 20 |{./* if |we know |
|000046c0| 61 6e 79 74 68 69 6e 67 | 2a 2f 0d 09 09 69 66 20 |anything|*/...if |
|000046d0| 28 61 72 67 5b 32 5d 2e | 61 72 67 5f 70 74 72 2e |(arg[2].|arg_ptr.|
|000046e0| 61 72 67 5f 73 70 61 74 | 2d 3e 73 70 61 74 5f 66 |arg_spat|->spat_f|
|000046f0| 6c 61 67 73 20 26 20 53 | 50 41 54 5f 53 43 41 4e |lags & S|PAT_SCAN|
|00004700| 46 49 52 53 54 29 0d 09 | 09 20 20 20 20 6f 70 74 |FIRST)..|.    opt|
|00004710| 20 3d 20 43 46 54 5f 53 | 43 41 4e 3b 0d 09 09 65 | = CFT_S|CAN;...e|
|00004720| 6c 73 65 0d 09 09 20 20 | 20 20 6f 70 74 20 3d 20 |lse...  |  opt = |
|00004730| 43 46 54 5f 41 4e 43 48 | 4f 52 3b 0d 09 09 69 66 |CFT_ANCH|OR;...if|
|00004740| 20 28 73 75 72 65 20 3d | 3d 20 28 43 46 5f 45 51 | (sure =|= (CF_EQ|
|00004750| 53 55 52 45 7c 43 46 5f | 4e 45 53 55 52 45 29 09 |SURE|CF_|NESURE).|
|00004760| 2f 2a 20 72 65 61 6c 6c | 79 20 73 75 72 65 3f 20 |/* reall|y sure? |
|00004770| 2a 2f 0d 09 09 20 20 20 | 20 26 26 20 61 72 67 2d |*/...   | && arg-|
|00004780| 3e 61 72 67 5f 74 79 70 | 65 20 3d 3d 20 4f 5f 4d |>arg_typ|e == O_M|
|00004790| 41 54 43 48 0d 09 09 20 | 20 20 20 26 26 20 63 6f |ATCH... |   && co|
|000047a0| 6e 74 65 78 74 20 26 20 | 34 0d 09 09 20 20 20 20 |ntext & |4...    |
|000047b0| 26 26 20 66 6c 69 70 6f | 72 66 6c 6f 70 20 3d 3d |&& flipo|rflop ==|
|000047c0| 20 31 29 20 7b 0d 09 09 | 20 20 20 20 73 70 61 74 | 1) {...|    spat|
|000047d0| 5f 66 72 65 65 28 61 72 | 67 5b 32 5d 2e 61 72 67 |_free(ar|g[2].arg|
|000047e0| 5f 70 74 72 2e 61 72 67 | 5f 73 70 61 74 29 3b 0d |_ptr.arg|_spat);.|
|000047f0| 09 09 20 20 20 20 61 72 | 67 5b 32 5d 2e 61 72 67 |..    ar|g[2].arg|
|00004800| 5f 70 74 72 2e 61 72 67 | 5f 73 70 61 74 20 3d 20 |_ptr.arg|_spat = |
|00004810| 4e 75 6c 6c 73 70 61 74 | 3b 09 2f 2a 20 64 6f 6e |Nullspat|;./* don|
|00004820| 27 74 20 64 6f 20 74 77 | 69 63 65 20 2a 2f 0d 09 |'t do tw|ice */..|
|00004830| 09 7d 0d 09 09 65 6c 73 | 65 0d 09 09 20 20 20 20 |.}...els|e...    |
|00004840| 63 6d 64 2d 3e 63 5f 73 | 70 61 74 20 3d 20 61 72 |cmd->c_s|pat = ar|
|00004850| 67 5b 32 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[2].arg|_ptr.arg|
|00004860| 5f 73 70 61 74 3b 0d 09 | 09 63 6d 64 2d 3e 63 5f |_spat;..|.cmd->c_|
|00004870| 66 6c 61 67 73 20 7c 3d | 20 73 75 72 65 3b 0d 09 |flags |=| sure;..|
|00004880| 20 20 20 20 7d 0d 09 7d | 0d 20 20 20 20 7d 0d 20 |    }..}|.    }. |
|00004890| 20 20 20 65 6c 73 65 20 | 69 66 20 28 61 72 67 2d |   else |if (arg-|
|000048a0| 3e 61 72 67 5f 74 79 70 | 65 20 3d 3d 20 4f 5f 53 |>arg_typ|e == O_S|
|000048b0| 45 51 20 7c 7c 20 61 72 | 67 2d 3e 61 72 67 5f 74 |EQ || ar|g->arg_t|
|000048c0| 79 70 65 20 3d 3d 20 4f | 5f 53 4e 45 20 7c 7c 0d |ype == O|_SNE ||.|
|000048d0| 09 20 20 20 20 20 61 72 | 67 2d 3e 61 72 67 5f 74 |.     ar|g->arg_t|
|000048e0| 79 70 65 20 3d 3d 20 4f | 5f 53 4c 54 20 7c 7c 20 |ype == O|_SLT || |
|000048f0| 61 72 67 2d 3e 61 72 67 | 5f 74 79 70 65 20 3d 3d |arg->arg|_type ==|
|00004900| 20 4f 5f 53 47 54 29 20 | 7b 0d 09 69 66 20 28 61 | O_SGT) |{..if (a|
|00004910| 72 67 5b 31 5d 2e 61 72 | 67 5f 74 79 70 65 20 3d |rg[1].ar|g_type =|
|00004920| 3d 20 41 5f 53 54 41 42 | 20 7c 7c 20 61 72 67 5b |= A_STAB| || arg[|
|00004930| 31 5d 2e 61 72 67 5f 74 | 79 70 65 20 3d 3d 20 41 |1].arg_t|ype == A|
|00004940| 5f 4c 56 41 4c 29 20 7b | 0d 09 20 20 20 20 69 66 |_LVAL) {|..    if|
|00004950| 20 28 61 72 67 5b 32 5d | 2e 61 72 67 5f 74 79 70 | (arg[2]|.arg_typ|
|00004960| 65 20 3d 3d 20 41 5f 53 | 49 4e 47 4c 45 29 20 7b |e == A_S|INGLE) {|
|00004970| 0d 09 09 2f 2a 53 55 50 | 50 52 45 53 53 20 35 39 |.../*SUP|PRESS 59|
|00004980| 34 2a 2f 0d 09 09 63 68 | 61 72 20 2a 6a 75 6e 6b |4*/...ch|ar *junk|
|00004990| 20 3d 20 73 74 72 5f 67 | 65 74 28 61 72 67 5b 32 | = str_g|et(arg[2|
|000049a0| 5d 2e 61 72 67 5f 70 74 | 72 2e 61 72 67 5f 73 74 |].arg_pt|r.arg_st|
|000049b0| 72 29 3b 0d 0d 09 09 63 | 6d 64 2d 3e 63 5f 73 74 |r);....c|md->c_st|
|000049c0| 61 62 20 20 3d 20 61 72 | 67 5b 31 5d 2e 61 72 67 |ab  = ar|g[1].arg|
|000049d0| 5f 70 74 72 2e 61 72 67 | 5f 73 74 61 62 3b 0d 09 |_ptr.arg|_stab;..|
|000049e0| 09 63 6d 64 2d 3e 63 5f | 73 68 6f 72 74 20 3d 20 |.cmd->c_|short = |
|000049f0| 73 74 72 5f 73 6d 61 6b | 65 28 61 72 67 5b 32 5d |str_smak|e(arg[2]|
|00004a00| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 73 74 72 |.arg_ptr|.arg_str|
|00004a10| 29 3b 0d 09 09 63 6d 64 | 2d 3e 63 5f 73 6c 65 6e |);...cmd|->c_slen|
|00004a20| 20 20 3d 20 63 6d 64 2d | 3e 63 5f 73 68 6f 72 74 |  = cmd-|>c_short|
|00004a30| 2d 3e 73 74 72 5f 63 75 | 72 2b 31 3b 0d 09 09 73 |->str_cu|r+1;...s|
|00004a40| 77 69 74 63 68 20 28 61 | 72 67 2d 3e 61 72 67 5f |witch (a|rg->arg_|
|00004a50| 74 79 70 65 29 20 7b 0d | 09 09 63 61 73 65 20 4f |type) {.|..case O|
|00004a60| 5f 53 4c 54 3a 20 63 61 | 73 65 20 4f 5f 53 47 54 |_SLT: ca|se O_SGT|
|00004a70| 3a 0d 09 09 20 20 20 20 | 73 75 72 65 20 7c 3d 20 |:...    |sure |= |
|00004a80| 43 46 5f 45 51 53 55 52 | 45 3b 0d 09 09 20 20 20 |CF_EQSUR|E;...   |
|00004a90| 20 63 6d 64 2d 3e 63 5f | 66 6c 61 67 73 20 7c 3d | cmd->c_|flags |=|
|00004aa0| 20 43 46 5f 46 49 52 53 | 54 4e 45 47 3b 0d 09 09 | CF_FIRS|TNEG;...|
|00004ab0| 20 20 20 20 62 72 65 61 | 6b 3b 0d 09 09 63 61 73 |    brea|k;...cas|
|00004ac0| 65 20 4f 5f 53 4e 45 3a | 0d 09 09 20 20 20 20 63 |e O_SNE:|...    c|
|00004ad0| 6d 64 2d 3e 63 5f 66 6c | 61 67 73 20 7c 3d 20 43 |md->c_fl|ags |= C|
|00004ae0| 46 5f 46 49 52 53 54 4e | 45 47 3b 0d 09 09 20 20 |F_FIRSTN|EG;...  |
|00004af0| 20 20 2f 2a 20 46 41 4c | 4c 20 54 48 52 4f 55 47 |  /* FAL|L THROUG|
|00004b00| 48 20 2a 2f 0d 09 09 63 | 61 73 65 20 4f 5f 53 45 |H */...c|ase O_SE|
|00004b10| 51 3a 0d 09 09 20 20 20 | 20 73 75 72 65 20 7c 3d |Q:...   | sure |=|
|00004b20| 20 43 46 5f 4e 45 53 55 | 52 45 7c 43 46 5f 45 51 | CF_NESU|RE|CF_EQ|
|00004b30| 53 55 52 45 3b 0d 09 09 | 20 20 20 20 62 72 65 61 |SURE;...|    brea|
|00004b40| 6b 3b 0d 09 09 7d 0d 09 | 09 69 66 20 28 63 6f 6e |k;...}..|.if (con|
|00004b50| 74 65 78 74 20 26 20 31 | 29 20 7b 09 2f 2a 20 6f |text & 1|) {./* o|
|00004b60| 6e 6c 79 20 73 75 72 65 | 20 69 66 20 74 68 69 6e |nly sure| if thin|
|00004b70| 67 20 69 73 20 66 61 6c | 73 65 20 2a 2f 0d 09 09 |g is fal|se */...|
|00004b80| 20 20 20 20 69 66 20 28 | 63 6d 64 2d 3e 63 5f 66 |    if (|cmd->c_f|
|00004b90| 6c 61 67 73 20 26 20 43 | 46 5f 46 49 52 53 54 4e |lags & C|F_FIRSTN|
|00004ba0| 45 47 29 0d 09 09 09 73 | 75 72 65 20 26 3d 20 7e |EG)....s|ure &= ~|
|00004bb0| 43 46 5f 4e 45 53 55 52 | 45 3b 0d 09 09 20 20 20 |CF_NESUR|E;...   |
|00004bc0| 20 65 6c 73 65 0d 09 09 | 09 73 75 72 65 20 26 3d | else...|.sure &=|
|00004bd0| 20 7e 43 46 5f 45 51 53 | 55 52 45 3b 0d 09 09 7d | ~CF_EQS|URE;...}|
|00004be0| 0d 09 09 65 6c 73 65 20 | 69 66 20 28 63 6f 6e 74 |...else |if (cont|
|00004bf0| 65 78 74 20 26 20 32 29 | 20 7b 20 2f 2a 20 6f 6e |ext & 2)| { /* on|
|00004c00| 6c 79 20 73 75 72 65 20 | 69 66 20 74 68 69 6e 67 |ly sure |if thing|
|00004c10| 20 69 73 20 74 72 75 65 | 20 2a 2f 0d 09 09 20 20 | is true| */...  |
|00004c20| 20 20 69 66 20 28 63 6d | 64 2d 3e 63 5f 66 6c 61 |  if (cm|d->c_fla|
|00004c30| 67 73 20 26 20 43 46 5f | 46 49 52 53 54 4e 45 47 |gs & CF_|FIRSTNEG|
|00004c40| 29 0d 09 09 09 73 75 72 | 65 20 26 3d 20 7e 43 46 |)....sur|e &= ~CF|
|00004c50| 5f 45 51 53 55 52 45 3b | 0d 09 09 20 20 20 20 65 |_EQSURE;|...    e|
|00004c60| 6c 73 65 0d 09 09 09 73 | 75 72 65 20 26 3d 20 7e |lse....s|ure &= ~|
|00004c70| 43 46 5f 4e 45 53 55 52 | 45 3b 0d 09 09 7d 0d 09 |CF_NESUR|E;...}..|
|00004c80| 09 69 66 20 28 73 75 72 | 65 20 26 20 28 43 46 5f |.if (sur|e & (CF_|
|00004c90| 45 51 53 55 52 45 7c 43 | 46 5f 4e 45 53 55 52 45 |EQSURE|C|F_NESURE|
|00004ca0| 29 29 20 7b 0d 09 09 20 | 20 20 20 6f 70 74 20 3d |)) {... |   opt =|
|00004cb0| 20 43 46 54 5f 53 54 52 | 4f 50 3b 0d 09 09 20 20 | CFT_STR|OP;...  |
|00004cc0| 20 20 63 6d 64 2d 3e 63 | 5f 66 6c 61 67 73 20 7c |  cmd->c|_flags ||
|00004cd0| 3d 20 73 75 72 65 3b 0d | 09 09 7d 0d 09 20 20 20 |= sure;.|..}..   |
|00004ce0| 20 7d 0d 09 7d 0d 20 20 | 20 20 7d 0d 20 20 20 20 | }..}.  |  }.    |
|00004cf0| 65 6c 73 65 20 69 66 20 | 28 61 72 67 2d 3e 61 72 |else if |(arg->ar|
|00004d00| 67 5f 74 79 70 65 20 3d | 3d 20 4f 5f 45 51 20 7c |g_type =|= O_EQ ||
|00004d10| 7c 20 61 72 67 2d 3e 61 | 72 67 5f 74 79 70 65 20 || arg->a|rg_type |
|00004d20| 3d 3d 20 4f 5f 4e 45 20 | 7c 7c 0d 09 20 20 20 20 |== O_NE |||..    |
|00004d30| 20 61 72 67 2d 3e 61 72 | 67 5f 74 79 70 65 20 3d | arg->ar|g_type =|
|00004d40| 3d 20 4f 5f 4c 45 20 7c | 7c 20 61 72 67 2d 3e 61 |= O_LE ||| arg->a|
|00004d50| 72 67 5f 74 79 70 65 20 | 3d 3d 20 4f 5f 47 45 20 |rg_type |== O_GE |
|00004d60| 7c 7c 0d 09 20 20 20 20 | 20 61 72 67 2d 3e 61 72 |||..    | arg->ar|
|00004d70| 67 5f 74 79 70 65 20 3d | 3d 20 4f 5f 4c 54 20 7c |g_type =|= O_LT ||
|00004d80| 7c 20 61 72 67 2d 3e 61 | 72 67 5f 74 79 70 65 20 || arg->a|rg_type |
|00004d90| 3d 3d 20 4f 5f 47 54 29 | 20 7b 0d 09 69 66 20 28 |== O_GT)| {..if (|
|00004da0| 61 72 67 5b 31 5d 2e 61 | 72 67 5f 74 79 70 65 20 |arg[1].a|rg_type |
|00004db0| 3d 3d 20 41 5f 53 54 41 | 42 20 7c 7c 20 61 72 67 |== A_STA|B || arg|
|00004dc0| 5b 31 5d 2e 61 72 67 5f | 74 79 70 65 20 3d 3d 20 |[1].arg_|type == |
|00004dd0| 41 5f 4c 56 41 4c 29 20 | 7b 0d 09 20 20 20 20 69 |A_LVAL) |{..    i|
|00004de0| 66 20 28 61 72 67 5b 32 | 5d 2e 61 72 67 5f 74 79 |f (arg[2|].arg_ty|
|00004df0| 70 65 20 3d 3d 20 41 5f | 53 49 4e 47 4c 45 29 20 |pe == A_|SINGLE) |
|00004e00| 7b 0d 09 09 63 6d 64 2d | 3e 63 5f 73 74 61 62 20 |{...cmd-|>c_stab |
|00004e10| 20 3d 20 61 72 67 5b 31 | 5d 2e 61 72 67 5f 70 74 | = arg[1|].arg_pt|
|00004e20| 72 2e 61 72 67 5f 73 74 | 61 62 3b 0d 09 09 69 66 |r.arg_st|ab;...if|
|00004e30| 20 28 64 6f 77 61 72 6e | 29 20 7b 0d 09 09 20 20 | (dowarn|) {...  |
|00004e40| 20 20 53 54 52 20 2a 73 | 74 72 20 3d 20 61 72 67 |  STR *s|tr = arg|
|00004e50| 5b 32 5d 2e 61 72 67 5f | 70 74 72 2e 61 72 67 5f |[2].arg_|ptr.arg_|
|00004e60| 73 74 72 3b 0d 0d 09 09 | 20 20 20 20 69 66 20 28 |str;....|    if (|
|00004e70| 28 21 73 74 72 2d 3e 73 | 74 72 5f 6e 6f 6b 20 26 |(!str->s|tr_nok &|
|00004e80| 26 20 21 6c 6f 6f 6b 73 | 5f 6c 69 6b 65 5f 6e 75 |& !looks|_like_nu|
|00004e90| 6d 62 65 72 28 73 74 72 | 29 29 29 0d 09 09 09 77 |mber(str|)))....w|
|00004ea0| 61 72 6e 28 22 50 6f 73 | 73 69 62 6c 65 20 75 73 |arn("Pos|sible us|
|00004eb0| 65 20 6f 66 20 3d 3d 20 | 6f 6e 20 73 74 72 69 6e |e of == |on strin|
|00004ec0| 67 20 76 61 6c 75 65 22 | 29 3b 0d 09 09 7d 0d 09 |g value"|);...}..|
|00004ed0| 09 63 6d 64 2d 3e 63 5f | 73 68 6f 72 74 20 3d 20 |.cmd->c_|short = |
|00004ee0| 73 74 72 5f 6e 6d 61 6b | 65 28 73 74 72 5f 67 6e |str_nmak|e(str_gn|
|00004ef0| 75 6d 28 61 72 67 5b 32 | 5d 2e 61 72 67 5f 70 74 |um(arg[2|].arg_pt|
|00004f00| 72 2e 61 72 67 5f 73 74 | 72 29 29 3b 0d 09 09 63 |r.arg_st|r));...c|
|00004f10| 6d 64 2d 3e 63 5f 73 6c | 65 6e 20 3d 20 61 72 67 |md->c_sl|en = arg|
|00004f20| 2d 3e 61 72 67 5f 74 79 | 70 65 3b 0d 09 09 73 75 |->arg_ty|pe;...su|
|00004f30| 72 65 20 7c 3d 20 43 46 | 5f 4e 45 53 55 52 45 7c |re |= CF|_NESURE||
|00004f40| 43 46 5f 45 51 53 55 52 | 45 3b 0d 09 09 69 66 20 |CF_EQSUR|E;...if |
|00004f50| 28 63 6f 6e 74 65 78 74 | 20 26 20 31 29 20 7b 09 |(context| & 1) {.|
|00004f60| 2f 2a 20 6f 6e 6c 79 20 | 73 75 72 65 20 69 66 20 |/* only |sure if |
|00004f70| 74 68 69 6e 67 20 69 73 | 20 66 61 6c 73 65 20 2a |thing is| false *|
|00004f80| 2f 0d 09 09 20 20 20 20 | 73 75 72 65 20 26 3d 20 |/...    |sure &= |
|00004f90| 7e 43 46 5f 45 51 53 55 | 52 45 3b 0d 09 09 7d 0d |~CF_EQSU|RE;...}.|
|00004fa0| 09 09 65 6c 73 65 20 69 | 66 20 28 63 6f 6e 74 65 |..else i|f (conte|
|00004fb0| 78 74 20 26 20 32 29 20 | 7b 20 2f 2a 20 6f 6e 6c |xt & 2) |{ /* onl|
|00004fc0| 79 20 73 75 72 65 20 69 | 66 20 74 68 69 6e 67 20 |y sure i|f thing |
|00004fd0| 69 73 20 74 72 75 65 20 | 2a 2f 0d 09 09 20 20 20 |is true |*/...   |
|00004fe0| 20 73 75 72 65 20 26 3d | 20 7e 43 46 5f 4e 45 53 | sure &=| ~CF_NES|
|00004ff0| 55 52 45 3b 0d 09 09 7d | 0d 09 09 69 66 20 28 73 |URE;...}|...if (s|
|00005000| 75 72 65 20 26 20 28 43 | 46 5f 45 51 53 55 52 45 |ure & (C|F_EQSURE|
|00005010| 7c 43 46 5f 4e 45 53 55 | 52 45 29 29 20 7b 0d 09 ||CF_NESU|RE)) {..|
|00005020| 09 20 20 20 20 6f 70 74 | 20 3d 20 43 46 54 5f 4e |.    opt| = CFT_N|
|00005030| 55 4d 4f 50 3b 0d 09 09 | 20 20 20 20 63 6d 64 2d |UMOP;...|    cmd-|
|00005040| 3e 63 5f 66 6c 61 67 73 | 20 7c 3d 20 73 75 72 65 |>c_flags| |= sure|
|00005050| 3b 0d 09 09 7d 0d 09 20 | 20 20 20 7d 0d 09 7d 0d |;...}.. |   }..}.|
|00005060| 20 20 20 20 7d 0d 20 20 | 20 20 65 6c 73 65 20 69 |    }.  |  else i|
|00005070| 66 20 28 61 72 67 2d 3e | 61 72 67 5f 74 79 70 65 |f (arg->|arg_type|
|00005080| 20 3d 3d 20 4f 5f 41 53 | 53 49 47 4e 20 26 26 0d | == O_AS|SIGN &&.|
|00005090| 09 20 20 20 20 20 28 61 | 72 67 5b 31 5d 2e 61 72 |.     (a|rg[1].ar|
|000050a0| 67 5f 74 79 70 65 20 3d | 3d 20 41 5f 53 54 41 42 |g_type =|= A_STAB|
|000050b0| 20 7c 7c 20 61 72 67 5b | 31 5d 2e 61 72 67 5f 74 | || arg[|1].arg_t|
|000050c0| 79 70 65 20 3d 3d 20 41 | 5f 4c 56 41 4c 29 20 26 |ype == A|_LVAL) &|
|000050d0| 26 0d 09 20 20 20 20 20 | 61 72 67 5b 31 5d 2e 61 |&..     |arg[1].a|
|000050e0| 72 67 5f 70 74 72 2e 61 | 72 67 5f 73 74 61 62 20 |rg_ptr.a|rg_stab |
|000050f0| 3d 3d 20 64 65 66 73 74 | 61 62 20 26 26 0d 09 20 |== defst|ab &&.. |
|00005100| 20 20 20 20 61 72 67 5b | 32 5d 2e 61 72 67 5f 74 |    arg[|2].arg_t|
|00005110| 79 70 65 20 3d 3d 20 41 | 5f 45 58 50 52 20 29 20 |ype == A|_EXPR ) |
|00005120| 7b 0d 09 61 72 67 32 20 | 3d 20 61 72 67 5b 32 5d |{..arg2 |= arg[2]|
|00005130| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 61 72 67 |.arg_ptr|.arg_arg|
|00005140| 3b 0d 09 69 66 20 28 61 | 72 67 32 2d 3e 61 72 67 |;..if (a|rg2->arg|
|00005150| 5f 74 79 70 65 20 3d 3d | 20 4f 5f 49 54 45 4d 20 |_type ==| O_ITEM |
|00005160| 26 26 20 61 72 67 32 5b | 31 5d 2e 61 72 67 5f 74 |&& arg2[|1].arg_t|
|00005170| 79 70 65 20 3d 3d 20 41 | 5f 52 45 41 44 29 20 7b |ype == A|_READ) {|
|00005180| 0d 09 20 20 20 20 6f 70 | 74 20 3d 20 43 46 54 5f |..    op|t = CFT_|
|00005190| 47 45 54 53 3b 0d 09 20 | 20 20 20 63 6d 64 2d 3e |GETS;.. |   cmd->|
|000051a0| 63 5f 73 74 61 62 20 3d | 20 61 72 67 32 5b 31 5d |c_stab =| arg2[1]|
|000051b0| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 73 74 61 |.arg_ptr|.arg_sta|
|000051c0| 62 3b 0d 09 20 20 20 20 | 69 66 20 28 21 28 73 74 |b;..    |if (!(st|
|000051d0| 61 62 5f 69 6f 28 61 72 | 67 32 5b 31 5d 2e 61 72 |ab_io(ar|g2[1].ar|
|000051e0| 67 5f 70 74 72 2e 61 72 | 67 5f 73 74 61 62 29 2d |g_ptr.ar|g_stab)-|
|000051f0| 3e 66 6c 61 67 73 20 26 | 20 49 4f 46 5f 41 52 47 |>flags &| IOF_ARG|
|00005200| 56 29 29 20 7b 0d 09 09 | 66 72 65 65 5f 61 72 67 |V)) {...|free_arg|
|00005210| 28 61 72 67 32 29 3b 0d | 09 09 61 72 67 5b 32 5d |(arg2);.|..arg[2]|
|00005220| 2e 61 72 67 5f 70 74 72 | 2e 61 72 67 5f 61 72 67 |.arg_ptr|.arg_arg|
|00005230| 20 3d 20 4e 75 6c 6c 61 | 72 67 3b 0d 09 09 66 72 | = Nulla|rg;...fr|
|00005240| 65 65 5f 61 72 67 28 61 | 72 67 29 3b 0d 09 09 63 |ee_arg(a|rg);...c|
|00005250| 6d 64 2d 3e 63 5f 65 78 | 70 72 20 3d 20 4e 75 6c |md->c_ex|pr = Nul|
|00005260| 6c 61 72 67 3b 0d 09 20 | 20 20 20 7d 0d 09 7d 0d |larg;.. |   }..}.|
|00005270| 20 20 20 20 7d 0d 20 20 | 20 20 65 6c 73 65 20 69 |    }.  |  else i|
|00005280| 66 20 28 61 72 67 2d 3e | 61 72 67 5f 74 79 70 65 |f (arg->|arg_type|
|00005290| 20 3d 3d 20 4f 5f 43 48 | 4f 50 20 26 26 0d 09 20 | == O_CH|OP &&.. |
|000052a0| 20 20 20 20 28 61 72 67 | 5b 31 5d 2e 61 72 67 5f |    (arg|[1].arg_|
|000052b0| 74 79 70 65 20 3d 3d 20 | 41 5f 53 54 41 42 20 7c |type == |A_STAB ||
|000052c0| 7c 20 61 72 67 5b 31 5d | 2e 61 72 67 5f 74 79 70 || arg[1]|.arg_typ|
|000052d0| 65 20 3d 3d 20 41 5f 4c | 56 41 4c 29 20 29 20 7b |e == A_L|VAL) ) {|
|000052e0| 0d 09 6f 70 74 20 3d 20 | 43 46 54 5f 43 48 4f 50 |..opt = |CFT_CHOP|
|000052f0| 3b 0d 09 63 6d 64 2d 3e | 63 5f 73 74 61 62 20 3d |;..cmd->|c_stab =|
|00005300| 20 61 72 67 5b 31 5d 2e | 61 72 67 5f 70 74 72 2e | arg[1].|arg_ptr.|
|00005310| 61 72 67 5f 73 74 61 62 | 3b 0d 09 66 72 65 65 5f |arg_stab|;..free_|
|00005320| 61 72 67 28 61 72 67 29 | 3b 0d 09 63 6d 64 2d 3e |arg(arg)|;..cmd->|
|00005330| 63 5f 65 78 70 72 20 3d | 20 4e 75 6c 6c 61 72 67 |c_expr =| Nullarg|
|00005340| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 69 66 20 28 |;.    }.|    if (|
|00005350| 63 6f 6e 74 65 78 74 20 | 26 20 34 29 0d 09 6f 70 |context |& 4)..op|
|00005360| 74 20 7c 3d 20 43 46 5f | 46 4c 49 50 3b 0d 20 20 |t |= CF_|FLIP;.  |
|00005370| 20 20 63 6d 64 2d 3e 63 | 5f 66 6c 61 67 73 20 7c |  cmd->c|_flags ||
|00005380| 3d 20 6f 70 74 3b 0d 0d | 20 20 20 20 69 66 20 28 |= opt;..|    if (|
|00005390| 63 6d 64 2d 3e 63 5f 66 | 6c 61 67 73 20 26 20 43 |cmd->c_f|lags & C|
|000053a0| 46 5f 46 4c 49 50 29 20 | 7b 0d 09 69 66 20 28 66 |F_FLIP) |{..if (f|
|000053b0| 6c 69 70 6f 72 66 6c 6f | 70 20 3d 3d 20 31 29 20 |liporflo|p == 1) |
|000053c0| 7b 0d 09 20 20 20 20 61 | 72 67 20 3d 20 63 6d 64 |{..    a|rg = cmd|
|000053d0| 2d 3e 63 5f 65 78 70 72 | 3b 09 2f 2a 20 67 65 74 |->c_expr|;./* get|
|000053e0| 20 62 61 63 6b 20 74 6f | 20 4f 5f 46 4c 49 50 20 | back to| O_FLIP |
|000053f0| 61 72 67 20 2a 2f 0d 09 | 20 20 20 20 4e 65 77 28 |arg */..|    New(|
|00005400| 31 31 30 2c 61 72 67 5b | 33 5d 2e 61 72 67 5f 70 |110,arg[|3].arg_p|
|00005410| 74 72 2e 61 72 67 5f 63 | 6d 64 2c 20 31 2c 20 43 |tr.arg_c|md, 1, C|
|00005420| 4d 44 29 3b 0d 09 20 20 | 20 20 43 6f 70 79 28 63 |MD);..  |  Copy(c|
|00005430| 6d 64 2c 20 61 72 67 5b | 33 5d 2e 61 72 67 5f 70 |md, arg[|3].arg_p|
|00005440| 74 72 2e 61 72 67 5f 63 | 6d 64 2c 20 31 2c 20 43 |tr.arg_c|md, 1, C|
|00005450| 4d 44 29 3b 0d 09 20 20 | 20 20 4e 65 77 28 31 31 |MD);..  |  New(11|
|00005460| 31 2c 61 72 67 5b 34 5d | 2e 61 72 67 5f 70 74 72 |1,arg[4]|.arg_ptr|
|00005470| 2e 61 72 67 5f 63 6d 64 | 2c 31 2c 43 4d 44 29 3b |.arg_cmd|,1,CMD);|
|00005480| 0d 09 20 20 20 20 43 6f | 70 79 28 63 6d 64 2c 20 |..    Co|py(cmd, |
|00005490| 61 72 67 5b 34 5d 2e 61 | 72 67 5f 70 74 72 2e 61 |arg[4].a|rg_ptr.a|
|000054a0| 72 67 5f 63 6d 64 2c 20 | 31 2c 20 43 4d 44 29 3b |rg_cmd, |1, CMD);|
|000054b0| 0d 09 20 20 20 20 6f 70 | 74 5f 61 72 67 28 61 72 |..    op|t_arg(ar|
|000054c0| 67 5b 34 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[4].arg|_ptr.arg|
|000054d0| 5f 63 6d 64 2c 32 2c 61 | 63 6d 64 29 3b 0d 09 20 |_cmd,2,a|cmd);.. |
|000054e0| 20 20 20 61 72 67 2d 3e | 61 72 67 5f 6c 65 6e 20 |   arg->|arg_len |
|000054f0| 3d 20 32 3b 09 09 2f 2a | 20 74 68 69 73 20 69 73 |= 2;../*| this is|
|00005500| 20 61 20 6c 69 65 20 2a | 2f 0d 09 7d 0d 09 65 6c | a lie *|/..}..el|
|00005510| 73 65 20 7b 0d 09 20 20 | 20 20 69 66 20 28 28 6f |se {..  |  if ((o|
|00005520| 70 74 20 26 20 43 46 5f | 4f 50 54 49 4d 49 5a 45 |pt & CF_|OPTIMIZE|
|00005530| 29 20 3d 3d 20 43 46 54 | 5f 45 56 41 4c 29 0d 09 |) == CFT|_EVAL)..|
|00005540| 09 63 6d 64 2d 3e 63 5f | 66 6c 61 67 73 20 3d 20 |.cmd->c_|flags = |
|00005550| 28 63 6d 64 2d 3e 63 5f | 66 6c 61 67 73 20 26 20 |(cmd->c_|flags & |
|00005560| 7e 43 46 5f 4f 50 54 49 | 4d 49 5a 45 29 20 7c 20 |~CF_OPTI|MIZE) | |
|00005570| 43 46 54 5f 55 4e 46 4c | 49 50 3b 0d 09 7d 0d 20 |CFT_UNFL|IP;..}. |
|00005580| 20 20 20 7d 0d 7d 0d 0d | 43 4d 44 20 2a 0d 61 64 |   }.}..|CMD *.ad|
|00005590| 64 5f 6c 61 62 65 6c 28 | 6c 62 6c 2c 63 6d 64 29 |d_label(|lbl,cmd)|
|000055a0| 0d 63 68 61 72 20 2a 6c | 62 6c 3b 0d 72 65 67 69 |.char *l|bl;.regi|
|000055b0| 73 74 65 72 20 43 4d 44 | 20 2a 63 6d 64 3b 0d 7b |ster CMD| *cmd;.{|
|000055c0| 0d 20 20 20 20 69 66 20 | 28 63 6d 64 29 0d 09 63 |.    if |(cmd)..c|
|000055d0| 6d 64 2d 3e 63 5f 6c 61 | 62 65 6c 20 3d 20 6c 62 |md->c_la|bel = lb|
|000055e0| 6c 3b 0d 20 20 20 20 72 | 65 74 75 72 6e 20 63 6d |l;.    r|eturn cm|
|000055f0| 64 3b 0d 7d 0d 0d 43 4d | 44 20 2a 0d 61 64 64 63 |d;.}..CM|D *.addc|
|00005600| 6f 6e 64 28 63 6d 64 2c | 20 61 72 67 29 0d 72 65 |ond(cmd,| arg).re|
|00005610| 67 69 73 74 65 72 20 43 | 4d 44 20 2a 63 6d 64 3b |gister C|MD *cmd;|
|00005620| 0d 72 65 67 69 73 74 65 | 72 20 41 52 47 20 2a 61 |.registe|r ARG *a|
|00005630| 72 67 3b 0d 7b 0d 20 20 | 20 20 63 6d 64 2d 3e 63 |rg;.{.  |  cmd->c|
|00005640| 5f 65 78 70 72 20 3d 20 | 61 72 67 3b 0d 20 20 20 |_expr = |arg;.   |
|00005650| 20 63 6d 64 2d 3e 63 5f | 66 6c 61 67 73 20 7c 3d | cmd->c_|flags |=|
|00005660| 20 43 46 5f 43 4f 4e 44 | 3b 0d 20 20 20 20 72 65 | CF_COND|;.    re|
|00005670| 74 75 72 6e 20 63 6d 64 | 3b 0d 7d 0d 0d 43 4d 44 |turn cmd|;.}..CMD|
|00005680| 20 2a 0d 61 64 64 6c 6f | 6f 70 28 63 6d 64 2c 20 | *.addlo|op(cmd, |
|00005690| 61 72 67 29 0d 72 65 67 | 69 73 74 65 72 20 43 4d |arg).reg|ister CM|
|000056a0| 44 20 2a 63 6d 64 3b 0d | 72 65 67 69 73 74 65 72 |D *cmd;.|register|
|000056b0| 20 41 52 47 20 2a 61 72 | 67 3b 0d 7b 0d 20 20 20 | ARG *ar|g;.{.   |
|000056c0| 20 76 6f 69 64 20 77 68 | 69 6c 65 5f 69 6f 28 29 | void wh|ile_io()|
|000056d0| 3b 0d 0d 20 20 20 20 63 | 6d 64 2d 3e 63 5f 65 78 |;..    c|md->c_ex|
|000056e0| 70 72 20 3d 20 61 72 67 | 3b 0d 20 20 20 20 63 6d |pr = arg|;.    cm|
|000056f0| 64 2d 3e 63 5f 66 6c 61 | 67 73 20 7c 3d 20 43 46 |d->c_fla|gs |= CF|
|00005700| 5f 43 4f 4e 44 7c 43 46 | 5f 4c 4f 4f 50 3b 0d 0d |_COND|CF|_LOOP;..|
|00005710| 20 20 20 20 69 66 20 28 | 21 28 63 6d 64 2d 3e 63 |    if (|!(cmd->c|
|00005720| 5f 66 6c 61 67 73 20 26 | 20 43 46 5f 49 4e 56 45 |_flags &| CF_INVE|
|00005730| 52 54 29 29 0d 09 77 68 | 69 6c 65 5f 69 6f 28 63 |RT))..wh|ile_io(c|
|00005740| 6d 64 29 3b 09 09 2f 2a | 20 61 64 64 20 24 5f 20 |md);../*| add $_ |
|00005750| 3d 2c 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 20 |=, if ne|cessary |
|00005760| 2a 2f 0d 0d 20 20 20 20 | 69 66 20 28 63 6d 64 2d |*/..    |if (cmd-|
|00005770| 3e 63 5f 74 79 70 65 20 | 3d 3d 20 43 5f 42 4c 4f |>c_type |== C_BLO|
|00005780| 43 4b 29 0d 09 63 6d 64 | 2d 3e 63 5f 66 6c 61 67 |CK)..cmd|->c_flag|
|00005790| 73 20 26 3d 20 7e 43 46 | 5f 43 4f 4e 44 3b 0d 20 |s &= ~CF|_COND;. |
|000057a0| 20 20 20 65 6c 73 65 20 | 7b 0d 09 61 72 67 20 3d |   else |{..arg =|
|000057b0| 20 63 6d 64 2d 3e 75 63 | 6d 64 2e 61 63 6d 64 2e | cmd->uc|md.acmd.|
|000057c0| 61 63 5f 65 78 70 72 3b | 0d 09 69 66 20 28 61 72 |ac_expr;|..if (ar|
|000057d0| 67 20 26 26 20 61 72 67 | 2d 3e 61 72 67 5f 74 79 |g && arg|->arg_ty|
|000057e0| 70 65 20 3d 3d 20 4f 5f | 49 54 45 4d 20 26 26 20 |pe == O_|ITEM && |
|000057f0| 61 72 67 5b 31 5d 2e 61 | 72 67 5f 74 79 70 65 20 |arg[1].a|rg_type |
|00005800| 3d 3d 20 41 5f 43 4d 44 | 29 0d 09 20 20 20 20 63 |== A_CMD|)..    c|
|00005810| 6d 64 2d 3e 63 5f 66 6c | 61 67 73 20 26 3d 20 7e |md->c_fl|ags &= ~|
|00005820| 43 46 5f 43 4f 4e 44 3b | 20 20 2f 2a 20 22 64 6f |CF_COND;|  /* "do|
|00005830| 20 7b 7d 20 77 68 69 6c | 65 22 20 68 61 70 70 65 | {} whil|e" happe|
|00005840| 6e 73 20 61 74 20 6c 65 | 61 73 74 20 6f 6e 63 65 |ns at le|ast once|
|00005850| 20 2a 2f 0d 09 69 66 20 | 28 61 72 67 20 26 26 20 | */..if |(arg && |
|00005860| 28 61 72 67 2d 3e 61 72 | 67 5f 66 6c 61 67 73 20 |(arg->ar|g_flags |
|00005870| 26 20 41 46 5f 44 45 50 | 52 29 20 26 26 0d 09 20 |& AF_DEP|R) &&.. |
|00005880| 20 28 61 72 67 2d 3e 61 | 72 67 5f 74 79 70 65 20 | (arg->a|rg_type |
|00005890| 3d 3d 20 4f 5f 53 55 42 | 52 20 7c 7c 20 61 72 67 |== O_SUB|R || arg|
|000058a0| 2d 3e 61 72 67 5f 74 79 | 70 65 20 3d 3d 20 4f 5f |->arg_ty|pe == O_|
|000058b0| 44 42 53 55 42 52 29 20 | 29 0d 09 20 20 20 20 63 |DBSUBR) |)..    c|
|000058c0| 6d 64 2d 3e 63 5f 66 6c | 61 67 73 20 26 3d 20 7e |md->c_fl|ags &= ~|
|000058d0| 43 46 5f 43 4f 4e 44 3b | 20 20 2f 2a 20 6c 69 6b |CF_COND;|  /* lik|
|000058e0| 65 77 69 73 65 20 66 6f | 72 20 22 64 6f 20 73 75 |ewise fo|r "do su|
|000058f0| 62 72 28 29 20 77 68 69 | 6c 65 22 20 2a 2f 0d 20 |br() whi|le" */. |
|00005900| 20 20 20 7d 0d 20 20 20 | 20 72 65 74 75 72 6e 20 |   }.   | return |
|00005910| 63 6d 64 3b 0d 7d 0d 0d | 43 4d 44 20 2a 0d 69 6e |cmd;.}..|CMD *.in|
|00005920| 76 65 72 74 28 63 6d 64 | 29 0d 43 4d 44 20 2a 63 |vert(cmd|).CMD *c|
|00005930| 6d 64 3b 0d 7b 0d 20 20 | 20 20 72 65 67 69 73 74 |md;.{.  |  regist|
|00005940| 65 72 20 43 4d 44 20 2a | 74 61 72 67 20 3d 20 63 |er CMD *|targ = c|
|00005950| 6d 64 3b 0d 20 20 20 20 | 69 66 20 28 74 61 72 67 |md;.    |if (targ|
|00005960| 2d 3e 63 5f 68 65 61 64 | 29 0d 09 74 61 72 67 20 |->c_head|)..targ |
|00005970| 3d 20 74 61 72 67 2d 3e | 63 5f 68 65 61 64 3b 0d |= targ->|c_head;.|
|00005980| 20 20 20 20 69 66 20 28 | 74 61 72 67 2d 3e 63 5f |    if (|targ->c_|
|00005990| 66 6c 61 67 73 20 26 20 | 43 46 5f 44 42 53 55 42 |flags & |CF_DBSUB|
|000059a0| 29 0d 09 74 61 72 67 20 | 3d 20 74 61 72 67 2d 3e |)..targ |= targ->|
|000059b0| 63 5f 6e 65 78 74 3b 0d | 20 20 20 20 74 61 72 67 |c_next;.|    targ|
|000059c0| 2d 3e 63 5f 66 6c 61 67 | 73 20 5e 3d 20 43 46 5f |->c_flag|s ^= CF_|
|000059d0| 49 4e 56 45 52 54 3b 0d | 20 20 20 20 72 65 74 75 |INVERT;.|    retu|
|000059e0| 72 6e 20 63 6d 64 3b 0d | 7d 0d 0d 76 6f 69 64 0d |rn cmd;.|}..void.|
|000059f0| 63 70 79 37 62 69 74 28 | 64 2c 73 2c 6c 29 0d 72 |cpy7bit(|d,s,l).r|
|00005a00| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 2a 64 3b |egister |char *d;|
|00005a10| 0d 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a |.registe|r char *|
|00005a20| 73 3b 0d 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |s;.regis|ter int |
|00005a30| 6c 3b 0d 7b 0d 20 20 20 | 20 77 68 69 6c 65 20 28 |l;.{.   | while (|
|00005a40| 6c 2d 2d 29 0d 09 2a 64 | 2b 2b 20 3d 20 2a 73 2b |l--)..*d|++ = *s+|
|00005a50| 2b 20 26 20 31 32 37 3b | 0d 20 20 20 20 2a 64 20 |+ & 127;|.    *d |
|00005a60| 3d 20 27 5c 30 27 3b 0d | 7d 0d 0d 69 6e 74 0d 79 |= '\0';.|}..int.y|
|00005a70| 79 65 72 72 6f 72 28 73 | 29 0d 63 68 61 72 20 2a |yerror(s|).char *|
|00005a80| 73 3b 0d 7b 0d 20 20 20 | 20 63 68 61 72 20 74 6d |s;.{.   | char tm|
|00005a90| 70 62 75 66 5b 32 35 38 | 5d 3b 0d 20 20 20 20 63 |pbuf[258|];.    c|
|00005aa0| 68 61 72 20 74 6d 70 32 | 62 75 66 5b 32 35 38 5d |har tmp2|buf[258]|
|00005ab0| 3b 0d 20 20 20 20 63 68 | 61 72 20 2a 74 6e 61 6d |;.    ch|ar *tnam|
|00005ac0| 65 20 3d 20 74 6d 70 62 | 75 66 3b 0d 0d 20 20 20 |e = tmpb|uf;..   |
|00005ad0| 20 69 66 20 28 62 75 66 | 70 74 72 20 3e 20 6f 6c | if (buf|ptr > ol|
|00005ae0| 64 6f 6c 64 62 75 66 70 | 74 72 20 26 26 20 62 75 |doldbufp|tr && bu|
|00005af0| 66 70 74 72 20 2d 20 6f | 6c 64 6f 6c 64 62 75 66 |fptr - o|ldoldbuf|
|00005b00| 70 74 72 20 3c 20 32 30 | 30 20 26 26 0d 20 20 20 |ptr < 20|0 &&.   |
|00005b10| 20 20 20 6f 6c 64 6f 6c | 64 62 75 66 70 74 72 20 |   oldol|dbufptr |
|00005b20| 21 3d 20 6f 6c 64 62 75 | 66 70 74 72 20 26 26 20 |!= oldbu|fptr && |
|00005b30| 6f 6c 64 62 75 66 70 74 | 72 20 21 3d 20 62 75 66 |oldbufpt|r != buf|
|00005b40| 70 74 72 29 20 7b 0d 09 | 77 68 69 6c 65 20 28 69 |ptr) {..|while (i|
|00005b50| 73 53 50 41 43 45 28 2a | 6f 6c 64 6f 6c 64 62 75 |sSPACE(*|oldoldbu|
|00005b60| 66 70 74 72 29 29 0d 09 | 20 20 20 20 6f 6c 64 6f |fptr))..|    oldo|
|00005b70| 6c 64 62 75 66 70 74 72 | 2b 2b 3b 0d 09 63 70 79 |ldbufptr|++;..cpy|
|00005b80| 37 62 69 74 28 74 6d 70 | 32 62 75 66 2c 20 6f 6c |7bit(tmp|2buf, ol|
|00005b90| 64 6f 6c 64 62 75 66 70 | 74 72 2c 20 62 75 66 70 |doldbufp|tr, bufp|
|00005ba0| 74 72 20 2d 20 6f 6c 64 | 6f 6c 64 62 75 66 70 74 |tr - old|oldbufpt|
|00005bb0| 72 29 3b 0d 09 73 70 72 | 69 6e 74 66 28 74 6e 61 |r);..spr|intf(tna|
|00005bc0| 6d 65 2c 22 6e 65 78 74 | 20 32 20 74 6f 6b 65 6e |me,"next| 2 token|
|00005bd0| 73 20 5c 22 25 73 5c 22 | 22 2c 74 6d 70 32 62 75 |s \"%s\"|",tmp2bu|
|00005be0| 66 29 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 65 6c |f);.    |}.    el|
|00005bf0| 73 65 20 69 66 20 28 62 | 75 66 70 74 72 20 3e 20 |se if (b|ufptr > |
|00005c00| 6f 6c 64 62 75 66 70 74 | 72 20 26 26 20 62 75 66 |oldbufpt|r && buf|
|00005c10| 70 74 72 20 2d 20 6f 6c | 64 62 75 66 70 74 72 20 |ptr - ol|dbufptr |
|00005c20| 3c 20 32 30 30 20 26 26 | 0d 20 20 20 20 20 20 6f |< 200 &&|.      o|
|00005c30| 6c 64 62 75 66 70 74 72 | 20 21 3d 20 62 75 66 70 |ldbufptr| != bufp|
|00005c40| 74 72 29 20 7b 0d 09 77 | 68 69 6c 65 20 28 69 73 |tr) {..w|hile (is|
|00005c50| 53 50 41 43 45 28 2a 6f | 6c 64 62 75 66 70 74 72 |SPACE(*o|ldbufptr|
|00005c60| 29 29 0d 09 20 20 20 20 | 6f 6c 64 62 75 66 70 74 |))..    |oldbufpt|
|00005c70| 72 2b 2b 3b 0d 09 63 70 | 79 37 62 69 74 28 74 6d |r++;..cp|y7bit(tm|
|00005c80| 70 32 62 75 66 2c 20 6f | 6c 64 62 75 66 70 74 72 |p2buf, o|ldbufptr|
|00005c90| 2c 20 62 75 66 70 74 72 | 20 2d 20 6f 6c 64 62 75 |, bufptr| - oldbu|
|00005ca0| 66 70 74 72 29 3b 0d 09 | 73 70 72 69 6e 74 66 28 |fptr);..|sprintf(|
|00005cb0| 74 6e 61 6d 65 2c 22 6e | 65 78 74 20 74 6f 6b 65 |tname,"n|ext toke|
|00005cc0| 6e 20 5c 22 25 73 5c 22 | 22 2c 74 6d 70 32 62 75 |n \"%s\"|",tmp2bu|
|00005cd0| 66 29 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 65 6c |f);.    |}.    el|
|00005ce0| 73 65 20 69 66 20 28 79 | 79 63 68 61 72 20 3e 20 |se if (y|ychar > |
|00005cf0| 32 35 36 29 0d 09 74 6e | 61 6d 65 20 3d 20 22 6e |256)..tn|ame = "n|
|00005d00| 65 78 74 20 74 6f 6b 65 | 6e 20 3f 3f 3f 22 3b 0d |ext toke|n ???";.|
|00005d10| 20 20 20 20 65 6c 73 65 | 20 69 66 20 28 21 79 79 |    else| if (!yy|
|00005d20| 63 68 61 72 29 0d 09 28 | 76 6f 69 64 29 73 74 72 |char)..(|void)str|
|00005d30| 63 70 79 28 74 6e 61 6d | 65 2c 22 61 74 20 45 4f |cpy(tnam|e,"at EO|
|00005d40| 46 22 29 3b 0d 20 20 20 | 20 65 6c 73 65 20 69 66 |F");.   | else if|
|00005d50| 20 28 79 79 63 68 61 72 | 20 3c 20 33 32 29 0d 09 | (yychar| < 32)..|
|00005d60| 28 76 6f 69 64 29 73 70 | 72 69 6e 74 66 28 74 6e |(void)sp|rintf(tn|
|00005d70| 61 6d 65 2c 22 6e 65 78 | 74 20 63 68 61 72 20 5e |ame,"nex|t char ^|
|00005d80| 25 63 22 2c 79 79 63 68 | 61 72 2b 36 34 29 3b 0d |%c",yych|ar+64);.|
|00005d90| 20 20 20 20 65 6c 73 65 | 20 69 66 20 28 79 79 63 |    else| if (yyc|
|00005da0| 68 61 72 20 3d 3d 20 31 | 32 37 29 0d 09 28 76 6f |har == 1|27)..(vo|
|00005db0| 69 64 29 73 74 72 63 70 | 79 28 74 6e 61 6d 65 2c |id)strcp|y(tname,|
|00005dc0| 22 61 74 20 45 4f 46 22 | 29 3b 0d 20 20 20 20 65 |"at EOF"|);.    e|
|00005dd0| 6c 73 65 0d 09 28 76 6f | 69 64 29 73 70 72 69 6e |lse..(vo|id)sprin|
|00005de0| 74 66 28 74 6e 61 6d 65 | 2c 22 6e 65 78 74 20 63 |tf(tname|,"next c|
|00005df0| 68 61 72 20 25 63 22 2c | 79 79 63 68 61 72 29 3b |har %c",|yychar);|
|00005e00| 0d 23 69 66 64 65 66 20 | 6d 61 63 69 6e 74 6f 73 |.#ifdef |macintos|
|00005e10| 68 0d 20 20 20 20 28 76 | 6f 69 64 29 73 70 72 69 |h.    (v|oid)spri|
|00005e20| 6e 74 66 28 62 75 66 2c | 20 22 23 20 25 73 2c 20 |ntf(buf,| "# %s, |
|00005e30| 25 73 5c 6e 22 2c 20 73 | 2c 20 74 6e 61 6d 65 29 |%s\n", s|, tname)|
|00005e40| 3b 0d 20 20 20 20 69 66 | 20 28 63 75 72 63 6d 64 |;.    if| (curcmd|
|00005e50| 2d 3e 63 5f 6c 69 6e 65 | 20 3d 3d 20 6d 75 6c 74 |->c_line| == mult|
|00005e60| 69 5f 65 6e 64 20 26 26 | 20 6d 75 6c 74 69 5f 73 |i_end &&| multi_s|
|00005e70| 74 61 72 74 20 3c 20 6d | 75 6c 74 69 5f 65 6e 64 |tart < m|ulti_end|
|00005e80| 29 0d 09 73 70 72 69 6e | 74 66 28 62 75 66 2b 73 |)..sprin|tf(buf+s|
|00005e90| 74 72 6c 65 6e 28 62 75 | 66 29 2c 0d 09 20 20 22 |trlen(bu|f),..  "|
|00005ea0| 23 20 20 28 4d 69 67 68 | 74 20 62 65 20 61 20 72 |#  (Migh|t be a r|
|00005eb0| 75 6e 61 77 61 79 20 6d | 75 6c 74 69 2d 6c 69 6e |unaway m|ulti-lin|
|00005ec0| 65 20 25 63 25 63 20 73 | 74 72 69 6e 67 20 73 74 |e %c%c s|tring st|
|00005ed0| 61 72 74 69 6e 67 20 6f | 6e 20 6c 69 6e 65 20 25 |arting o|n line %|
|00005ee0| 64 29 5c 6e 22 2c 0d 09 | 20 20 6d 75 6c 74 69 5f |d)\n",..|  multi_|
|00005ef0| 6f 70 65 6e 2c 6d 75 6c | 74 69 5f 63 6c 6f 73 65 |open,mul|ti_close|
|00005f00| 2c 6d 75 6c 74 69 5f 73 | 74 61 72 74 29 3b 0d 20 |,multi_s|tart);. |
|00005f10| 20 20 20 28 76 6f 69 64 | 29 73 70 72 69 6e 74 66 |   (void|)sprintf|
|00005f20| 28 62 75 66 2b 73 74 72 | 6c 65 6e 28 62 75 66 29 |(buf+str|len(buf)|
|00005f30| 2c 0d 09 20 20 22 46 69 | 6c 65 20 25 73 3b 20 4c |,..  "Fi|le %s; L|
|00005f40| 69 6e 65 20 25 64 5c 6e | 22 2c 0d 09 20 20 73 74 |ine %d\n|",..  st|
|00005f50| 61 62 5f 76 61 6c 28 63 | 75 72 63 6d 64 2d 3e 63 |ab_val(c|urcmd->c|
|00005f60| 5f 66 69 6c 65 73 74 61 | 62 29 2d 3e 73 74 72 5f |_filesta|b)->str_|
|00005f70| 70 74 72 2c 63 75 72 63 | 6d 64 2d 3e 63 5f 6c 69 |ptr,curc|md->c_li|
|00005f80| 6e 65 29 3b 0d 23 65 6c | 73 65 0d 20 20 20 20 28 |ne);.#el|se.    (|
|00005f90| 76 6f 69 64 29 73 70 72 | 69 6e 74 66 28 62 75 66 |void)spr|intf(buf|
|00005fa0| 2c 20 22 25 73 20 69 6e | 20 66 69 6c 65 20 25 73 |, "%s in| file %s|
|00005fb0| 20 61 74 20 6c 69 6e 65 | 20 25 64 2c 20 25 73 5c | at line| %d, %s\|
|00005fc0| 6e 22 2c 0d 20 20 20 20 | 20 20 73 2c 73 74 61 62 |n",.    |  s,stab|
|00005fd0| 5f 76 61 6c 28 63 75 72 | 63 6d 64 2d 3e 63 5f 66 |_val(cur|cmd->c_f|
|00005fe0| 69 6c 65 73 74 61 62 29 | 2d 3e 73 74 72 5f 70 74 |ilestab)|->str_pt|
|00005ff0| 72 2c 63 75 72 63 6d 64 | 2d 3e 63 5f 6c 69 6e 65 |r,curcmd|->c_line|
|00006000| 2c 74 6e 61 6d 65 29 3b | 0d 20 20 20 20 69 66 20 |,tname);|.    if |
|00006010| 28 63 75 72 63 6d 64 2d | 3e 63 5f 6c 69 6e 65 20 |(curcmd-|>c_line |
|00006020| 3d 3d 20 6d 75 6c 74 69 | 5f 65 6e 64 20 26 26 20 |== multi|_end && |
|00006030| 6d 75 6c 74 69 5f 73 74 | 61 72 74 20 3c 20 6d 75 |multi_st|art < mu|
|00006040| 6c 74 69 5f 65 6e 64 29 | 0d 09 73 70 72 69 6e 74 |lti_end)|..sprint|
|00006050| 66 28 62 75 66 2b 73 74 | 72 6c 65 6e 28 62 75 66 |f(buf+st|rlen(buf|
|00006060| 29 2c 0d 09 20 20 22 20 | 20 28 4d 69 67 68 74 20 |),..  " | (Might |
|00006070| 62 65 20 61 20 72 75 6e | 61 77 61 79 20 6d 75 6c |be a run|away mul|
|00006080| 74 69 2d 6c 69 6e 65 20 | 25 63 25 63 20 73 74 72 |ti-line |%c%c str|
|00006090| 69 6e 67 20 73 74 61 72 | 74 69 6e 67 20 6f 6e 20 |ing star|ting on |
|000060a0| 6c 69 6e 65 20 25 64 29 | 5c 6e 22 2c 0d 09 20 20 |line %d)|\n",..  |
|000060b0| 6d 75 6c 74 69 5f 6f 70 | 65 6e 2c 6d 75 6c 74 69 |multi_op|en,multi|
|000060c0| 5f 63 6c 6f 73 65 2c 6d | 75 6c 74 69 5f 73 74 61 |_close,m|ulti_sta|
|000060d0| 72 74 29 3b 0d 23 65 6e | 64 69 66 0d 20 20 20 20 |rt);.#en|dif.    |
|000060e0| 69 66 20 28 69 6e 5f 65 | 76 61 6c 29 0d 09 73 74 |if (in_e|val)..st|
|000060f0| 72 5f 63 61 74 28 73 74 | 61 62 5f 76 61 6c 28 73 |r_cat(st|ab_val(s|
|00006100| 74 61 62 65 6e 74 28 22 | 40 22 2c 54 52 55 45 29 |tabent("|@",TRUE)|
|00006110| 29 2c 62 75 66 29 3b 0d | 20 20 20 20 65 6c 73 65 |),buf);.|    else|
|00006120| 0d 09 66 70 75 74 73 28 | 62 75 66 2c 73 74 64 65 |..fputs(|buf,stde|
|00006130| 72 72 29 3b 0d 20 20 20 | 20 69 66 20 28 2b 2b 65 |rr);.   | if (++e|
|00006140| 72 72 6f 72 5f 63 6f 75 | 6e 74 20 3e 3d 20 31 30 |rror_cou|nt >= 10|
|00006150| 29 0d 09 66 61 74 61 6c | 28 22 25 73 20 68 61 73 |)..fatal|("%s has|
|00006160| 20 74 6f 6f 20 6d 61 6e | 79 20 65 72 72 6f 72 73 | too man|y errors|
|00006170| 2e 5c 6e 22 2c 0d 09 73 | 74 61 62 5f 76 61 6c 28 |.\n",..s|tab_val(|
|00006180| 63 75 72 63 6d 64 2d 3e | 63 5f 66 69 6c 65 73 74 |curcmd->|c_filest|
|00006190| 61 62 29 2d 3e 73 74 72 | 5f 70 74 72 29 3b 0d 7d |ab)->str|_ptr);.}|
|000061a0| 0d 0d 76 6f 69 64 0d 77 | 68 69 6c 65 5f 69 6f 28 |..void.w|hile_io(|
|000061b0| 63 6d 64 29 0d 72 65 67 | 69 73 74 65 72 20 43 4d |cmd).reg|ister CM|
|000061c0| 44 20 2a 63 6d 64 3b 0d | 7b 0d 20 20 20 20 72 65 |D *cmd;.|{.    re|
|000061d0| 67 69 73 74 65 72 20 41 | 52 47 20 2a 61 72 67 20 |gister A|RG *arg |
|000061e0| 3d 20 63 6d 64 2d 3e 63 | 5f 65 78 70 72 3b 0d 20 |= cmd->c|_expr;. |
|000061f0| 20 20 20 53 54 41 42 20 | 2a 61 73 67 6e 73 74 61 |   STAB |*asgnsta|
|00006200| 62 3b 0d 0d 20 20 20 20 | 2f 2a 20 68 6f 69 73 74 |b;..    |/* hoist|
|00006210| 20 22 77 68 69 6c 65 20 | 28 3c 63 68 61 6e 6e 65 | "while |(<channe|
|00006220| 6c 3e 29 22 20 75 70 20 | 69 6e 74 6f 20 63 6f 6d |l>)" up |into com|
|00006230| 6d 61 6e 64 20 62 6c 6f | 63 6b 20 2a 2f 0d 0d 20 |mand blo|ck */.. |
|00006240| 20 20 20 69 66 20 28 61 | 72 67 20 26 26 20 61 72 |   if (a|rg && ar|
|00006250| 67 2d 3e 61 72 67 5f 74 | 79 70 65 20 3d 3d 20 4f |g->arg_t|ype == O|
|00006260| 5f 49 54 45 4d 20 26 26 | 20 61 72 67 5b 31 5d 2e |_ITEM &&| arg[1].|
|00006270| 61 72 67 5f 74 79 70 65 | 20 3d 3d 20 41 5f 52 45 |arg_type| == A_RE|
|00006280| 41 44 29 20 7b 0d 09 63 | 6d 64 2d 3e 63 5f 66 6c |AD) {..c|md->c_fl|
|00006290| 61 67 73 20 26 3d 20 7e | 43 46 5f 4f 50 54 49 4d |ags &= ~|CF_OPTIM|
|000062a0| 49 5a 45 3b 09 2f 2a 20 | 63 6c 65 61 72 20 6f 70 |IZE;./* |clear op|
|000062b0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 74 79 70 65 20 |timizati|on type |
|000062c0| 2a 2f 0d 09 63 6d 64 2d | 3e 63 5f 66 6c 61 67 73 |*/..cmd-|>c_flags|
|000062d0| 20 7c 3d 20 43 46 54 5f | 47 45 54 53 3b 09 2f 2a | |= CFT_|GETS;./*|
|000062e0| 20 61 6e 64 20 73 65 74 | 20 69 74 20 74 6f 20 64 | and set| it to d|
|000062f0| 6f 20 74 68 65 20 69 6e | 70 75 74 20 2a 2f 0d 09 |o the in|put */..|
|00006300| 63 6d 64 2d 3e 63 5f 73 | 74 61 62 20 3d 20 61 72 |cmd->c_s|tab = ar|
|00006310| 67 5b 31 5d 2e 61 72 67 | 5f 70 74 72 2e 61 72 67 |g[1].arg|_ptr.arg|
|00006320| 5f 73 74 61 62 3b 0d 09 | 69 66 20 28 73 74 61 62 |_stab;..|if (stab|
|00006330| 5f 69 6f 28 61 72 67 5b | 31 5d 2e 61 72 67 5f 70 |_io(arg[|1].arg_p|
|00006340| 74 72 2e 61 72 67 5f 73 | 74 61 62 29 2d 3e 66 6c |tr.arg_s|tab)->fl|
|00006350| 61 67 73 20 26 20 49 4f | 46 5f 41 52 47 56 29 20 |ags & IO|F_ARGV) |
|00006360| 7b 0d 09 20 20 20 20 63 | 6d 64 2d 3e 63 5f 65 78 |{..    c|md->c_ex|
|00006370| 70 72 20 3d 20 6c 28 6d | 61 6b 65 5f 6f 70 28 4f |pr = l(m|ake_op(O|
|00006380| 5f 41 53 53 49 47 4e 2c | 20 32 2c 09 2f 2a 20 66 |_ASSIGN,| 2,./* f|
|00006390| 61 6b 65 20 75 70 20 22 | 24 5f 20 3d 22 20 2a 2f |ake up "|$_ =" */|
|000063a0| 0d 09 20 20 20 20 20 20 | 20 73 74 61 62 32 61 72 |..      | stab2ar|
|000063b0| 67 28 41 5f 4c 56 41 4c | 2c 64 65 66 73 74 61 62 |g(A_LVAL|,defstab|
|000063c0| 29 2c 20 61 72 67 2c 20 | 4e 75 6c 6c 61 72 67 29 |), arg, |Nullarg)|
|000063d0| 29 3b 0d 09 7d 0d 09 65 | 6c 73 65 20 7b 0d 09 20 |);..}..e|lse {.. |
|000063e0| 20 20 20 66 72 65 65 5f | 61 72 67 28 61 72 67 29 |   free_|arg(arg)|
|000063f0| 3b 0d 09 20 20 20 20 63 | 6d 64 2d 3e 63 5f 65 78 |;..    c|md->c_ex|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.