/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Module source / zUtilmod.txt

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 7a 55 74 69 6c 6d | 6f 64 2e 74 78 74 00 00 |..zUtilm|od.txt..|
|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 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 07 c8 00 | 00 01 7d b0 8d 79 e4 b0 |........|..}..y..|
|00000060| 8d 79 e4 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.y......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 27 2c 00 00 |........|....',..|
|00000080| 5c 20 56 61 72 69 6f 75 | 73 20 75 74 69 6c 69 74 |\ Variou|s utilit|
|00000090| 69 65 73 0d 0d 3a 20 43 | 48 4b 0d 09 52 65 73 45 |ies..: C|HK..ResE|
|000000a0| 72 72 6f 72 20 20 3f 64 | 75 70 0d 09 49 46 20 20 |rror  ?d|up..IF  |
|000000b0| 33 20 62 65 65 70 20 20 | 33 20 62 65 65 70 20 20 |3 beep  |3 beep  |
|000000c0| 63 72 0d 09 09 64 75 70 | 20 2d 34 38 20 3d 0d 09 |cr...dup| -48 =..|
|000000d0| 09 49 46 09 2e 22 20 59 | 6f 75 20 63 61 6e 27 74 |.IF.." Y|ou can't|
|000000e0| 20 73 61 76 65 20 75 73 | 69 6e 67 20 74 68 65 20 | save us|ing the |
|000000f0| 73 61 6d 65 20 6e 61 6d | 65 20 61 73 20 74 68 65 |same nam|e as the|
|00000100| 20 72 75 6e 6e 69 6e 67 | 22 20 63 72 0d 09 09 09 | running|" cr....|
|00000110| 2e 22 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 2e 20 |." appli|cation. |
|00000120| 20 50 6c 65 61 73 65 20 | 74 72 79 20 61 67 61 69 | Please |try agai|
|00000130| 6e 20 77 69 74 68 20 61 | 20 64 69 66 66 65 72 65 |n with a| differe|
|00000140| 6e 74 20 6e 61 6d 65 2e | 22 20 63 72 0d 09 09 45 |nt name.|" cr...E|
|00000150| 4c 53 45 0d 09 09 09 2e | 22 20 52 65 73 20 65 72 |LSE.....|" Res er|
|00000160| 72 6f 72 23 20 22 20 2e | 20 20 63 72 0d 09 09 54 |ror# " .|  cr...T|
|00000170| 48 45 4e 0d 09 09 51 55 | 49 54 0d 09 54 48 45 4e |HEN...QU|IT..THEN|
|00000180| 20 20 3b 0d 0d 0d 5c 20 | 43 6c 61 73 73 20 52 45 |  ;...\ |Class RE|
|00000190| 53 2b 20 61 64 64 73 20 | 6d 65 74 68 6f 64 73 20 |S+ adds |methods |
|000001a0| 74 6f 20 52 65 73 6f 75 | 72 63 65 20 74 6f 20 61 |to Resou|rce to a|
|000001b0| 6c 6c 6f 77 20 76 61 72 | 69 6f 75 73 20 6d 6f 64 |llow var|ious mod|
|000001c0| 69 66 69 63 61 74 69 6f | 6e 73 0d 5c 20 74 6f 20 |ificatio|ns.\ to |
|000001d0| 72 65 73 6f 75 72 63 65 | 73 2e 20 20 57 65 27 6c |resource|s.  We'l|
|000001e0| 6c 20 70 75 74 20 6d 6f | 72 65 20 69 6e 20 61 73 |l put mo|re in as|
|000001f0| 20 77 65 20 6e 65 65 64 | 20 74 68 65 6d 2e 0d 0d | we need| them...|
|00000200| 3a 63 6c 61 73 73 09 52 | 45 53 2b 20 20 73 75 70 |:class.R|ES+  sup|
|00000210| 65 72 7b 20 72 65 73 6f | 75 72 63 65 20 7d 0d 0d |er{ reso|urce }..|
|00000220| 6f 62 6a 50 74 72 09 54 | 45 4d 50 52 45 53 20 20 |objPtr.T|EMPRES  |
|00000230| 63 6c 61 73 73 5f 69 73 | 20 20 72 65 73 2b 0d 0d |class_is|  res+..|
|00000240| 3a 6d 20 43 48 41 4e 47 | 45 44 3a 09 67 65 74 3a |:m CHANG|ED:.get:|
|00000250| 20 73 65 6c 66 20 20 43 | 68 61 6e 67 65 64 52 65 | self  C|hangedRe|
|00000260| 73 6f 75 72 63 65 20 20 | 3b 6d 0d 0d 3a 6d 20 41 |source  |;m..:m A|
|00000270| 44 44 3a 20 20 7b 20 61 | 64 64 72 20 6c 65 6e 20 |DD:  { a|ddr len |
|00000280| 2d 2d 20 7d 0d 09 67 65 | 74 3a 20 73 65 6c 66 0d |-- }..ge|t: self.|
|00000290| 09 67 65 74 3a 20 72 65 | 73 54 79 70 65 20 20 67 |.get: re|sType  g|
|000002a0| 65 74 3a 20 49 44 0d 09 | 61 64 64 72 20 6c 65 6e |et: ID..|addr len|
|000002b0| 20 3e 73 74 72 32 35 35 | 20 20 41 64 64 52 65 73 | >str255|  AddRes|
|000002c0| 6f 75 72 63 65 20 20 63 | 68 6b 20 20 3b 6d 0d 0d |ource  c|hk  ;m..|
|000002d0| 3a 6d 20 52 45 4d 4f 56 | 45 3a 0d 09 67 65 74 3a |:m REMOV|E:..get:|
|000002e0| 20 73 65 6c 66 20 20 52 | 65 6d 6f 76 65 52 65 73 | self  R|emoveRes|
|000002f0| 6f 75 72 63 65 20 20 63 | 68 6b 20 20 3b 6d 0d 0d |ource  c|hk  ;m..|
|00000300| 3a 6d 20 53 45 54 41 54 | 54 52 53 3a 09 5c 20 28 |:m SETAT|TRS:.\ (|
|00000310| 20 6e 20 2d 2d 20 29 0d | 09 67 65 74 3a 20 73 65 | n -- ).|.get: se|
|00000320| 6c 66 20 20 73 77 61 70 | 20 20 53 65 74 52 65 73 |lf  swap|  SetRes|
|00000330| 41 74 74 72 73 20 20 63 | 68 6b 0d 09 63 68 61 6e |Attrs  c|hk..chan|
|00000340| 67 65 64 3a 20 73 65 6c | 66 20 20 3b 6d 0d 0d 0d |ged: sel|f  ;m...|
|00000350| 3b 63 6c 61 73 73 0d 0d | 0d 09 73 74 72 69 6e 67 |;class..|..string|
|00000360| 09 54 45 4d 50 24 0d 09 | 72 65 73 2b 09 54 45 4d |.TEMP$..|res+.TEM|
|00000370| 50 52 45 53 0d 0d 0d 3a | 20 28 2e 4d 4f 44 29 20 |PRES...:| (.MOD) |
|00000380| 20 7b 20 74 68 65 43 66 | 61 20 64 75 6d 6d 79 20 | { theCf|a dummy |
|00000390| 5c 20 6d 6f 64 4f 62 6a | 20 2d 2d 20 7d 0d 09 74 |\ modObj| -- }..t|
|000003a0| 68 65 43 66 61 20 20 6d | 6f 64 3f 20 4e 49 46 20 |heCfa  m|od? NIF |
|000003b0| 20 64 72 6f 70 20 20 45 | 58 49 54 20 20 54 48 45 | drop  E|XIT  THE|
|000003c0| 4e 0d 09 3e 6f 62 6a 20 | 20 2d 3e 20 6d 6f 64 4f |N..>obj | -> modO|
|000003d0| 62 6a 0d 09 63 72 20 20 | 30 20 2d 3e 20 6f 75 74 |bj..cr  |0 -> out|
|000003e0| 20 20 2e 69 64 3a 20 5b | 20 6d 6f 64 4f 62 6a 20 |  .id: [| modObj |
|000003f0| 5d 0d 09 31 35 20 6f 75 | 74 20 2d 20 20 73 70 61 |]..15 ou|t -  spa|
|00000400| 63 65 73 0d 09 70 72 69 | 6e 74 3a 20 5b 20 6d 6f |ces..pri|nt: [ mo|
|00000410| 64 4f 62 6a 20 5d 0d 3b | 0d 5c 09 62 61 73 65 3a |dObj ].;|.\.base:|
|00000420| 20 5b 20 6d 6f 64 4f 62 | 6a 20 5d 20 20 64 75 70 | [ modOb|j ]  dup|
|00000430| 0d 5c 09 4e 49 46 20 20 | 64 72 6f 70 20 20 2e 22 |.\.NIF  |drop  ."|
|00000440| 20 6e 6f 74 20 6c 6f 61 | 64 65 64 22 20 20 45 4c | not loa|ded"  EL|
|00000450| 53 45 20 20 75 2e 68 20 | 20 54 48 45 4e 0d 5c 09 |SE  u.h | THEN.\.|
|00000460| 6b 65 65 70 3f 3a 20 5b | 20 6d 6f 64 4f 62 6a 20 |keep?: [| modObj |
|00000470| 5d 09 49 46 20 20 74 79 | 70 65 23 20 31 37 34 20 |].IF  ty|pe# 174 |
|00000480| 28 20 2a 2a 2a 20 4b 65 | 65 70 20 2a 2a 2a 20 29 |( *** Ke|ep *** )|
|00000490| 20 20 54 48 45 4e 0d 5c | 09 6c 6f 63 6b 65 64 3f |  THEN.\|.locked?|
|000004a0| 3a 20 5b 20 6d 6f 64 4f | 62 6a 20 5d 09 49 46 20 |: [ modO|bj ].IF |
|000004b0| 20 74 79 70 65 23 20 31 | 37 35 20 28 20 2a 2a 2a | type# 1|75 ( ***|
|000004c0| 20 4c 6f 63 6b 65 64 20 | 2a 2a 2a 20 29 20 20 54 | Locked |*** )  T|
|000004d0| 48 45 4e 20 20 3b 0d 0d | 3a 20 2e 4d 4f 44 53 09 |HEN  ;..|: .MODS.|
|000004e0| 09 5c 20 4c 69 73 74 73 | 20 6d 6f 64 75 6c 65 73 |.\ Lists| modules|
|000004f0| 20 61 6e 64 20 74 68 65 | 69 72 20 6c 6f 61 64 20 | and the|ir load |
|00000500| 73 74 61 74 75 73 2e 0d | 09 5b 27 5d 20 28 2e 6d |status..|.['] (.m|
|00000510| 6f 64 29 20 20 30 20 74 | 72 61 76 0d 09 63 72 20 |od)  0 t|rav..cr |
|00000520| 20 3b 0d 0d 0d 3a 20 2e | 4d 53 47 53 09 09 5c 20 | ;...: .|MSGS..\ |
|00000530| 4c 69 73 74 73 20 61 6c | 6c 20 65 72 72 6f 72 20 |Lists al|l error |
|00000540| 65 74 63 2e 20 6d 65 73 | 73 61 67 65 73 20 61 6e |etc. mes|sages an|
|00000550| 64 20 74 68 65 69 72 20 | 6e 75 6d 62 65 72 73 2e |d their |numbers.|
|00000560| 0d 09 33 30 30 20 2d 36 | 30 20 20 44 4f 0d 09 09 |..300 -6|0  DO...|
|00000570| 3f 70 61 75 73 65 20 63 | 72 0d 09 09 69 20 2e 20 |?pause c|r...i . |
|00000580| 73 70 61 63 65 20 20 69 | 20 20 67 65 74 73 74 72 |space  i|  getstr|
|00000590| 69 6e 67 0d 09 09 64 75 | 70 20 49 46 20 20 74 79 |ing...du|p IF  ty|
|000005a0| 70 65 20 20 45 4c 53 45 | 20 20 32 64 72 6f 70 20 |pe  ELSE|  2drop |
|000005b0| 20 54 48 45 4e 0d 09 4c | 4f 4f 50 20 20 3b 0d 0d | THEN..L|OOP  ;..|
|000005c0| 0d 3a 20 41 44 44 4d 53 | 47 20 20 7b 20 6d 73 67 |.: ADDMS|G  { msg|
|000005d0| 23 20 61 64 64 72 20 6c | 65 6e 20 2d 2d 20 7d 0d |# addr l|en -- }.|
|000005e0| 09 6d 73 67 23 20 67 65 | 74 73 74 72 69 6e 67 20 |.msg# ge|tstring |
|000005f0| 20 61 62 6f 72 74 22 20 | 6e 75 6d 62 65 72 20 61 | abort" |number a|
|00000600| 6c 72 65 61 64 79 20 61 | 73 73 69 67 6e 65 64 22 |lready a|ssigned"|
|00000610| 20 20 64 72 6f 70 0d 09 | 61 64 64 72 20 20 70 61 |  drop..|addr  pa|
|00000620| 64 20 31 2b 20 20 6c 65 | 6e 20 20 63 6d 6f 76 65 |d 1+  le|n  cmove|
|00000630| 0d 09 6c 65 6e 20 70 61 | 64 20 63 21 0d 09 6e 65 |..len pa|d c!..ne|
|00000640| 77 3a 20 74 65 6d 70 24 | 0d 09 70 61 64 20 20 6c |w: temp$|..pad  l|
|00000650| 65 6e 20 31 2b 20 20 70 | 75 74 3a 20 74 65 6d 70 |en 1+  p|ut: temp|
|00000660| 24 0d 09 27 74 79 70 65 | 20 53 54 52 20 20 20 6d |$..'type| STR   m|
|00000670| 73 67 23 20 20 73 65 74 | 3a 20 74 65 6d 70 52 65 |sg#  set|: tempRe|
|00000680| 73 20 20 68 61 6e 64 6c | 65 3a 20 74 65 6d 70 24 |s  handl|e: temp$|
|00000690| 20 20 70 75 74 3a 20 74 | 65 6d 70 52 65 73 0d 09 |  put: t|empRes..|
|000006a0| 30 20 30 20 20 61 64 64 | 3a 20 74 65 6d 70 52 65 |0 0  add|: tempRe|
|000006b0| 73 0d 09 24 20 32 30 20 | 20 73 65 74 41 74 74 72 |s..$ 20 | setAttr|
|000006c0| 73 3a 20 74 65 6d 70 52 | 65 73 20 20 3b 0d 0d 3a |s: tempR|es  ;..:|
|000006d0| 20 52 45 4d 4f 56 45 4d | 53 47 20 20 7b 20 6d 73 | REMOVEM|SG  { ms|
|000006e0| 67 23 20 2d 2d 20 7d 0d | 09 6d 73 67 23 20 67 65 |g# -- }.|.msg# ge|
|000006f0| 74 73 74 72 69 6e 67 20 | 20 6e 69 70 20 20 30 45 |tstring | nip  0E|
|00000700| 58 49 54 0d 09 27 74 79 | 70 65 20 53 54 52 20 20 |XIT..'ty|pe STR  |
|00000710| 20 6d 73 67 23 20 20 73 | 65 74 3a 20 74 65 6d 70 | msg#  s|et: temp|
|00000720| 52 65 73 20 20 67 65 74 | 6e 65 77 3a 20 74 65 6d |Res  get|new: tem|
|00000730| 70 52 65 73 0d 09 72 65 | 6d 6f 76 65 3a 20 74 65 |pRes..re|move: te|
|00000740| 6d 70 52 65 73 20 20 72 | 65 6c 65 61 73 65 3a 20 |mpRes  r|elease: |
|00000750| 74 65 6d 70 52 65 73 20 | 20 3b 0d 0d 0d 3a 20 47 |tempRes | ;...: G|
|00000760| 45 54 49 4e 44 53 54 52 | 20 20 7b 20 72 65 73 49 |ETINDSTR|  { resI|
|00000770| 44 20 69 64 78 20 5c 20 | 61 64 64 72 20 2d 2d 20 |D idx \ |addr -- |
|00000780| 61 64 64 72 20 6c 65 6e | 20 7d 0d 09 6f 70 65 6e |addr len| }..open|
|00000790| 4d 52 0d 09 27 74 79 70 | 65 20 53 54 52 23 20 20 |MR..'typ|e STR#  |
|000007a0| 72 65 73 49 44 20 20 67 | 65 74 52 65 73 20 20 64 |resID  g|etRes  d|
|000007b0| 75 70 20 4e 49 46 20 20 | 30 20 20 45 58 49 54 20 |up NIF  |0  EXIT |
|000007c0| 20 54 48 45 4e 0d 09 28 | 20 68 61 6e 64 6c 65 20 | THEN..(| handle |
|000007d0| 29 20 20 40 20 20 2d 3e | 20 61 64 64 72 0d 09 69 |)  @  ->| addr..i|
|000007e0| 64 78 20 20 61 64 64 72 | 20 77 40 20 20 3e 3d 20 |dx  addr| w@  >= |
|000007f0| 20 49 46 20 20 30 20 30 | 20 20 45 58 49 54 20 20 | IF  0 0|  EXIT  |
|00000800| 54 48 45 4e 0d 09 32 20 | 2b 2b 3e 20 61 64 64 72 |THEN..2 |++> addr|
|00000810| 0d 09 69 64 78 20 30 20 | 3f 44 4f 20 20 61 64 64 |..idx 0 |?DO  add|
|00000820| 72 20 63 6f 75 6e 74 20 | 2b 20 20 2d 3e 20 61 64 |r count |+  -> ad|
|00000830| 64 72 20 20 4c 4f 4f 50 | 0d 09 61 64 64 72 20 63 |dr  LOOP|..addr c|
|00000840| 6f 75 6e 74 20 20 3b 0d | 00 00 00 00 00 00 00 00 |ount  ;.|........|
|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 |........|........|
|00000880| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00000890| 00 00 00 27 00 01 00 00 | 00 00 00 00 00 00 ff ff |...'....|........|
|000008a0| ff fb 01 14 0b 41 62 6f | 75 74 20 4d 6f 70 73 c9 |.....Abo|ut Mops.|
|000008b0| 0c 7a 55 74 69 6c 6d 6f | 64 2e 74 78 74 6f 02 00 |.zUtilmo|d.txto..|
|000008c0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000008d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 b3 66 c2 74 00 00 | 00 00 00 00 01 7d 6e 61 |...f.t..|.....}na|
|00000900| 72 79 20 41 73 2e 2e 2e | 00 41 00 00 08 50 72 69 |ry As...|.A...Pri|
|00000910| 6e 74 2e 2e 2e 00 48 00 | 00 04 51 75 69 74 00 51 |nt....H.|..Quit.Q|
|00000920| 00 00 00 00 00 00 48 00 | 03 00 7d 00 c0 00 00 ce |......H.|..}.....|
|00000930| c4 00 00 7b 7b 04 45 64 | 69 74 04 55 6e 64 6f 00 |...{{.Ed|it.Undo.|
|00000940| 00 00 00 01 2d 00 00 00 | 00 03 43 75 74 00 58 00 |....-...|..Cut.X.|
|00000950| 00 04 43 6f 70 79 00 43 | 00 00 05 50 61 73 74 65 |..Copy.C|...Paste|
|00000960| 00 56 00 00 05 43 6c 65 | 61 72 00 00 00 00 00 00 |.V...Cle|ar......|
|00000970| 00 00 62 00 04 00 00 00 | 00 00 00 00 00 ff ff ff |..b.....|........|
|00000980| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 b5 |........|........|
|000009b0| 00 00 02 b5 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|000009d0| 00 3b 02 8c 43 18 21 6c | 00 00 00 1c 00 32 00 00 |.;..C.!l|.....2..|
|000009e0| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|000009f0| 02 8c 51 7c 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |..Q|.Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+