/ APDL Public Domain 1 / APDL_PD1A.iso / textutil / tex / source / tex_extra / !TeX / Misc / LaTeX / doc / ifthen

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 49 46 54 48 45 4e | 20 44 4f 43 55 4d 45 4e |% IFTHEN| DOCUMEN|
|00000010| 54 2d 53 54 59 4c 45 20 | 4f 50 54 49 4f 4e 20 2d |T-STYLE |OPTION -|
|00000020| 20 72 65 6c 65 61 73 65 | 64 20 31 36 20 4a 75 6e | release|d 16 Jun|
|00000030| 65 20 31 39 39 31 0a 25 | 20 20 20 20 66 6f 72 20 |e 1991.%|    for |
|00000040| 4c 61 54 65 58 20 76 65 | 72 73 69 6f 6e 20 32 2e |LaTeX ve|rsion 2.|
|00000050| 30 39 0a 25 20 43 6f 70 | 79 72 69 67 68 74 20 28 |09.% Cop|yright (|
|00000060| 43 29 20 31 39 39 31 20 | 62 79 20 4c 65 73 6c 69 |C) 1991 |by Lesli|
|00000070| 65 20 4c 61 6d 70 6f 72 | 74 0a 0a 5c 74 79 70 65 |e Lampor|t..\type|
|00000080| 6f 75 74 7b 44 6f 63 75 | 6d 65 6e 74 20 53 74 79 |out{Docu|ment Sty|
|00000090| 6c 65 20 4f 70 74 69 6f | 6e 20 27 69 66 74 68 65 |le Optio|n 'ifthe|
|000000a0| 6e 27 20 2d 2d 20 52 65 | 6c 65 61 73 65 64 20 31 |n' -- Re|leased 1|
|000000b0| 36 20 4a 75 6e 65 20 31 | 39 39 31 2e 7d 0a 0a 25 |6 June 1|991.}..%|
|000000c0| 20 5c 69 66 74 68 65 6e | 65 6c 73 65 7b 54 45 53 | \ifthen|else{TES|
|000000d0| 54 7d 7b 54 48 45 4e 43 | 4c 41 55 53 45 7d 7b 45 |T}{THENC|LAUSE}{E|
|000000e0| 4c 53 45 43 4c 41 55 53 | 45 7d 0a 25 20 20 20 20 |LSECLAUS|E}.%    |
|000000f0| 41 6e 20 69 66 2d 74 68 | 65 6e 2d 65 6c 73 65 20 |An if-th|en-else |
|00000100| 63 6f 6d 6d 61 6e 64 20 | 77 68 65 72 65 0a 25 20 |command |where.% |
|00000110| 20 20 20 20 20 20 20 54 | 45 53 54 20 3d 3d 20 5c |       T|EST == \|
|00000120| 65 71 75 61 6c 7b 53 54 | 52 49 4e 47 7d 7b 53 54 |equal{ST|RING}{ST|
|00000130| 52 49 4e 47 7d 0a 25 20 | 20 20 20 20 20 20 20 20 |RING}.% |        |
|00000140| 20 20 20 20 20 20 20 6e | 75 6d 62 65 72 20 3c 20 |       n|umber < |
|00000150| 6e 75 6d 62 65 72 20 7c | 20 6e 75 6d 62 65 72 20 |number || number |
|00000160| 3d 20 6e 75 6d 62 65 72 | 20 7c 20 6e 75 6d 62 65 |= number| | numbe|
|00000170| 72 20 3e 20 6e 75 6d 62 | 65 72 20 7c 0a 25 20 20 |r > numb|er |.%  |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 28 |        |      \(|
|00000190| 54 45 53 54 5c 29 20 7c | 20 5c 6e 6f 74 20 54 45 |TEST\) || \not TE|
|000001a0| 53 54 20 7c 20 54 45 53 | 54 20 5c 6f 72 20 54 45 |ST | TES|T \or TE|
|000001b0| 53 54 20 7c 20 54 45 53 | 54 20 5c 61 6e 64 20 54 |ST | TES|T \and T|
|000001c0| 45 53 54 0a 25 20 20 20 | 20 77 69 74 68 20 5c 6f |EST.%   | with \o|
|000001d0| 72 2c 20 5c 61 6e 64 20 | 61 6e 64 20 5c 6e 6f 74 |r, \and |and \not|
|000001e0| 20 64 65 6e 6f 74 69 6e | 67 20 74 68 65 20 6f 62 | denotin|g the ob|
|000001f0| 76 69 6f 75 73 20 6c 6f | 67 69 63 61 6c 20 6f 70 |vious lo|gical op|
|00000200| 65 72 61 74 6f 72 73 2c | 0a 25 20 20 20 20 5c 28 |erators,|.%    \(|
|00000210| 20 61 6e 64 20 5c 29 20 | 61 73 20 70 61 72 65 6e | and \) |as paren|
|00000220| 74 68 65 73 65 73 2c 20 | 61 6e 64 20 5c 65 71 75 |theses, |and \equ|
|00000230| 61 6c 20 74 65 73 74 69 | 6e 67 20 65 71 75 61 6c |al testi|ng equal|
|00000240| 69 74 79 20 6f 66 20 73 | 74 72 69 6e 67 73 2e 0a |ity of s|trings..|
|00000250| 25 0a 25 20 20 5c 65 71 | 75 61 6c 7b 53 54 52 49 |%.%  \eq|ual{STRI|
|00000260| 4e 47 7d 7b 53 54 52 49 | 4e 47 7d 0a 25 20 20 20 |NG}{STRI|NG}.%   |
|00000270| 20 20 54 65 73 74 73 20 | 69 66 20 74 68 65 20 74 |  Tests |if the t|
|00000280| 77 6f 20 61 72 67 75 6d | 65 6e 74 73 20 61 72 65 |wo argum|ents are|
|00000290| 20 65 71 75 61 6c 2c 20 | 61 66 74 65 72 20 61 6c | equal, |after al|
|000002a0| 6c 20 6d 61 63 72 6f 73 | 20 61 72 65 20 65 78 70 |l macros| are exp|
|000002b0| 61 6e 64 65 64 2e 0a 25 | 20 20 20 20 20 45 2e 67 |anded..%|     E.g|
|000002c0| 2e 3a 20 5c 64 65 66 5c | 66 6f 6f 7b 62 61 72 7d |.: \def\|foo{bar}|
|000002d0| 20 20 2e 2e 2e 20 63 61 | 75 73 65 73 20 5c 65 71 |  ... ca|uses \eq|
|000002e0| 75 61 6c 7b 5c 66 6f 6f | 7d 7b 62 61 72 7d 20 74 |ual{\foo|}{bar} t|
|000002f0| 6f 20 65 76 61 6c 75 61 | 74 65 20 74 6f 20 60 74 |o evalua|te to `t|
|00000300| 72 75 65 27 0a 25 0a 25 | 20 5c 77 68 69 6c 65 64 |rue'.%.%| \whiled|
|00000310| 6f 7b 54 45 53 54 7d 7b | 44 4f 2d 43 4c 41 55 53 |o{TEST}{|DO-CLAUS|
|00000320| 45 7d 0a 25 20 20 20 20 | 20 41 20 77 68 69 6c 65 |E}.%    | A while|
|00000330| 2d 64 6f 20 63 6f 6e 73 | 74 72 75 63 74 69 6f 6e |-do cons|truction|
|00000340| 2c 20 77 69 74 68 20 54 | 45 53 54 20 74 68 65 20 |, with T|EST the |
|00000350| 73 61 6d 65 20 61 73 20 | 61 62 6f 76 65 2e 0a 25 |same as |above..%|
|00000360| 0a 25 20 5c 69 66 74 68 | 65 6e 65 6c 73 65 7b 54 |.% \ifth|enelse{T|
|00000370| 45 53 54 7d 7b 54 48 45 | 4e 2d 43 4c 41 55 53 45 |EST}{THE|N-CLAUSE|
|00000380| 7d 7b 45 4c 53 45 2d 43 | 4c 41 55 53 45 7d 20 3d |}{ELSE-C|LAUSE} =|
|00000390| 3d 0a 25 20 20 20 42 45 | 47 49 4e 0a 25 20 20 20 |=.%   BE|GIN.%   |
|000003a0| 20 5c 40 74 65 6d 70 62 | 6f 78 61 20 3a 3d 20 5c | \@tempb|oxa := \|
|000003b0| 76 62 6f 78 7b 20 5c 70 | 72 6f 74 65 63 74 20 3a |vbox{ \p|rotect :|
|000003c0| 3d 20 5c 6e 6f 65 78 70 | 61 6e 64 0a 25 20 20 20 |= \noexp|and.%   |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003e0| 20 20 20 20 20 20 5c 6f | 72 20 20 3a 3d 20 5c 40 |      \o|r  := \@|
|000003f0| 6f 72 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |or.%    |        |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 61 6e |        |     \an|
|00000410| 64 20 3a 3d 20 5c 40 61 | 6e 64 0a 25 20 20 20 20 |d := \@a|nd.%    |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000430| 20 20 20 20 20 5c 6e 6f | 74 20 3a 3d 20 5c 40 6e |     \no|t := \@n|
|00000440| 65 67 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |eg.%    |        |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 28 20 |        |     \( |
|00000460| 20 20 3a 3d 20 5c 40 6c | 70 61 72 65 6e 0a 25 20 |  := \@l|paren.% |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000480| 20 20 20 20 20 20 20 20 | 5c 29 20 20 20 3a 3d 20 |        |\)   := |
|00000490| 5c 40 72 70 61 72 65 6e | 0a 25 20 20 20 20 20 20 |\@rparen|.%      |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004b0| 20 20 20 5c 40 65 76 61 | 6c 20 5c 69 66 6e 75 6d |   \@eva|l \ifnum|
|000004c0| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.%      |        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 65 76 61 6c |        |    eval|
|000004e0| 28 54 45 53 54 29 20 20 | 20 20 20 20 20 25 25 25 |(TEST)  |     %%%|
|000004f0| 20 20 5c 69 66 27 73 20 | 6e 6f 74 20 65 78 70 61 |  \if's |not expa|
|00000500| 6e 64 65 64 0a 25 20 20 | 20 20 20 20 20 20 20 20 |nded.%  |        |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000520| 40 74 65 72 6d 20 3a 3d | 20 54 20 20 5c 65 6c 73 |@term :=| T  \els|
|00000530| 65 20 40 74 65 72 6d 20 | 3a 3d 20 46 20 5c 66 69 |e @term |:= F \fi|
|00000540| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.%      |        |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 40 65 6e |        |    \@en|
|00000560| 64 65 76 61 6c 0a 25 20 | 20 20 20 20 20 20 20 20 |deval.% |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 40 67 74 65 6d 70 61 | 20 3a 3d 47 20 40 76 61 | @gtempa| :=G @va|
|00000590| 6c 20 20 20 20 7d 0a 25 | 20 20 20 20 49 46 20 40 |l    }.%|    IF @|
|000005a0| 67 74 65 6d 70 61 20 3d | 20 54 20 20 54 48 45 4e |gtempa =| T  THEN|
|000005b0| 20 54 48 45 4e 2d 43 4c | 41 55 53 45 0a 25 20 20 | THEN-CL|AUSE.%  |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 45 4c 53 45 20 45 | 4c 53 45 2d 43 4c 41 55 |  ELSE E|LSE-CLAU|
|000005e0| 53 45 20 46 49 0a 25 20 | 20 45 4e 44 0a 25 0a 25 |SE FI.% | END.%.%|
|000005f0| 20 5c 40 65 76 61 6c 20 | 3d 3d 20 42 45 47 49 4e | \@eval |== BEGIN|
|00000600| 20 20 40 76 61 6c 20 20 | 20 20 3a 3d 20 46 0a 25 |  @val  |  := F.%|
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 40 6f 72 6f 70 20 | 20 20 3a 3d 20 54 0a 25 |  @orop |  := T.%|
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000640| 20 20 40 6e 65 67 61 74 | 65 20 3a 3d 20 46 0a 25 |  @negat|e := F.%|
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 0a 25 |        |   END.%|
|00000660| 0a 25 20 5c 40 65 6e 64 | 65 76 61 6c 20 3d 3d 0a |.% \@end|eval ==.|
|00000670| 25 20 20 20 42 45 47 49 | 4e 0a 25 20 20 20 20 20 |%   BEGI|N.%     |
|00000680| 20 20 20 20 20 49 46 20 | 5c 40 6e 65 67 61 74 65 |     IF |\@negate|
|00000690| 20 3d 54 20 54 48 45 4e | 20 5c 40 6e 65 67 61 74 | =T THEN| \@negat|
|000006a0| 65 20 3a 3d 20 46 0a 25 | 20 20 20 20 20 20 20 20 |e := F.%|        |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006c0| 20 20 20 20 20 20 49 46 | 20 5c 40 74 65 72 6d 20 |      IF| \@term |
|000006d0| 3d 20 54 20 54 48 45 4e | 20 5c 40 74 65 72 6d 20 |= T THEN| \@term |
|000006e0| 3a 3d 20 46 0a 25 20 20 | 20 20 20 20 20 20 20 20 |:= F.%  |        |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 45 4c 53 45 20 5c | 40 74 65 72 6d 20 3a 3d |  ELSE \|@term :=|
|00000720| 20 54 0a 25 20 20 20 20 | 20 20 20 20 20 20 46 49 | T.%    |      FI|
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000740| 20 20 46 49 0a 25 20 20 | 20 20 20 20 20 20 20 20 |  FI.%  |        |
|00000750| 49 46 20 5c 40 6f 72 6f | 70 20 3d 20 54 20 54 48 |IF \@oro|p = T TH|
|00000760| 45 4e 20 49 46 20 5c 40 | 76 61 6c 20 3d 20 46 0a |EN IF \@|val = F.|
|00000770| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%       |        |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 54 48 45 4e 20 5c 40 76 | 61 6c 20 3a 3d 20 5c 40 |THEN \@v|al := \@|
|000007a0| 74 65 72 6d 20 46 49 0a | 25 20 20 20 20 20 20 20 |term FI.|%       |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007c0| 20 45 4c 53 45 20 49 46 | 20 5c 40 76 61 6c 20 3d | ELSE IF| \@val =|
|000007d0| 20 54 20 54 48 45 4e 20 | 20 5c 40 76 61 6c 20 3a | T THEN | \@val :|
|000007e0| 3d 20 5c 40 74 65 72 6d | 20 46 49 0a 25 20 20 20 |= \@term| FI.%   |
|000007f0| 20 20 20 20 20 20 20 46 | 49 0a 25 0a 25 20 5c 40 |       F|I.%.% \@|
|00000800| 6f 72 20 3d 3d 0a 25 20 | 20 20 42 45 47 49 4e 20 |or ==.% |  BEGIN |
|00000810| 20 40 74 65 72 6d 20 3a | 3d 20 54 20 20 5c 65 6c | @term :|= T  \el|
|00000820| 73 65 20 40 74 65 72 6d | 20 3a 3d 20 46 20 5c 66 |se @term| := F \f|
|00000830| 69 0a 25 20 20 20 20 20 | 20 20 20 20 20 5c 40 65 |i.%     |     \@e|
|00000840| 6e 64 65 76 61 6c 0a 25 | 20 20 20 20 20 20 20 20 |ndeval.%|        |
|00000850| 20 20 5c 40 6f 72 6f 70 | 20 3a 3d 20 54 0a 25 20 |  \@orop| := T.% |
|00000860| 20 20 20 20 20 20 20 20 | 20 5c 69 66 6e 75 6d 0a |        | \ifnum.|
|00000870| 25 20 20 20 45 4e 44 0a | 25 0a 25 20 5c 40 61 6e |%   END.|%.% \@an|
|00000880| 64 20 20 3d 3d 0a 25 20 | 20 20 42 45 47 49 4e 20 |d  ==.% |  BEGIN |
|00000890| 20 5c 72 65 6c 61 78 20 | 5c 40 74 65 72 6d 20 3a | \relax |\@term :|
|000008a0| 3d 20 54 20 20 5c 65 6c | 73 65 20 5c 40 74 65 72 |= T  \el|se \@ter|
|000008b0| 6d 20 3a 3d 20 46 20 5c | 66 69 0a 25 20 20 20 20 |m := F \|fi.%    |
|000008c0| 20 20 20 20 20 20 5c 40 | 65 6e 64 65 76 61 6c 0a |      \@|endeval.|
|000008d0| 25 20 20 20 20 20 20 20 | 20 20 20 5c 40 6f 72 6f |%       |   \@oro|
|000008e0| 70 20 3a 3d 20 46 0a 25 | 20 20 20 20 20 20 20 20 |p := F.%|        |
|000008f0| 20 20 5c 69 66 6e 75 6d | 0a 25 20 20 20 45 4e 44 |  \ifnum|.%   END|
|00000900| 0a 25 0a 25 20 5c 40 6e | 65 67 20 3d 3d 20 20 42 |.%.% \@n|eg ==  B|
|00000910| 45 47 49 4e 20 31 3d 31 | 20 5c 66 69 0a 25 20 20 |EGIN 1=1| \fi.%  |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000930| 40 6e 65 67 61 74 65 20 | 3a 3d 20 54 0a 25 20 20 |@negate |:= T.%  |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000950| 69 66 6e 75 6d 0a 25 20 | 20 20 20 20 20 20 20 20 |ifnum.% |        |
|00000960| 20 20 45 4e 44 0a 25 0a | 25 20 5c 40 6c 70 61 72 |  END.%.|% \@lpar|
|00000970| 65 6e 20 3d 3d 20 42 45 | 47 49 4e 20 31 3d 31 20 |en == BE|GIN 1=1 |
|00000980| 5c 66 69 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |\fi.%   |        |
|00000990| 20 20 20 20 20 20 20 20 | 5c 62 65 67 69 6e 67 72 |        |\begingr|
|000009a0| 6f 75 70 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |oup.%   |        |
|000009b0| 20 20 20 20 20 20 20 20 | 5c 40 65 76 61 6c 20 5c |        |\@eval \|
|000009c0| 69 66 6e 75 6d 0a 25 20 | 20 20 20 20 20 20 20 20 |ifnum.% |        |
|000009d0| 20 20 20 20 45 4e 44 0a | 25 0a 25 20 5c 40 72 70 |    END.|%.% \@rp|
|000009e0| 61 72 65 6e 20 3d 3d 0a | 25 20 20 20 42 45 47 49 |aren ==.|%   BEGI|
|000009f0| 4e 20 20 5c 72 65 6c 61 | 78 20 5c 40 74 65 72 6d |N  \rela|x \@term|
|00000a00| 20 3a 3d 20 54 20 20 5c | 65 6c 73 65 20 5c 40 74 | := T  \|else \@t|
|00000a10| 65 72 6d 20 3a 3d 20 46 | 20 5c 66 69 0a 25 20 20 |erm := F| \fi.%  |
|00000a20| 20 20 20 20 20 20 20 20 | 5c 40 65 6e 64 65 76 61 |        |\@endeva|
|00000a30| 6c 0a 25 20 20 20 20 20 | 20 20 20 20 20 49 46 20 |l.%     |     IF |
|00000a40| 5c 40 76 61 6c 20 3d 20 | 54 20 54 48 45 4e 20 5c |\@val = |T THEN \|
|00000a50| 40 67 74 65 6d 70 62 20 | 3a 3d 47 20 31 3d 31 0a |@gtempb |:=G 1=1.|
|00000a60| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%       |        |
|00000a70| 20 20 20 20 20 20 20 20 | 45 4c 53 45 20 5c 40 67 |        |ELSE \@g|
|00000a80| 74 65 6d 70 62 20 3a 3d | 47 20 31 3d 30 20 20 20 |tempb :=|G 1=0   |
|00000a90| 46 49 0a 25 20 20 20 20 | 20 20 20 20 20 20 5c 65 |FI.%    |      \e|
|00000aa0| 6e 64 67 72 6f 75 70 0a | 25 20 20 20 20 20 20 20 |ndgroup.|%       |
|00000ab0| 20 20 20 5c 69 66 6e 75 | 6d 0a 25 20 20 20 20 20 |   \ifnu|m.%     |
|00000ac0| 20 20 20 20 20 5c 40 67 | 74 65 6d 70 62 0a 25 0a |     \@g|tempb.%.|
|00000ad0| 25 20 5c 65 71 75 61 6c | 7b 53 54 52 31 7d 7b 53 |% \equal|{STR1}{S|
|00000ae0| 54 52 32 7d 20 3d 3d 0a | 25 20 20 20 42 45 47 49 |TR2} ==.|%   BEGI|
|00000af0| 4e 20 20 31 3d 31 20 5c | 66 69 0a 25 20 20 20 20 |N  1=1 \|fi.%    |
|00000b00| 20 20 20 20 20 20 5c 40 | 74 65 6d 70 61 20 3a 3d |      \@|tempa :=|
|00000b10| 20 65 76 61 6c 28 53 54 | 52 31 29 0a 25 20 20 20 | eval(ST|R1).%   |
|00000b20| 20 20 20 20 20 20 20 5c | 40 74 65 6d 70 65 20 3a |       \|@tempe :|
|00000b30| 3d 20 65 76 61 6c 28 53 | 54 52 32 29 0a 25 20 20 |= eval(S|TR2).%  |
|00000b40| 20 20 20 20 20 20 20 20 | 49 46 20 5c 40 74 65 6d |        |IF \@tem|
|00000b50| 70 61 20 3d 3d 20 5c 40 | 74 65 6d 70 65 0a 25 20 |pa == \@|tempe.% |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 54 48 45 4e 20 |        |   THEN |
|00000b70| 5c 40 74 65 6d 70 61 20 | 3a 3d 20 31 3d 31 0a 25 |\@tempa |:= 1=1.%|
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 |        |    ELSE|
|00000b90| 20 5c 40 74 65 6d 70 61 | 20 3a 3d 20 31 3d 30 20 | \@tempa| := 1=0 |
|00000ba0| 46 49 0a 25 20 20 20 20 | 20 20 20 20 20 20 5c 69 |FI.%    |      \i|
|00000bb0| 66 6e 75 6d 20 5c 40 74 | 65 6d 70 61 0a 25 20 20 |fnum \@t|empa.%  |
|00000bc0| 45 4e 44 0a 25 0a 25 20 | 20 5c 77 68 69 6c 65 64 |END.%.% | \whiled|
|00000bd0| 6f 7b 54 45 53 54 7d 7b | 44 4f 2d 43 4c 41 55 53 |o{TEST}{|DO-CLAUS|
|00000be0| 45 7d 20 3d 3d 0a 25 20 | 20 20 20 5c 69 66 74 68 |E} ==.% |   \ifth|
|00000bf0| 65 6e 65 6c 73 65 7b 54 | 45 53 54 7d 7b 40 77 68 |enelse{T|EST}{@wh|
|00000c00| 69 6c 65 64 6f 20 3a 3d | 20 74 72 75 65 0a 25 20 |iledo :=| true.% |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c20| 20 20 20 20 20 57 48 49 | 4c 45 20 40 77 68 69 6c |     WHI|LE @whil|
|00000c30| 65 64 6f 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |edo.%   |        |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 20 |        |     DO |
|00000c50| 20 44 4f 2d 43 4c 41 55 | 53 45 0a 25 20 20 20 20 | DO-CLAU|SE.%    |
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c70| 20 20 20 20 20 20 20 20 | 5c 69 66 74 68 65 6e 65 |        |\ifthene|
|00000c80| 6c 73 65 7b 54 45 53 54 | 7d 7b 40 77 68 69 6c 65 |lse{TEST|}{@while|
|00000c90| 64 6f 20 3a 3d 20 74 72 | 75 65 7d 0a 25 20 20 20 |do := tr|ue}.%   |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 7b 40 77 68 69 6c |        |  {@whil|
|00000cd0| 65 64 6f 20 3a 3d 20 66 | 61 6c 73 65 7d 0a 25 20 |edo := f|alse}.% |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cf0| 20 20 20 20 20 20 20 4f | 44 7d 0a 25 20 20 20 20 |       O|D}.%    |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d10| 20 20 7b 7d 0a 20 0a 5c | 6c 6f 6e 67 5c 64 65 66 |  {}. .\|long\def|
|00000d20| 5c 69 66 74 68 65 6e 65 | 6c 73 65 23 31 23 32 23 |\ifthene|lse#1#2#|
|00000d30| 33 7b 5c 73 65 74 62 6f | 78 5c 40 74 65 6d 70 62 |3{\setbo|x\@tempb|
|00000d40| 6f 78 61 0a 20 20 5c 76 | 62 6f 78 7b 5c 6c 65 74 |oxa.  \v|box{\let|
|00000d50| 5c 70 72 6f 74 65 63 74 | 5c 6e 6f 65 78 70 61 6e |\protect|\noexpan|
|00000d60| 64 0a 20 20 20 20 20 20 | 20 20 5c 6c 65 74 5c 6f |d.      |  \let\o|
|00000d70| 72 5c 40 6f 72 20 5c 6c | 65 74 5c 61 6e 64 5c 40 |r\@or \l|et\and\@|
|00000d80| 61 6e 64 20 5c 6c 65 74 | 5c 6e 6f 74 5c 40 6e 65 |and \let|\not\@ne|
|00000d90| 67 0a 20 20 20 20 20 20 | 20 20 5c 6c 65 74 5c 28 |g.      |  \let\(|
|00000da0| 5c 40 6c 70 61 72 65 6e | 20 5c 6c 65 74 5c 29 5c |\@lparen| \let\)\|
|00000db0| 40 72 70 61 72 65 6e 0a | 20 20 20 20 20 20 20 20 |@rparen.|        |
|00000dc0| 7b 5c 6c 65 74 5c 69 66 | 5c 72 65 6c 61 78 5c 6c |{\let\if|\relax\l|
|00000dd0| 65 74 5c 69 66 78 5c 72 | 65 6c 61 78 5c 6c 65 74 |et\ifx\r|elax\let|
|00000de0| 5c 69 66 6e 75 6d 5c 72 | 65 6c 61 78 5c 6c 65 74 |\ifnum\r|elax\let|
|00000df0| 5c 66 69 5c 72 65 6c 61 | 78 0a 20 20 20 20 20 20 |\fi\rela|x.      |
|00000e00| 20 20 5c 6c 65 74 5c 65 | 6c 73 65 5c 72 65 6c 61 |  \let\e|lse\rela|
|00000e10| 78 20 5c 78 64 65 66 5c | 40 67 74 65 6d 70 61 7b |x \xdef\|@gtempa{|
|00000e20| 23 31 7d 7d 5c 65 78 70 | 61 6e 64 61 66 74 65 72 |#1}}\exp|andafter|
|00000e30| 0a 20 20 20 20 20 20 20 | 20 5c 40 65 76 61 6c 20 |.       | \@eval |
|00000e40| 5c 69 66 6e 75 6d 20 5c | 40 67 74 65 6d 70 61 5c |\ifnum \|@gtempa\|
|00000e50| 72 65 6c 61 78 20 5c 64 | 65 66 5c 40 74 65 72 6d |relax \d|ef\@term|
|00000e60| 7b 54 7d 5c 65 6c 73 65 | 20 5c 64 65 66 5c 40 74 |{T}\else| \def\@t|
|00000e70| 65 72 6d 7b 46 7d 5c 66 | 69 0a 20 20 20 20 20 20 |erm{F}\f|i.      |
|00000e80| 20 20 20 20 20 20 5c 40 | 65 6e 64 65 76 61 6c 5c |      \@|endeval\|
|00000e90| 67 6c 6f 62 61 6c 5c 6c | 65 74 5c 40 67 74 65 6d |global\l|et\@gtem|
|00000ea0| 70 61 5c 40 76 61 6c 7d | 5c 69 66 5c 40 67 74 65 |pa\@val}|\if\@gte|
|00000eb0| 6d 70 61 20 54 23 32 5c | 65 6c 73 65 23 33 5c 66 |mpa T#2\|else#3\f|
|00000ec0| 69 7d 0a 20 0a 5c 64 65 | 66 5c 40 65 76 61 6c 7b |i}. .\de|f\@eval{|
|00000ed0| 5c 64 65 66 5c 40 76 61 | 6c 7b 46 7d 5c 64 65 66 |\def\@va|l{F}\def|
|00000ee0| 5c 40 6f 72 6f 70 7b 54 | 7d 5c 64 65 66 5c 40 6e |\@orop{T|}\def\@n|
|00000ef0| 65 67 61 74 65 7b 46 7d | 7d 0a 20 0a 5c 64 65 66 |egate{F}|}. .\def|
|00000f00| 5c 40 65 6e 64 65 76 61 | 6c 7b 5c 69 66 5c 40 6e |\@endeva|l{\if\@n|
|00000f10| 65 67 61 74 65 20 54 5c | 64 65 66 5c 40 6e 65 67 |egate T\|def\@neg|
|00000f20| 61 74 65 7b 46 7d 5c 69 | 66 5c 40 74 65 72 6d 20 |ate{F}\i|f\@term |
|00000f30| 54 5c 64 65 66 5c 40 74 | 65 72 6d 7b 46 7d 5c 65 |T\def\@t|erm{F}\e|
|00000f40| 6c 73 65 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |lse.    |        |
|00000f50| 20 20 20 5c 64 65 66 5c | 40 74 65 72 6d 7b 54 7d |   \def\|@term{T}|
|00000f60| 5c 66 69 5c 66 69 0a 20 | 20 20 20 20 20 20 5c 69 |\fi\fi. |      \i|
|00000f70| 66 5c 40 6f 72 6f 70 20 | 54 5c 69 66 5c 40 76 61 |f\@orop |T\if\@va|
|00000f80| 6c 20 46 5c 6c 65 74 5c | 40 76 61 6c 5c 40 74 65 |l F\let\|@val\@te|
|00000f90| 72 6d 5c 66 69 0a 20 20 | 20 20 20 20 20 20 20 20 |rm\fi.  |        |
|00000fa0| 20 20 20 5c 65 6c 73 65 | 20 5c 69 66 5c 40 76 61 |   \else| \if\@va|
|00000fb0| 6c 20 54 5c 6c 65 74 5c | 40 76 61 6c 5c 40 74 65 |l T\let\|@val\@te|
|00000fc0| 72 6d 5c 66 69 5c 66 69 | 7d 0a 20 0a 5c 64 65 66 |rm\fi\fi|}. .\def|
|00000fd0| 5c 40 6f 72 7b 5c 72 65 | 6c 61 78 5c 64 65 66 5c |\@or{\re|lax\def\|
|00000fe0| 6e 6f 65 78 70 61 6e 64 | 5c 40 74 65 72 6d 7b 54 |noexpand|\@term{T|
|00000ff0| 7d 5c 65 6c 73 65 20 5c | 64 65 66 5c 6e 6f 65 78 |}\else \|def\noex|
|00001000| 70 61 6e 64 5c 40 74 65 | 72 6d 7b 46 7d 5c 66 69 |pand\@te|rm{F}\fi|
|00001010| 0a 20 20 20 20 20 20 20 | 20 20 5c 6e 6f 65 78 70 |.       |  \noexp|
|00001020| 61 6e 64 5c 40 65 6e 64 | 65 76 61 6c 20 5c 64 65 |and\@end|eval \de|
|00001030| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 6f 72 6f 70 |f\noexpa|nd\@orop|
|00001040| 7b 54 7d 5c 69 66 6e 75 | 6d 7d 0a 20 0a 5c 64 65 |{T}\ifnu|m}. .\de|
|00001050| 66 5c 40 61 6e 64 7b 5c | 72 65 6c 61 78 5c 64 65 |f\@and{\|relax\de|
|00001060| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 72 6d |f\noexpa|nd\@term|
|00001070| 7b 54 7d 5c 65 6c 73 65 | 20 5c 64 65 66 5c 6e 6f |{T}\else| \def\no|
|00001080| 65 78 70 61 6e 64 5c 40 | 74 65 72 6d 7b 46 7d 5c |expand\@|term{F}\|
|00001090| 66 69 0a 20 20 20 20 20 | 20 20 20 20 20 5c 6e 6f |fi.     |     \no|
|000010a0| 65 78 70 61 6e 64 5c 40 | 65 6e 64 65 76 61 6c 5c |expand\@|endeval\|
|000010b0| 64 65 66 5c 6e 6f 65 78 | 70 61 6e 64 5c 40 6f 72 |def\noex|pand\@or|
|000010c0| 6f 70 7b 46 7d 5c 69 66 | 6e 75 6d 7d 0a 20 0a 5c |op{F}\if|num}. .\|
|000010d0| 64 65 66 5c 40 6e 65 67 | 7b 31 3d 31 20 5c 66 69 |def\@neg|{1=1 \fi|
|000010e0| 20 5c 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 | \def\no|expand\@|
|000010f0| 6e 65 67 61 74 65 7b 54 | 7d 5c 69 66 6e 75 6d 7d |negate{T|}\ifnum}|
|00001100| 0a 20 0a 5c 64 65 66 5c | 40 6c 70 61 72 65 6e 7b |. .\def\|@lparen{|
|00001110| 31 3d 31 20 5c 66 69 20 | 5c 62 65 67 69 6e 67 72 |1=1 \fi |\begingr|
|00001120| 6f 75 70 20 5c 6e 6f 65 | 78 70 61 6e 64 5c 40 65 |oup \noe|xpand\@e|
|00001130| 76 61 6c 20 5c 69 66 6e | 75 6d 7d 0a 20 0a 5c 64 |val \ifn|um}. .\d|
|00001140| 65 66 5c 40 72 70 61 72 | 65 6e 7b 5c 72 65 6c 61 |ef\@rpar|en{\rela|
|00001150| 78 5c 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 |x\def\no|expand\@|
|00001160| 74 65 72 6d 7b 54 7d 5c | 65 6c 73 65 20 5c 64 65 |term{T}\|else \de|
|00001170| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 72 6d |f\noexpa|nd\@term|
|00001180| 7b 46 7d 5c 66 69 0a 20 | 20 20 20 20 20 20 20 20 |{F}\fi. |        |
|00001190| 20 20 20 20 5c 6e 6f 65 | 78 70 61 6e 64 5c 40 65 |    \noe|xpand\@e|
|000011a0| 6e 64 65 76 61 6c 0a 20 | 20 20 20 20 20 20 20 20 |ndeval. |        |
|000011b0| 20 20 20 20 5c 69 66 5c | 6e 6f 65 78 70 61 6e 64 |    \if\|noexpand|
|000011c0| 5c 40 76 61 6c 20 54 5c | 67 64 65 66 5c 6e 6f 65 |\@val T\|gdef\noe|
|000011d0| 78 70 61 6e 64 5c 40 67 | 74 65 6d 70 62 7b 31 3d |xpand\@g|tempb{1=|
|000011e0| 31 7d 5c 65 6c 73 65 0a | 20 20 20 20 20 20 20 20 |1}\else.|        |
|000011f0| 20 20 20 20 5c 67 64 65 | 66 5c 6e 6f 65 78 70 61 |    \gde|f\noexpa|
|00001200| 6e 64 5c 40 67 74 65 6d | 70 62 7b 31 3d 30 7d 5c |nd\@gtem|pb{1=0}\|
|00001210| 66 69 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |fi.     |       \|
|00001220| 65 6e 64 67 72 6f 75 70 | 20 5c 69 66 6e 75 6d 5c |endgroup| \ifnum\|
|00001230| 6e 6f 65 78 70 61 6e 64 | 5c 40 67 74 65 6d 70 62 |noexpand|\@gtempb|
|00001240| 7d 0a 20 0a 5c 64 65 66 | 5c 65 71 75 61 6c 23 31 |}. .\def|\equal#1|
|00001250| 23 32 7b 31 3d 31 20 5c | 66 69 20 5c 65 64 65 66 |#2{1=1 \|fi \edef|
|00001260| 5c 6e 6f 65 78 70 61 6e | 64 5c 40 74 65 6d 70 61 |\noexpan|d\@tempa|
|00001270| 7b 23 31 7d 25 0a 20 20 | 20 20 20 20 20 20 20 20 |{#1}%.  |        |
|00001280| 20 20 20 20 20 5c 65 64 | 65 66 5c 6e 6f 65 78 70 |     \ed|ef\noexp|
|00001290| 61 6e 64 5c 40 74 65 6d | 70 65 7b 23 32 7d 5c 69 |and\@tem|pe{#2}\i|
|000012a0| 66 78 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |fx.     |        |
|000012b0| 20 20 20 5c 6e 6f 65 78 | 70 61 6e 64 5c 40 74 65 |   \noex|pand\@te|
|000012c0| 6d 70 61 5c 6e 6f 65 78 | 70 61 6e 64 5c 40 74 65 |mpa\noex|pand\@te|
|000012d0| 6d 70 65 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |mpe.    |        |
|000012e0| 20 20 20 20 5c 64 65 66 | 5c 6e 6f 65 78 70 61 6e |    \def|\noexpan|
|000012f0| 64 5c 40 74 65 6d 70 61 | 7b 31 3d 31 7d 5c 65 6c |d\@tempa|{1=1}\el|
|00001300| 73 65 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |se.     |        |
|00001310| 20 20 20 5c 64 65 66 5c | 6e 6f 65 78 70 61 6e 64 |   \def\|noexpand|
|00001320| 5c 40 74 65 6d 70 61 7b | 31 3d 30 7d 5c 66 69 20 |\@tempa{|1=0}\fi |
|00001330| 5c 69 66 6e 75 6d 20 5c | 6e 6f 65 78 70 61 6e 64 |\ifnum \|noexpand|
|00001340| 5c 40 74 65 6d 70 61 7d | 0a 20 0a 5c 6c 6f 6e 67 |\@tempa}|. .\long|
|00001350| 5c 64 65 66 5c 77 68 69 | 6c 65 64 6f 23 31 23 32 |\def\whi|ledo#1#2|
|00001360| 7b 5c 69 66 74 68 65 6e | 65 6c 73 65 7b 23 31 7d |{\ifthen|else{#1}|
|00001370| 7b 5c 40 77 68 69 6c 65 | 64 6f 74 72 75 65 20 5c |{\@while|dotrue \|
|00001380| 40 77 68 69 6c 65 73 77 | 5c 69 66 40 77 68 69 6c |@whilesw|\if@whil|
|00001390| 65 64 6f 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |edo.    |        |
|000013a0| 20 20 5c 66 69 7b 23 32 | 5c 69 66 74 68 65 6e 65 |  \fi{#2|\ifthene|
|000013b0| 6c 73 65 7b 23 31 7d 7b | 5c 40 77 68 69 6c 65 64 |lse{#1}{|\@whiled|
|000013c0| 6f 74 72 75 65 7d 7b 5c | 40 77 68 69 6c 65 64 6f |otrue}{\|@whiledo|
|000013d0| 66 61 6c 73 65 7d 7d 7d | 7b 7d 7d 0a 20 0a 5c 6e |false}}}|{}}. .\n|
|000013e0| 65 77 69 66 5c 69 66 40 | 77 68 69 6c 65 64 6f 0a |ewif\if@|whiledo.|
|000013f0| 0a 5c 65 6e 64 69 6e 70 | 75 74 0a                |.\endinp|ut.     |
+--------+-------------------------+-------------------------+--------+--------+