/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 appl.sit / MacPerl ƒ / t / op / regexp.t

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 72 65 67 65 78 70 | 2e 74 00 00 00 00 00 00 |..regexp|.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 03 ea 00 | 00 03 1f a9 3c 29 b5 a9 |........|....<)..|
|00000060| 3c 29 b5 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 82 23 00 00 |........|.....#..|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 52 43 53 |#!./perl|..# $RCS|
|00000090| 66 69 6c 65 3a 20 72 65 | 67 65 78 70 2e 74 2c 76 |file: re|gexp.t,v|
|000000a0| 20 24 24 52 65 76 69 73 | 69 6f 6e 3a 20 34 2e 30 | $$Revis|ion: 4.0|
|000000b0| 2e 31 2e 31 20 24 24 44 | 61 74 65 3a 20 39 31 2f |.1.1 $$D|ate: 91/|
|000000c0| 30 36 2f 31 30 20 30 31 | 3a 33 30 3a 32 39 20 24 |06/10 01|:30:29 $|
|000000d0| 0d 0d 6f 70 65 6e 28 54 | 45 53 54 53 2c 27 72 65 |..open(T|ESTS,'re|
|000000e0| 5f 74 65 73 74 73 27 29 | 20 7c 7c 20 6f 70 65 6e |_tests')| || open|
|000000f0| 28 54 45 53 54 53 2c 27 | 3a 6f 70 3a 72 65 5f 74 |(TESTS,'|:op:re_t|
|00000100| 65 73 74 73 27 29 20 7c | 7c 20 6f 70 65 6e 28 54 |ests') ||| open(T|
|00000110| 45 53 54 53 2c 27 3a 74 | 3a 6f 70 3a 72 65 5f 74 |ESTS,':t|:op:re_t|
|00000120| 65 73 74 73 27 29 0d 20 | 20 20 20 7c 7c 20 64 69 |ests'). |   || di|
|00000130| 65 20 22 43 61 6e 27 74 | 20 6f 70 65 6e 20 72 65 |e "Can't| open re|
|00000140| 5f 74 65 73 74 73 22 3b | 0d 77 68 69 6c 65 20 28 |_tests";|.while (|
|00000150| 3c 54 45 53 54 53 3e 29 | 20 7b 20 7d 0d 24 6e 75 |<TESTS>)| { }.$nu|
|00000160| 6d 74 65 73 74 73 20 3d | 20 24 2e 3b 0d 63 6c 6f |mtests =| $.;.clo|
|00000170| 73 65 28 54 45 53 54 53 | 29 3b 0d 0d 70 72 69 6e |se(TESTS|);..prin|
|00000180| 74 20 22 31 2e 2e 24 6e | 75 6d 74 65 73 74 73 5c |t "1..$n|umtests\|
|00000190| 6e 22 3b 0d 6f 70 65 6e | 28 54 45 53 54 53 2c 27 |n";.open|(TESTS,'|
|000001a0| 72 65 5f 74 65 73 74 73 | 27 29 20 7c 7c 20 6f 70 |re_tests|') || op|
|000001b0| 65 6e 28 54 45 53 54 53 | 2c 27 3a 6f 70 3a 72 65 |en(TESTS|,':op:re|
|000001c0| 5f 74 65 73 74 73 27 29 | 20 7c 7c 20 6f 70 65 6e |_tests')| || open|
|000001d0| 28 54 45 53 54 53 2c 27 | 3a 74 3a 6f 70 3a 72 65 |(TESTS,'|:t:op:re|
|000001e0| 5f 74 65 73 74 73 27 29 | 0d 20 20 20 20 7c 7c 20 |_tests')|.    || |
|000001f0| 64 69 65 20 22 43 61 6e | 27 74 20 6f 70 65 6e 20 |die "Can|'t open |
|00000200| 72 65 5f 74 65 73 74 73 | 22 3b 0d 24 7c 20 3d 20 |re_tests|";.$| = |
|00000210| 31 3b 0d 77 68 69 6c 65 | 20 28 3c 54 45 53 54 53 |1;.while| (<TESTS|
|00000220| 3e 29 20 7b 0d 20 20 20 | 20 28 24 70 61 74 2c 20 |>) {.   | ($pat, |
|00000230| 24 73 75 62 6a 65 63 74 | 2c 20 24 72 65 73 75 6c |$subject|, $resul|
|00000240| 74 2c 20 24 72 65 70 6c | 2c 20 24 65 78 70 65 63 |t, $repl|, $expec|
|00000250| 74 29 20 3d 20 73 70 6c | 69 74 28 2f 5b 5c 74 5c |t) = spl|it(/[\t\|
|00000260| 6e 5d 2f 2c 24 5f 29 3b | 0d 20 20 20 20 24 69 6e |n]/,$_);|.    $in|
|00000270| 70 75 74 20 3d 20 6a 6f | 69 6e 28 27 3a 27 2c 24 |put = jo|in(':',$|
|00000280| 70 61 74 2c 24 73 75 62 | 6a 65 63 74 2c 24 72 65 |pat,$sub|ject,$re|
|00000290| 73 75 6c 74 2c 24 72 65 | 70 6c 2c 24 65 78 70 65 |sult,$re|pl,$expe|
|000002a0| 63 74 29 3b 0d 20 20 20 | 20 24 70 61 74 20 3d 20 |ct);.   | $pat = |
|000002b0| 22 27 24 70 61 74 27 22 | 20 75 6e 6c 65 73 73 20 |"'$pat'"| unless |
|000002c0| 24 70 61 74 20 3d 7e 20 | 2f 5e 27 2f 3b 0d 20 20 |$pat =~ |/^'/;.  |
|000002d0| 20 20 65 76 61 6c 20 22 | 5c 24 6d 61 74 63 68 20 |  eval "|\$match |
|000002e0| 3d 20 28 5c 24 73 75 62 | 6a 65 63 74 20 3d 7e 20 |= (\$sub|ject =~ |
|000002f0| 6d 24 70 61 74 29 3b 20 | 5c 24 67 6f 74 20 3d 20 |m$pat); |\$got = |
|00000300| 5c 22 24 72 65 70 6c 5c | 22 3b 22 3b 0d 20 20 20 |\"$repl\|";";.   |
|00000310| 20 69 66 20 28 24 72 65 | 73 75 6c 74 20 65 71 20 | if ($re|sult eq |
|00000320| 27 63 27 29 20 7b 0d 09 | 69 66 20 28 24 40 20 6e |'c') {..|if ($@ n|
|00000330| 65 20 27 27 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |e '') {p|rint "ok|
|00000340| 20 24 2e 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 | $.\n";}| else {p|
|00000350| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 24 2e 5c |rint "no|t ok $.\|
|00000360| 6e 22 3b 7d 0d 20 20 20 | 20 7d 0d 20 20 20 20 65 |n";}.   | }.    e|
|00000370| 6c 73 69 66 20 28 24 72 | 65 73 75 6c 74 20 65 71 |lsif ($r|esult eq|
|00000380| 20 27 6e 27 29 20 7b 0d | 09 69 66 20 28 21 24 6d | 'n') {.|.if (!$m|
|00000390| 61 74 63 68 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |atch) {p|rint "ok|
|000003a0| 20 24 2e 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 | $.\n";}| else {p|
|000003b0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 24 2e 20 |rint "no|t ok $. |
|000003c0| 24 69 6e 70 75 74 20 3d | 3e 20 24 67 6f 74 5c 6e |$input =|> $got\n|
|000003d0| 22 3b 7d 0d 20 20 20 20 | 7d 0d 20 20 20 20 65 6c |";}.    |}.    el|
|000003e0| 73 65 20 7b 0d 09 69 66 | 20 28 24 6d 61 74 63 68 |se {..if| ($match|
|000003f0| 20 26 26 20 24 67 6f 74 | 20 65 71 20 24 65 78 70 | && $got| eq $exp|
|00000400| 65 63 74 29 20 7b 0d 09 | 20 20 20 20 70 72 69 6e |ect) {..|    prin|
|00000410| 74 20 22 6f 6b 20 24 2e | 5c 6e 22 3b 0d 09 7d 0d |t "ok $.|\n";..}.|
|00000420| 09 65 6c 73 65 20 7b 0d | 09 20 20 20 20 70 72 69 |.else {.|.    pri|
|00000430| 6e 74 20 22 6e 6f 74 20 | 6f 6b 20 24 2e 20 24 69 |nt "not |ok $. $i|
|00000440| 6e 70 75 74 20 3d 3e 20 | 24 67 6f 74 5c 6e 22 3b |nput => |$got\n";|
|00000450| 0d 09 7d 0d 20 20 20 20 | 7d 0d 7d 0d 63 6c 6f 73 |..}.    |}.}.clos|
|00000460| 65 28 54 45 53 54 53 29 | 3b 0d 00 00 00 00 00 00 |e(TESTS)|;.......|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 02 9c | 00 00 01 9c 00 00 00 83 |........|........|
|00000490| 00 00 06 60 0a 54 79 70 | 65 53 74 79 6c 65 72 00 |...`.Typ|eStyler.|
|000004a0| 01 00 00 00 00 03 00 00 | 0c cd a5 e7 bc bf a8 c7 |........|........|
|000004b0| 08 72 65 67 65 78 70 2e | 74 00 02 00 00 00 54 45 |.regexp.|t.....TE|
|000004c0| 58 54 4d 50 53 20 01 00 | 01 04 01 00 00 00 00 00 |XTMPS ..|........|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 01 04 01 00 |..TEXTMP|S ......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a8 ee 29 8c 00 00 | 03 ea 00 00 03 1f 62 49 |....)...|......bI|
|00000500| 01 00 00 00 00 05 00 00 | 50 8b a5 f5 53 43 a7 ed |........|P...SC..|
|00000510| a4 7d 00 00 00 00 00 3e | 00 0e 00 fd 01 d8 01 00 |.}.....>|........|
|00000520| 01 38 00 00 04 40 00 00 | 00 00 00 00 00 00 00 00 |.8...@..|........|
|00000530| 80 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 06 00 | 00 00 06 61 00 75 03 00 |........|...a.u..|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 02 09 44 65 62 |........|.....Deb|
|00000560| 75 67 67 65 72 73 66 6f | 6c 64 65 72 00 00 00 00 |uggersfo|lder....|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 0a 00 00 00 |........|........|
|00000580| 00 00 00 78 00 05 00 00 | 00 48 00 48 00 00 00 00 |...x....|.H.H....|
|00000590| 03 0d 02 2f ff e7 ff ee | 03 31 02 41 1f 03 05 7b |.../....|.1.A...{|
|000005a0| 03 e0 00 01 00 00 01 2c | 01 2c 00 00 00 00 0c b6 |.......,|.,......|
|000005b0| 09 19 01 2c 00 2d 05 a0 | 5e ec 00 26 04 01 01 01 |...,.-..|^..&....|
|000005c0| 00 18 00 01 27 0f 00 01 | 00 01 00 00 00 00 00 00 |....'...|........|
|000005d0| 00 00 00 00 00 00 00 01 | 00 64 00 00 00 00 00 00 |........|.d......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 01 00 00 02 | 41 00 00 00 00 00 01 10 |........|A.......|
|00000600| 00 50 00 28 01 76 02 12 | 06 4d 6f 6e 61 63 6f 04 |.P.(.v..|.Monaco.|
|00000610| 63 68 61 20 66 72 6f 6d | 6f 62 6a 20 00 00 00 48 |cha from|obj ...H|
|00000620| 00 00 00 04 00 00 00 00 | 77 61 6e 74 74 79 70 65 |........|wanttype|
|00000630| 00 00 00 04 63 77 69 6e | 66 72 6f 6d 6e 75 6c 6c |....cwin|fromnull|
|00000640| 00 00 00 00 66 6f 72 6d | 65 6e 75 6d 00 00 00 04 |....form|enum....|
|00000650| 6e 61 6d 65 73 65 6c 64 | 54 45 58 54 00 00 00 08 |nameseld|TEXT....|
|00000660| 72 65 67 65 78 70 2e 74 | 66 6f 72 6d 65 6e 75 6d |regexp.t|formenum|
|00000670| 00 00 00 04 69 6e 64 78 | 73 65 6c 64 6c 6f 6e 67 |....indx|seldlong|
|00000680| 00 00 00 04 00 00 00 6e | 00 00 01 c8 00 02 5a f4 |.......n|......Z.|
|00000690| 00 00 00 04 00 00 00 00 | 77 61 6e 74 74 79 70 65 |........|wanttype|
|000006a0| 00 00 00 04 63 68 61 20 | 66 72 6f 6d 6f 62 6a 20 |....cha |fromobj |
|000006b0| 00 00 00 48 00 00 00 04 | 00 00 00 00 77 61 6e 74 |...H....|....want|
|000006c0| 74 79 70 65 00 00 00 04 | 63 77 69 6e 66 72 6f 6d |type....|cwinfrom|
|000006d0| 6e 75 6c 6c 00 00 00 00 | 66 6f 72 6d 65 6e 75 6d |null....|formenum|
|000006e0| 00 00 00 04 6e 61 6d 65 | 73 65 6c 64 54 45 58 54 |....name|seldTEXT|
|000006f0| 00 00 00 08 72 65 67 65 | 78 70 2e 74 66 6f 72 6d |....rege|xp.tform|
|00000700| 65 6e 75 6d 00 00 00 04 | 00 09 6e 67 00 00 00 00 |enum....|..ng....|
|00000710| 00 00 00 08 07 4d 61 63 | 50 65 72 6c 00 00 01 00 |.....Mac|Perl....|
|00000720| 00 00 02 9c 00 00 01 9c | 00 00 00 83 00 4c 89 58 |........|.....L.X|
|00000730| 15 4e 00 00 00 1c 00 5a | 00 02 54 46 53 50 00 00 |.N.....Z|..TFSP..|
|00000740| 00 1a 54 46 53 53 00 00 | 00 26 53 54 52 20 00 00 |..TFSS..|.&STR ..|
|00000750| 00 32 00 ff 00 00 00 00 | 00 00 00 4c 88 4c 00 ff |.2......|...L.L..|
|00000760| 00 0d 00 00 00 7c 00 4c | 88 58 bf f4 00 19 00 00 |.....|.L|.X......|
|00000770| 01 90 00 4c 88 68 0c 50 | 72 69 6e 74 65 72 20 49 |...L.h.P|rinter I|
|00000780| 6e 66 6f 0b 48 65 61 64 | 65 72 20 49 6e 66 6f 0f |nfo.Head|er Info.|
|00000790| 46 69 6e 64 65 72 20 41 | 70 70 20 49 6e 66 6f 00 |Finder A|pp Info.|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+