/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / t / cmd / subval.t

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 73 75 62 76 61 6c | 2e 74 00 00 00 00 00 00 |..subval|.t......|
|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 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0e 11 00 | 00 03 ad a9 3a fd 1a a9 |........|....:...|
|00000060| 3a fd 1a 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 08 3e 00 00 |........|.....>..|
|00000080| 23 21 2e 2f 70 65 72 6c | 20 0d 0d 23 20 24 52 43 |#!./perl| ..# $RC|
|00000090| 53 66 69 6c 65 3a 20 73 | 75 62 76 61 6c 2e 74 2c |Sfile: s|ubval.t,|
|000000a0| 76 20 24 24 52 65 76 69 | 73 69 6f 6e 3a 20 34 2e |v $$Revi|sion: 4.|
|000000b0| 30 2e 31 2e 31 20 24 24 | 44 61 74 65 3a 20 39 31 |0.1.1 $$|Date: 91|
|000000c0| 2f 31 31 2f 30 35 20 31 | 38 3a 34 32 3a 33 31 20 |/11/05 1|8:42:31 |
|000000d0| 24 0d 0d 73 75 62 20 66 | 6f 6f 31 20 7b 0d 20 20 |$..sub f|oo1 {.  |
|000000e0| 20 20 27 74 72 75 65 31 | 27 3b 0d 20 20 20 20 69 |  'true1|';.    i|
|000000f0| 66 20 28 24 5f 5b 30 5d | 29 20 7b 20 27 74 72 75 |f ($_[0]|) { 'tru|
|00000100| 65 32 27 3b 20 7d 0d 7d | 0d 0d 73 75 62 20 66 6f |e2'; }.}|..sub fo|
|00000110| 6f 32 20 7b 0d 20 20 20 | 20 27 74 72 75 65 31 27 |o2 {.   | 'true1'|
|00000120| 3b 0d 20 20 20 20 69 66 | 20 28 24 5f 5b 30 5d 29 |;.    if| ($_[0])|
|00000130| 20 7b 20 72 65 74 75 72 | 6e 20 27 74 72 75 65 32 | { retur|n 'true2|
|00000140| 27 3b 20 7d 20 65 6c 73 | 65 20 7b 20 72 65 74 75 |'; } els|e { retu|
|00000150| 72 6e 20 27 74 72 75 65 | 33 27 3b 20 7d 0d 20 20 |rn 'true|3'; }.  |
|00000160| 20 20 27 74 72 75 65 30 | 27 3b 0d 7d 0d 0d 73 75 |  'true0|';.}..su|
|00000170| 62 20 66 6f 6f 33 20 7b | 0d 20 20 20 20 27 74 72 |b foo3 {|.    'tr|
|00000180| 75 65 31 27 3b 0d 20 20 | 20 20 75 6e 6c 65 73 73 |ue1';.  |  unless|
|00000190| 20 28 24 5f 5b 30 5d 29 | 20 7b 20 27 74 72 75 65 | ($_[0])| { 'true|
|000001a0| 32 27 3b 20 7d 0d 7d 0d | 0d 73 75 62 20 66 6f 6f |2'; }.}.|.sub foo|
|000001b0| 34 20 7b 0d 20 20 20 20 | 27 74 72 75 65 31 27 3b |4 {.    |'true1';|
|000001c0| 0d 20 20 20 20 75 6e 6c | 65 73 73 20 28 24 5f 5b |.    unl|ess ($_[|
|000001d0| 30 5d 29 20 7b 20 27 74 | 72 75 65 32 27 3b 20 7d |0]) { 't|rue2'; }|
|000001e0| 20 65 6c 73 65 20 7b 20 | 27 74 72 75 65 33 27 3b | else { |'true3';|
|000001f0| 20 7d 0d 7d 0d 0d 73 75 | 62 20 66 6f 6f 35 20 7b | }.}..su|b foo5 {|
|00000200| 0d 20 20 20 20 27 74 72 | 75 65 31 27 3b 0d 20 20 |.    'tr|ue1';.  |
|00000210| 20 20 27 74 72 75 65 32 | 27 20 69 66 20 24 5f 5b |  'true2|' if $_[|
|00000220| 30 5d 3b 0d 7d 0d 0d 73 | 75 62 20 66 6f 6f 36 20 |0];.}..s|ub foo6 |
|00000230| 7b 0d 20 20 20 20 27 74 | 72 75 65 31 27 3b 0d 20 |{.    't|rue1';. |
|00000240| 20 20 20 27 74 72 75 65 | 32 27 20 75 6e 6c 65 73 |   'true|2' unles|
|00000250| 73 20 24 5f 5b 30 5d 3b | 0d 7d 0d 0d 70 72 69 6e |s $_[0];|.}..prin|
|00000260| 74 20 22 31 2e 2e 33 34 | 5c 6e 22 3b 0d 0d 69 66 |t "1..34|\n";..if|
|00000270| 20 28 64 6f 20 66 6f 6f | 31 28 30 29 20 65 71 20 | (do foo|1(0) eq |
|00000280| 27 30 27 29 20 7b 70 72 | 69 6e 74 20 22 6f 6b 20 |'0') {pr|int "ok |
|00000290| 31 5c 6e 22 3b 7d 20 65 | 6c 73 65 20 7b 70 72 69 |1\n";} e|lse {pri|
|000002a0| 6e 74 20 22 6e 6f 74 20 | 6f 6b 20 31 20 24 66 6f |nt "not |ok 1 $fo|
|000002b0| 6f 5c 6e 22 3b 7d 0d 69 | 66 20 28 64 6f 20 66 6f |o\n";}.i|f (do fo|
|000002c0| 6f 31 28 31 29 20 65 71 | 20 27 74 72 75 65 32 27 |o1(1) eq| 'true2'|
|000002d0| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 32 5c 6e |) {print| "ok 2\n|
|000002e0| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|000002f0| 22 6e 6f 74 20 6f 6b 20 | 32 5c 6e 22 3b 7d 0d 69 |"not ok |2\n";}.i|
|00000300| 66 20 28 64 6f 20 66 6f | 6f 32 28 30 29 20 65 71 |f (do fo|o2(0) eq|
|00000310| 20 27 74 72 75 65 33 27 | 29 20 7b 70 72 69 6e 74 | 'true3'|) {print|
|00000320| 20 22 6f 6b 20 33 5c 6e | 22 3b 7d 20 65 6c 73 65 | "ok 3\n|";} else|
|00000330| 20 7b 70 72 69 6e 74 20 | 22 6e 6f 74 20 6f 6b 20 | {print |"not ok |
|00000340| 33 5c 6e 22 3b 7d 0d 69 | 66 20 28 64 6f 20 66 6f |3\n";}.i|f (do fo|
|00000350| 6f 32 28 31 29 20 65 71 | 20 27 74 72 75 65 32 27 |o2(1) eq| 'true2'|
|00000360| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 34 5c 6e |) {print| "ok 4\n|
|00000370| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|00000380| 22 6e 6f 74 20 6f 6b 20 | 34 5c 6e 22 3b 7d 0d 0d |"not ok |4\n";}..|
|00000390| 69 66 20 28 64 6f 20 66 | 6f 6f 33 28 30 29 20 65 |if (do f|oo3(0) e|
|000003a0| 71 20 27 74 72 75 65 32 | 27 29 20 7b 70 72 69 6e |q 'true2|') {prin|
|000003b0| 74 20 22 6f 6b 20 35 5c | 6e 22 3b 7d 20 65 6c 73 |t "ok 5\|n";} els|
|000003c0| 65 20 7b 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b |e {print| "not ok|
|000003d0| 20 35 5c 6e 22 3b 7d 0d | 69 66 20 28 64 6f 20 66 | 5\n";}.|if (do f|
|000003e0| 6f 6f 33 28 31 29 20 65 | 71 20 27 31 27 29 20 7b |oo3(1) e|q '1') {|
|000003f0| 70 72 69 6e 74 20 22 6f | 6b 20 36 5c 6e 22 3b 7d |print "o|k 6\n";}|
|00000400| 20 65 6c 73 65 20 7b 70 | 72 69 6e 74 20 22 6e 6f | else {p|rint "no|
|00000410| 74 20 6f 6b 20 36 5c 6e | 22 3b 7d 0d 69 66 20 28 |t ok 6\n|";}.if (|
|00000420| 64 6f 20 66 6f 6f 34 28 | 30 29 20 65 71 20 27 74 |do foo4(|0) eq 't|
|00000430| 72 75 65 32 27 29 20 7b | 70 72 69 6e 74 20 22 6f |rue2') {|print "o|
|00000440| 6b 20 37 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 7\n";}| else {p|
|00000450| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 37 5c 6e |rint "no|t ok 7\n|
|00000460| 22 3b 7d 0d 69 66 20 28 | 64 6f 20 66 6f 6f 34 28 |";}.if (|do foo4(|
|00000470| 31 29 20 65 71 20 27 74 | 72 75 65 33 27 29 20 7b |1) eq 't|rue3') {|
|00000480| 70 72 69 6e 74 20 22 6f | 6b 20 38 5c 6e 22 3b 7d |print "o|k 8\n";}|
|00000490| 20 65 6c 73 65 20 7b 70 | 72 69 6e 74 20 22 6e 6f | else {p|rint "no|
|000004a0| 74 20 6f 6b 20 38 5c 6e | 22 3b 7d 0d 0d 69 66 20 |t ok 8\n|";}..if |
|000004b0| 28 64 6f 20 66 6f 6f 35 | 28 30 29 20 65 71 20 27 |(do foo5|(0) eq '|
|000004c0| 30 27 29 20 7b 70 72 69 | 6e 74 20 22 6f 6b 20 39 |0') {pri|nt "ok 9|
|000004d0| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 70 72 69 6e |\n";} el|se {prin|
|000004e0| 74 20 22 6e 6f 74 20 6f | 6b 20 39 5c 6e 22 3b 7d |t "not o|k 9\n";}|
|000004f0| 0d 69 66 20 28 64 6f 20 | 66 6f 6f 35 28 31 29 20 |.if (do |foo5(1) |
|00000500| 65 71 20 27 74 72 75 65 | 32 27 29 20 7b 70 72 69 |eq 'true|2') {pri|
|00000510| 6e 74 20 22 6f 6b 20 31 | 30 5c 6e 22 3b 7d 20 65 |nt "ok 1|0\n";} e|
|00000520| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|00000530| 6f 6b 20 31 30 5c 6e 22 | 3b 7d 0d 69 66 20 28 64 |ok 10\n"|;}.if (d|
|00000540| 6f 20 66 6f 6f 36 28 30 | 29 20 65 71 20 27 74 72 |o foo6(0|) eq 'tr|
|00000550| 75 65 32 27 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |ue2') {p|rint "ok|
|00000560| 20 31 31 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 | 11\n";}| else {p|
|00000570| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 31 31 5c |rint "no|t ok 11\|
|00000580| 6e 22 3b 7d 0d 69 66 20 | 28 64 6f 20 66 6f 6f 36 |n";}.if |(do foo6|
|00000590| 28 31 29 20 65 71 20 27 | 31 27 29 20 7b 70 72 69 |(1) eq '|1') {pri|
|000005a0| 6e 74 20 22 6f 6b 20 31 | 32 5c 6e 22 3b 7d 20 65 |nt "ok 1|2\n";} e|
|000005b0| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|000005c0| 6f 6b 20 31 32 20 24 78 | 5c 6e 22 3b 7d 0d 0d 23 |ok 12 $x|\n";}..#|
|000005d0| 20 4e 6f 77 20 74 65 73 | 74 20 74 6f 20 73 65 65 | Now tes|t to see|
|000005e0| 20 74 68 61 74 20 72 65 | 63 75 72 73 69 6f 6e 20 | that re|cursion |
|000005f0| 77 6f 72 6b 73 20 75 73 | 69 6e 67 20 61 20 46 69 |works us|ing a Fi|
|00000600| 62 6f 6e 61 63 63 69 20 | 6e 75 6d 62 65 72 20 67 |bonacci |number g|
|00000610| 65 6e 65 72 61 74 6f 72 | 0d 0d 73 75 62 20 66 69 |enerator|..sub fi|
|00000620| 62 20 7b 0d 20 20 20 20 | 6c 6f 63 61 6c 28 24 61 |b {.    |local($a|
|00000630| 72 67 29 20 3d 20 40 5f | 3b 0d 20 20 20 20 6c 6f |rg) = @_|;.    lo|
|00000640| 63 61 6c 28 24 66 6f 6f | 29 3b 0d 20 20 20 20 24 |cal($foo|);.    $|
|00000650| 6c 65 76 65 6c 2b 2b 3b | 0d 20 20 20 20 69 66 20 |level++;|.    if |
|00000660| 28 24 61 72 67 20 3c 3d | 20 32 29 20 7b 0d 09 24 |($arg <=| 2) {..$|
|00000670| 66 6f 6f 20 3d 20 31 3b | 0d 20 20 20 20 7d 0d 20 |foo = 1;|.    }. |
|00000680| 20 20 20 65 6c 73 65 20 | 7b 0d 09 24 66 6f 6f 20 |   else |{..$foo |
|00000690| 3d 20 64 6f 20 66 69 62 | 28 24 61 72 67 2d 31 29 |= do fib|($arg-1)|
|000006a0| 20 2b 20 64 6f 20 66 69 | 62 28 24 61 72 67 2d 32 | + do fi|b($arg-2|
|000006b0| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 24 6c 65 |);.    }|.    $le|
|000006c0| 76 65 6c 2d 2d 3b 0d 20 | 20 20 20 24 66 6f 6f 3b |vel--;. |   $foo;|
|000006d0| 0d 7d 0d 0d 40 67 6f 6f | 64 20 3d 20 28 30 2c 31 |.}..@goo|d = (0,1|
|000006e0| 2c 31 2c 32 2c 33 2c 35 | 2c 38 2c 31 33 2c 32 31 |,1,2,3,5|,8,13,21|
|000006f0| 2c 33 34 2c 35 35 2c 38 | 39 29 3b 0d 0d 66 6f 72 |,34,55,8|9);..for|
|00000700| 20 28 24 69 20 3d 20 31 | 3b 20 24 69 20 3c 3d 20 | ($i = 1|; $i <= |
|00000710| 31 30 3b 20 24 69 2b 2b | 29 20 7b 0d 20 20 20 20 |10; $i++|) {.    |
|00000720| 24 66 6f 6f 20 3d 20 24 | 69 20 2b 20 31 32 3b 0d |$foo = $|i + 12;.|
|00000730| 20 20 20 20 69 66 20 28 | 64 6f 20 66 69 62 28 24 |    if (|do fib($|
|00000740| 69 29 20 3d 3d 20 24 67 | 6f 6f 64 5b 24 69 5d 29 |i) == $g|ood[$i])|
|00000750| 20 7b 0d 09 70 72 69 6e | 74 20 22 6f 6b 20 24 66 | {..prin|t "ok $f|
|00000760| 6f 6f 5c 6e 22 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |oo\n";. |   }.   |
|00000770| 20 65 6c 73 65 20 7b 0d | 09 70 72 69 6e 74 20 22 | else {.|.print "|
|00000780| 6e 6f 74 20 6f 6b 20 24 | 66 6f 6f 5c 6e 22 3b 0d |not ok $|foo\n";.|
|00000790| 20 20 20 20 7d 0d 7d 0d | 0d 73 75 62 20 61 72 79 |    }.}.|.sub ary|
|000007a0| 31 20 7b 0d 20 20 20 20 | 28 31 2c 32 2c 33 29 3b |1 {.    |(1,2,3);|
|000007b0| 0d 7d 0d 0d 70 72 69 6e | 74 20 26 61 72 79 31 20 |.}..prin|t &ary1 |
|000007c0| 65 71 20 33 20 3f 20 22 | 6f 6b 20 32 33 5c 6e 22 |eq 3 ? "|ok 23\n"|
|000007d0| 20 3a 20 22 6e 6f 74 20 | 6f 6b 20 32 33 5c 6e 22 | : "not |ok 23\n"|
|000007e0| 3b 0d 0d 70 72 69 6e 74 | 20 6a 6f 69 6e 28 27 3a |;..print| join(':|
|000007f0| 27 2c 26 61 72 79 31 29 | 20 65 71 20 27 31 3a 32 |',&ary1)| eq '1:2|
|00000800| 3a 33 27 20 3f 20 22 6f | 6b 20 32 34 5c 6e 22 20 |:3' ? "o|k 24\n" |
|00000810| 3a 20 22 6e 6f 74 20 6f | 6b 20 32 34 5c 6e 22 3b |: "not o|k 24\n";|
|00000820| 0d 0d 73 75 62 20 61 72 | 79 32 20 7b 0d 20 20 20 |..sub ar|y2 {.   |
|00000830| 20 64 6f 20 7b 0d 09 72 | 65 74 75 72 6e 20 28 31 | do {..r|eturn (1|
|00000840| 2c 32 2c 33 29 3b 0d 09 | 28 33 2c 32 2c 31 29 3b |,2,3);..|(3,2,1);|
|00000850| 0d 20 20 20 20 7d 3b 0d | 20 20 20 20 30 3b 0d 7d |.    };.|    0;.}|
|00000860| 0d 0d 70 72 69 6e 74 20 | 26 61 72 79 32 20 65 71 |..print |&ary2 eq|
|00000870| 20 33 20 3f 20 22 6f 6b | 20 32 35 5c 6e 22 20 3a | 3 ? "ok| 25\n" :|
|00000880| 20 22 6e 6f 74 20 6f 6b | 20 32 35 5c 6e 22 3b 0d | "not ok| 25\n";.|
|00000890| 0d 24 78 20 3d 20 6a 6f | 69 6e 28 27 3a 27 2c 26 |.$x = jo|in(':',&|
|000008a0| 61 72 79 32 29 3b 0d 70 | 72 69 6e 74 20 24 78 20 |ary2);.p|rint $x |
|000008b0| 65 71 20 27 31 3a 32 3a | 33 27 20 3f 20 22 6f 6b |eq '1:2:|3' ? "ok|
|000008c0| 20 32 36 5c 6e 22 20 3a | 20 22 6e 6f 74 20 6f 6b | 26\n" :| "not ok|
|000008d0| 20 32 36 20 24 78 5c 6e | 22 3b 0d 0d 73 75 62 20 | 26 $x\n|";..sub |
|000008e0| 73 6f 6d 65 73 75 62 20 | 7b 0d 20 20 20 20 6c 6f |somesub |{.    lo|
|000008f0| 63 61 6c 28 24 6e 75 6d | 2c 24 50 2c 24 46 2c 24 |cal($num|,$P,$F,$|
|00000900| 4c 29 20 3d 20 40 5f 3b | 0d 20 20 20 20 28 24 70 |L) = @_;|.    ($p|
|00000910| 2c 24 66 2c 24 6c 29 20 | 3d 20 63 61 6c 6c 65 72 |,$f,$l) |= caller|
|00000920| 3b 0d 20 20 20 20 70 72 | 69 6e 74 20 22 24 70 3a |;.    pr|int "$p:|
|00000930| 24 66 3a 24 6c 22 20 65 | 71 20 22 24 50 3a 24 46 |$f:$l" e|q "$P:$F|
|00000940| 3a 24 4c 22 20 3f 20 22 | 6f 6b 20 24 6e 75 6d 5c |:$L" ? "|ok $num\|
|00000950| 6e 22 20 3a 20 22 6e 6f | 74 20 6f 6b 20 24 6e 75 |n" : "no|t ok $nu|
|00000960| 6d 20 24 70 3a 24 66 3a | 24 6c 20 6e 65 20 24 50 |m $p:$f:|$l ne $P|
|00000970| 3a 24 46 3a 24 4c 5c 6e | 22 3b 0d 7d 0d 0d 26 73 |:$F:$L\n|";.}..&s|
|00000980| 6f 6d 65 73 75 62 28 32 | 37 2c 20 27 6d 61 69 6e |omesub(2|7, 'main|
|00000990| 27 2c 20 5f 5f 46 49 4c | 45 5f 5f 2c 20 5f 5f 4c |', __FIL|E__, __L|
|000009a0| 49 4e 45 5f 5f 29 3b 0d | 0d 70 61 63 6b 61 67 65 |INE__);.|.package|
|000009b0| 20 66 6f 6f 3b 0d 26 6d | 61 69 6e 27 73 6f 6d 65 | foo;.&m|ain'some|
|000009c0| 73 75 62 28 32 38 2c 20 | 27 66 6f 6f 27 2c 20 5f |sub(28, |'foo', _|
|000009d0| 5f 46 49 4c 45 5f 5f 2c | 20 5f 5f 4c 49 4e 45 5f |_FILE__,| __LINE_|
|000009e0| 5f 29 3b 0d 0d 70 61 63 | 6b 61 67 65 20 6d 61 69 |_);..pac|kage mai|
|000009f0| 6e 3b 0d 24 69 20 3d 20 | 32 38 3b 0d 6f 70 65 6e |n;.$i = |28;.open|
|00000a00| 28 46 4f 4f 2c 22 3e 43 | 6d 64 5f 73 75 62 76 61 |(FOO,">C|md_subva|
|00000a10| 6c 2e 74 6d 70 22 29 3b | 0d 70 72 69 6e 74 20 46 |l.tmp");|.print F|
|00000a20| 4f 4f 20 22 62 6c 61 68 | 20 62 6c 61 68 5c 6e 22 |OO "blah| blah\n"|
|00000a30| 3b 0d 63 6c 6f 73 65 20 | 46 4f 4f 3b 0d 0d 26 66 |;.close |FOO;..&f|
|00000a40| 69 6c 65 5f 6d 61 69 6e | 28 2a 46 29 3b 0d 63 6c |ile_main|(*F);.cl|
|00000a50| 6f 73 65 20 46 3b 0d 26 | 69 6e 66 6f 5f 6d 61 69 |ose F;.&|info_mai|
|00000a60| 6e 3b 0d 0d 26 66 69 6c | 65 5f 70 61 63 6b 61 67 |n;..&fil|e_packag|
|00000a70| 65 28 2a 46 29 3b 0d 63 | 6c 6f 73 65 20 46 3b 0d |e(*F);.c|lose F;.|
|00000a80| 26 69 6e 66 6f 5f 70 61 | 63 6b 61 67 65 3b 0d 0d |&info_pa|ckage;..|
|00000a90| 75 6e 6c 69 6e 6b 20 27 | 43 6d 64 5f 73 75 62 76 |unlink '|Cmd_subv|
|00000aa0| 61 6c 2e 74 6d 70 27 3b | 0d 0d 73 75 62 20 66 69 |al.tmp';|..sub fi|
|00000ab0| 6c 65 5f 6d 61 69 6e 20 | 7b 0d 20 20 20 20 20 20 |le_main |{.      |
|00000ac0| 20 20 6c 6f 63 61 6c 28 | 2a 46 29 20 3d 20 40 5f |  local(|*F) = @_|
|00000ad0| 3b 0d 0d 20 20 20 20 20 | 20 20 20 6f 70 65 6e 28 |;..     |   open(|
|00000ae0| 46 2c 20 27 43 6d 64 5f | 73 75 62 76 61 6c 2e 74 |F, 'Cmd_|subval.t|
|00000af0| 6d 70 27 29 20 7c 7c 20 | 64 69 65 20 22 63 61 6e |mp') || |die "can|
|00000b00| 27 74 20 6f 70 65 6e 5c | 6e 22 3b 0d 09 24 69 2b |'t open\|n";..$i+|
|00000b10| 2b 3b 0d 20 20 20 20 20 | 20 20 20 65 6f 66 20 46 |+;.     |   eof F|
|00000b20| 20 3f 20 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b | ? print| "not ok|
|00000b30| 20 24 69 5c 6e 22 20 3a | 20 70 72 69 6e 74 20 22 | $i\n" :| print "|
|00000b40| 6f 6b 20 24 69 5c 6e 22 | 3b 0d 7d 0d 0d 73 75 62 |ok $i\n"|;.}..sub|
|00000b50| 20 69 6e 66 6f 5f 6d 61 | 69 6e 20 7b 0d 20 20 20 | info_ma|in {.   |
|00000b60| 20 20 20 20 20 6c 6f 63 | 61 6c 28 2a 46 29 3b 0d |     loc|al(*F);.|
|00000b70| 0d 20 20 20 20 20 20 20 | 20 6f 70 65 6e 28 46 2c |.       | open(F,|
|00000b80| 20 27 43 6d 64 5f 73 75 | 62 76 61 6c 2e 74 6d 70 | 'Cmd_su|bval.tmp|
|00000b90| 27 29 20 7c 7c 20 64 69 | 65 20 22 74 65 73 74 3a |') || di|e "test:|
|00000ba0| 20 63 61 6e 27 74 20 6f | 70 65 6e 5c 6e 22 3b 0d | can't o|pen\n";.|
|00000bb0| 09 24 69 2b 2b 3b 0d 20 | 20 20 20 20 20 20 20 65 |.$i++;. |       e|
|00000bc0| 6f 66 20 46 20 3f 20 70 | 72 69 6e 74 20 22 6e 6f |of F ? p|rint "no|
|00000bd0| 74 20 6f 6b 20 24 69 5c | 6e 22 20 3a 20 70 72 69 |t ok $i\|n" : pri|
|00000be0| 6e 74 20 22 6f 6b 20 24 | 69 5c 6e 22 3b 0d 20 20 |nt "ok $|i\n";.  |
|00000bf0| 20 20 20 20 20 20 26 69 | 73 65 6f 66 28 2a 46 29 |      &i|seof(*F)|
|00000c00| 3b 0d 09 63 6c 6f 73 65 | 20 46 3b 0d 7d 0d 0d 73 |;..close| F;.}..s|
|00000c10| 75 62 20 69 73 65 6f 66 | 20 7b 0d 20 20 20 20 20 |ub iseof| {.     |
|00000c20| 20 20 20 6c 6f 63 61 6c | 28 2a 55 4e 49 51 29 20 |   local|(*UNIQ) |
|00000c30| 3d 20 40 5f 3b 0d 0d 09 | 24 69 2b 2b 3b 0d 20 20 |= @_;...|$i++;.  |
|00000c40| 20 20 20 20 20 20 65 6f | 66 20 55 4e 49 51 20 3f |      eo|f UNIQ ?|
|00000c50| 20 70 72 69 6e 74 20 22 | 28 6e 6f 74 20 6f 6b 20 | print "|(not ok |
|00000c60| 24 69 29 5c 6e 22 20 3a | 20 70 72 69 6e 74 20 22 |$i)\n" :| print "|
|00000c70| 6f 6b 20 24 69 5c 6e 22 | 3b 0d 7d 0d 0d 7b 70 61 |ok $i\n"|;.}..{pa|
|00000c80| 63 6b 61 67 65 20 66 6f | 6f 3b 0d 0d 20 73 75 62 |ckage fo|o;.. sub|
|00000c90| 20 6d 61 69 6e 27 66 69 | 6c 65 5f 70 61 63 6b 61 | main'fi|le_packa|
|00000ca0| 67 65 20 7b 0d 20 20 20 | 20 20 20 20 20 6c 6f 63 |ge {.   |     loc|
|00000cb0| 61 6c 28 2a 46 29 20 3d | 20 40 5f 3b 0d 0d 20 20 |al(*F) =| @_;..  |
|00000cc0| 20 20 20 20 20 20 6f 70 | 65 6e 28 46 2c 20 27 43 |      op|en(F, 'C|
|00000cd0| 6d 64 5f 73 75 62 76 61 | 6c 2e 74 6d 70 27 29 20 |md_subva|l.tmp') |
|00000ce0| 7c 7c 20 64 69 65 20 22 | 63 61 6e 27 74 20 6f 70 ||| die "|can't op|
|00000cf0| 65 6e 5c 6e 22 3b 0d 09 | 24 6d 61 69 6e 27 69 2b |en\n";..|$main'i+|
|00000d00| 2b 3b 0d 20 20 20 20 20 | 20 20 20 65 6f 66 20 46 |+;.     |   eof F|
|00000d10| 20 3f 20 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b | ? print| "not ok|
|00000d20| 20 24 6d 61 69 6e 27 69 | 5c 6e 22 20 3a 20 70 72 | $main'i|\n" : pr|
|00000d30| 69 6e 74 20 22 6f 6b 20 | 24 6d 61 69 6e 27 69 5c |int "ok |$main'i\|
|00000d40| 6e 22 3b 0d 20 7d 0d 0d | 20 73 75 62 20 6d 61 69 |n";. }..| sub mai|
|00000d50| 6e 27 69 6e 66 6f 5f 70 | 61 63 6b 61 67 65 20 7b |n'info_p|ackage {|
|00000d60| 0d 20 20 20 20 20 20 20 | 20 6c 6f 63 61 6c 28 2a |.       | local(*|
|00000d70| 46 29 3b 0d 0d 20 20 20 | 20 20 20 20 20 6f 70 65 |F);..   |     ope|
|00000d80| 6e 28 46 2c 20 27 43 6d | 64 5f 73 75 62 76 61 6c |n(F, 'Cm|d_subval|
|00000d90| 2e 74 6d 70 27 29 20 7c | 7c 20 64 69 65 20 22 63 |.tmp') ||| die "c|
|00000da0| 61 6e 27 74 20 6f 70 65 | 6e 5c 6e 22 3b 0d 09 24 |an't ope|n\n";..$|
|00000db0| 6d 61 69 6e 27 69 2b 2b | 3b 0d 20 20 20 20 20 20 |main'i++|;.      |
|00000dc0| 20 20 65 6f 66 20 46 20 | 3f 20 70 72 69 6e 74 20 |  eof F |? print |
|00000dd0| 22 6e 6f 74 20 6f 6b 20 | 24 6d 61 69 6e 27 69 5c |"not ok |$main'i\|
|00000de0| 6e 22 20 3a 20 70 72 69 | 6e 74 20 22 6f 6b 20 24 |n" : pri|nt "ok $|
|00000df0| 6d 61 69 6e 27 69 5c 6e | 22 3b 0d 20 20 20 20 20 |main'i\n|";.     |
|00000e00| 20 20 20 26 69 73 65 6f | 66 28 2a 46 29 3b 0d 20 |   &iseo|f(*F);. |
|00000e10| 7d 0d 0d 20 73 75 62 20 | 69 73 65 6f 66 20 7b 0d |}.. sub |iseof {.|
|00000e20| 20 20 20 20 20 20 20 20 | 6c 6f 63 61 6c 28 2a 55 |        |local(*U|
|00000e30| 4e 49 51 29 20 3d 20 40 | 5f 3b 0d 0d 09 24 6d 61 |NIQ) = @|_;...$ma|
|00000e40| 69 6e 27 69 2b 2b 3b 0d | 20 20 20 20 20 20 20 20 |in'i++;.|        |
|00000e50| 65 6f 66 20 55 4e 49 51 | 20 3f 20 70 72 69 6e 74 |eof UNIQ| ? print|
|00000e60| 20 22 6e 6f 74 20 6f 6b | 20 24 6d 61 69 6e 27 69 | "not ok| $main'i|
|00000e70| 5c 6e 22 20 3a 20 70 72 | 69 6e 74 20 22 6f 6b 20 |\n" : pr|int "ok |
|00000e80| 24 6d 61 69 6e 27 69 5c | 6e 22 3b 0d 20 7d 0d 7d |$main'i\|n";. }.}|
|00000e90| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 01 00 00 00 03 0a | 00 00 02 0a 00 00 00 a3 |........|........|
|00000f10| 30 00 a1 00 01 3f 6e 69 | 63 6b 00 00 24 1c 65 b7 |0....?ni|ck..$.e.|
|00000f20| 8a 3e 70 69 63 62 3f 28 | a3 a9 a0 1b a9 e1 56 24 |.>picb?(|......V$|
|00000f30| 08 73 75 62 76 61 6c 2e | 74 00 02 00 00 00 54 45 |.subval.|t.....TE|
|00000f40| 58 54 4d 50 53 20 01 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|00000f50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 00 |..TEXTMP|S ......|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 a8 ee 29 3d 00 00 | 0e 11 00 00 03 ad 2a f9 |....)=..|......*.|
|00000f80| 30 ff 6a 66 66 0e 0a 25 | ff 6e aa 4e 69 ff 6e 25 |0.jff..%|.n.Ni.n%|
|00000f90| 48 f9 2d 68 42 6c ff 66 | d1 2d 21 49 42 04 24 55 |H.-hBl.f|.-!IB.$U|
|00000fa0| 24 52 9c 4b ff 6a 25 40 | f9 47 66 21 6e ff 66 d6 |$R.K.j%@|.Gf!n.f.|
|00000fb0| 42 04 20 2f 06 67 22 66 | 1d 0c 90 06 6e 69 63 6b |B. /.g"f|....nick|
|00000fc0| 66 16 2f 0e 2c 68 06 0a | ff be 47 aa 14 0a ff c4 |f./.,h..|..G.....|
|00000fd0| aa 15 2c 5f 62 9e 1b c8 | d0 2c 2f 09 32 29 11 e7 |..,_b...|.,/.2)..|
|00000fe0| 41 b0 71 10 08 90 38 51 | 41 6c f6 33 43 f1 10 0a |A.q...8Q|Al.3C...|
|00000ff0| 20 99 31 51 ed 06 79 04 | 4a 28 08 22 01 c8 0a 8b | .1Q..y.|J(."....|
|00001000| 00 00 00 78 00 05 00 00 | 00 48 00 48 00 00 00 00 |...x....|.H.H....|
|00001010| 03 0d 02 2f ff e7 ff ee | 03 31 02 41 1f 03 05 7b |.../....|.1.A...{|
|00001020| 03 e0 00 01 00 00 01 2c | 01 2c 00 00 00 00 0c b6 |.......,|.,......|
|00001030| 09 19 01 2c 00 2d 05 a0 | 5e ec 00 26 04 01 01 01 |...,.-..|^..&....|
|00001040| 00 18 00 01 27 0f 00 01 | 00 01 00 00 00 00 00 00 |....'...|........|
|00001050| 00 00 00 00 00 00 00 01 | 00 64 00 00 00 00 00 00 |........|.d......|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 01 00 00 02 | 41 00 00 00 00 00 01 10 |........|A.......|
|00001080| 00 50 00 28 01 76 01 e0 | 06 4d 6f 6e 61 63 6f 75 |.P.(.v..|.Monacou|
|00001090| 74 68 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |th......|........|
|000010a0| 00 00 00 00 00 00 00 00 | a7 6e 57 8a 42 44 00 05 |........|.nW.BD..|
|000010b0| 00 00 2b 4b 08 73 75 62 | 76 61 6c 2e 74 00 00 00 |..+K.sub|val.t...|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 3e 55 | a8 ee 29 3d 54 45 58 54 |......>U|..)=TEXT|
|00001100| 4d 50 53 20 ff ff ff ff | 00 00 00 02 00 00 00 00 |MPS ....|........|
|00001110| 00 00 00 00 00 00 00 00 | 00 06 00 0d 2e 4c 61 43 |........|.....LaC|
|00001120| 69 65 5f 53 43 53 49 72 | 32 00 ff ff 00 00 00 80 |ie_SCSIr|2.......|
|00001130| 00 00 00 d4 00 02 5c 04 | 00 00 00 01 00 00 00 18 |......\.|........|
|00001140| 00 00 00 18 6c 69 73 74 | 00 00 00 01 00 00 00 00 |....list|........|
|00001150| 61 6c 69 73 00 00 00 ac | 00 00 00 00 00 ac 00 02 |alis....|........|
|00001160| 00 00 05 6b 6e 75 74 68 | 00 00 00 00 00 00 00 00 |...knuth|........|
|00001170| 00 00 00 94 00 00 00 00 | 00 00 00 00 00 00 a7 6e |........|.......n|
|00001180| 57 8a 42 44 00 05 00 00 | 00 09 08 73 00 00 00 00 |W.BD....|...s....|
|00001190| 00 00 00 08 07 4d 61 63 | 50 65 72 6c 00 00 00 48 |.....Mac|Perl...H|
|000011a0| 00 09 4d 6f 6e 61 63 6f | 00 00 00 46 35 fc 00 00 |..Monaco|...F5...|
|000011b0| 00 00 02 a0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 06 00 03 00 3c | 00 24 01 dd 02 3d 00 3c |.......<|.$...=.<|
|000011d0| 00 24 01 dd 02 3d a9 3a | b6 ca 00 00 00 09 00 00 |.$...=.:|........|
|000011e0| 00 09 00 00 00 00 01 00 | 00 00 00 1e 00 3c 00 24 |........|.....<.$|
|000011f0| 01 dd 02 3d 00 3c 00 24 | 01 dd 02 3d 00 00 00 00 |...=.<.$|...=....|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00001210| 03 0a 00 00 02 0a 00 00 | 00 a3 00 43 c9 60 13 d6 |........|...C.`..|
|00001220| 00 00 00 1c 00 7a 00 03 | 54 46 53 50 00 00 00 22 |.....z..|TFSP..."|
|00001230| 54 46 53 53 00 00 00 2e | 53 54 52 20 00 00 00 3a |TFSS....|STR ...:|
|00001240| 4d 50 53 52 00 01 00 46 | 00 ff 00 00 00 00 00 00 |MPSR...F|........|
|00001250| 00 00 00 00 00 ff 00 0d | 00 00 00 7c 00 00 00 00 |........|...|....|
|00001260| bf f4 00 19 00 00 01 90 | 00 00 00 00 03 ed ff ff |........|........|
|00001270| 00 00 01 9c 00 00 00 00 | 03 f0 ff ff 00 00 01 e8 |........|........|
|00001280| 00 46 20 fc 0c 50 72 69 | 6e 74 65 72 20 49 6e 66 |.F ..Pri|nter Inf|
|00001290| 6f 0b 48 65 61 64 65 72 | 20 49 6e 66 6f 0f 46 69 |o.Header| Info.Fi|
|000012a0| 6e 64 65 72 20 41 70 70 | 20 49 6e 66 6f 00 00 00 |nder App| Info...|
|000012b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+