Internet File Formats

home *** CD-ROM | disk | FTP | other *** search
/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / UserCode / selectFunc.tcl < prev next >
MacBinary | 1994-03-08 | 1.9 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:39 1994, modified Tue Mar 8 16:46:39 1994, creator Alpha editor, type ASCII, 1379 bytes "selectFunc.tcl" , at 0x5e3 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 0e 73 65 6c 65 63 74 | 46 75 6e 63 2e 74 63 6c |..select|Func.tcl|
|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 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 05 63 00 | 00 01 7e a9 a2 a2 bf a9 |......c.|..~.....|
|00000060| a2 a2 bf 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 91 8e 00 00 |........|........|
|00000080| 23 20 46 49 4c 45 3a 20 | 73 65 6c 65 63 74 46 75 |# FILE: |selectFu|
|00000090| 6e 63 2e 74 63 6c 0d 23 | 0d 23 20 4c 41 53 54 20 |nc.tcl.#|.# LAST |
|000000a0| 55 50 44 41 54 45 3a 20 | 32 2f 31 2f 39 33 20 31 |UPDATE: |2/1/93 1|
|000000b0| 32 3a 31 35 3a 32 38 20 | 50 4d 0d 23 0d 23 09 73 |2:15:28 |PM.#.#.s|
|000000c0| 65 6c 65 63 74 46 75 6e | 63 20 2d 20 73 69 6d 69 |electFun|c - simi|
|000000d0| 6c 61 72 20 74 6f 20 73 | 65 61 72 63 68 46 75 6e |lar to s|earchFun|
|000000e0| 63 2c 20 62 75 74 20 73 | 65 6c 65 63 74 73 20 74 |c, but s|elects t|
|000000f0| 68 65 20 65 6e 74 69 72 | 65 20 64 65 66 69 6e 69 |he entir|e defini|
|00000100| 74 69 6f 6e 0d 0d 23 20 | 43 4f 50 59 52 49 47 48 |tion..# |COPYRIGH|
|00000110| 54 3a 0d 23 0d 23 09 43 | 6f 70 79 72 69 67 68 74 |T:.#.#.C|opyright|
|00000120| 20 a9 20 31 39 39 33 20 | 62 79 20 44 61 76 69 64 | . 1993 |by David|
|00000130| 20 43 2e 20 42 6c 61 63 | 6b 0d 23 09 41 6c 6c 20 | C. Blac|k.#.All |
|00000140| 72 69 67 68 74 73 20 72 | 65 73 65 72 76 65 64 2e |rights r|eserved.|
|00000150| 0d 23 0d 23 09 52 65 64 | 69 73 74 72 69 62 75 74 |.#.#.Red|istribut|
|00000160| 69 6f 6e 20 61 6e 64 20 | 75 73 65 20 69 6e 20 73 |ion and |use in s|
|00000170| 6f 75 72 63 65 20 61 6e | 64 20 62 69 6e 61 72 79 |ource an|d binary|
|00000180| 20 66 6f 72 6d 73 20 61 | 72 65 20 70 65 72 6d 69 | forms a|re permi|
|00000190| 74 74 65 64 0d 23 09 70 | 72 6f 76 69 64 65 64 20 |tted.#.p|rovided |
|000001a0| 74 68 61 74 20 74 68 65 | 20 61 62 6f 76 65 20 63 |that the| above c|
|000001b0| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 20 |opyright| notice |
|000001c0| 61 6e 64 20 74 68 69 73 | 20 70 61 72 61 67 72 61 |and this| paragra|
|000001d0| 70 68 20 61 72 65 0d 23 | 09 64 75 70 6c 69 63 61 |ph are.#|.duplica|
|000001e0| 74 65 64 20 69 6e 20 61 | 6c 6c 20 73 75 63 68 20 |ted in a|ll such |
|000001f0| 66 6f 72 6d 73 20 61 6e | 64 20 74 68 61 74 20 61 |forms an|d that a|
|00000200| 6e 79 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |ny docum|entation|
|00000210| 2c 0d 23 09 61 64 76 65 | 72 74 69 73 69 6e 67 20 |,.#.adve|rtising |
|00000220| 6d 61 74 65 72 69 61 6c | 73 2c 20 61 6e 64 20 6f |material|s, and o|
|00000230| 74 68 65 72 20 6d 61 74 | 65 72 69 61 6c 73 20 72 |ther mat|erials r|
|00000240| 65 6c 61 74 65 64 20 74 | 6f 20 73 75 63 68 0d 23 |elated t|o such.#|
|00000250| 09 64 69 73 74 72 69 62 | 75 74 69 6f 6e 20 61 6e |.distrib|ution an|
|00000260| 64 20 75 73 65 20 61 63 | 6b 6e 6f 77 6c 65 64 67 |d use ac|knowledg|
|00000270| 65 20 74 68 61 74 20 74 | 68 65 20 73 6f 66 74 77 |e that t|he softw|
|00000280| 61 72 65 20 77 61 73 20 | 64 65 76 65 6c 6f 70 65 |are was |develope|
|00000290| 64 0d 23 09 62 79 20 44 | 61 76 69 64 20 43 2e 20 |d.#.by D|avid C. |
|000002a0| 42 6c 61 63 6b 2e 0d 23 | 0d 23 09 54 48 49 53 20 |Black..#|.#.THIS |
|000002b0| 53 4f 46 54 57 41 52 45 | 20 49 53 20 50 52 4f 56 |SOFTWARE| IS PROV|
|000002c0| 49 44 45 44 20 22 41 53 | 20 49 53 22 20 41 4e 44 |IDED "AS| IS" AND|
|000002d0| 20 57 49 54 48 4f 55 54 | 20 41 4e 59 20 45 58 50 | WITHOUT| ANY EXP|
|000002e0| 52 45 53 53 20 4f 52 0d | 23 09 49 4d 50 4c 49 45 |RESS OR.|#.IMPLIE|
|000002f0| 44 20 57 41 52 52 41 4e | 54 49 45 53 2c 20 49 4e |D WARRAN|TIES, IN|
|00000300| 43 4c 55 44 49 4e 47 2c | 20 57 49 54 48 4f 55 54 |CLUDING,| WITHOUT|
|00000310| 20 4c 49 4d 49 54 41 54 | 49 4f 4e 2c 20 54 48 45 | LIMITAT|ION, THE|
|00000320| 20 49 4d 50 4c 49 45 44 | 0d 23 09 57 41 52 52 41 | IMPLIED|.#.WARRA|
|00000330| 4e 54 49 45 53 20 4f 46 | 20 4d 45 52 43 48 41 4e |NTIES OF| MERCHAN|
|00000340| 54 41 42 49 4c 49 54 59 | 20 41 4e 44 20 46 49 54 |TABILITY| AND FIT|
|00000350| 4e 45 53 53 20 46 4f 52 | 20 41 20 50 41 52 54 49 |NESS FOR| A PARTI|
|00000360| 43 55 4c 41 52 20 50 55 | 52 50 4f 53 45 2e 0d 23 |CULAR PU|RPOSE..#|
|00000370| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00000380| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000390| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003a0| 23 23 23 23 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 0d 0d |########|######..|
|000003c0| 70 72 6f 63 20 73 65 6c | 65 63 74 46 75 6e 63 20 |proc sel|ectFunc |
|000003d0| 7b 64 69 72 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |{dir} {.|.global |
|000003e0| 66 75 6e 63 45 78 70 72 | 0d 09 73 65 74 20 70 6f |funcExpr|..set po|
|000003f0| 73 20 5b 67 65 74 50 6f | 73 5d 0d 09 73 65 6c 65 |s [getPo|s]..sele|
|00000400| 63 74 20 24 70 6f 73 0d | 09 69 66 20 7b 24 64 69 |ct $pos.|.if {$di|
|00000410| 72 3d 3d 31 7d 20 7b 0d | 09 09 69 6e 63 72 20 70 |r==1} {.|..incr p|
|00000420| 6f 73 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 73 |os..} el|se {...s|
|00000430| 65 74 20 70 6f 73 20 5b | 65 78 70 72 20 24 70 6f |et pos [|expr $po|
|00000440| 73 2d 31 5d 0d 09 7d 0d | 09 69 66 20 7b 5b 63 61 |s-1]..}.|.if {[ca|
|00000450| 74 63 68 20 7b 65 76 61 | 6c 20 73 65 6c 65 63 74 |tch {eva|l select|
|00000460| 20 5b 73 65 61 72 63 68 | 20 2d 66 20 24 64 69 72 | [search| -f $dir|
|00000470| 20 2d 69 20 31 20 2d 72 | 20 31 20 24 66 75 6e 63 | -i 1 -r| 1 $func|
|00000480| 45 78 70 72 20 24 70 6f | 73 5d 7d 5d 7d 20 7b 0d |Expr $po|s]}]} {.|
|00000490| 09 09 62 65 65 70 0d 09 | 09 6d 65 73 73 61 67 65 |..beep..|.message|
|000004a0| 20 22 4e 6f 20 6d 6f 72 | 65 20 66 75 6e 63 74 69 | "No mor|e functi|
|000004b0| 6f 6e 73 22 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |ons"..} |else {..|
|000004c0| 09 73 65 74 20 70 6f 73 | 20 5b 67 65 74 50 6f 73 |.set pos| [getPos|
|000004d0| 5d 0d 09 09 73 65 74 20 | 65 6e 64 20 5b 73 65 6c |]...set |end [sel|
|000004e0| 45 6e 64 5d 0d 09 09 69 | 66 20 7b 5b 63 61 74 63 |End]...i|f {[catc|
|000004f0| 68 20 7b 65 76 61 6c 20 | 73 65 6c 65 63 74 20 5b |h {eval |select [|
|00000500| 73 65 61 72 63 68 20 2d | 66 20 31 20 2d 69 20 31 |search -|f 1 -i 1|
|00000510| 20 2d 72 20 31 20 24 66 | 75 6e 63 45 78 70 72 20 | -r 1 $f|uncExpr |
|00000520| 24 65 6e 64 5d 7d 5d 7d | 20 7b 0d 09 09 09 73 65 |$end]}]}| {....se|
|00000530| 6c 65 63 74 20 24 70 6f | 73 20 5b 6d 61 78 50 6f |lect $po|s [maxPo|
|00000540| 73 5d 0d 09 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |s]...} e|lse {...|
|00000550| 09 73 65 74 20 65 6e 64 | 20 5b 67 65 74 50 6f 73 |.set end| [getPos|
|00000560| 5d 0d 09 09 09 73 65 6c | 65 63 74 20 24 70 6f 73 |]....sel|ect $pos|
|00000570| 20 24 65 6e 64 0d 09 09 | 7d 0d 09 7d 0d 7d 0d 23 | $end...|}..}.}.#|
|00000580| 65 6e 64 70 72 6f 63 20 | 73 65 6c 65 63 74 46 75 |endproc |selectFu|
|00000590| 6e 63 0d 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |nc.#####|########|
|000005a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000005e0| 23 0d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |#.......|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000610| 08 80 46 53 53 44 53 46 | 58 21 00 00 00 00 00 00 |..FSSDSF|X!......|
|00000620| 00 00 00 00 00 00 00 4a | ff ff ff ff ff ff ff ff |.......J|........|
|00000630| 0e 73 65 6c 65 63 74 46 | 75 6e 63 2e 74 63 6c 6e |.selectF|unc.tcln|
|00000640| 02 00 00 00 50 61 72 74 | 53 49 54 21 00 00 00 00 |....Part|SIT!....|
|00000650| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 ab 97 aa ee 00 00 | 00 00 00 00 01 7e 71 d1 |........|.....~q.|
|00000680| 08 05 53 49 54 44 53 49 | 54 21 00 00 00 00 00 00 |..SITDSI|T!......|
|00000690| 00 00 00 00 08 00 00 4a | ff ff ff ff ff ff ff ff |.......J|........|
|000006a0| 00 76 a7 84 7b f2 00 00 | 00 b2 00 00 71 d1 08 08 |.v..{...|....q...|
|000006b0| a7 84 7c a8 ff 00 71 d1 | 08 8d 46 53 53 44 53 46 |..|...q.|..FSSDSF|
|000006c0| 58 21 00 00 00 00 00 00 | 00 00 00 00 00 00 00 4a |X!......|.......J|
|000006d0| ff ff ff ff ff ff ff ff | 00 76 a7 84 7c a8 00 00 |........|.v..|...|
|000006e0| 00 a1 00 00 71 d1 08 08 | a7 84 7c a8 ff 00 71 d1 |....q...|..|...q.|
|000006f0| 08 8c 46 53 53 44 53 46 | 58 21 00 00 00 00 00 00 |..FSSDSF|X!......|
|00000700| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 b4 60 |...H..Co|urier..`|
|00000710| 00 00 14 f0 01 8d 17 d8 | 01 ab ef 70 24 00 04 84 |........|...p$...|
|00000720| 02 0e f6 08 ff fc 00 04 | 00 04 00 3c 00 16 01 dd |........|...<....|
|00000730| 02 10 00 3c 00 16 01 dd | 02 10 ab 8e 5a 3b 00 00 |...<....|....Z;..|
|00000740| 02 29 00 00 02 29 00 00 | 02 29 01 00 00 00 01 00 |.)...)..|.)......|
|00000750| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 8b bf 88 |...L...L|...2....|
|00000760| 14 f0 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000770| 00 0a 03 ed ff ff 00 00 | 00 00 01 8f b5 d8 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+