BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / MacPerl / lib / FAccess.ph < prev next >

MacBinary | 1993-12-13 | 1.6 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: FAccess.ph

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Dec 13 23:42:05 1993, modified Mon Dec 13 23:42:05 1993, creator 'MPS ', type ASCII, 968 bytes "FAccess.ph" , at 0x448 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 46 41 63 63 65 73 | 73 2e 70 68 00 00 00 00 |..FAcces|s.ph....|
|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 c8 00 | 00 01 ac a9 32 f4 9d a9 |........|....2...|
|00000060| 32 f4 9d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |2.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 38 bd 00 00 |........|....8...|
|00000080| 23 20 46 61 63 63 65 73 | 73 2e 70 68 20 2d 2d 20 |# Facces|s.ph -- |
|00000090| 63 6f 6e 73 74 61 6e 74 | 73 20 74 6f 20 70 61 73 |constant|s to pas|
|000000a0| 73 20 74 6f 20 26 4d 61 | 63 50 65 72 6c 27 46 41 |s to &Ma|cPerl'FA|
|000000b0| 63 63 65 73 73 0d 23 0d | 23 20 4d 61 74 74 68 69 |ccess.#.|# Matthi|
|000000c0| 61 73 20 4e 65 65 72 61 | 63 68 65 72 20 31 33 44 |as Neera|cher 13D|
|000000d0| 65 63 39 33 0d 23 0d 0d | 23 20 24 54 41 42 20 3d |ec93.#..|# $TAB =|
|000000e0| 20 26 4d 61 63 50 65 72 | 6c 27 46 41 63 63 65 73 | &MacPer|l'FAcces|
|000000f0| 73 28 46 49 4c 45 2c 20 | 26 46 5f 47 54 41 42 49 |s(FILE, |&F_GTABI|
|00000100| 4e 46 4f 29 0d 0d 73 75 | 62 20 46 5f 47 54 41 42 |NFO)..su|b F_GTAB|
|00000110| 49 4e 46 4f 20 09 7b 09 | 30 78 36 35 30 30 3b 09 |INFO .{.|0x6500;.|
|00000120| 7d 0d 0d 23 20 26 4d 61 | 63 50 65 72 6c 27 46 41 |}..# &Ma|cPerl'FA|
|00000130| 63 63 65 73 73 28 46 49 | 4c 45 2c 20 26 46 5f 53 |ccess(FI|LE, &F_S|
|00000140| 54 41 42 49 4e 46 4f 2c | 20 54 41 42 29 0d 0d 73 |TABINFO,| TAB)..s|
|00000150| 75 62 20 46 5f 53 54 41 | 42 49 4e 46 4f 20 09 7b |ub F_STA|BINFO .{|
|00000160| 09 30 78 36 35 30 31 3b | 09 7d 0d 0d 23 20 28 24 |.0x6501;|.}..# ($|
|00000170| 46 4f 4e 54 4e 41 4d 45 | 2c 20 24 46 4f 4e 54 53 |FONTNAME|, $FONTS|
|00000180| 49 5a 45 29 20 3d 20 26 | 4d 61 63 50 65 72 6c 27 |IZE) = &|MacPerl'|
|00000190| 46 41 63 63 65 73 73 28 | 46 49 4c 45 2c 20 26 46 |FAccess(|FILE, &F|
|000001a0| 5f 47 46 4f 4e 54 49 4e | 46 4f 29 0d 23 20 24 46 |_GFONTIN|FO).# $F|
|000001b0| 4f 4e 54 4e 55 4d 20 3d | 20 26 4d 61 63 50 65 72 |ONTNUM =| &MacPer|
|000001c0| 6c 27 46 41 63 63 65 73 | 73 28 46 49 4c 45 2c 20 |l'FAcces|s(FILE, |
|000001d0| 26 46 5f 47 46 4f 4e 54 | 49 4e 46 4f 29 0d 0d 73 |&F_GFONT|INFO)..s|
|000001e0| 75 62 20 46 5f 47 46 4f | 4e 54 49 4e 46 4f 09 7b |ub F_GFO|NTINFO.{|
|000001f0| 09 30 78 36 35 30 32 3b | 09 7d 0d 0d 23 20 26 4d |.0x6502;|.}..# &M|
|00000200| 61 63 50 65 72 6c 27 46 | 41 63 63 65 73 73 28 46 |acPerl'F|Access(F|
|00000210| 49 4c 45 2c 20 26 46 5f | 53 46 4f 4e 54 49 4e 46 |ILE, &F_|SFONTINF|
|00000220| 4f 2c 20 46 4f 4e 54 20 | 5b 2c 20 53 49 5a 45 5d |O, FONT |[, SIZE]|
|00000230| 29 0d 0d 73 75 62 20 46 | 5f 53 46 4f 4e 54 49 4e |)..sub F|_SFONTIN|
|00000240| 46 4f 09 7b 09 30 78 36 | 35 30 33 3b 09 7d 0d 0d |FO.{.0x6|503;.}..|
|00000250| 23 20 28 24 53 54 41 52 | 54 53 45 4c 2c 20 24 45 |# ($STAR|TSEL, $E|
|00000260| 4e 44 53 45 4c 2c 20 24 | 44 49 53 50 4c 41 59 54 |NDSEL, $|DISPLAYT|
|00000270| 4f 50 29 20 3d 20 26 4d | 61 63 50 65 72 6c 27 46 |OP) = &M|acPerl'F|
|00000280| 41 63 63 65 73 73 28 46 | 49 4c 45 2c 20 26 46 5f |Access(F|ILE, &F_|
|00000290| 47 53 45 4c 49 4e 46 4f | 29 0d 23 20 24 53 54 41 |GSELINFO|).# $STA|
|000002a0| 52 54 53 45 4c 20 3d 20 | 26 4d 61 63 50 65 72 6c |RTSEL = |&MacPerl|
|000002b0| 27 46 41 63 63 65 73 73 | 28 46 49 4c 45 2c 20 26 |'FAccess|(FILE, &|
|000002c0| 46 5f 47 53 45 4c 49 4e | 46 4f 29 0d 0d 73 75 62 |F_GSELIN|FO)..sub|
|000002d0| 20 46 5f 47 53 45 4c 49 | 4e 46 4f 09 09 7b 09 30 | F_GSELI|NFO..{.0|
|000002e0| 78 36 35 30 36 3b 09 7d | 0d 0d 23 20 26 4d 61 63 |x6506;.}|..# &Mac|
|000002f0| 50 65 72 6c 27 46 41 63 | 63 65 73 73 28 46 49 4c |Perl'FAc|cess(FIL|
|00000300| 45 2c 20 26 46 5f 53 53 | 45 4c 49 4e 46 4f 2c 20 |E, &F_SS|ELINFO, |
|00000310| 24 53 54 41 52 54 53 45 | 4c 2c 20 24 45 4e 44 53 |$STARTSE|L, $ENDS|
|00000320| 45 4c 20 5b 2c 20 24 44 | 49 53 50 4c 41 59 54 4f |EL [, $D|ISPLAYTO|
|00000330| 50 5d 29 0d 0d 73 75 62 | 20 46 5f 53 53 45 4c 49 |P])..sub| F_SSELI|
|00000340| 4e 46 4f 09 09 7b 09 30 | 78 36 35 30 37 3b 09 7d |NFO..{.0|x6507;.}|
|00000350| 0d 0d 23 20 28 24 4c 45 | 46 54 2c 20 24 54 4f 50 |..# ($LE|FT, $TOP|
|00000360| 2c 20 24 52 49 47 48 54 | 2c 20 24 42 4f 54 54 4f |, $RIGHT|, $BOTTO|
|00000370| 4d 29 20 3d 20 26 4d 61 | 63 50 65 72 6c 27 46 41 |M) = &Ma|cPerl'FA|
|00000380| 63 63 65 73 73 28 46 49 | 4c 45 2c 20 26 46 5f 47 |ccess(FI|LE, &F_G|
|00000390| 57 49 4e 49 4e 46 4f 29 | 0d 23 20 24 54 4f 50 20 |WININFO)|.# $TOP |
|000003a0| 3d 20 26 4d 61 63 50 65 | 72 6c 27 46 41 63 63 65 |= &MacPe|rl'FAcce|
|000003b0| 73 73 28 46 49 4c 45 2c | 20 26 46 5f 47 57 49 4e |ss(FILE,| &F_GWIN|
|000003c0| 49 4e 46 4f 29 0d 0d 73 | 75 62 20 46 5f 47 57 49 |INFO)..s|ub F_GWI|
|000003d0| 4e 49 4e 46 4f 09 09 7b | 09 30 78 36 35 30 38 3b |NINFO..{|.0x6508;|
|000003e0| 09 7d 0d 0d 23 20 26 4d | 61 63 50 65 72 6c 27 46 |.}..# &M|acPerl'F|
|000003f0| 41 63 63 65 73 73 28 46 | 49 4c 45 2c 20 26 46 5f |Access(F|ILE, &F_|
|00000400| 53 57 49 4e 49 4e 46 4f | 2c 20 4c 45 46 54 2c 20 |SWININFO|, LEFT, |
|00000410| 54 4f 50 20 5b 2c 20 52 | 49 47 48 54 2c 20 42 4f |TOP [, R|IGHT, BO|
|00000420| 54 54 4f 4d 5d 29 0d 0d | 73 75 62 20 46 5f 53 57 |TTOM])..|sub F_SW|
|00000430| 49 4e 49 4e 46 4f 09 09 | 7b 09 30 78 36 35 30 39 |ININFO..|{.0x6509|
|00000440| 3b 09 7d 0d 0d 31 3b 0d | 00 00 00 00 00 00 00 00 |;.}..1;.|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000490| 00 00 2a 97 08 45 58 54 | 45 52 4e 2e 68 00 00 00 |..*..EXT|ERN.h...|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 0a 46 41 63 63 65 73 73 | 2e 70 68 00 02 00 00 00 |.FAccess|.ph.....|
|000004c0| 54 45 58 54 4d 50 53 20 | 01 00 00 68 00 a0 00 00 |TEXTMPS |...h....|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 68 00 a0 |..TEXTMP|S ...h..|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a9 32 a8 0d 00 00 | 03 c8 00 00 01 ac 00 00 |...2....|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 01 3c 25 00 00 00 |........|...<%...|
|00000510| 2a 97 06 66 6f 72 6d 2e | 63 00 00 00 00 00 00 00 |*..form.|c.......|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 01 3d 25 00 | 00 00 2a 97 06 66 6f 72 |.....=%.|..*..for|
|00000540| 6d 2e 68 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |m.h.....|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 f5 |........|........|
|00000560| 25 00 00 00 2a 97 07 68 | 61 6e 64 79 2e 68 00 00 |%...*..h|andy.h..|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 3b 0d 73 |...H..Mo|naco.;.s|
|00000590| 75 62 20 46 5f 53 54 41 | 42 49 4e 46 4f 20 7b 28 |ub F_STA|BINFO {(|
|000005a0| 28 6f 72 64 28 5c 00 06 | 00 03 00 3c 00 24 01 dd |(ord(\..|...<.$..|
|000005b0| 02 3d 00 3c 00 24 01 dd | 02 3d a9 32 ae 4d 00 00 |.=.<.$..|.=.2.M..|
|000005c0| 00 58 00 00 03 c8 00 00 | 00 00 01 00 00 00 00 1e |.X......|........|
|000005d0| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 3e |.....n..|.n...>.>|
|00000600| 83 dc 13 78 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |...x....|.>..MPSR|
|00000610| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 03 f0 ff ff 00 00 00 4c | 00 40 e0 30 00 00 00 00 |.......L|.@.0....|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+