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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 50 61 74 68 73 4d | 6f 64 2e 74 78 74 00 00 |..PathsM|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 d3 00 | 00 01 7d b0 86 35 71 b0 |........|..}..5q.|
|00000060| 86 35 71 00 00 06 00 00 | 00 00 00 00 00 00 00 00 |.5q.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 82 2e 00 00 |........|........|
|00000080| 5c 20 57 65 20 63 61 6c | 6c 20 74 68 69 73 20 6d |\ We cal|l this m|
|00000090| 6f 64 75 6c 65 20 69 66 | 20 61 20 6c 69 73 74 20 |odule if| a list |
|000000a0| 6f 66 20 48 46 53 20 70 | 61 74 68 20 64 65 73 69 |of HFS p|ath desi|
|000000b0| 67 6e 61 74 6f 72 73 20 | 69 73 20 74 6f 20 62 65 |gnators |is to be|
|000000c0| 20 75 73 65 64 20 74 6f | 0d 5c 20 66 69 6e 64 20 | used to|.\ find |
|000000d0| 61 20 66 69 6c 65 2e 20 | 20 46 69 72 73 74 20 77 |a file. | First w|
|000000e0| 65 20 67 72 61 62 20 74 | 68 65 20 66 69 6c 65 20 |e grab t|he file |
|000000f0| 77 69 74 68 20 74 68 65 | 20 6c 69 73 74 0d 5c 20 |with the| list.\ |
|00000100| 6f 66 20 70 61 74 68 20 | 64 65 73 69 67 6e 61 74 |of path |designat|
|00000110| 6f 72 73 20 28 6f 6e 65 | 20 70 65 72 20 6c 69 6e |ors (one| per lin|
|00000120| 65 29 2e 20 20 46 6f 72 | 20 65 61 63 68 20 64 65 |e).  For| each de|
|00000130| 73 69 67 6e 61 74 6f 72 | 20 77 65 20 70 72 65 70 |signator| we prep|
|00000140| 65 6e 64 0d 5c 20 69 74 | 20 74 6f 20 74 68 65 20 |end.\ it| to the |
|00000150| 67 69 76 65 6e 20 66 69 | 6c 65 6e 61 6d 65 2c 20 |given fi|lename, |
|00000160| 61 6e 64 20 61 74 74 65 | 6d 70 74 20 74 6f 20 6f |and atte|mpt to o|
|00000170| 70 65 6e 20 74 68 65 20 | 66 69 6c 65 2e 20 20 57 |pen the |file.  W|
|00000180| 65 20 6b 65 65 70 0d 5c | 20 67 6f 69 6e 67 20 75 |e keep.\| going u|
|00000190| 6e 74 69 6c 20 65 69 74 | 68 65 72 20 74 68 65 20 |ntil eit|her the |
|000001a0| 6f 70 65 6e 20 73 75 63 | 63 65 65 64 73 20 6f 72 |open suc|ceeds or|
|000001b0| 20 77 65 20 72 75 6e 20 | 6f 75 74 20 6f 66 20 70 | we run |out of p|
|000001c0| 61 74 68 20 64 65 73 69 | 67 6e 61 74 6f 72 73 2e |ath desi|gnators.|
|000001d0| 0d 5c 20 49 66 20 74 68 | 65 20 6f 70 65 6e 20 73 |.\ If th|e open s|
|000001e0| 75 63 63 65 65 64 73 20 | 77 65 20 6c 65 61 76 65 |ucceeds |we leave|
|000001f0| 20 74 68 65 20 6e 61 6d | 65 20 69 6e 20 74 68 65 | the nam|e in the|
|00000200| 20 66 63 62 20 73 65 74 | 20 74 6f 20 74 68 65 20 | fcb set| to the |
|00000210| 66 75 6c 6c 0d 5c 20 70 | 61 74 68 20 6e 61 6d 65 |full.\ p|ath name|
|00000220| 2e 20 20 49 66 20 74 68 | 65 20 6f 70 65 6e 20 66 |.  If th|e open f|
|00000230| 61 69 6c 73 20 77 65 20 | 72 65 73 74 6f 72 65 20 |ails we |restore |
|00000240| 74 68 65 20 6e 61 6d 65 | 20 74 6f 20 77 68 61 74 |the name| to what|
|00000250| 20 69 74 20 77 61 73 2e | 0d 0d 6f 62 6a 50 74 72 | it was.|..objPtr|
|00000260| 09 09 50 41 54 48 53 5f | 46 09 63 6c 61 73 73 5f |..PATHS_|F.class_|
|00000270| 69 73 20 20 66 69 6c 65 | 0d 6f 62 6a 48 61 6e 64 |is  file|.objHand|
|00000280| 6c 65 09 50 41 54 48 53 | 5f 48 44 4c 0d 0d 73 74 |le.PATHS|_HDL..st|
|00000290| 72 69 6e 67 09 09 4e 41 | 4d 45 0d 73 74 72 69 6e |ring..NA|ME.strin|
|000002a0| 67 09 09 46 55 4c 4c 4e | 41 4d 45 0d 73 74 72 69 |g..FULLN|AME.stri|
|000002b0| 6e 67 09 09 50 44 53 0d | 0d 6c 6f 63 61 6c 09 4f |ng..PDS.|.local.O|
|000002c0| 57 50 20 20 7b 20 66 63 | 62 20 6d 6f 64 65 20 5c |WP  { fc|b mode \|
|000002d0| 20 72 65 74 3f 20 2d 2d | 20 72 63 20 7d 0d 0d 3a | ret? --| rc }..:|
|000002e0| 20 4f 50 45 4e 4c 4f 4f | 50 0d 09 42 45 47 49 4e | OPENLOO|P..BEGIN|
|000002f0| 20 20 09 09 09 5c 20 4c | 6f 6f 70 20 6f 76 65 72 |  ...\ L|oop over|
|00000300| 20 70 61 74 68 20 64 65 | 73 69 67 6e 61 74 6f 72 | path de|signator|
|00000310| 73 0d 09 09 6c 65 6e 3a | 20 70 64 73 0d 09 09 4e |s...len:| pds...N|
|00000320| 49 46 09 09 09 09 09 09 | 09 09 09 09 5c 20 4e 6f |IF......|....\ No|
|00000330| 74 20 66 6f 75 6e 64 0d | 09 09 09 61 6c 6c 3a 20 |t found.|...all: |
|00000340| 6e 61 6d 65 20 20 66 63 | 62 20 6e 61 6d 65 3a 20 |name  fc|b name: |
|00000350| 66 69 6c 65 09 09 09 5c | 20 52 65 73 74 6f 72 65 |file...\| Restore|
|00000360| 20 6f 72 69 67 20 6e 61 | 6d 65 0d 09 09 09 46 4e | orig na|me....FN|
|00000370| 46 20 20 45 58 49 54 0d | 09 09 54 48 45 4e 0d 09 |F  EXIT.|..THEN..|
|00000380| 09 52 45 54 20 20 63 68 | 73 65 61 72 63 68 3a 20 |.RET  ch|search: |
|00000390| 70 64 73 20 20 2d 3e 20 | 72 65 74 3f 0d 09 09 70 |pds  -> |ret?...p|
|000003a0| 64 73 20 2d 3e 3a 20 66 | 75 6c 6c 4e 61 6d 65 20 |ds ->: f|ullName |
|000003b0| 20 6e 61 6d 65 20 20 24 | 61 64 64 3a 20 66 75 6c | name  $|add: ful|
|000003c0| 6c 4e 61 6d 65 0d 09 09 | 61 6c 6c 3a 20 66 75 6c |lName...|all: ful|
|000003d0| 6c 4e 61 6d 65 20 20 66 | 63 62 20 6e 61 6d 65 3a |lName  f|cb name:|
|000003e0| 20 63 6c 61 73 73 5f 61 | 73 3e 20 66 69 6c 65 0d | class_a|s> file.|
|000003f0| 09 09 66 63 62 20 6f 70 | 65 6e 52 65 61 64 4f 6e |..fcb op|enReadOn|
|00000400| 6c 79 3a 20 63 6c 61 73 | 73 5f 61 73 3e 20 66 69 |ly: clas|s_as> fi|
|00000410| 6c 65 20 20 4e 49 46 20 | 30 20 20 45 58 49 54 20 |le  NIF |0  EXIT |
|00000420| 20 54 48 45 4e 09 09 5c | 20 46 6f 75 6e 64 0d 09 | THEN..\| Found..|
|00000430| 09 73 74 65 70 3a 20 70 | 64 73 20 20 72 65 74 3f |.step: p|ds  ret?|
|00000440| 20 6e 65 67 61 74 65 20 | 73 6b 69 70 3a 20 70 64 | negate |skip: pd|
|00000450| 73 0d 09 41 47 41 49 4e | 20 20 3b 0d 0d 0d 3a 6c |s..AGAIN|  ;...:l|
|00000460| 6f 63 20 4f 57 50 0d 09 | 72 65 73 65 74 3a 20 70 |oc OWP..|reset: p|
|00000470| 64 73 0d 09 6c 65 6e 3a | 20 70 64 73 20 20 4e 49 |ds..len:| pds  NI|
|00000480| 46 20 20 46 4e 46 20 20 | 45 58 49 54 20 20 54 48 |F  FNF  |EXIT  TH|
|00000490| 45 4e 0d 09 09 09 5c 20 | 49 66 20 6e 6f 20 70 61 |EN....\ |If no pa|
|000004a0| 74 68 73 2c 20 77 65 20 | 72 65 74 75 72 6e 20 61 |ths, we |return a|
|000004b0| 20 22 66 69 6c 65 20 6e | 6f 74 20 66 6f 75 6e 64 | "file n|ot found|
|000004c0| 22 20 65 72 72 6f 72 2e | 0d 09 66 61 6c 73 65 20 |" error.|..false |
|000004d0| 2d 3e 20 75 73 65 5f 70 | 61 74 68 73 3f 09 09 5c |-> use_p|aths?..\|
|000004e0| 20 73 6f 20 77 65 20 64 | 6f 6e 27 74 20 67 65 74 | so we d|on't get|
|000004f0| 20 72 65 63 75 72 73 69 | 76 65 6c 79 20 65 6e 74 | recursi|vely ent|
|00000500| 65 72 65 64 21 0d 09 67 | 65 74 4e 61 6d 65 3a 20 |ered!..g|etName: |
|00000510| 5b 20 66 63 62 20 5d 0d | 09 70 75 74 3a 20 6e 61 |[ fcb ].|.put: na|
|00000520| 6d 65 20 20 6e 65 77 3a | 20 66 75 6c 6c 4e 61 6d |me  new:| fullNam|
|00000530| 65 0d 09 6f 70 65 6e 4c | 6f 6f 70 0d 09 72 65 6c |e..openL|oop..rel|
|00000540| 65 61 73 65 3a 20 6e 61 | 6d 65 20 20 72 65 6c 65 |ease: na|me  rele|
|00000550| 61 73 65 3a 20 66 75 6c | 6c 4e 61 6d 65 0d 09 74 |ase: ful|lName..t|
|00000560| 72 75 65 20 2d 3e 20 75 | 73 65 5f 70 61 74 68 73 |rue -> u|se_paths|
|00000570| 3f 0d 3b 6c 6f 63 0d 0d | 0d 3a 20 47 45 54 50 41 |?.;loc..|.: GETPA|
|00000580| 54 48 53 09 5c 20 28 20 | 61 64 64 72 20 6c 65 6e |THS.\ ( |addr len|
|00000590| 20 2d 2d 20 29 0d 09 74 | 72 75 65 20 2d 3e 20 75 | -- )..t|rue -> u|
|000005a0| 73 65 5f 70 61 74 68 73 | 3f 09 09 5c 20 54 68 69 |se_paths|?..\ Thi|
|000005b0| 73 20 62 65 63 6f 6d 65 | 73 20 74 68 65 20 64 65 |s become|s the de|
|000005c0| 66 61 75 6c 74 20 6e 6f | 77 0d 09 09 09 09 09 5c |fault no|w......\|
|000005d0| 20 20 74 68 61 74 20 47 | 45 54 50 41 54 48 53 20 |  that G|ETPATHS |
|000005e0| 68 61 73 20 62 65 65 6e | 20 63 61 6c 6c 65 64 0d |has been| called.|
|000005f0| 09 6b 65 65 70 3a 20 70 | 61 74 68 73 4d 6f 64 0d |.keep: p|athsMod.|
|00000600| 09 6e 69 6c 3f 3a 20 70 | 64 73 20 20 49 46 20 20 |.nil?: p|ds  IF  |
|00000610| 6e 65 77 3a 20 70 64 73 | 20 20 45 4c 53 45 20 20 |new: pds|  ELSE  |
|00000620| 63 6c 65 61 72 3a 20 70 | 64 73 20 20 54 48 45 4e |clear: p|ds  THEN|
|00000630| 0d 09 72 65 6c 65 61 73 | 65 3a 20 70 61 74 68 73 |..releas|e: paths|
|00000640| 5f 68 64 6c 20 20 5b 27 | 5d 20 66 69 6c 65 20 20 |_hdl  ['|] file  |
|00000650| 6e 65 77 4f 62 6a 3a 20 | 70 61 74 68 73 5f 68 64 |newObj: |paths_hd|
|00000660| 6c 0d 09 6f 62 6a 3a 20 | 70 61 74 68 73 5f 68 64 |l..obj: |paths_hd|
|00000670| 6c 20 20 2d 3e 20 70 61 | 74 68 73 5f 66 0d 09 6e |l  -> pa|ths_f..n|
|00000680| 61 6d 65 3a 20 70 61 74 | 68 73 5f 66 20 20 6f 70 |ame: pat|hs_f  op|
|00000690| 65 6e 52 65 61 64 4f 6e | 6c 79 3a 20 70 61 74 68 |enReadOn|ly: path|
|000006a0| 73 5f 66 0d 09 49 46 0d | 09 09 6d 73 67 23 20 31 |s_f..IF.|..msg# 1|
|000006b0| 33 33 09 09 5c 20 57 61 | 72 6e 69 6e 67 20 2d 20 |33..\ Wa|rning - |
|000006c0| 63 6f 75 6c 64 6e 27 74 | 20 66 69 6e 64 20 70 61 |couldn't| find pa|
|000006d0| 74 68 73 20 66 69 6c 65 | 0d 09 09 72 65 6c 65 61 |ths file|...relea|
|000006e0| 73 65 3a 20 70 61 74 68 | 73 5f 68 64 6c 20 20 6e |se: path|s_hdl  n|
|000006f0| 69 6c 50 20 2d 3e 20 70 | 61 74 68 73 5f 66 20 20 |ilP -> p|aths_f  |
|00000700| 45 58 49 54 0d 09 54 48 | 45 4e 0d 09 73 69 7a 65 |EXIT..TH|EN..size|
|00000710| 3a 20 70 61 74 68 73 5f | 66 20 20 73 65 74 73 69 |: paths_|f  setsi|
|00000720| 7a 65 3a 20 70 64 73 0d | 09 61 6c 6c 3a 20 70 64 |ze: pds.|.all: pd|
|00000730| 73 20 20 72 65 61 64 3a | 20 70 61 74 68 73 5f 66 |s  read:| paths_f|
|00000740| 20 20 64 72 6f 70 0d 09 | 63 6c 6f 73 65 3a 20 70 |  drop..|close: p|
|00000750| 61 74 68 73 5f 66 20 20 | 64 72 6f 70 20 20 72 65 |aths_f  |drop  re|
|00000760| 6c 65 61 73 65 4f 62 6a | 3a 20 70 61 74 68 73 5f |leaseObj|: paths_|
|00000770| 68 64 6c 20 20 3b 0d 0d | 0d 3a 20 2e 50 41 54 48 |hdl  ;..|.: .PATH|
|00000780| 53 20 20 7b 20 5c 20 72 | 65 74 3f 20 2d 2d 20 7d |S  { \ r|et? -- }|
|00000790| 0d 09 6e 69 6c 3f 3a 20 | 70 64 73 20 20 3f 45 58 |..nil?: |pds  ?EX|
|000007a0| 49 54 0d 09 72 65 73 65 | 74 3a 20 70 64 73 0d 09 |IT..rese|t: pds..|
|000007b0| 42 45 47 49 4e 0d 09 09 | 6c 65 6e 3a 20 70 64 73 |BEGIN...|len: pds|
|000007c0| 20 20 30 45 58 49 54 0d | 09 09 52 45 54 20 20 63 |  0EXIT.|..RET  c|
|000007d0| 68 73 65 61 72 63 68 3a | 20 70 64 73 20 20 2d 3e |hsearch:| pds  ->|
|000007e0| 20 72 65 74 3f 0d 09 09 | 67 65 74 3a 20 70 64 73 | ret?...|get: pds|
|000007f0| 20 20 74 79 70 65 20 20 | 63 72 0d 09 09 73 74 65 |  type  |cr...ste|
|00000800| 70 3a 20 70 64 73 20 20 | 72 65 74 3f 20 6e 65 67 |p: pds  |ret? neg|
|00000810| 61 74 65 20 73 6b 69 70 | 3a 20 70 64 73 0d 09 41 |ate skip|: pds..A|
|00000820| 47 41 49 4e 20 20 3b 0d | 0d 0d 3a 20 52 45 4c 09 |GAIN  ;.|..: REL.|
|00000830| 72 65 6c 65 61 73 65 3a | 20 70 64 73 20 20 3b 0d |release:| pds  ;.|
|00000840| 0d 27 20 72 65 6c 20 20 | 73 65 74 52 65 6c 65 61 |.' rel  |setRelea|
|00000850| 73 65 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |se......|........|
|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| 6f 6c 62 6f 78 20 63 6c | 61 73 73 65 73 73 00 00 |olbox cl|assess..|
|000008a0| 00 00 00 00 00 84 00 00 | 0c 00 01 d9 60 00 00 00 |........|....`...|
|000008b0| 0c 50 61 74 68 73 4d 6f | 64 2e 74 78 74 6f 02 00 |.PathsMo|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 7f 00 00 | 00 00 00 00 01 7d 36 00 |...f....|.....}6.|
|00000900| 00 00 12 ff fc 00 00 00 | 02 07 47 65 6e 65 72 61 |........|..Genera|
|00000910| 6c 72 63 65 72 63 65 65 | 6d 73 00 00 00 00 00 00 |lrcercee|ms......|
|00000920| 00 84 00 00 0c 00 01 d9 | 60 ff ff 00 00 00 00 00 |........|`.......|
|00000930| 00 00 00 60 00 01 00 ff | 00 00 00 00 36 00 00 00 |...`....|....6...|
|00000940| 00 00 2a 00 04 0a 4d 63 | 41 73 73 65 6d 62 6c 79 |..*...Mc|Assembly|
|00000950| 0d 4e 69 73 75 73 a8 20 | 33 2e 30 36 42 72 04 4d |.Nisus. |3.06Br.M|
|00000960| 6f 70 73 09 00 56 61 6e | 74 61 67 65 aa 00 00 01 |ops..Van|tage....|
|00000970| f0 00 30 ff fc 00 00 01 | ef 0d 4d 6f 64 75 6c 65 |..0.....|..Module|
|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 03 f2 |........|........|
|000009b0| 00 00 03 f2 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 48 d1 f8 24 ba | 00 00 00 1c 00 32 00 00 |.;.H..$.|.....2..|
|000009e0| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|000009f0| 02 48 d9 d0 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.H...Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+