Internet File Formats

home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / UserCode / setPerlMode.tcl < prev next >
MacBinary | 1994-03-08 | 1.8 KB | [TEXT/ALFA]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
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, Tue Mar 8 16:46:41 1994, modified Tue Mar 8 16:46:41 1994, creator Alpha editor, type ASCII, 1172 bytes "setPerlMode.tcl" , at 0x514 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ALFA]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 73 65 74 50 65 72 | 6c 4d 6f 64 65 2e 74 63 |..setPer|lMode.tc|
|00000010| 6c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |l.......|........|
|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 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 04 94 00 | 00 01 7e a9 a2 a2 c1 a9 |........|..~.....|
|00000060| a2 a2 c1 00 00 04 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 07 6d 00 00 |........|.....m..|
|00000080| 23 20 46 49 4c 45 3a 20 | 73 65 74 50 65 72 6c 4d |# FILE: |setPerlM|
|00000090| 6f 64 65 2e 74 63 6c 0d | 23 0d 23 20 4c 41 53 54 |ode.tcl.|#.# LAST|
|000000a0| 20 55 50 44 41 54 45 3a | 20 30 31 2f 30 37 2f 39 | UPDATE:| 01/07/9|
|000000b0| 33 20 38 3a 33 37 3a 30 | 38 20 41 4d 0d 23 0d 23 |3 8:37:0|8 AM.#.#|
|000000c0| 20 54 68 69 73 20 66 69 | 6c 65 20 63 6f 6e 74 61 | This fi|le conta|
|000000d0| 69 6e 73 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ins the |followin|
|000000e0| 67 20 54 43 4c 20 70 72 | 6f 63 65 64 75 72 65 28 |g TCL pr|ocedure(|
|000000f0| 73 29 3a 0d 23 0d 23 09 | 73 65 74 50 65 72 6c 4d |s):.#.#.|setPerlM|
|00000100| 6f 64 65 20 2d 2d 20 75 | 73 65 64 20 77 69 74 68 |ode -- u|sed with|
|00000110| 20 63 68 61 6e 67 65 4d | 6f 64 65 20 26 20 50 65 | changeM|ode & Pe|
|00000120| 72 6c 20 70 72 6f 67 72 | 61 6d 6d 69 6e 67 20 6c |rl progr|amming l|
|00000130| 61 6e 67 75 61 67 65 0d | 0d 23 20 43 4f 50 59 52 |anguage.|.# COPYR|
|00000140| 49 47 48 54 3a 0d 23 0d | 23 09 43 6f 70 79 72 69 |IGHT:.#.|#.Copyri|
|00000150| 67 68 74 20 a9 20 31 39 | 39 33 20 62 79 20 44 61 |ght . 19|93 by Da|
|00000160| 76 69 64 20 43 2e 20 42 | 6c 61 63 6b 0d 23 09 41 |vid C. B|lack.#.A|
|00000170| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00000180| 65 64 2e 0d 23 0d 23 09 | 52 65 64 69 73 74 72 69 |ed..#.#.|Redistri|
|00000190| 62 75 74 69 6f 6e 20 61 | 6e 64 20 75 73 65 20 69 |bution a|nd use i|
|000001a0| 6e 20 73 6f 75 72 63 65 | 20 61 6e 64 20 62 69 6e |n source| and bin|
|000001b0| 61 72 79 20 66 6f 72 6d | 73 20 61 72 65 20 70 65 |ary form|s are pe|
|000001c0| 72 6d 69 74 74 65 64 0d | 23 09 70 72 6f 76 69 64 |rmitted.|#.provid|
|000001d0| 65 64 20 74 68 61 74 20 | 74 68 65 20 61 62 6f 76 |ed that |the abov|
|000001e0| 65 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |e copyri|ght noti|
|000001f0| 63 65 20 61 6e 64 20 74 | 68 69 73 20 70 61 72 61 |ce and t|his para|
|00000200| 67 72 61 70 68 20 61 72 | 65 0d 23 09 64 75 70 6c |graph ar|e.#.dupl|
|00000210| 69 63 61 74 65 64 20 69 | 6e 20 61 6c 6c 20 73 75 |icated i|n all su|
|00000220| 63 68 20 66 6f 72 6d 73 | 20 61 6e 64 20 74 68 61 |ch forms| and tha|
|00000230| 74 20 61 6e 79 20 64 6f | 63 75 6d 65 6e 74 61 74 |t any do|cumentat|
|00000240| 69 6f 6e 2c 0d 23 09 61 | 64 76 65 72 74 69 73 69 |ion,.#.a|dvertisi|
|00000250| 6e 67 20 6d 61 74 65 72 | 69 61 6c 73 2c 20 61 6e |ng mater|ials, an|
|00000260| 64 20 6f 74 68 65 72 20 | 6d 61 74 65 72 69 61 6c |d other |material|
|00000270| 73 20 72 65 6c 61 74 65 | 64 20 74 6f 20 73 75 63 |s relate|d to suc|
|00000280| 68 0d 23 09 64 69 73 74 | 72 69 62 75 74 69 6f 6e |h.#.dist|ribution|
|00000290| 20 61 6e 64 20 75 73 65 | 20 61 63 6b 6e 6f 77 6c | and use| acknowl|
|000002a0| 65 64 67 65 20 74 68 61 | 74 20 74 68 65 20 73 6f |edge tha|t the so|
|000002b0| 66 74 77 61 72 65 20 77 | 61 73 20 64 65 76 65 6c |ftware w|as devel|
|000002c0| 6f 70 65 64 0d 23 09 62 | 79 20 44 61 76 69 64 20 |oped.#.b|y David |
|000002d0| 43 2e 20 42 6c 61 63 6b | 2e 0d 23 0d 23 09 54 48 |C. Black|..#.#.TH|
|000002e0| 49 53 20 53 4f 46 54 57 | 41 52 45 20 49 53 20 50 |IS SOFTW|ARE IS P|
|000002f0| 52 4f 56 49 44 45 44 20 | 22 41 53 20 49 53 22 20 |ROVIDED |"AS IS" |
|00000300| 41 4e 44 20 57 49 54 48 | 4f 55 54 20 41 4e 59 20 |AND WITH|OUT ANY |
|00000310| 45 58 50 52 45 53 53 20 | 4f 52 0d 23 09 49 4d 50 |EXPRESS |OR.#.IMP|
|00000320| 4c 49 45 44 20 57 41 52 | 52 41 4e 54 49 45 53 2c |LIED WAR|RANTIES,|
|00000330| 20 49 4e 43 4c 55 44 49 | 4e 47 2c 20 57 49 54 48 | INCLUDI|NG, WITH|
|00000340| 4f 55 54 20 4c 49 4d 49 | 54 41 54 49 4f 4e 2c 20 |OUT LIMI|TATION, |
|00000350| 54 48 45 20 49 4d 50 4c | 49 45 44 0d 23 09 57 41 |THE IMPL|IED.#.WA|
|00000360| 52 52 41 4e 54 49 45 53 | 20 4f 46 20 4d 45 52 43 |RRANTIES| OF MERC|
|00000370| 48 41 4e 54 41 42 49 4c | 49 54 59 20 41 4e 44 20 |HANTABIL|ITY AND |
|00000380| 46 49 54 4e 45 53 53 20 | 46 4f 52 20 41 20 50 41 |FITNESS |FOR A PA|
|00000390| 52 54 49 43 55 4c 41 52 | 20 50 55 52 50 4f 53 45 |RTICULAR| PURPOSE|
|000003a0| 2e 0d 23 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |..#.####|########|
|000003b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003f0| 23 23 23 23 0d 0d 23 20 | 50 65 72 6c 20 70 72 6f |####..# |Perl pro|
|00000400| 67 72 61 6d 6d 69 6e 67 | 20 6d 6f 64 65 0d 70 72 |gramming| mode.pr|
|00000410| 6f 63 20 73 65 74 50 65 | 72 6c 4d 6f 64 65 20 7b |oc setPe|rlMode {|
|00000420| 7d 20 7b 0d 09 63 68 61 | 6e 67 65 4d 6f 64 65 20 |} {..cha|ngeMode |
|00000430| 22 50 65 72 6c 22 0d 09 | 75 70 6c 65 76 65 6c 20 |"Perl"..|uplevel |
|00000440| 23 30 20 7b 0d 09 09 73 | 65 74 20 65 6c 65 63 4c |#0 {...s|et elecL|
|00000450| 42 72 61 63 65 20 30 0d | 09 09 73 65 74 20 65 6c |Brace 0.|..set el|
|00000460| 65 63 52 42 72 61 63 65 | 20 30 0d 09 09 73 65 74 |ecRBrace| 0...set|
|00000470| 20 65 6c 65 63 74 72 69 | 63 53 65 6d 69 20 30 0d | electri|cSemi 0.|
|00000480| 09 09 73 65 74 20 77 6f | 72 64 57 72 61 70 20 30 |..set wo|rdWrap 0|
|00000490| 0d 09 09 73 65 74 20 66 | 75 6e 63 54 69 74 6c 65 |...set f|uncTitle|
|000004a0| 20 22 53 75 62 22 0d 09 | 09 73 65 74 20 66 75 6e | "Sub"..|.set fun|
|000004b0| 63 45 78 70 72 20 7b 5e | 73 75 62 20 2a 28 5b 61 |cExpr {^|sub *([a|
|000004c0| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2a 29 20 7d 0d 09 |-zA-Z0-9|_]*) }..|
|000004d0| 09 73 65 74 20 66 75 6e | 63 50 61 72 20 31 0d 09 |.set fun|cPar 1..|
|000004e0| 09 73 65 74 20 73 6f 72 | 74 65 64 49 73 44 65 66 |.set sor|tedIsDef|
|000004f0| 61 75 6c 74 20 30 0d 09 | 09 73 65 74 20 70 72 65 |ault 0..|.set pre|
|00000500| 66 69 78 53 74 72 69 6e | 67 20 22 23 20 22 0d 09 |fixStrin|g "# "..|
|00000510| 7d 0d 7d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.}.....|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000590| 00 00 24 f9 00 00 01 58 | 05 00 00 00 24 fa 00 00 |..$....X|....$...|
|000005a0| 00 2f 05 00 00 00 25 1b | 00 00 00 a6 05 00 00 00 |./....%.|........|
|000005b0| 0f 73 65 74 50 65 72 6c | 4d 6f 64 65 2e 74 63 6c |.setPerl|Mode.tcl|
|000005c0| 02 00 00 00 50 61 72 74 | 53 49 54 21 00 00 00 00 |....Part|SIT!....|
|000005d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 ab 97 aa ee 00 00 | 00 00 00 00 01 7e 00 00 |........|.....~..|
|00000600| 26 89 00 00 00 31 05 00 | 00 00 26 9a 00 00 00 4e |&....1..|..&....N|
|00000610| 05 00 00 00 26 d3 00 00 | 00 60 05 00 00 00 26 f9 |....&...|.`....&.|
|00000620| 00 00 00 76 05 00 00 00 | 26 ff 00 00 00 78 05 00 |...v....|&....x..|
|00000630| 00 00 27 08 00 00 00 7a | 05 00 00 00 27 2e 00 00 |..'....z|....'...|
|00000640| 00 8c 05 00 00 00 27 3c | 00 00 00 5f 05 00 00 00 |......'<|..._....|
|00000650| 27 46 00 00 00 90 05 00 | 00 00 27 51 00 00 00 92 |'F......|..'Q....|
|00000660| 05 00 00 00 27 52 00 00 | 00 93 05 00 00 00 27 56 |....'R..|......'V|
|00000670| 00 00 00 52 05 00 00 00 | 27 61 00 00 00 51 05 00 |...R....|'a...Q..|
|00000680| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 00 02 |...H..Co|urier...|
|00000690| 00 14 cb 46 00 1c 00 01 | 00 00 00 00 00 00 a0 0c |...F....|........|
|000006a0| 00 00 00 d4 cc 8a 00 04 | 00 04 00 46 00 20 01 dd |........|...F. ..|
|000006b0| 02 1a 00 46 00 20 01 dd | 02 1a 00 0d f5 79 00 00 |...F. ..|.....y..|
|000006c0| 00 b7 00 00 00 b7 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000006d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 c5 bf 3c |...L...L|...2...<|
|000006e0| 0b c2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000006f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 c6 37 98 00 00 |........|....7...|
+--------+-------------------------+-------------------------+--------+--------+