/ Language/OS - Multiplatform Resource Library
/ LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / t / op / goto.t ![]() | < prev | next > |
MacBinary | 1992-09-27 | 1.3 KB | [TEXT/MPS ] |
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, Sun Sep 27 18:15:11 1992, modified Sun Sep 27 18:15:11 1992, creator 'MPS ', type ASCII, 585 bytes "goto.t" | default (weak) | |
99% | file | a ./perl script executable (binary data), at 0x2c9 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-4K) | default (weak) | |
16% | TrID | MacBinary 2 | default (weak) | |
100% | siegfried | fmt/1762 MacBinary (II) | default | |
100% | lsar | MacBinary | default |
id metadata | |
---|---|
key | value |
macFileType | [TEXT] |
macFileCreator | [MPS ] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 67 6f 74 6f 2e 74 | 00 00 00 00 00 00 00 00 |..goto.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 02 49 00 | 00 01 ac a6 eb e2 ef a6 |......I.|........|
|00000060| eb e2 ef 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 a6 e9 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 67 6f | 74 6f 2e 74 2c 76 20 24 |file: go|to.t,v $|
|000000a0| 24 52 65 76 69 73 69 6f | 6e 3a 20 34 2e 30 2e 31 |$Revisio|n: 4.0.1|
|000000b0| 2e 31 20 24 24 44 61 74 | 65 3a 20 39 32 2f 30 36 |.1 $$Dat|e: 92/06|
|000000c0| 2f 30 38 20 31 35 3a 34 | 33 3a 32 35 20 24 0d 0d |/08 15:4|3:25 $..|
|000000d0| 70 72 69 6e 74 20 22 31 | 2e 2e 33 5c 6e 22 3b 0d |print "1|..3\n";.|
|000000e0| 0d 77 68 69 6c 65 20 28 | 30 29 20 7b 0d 20 20 20 |.while (|0) {. |
|000000f0| 20 24 66 6f 6f 20 3d 20 | 31 3b 0d 20 20 6c 61 62 | $foo = |1;. lab|
|00000100| 65 6c 31 3a 0d 20 20 20 | 20 24 66 6f 6f 20 3d 20 |el1:. | $foo = |
|00000110| 32 3b 0d 20 20 20 20 67 | 6f 74 6f 20 6c 61 62 65 |2;. g|oto labe|
|00000120| 6c 32 3b 0d 7d 20 63 6f | 6e 74 69 6e 75 65 20 7b |l2;.} co|ntinue {|
|00000130| 0d 20 20 20 20 24 66 6f | 6f 20 3d 20 30 3b 0d 20 |. $fo|o = 0;. |
|00000140| 20 20 20 67 6f 74 6f 20 | 6c 61 62 65 6c 34 3b 0d | goto |label4;.|
|00000150| 20 20 6c 61 62 65 6c 33 | 3a 0d 20 20 20 20 24 66 | label3|:. $f|
|00000160| 6f 6f 20 3d 20 34 3b 0d | 20 20 20 20 67 6f 74 6f |oo = 4;.| goto|
|00000170| 20 6c 61 62 65 6c 34 3b | 0d 7d 0d 67 6f 74 6f 20 | label4;|.}.goto |
|00000180| 6c 61 62 65 6c 31 3b 0d | 0d 24 66 6f 6f 20 3d 20 |label1;.|.$foo = |
|00000190| 33 3b 0d 0d 6c 61 62 65 | 6c 32 3a 0d 70 72 69 6e |3;..labe|l2:.prin|
|000001a0| 74 20 22 23 31 5c 74 3a | 24 66 6f 6f 3a 20 3d 3d |t "#1\t:|$foo: ==|
|000001b0| 20 32 5c 6e 22 3b 0d 69 | 66 20 28 24 66 6f 6f 20 | 2\n";.i|f ($foo |
|000001c0| 3d 3d 20 32 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |== 2) {p|rint "ok|
|000001d0| 20 31 5c 6e 22 3b 7d 20 | 65 6c 73 65 20 7b 70 72 | 1\n";} |else {pr|
|000001e0| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 31 5c 6e 22 |int "not| ok 1\n"|
|000001f0| 3b 7d 0d 67 6f 74 6f 20 | 6c 61 62 65 6c 33 3b 0d |;}.goto |label3;.|
|00000200| 0d 6c 61 62 65 6c 34 3a | 0d 70 72 69 6e 74 20 22 |.label4:|.print "|
|00000210| 23 32 5c 74 3a 24 66 6f | 6f 3a 20 3d 3d 20 34 5c |#2\t:$fo|o: == 4\|
|00000220| 6e 22 3b 0d 69 66 20 28 | 24 66 6f 6f 20 3d 3d 20 |n";.if (|$foo == |
|00000230| 34 29 20 7b 70 72 69 6e | 74 20 22 6f 6b 20 32 5c |4) {prin|t "ok 2\|
|00000240| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 70 72 69 6e 74 |n";} els|e {print|
|00000250| 20 22 6e 6f 74 20 6f 6b | 20 32 5c 6e 22 3b 7d 0d | "not ok| 2\n";}.|
|00000260| 0d 24 78 20 3d 20 60 70 | 65 72 6c 20 2d 65 20 27 |.$x = `p|erl -e '|
|00000270| 67 6f 74 6f 20 66 6f 6f | 3b 27 20 b3 44 65 76 3a |goto foo|;' .Dev:|
|00000280| 53 74 64 4f 75 74 60 3b | 0d 69 66 20 28 24 78 20 |StdOut`;|.if ($x |
|00000290| 3d 7e 20 2f 6c 61 62 65 | 6c 2f 29 20 7b 70 72 69 |=~ /labe|l/) {pri|
|000002a0| 6e 74 20 22 6f 6b 20 33 | 5c 6e 22 3b 7d 20 65 6c |nt "ok 3|\n";} el|
|000002b0| 73 65 20 7b 70 72 69 6e | 74 20 22 6e 6f 74 20 6f |se {prin|t "not o|
|000002c0| 6b 20 33 5c 6e 22 3b 7d | 0d 00 00 00 00 00 00 00 |k 3\n";}|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000310| 69 65 73 20 6e 6f 6e 65 | 78 69 73 74 65 6e 74 20 |ies none|xistent |
|00000320| 61 63 63 65 73 73 20 70 | 61 74 68 00 45 72 72 6f |access p|ath.Erro|
|00000330| 06 67 6f 74 6f 2e 74 da | 02 00 00 00 54 45 58 54 |.goto.t.|....TEXT|
|00000340| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 75 85 |MPS ....|......u.|
|00000350| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 a6 ea b2 a1 00 00 | 02 49 00 00 01 ac 74 69 |........|.I....ti|
|00000380| 6f 6e 69 6e 67 20 69 6e | 66 6f 72 6d 61 74 69 6f |oning in|formatio|
|00000390| 6e 20 2f 20 42 61 64 20 | 64 72 69 76 65 20 6e 75 |n / Bad |drive nu|
|000003a0| 6d 62 65 72 00 54 68 65 | 20 72 65 61 64 2f 77 72 |mber.The| read/wr|
|000003b0| 69 74 65 20 70 65 72 6d | 69 73 73 69 6f 6e 20 6f |ite perm|ission o|
|000003c0| 66 20 6f 6e 6c 79 20 6f | 6e 65 20 61 63 63 65 73 |f only o|ne acces|
|000003d0| 73 20 70 61 74 68 20 74 | 6f 20 61 20 66 69 6c 65 |s path t|o a file|
|000003e0| 20 63 61 6e 20 61 6c 6c | 6f 77 20 77 72 69 74 69 | can all|ow writi|
|000003f0| 6e 67 00 46 69 6c 65 20 | 77 69 74 68 20 73 70 65 |ng.File |with spe|
|00000400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 44 61 74 |...H..Mo|naco.Dat|
|00000410| 65 3a 20 39 32 2f 30 36 | 2f 30 38 20 31 35 3a 34 |e: 92/06|/08 15:4|
|00000420| 33 3a 32 35 20 24 00 06 | 00 03 00 40 00 06 01 b9 |3:25 $..|...@....|
|00000430| 02 27 00 64 00 1c 01 dd | 02 3d a6 eb aa af 00 00 |.'.d....|.=......|
|00000440| 02 09 00 00 02 09 00 00 | 00 6d 01 00 00 00 00 1e |........|.m......|
|00000450| 00 40 00 06 01 b9 02 27 | 00 64 00 1c 01 dd 02 3d |.@.....'|.d.....=|
|00000460| 00 00 00 6d 00 00 00 00 | 00 00 00 00 00 00 00 00 |...m....|........|
|00000470| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000480| 62 20 10 e6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b ......|.>..MPSR|
|00000490| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 03 f0 ff ff 00 00 00 4c | 00 47 94 50 00 00 00 00 |.......L|.G.P....|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 |........|........|
+--------+-------------------------+-------------------------+--------+--------+