/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / Tcl / SystemCode / setext.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 73 65 74 65 78 74 | 2e 74 63 6c 00 00 00 00 |..setext|.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 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 05 81 00 | 00 01 bc ab 72 14 ba ab |........|....r...|
|00000060| 72 14 ba 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 46 92 00 00 |........|....F...|
|00000080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000d0| 23 0d 23 20 53 65 74 65 | 78 74 20 66 69 6c 65 20 |#.# Sete|xt file |
|000000e0| 73 75 70 70 6f 72 74 0d | 23 0d 23 20 52 65 63 6f |support.|#.# Reco|
|000000f0| 67 6e 69 7a 65 20 61 6e | 64 20 61 75 74 6f 6d 61 |gnize an|d automa|
|00000100| 74 69 63 61 6c 6c 79 20 | 6d 61 72 6b 20 27 73 65 |tically |mark 'se|
|00000110| 74 65 78 74 27 2d 65 6e | 63 6f 64 65 64 20 74 65 |text'-en|coded te|
|00000120| 78 74 20 66 69 6c 65 73 | 2c 20 6c 69 6b 65 20 54 |xt files|, like T|
|00000130| 69 64 62 69 74 73 2e 0d | 23 0d 23 20 28 54 6f 6d |idbits..|#.# (Tom|
|00000140| 20 50 6f 6c 6c 61 72 64 | 20 2d 20 4f 63 74 6f 62 | Pollard| - Octob|
|00000150| 65 72 20 31 39 39 34 29 | 0d 23 0d 23 3d 3d 3d 3d |er 1994)|.#.#====|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 6c 61 70 |========|====.lap|
|000001b0| 70 65 6e 64 20 6d 6f 64 | 65 73 20 53 65 74 78 0d |pend mod|es Setx.|
|000001c0| 73 65 74 20 6d 6f 64 65 | 4d 65 6e 75 73 28 53 65 |set mode|Menus(Se|
|000001d0| 74 78 29 09 09 09 09 7b | 20 7d 0d 6c 61 70 70 65 |tx)....{| }.lappe|
|000001e0| 6e 64 20 6d 6f 64 65 53 | 75 66 66 69 78 65 73 09 |nd modeS|uffixes.|
|000001f0| 09 09 7b 2a 2e 73 74 78 | 7d 20 7b 20 73 65 74 20 |..{*.stx|} { set |
|00000200| 77 69 6e 4d 6f 64 65 20 | 53 65 74 78 20 7d 0d 6c |winMode |Setx }.l|
|00000210| 61 70 70 65 6e 64 20 6d | 6f 64 65 53 75 66 66 69 |append m|odeSuffi|
|00000220| 78 65 73 09 09 09 7b 2a | 2e 65 74 78 7d 20 7b 20 |xes...{*|.etx} { |
|00000230| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 53 65 74 78 |set winM|ode Setx|
|00000240| 20 7d 0d 73 65 74 20 64 | 75 6d 6d 79 50 72 6f 63 | }.set d|ummyProc|
|00000250| 28 53 65 74 78 29 09 09 | 09 09 64 75 6d 6d 79 53 |(Setx)..|..dummyS|
|00000260| 65 74 78 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 53 |etx.newM|odeVar S|
|00000270| 65 74 78 20 61 75 74 6f | 4d 61 72 6b 09 31 09 31 |etx auto|Mark.1.1|
|00000280| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000002d0| 70 72 6f 63 20 64 75 6d | 6d 79 53 65 74 78 20 7b |proc dum|mySetx {|
|000002e0| 7d 20 7b 7d 0d 0d 70 72 | 6f 63 20 53 65 74 78 4d |} {}..pr|oc SetxM|
|000002f0| 61 72 6b 46 69 6c 65 20 | 7b 7d 20 7b 0d 20 20 20 |arkFile |{} {.   |
|00000300| 20 73 65 74 20 70 61 74 | 31 20 7b 5e 28 2d 2b 7c | set pat|1 {^(-+||
|00000310| 3d 2b 29 24 7d 0d 20 20 | 20 20 73 65 74 20 65 6e |=+)$}.  |  set en|
|00000320| 64 20 5b 6d 61 78 50 6f | 73 5d 0d 20 20 20 20 73 |d [maxPo|s].    s|
|00000330| 65 74 20 70 6f 73 20 30 | 0d 20 20 20 20 73 65 74 |et pos 0|.    set|
|00000340| 20 6c 20 7b 7d 0d 20 20 | 20 20 77 68 69 6c 65 20 | l {}.  |  while |
|00000350| 7b 21 5b 63 61 74 63 68 | 20 7b 73 65 61 72 63 68 |{![catch| {search|
|00000360| 20 2d 66 20 31 20 2d 72 | 20 31 20 2d 6d 20 30 20 | -f 1 -r| 1 -m 0 |
|00000370| 2d 69 20 31 20 24 70 61 | 74 31 20 24 70 6f 73 7d |-i 1 $pa|t1 $pos}|
|00000380| 20 6d 74 63 68 5d 7d 20 | 7b 0d 20 20 20 20 09 73 | mtch]} |{.    .s|
|00000390| 65 74 20 70 6f 73 31 20 | 5b 6c 69 6e 65 53 74 61 |et pos1 |[lineSta|
|000003a0| 72 74 20 5b 65 78 70 72 | 20 5b 6c 69 6e 64 65 78 |rt [expr| [lindex|
|000003b0| 20 24 6d 74 63 68 20 30 | 5d 20 2d 20 31 5d 5d 0d | $mtch 0|] - 1]].|
|000003c0| 20 20 20 20 09 73 65 74 | 20 6d 61 72 6b 65 72 20 |    .set| marker |
|000003d0| 5b 73 74 72 69 6e 67 20 | 74 72 69 6d 72 69 67 68 |[string |trimrigh|
|000003e0| 74 20 5b 65 76 61 6c 20 | 67 65 74 54 65 78 74 20 |t [eval |getText |
|000003f0| 24 6d 74 63 68 5d 5d 0d | 20 20 20 20 09 73 65 74 |$mtch]].|    .set|
|00000400| 20 74 65 78 74 20 5b 73 | 74 72 69 6e 67 20 74 72 | text [s|tring tr|
|00000410| 69 6d 72 69 67 68 74 20 | 5b 67 65 74 54 65 78 74 |imright |[getText|
|00000420| 20 24 70 6f 73 31 20 5b | 6e 65 78 74 4c 69 6e 65 | $pos1 [|nextLine|
|00000430| 53 74 61 72 74 20 24 70 | 6f 73 31 5d 5d 5d 0d 09 |Start $p|os1]]]..|
|00000440| 09 69 66 20 7b 5b 73 74 | 72 69 6e 67 20 6c 65 6e |.if {[st|ring len|
|00000450| 67 74 68 20 24 74 65 78 | 74 5d 20 3d 3d 20 5b 73 |gth $tex|t] == [s|
|00000460| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 6d 61 |tring le|ngth $ma|
|00000470| 72 6b 65 72 5d 7d 20 7b | 0d 09 09 09 69 66 20 7b |rker]} {|....if {|
|00000480| 5b 73 74 72 69 6e 67 20 | 72 61 6e 67 65 20 24 6d |[string |range $m|
|00000490| 61 72 6b 65 72 20 30 20 | 30 5d 20 3d 3d 20 22 2d |arker 0 |0] == "-|
|000004a0| 22 7d 20 7b 0d 09 09 09 | 09 73 65 74 20 74 65 78 |"} {....|.set tex|
|000004b0| 74 20 22 20 20 20 20 20 | 24 74 65 78 74 22 0d 09 |t "     |$text"..|
|000004c0| 09 09 7d 0d 09 09 09 72 | 65 67 73 75 62 20 7b 2f |..}....r|egsub {/|
|000004d0| 7d 20 24 74 65 78 74 20 | 7b 2d 7d 20 74 65 78 74 |} $text |{-} text|
|000004e0| 0d 09 20 20 20 20 20 20 | 20 20 73 65 74 20 69 6e |..      |  set in|
|000004f0| 64 73 28 24 74 65 78 74 | 29 20 24 70 6f 73 31 0d |ds($text|) $pos1.|
|00000500| 09 20 20 20 20 20 20 20 | 20 6c 61 70 70 65 6e 64 |.       | lappend|
|00000510| 20 73 65 63 74 73 20 24 | 74 65 78 74 0d 09 20 20 | sects $|text..  |
|00000520| 20 20 7d 0d 09 20 20 20 | 20 73 65 74 20 70 6f 73 |  }..   | set pos|
|00000530| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|00000540| 5b 6c 69 6e 64 65 78 20 | 24 6d 74 63 68 20 31 5d |[lindex |$mtch 1]|
|00000550| 5d 0d 20 20 20 20 7d 0d | 0d 20 20 20 20 69 66 20 |].    }.|.    if |
|00000560| 7b 5b 69 6e 66 6f 20 65 | 78 69 73 74 73 20 69 6e |{[info e|xists in|
|00000570| 64 73 5d 7d 20 7b 0d 20 | 20 20 20 20 20 20 20 66 |ds]} {. |       f|
|00000580| 6f 72 65 61 63 68 20 66 | 20 24 73 65 63 74 73 20 |oreach f| $sects |
|00000590| 7b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 73 65 |{.      |      se|
|000005a0| 74 20 6e 65 78 74 20 5b | 6c 69 6e 65 53 74 61 72 |t next [|lineStar|
|000005b0| 74 20 24 69 6e 64 73 28 | 24 66 29 5d 0d 20 20 20 |t $inds(|$f)].   |
|000005c0| 20 20 20 20 20 20 20 20 | 20 73 65 74 4e 61 6d 65 |        | setName|
|000005d0| 64 4d 61 72 6b 20 24 66 | 20 24 69 6e 64 73 28 24 |dMark $f| $inds($|
|000005e0| 66 29 20 24 6e 65 78 74 | 20 24 6e 65 78 74 0d 20 |f) $next| $next. |
|000005f0| 20 20 20 20 20 20 20 7d | 0d 20 20 20 20 7d 0d 7d |       }|.    }.}|
|00000600| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 |........|........|
|00000680| 00 00 01 00 00 00 01 7a | 00 00 00 7a 00 00 00 42 |.......z|...z...B|
|00000690| 27 00 ba d1 d4 e8 6a ff | ff 20 00 7d a7 00 00 00 |'.....j.|. .}....|
|000006a0| 00 e8 6b ff ff 60 00 7e | 09 00 00 00 00 e8 6c ff |..k..`.~|......l.|
|000006b0| 0a 73 65 74 65 78 74 2e | 74 63 6c 78 02 00 00 00 |.setext.|tclx....|
|000006c0| 54 45 58 54 41 4c 46 41 | 00 00 00 00 00 00 00 00 |TEXTALFA|........|
|000006d0| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 aa d1 cd 8f 00 00 | 05 81 00 00 01 bc 00 00 |........|........|
|00000700| 00 49 4d ff ff 00 00 86 | 0b 00 00 00 00 61 6d ff |.IM.....|.....am.|
|00000710| ff 00 00 86 11 00 00 00 | 00 e8 62 ff ff 20 00 86 |........|..b.. ..|
|00000720| 19 00 00 00 00 e8 f8 ff | ff 00 00 86 9d 00 00 00 |........|........|
|00000730| 00 e8 f9 ff ff 00 00 87 | 21 00 00 00 00 e8 60 ff |........|!.....`.|
|00000740| ff 20 00 87 a5 00 00 00 | 00 e8 e8 ff ff 20 00 88 |. ......|..... ..|
|00000750| 29 00 00 00 00 e8 e9 ff | ff 20 00 88 ad 00 00 00 |).......|. ......|
|00000760| 00 e8 ea ff ff 20 00 89 | 31 00 00 00 00 e8 eb ff |..... ..|1.......|
|00000770| ff 00 00 89 b5 00 00 00 | 00 e8 ec ff ff 20 00 8a |........|..... ..|
|00000780| 00 00 00 2a 00 02 00 00 | 02 50 00 00 02 50 09 64 |...*....|.P...P.d|
|00000790| 75 6d 6d 79 53 65 74 78 | 00 00 02 66 00 00 02 66 |ummySetx|...f...f|
|000007a0| 0d 53 65 74 78 4d 61 72 | 6b 46 69 6c 65 00 00 00 |.SetxMar|kFile...|
|000007b0| 00 48 00 09 43 68 69 63 | 61 67 6f 00 00 01 00 00 |.H..Chic|ago.....|
|000007c0| 01 bc 8b 94 00 eb f3 ce | 40 84 03 2c 03 0a 00 d1 |........|@..,....|
|000007d0| 9d 60 00 00 00 04 00 04 | 00 28 00 03 01 b6 02 24 |.`......|.(.....$|
|000007e0| 00 28 00 03 01 b6 02 24 | ab e5 5e 87 00 00 02 7c |.(.....$|..^....||
|000007f0| 00 00 02 7c 00 00 00 00 | 01 00 00 00 01 00 00 00 |...|....|........|
|00000800| 01 7a 00 00 00 7a 00 00 | 00 42 00 cc b8 28 12 bc |.z...z..|.B...(..|
|00000810| 00 00 00 1c 00 3e 00 00 | 4d 50 53 52 00 01 00 0a |.....>..|MPSR....|
|00000820| 03 ef 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|00000830| 00 00 00 2e 00 cc bd 90 | 03 74 61 62 00 00 00 00 |........|.tab....|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+