| / Language/OS - Multiplatform Resource Library
/ LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / base / lex.t
| < prev | next > |
| MacBinary | 1992-01-04 | 1.8 KB | [TEXT/MPS ] |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 66% | dexvert | E-Tracker Chiptune (music/eTracker) | ext | Supported |
| 10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
| 10% | dexvert | Jesper Olsen Module (music/jesperOlsen) | magic | Supported |
| 1% | dexvert | Simis (archive/simis) | ext | Unsupported |
| 1% | dexvert | TADS (other/tads) | ext | Unsupported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | MacBinary II, Fri Jan 3 22:25:22 1992, modified Fri Jan 3 22:25:22 1992, creator 'MPS ', type ASCII, 1120 bytes "lex.t" | default (weak) | |
| 99% | file | a ./perl script executable (binary data), at 0x4e0 428 bytes resource | default (weak) | |
| 98% | file | a ./perl script executable (binary data) | default (weak) | |
| 97% | file | data | default | |
| 49% | TrID | Macintosh plain text (MacBinary) | default | |
| 33% | TrID | TTComp archive compressed (bin-2K) | default (weak) | |
| 16% | TrID | MacBinary 2 | default (weak) | |
| 0% | TrID | Sybase iAnywhere database files | default (weak) | |
| 100% | siegfried | fmt/1762 MacBinary (II) | default | |
| 100% | lsar | MacBinary | default |
| id metadata | |
|---|---|
| key | value |
| macFileType | [TEXT] |
| macFileCreator | [MPS ] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 6c 65 78 2e 74 00 | 00 00 00 00 00 00 00 00 |..lex.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 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 04 60 00 | 00 01 ac a5 8a d9 a2 a5 |......`.|........|
|00000060| 8a d9 a2 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 d5 de 00 00 |........|........|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 6c 65 78 | 2e 74 2c 76 20 34 2e 30 |der: lex|.t,v 4.0|
|000000a0| 20 39 31 2f 30 33 2f 32 | 30 20 30 31 3a 34 39 3a | 91/03/2|0 01:49:|
|000000b0| 30 38 20 6c 77 61 6c 6c | 20 4c 6f 63 6b 65 64 20 |08 lwall| Locked |
|000000c0| 24 0d 0d 70 72 69 6e 74 | 20 22 31 2e 2e 31 38 5c |$..print| "1..18\|
|000000d0| 6e 22 3b 0d 0d 24 20 23 | 20 74 68 69 73 20 69 73 |n";..$ #| this is|
|000000e0| 20 74 68 65 20 72 65 67 | 69 73 74 65 72 20 3c 73 | the reg|ister <s|
|000000f0| 70 61 63 65 3e 0d 3d 20 | 27 78 27 3b 0d 0d 70 72 |pace>.= |'x';..pr|
|00000100| 69 6e 74 20 22 23 31 09 | 3a 24 20 3a 20 65 71 20 |int "#1.|:$ : eq |
|00000110| 3a 78 3a 5c 6e 22 3b 0d | 69 66 20 28 24 20 20 65 |:x:\n";.|if ($ e|
|00000120| 71 20 27 78 27 29 20 7b | 70 72 69 6e 74 20 22 6f |q 'x') {|print "o|
|00000130| 6b 20 31 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 1\n";}| else {p|
|00000140| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 31 5c 6e |rint "no|t ok 1\n|
|00000150| 22 3b 7d 0d 0d 24 78 20 | 3d 20 24 23 3b 09 23 20 |";}..$x |= $#;.# |
|00000160| 74 68 69 73 20 69 73 20 | 74 68 65 20 72 65 67 69 |this is |the regi|
|00000170| 73 74 65 72 20 24 23 0d | 0d 69 66 20 28 24 78 20 |ster $#.|.if ($x |
|00000180| 65 71 20 27 27 29 20 7b | 70 72 69 6e 74 20 22 6f |eq '') {|print "o|
|00000190| 6b 20 32 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 2\n";}| else {p|
|000001a0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 32 5c 6e |rint "no|t ok 2\n|
|000001b0| 22 3b 7d 0d 0d 24 78 20 | 3d 20 24 23 78 3b 0d 0d |";}..$x |= $#x;..|
|000001c0| 69 66 20 28 24 78 20 65 | 71 20 27 2d 31 27 29 20 |if ($x e|q '-1') |
|000001d0| 7b 70 72 69 6e 74 20 22 | 6f 6b 20 33 5c 6e 22 3b |{print "|ok 3\n";|
|000001e0| 7d 20 65 6c 73 65 20 7b | 70 72 69 6e 74 20 22 6e |} else {|print "n|
|000001f0| 6f 74 20 6f 6b 20 33 5c | 6e 22 3b 7d 0d 0d 24 78 |ot ok 3\|n";}..$x|
|00000200| 20 3d 20 27 5c 5c 27 3b | 20 23 20 27 3b 0d 0d 69 | = '\\';| # ';..i|
|00000210| 66 20 28 6c 65 6e 67 74 | 68 28 24 78 29 20 3d 3d |f (lengt|h($x) ==|
|00000220| 20 31 29 20 7b 70 72 69 | 6e 74 20 22 6f 6b 20 34 | 1) {pri|nt "ok 4|
|00000230| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 70 72 69 6e |\n";} el|se {prin|
|00000240| 74 20 22 6e 6f 74 20 6f | 6b 20 34 5c 6e 22 3b 7d |t "not o|k 4\n";}|
|00000250| 0d 0d 65 76 61 6c 20 27 | 77 68 69 6c 65 20 28 30 |..eval '|while (0|
|00000260| 29 20 7b 0d 20 20 20 20 | 70 72 69 6e 74 20 22 66 |) {. |print "f|
|00000270| 6f 6f 5c 6e 22 3b 0d 7d | 0d 2f 5e 2f 20 26 26 20 |oo\n";.}|./^/ && |
|00000280| 28 70 72 69 6e 74 20 22 | 6f 6b 20 35 5c 6e 22 29 |(print "|ok 5\n")|
|00000290| 3b 0d 27 3b 0d 0d 65 76 | 61 6c 20 27 24 66 6f 6f |;.';..ev|al '$foo|
|000002a0| 7b 31 7d 20 2f 20 31 3b | 27 3b 0d 69 66 20 28 21 |{1} / 1;|';.if (!|
|000002b0| 24 40 29 20 7b 70 72 69 | 6e 74 20 22 6f 6b 20 36 |$@) {pri|nt "ok 6|
|000002c0| 5c 6e 22 3b 7d 20 65 6c | 73 65 20 7b 70 72 69 6e |\n";} el|se {prin|
|000002d0| 74 20 22 6e 6f 74 20 6f | 6b 20 36 5c 6e 22 3b 7d |t "not o|k 6\n";}|
|000002e0| 0d 0d 65 76 61 6c 20 27 | 24 66 6f 6f 20 3d 20 31 |..eval '|$foo = 1|
|000002f0| 32 33 2b 31 32 33 2e 34 | 2b 31 32 33 65 34 2b 31 |23+123.4|+123e4+1|
|00000300| 32 33 2e 34 45 35 2b 31 | 32 33 2e 34 65 2b 35 2b |23.4E5+1|23.4e+5+|
|00000310| 2e 31 32 3b 27 3b 0d 0d | 24 66 6f 6f 20 3d 20 69 |.12;';..|$foo = i|
|00000320| 6e 74 28 24 66 6f 6f 20 | 2a 20 31 30 30 20 2b 20 |nt($foo |* 100 + |
|00000330| 2e 35 29 3b 0d 69 66 20 | 28 24 66 6f 6f 20 65 71 |.5);.if |($foo eq|
|00000340| 20 32 35 39 31 30 32 34 | 36 35 32 29 20 7b 70 72 | 2591024|652) {pr|
|00000350| 69 6e 74 20 22 6f 6b 20 | 37 5c 6e 22 3b 7d 20 65 |int "ok |7\n";} e|
|00000360| 6c 73 65 20 7b 70 72 69 | 6e 74 20 22 6e 6f 74 20 |lse {pri|nt "not |
|00000370| 6f 6b 20 37 20 3a 24 66 | 6f 6f 3a 5c 6e 22 3b 7d |ok 7 :$f|oo:\n";}|
|00000380| 0d 0d 70 72 69 6e 74 20 | 3c 3c 27 45 4f 46 27 3b |..print |<<'EOF';|
|00000390| 0d 6f 6b 20 38 0d 45 4f | 46 0d 0d 24 66 6f 6f 20 |.ok 8.EO|F..$foo |
|000003a0| 3d 20 27 6f 6b 20 39 27 | 3b 0d 70 72 69 6e 74 20 |= 'ok 9'|;.print |
|000003b0| 3c 3c 45 4f 46 3b 0d 24 | 66 6f 6f 0d 45 4f 46 0d |<<EOF;.$|foo.EOF.|
|000003c0| 0d 65 76 61 6c 20 3c 3c | 5c 45 4f 45 2c 20 70 72 |.eval <<|\EOE, pr|
|000003d0| 69 6e 74 20 24 40 3b 0d | 70 72 69 6e 74 20 3c 3c |int $@;.|print <<|
|000003e0| 27 45 4f 46 27 3b 0d 6f | 6b 20 31 30 0d 45 4f 46 |'EOF';.o|k 10.EOF|
|000003f0| 0d 0d 24 66 6f 6f 20 3d | 20 27 6f 6b 20 31 31 27 |..$foo =| 'ok 11'|
|00000400| 3b 0d 70 72 69 6e 74 20 | 3c 3c 45 4f 46 3b 0d 24 |;.print |<<EOF;.$|
|00000410| 66 6f 6f 0d 45 4f 46 0d | 45 4f 45 0d 0d 70 72 69 |foo.EOF.|EOE..pri|
|00000420| 6e 74 20 3c 3c 60 45 4f | 53 60 20 2e 20 3c 3c 5c |nt <<`EO|S` . <<\|
|00000430| 45 4f 46 3b 0d 65 63 68 | 6f 20 6f 6b 20 31 32 0d |EOF;.ech|o ok 12.|
|00000440| 45 4f 53 0d 6f 6b 20 31 | 33 0d 45 4f 46 0d 0d 70 |EOS.ok 1|3.EOF..p|
|00000450| 72 69 6e 74 20 71 71 2f | 6f 6b 20 31 34 5c 6e 2f |rint qq/|ok 14\n/|
|00000460| 3b 0d 70 72 69 6e 74 20 | 71 71 28 6f 6b 20 31 35 |;.print |qq(ok 15|
|00000470| 5c 6e 29 3b 0d 0d 70 72 | 69 6e 74 20 71 71 0d 6f |\n);..pr|int qq.o|
|00000480| 6b 20 31 36 5c 6e 0d 3b | 0d 0d 70 72 69 6e 74 20 |k 16\n.;|..print |
|00000490| 71 3c 6f 6b 20 31 37 0d | 3e 3b 0d 0d 70 72 69 6e |q<ok 17.|>;..prin|
|000004a0| 74 20 3c 3c 3b 20 20 20 | 23 20 59 6f 77 21 0d 6f |t <<; |# Yow!.o|
|000004b0| 6b 20 31 38 0d 0d 23 20 | 70 72 65 76 69 6f 75 73 |k 18..# |previous|
|000004c0| 20 6c 69 6e 65 20 69 6e | 74 65 6e 74 69 6f 6e 61 | line in|tentiona|
|000004d0| 6c 6c 79 20 6c 65 66 74 | 20 62 6c 61 6e 6b 2e 0d |lly left| blank..|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000510| 71 3c 6f 6b 20 31 37 0d | 3e 3b 0d 0d 70 72 69 6e |q<ok 17.|>;..prin|
|00000520| 74 20 3c 3c 3b 20 20 20 | 23 20 59 6f 77 21 0d 6f |t <<; |# Yow!.o|
|00000530| 05 6c 65 78 2e 74 02 00 | 00 00 54 45 58 54 4d 50 |.lex.t..|..TEXTMP|
|00000540| 53 20 00 00 80 00 70 c4 | 00 00 00 00 76 3f 00 00 |S ....p.|....v?..|
|00000550| 00 00 54 45 58 54 4d 50 | 53 20 00 00 80 00 70 c4 |..TEXTMP|S ....p.|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 a4 40 a7 6d 00 00 | 04 60 00 00 01 ac 69 66 |...@.m..|.`....if|
|00000580| 20 63 68 61 6e 67 65 73 | 20 77 65 72 65 20 6d 61 | changes| were ma|
|00000590| 64 65 20 2a 2f 0d 0d 4f | 53 45 72 72 20 52 4d 53 |de */..O|SErr RMS|
|000005a0| 57 72 69 74 65 28 52 65 | 63 6f 72 64 49 44 20 69 |Write(Re|cordID i|
|000005b0| 64 2c 20 50 74 72 20 62 | 75 66 2c 20 52 65 63 6f |d, Ptr b|uf, Reco|
|000005c0| 72 64 53 69 7a 65 20 6c | 65 6e 29 3b 0d 2f 2a 20 |rdSize l|en);./* |
|000005d0| 57 72 69 74 65 73 20 61 | 20 72 65 63 6f 72 64 20 |Writes a| record |
|000005e0| 2a 2f 0d 0d 4f 53 45 72 | 72 20 52 4d 53 4e 65 77 |*/..OSEr|r RMSNew|
|000005f0| 28 52 65 63 6f 72 64 49 | 44 20 2a 20 69 64 29 3b |(RecordI|D * id);|
|00000600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 06 | 00 03 00 64 00 1c 01 dd |........|...d....|
|00000630| 02 3d 00 64 00 1c 01 dd | 02 3d a5 8a a1 62 00 00 |.=.d....|.=...b..|
|00000640| 03 ce 00 00 03 ce 00 00 | 03 1a 01 00 00 00 00 1e |........|........|
|00000650| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|00000660| 00 00 03 1a 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000680| a4 ec 09 8e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000690| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 03 f0 ff ff 00 00 00 4c | 00 31 b0 74 00 00 00 00 |.......L|.1.t....|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+