| / Whiteline: Alpha
/ Whiteline Alpha.iso / tex / lindner / latex_pl.zoo / texinput / document / styledoc / styledoc.lzh / IFTHEN.DOC
| < prev | next > |
| LaTeX Document | 1992-04-14 | 5.1 KB |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 100% | dexvert | LaTeX Document (document/latex) | magic | Supported |
| 1% | dexvert | WANG Integrated Word Processor (document/wangIWP) | ext | Unsupported |
| 1% | dexvert | Dynamic Publisher Document (document/dynamicPublisherDocument) | ext | Unsupported |
| 1% | dexvert | Excellence! Document (document/excellenceDocument) | ext | Unsupported |
| 1% | dexvert | Norton Textra Writer (document/textraWriter) | ext | Unsupported |
| 1% | dexvert | IBM DisplayWrite Document (document/ibmDisplayWriteDocument) | ext | Unsupported |
| 1% | dexvert | Open Access Document (document/openAccessDocument) | ext | Unsupported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | LaTeX auxiliary file | default | |
| 99% | file | LaTeX document, ASCII text, with CRLF line terminators | default | |
| 100% | checkBytes | Printable ASCII | default | |
| 100% | perlTextCheck | Likely Text (Perl) | default | |
| 100% | detectItEasy | Format: Plain text[CRLF] | default | |
| 100% | xdgMime | text/x-matlab | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|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 0d 0a | 25 20 20 20 20 66 6f 72 |e 1991..|% for|
|00000040| 20 4c 61 54 65 58 20 76 | 65 72 73 69 6f 6e 20 32 | LaTeX v|ersion 2|
|00000050| 2e 30 39 0d 0a 25 20 43 | 6f 70 79 72 69 67 68 74 |.09..% C|opyright|
|00000060| 20 28 43 29 20 31 39 39 | 31 20 62 79 20 4c 65 73 | (C) 199|1 by Les|
|00000070| 6c 69 65 20 4c 61 6d 70 | 6f 72 74 0d 0a 0d 0a 5c |lie Lamp|ort....\|
|00000080| 74 79 70 65 6f 75 74 7b | 44 6f 63 75 6d 65 6e 74 |typeout{|Document|
|00000090| 20 53 74 79 6c 65 20 4f | 70 74 69 6f 6e 20 27 69 | Style O|ption 'i|
|000000a0| 66 74 68 65 6e 27 20 2d | 2d 20 52 65 6c 65 61 73 |fthen' -|- Releas|
|000000b0| 65 64 20 31 36 20 4a 75 | 6e 65 20 31 39 39 31 2e |ed 16 Ju|ne 1991.|
|000000c0| 7d 0d 0a 0d 0a 25 20 5c | 69 66 74 68 65 6e 65 6c |}....% \|ifthenel|
|000000d0| 73 65 7b 54 45 53 54 7d | 7b 54 48 45 4e 43 4c 41 |se{TEST}|{THENCLA|
|000000e0| 55 53 45 7d 7b 45 4c 53 | 45 43 4c 41 55 53 45 7d |USE}{ELS|ECLAUSE}|
|000000f0| 0d 0a 25 20 20 20 20 41 | 6e 20 69 66 2d 74 68 65 |..% A|n if-the|
|00000100| 6e 2d 65 6c 73 65 20 63 | 6f 6d 6d 61 6e 64 20 77 |n-else c|ommand w|
|00000110| 68 65 72 65 0d 0a 25 20 | 20 20 20 20 20 20 20 54 |here..% | T|
|00000120| 45 53 54 20 3d 3d 20 5c | 65 71 75 61 6c 7b 53 54 |EST == \|equal{ST|
|00000130| 52 49 4e 47 7d 7b 53 54 | 52 49 4e 47 7d 0d 0a 25 |RING}{ST|RING}..%|
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000150| 6e 75 6d 62 65 72 20 3c | 20 6e 75 6d 62 65 72 20 |number <| number |
|00000160| 7c 20 6e 75 6d 62 65 72 | 20 3d 20 6e 75 6d 62 65 || number| = numbe|
|00000170| 72 20 7c 20 6e 75 6d 62 | 65 72 20 3e 20 6e 75 6d |r | numb|er > num|
|00000180| 62 65 72 20 7c 0d 0a 25 | 20 20 20 20 20 20 20 20 |ber |..%| |
|00000190| 20 20 20 20 20 20 20 20 | 5c 28 54 45 53 54 5c 29 | |\(TEST\)|
|000001a0| 20 7c 20 5c 6e 6f 74 20 | 54 45 53 54 20 7c 20 54 | | \not |TEST | T|
|000001b0| 45 53 54 20 5c 6f 72 20 | 54 45 53 54 20 7c 20 54 |EST \or |TEST | T|
|000001c0| 45 53 54 20 5c 61 6e 64 | 20 54 45 53 54 0d 0a 25 |EST \and| TEST..%|
|000001d0| 20 20 20 20 77 69 74 68 | 20 5c 6f 72 2c 20 5c 61 | with| \or, \a|
|000001e0| 6e 64 20 61 6e 64 20 5c | 6e 6f 74 20 64 65 6e 6f |nd and \|not deno|
|000001f0| 74 69 6e 67 20 74 68 65 | 20 6f 62 76 69 6f 75 73 |ting the| obvious|
|00000200| 20 6c 6f 67 69 63 61 6c | 20 6f 70 65 72 61 74 6f | logical| operato|
|00000210| 72 73 2c 0d 0a 25 20 20 | 20 20 5c 28 20 61 6e 64 |rs,..% | \( and|
|00000220| 20 5c 29 20 61 73 20 70 | 61 72 65 6e 74 68 65 73 | \) as p|arenthes|
|00000230| 65 73 2c 20 61 6e 64 20 | 5c 65 71 75 61 6c 20 74 |es, and |\equal t|
|00000240| 65 73 74 69 6e 67 20 65 | 71 75 61 6c 69 74 79 20 |esting e|quality |
|00000250| 6f 66 20 73 74 72 69 6e | 67 73 2e 0d 0a 25 0d 0a |of strin|gs...%..|
|00000260| 25 20 20 5c 65 71 75 61 | 6c 7b 53 54 52 49 4e 47 |% \equa|l{STRING|
|00000270| 7d 7b 53 54 52 49 4e 47 | 7d 0d 0a 25 20 20 20 20 |}{STRING|}..% |
|00000280| 20 54 65 73 74 73 20 69 | 66 20 74 68 65 20 74 77 | Tests i|f the tw|
|00000290| 6f 20 61 72 67 75 6d 65 | 6e 74 73 20 61 72 65 20 |o argume|nts are |
|000002a0| 65 71 75 61 6c 2c 20 61 | 66 74 65 72 20 61 6c 6c |equal, a|fter all|
|000002b0| 20 6d 61 63 72 6f 73 20 | 61 72 65 20 65 78 70 61 | macros |are expa|
|000002c0| 6e 64 65 64 2e 0d 0a 25 | 20 20 20 20 20 45 2e 67 |nded...%| E.g|
|000002d0| 2e 3a 20 5c 64 65 66 5c | 66 6f 6f 7b 62 61 72 7d |.: \def\|foo{bar}|
|000002e0| 20 20 2e 2e 2e 20 63 61 | 75 73 65 73 20 5c 65 71 | ... ca|uses \eq|
|000002f0| 75 61 6c 7b 5c 66 6f 6f | 7d 7b 62 61 72 7d 20 74 |ual{\foo|}{bar} t|
|00000300| 6f 20 65 76 61 6c 75 61 | 74 65 20 74 6f 20 60 74 |o evalua|te to `t|
|00000310| 72 75 65 27 0d 0a 25 0d | 0a 25 20 5c 77 68 69 6c |rue'..%.|.% \whil|
|00000320| 65 64 6f 7b 54 45 53 54 | 7d 7b 44 4f 2d 43 4c 41 |edo{TEST|}{DO-CLA|
|00000330| 55 53 45 7d 0d 0a 25 20 | 20 20 20 20 41 20 77 68 |USE}..% | A wh|
|00000340| 69 6c 65 2d 64 6f 20 63 | 6f 6e 73 74 72 75 63 74 |ile-do c|onstruct|
|00000350| 69 6f 6e 2c 20 77 69 74 | 68 20 54 45 53 54 20 74 |ion, wit|h TEST t|
|00000360| 68 65 20 73 61 6d 65 20 | 61 73 20 61 62 6f 76 65 |he same |as above|
|00000370| 2e 0d 0a 25 0d 0a 25 20 | 5c 69 66 74 68 65 6e 65 |...%..% |\ifthene|
|00000380| 6c 73 65 7b 54 45 53 54 | 7d 7b 54 48 45 4e 2d 43 |lse{TEST|}{THEN-C|
|00000390| 4c 41 55 53 45 7d 7b 45 | 4c 53 45 2d 43 4c 41 55 |LAUSE}{E|LSE-CLAU|
|000003a0| 53 45 7d 20 3d 3d 0d 0a | 25 20 20 20 42 45 47 49 |SE} ==..|% BEGI|
|000003b0| 4e 0d 0a 25 20 20 20 20 | 5c 40 74 65 6d 70 62 6f |N..% |\@tempbo|
|000003c0| 78 61 20 3a 3d 20 5c 76 | 62 6f 78 7b 20 5c 70 72 |xa := \v|box{ \pr|
|000003d0| 6f 74 65 63 74 20 3a 3d | 20 5c 6e 6f 65 78 70 61 |otect :=| \noexpa|
|000003e0| 6e 64 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |nd..% | |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 6f | | \o|
|00000400| 72 20 20 3a 3d 20 5c 40 | 6f 72 0d 0a 25 20 20 20 |r := \@|or..% |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000420| 20 20 20 20 20 20 5c 61 | 6e 64 20 3a 3d 20 5c 40 | \a|nd := \@|
|00000430| 61 6e 64 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 |and..% | |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c | | \|
|00000450| 6e 6f 74 20 3a 3d 20 5c | 40 6e 65 67 0d 0a 25 20 |not := \|@neg..% |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000470| 20 20 20 20 20 20 20 20 | 5c 28 20 20 20 3a 3d 20 | |\( := |
|00000480| 5c 40 6c 70 61 72 65 6e | 0d 0a 25 20 20 20 20 20 |\@lparen|..% |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004a0| 20 20 20 20 5c 29 20 20 | 20 3a 3d 20 5c 40 72 70 | \) | := \@rp|
|000004b0| 61 72 65 6e 0d 0a 25 20 | 20 20 20 20 20 20 20 20 |aren..% | |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004d0| 5c 40 65 76 61 6c 20 5c | 69 66 6e 75 6d 0d 0a 25 |\@eval \|ifnum..%|
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 65 76 61 6c 28 54 | | eval(T|
|00000500| 45 53 54 29 20 20 20 20 | 20 20 20 25 25 25 20 20 |EST) | %%% |
|00000510| 5c 69 66 27 73 20 6e 6f | 74 20 65 78 70 61 6e 64 |\if's no|t expand|
|00000520| 65 64 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 |ed..% | |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 40 | | @|
|00000540| 74 65 72 6d 20 3a 3d 20 | 54 20 20 5c 65 6c 73 65 |term := |T \else|
|00000550| 20 40 74 65 72 6d 20 3a | 3d 20 46 20 5c 66 69 0d | @term :|= F \fi.|
|00000560| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.% | |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 40 65 6e | | \@en|
|00000580| 64 65 76 61 6c 0d 0a 25 | 20 20 20 20 20 20 20 20 |deval..%| |
|00000590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005a0| 20 20 40 67 74 65 6d 70 | 61 20 3a 3d 47 20 40 76 | @gtemp|a :=G @v|
|000005b0| 61 6c 20 20 20 20 7d 0d | 0a 25 20 20 20 20 49 46 |al }.|.% IF|
|000005c0| 20 40 67 74 65 6d 70 61 | 20 3d 20 54 20 20 54 48 | @gtempa| = T TH|
|000005d0| 45 4e 20 54 48 45 4e 2d | 43 4c 41 55 53 45 0d 0a |EN THEN-|CLAUSE..|
|000005e0| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |% | |
|000005f0| 20 20 20 20 20 45 4c 53 | 45 20 45 4c 53 45 2d 43 | ELS|E ELSE-C|
|00000600| 4c 41 55 53 45 20 46 49 | 0d 0a 25 20 20 45 4e 44 |LAUSE FI|..% END|
|00000610| 0d 0a 25 0d 0a 25 20 5c | 40 65 76 61 6c 20 3d 3d |..%..% \|@eval ==|
|00000620| 20 42 45 47 49 4e 20 20 | 40 76 61 6c 20 20 20 20 | BEGIN |@val |
|00000630| 3a 3d 20 46 0d 0a 25 20 | 20 20 20 20 20 20 20 20 |:= F..% | |
|00000640| 20 20 20 20 20 20 20 20 | 20 40 6f 72 6f 70 20 20 | | @orop |
|00000650| 20 3a 3d 20 54 0d 0a 25 | 20 20 20 20 20 20 20 20 | := T..%| |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 40 6e 65 67 61 74 | | @negat|
|00000670| 65 20 3a 3d 20 46 0d 0a | 25 20 20 20 20 20 20 20 |e := F..|% |
|00000680| 20 20 20 20 45 4e 44 0d | 0a 25 0d 0a 25 20 5c 40 | END.|.%..% \@|
|00000690| 65 6e 64 65 76 61 6c 20 | 3d 3d 0d 0a 25 20 20 20 |endeval |==..% |
|000006a0| 42 45 47 49 4e 0d 0a 25 | 20 20 20 20 20 20 20 20 |BEGIN..%| |
|000006b0| 20 20 49 46 20 5c 40 6e | 65 67 61 74 65 20 3d 54 | IF \@n|egate =T|
|000006c0| 20 54 48 45 4e 20 5c 40 | 6e 65 67 61 74 65 20 3a | THEN \@|negate :|
|000006d0| 3d 20 46 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 |= F..% | |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006f0| 20 20 20 20 49 46 20 5c | 40 74 65 72 6d 20 3d 20 | IF \|@term = |
|00000700| 54 20 54 48 45 4e 20 5c | 40 74 65 72 6d 20 3a 3d |T THEN \|@term :=|
|00000710| 20 46 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 20 | F..% | |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000740| 20 45 4c 53 45 20 5c 40 | 74 65 72 6d 20 3a 3d 20 | ELSE \@|term := |
|00000750| 54 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 46 49 |T..% | FI|
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000770| 20 20 46 49 0d 0a 25 20 | 20 20 20 20 20 20 20 20 | FI..% | |
|00000780| 20 49 46 20 5c 40 6f 72 | 6f 70 20 3d 20 54 20 54 | IF \@or|op = T T|
|00000790| 48 45 4e 20 49 46 20 5c | 40 76 61 6c 20 3d 20 46 |HEN IF \|@val = F|
|000007a0| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007c0| 20 20 54 48 45 4e 20 5c | 40 76 61 6c 20 3a 3d 20 | THEN \|@val := |
|000007d0| 5c 40 74 65 72 6d 20 46 | 49 0d 0a 25 20 20 20 20 |\@term F|I..% |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007f0| 20 20 20 20 45 4c 53 45 | 20 49 46 20 5c 40 76 61 | ELSE| IF \@va|
|00000800| 6c 20 3d 20 54 20 54 48 | 45 4e 20 20 5c 40 76 61 |l = T TH|EN \@va|
|00000810| 6c 20 3a 3d 20 5c 40 74 | 65 72 6d 20 46 49 0d 0a |l := \@t|erm FI..|
|00000820| 25 20 20 20 20 20 20 20 | 20 20 20 46 49 0d 0a 25 |% | FI..%|
|00000830| 0d 0a 25 20 5c 40 6f 72 | 20 3d 3d 0d 0a 25 20 20 |..% \@or| ==..% |
|00000840| 20 42 45 47 49 4e 20 20 | 40 74 65 72 6d 20 3a 3d | BEGIN |@term :=|
|00000850| 20 54 20 20 5c 65 6c 73 | 65 20 40 74 65 72 6d 20 | T \els|e @term |
|00000860| 3a 3d 20 46 20 5c 66 69 | 0d 0a 25 20 20 20 20 20 |:= F \fi|..% |
|00000870| 20 20 20 20 20 5c 40 65 | 6e 64 65 76 61 6c 0d 0a | \@e|ndeval..|
|00000880| 25 20 20 20 20 20 20 20 | 20 20 20 5c 40 6f 72 6f |% | \@oro|
|00000890| 70 20 3a 3d 20 54 0d 0a | 25 20 20 20 20 20 20 20 |p := T..|% |
|000008a0| 20 20 20 5c 69 66 6e 75 | 6d 0d 0a 25 20 20 20 45 | \ifnu|m..% E|
|000008b0| 4e 44 0d 0a 25 0d 0a 25 | 20 5c 40 61 6e 64 20 20 |ND..%..%| \@and |
|000008c0| 3d 3d 0d 0a 25 20 20 20 | 42 45 47 49 4e 20 20 5c |==..% |BEGIN \|
|000008d0| 72 65 6c 61 78 20 5c 40 | 74 65 72 6d 20 3a 3d 20 |relax \@|term := |
|000008e0| 54 20 20 5c 65 6c 73 65 | 20 5c 40 74 65 72 6d 20 |T \else| \@term |
|000008f0| 3a 3d 20 46 20 5c 66 69 | 0d 0a 25 20 20 20 20 20 |:= F \fi|..% |
|00000900| 20 20 20 20 20 5c 40 65 | 6e 64 65 76 61 6c 0d 0a | \@e|ndeval..|
|00000910| 25 20 20 20 20 20 20 20 | 20 20 20 5c 40 6f 72 6f |% | \@oro|
|00000920| 70 20 3a 3d 20 46 0d 0a | 25 20 20 20 20 20 20 20 |p := F..|% |
|00000930| 20 20 20 5c 69 66 6e 75 | 6d 0d 0a 25 20 20 20 45 | \ifnu|m..% E|
|00000940| 4e 44 0d 0a 25 0d 0a 25 | 20 5c 40 6e 65 67 20 3d |ND..%..%| \@neg =|
|00000950| 3d 20 20 42 45 47 49 4e | 20 31 3d 31 20 5c 66 69 |= BEGIN| 1=1 \fi|
|00000960| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|00000970| 20 20 20 20 5c 40 6e 65 | 67 61 74 65 20 3a 3d 20 | \@ne|gate := |
|00000980| 54 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |T..% | |
|00000990| 20 20 20 20 20 5c 69 66 | 6e 75 6d 0d 0a 25 20 20 | \if|num..% |
|000009a0| 20 20 20 20 20 20 20 20 | 20 45 4e 44 0d 0a 25 0d | | END..%.|
|000009b0| 0a 25 20 5c 40 6c 70 61 | 72 65 6e 20 3d 3d 20 42 |.% \@lpa|ren == B|
|000009c0| 45 47 49 4e 20 31 3d 31 | 20 5c 66 69 0d 0a 25 20 |EGIN 1=1| \fi..% |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009e0| 20 20 5c 62 65 67 69 6e | 67 72 6f 75 70 0d 0a 25 | \begin|group..%|
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a00| 20 20 20 5c 40 65 76 61 | 6c 20 5c 69 66 6e 75 6d | \@eva|l \ifnum|
|00000a10| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|00000a20| 45 4e 44 0d 0a 25 0d 0a | 25 20 5c 40 72 70 61 72 |END..%..|% \@rpar|
|00000a30| 65 6e 20 3d 3d 0d 0a 25 | 20 20 20 42 45 47 49 4e |en ==..%| BEGIN|
|00000a40| 20 20 5c 72 65 6c 61 78 | 20 5c 40 74 65 72 6d 20 | \relax| \@term |
|00000a50| 3a 3d 20 54 20 20 5c 65 | 6c 73 65 20 5c 40 74 65 |:= T \e|lse \@te|
|00000a60| 72 6d 20 3a 3d 20 46 20 | 5c 66 69 0d 0a 25 20 20 |rm := F |\fi..% |
|00000a70| 20 20 20 20 20 20 20 20 | 5c 40 65 6e 64 65 76 61 | |\@endeva|
|00000a80| 6c 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 49 46 |l..% | IF|
|00000a90| 20 5c 40 76 61 6c 20 3d | 20 54 20 54 48 45 4e 20 | \@val =| T THEN |
|00000aa0| 5c 40 67 74 65 6d 70 62 | 20 3a 3d 47 20 31 3d 31 |\@gtempb| :=G 1=1|
|00000ab0| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 45 4c 53 45 20 5c | | ELSE \|
|00000ad0| 40 67 74 65 6d 70 62 20 | 3a 3d 47 20 31 3d 30 20 |@gtempb |:=G 1=0 |
|00000ae0| 20 20 46 49 0d 0a 25 20 | 20 20 20 20 20 20 20 20 | FI..% | |
|00000af0| 20 5c 65 6e 64 67 72 6f | 75 70 0d 0a 25 20 20 20 | \endgro|up..% |
|00000b00| 20 20 20 20 20 20 20 5c | 69 66 6e 75 6d 0d 0a 25 | \|ifnum..%|
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 5c 40 67 74 65 6d | | \@gtem|
|00000b20| 70 62 0d 0a 25 0d 0a 25 | 20 5c 65 71 75 61 6c 7b |pb..%..%| \equal{|
|00000b30| 53 54 52 31 7d 7b 53 54 | 52 32 7d 20 3d 3d 0d 0a |STR1}{ST|R2} ==..|
|00000b40| 25 20 20 20 42 45 47 49 | 4e 20 20 31 3d 31 20 5c |% BEGI|N 1=1 \|
|00000b50| 66 69 0d 0a 25 20 20 20 | 20 20 20 20 20 20 20 5c |fi..% | \|
|00000b60| 40 74 65 6d 70 61 20 3a | 3d 20 65 76 61 6c 28 53 |@tempa :|= eval(S|
|00000b70| 54 52 31 29 0d 0a 25 20 | 20 20 20 20 20 20 20 20 |TR1)..% | |
|00000b80| 20 5c 40 74 65 6d 70 65 | 20 3a 3d 20 65 76 61 6c | \@tempe| := eval|
|00000b90| 28 53 54 52 32 29 0d 0a | 25 20 20 20 20 20 20 20 |(STR2)..|% |
|00000ba0| 20 20 20 49 46 20 5c 40 | 74 65 6d 70 61 20 3d 3d | IF \@|tempa ==|
|00000bb0| 20 5c 40 74 65 6d 70 65 | 0d 0a 25 20 20 20 20 20 | \@tempe|..% |
|00000bc0| 20 20 20 20 20 20 20 54 | 48 45 4e 20 5c 40 74 65 | T|HEN \@te|
|00000bd0| 6d 70 61 20 3a 3d 20 31 | 3d 31 0d 0a 25 20 20 20 |mpa := 1|=1..% |
|00000be0| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 20 5c 40 | | ELSE \@|
|00000bf0| 74 65 6d 70 61 20 3a 3d | 20 31 3d 30 20 46 49 0d |tempa :=| 1=0 FI.|
|00000c00| 0a 25 20 20 20 20 20 20 | 20 20 20 20 5c 69 66 6e |.% | \ifn|
|00000c10| 75 6d 20 5c 40 74 65 6d | 70 61 0d 0a 25 20 20 45 |um \@tem|pa..% E|
|00000c20| 4e 44 0d 0a 25 0d 0a 25 | 20 20 5c 77 68 69 6c 65 |ND..%..%| \while|
|00000c30| 64 6f 7b 54 45 53 54 7d | 7b 44 4f 2d 43 4c 41 55 |do{TEST}|{DO-CLAU|
|00000c40| 53 45 7d 20 3d 3d 0d 0a | 25 20 20 20 20 5c 69 66 |SE} ==..|% \if|
|00000c50| 74 68 65 6e 65 6c 73 65 | 7b 54 45 53 54 7d 7b 40 |thenelse|{TEST}{@|
|00000c60| 77 68 69 6c 65 64 6f 20 | 3a 3d 20 74 72 75 65 0d |whiledo |:= true.|
|00000c70| 0a 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.% | |
|00000c80| 20 20 20 20 20 20 20 20 | 57 48 49 4c 45 20 40 77 | |WHILE @w|
|00000c90| 68 69 6c 65 64 6f 0d 0a | 25 20 20 20 20 20 20 20 |hiledo..|% |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cb0| 20 44 4f 20 20 44 4f 2d | 43 4c 41 55 53 45 0d 0a | DO DO-|CLAUSE..|
|00000cc0| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |% | |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 69 66 | | \if|
|00000ce0| 74 68 65 6e 65 6c 73 65 | 7b 54 45 53 54 7d 7b 40 |thenelse|{TEST}{@|
|00000cf0| 77 68 69 6c 65 64 6f 20 | 3a 3d 20 74 72 75 65 7d |whiledo |:= true}|
|00000d00| 0d 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..% | |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d30| 7b 40 77 68 69 6c 65 64 | 6f 20 3a 3d 20 66 61 6c |{@whiled|o := fal|
|00000d40| 73 65 7d 0d 0a 25 20 20 | 20 20 20 20 20 20 20 20 |se}..% | |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4f 44 | | OD|
|00000d60| 7d 0d 0a 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |}..% | |
|00000d70| 20 20 20 20 20 20 20 20 | 20 20 7b 7d 0d 0a 0d 0a | | {}....|
|00000d80| 5c 6c 6f 6e 67 5c 64 65 | 66 5c 69 66 74 68 65 6e |\long\de|f\ifthen|
|00000d90| 65 6c 73 65 23 31 23 32 | 23 33 7b 5c 73 65 74 62 |else#1#2|#3{\setb|
|00000da0| 6f 78 5c 40 74 65 6d 70 | 62 6f 78 61 0d 0a 20 20 |ox\@temp|boxa.. |
|00000db0| 5c 76 62 6f 78 7b 5c 6c | 65 74 5c 70 72 6f 74 65 |\vbox{\l|et\prote|
|00000dc0| 63 74 5c 6e 6f 65 78 70 | 61 6e 64 0d 0a 20 20 20 |ct\noexp|and.. |
|00000dd0| 20 20 20 20 20 5c 6c 65 | 74 5c 6f 72 5c 40 6f 72 | \le|t\or\@or|
|00000de0| 20 5c 6c 65 74 5c 61 6e | 64 5c 40 61 6e 64 20 5c | \let\an|d\@and \|
|00000df0| 6c 65 74 5c 6e 6f 74 5c | 40 6e 65 67 0d 0a 20 20 |let\not\|@neg.. |
|00000e00| 20 20 20 20 20 20 5c 6c | 65 74 5c 28 5c 40 6c 70 | \l|et\(\@lp|
|00000e10| 61 72 65 6e 20 5c 6c 65 | 74 5c 29 5c 40 72 70 61 |aren \le|t\)\@rpa|
|00000e20| 72 65 6e 0d 0a 20 20 20 | 20 20 20 20 20 7b 5c 6c |ren.. | {\l|
|00000e30| 65 74 5c 69 66 5c 72 65 | 6c 61 78 5c 6c 65 74 5c |et\if\re|lax\let\|
|00000e40| 69 66 78 5c 72 65 6c 61 | 78 5c 6c 65 74 5c 69 66 |ifx\rela|x\let\if|
|00000e50| 6e 75 6d 5c 72 65 6c 61 | 78 5c 6c 65 74 5c 66 69 |num\rela|x\let\fi|
|00000e60| 5c 72 65 6c 61 78 0d 0a | 20 20 20 20 20 20 20 20 |\relax..| |
|00000e70| 5c 6c 65 74 5c 65 6c 73 | 65 5c 72 65 6c 61 78 20 |\let\els|e\relax |
|00000e80| 5c 78 64 65 66 5c 40 67 | 74 65 6d 70 61 7b 23 31 |\xdef\@g|tempa{#1|
|00000e90| 7d 7d 5c 65 78 70 61 6e | 64 61 66 74 65 72 0d 0a |}}\expan|dafter..|
|00000ea0| 20 20 20 20 20 20 20 20 | 5c 40 65 76 61 6c 20 5c | |\@eval \|
|00000eb0| 69 66 6e 75 6d 20 5c 40 | 67 74 65 6d 70 61 5c 72 |ifnum \@|gtempa\r|
|00000ec0| 65 6c 61 78 20 5c 64 65 | 66 5c 40 74 65 72 6d 7b |elax \de|f\@term{|
|00000ed0| 54 7d 5c 65 6c 73 65 20 | 5c 64 65 66 5c 40 74 65 |T}\else |\def\@te|
|00000ee0| 72 6d 7b 46 7d 5c 66 69 | 0d 0a 20 20 20 20 20 20 |rm{F}\fi|.. |
|00000ef0| 20 20 20 20 20 20 5c 40 | 65 6e 64 65 76 61 6c 5c | \@|endeval\|
|00000f00| 67 6c 6f 62 61 6c 5c 6c | 65 74 5c 40 67 74 65 6d |global\l|et\@gtem|
|00000f10| 70 61 5c 40 76 61 6c 7d | 5c 69 66 5c 40 67 74 65 |pa\@val}|\if\@gte|
|00000f20| 6d 70 61 20 54 23 32 5c | 65 6c 73 65 23 33 5c 66 |mpa T#2\|else#3\f|
|00000f30| 69 7d 0d 0a 0d 0a 5c 64 | 65 66 5c 40 65 76 61 6c |i}....\d|ef\@eval|
|00000f40| 7b 5c 64 65 66 5c 40 76 | 61 6c 7b 46 7d 5c 64 65 |{\def\@v|al{F}\de|
|00000f50| 66 5c 40 6f 72 6f 70 7b | 54 7d 5c 64 65 66 5c 40 |f\@orop{|T}\def\@|
|00000f60| 6e 65 67 61 74 65 7b 46 | 7d 7d 0d 0a 0d 0a 5c 64 |negate{F|}}....\d|
|00000f70| 65 66 5c 40 65 6e 64 65 | 76 61 6c 7b 5c 69 66 5c |ef\@ende|val{\if\|
|00000f80| 40 6e 65 67 61 74 65 20 | 54 5c 64 65 66 5c 40 6e |@negate |T\def\@n|
|00000f90| 65 67 61 74 65 7b 46 7d | 5c 69 66 5c 40 74 65 72 |egate{F}|\if\@ter|
|00000fa0| 6d 20 54 5c 64 65 66 5c | 40 74 65 72 6d 7b 46 7d |m T\def\|@term{F}|
|00000fb0| 5c 65 6c 73 65 0d 0a 20 | 20 20 20 20 20 20 20 20 |\else.. | |
|00000fc0| 20 20 20 20 20 20 5c 64 | 65 66 5c 40 74 65 72 6d | \d|ef\@term|
|00000fd0| 7b 54 7d 5c 66 69 5c 66 | 69 0d 0a 20 20 20 20 20 |{T}\fi\f|i.. |
|00000fe0| 20 20 5c 69 66 5c 40 6f | 72 6f 70 20 54 5c 69 66 | \if\@o|rop T\if|
|00000ff0| 5c 40 76 61 6c 20 46 5c | 6c 65 74 5c 40 76 61 6c |\@val F\|let\@val|
|00001000| 5c 40 74 65 72 6d 5c 66 | 69 0d 0a 20 20 20 20 20 |\@term\f|i.. |
|00001010| 20 20 20 20 20 20 20 20 | 5c 65 6c 73 65 20 5c 69 | |\else \i|
|00001020| 66 5c 40 76 61 6c 20 54 | 5c 6c 65 74 5c 40 76 61 |f\@val T|\let\@va|
|00001030| 6c 5c 40 74 65 72 6d 5c | 66 69 5c 66 69 7d 0d 0a |l\@term\|fi\fi}..|
|00001040| 0d 0a 5c 64 65 66 5c 40 | 6f 72 7b 5c 72 65 6c 61 |..\def\@|or{\rela|
|00001050| 78 5c 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 |x\def\no|expand\@|
|00001060| 74 65 72 6d 7b 54 7d 5c | 65 6c 73 65 20 5c 64 65 |term{T}\|else \de|
|00001070| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 72 6d |f\noexpa|nd\@term|
|00001080| 7b 46 7d 5c 66 69 0d 0a | 20 20 20 20 20 20 20 20 |{F}\fi..| |
|00001090| 20 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 65 6e 64 65 | \noexpa|nd\@ende|
|000010a0| 76 61 6c 20 5c 64 65 66 | 5c 6e 6f 65 78 70 61 6e |val \def|\noexpan|
|000010b0| 64 5c 40 6f 72 6f 70 7b | 54 7d 5c 69 66 6e 75 6d |d\@orop{|T}\ifnum|
|000010c0| 7d 0d 0a 0d 0a 5c 64 65 | 66 5c 40 61 6e 64 7b 5c |}....\de|f\@and{\|
|000010d0| 72 65 6c 61 78 5c 64 65 | 66 5c 6e 6f 65 78 70 61 |relax\de|f\noexpa|
|000010e0| 6e 64 5c 40 74 65 72 6d | 7b 54 7d 5c 65 6c 73 65 |nd\@term|{T}\else|
|000010f0| 20 5c 64 65 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 | \def\no|expand\@|
|00001100| 74 65 72 6d 7b 46 7d 5c | 66 69 0d 0a 20 20 20 20 |term{F}\|fi.. |
|00001110| 20 20 20 20 20 20 5c 6e | 6f 65 78 70 61 6e 64 5c | \n|oexpand\|
|00001120| 40 65 6e 64 65 76 61 6c | 5c 64 65 66 5c 6e 6f 65 |@endeval|\def\noe|
|00001130| 78 70 61 6e 64 5c 40 6f | 72 6f 70 7b 46 7d 5c 69 |xpand\@o|rop{F}\i|
|00001140| 66 6e 75 6d 7d 0d 0a 0d | 0a 5c 64 65 66 5c 40 6e |fnum}...|.\def\@n|
|00001150| 65 67 7b 31 3d 31 20 5c | 66 69 20 5c 64 65 66 5c |eg{1=1 \|fi \def\|
|00001160| 6e 6f 65 78 70 61 6e 64 | 5c 40 6e 65 67 61 74 65 |noexpand|\@negate|
|00001170| 7b 54 7d 5c 69 66 6e 75 | 6d 7d 0d 0a 0d 0a 5c 64 |{T}\ifnu|m}....\d|
|00001180| 65 66 5c 40 6c 70 61 72 | 65 6e 7b 31 3d 31 20 5c |ef\@lpar|en{1=1 \|
|00001190| 66 69 20 5c 62 65 67 69 | 6e 67 72 6f 75 70 20 5c |fi \begi|ngroup \|
|000011a0| 6e 6f 65 78 70 61 6e 64 | 5c 40 65 76 61 6c 20 5c |noexpand|\@eval \|
|000011b0| 69 66 6e 75 6d 7d 0d 0a | 0d 0a 5c 64 65 66 5c 40 |ifnum}..|..\def\@|
|000011c0| 72 70 61 72 65 6e 7b 5c | 72 65 6c 61 78 5c 64 65 |rparen{\|relax\de|
|000011d0| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 72 6d |f\noexpa|nd\@term|
|000011e0| 7b 54 7d 5c 65 6c 73 65 | 20 5c 64 65 66 5c 6e 6f |{T}\else| \def\no|
|000011f0| 65 78 70 61 6e 64 5c 40 | 74 65 72 6d 7b 46 7d 5c |expand\@|term{F}\|
|00001200| 66 69 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |fi.. | |
|00001210| 20 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 65 6e 64 65 | \noexpa|nd\@ende|
|00001220| 76 61 6c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |val.. | |
|00001230| 20 20 5c 69 66 5c 6e 6f | 65 78 70 61 6e 64 5c 40 | \if\no|expand\@|
|00001240| 76 61 6c 20 54 5c 67 64 | 65 66 5c 6e 6f 65 78 70 |val T\gd|ef\noexp|
|00001250| 61 6e 64 5c 40 67 74 65 | 6d 70 62 7b 31 3d 31 7d |and\@gte|mpb{1=1}|
|00001260| 5c 65 6c 73 65 0d 0a 20 | 20 20 20 20 20 20 20 20 |\else.. | |
|00001270| 20 20 20 5c 67 64 65 66 | 5c 6e 6f 65 78 70 61 6e | \gdef|\noexpan|
|00001280| 64 5c 40 67 74 65 6d 70 | 62 7b 31 3d 30 7d 5c 66 |d\@gtemp|b{1=0}\f|
|00001290| 69 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |i.. | \|
|000012a0| 65 6e 64 67 72 6f 75 70 | 20 5c 69 66 6e 75 6d 5c |endgroup| \ifnum\|
|000012b0| 6e 6f 65 78 70 61 6e 64 | 5c 40 67 74 65 6d 70 62 |noexpand|\@gtempb|
|000012c0| 7d 0d 0a 0d 0a 5c 64 65 | 66 5c 65 71 75 61 6c 23 |}....\de|f\equal#|
|000012d0| 31 23 32 7b 31 3d 31 20 | 5c 66 69 20 5c 65 64 65 |1#2{1=1 |\fi \ede|
|000012e0| 66 5c 6e 6f 65 78 70 61 | 6e 64 5c 40 74 65 6d 70 |f\noexpa|nd\@temp|
|000012f0| 61 7b 23 31 7d 25 0d 0a | 20 20 20 20 20 20 20 20 |a{#1}%..| |
|00001300| 20 20 20 20 20 20 20 5c | 65 64 65 66 5c 6e 6f 65 | \|edef\noe|
|00001310| 78 70 61 6e 64 5c 40 74 | 65 6d 70 65 7b 23 32 7d |xpand\@t|empe{#2}|
|00001320| 5c 69 66 78 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |\ifx.. | |
|00001330| 20 20 20 20 20 20 5c 6e | 6f 65 78 70 61 6e 64 5c | \n|oexpand\|
|00001340| 40 74 65 6d 70 61 5c 6e | 6f 65 78 70 61 6e 64 5c |@tempa\n|oexpand\|
|00001350| 40 74 65 6d 70 65 0d 0a | 20 20 20 20 20 20 20 20 |@tempe..| |
|00001360| 20 20 20 20 20 20 20 20 | 5c 64 65 66 5c 6e 6f 65 | |\def\noe|
|00001370| 78 70 61 6e 64 5c 40 74 | 65 6d 70 61 7b 31 3d 31 |xpand\@t|empa{1=1|
|00001380| 7d 5c 65 6c 73 65 0d 0a | 20 20 20 20 20 20 20 20 |}\else..| |
|00001390| 20 20 20 20 20 20 20 20 | 5c 64 65 66 5c 6e 6f 65 | |\def\noe|
|000013a0| 78 70 61 6e 64 5c 40 74 | 65 6d 70 61 7b 31 3d 30 |xpand\@t|empa{1=0|
|000013b0| 7d 5c 66 69 20 5c 69 66 | 6e 75 6d 20 5c 6e 6f 65 |}\fi \if|num \noe|
|000013c0| 78 70 61 6e 64 5c 40 74 | 65 6d 70 61 7d 0d 0a 0d |xpand\@t|empa}...|
|000013d0| 0a 5c 6c 6f 6e 67 5c 64 | 65 66 5c 77 68 69 6c 65 |.\long\d|ef\while|
|000013e0| 64 6f 23 31 23 32 7b 5c | 69 66 74 68 65 6e 65 6c |do#1#2{\|ifthenel|
|000013f0| 73 65 7b 23 31 7d 7b 5c | 40 77 68 69 6c 65 64 6f |se{#1}{\|@whiledo|
|00001400| 74 72 75 65 20 5c 40 77 | 68 69 6c 65 73 77 5c 69 |true \@w|hilesw\i|
|00001410| 66 40 77 68 69 6c 65 64 | 6f 0d 0a 20 20 20 20 20 |f@whiled|o.. |
|00001420| 20 20 20 20 20 20 20 20 | 20 5c 66 69 7b 23 32 5c | | \fi{#2\|
|00001430| 69 66 74 68 65 6e 65 6c | 73 65 7b 23 31 7d 7b 5c |ifthenel|se{#1}{\|
|00001440| 40 77 68 69 6c 65 64 6f | 74 72 75 65 7d 7b 5c 40 |@whiledo|true}{\@|
|00001450| 77 68 69 6c 65 64 6f 66 | 61 6c 73 65 7d 7d 7d 7b |whiledof|alse}}}{|
|00001460| 7d 7d 0d 0a 0d 0a 5c 6e | 65 77 69 66 5c 69 66 40 |}}....\n|ewif\if@|
|00001470| 77 68 69 6c 65 64 6f 0d | 0a 0d 0a 5c 65 6e 64 69 |whiledo.|...\endi|
|00001480| 6e 70 75 74 0d 0a | |nput.. | |
+--------+-------------------------+-------------------------+--------+--------+