home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1996-07-30 | 10.5 KB | [TEXT/CWIE] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: SpaceAliens.p
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| ZX81 Sinclair BASIC (image/sinclairBASIC)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Applause Picture (image/applausePicture)
| ext
| Unsupported |
| 1%
| dexvert
| bsdiff patch (other/bsdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| imgdiff patch (other/imgdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| MATLAB p-code (other/matlabPCode)
| ext
| Unsupported |
| 1%
| dexvert
| WSUS Patch Storage File (other/wsusPatchStorageFile)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Tue Jul 30 10:33:37 1996, modified Tue Jul 30 10:33:37 1996, creator 'CWIE', type ASCII, 9695 bytes "SpaceAliens.p" , at 0x265f 794 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [CWIE] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 70 61 63 65 41 | 6c 69 65 6e 73 2e 70 00 |..SpaceA|liens.p.|
|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 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 25 df 00 | 00 03 1a ae 23 cd c1 ae |.....%..|....#...|
|00000060| 23 cd c1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |#.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 39 a6 00 00 |........|....9...|
|00000080| 70 72 6f 67 72 61 6d 20 | 53 70 61 63 65 41 6c 69 |program |SpaceAli|
|00000090| 65 6e 73 3b 0d 09 28 2a | 20 53 70 61 63 65 20 41 |ens;..(*| Space A|
|000000a0| 6c 69 65 6e 73 20 41 74 | 65 20 4d 79 20 49 63 6f |liens At|e My Ico|
|000000b0| 6e 73 20 2a 29 0d 09 28 | 2a 20 41 20 64 72 61 67 |ns *)..(|* A drag|
|000000c0| 20 61 6e 64 20 64 72 6f | 70 20 75 74 69 6c 69 74 | and dro|p utilit|
|000000d0| 79 20 74 6f 20 66 69 78 | 20 74 68 65 20 74 79 70 |y to fix| the typ|
|000000e0| 65 20 61 6e 64 20 2a 29 | 0d 09 28 2a 20 63 72 65 |e and *)|..(* cre|
|000000f0| 61 74 6f 72 20 6f 66 20 | 61 6e 79 20 64 72 6f 70 |ator of |any drop|
|00000100| 70 65 64 20 6f 6e 20 66 | 69 6c 65 20 62 61 73 65 |ped on f|ile base|
|00000110| 64 20 6f 6e 20 69 74 73 | 20 2a 29 0d 09 28 2a 20 |d on its| *)..(* |
|00000120| 65 78 74 65 6e 73 69 6f | 6e 20 61 6e 64 20 74 68 |extensio|n and th|
|00000130| 65 20 64 61 74 61 62 61 | 73 65 20 6f 66 20 65 78 |e databa|se of ex|
|00000140| 74 65 6e 73 69 6f 6e 20 | 6d 61 70 70 69 6e 67 73 |tension |mappings|
|00000150| 20 2a 29 0d 09 28 2a 20 | 70 72 6f 76 69 64 65 64 | *)..(* |provided|
|00000160| 20 62 79 20 49 6e 74 65 | 72 6e 65 74 20 43 6f 6e | by Inte|rnet Con|
|00000170| 66 69 67 2e 20 2a 29 0d | 0d 09 75 73 65 73 0d 09 |fig. *).|..uses..|
|00000180| 09 28 2a 20 42 61 73 69 | 63 20 73 79 73 74 65 6d |.(* Basi|c system|
|00000190| 20 75 6e 69 74 73 2e 20 | 20 4d 6f 73 74 20 6f 66 | units. | Most of|
|000001a0| 20 74 68 65 73 65 20 61 | 72 65 20 2a 29 0d 09 09 | these a|re *)...|
|000001b0| 28 2a 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |(* autom|atically|
|000001c0| 20 69 6e 63 6c 75 64 65 | 64 20 75 6e 64 65 72 20 | include|d under |
|000001d0| 54 68 69 6e 6b 2c 20 62 | 75 74 20 2a 29 0d 09 09 |Think, b|ut *)...|
|000001e0| 28 2a 20 74 68 65 79 20 | 6e 65 65 64 20 74 6f 20 |(* they |need to |
|000001f0| 62 65 20 65 78 70 6c 69 | 63 69 74 6c 74 20 73 74 |be expli|citlt st|
|00000200| 61 74 65 64 20 77 69 74 | 68 20 43 6f 64 65 57 61 |ated wit|h CodeWa|
|00000210| 72 72 69 6f 72 20 2a 29 | 0d 09 09 52 65 73 6f 75 |rrior *)|...Resou|
|00000220| 72 63 65 73 2c 20 46 6f | 6e 74 73 2c 20 57 69 6e |rces, Fo|nts, Win|
|00000230| 64 6f 77 73 2c 20 51 75 | 69 63 6b 44 72 61 77 2c |dows, Qu|ickDraw,|
|00000240| 20 4d 65 6e 75 73 2c 20 | 54 65 78 74 45 64 69 74 | Menus, |TextEdit|
|00000250| 2c 20 44 69 61 6c 6f 67 | 73 2c 20 4d 65 6d 6f 72 |, Dialog|s, Memor|
|00000260| 79 2c 20 54 79 70 65 73 | 2c 0d 09 09 45 72 72 6f |y, Types|,...Erro|
|00000270| 72 73 2c 20 46 69 6c 65 | 73 2c 20 46 69 6e 64 65 |rs, File|s, Finde|
|00000280| 72 2c 20 54 65 78 74 55 | 74 69 6c 73 2c 20 4f 53 |r, TextU|tils, OS|
|00000290| 55 74 69 6c 73 2c 20 50 | 72 6f 63 65 73 73 65 73 |Utils, P|rocesses|
|000002a0| 2c 20 47 65 73 74 61 6c | 74 45 71 75 2c 20 44 69 |, Gestal|tEqu, Di|
|000002b0| 61 6c 6f 67 73 2c 0d 09 | 09 0d 09 09 28 2a 20 73 |alogs,..|....(* s|
|000002c0| 74 61 6e 64 61 72 64 20 | 73 79 73 74 65 6d 20 75 |tandard |system u|
|000002d0| 6e 69 74 73 20 6e 65 65 | 64 65 64 20 74 6f 20 64 |nits nee|ded to d|
|000002e0| 6f 20 41 70 70 6c 65 45 | 76 65 6e 74 73 20 2a 29 |o AppleE|vents *)|
|000002f0| 0d 09 09 28 2a 20 72 65 | 6d 65 6d 62 65 72 20 74 |...(* re|member t|
|00000300| 68 61 74 20 54 68 69 6e | 6b 20 50 61 73 63 61 6c |hat Thin|k Pascal|
|00000310| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 75 | automat|ically u|
|00000320| 73 65 73 20 2a 29 0d 09 | 09 28 2a 20 6d 6f 73 74 |ses *)..|.(* most|
|00000330| 20 6f 66 20 74 68 65 20 | 62 61 73 65 20 6f 70 65 | of the |base ope|
|00000340| 72 61 74 69 6e 67 20 73 | 79 73 74 65 6d 20 2a 29 |rating s|ystem *)|
|00000350| 0d 09 09 45 50 50 43 2c | 20 41 70 70 6c 65 45 76 |...EPPC,| AppleEv|
|00000360| 65 6e 74 73 2c 20 45 76 | 65 6e 74 73 2c 0d 0d 09 |ents, Ev|ents,...|
|00000370| 09 28 2a 20 73 74 61 6e | 64 61 72 64 20 49 43 20 |.(* stan|dard IC |
|00000380| 75 6e 69 74 73 20 2a 29 | 0d 09 09 49 43 54 79 70 |units *)|...ICTyp|
|00000390| 65 73 2c 20 49 43 41 50 | 49 2c 20 49 43 4b 65 79 |es, ICAP|I, ICKey|
|000003a0| 73 3b 0d 0d 28 2a 20 2a | 2a 2a 2a 2a 20 53 74 61 |s;..(* *|**** Sta|
|000003b0| 6e 64 61 72 64 20 53 75 | 62 72 6f 75 74 69 6e 65 |ndard Su|broutine|
|000003c0| 73 20 2a 2a 2a 2a 2a 20 | 2a 29 0d 0d 09 66 75 6e |s ***** |*)...fun|
|000003d0| 63 74 69 6f 6e 20 49 43 | 47 65 74 50 72 65 66 53 |ction IC|GetPrefS|
|000003e0| 74 72 20 28 69 6e 73 74 | 3a 20 49 43 49 6e 73 74 |tr (inst|: ICInst|
|000003f0| 61 6e 63 65 3b 20 6b 65 | 79 3a 20 53 74 72 32 35 |ance; ke|y: Str25|
|00000400| 35 3b 20 76 61 72 20 61 | 74 74 72 3a 20 49 43 41 |5; var a|ttr: ICA|
|00000410| 74 74 72 3b 20 76 61 72 | 20 73 74 72 3a 20 53 74 |ttr; var| str: St|
|00000420| 72 32 35 35 29 3a 20 49 | 43 45 72 72 6f 72 3b 0d |r255): I|CError;.|
|00000430| 09 09 76 61 72 0d 09 09 | 09 65 72 72 3a 20 49 43 |..var...|.err: IC|
|00000440| 45 72 72 6f 72 3b 0d 09 | 09 09 73 69 7a 65 3a 20 |Error;..|..size: |
|00000450| 6c 6f 6e 67 69 6e 74 3b | 0d 09 62 65 67 69 6e 0d |longint;|..begin.|
|00000460| 09 09 73 69 7a 65 20 3a | 3d 20 32 35 36 3b 0d 09 |..size :|= 256;..|
|00000470| 09 65 72 72 20 3a 3d 20 | 49 43 47 65 74 50 72 65 |.err := |ICGetPre|
|00000480| 66 28 69 6e 73 74 2c 20 | 6b 65 79 2c 20 61 74 74 |f(inst, |key, att|
|00000490| 72 2c 20 40 73 74 72 2c | 20 73 69 7a 65 29 3b 0d |r, @str,| size);.|
|000004a0| 09 09 69 66 20 65 72 72 | 20 3c 3e 20 6e 6f 45 72 |..if err| <> noEr|
|000004b0| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|000004c0| 73 74 72 20 3a 3d 20 27 | 27 3b 0d 09 09 65 6e 64 |str := '|';...end|
|000004d0| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 49 43 47 |; (* if |*)...ICG|
|000004e0| 65 74 50 72 65 66 53 74 | 72 20 3a 3d 20 65 72 72 |etPrefSt|r := err|
|000004f0| 3b 0d 09 65 6e 64 3b 20 | 28 2a 20 49 43 47 65 74 |;..end; |(* ICGet|
|00000500| 50 72 65 66 53 74 72 20 | 2a 29 0d 0d 09 66 75 6e |PrefStr |*)...fun|
|00000510| 63 74 69 6f 6e 20 47 6f | 74 52 65 71 75 69 72 65 |ction Go|tRequire|
|00000520| 64 50 61 72 61 6d 73 20 | 28 74 68 65 41 70 70 6c |dParams |(theAppl|
|00000530| 65 45 76 65 6e 74 3a 20 | 41 70 70 6c 65 45 76 65 |eEvent: |AppleEve|
|00000540| 6e 74 29 3a 20 49 43 45 | 72 72 6f 72 3b 0d 09 09 |nt): ICE|rror;...|
|00000550| 28 2a 20 73 74 61 6e 64 | 61 72 64 20 41 70 70 6c |(* stand|ard Appl|
|00000560| 65 45 76 65 6e 74 20 72 | 6f 75 74 69 6e 65 20 63 |eEvent r|outine c|
|00000570| 6f 70 69 65 64 20 6f 75 | 74 20 6f 66 20 4e 49 4d |opied ou|t of NIM|
|00000580| 3a 49 41 43 20 2a 29 0d | 09 09 76 61 72 0d 09 09 |:IAC *).|..var...|
|00000590| 09 74 79 70 65 43 6f 64 | 65 3a 20 44 65 73 63 54 |.typeCod|e: DescT|
|000005a0| 79 70 65 3b 0d 09 09 09 | 61 63 74 75 61 6c 53 69 |ype;....|actualSi|
|000005b0| 7a 65 3a 20 53 69 7a 65 | 3b 0d 09 09 09 65 72 72 |ze: Size|;....err|
|000005c0| 3a 20 49 43 45 72 72 6f | 72 3b 0d 09 62 65 67 69 |: ICErro|r;..begi|
|000005d0| 6e 0d 09 09 65 72 72 20 | 3a 3d 20 41 45 47 65 74 |n...err |:= AEGet|
|000005e0| 41 74 74 72 69 62 75 74 | 65 50 74 72 28 74 68 65 |Attribut|ePtr(the|
|000005f0| 41 70 70 6c 65 45 76 65 | 6e 74 2c 20 6b 65 79 4d |AppleEve|nt, keyM|
|00000600| 69 73 73 65 64 4b 65 79 | 77 6f 72 64 41 74 74 72 |issedKey|wordAttr|
|00000610| 2c 20 74 79 70 65 57 69 | 6c 64 43 61 72 64 2c 20 |, typeWi|ldCard, |
|00000620| 74 79 70 65 43 6f 64 65 | 2c 20 6e 69 6c 2c 20 30 |typeCode|, nil, 0|
|00000630| 2c 20 61 63 74 75 61 6c | 53 69 7a 65 29 3b 0d 09 |, actual|Size);..|
|00000640| 09 69 66 20 65 72 72 20 | 3d 20 65 72 72 41 45 44 |.if err |= errAED|
|00000650| 65 73 63 4e 6f 74 46 6f | 75 6e 64 20 74 68 65 6e |escNotFo|und then|
|00000660| 20 62 65 67 69 6e 0d 09 | 09 09 47 6f 74 52 65 71 | begin..|..GotReq|
|00000670| 75 69 72 65 64 50 61 72 | 61 6d 73 20 3a 3d 20 6e |uiredPar|ams := n|
|00000680| 6f 45 72 72 3b 0d 09 09 | 65 6e 64 0d 09 09 65 6c |oErr;...|end...el|
|00000690| 73 65 20 69 66 20 65 72 | 72 20 3d 20 6e 6f 45 72 |se if er|r = noEr|
|000006a0| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|000006b0| 47 6f 74 52 65 71 75 69 | 72 65 64 50 61 72 61 6d |GotRequi|redParam|
|000006c0| 73 20 3a 3d 20 65 72 72 | 41 45 45 76 65 6e 74 4e |s := err|AEEventN|
|000006d0| 6f 74 48 61 6e 64 6c 65 | 64 3b 0d 09 09 65 6e 64 |otHandle|d;...end|
|000006e0| 0d 09 09 65 6c 73 65 20 | 62 65 67 69 6e 0d 09 09 |...else |begin...|
|000006f0| 09 47 6f 74 52 65 71 75 | 69 72 65 64 50 61 72 61 |.GotRequ|iredPara|
|00000700| 6d 73 20 3a 3d 20 65 72 | 72 3b 0d 09 09 65 6e 64 |ms := er|r;...end|
|00000710| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 65 6e 64 3b |; (* if |*)..end;|
|00000720| 20 28 2a 20 47 6f 74 52 | 65 71 75 69 72 65 64 50 | (* GotR|equiredP|
|00000730| 61 72 61 6d 73 20 2a 29 | 0d 0d 28 2a 20 2a 2a 2a |arams *)|..(* ***|
|00000740| 2a 2a 20 47 6c 6f 62 61 | 6c 20 44 65 63 6c 61 72 |** Globa|l Declar|
|00000750| 61 74 69 6f 6e 73 20 2a | 2a 2a 2a 2a 20 2a 29 0d |ations *|**** *).|
|00000760| 0d 09 63 6f 6e 73 74 0d | 09 09 6d 79 5f 63 72 65 |..const.|..my_cre|
|00000770| 61 74 6f 72 20 3d 20 27 | 53 41 38 49 27 3b 0d 09 |ator = '|SA8I';..|
|00000780| 09 09 09 09 28 2a 20 74 | 68 65 20 61 70 70 6c 69 |....(* t|he appli|
|00000790| 63 61 74 69 6f 6e 20 73 | 69 67 6e 61 74 75 72 65 |cation s|ignature|
|000007a0| 20 2a 29 0d 09 76 61 72 | 0d 09 09 71 75 69 74 5f | *)..var|...quit_|
|000007b0| 6e 6f 77 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |now: boo|lean;...|
|000007c0| 09 09 09 28 2a 20 73 65 | 74 20 74 6f 20 74 72 75 |...(* se|t to tru|
|000007d0| 65 20 77 68 65 6e 20 79 | 6f 75 20 77 61 6e 74 20 |e when y|ou want |
|000007e0| 6d 61 69 6e 20 6c 6f 6f | 70 20 74 6f 20 71 75 69 |main loo|p to qui|
|000007f0| 74 20 2a 29 0d 09 09 69 | 6e 73 74 61 6e 63 65 3a |t *)...i|nstance:|
|00000800| 20 49 43 49 6e 73 74 61 | 6e 63 65 3b 0d 09 09 09 | ICInsta|nce;....|
|00000810| 09 09 28 2a 20 67 6c 6f | 62 61 6c 20 63 6f 6e 6e |..(* glo|bal conn|
|00000820| 65 63 74 69 6f 6e 20 74 | 6f 20 49 43 20 2a 29 0d |ection t|o IC *).|
|00000830| 09 09 6d 61 70 70 69 6e | 67 73 3a 20 48 61 6e 64 |..mappin|gs: Hand|
|00000840| 6c 65 3b 0d 09 09 09 09 | 09 28 2a 20 74 68 65 20 |le;.....|.(* the |
|00000850| 6d 61 70 70 69 6e 67 20 | 70 72 65 66 65 72 65 6e |mapping |preferen|
|00000860| 63 65 20 61 73 20 72 65 | 74 75 72 6e 65 64 20 62 |ce as re|turned b|
|00000870| 79 20 49 43 20 2a 29 0d | 0d 28 2a 20 2a 2a 2a 2a |y IC *).|.(* ****|
|00000880| 2a 20 44 6f 20 54 68 65 | 20 48 61 72 64 20 53 74 |* Do The| Hard St|
|00000890| 75 66 66 20 2a 2a 2a 2a | 2a 20 2a 29 0d 0d 09 66 |uff ****|* *)...f|
|000008a0| 75 6e 63 74 69 6f 6e 20 | 50 72 6f 63 65 73 73 44 |unction |ProcessD|
|000008b0| 6f 63 75 6d 65 6e 74 20 | 28 66 73 73 3a 20 46 53 |ocument |(fss: FS|
|000008c0| 53 70 65 63 29 3a 20 49 | 43 45 72 72 6f 72 3b 0d |Spec): I|CError;.|
|000008d0| 09 09 28 2a 20 74 68 69 | 73 20 69 73 20 74 68 65 |..(* thi|s is the|
|000008e0| 20 63 6f 72 65 20 6f 66 | 20 74 68 65 20 70 72 6f | core of| the pro|
|000008f0| 67 72 61 6d 20 2a 29 0d | 09 09 28 2a 20 74 68 65 |gram *).|..(* the|
|00000900| 20 66 73 73 20 70 61 72 | 61 6d 65 74 65 72 20 69 | fss par|ameter i|
|00000910| 73 20 61 20 66 69 6c 65 | 20 77 68 6f 73 65 20 65 |s a file| whose e|
|00000920| 78 74 65 6e 73 69 6f 6e | 20 2a 29 0d 09 09 28 2a |xtension| *)...(*|
|00000930| 20 77 65 27 6c 6c 20 6c | 6f 6f 6b 20 75 70 20 69 | we'll l|ook up i|
|00000940| 6e 20 74 68 65 20 49 43 | 20 64 61 74 61 62 61 73 |n the IC| databas|
|00000950| 65 20 2a 29 0d 09 09 28 | 2a 20 6d 61 70 70 69 6e |e *)...(|* mappin|
|00000960| 67 73 20 67 6c 6f 62 61 | 6c 20 76 61 72 69 61 62 |gs globa|l variab|
|00000970| 6c 65 20 69 73 20 61 6c | 72 65 61 64 79 20 73 65 |le is al|ready se|
|00000980| 74 20 75 70 20 2a 29 0d | 09 09 28 2a 20 74 6f 20 |t up *).|..(* to |
|00000990| 63 6f 6e 74 61 69 6e 20 | 74 68 61 74 20 64 61 74 |contain |that dat|
|000009a0| 61 62 61 73 65 20 2a 29 | 0d 09 09 76 61 72 0d 09 |abase *)|...var..|
|000009b0| 09 09 65 72 72 3a 20 49 | 43 45 72 72 6f 72 3b 0d |..err: I|CError;.|
|000009c0| 09 09 09 63 6f 75 6e 74 | 3a 20 6c 6f 6e 67 69 6e |...count|: longin|
|000009d0| 74 3b 0d 09 09 09 09 09 | 09 28 2a 20 74 6f 74 61 |t;......|.(* tota|
|000009e0| 6c 20 6e 75 6d 62 65 72 | 20 6f 66 20 65 6e 74 72 |l number| of entr|
|000009f0| 69 65 73 20 69 6e 20 64 | 61 74 61 62 61 73 65 20 |ies in d|atabase |
|00000a00| 2a 29 0d 09 09 09 69 3a | 20 6c 6f 6e 67 69 6e 74 |*)....i:| longint|
|00000a10| 3b 0d 09 09 09 09 09 09 | 28 2a 20 69 6e 64 65 78 |;.......|(* index|
|00000a20| 65 73 20 6f 76 65 72 20 | 74 68 65 20 64 61 74 61 |es over |the data|
|00000a30| 62 61 73 65 20 65 6e 74 | 72 69 65 73 20 2a 29 0d |base ent|ries *).|
|00000a40| 09 09 09 74 68 69 73 3a | 20 49 43 4d 61 70 45 6e |...this:| ICMapEn|
|00000a50| 74 72 79 3b 0d 09 09 09 | 09 09 09 28 2a 20 61 6e |try;....|...(* an|
|00000a60| 20 75 6e 70 61 63 6b 65 | 64 20 65 6c 65 6d 65 6e | unpacke|d elemen|
|00000a70| 74 20 6f 66 20 74 68 65 | 20 2a 29 0d 09 09 09 09 |t of the| *).....|
|00000a80| 09 09 28 2a 20 6d 61 70 | 70 69 6e 67 73 20 64 61 |..(* map|pings da|
|00000a90| 74 61 62 61 73 65 2c 20 | 75 73 65 64 20 77 68 69 |tabase, |used whi|
|00000aa0| 6c 65 20 73 74 65 70 70 | 69 6e 67 20 2a 29 0d 09 |le stepp|ing *)..|
|00000ab0| 09 09 09 09 09 28 2a 20 | 74 68 72 6f 75 67 68 20 |.....(* |through |
|00000ac0| 64 61 74 61 62 61 73 65 | 20 2a 29 0d 09 09 09 65 |database| *)....e|
|00000ad0| 6e 74 72 79 3a 20 49 43 | 4d 61 70 45 6e 74 72 79 |ntry: IC|MapEntry|
|00000ae0| 3b 0d 09 09 09 09 09 09 | 28 2a 20 61 20 6d 61 70 |;.......|(* a map|
|00000af0| 70 69 6e 67 73 20 64 61 | 74 61 62 61 73 65 20 65 |pings da|tabase e|
|00000b00| 6c 65 6d 65 6e 74 20 2a | 29 0d 09 09 09 09 09 09 |lement *|).......|
|00000b10| 28 2a 20 75 73 65 64 20 | 74 6f 20 72 65 63 6f 72 |(* used |to recor|
|00000b20| 64 20 74 68 65 20 62 65 | 73 74 20 6d 61 74 63 68 |d the be|st match|
|00000b30| 20 2a 29 0d 09 09 09 6c | 6f 6e 67 65 73 74 5f 6c | *)....l|ongest_l|
|00000b40| 65 6e 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |en: inte|ger;....|
|00000b50| 09 09 09 28 2a 20 6c 6f | 6e 67 65 73 74 20 65 78 |...(* lo|ngest ex|
|00000b60| 74 65 6e 73 69 6f 6e 20 | 77 65 27 76 65 20 66 6f |tension |we've fo|
|00000b70| 75 6e 64 20 73 6f 20 66 | 61 72 20 2a 29 0d 09 09 |und so f|ar *)...|
|00000b80| 09 70 6f 73 6e 64 78 3a | 20 6c 6f 6e 67 69 6e 74 |.posndx:| longint|
|00000b90| 3b 0d 09 09 09 09 09 09 | 28 2a 20 74 68 65 20 69 |;.......|(* the i|
|00000ba0| 6e 64 65 78 20 69 6e 74 | 6f 20 74 68 65 20 6d 61 |ndex int|o the ma|
|00000bb0| 70 70 69 6e 67 73 20 64 | 61 74 61 62 61 73 65 20 |ppings d|atabase |
|00000bc0| 2a 29 0d 09 09 09 69 6e | 66 6f 3a 20 46 49 6e 66 |*)....in|fo: FInf|
|00000bd0| 6f 3b 0d 09 09 09 09 09 | 09 28 2a 20 74 65 6d 70 |o;......|.(* temp|
|00000be0| 6f 72 61 72 79 20 66 6f | 72 20 63 68 61 6e 67 69 |orary fo|r changi|
|00000bf0| 6e 67 20 74 79 70 65 20 | 61 6e 64 20 63 72 65 61 |ng type |and crea|
|00000c00| 74 6f 72 20 2a 29 0d 09 | 62 65 67 69 6e 0d 09 09 |tor *)..|begin...|
|00000c10| 28 2a 20 63 6f 75 6e 74 | 20 74 68 65 20 74 6f 74 |(* count| the tot|
|00000c20| 61 6c 20 6e 75 6d 62 65 | 72 20 6f 66 20 65 6e 74 |al numbe|r of ent|
|00000c30| 72 69 65 73 20 2a 29 0d | 09 09 65 72 72 20 3a 3d |ries *).|..err :=|
|00000c40| 20 49 43 43 6f 75 6e 74 | 4d 61 70 45 6e 74 72 69 | ICCount|MapEntri|
|00000c50| 65 73 28 69 6e 73 74 61 | 6e 63 65 2c 20 6d 61 70 |es(insta|nce, map|
|00000c60| 70 69 6e 67 73 2c 20 63 | 6f 75 6e 74 29 3b 0d 09 |pings, c|ount);..|
|00000c70| 09 69 66 20 65 72 72 20 | 3c 3e 20 6e 6f 45 72 72 |.if err |<> noErr|
|00000c80| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 63 | then be|gin....c|
|00000c90| 6f 75 6e 74 20 3a 3d 20 | 30 3b 0d 09 09 65 6e 64 |ount := |0;...end|
|00000ca0| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 28 2a 20 |; (* if |*)...(* |
|00000cb0| 6c 6f 6f 70 20 74 68 72 | 6f 75 67 68 20 74 68 65 |loop thr|ough the|
|00000cc0| 20 65 6e 74 72 69 65 73 | 20 2a 29 0d 09 09 28 2a | entries| *)...(*|
|00000cd0| 20 6c 6f 6f 6b 69 6e 67 | 20 66 6f 72 20 74 68 65 | looking| for the|
|00000ce0| 20 6c 6f 6e 67 65 73 74 | 20 6d 61 74 63 68 20 2a | longest| match *|
|00000cf0| 29 0d 09 09 6c 6f 6e 67 | 65 73 74 5f 6c 65 6e 20 |)...long|est_len |
|00000d00| 3a 3d 20 30 3b 0d 09 09 | 70 6f 73 6e 64 78 20 3a |:= 0;...|posndx :|
|00000d10| 3d 20 30 3b 0d 09 09 66 | 6f 72 20 69 20 3a 3d 20 |= 0;...f|or i := |
|00000d20| 31 20 74 6f 20 63 6f 75 | 6e 74 20 64 6f 20 62 65 |1 to cou|nt do be|
|00000d30| 67 69 6e 0d 09 09 09 28 | 2a 20 49 43 4d 47 65 74 |gin....(|* ICMGet|
|00000d40| 45 6e 74 72 79 20 67 65 | 74 73 20 74 68 65 20 65 |Entry ge|ts the e|
|00000d50| 6e 74 72 79 20 66 72 6f | 6d 20 6d 61 70 70 69 6e |ntry fro|m mappin|
|00000d60| 67 73 20 2a 29 0d 09 09 | 09 28 2a 20 74 68 61 74 |gs *)...|.(* that|
|00000d70| 20 73 74 61 72 74 73 20 | 61 74 20 70 6f 73 6e 64 | starts |at posnd|
|00000d80| 78 20 2a 29 0d 09 09 09 | 28 2a 20 61 6e 64 20 70 |x *)....|(* and p|
|00000d90| 75 74 73 20 69 74 20 69 | 6e 74 6f 20 74 68 65 20 |uts it i|nto the |
|00000da0| 65 6e 74 72 79 20 72 65 | 63 6f 72 64 20 2a 29 0d |entry re|cord *).|
|00000db0| 09 09 09 69 66 20 49 43 | 47 65 74 4d 61 70 45 6e |...if IC|GetMapEn|
|00000dc0| 74 72 79 28 69 6e 73 74 | 61 6e 63 65 2c 20 6d 61 |try(inst|ance, ma|
|00000dd0| 70 70 69 6e 67 73 2c 20 | 70 6f 73 6e 64 78 2c 20 |ppings, |posndx, |
|00000de0| 74 68 69 73 29 20 3d 20 | 6e 6f 45 72 72 20 74 68 |this) = |noErr th|
|00000df0| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 09 28 2a 20 |en begin|.....(* |
|00000e00| 69 6e 63 72 65 6d 65 6e | 74 20 70 6f 73 6e 64 78 |incremen|t posndx|
|00000e10| 20 73 6f 20 74 68 61 74 | 20 77 65 20 67 65 74 20 | so that| we get |
|00000e20| 74 68 65 20 6e 65 78 74 | 20 2a 29 0d 09 09 09 09 |the next| *).....|
|00000e30| 28 2a 20 65 6e 74 72 79 | 20 74 68 65 20 6e 65 78 |(* entry| the nex|
|00000e40| 74 20 74 69 6d 65 20 61 | 72 6f 75 6e 64 20 74 68 |t time a|round th|
|00000e50| 65 20 6c 6f 6f 70 20 2a | 29 0d 09 09 09 09 70 6f |e loop *|).....po|
|00000e60| 73 6e 64 78 20 3a 3d 20 | 70 6f 73 6e 64 78 20 2b |sndx := |posndx +|
|00000e70| 20 74 68 69 73 2e 74 6f | 74 61 6c 5f 6c 65 6e 67 | this.to|tal_leng|
|00000e80| 74 68 3b 0d 09 09 09 09 | 28 2a 20 74 68 65 20 65 |th;.....|(* the e|
|00000e90| 6e 74 72 79 20 6d 61 74 | 63 68 65 73 20 69 66 20 |ntry mat|ches if |
|00000ea0| 2a 29 0d 09 09 09 09 28 | 2a 20 6e 6f 74 5f 69 6e |*).....(|* not_in|
|00000eb0| 63 6f 6d 69 6e 67 20 66 | 6c 61 67 20 62 69 74 20 |coming f|lag bit |
|00000ec0| 69 73 20 63 6c 65 61 72 | 20 2a 29 0d 09 09 09 09 |is clear| *).....|
|00000ed0| 28 2a 20 69 74 27 73 20 | 6c 6f 6e 67 65 72 20 74 |(* it's |longer t|
|00000ee0| 68 61 6e 20 74 68 65 20 | 70 72 65 76 69 6f 75 73 |han the |previous|
|00000ef0| 20 6d 61 78 20 2a 29 0d | 09 09 09 09 28 2a 20 69 | max *).|....(* i|
|00000f00| 74 27 73 20 6c 6f 6e 67 | 65 72 20 74 68 61 6e 20 |t's long|er than |
|00000f10| 74 68 65 20 66 69 6c 65 | 20 6e 61 6d 65 20 2a 29 |the file| name *)|
|00000f20| 0d 09 09 09 09 28 2a 20 | 69 74 20 6d 61 74 63 68 |.....(* |it match|
|00000f30| 65 73 20 74 68 65 20 6c | 61 73 74 20 4e 20 63 68 |es the l|ast N ch|
|00000f40| 61 72 73 20 6f 66 20 74 | 68 65 20 66 69 6c 65 6e |ars of t|he filen|
|00000f50| 61 6d 65 20 2a 29 0d 09 | 09 09 09 69 66 20 6e 6f |ame *)..|...if no|
|00000f60| 74 20 62 74 73 74 28 74 | 68 69 73 2e 66 6c 61 67 |t btst(t|his.flag|
|00000f70| 73 2c 20 49 43 6d 61 70 | 5f 6e 6f 74 5f 69 6e 63 |s, ICmap|_not_inc|
|00000f80| 6f 6d 69 6e 67 5f 62 69 | 74 29 20 26 20 28 6c 65 |oming_bi|t) & (le|
|00000f90| 6e 67 74 68 28 74 68 69 | 73 2e 65 78 74 65 6e 73 |ngth(thi|s.extens|
|00000fa0| 69 6f 6e 29 20 3e 20 6c | 6f 6e 67 65 73 74 5f 6c |ion) > l|ongest_l|
|00000fb0| 65 6e 29 20 26 20 28 6c | 65 6e 67 74 68 28 74 68 |en) & (l|ength(th|
|00000fc0| 69 73 2e 65 78 74 65 6e | 73 69 6f 6e 29 20 3c 20 |is.exten|sion) < |
|00000fd0| 6c 65 6e 67 74 68 28 66 | 73 73 2e 6e 61 6d 65 29 |length(f|ss.name)|
|00000fe0| 29 20 26 20 28 49 55 45 | 71 75 61 6c 53 74 72 69 |) & (IUE|qualStri|
|00000ff0| 6e 67 28 63 6f 70 79 28 | 66 73 73 2e 6e 61 6d 65 |ng(copy(|fss.name|
|00001000| 2c 20 20 6c 65 6e 67 74 | 68 28 66 73 73 2e 6e 61 |, lengt|h(fss.na|
|00001010| 6d 65 29 20 2d 20 6c 65 | 6e 67 74 68 28 74 68 69 |me) - le|ngth(thi|
|00001020| 73 2e 65 78 74 65 6e 73 | 69 6f 6e 29 20 2b 31 2c |s.extens|ion) +1,|
|00001030| 20 6c 65 6e 67 74 68 28 | 66 73 73 2e 6e 61 6d 65 | length(|fss.name|
|00001040| 29 29 2c 20 74 68 69 73 | 2e 65 78 74 65 6e 73 69 |)), this|.extensi|
|00001050| 6f 6e 29 20 3d 20 30 29 | 20 74 68 65 6e 20 62 65 |on) = 0)| then be|
|00001060| 67 69 6e 0d 09 09 09 09 | 09 28 2a 20 72 65 63 6f |gin.....|.(* reco|
|00001070| 72 64 20 74 68 65 20 6e | 65 77 20 6c 6f 6e 67 65 |rd the n|ew longe|
|00001080| 73 74 20 65 6e 74 72 79 | 20 2a 29 0d 09 09 09 09 |st entry| *).....|
|00001090| 09 65 6e 74 72 79 20 3a | 3d 20 74 68 69 73 3b 0d |.entry :|= this;.|
|000010a0| 09 09 09 09 09 6c 6f 6e | 67 65 73 74 5f 6c 65 6e |.....lon|gest_len|
|000010b0| 20 3a 3d 20 6c 65 6e 67 | 74 68 28 74 68 69 73 2e | := leng|th(this.|
|000010c0| 65 78 74 65 6e 73 69 6f | 6e 29 3b 0d 09 09 09 09 |extensio|n);.....|
|000010d0| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|000010e0| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|000010f0| 09 65 6e 64 3b 20 28 2a | 20 66 6f 72 20 2a 29 0d |.end; (*| for *).|
|00001100| 0d 09 09 28 2a 20 69 66 | 20 77 65 20 66 6f 75 6e |...(* if| we foun|
|00001110| 64 20 61 6e 79 20 6d 61 | 74 63 68 65 73 20 74 68 |d any ma|tches th|
|00001120| 65 6e 20 2a 29 0d 09 09 | 28 2a 20 73 65 74 20 74 |en *)...|(* set t|
|00001130| 68 65 20 66 69 6c 65 20 | 74 79 70 65 20 61 6e 64 |he file |type and|
|00001140| 20 63 72 65 61 74 6f 72 | 20 61 70 70 72 6f 70 72 | creator| appropr|
|00001150| 69 61 74 65 6c 79 20 2a | 29 0d 09 09 69 66 20 6c |iately *|)...if l|
|00001160| 6f 6e 67 65 73 74 5f 6c | 65 6e 20 3e 20 30 20 74 |ongest_l|en > 0 t|
|00001170| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 65 72 72 |hen begi|n....err|
|00001180| 20 3a 3d 20 48 47 65 74 | 46 49 6e 66 6f 28 66 73 | := HGet|FInfo(fs|
|00001190| 73 2e 76 52 65 66 4e 75 | 6d 2c 20 66 73 73 2e 70 |s.vRefNu|m, fss.p|
|000011a0| 61 72 49 44 2c 20 66 73 | 73 2e 6e 61 6d 65 2c 20 |arID, fs|s.name, |
|000011b0| 69 6e 66 6f 29 3b 0d 09 | 09 09 69 66 20 65 72 72 |info);..|..if err|
|000011c0| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|000011d0| 67 69 6e 0d 09 09 09 09 | 69 6e 66 6f 2e 66 64 43 |gin.....|info.fdC|
|000011e0| 72 65 61 74 6f 72 20 3a | 3d 20 65 6e 74 72 79 2e |reator :|= entry.|
|000011f0| 66 69 6c 65 5f 63 72 65 | 61 74 6f 72 3b 0d 09 09 |file_cre|ator;...|
|00001200| 09 09 69 6e 66 6f 2e 66 | 64 54 79 70 65 20 3a 3d |..info.f|dType :=|
|00001210| 20 65 6e 74 72 79 2e 66 | 69 6c 65 5f 74 79 70 65 | entry.f|ile_type|
|00001220| 3b 0d 09 09 09 09 65 72 | 72 20 3a 3d 20 48 53 65 |;.....er|r := HSe|
|00001230| 74 46 49 6e 66 6f 28 66 | 73 73 2e 76 52 65 66 4e |tFInfo(f|ss.vRefN|
|00001240| 75 6d 2c 20 66 73 73 2e | 70 61 72 49 44 2c 20 66 |um, fss.|parID, f|
|00001250| 73 73 2e 6e 61 6d 65 2c | 20 69 6e 66 6f 29 3b 0d |ss.name,| info);.|
|00001260| 09 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00001270| 0d 09 09 65 6e 64 0d 09 | 09 65 6c 73 65 20 62 65 |...end..|.else be|
|00001280| 67 69 6e 0d 09 09 09 65 | 72 72 20 3a 3d 20 6e 6f |gin....e|rr := no|
|00001290| 45 72 72 3b 0d 09 09 65 | 6e 64 3b 20 28 2a 20 69 |Err;...e|nd; (* i|
|000012a0| 66 20 2a 29 0d 0d 09 09 | 71 75 69 74 5f 6e 6f 77 |f *)....|quit_now|
|000012b0| 20 3a 3d 20 74 72 75 65 | 3b 0d 09 09 50 72 6f 63 | := true|;...Proc|
|000012c0| 65 73 73 44 6f 63 75 6d | 65 6e 74 20 3a 3d 20 65 |essDocum|ent := e|
|000012d0| 72 72 3b 0d 09 65 6e 64 | 3b 20 28 2a 20 50 72 6f |rr;..end|; (* Pro|
|000012e0| 63 65 73 73 44 6f 63 75 | 6d 65 6e 74 20 2a 29 0d |cessDocu|ment *).|
|000012f0| 0d 28 2a 20 2a 2a 2a 2a | 2a 20 41 70 70 6c 65 45 |.(* ****|* AppleE|
|00001300| 76 65 6e 74 20 48 61 6e | 64 6c 65 72 73 20 2a 2a |vent Han|dlers **|
|00001310| 2a 2a 2a 20 2a 29 0d 0d | 09 66 75 6e 63 74 69 6f |*** *)..|.functio|
|00001320| 6e 20 48 61 6e 64 6c 65 | 4f 70 65 6e 41 70 70 6c |n Handle|OpenAppl|
|00001330| 69 63 61 74 69 6f 6e 20 | 28 76 61 72 20 74 68 65 |ication |(var the|
|00001340| 41 70 70 6c 65 45 76 65 | 6e 74 3a 20 41 70 70 6c |AppleEve|nt: Appl|
|00001350| 65 45 76 65 6e 74 3b 20 | 76 61 72 20 72 65 70 6c |eEvent; |var repl|
|00001360| 79 3a 20 41 70 70 6c 65 | 45 76 65 6e 74 3b 20 72 |y: Apple|Event; r|
|00001370| 65 66 63 6f 6e 3a 20 6c | 6f 6e 67 69 6e 74 29 3a |efcon: l|ongint):|
|00001380| 20 4f 53 45 72 72 3b 0d | 09 09 28 2a 20 74 68 65 | OSErr;.|..(* the|
|00001390| 20 27 6f 61 70 70 27 20 | 65 76 65 6e 74 20 68 61 | 'oapp' |event ha|
|000013a0| 6e 64 6c 65 72 2c 20 64 | 69 73 70 6c 61 79 73 20 |ndler, d|isplays |
|000013b0| 74 68 65 20 61 62 6f 75 | 74 20 62 6f 78 20 2a 29 |the abou|t box *)|
|000013c0| 0d 09 09 28 2a 20 73 68 | 6f 75 6c 64 20 6d 6f 73 |...(* sh|ould mos|
|000013d0| 74 20 70 72 6f 62 61 62 | 6c 79 20 6f 6e 6c 79 20 |t probab|ly only |
|000013e0| 64 6f 20 74 68 69 73 20 | 69 66 20 77 65 27 72 65 |do this |if we're|
|000013f0| 20 69 6e 20 2a 29 0d 09 | 09 28 2a 20 74 68 65 20 | in *)..|.(* the |
|00001400| 66 6f 72 65 67 72 6f 75 | 6e 64 20 62 75 74 20 74 |foregrou|nd but t|
|00001410| 68 61 74 27 73 20 6a 75 | 73 74 20 74 6f 6f 20 63 |hat's ju|st too c|
|00001420| 6f 6d 70 6c 69 63 61 74 | 65 64 20 2a 29 0d 09 09 |omplicat|ed *)...|
|00001430| 28 2a 20 66 6f 72 20 74 | 68 69 73 20 65 78 61 6d |(* for t|his exam|
|00001440| 70 6c 65 20 2a 29 0d 09 | 09 76 61 72 0d 09 09 09 |ple *)..|.var....|
|00001450| 65 72 72 3a 20 49 43 45 | 72 72 6f 72 3b 0d 09 09 |err: ICE|rror;...|
|00001460| 09 65 6d 61 69 6c 5f 61 | 64 64 72 65 73 73 3a 20 |.email_a|ddress: |
|00001470| 53 74 72 32 35 35 3b 0d | 09 09 09 6a 75 6e 6b 5f |Str255;.|...junk_|
|00001480| 61 74 74 72 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |attr: lo|ngint;..|
|00001490| 09 09 6a 75 6e 6b 3a 20 | 69 6e 74 65 67 65 72 3b |..junk: |integer;|
|000014a0| 0d 09 09 09 6a 75 6e 6b | 5f 69 63 65 72 72 3a 20 |....junk|_icerr: |
|000014b0| 49 43 45 72 72 6f 72 3b | 0d 09 62 65 67 69 6e 0d |ICError;|..begin.|
|000014c0| 09 09 28 2a 20 64 65 62 | 75 67 67 65 72 3b 20 2a |..(* deb|ugger; *|
|000014d0| 29 0d 09 09 65 72 72 20 | 3a 3d 20 47 6f 74 52 65 |)...err |:= GotRe|
|000014e0| 71 75 69 72 65 64 50 61 | 72 61 6d 73 28 74 68 65 |quiredPa|rams(the|
|000014f0| 41 70 70 6c 65 45 76 65 | 6e 74 29 3b 0d 09 09 69 |AppleEve|nt);...i|
|00001500| 66 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 20 74 68 |f err = |noErr th|
|00001510| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 6a 75 6e 6b |en begin|....junk|
|00001520| 5f 69 63 65 72 72 20 3a | 3d 20 49 43 47 65 74 50 |_icerr :|= ICGetP|
|00001530| 72 65 66 53 74 72 28 69 | 6e 73 74 61 6e 63 65 2c |refStr(i|nstance,|
|00001540| 20 6b 49 43 45 6d 61 69 | 6c 2c 20 6a 75 6e 6b 5f | kICEmai|l, junk_|
|00001550| 61 74 74 72 2c 20 65 6d | 61 69 6c 5f 61 64 64 72 |attr, em|ail_addr|
|00001560| 65 73 73 29 3b 0d 09 09 | 09 50 61 72 61 6d 54 65 |ess);...|.ParamTe|
|00001570| 78 74 28 65 6d 61 69 6c | 5f 61 64 64 72 65 73 73 |xt(email|_address|
|00001580| 2c 20 27 27 2c 20 27 27 | 2c 20 27 27 29 3b 0d 09 |, '', ''|, '');..|
|00001590| 09 09 6a 75 6e 6b 20 3a | 3d 20 41 6c 65 72 74 28 |..junk :|= Alert(|
|000015a0| 31 32 38 2c 20 6e 69 6c | 29 3b 0d 09 09 09 71 75 |128, nil|);....qu|
|000015b0| 69 74 5f 6e 6f 77 20 3a | 3d 20 74 72 75 65 3b 0d |it_now :|= true;.|
|000015c0| 09 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|000015d0| 09 09 48 61 6e 64 6c 65 | 4f 70 65 6e 41 70 70 6c |..Handle|OpenAppl|
|000015e0| 69 63 61 74 69 6f 6e 20 | 3a 3d 20 65 72 72 3b 0d |ication |:= err;.|
|000015f0| 09 65 6e 64 3b 20 28 2a | 20 48 61 6e 64 6c 65 4f |.end; (*| HandleO|
|00001600| 70 65 6e 41 70 70 6c 69 | 63 61 74 69 6f 6e 20 2a |penAppli|cation *|
|00001610| 29 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 48 61 6e |)...func|tion Han|
|00001620| 64 6c 65 4f 70 65 6e 44 | 6f 63 75 6d 65 6e 74 73 |dleOpenD|ocuments|
|00001630| 20 28 76 61 72 20 74 68 | 65 41 70 70 6c 65 45 76 | (var th|eAppleEv|
|00001640| 65 6e 74 3a 20 41 70 70 | 6c 65 45 76 65 6e 74 3b |ent: App|leEvent;|
|00001650| 76 61 72 20 20 72 65 70 | 6c 79 3a 20 41 70 70 6c |var rep|ly: Appl|
|00001660| 65 45 76 65 6e 74 3b 20 | 72 65 66 63 6f 6e 3a 20 |eEvent; |refcon: |
|00001670| 6c 6f 6e 67 69 6e 74 29 | 3a 20 4f 53 45 72 72 3b |longint)|: OSErr;|
|00001680| 0d 09 09 28 2a 20 61 20 | 66 61 69 72 6c 79 20 73 |...(* a |fairly s|
|00001690| 74 61 6e 64 61 72 64 20 | 27 6f 64 6f 63 27 20 65 |tandard |'odoc' e|
|000016a0| 76 65 6e 74 20 68 61 6e | 64 6c 65 72 20 2a 29 0d |vent han|dler *).|
|000016b0| 09 09 28 2a 20 67 65 74 | 73 20 74 68 65 20 64 6f |..(* get|s the do|
|000016c0| 63 75 6d 65 6e 74 20 6c | 69 73 74 2c 20 63 6f 75 |cument l|ist, cou|
|000016d0| 6e 74 73 20 74 68 65 20 | 69 74 65 6d 73 20 69 6e |nts the |items in|
|000016e0| 20 69 74 20 2a 29 0d 09 | 09 28 2a 20 67 65 74 73 | it *)..|.(* gets|
|000016f0| 20 74 68 65 20 46 53 53 | 70 65 63 20 66 6f 72 20 | the FSS|pec for |
|00001700| 65 61 63 68 20 64 6f 63 | 75 6d 65 6e 74 20 61 6e |each doc|ument an|
|00001710| 64 20 63 61 6c 6c 73 20 | 2a 29 0d 09 09 28 2a 20 |d calls |*)...(* |
|00001720| 50 72 6f 63 65 73 73 44 | 6f 63 75 6d 65 6e 74 20 |ProcessD|ocument |
|00001730| 6f 6e 20 69 74 20 2a 29 | 0d 09 09 76 61 72 0d 09 |on it *)|...var..|
|00001740| 09 09 66 73 73 3a 20 46 | 53 53 70 65 63 3b 0d 09 |..fss: F|SSpec;..|
|00001750| 09 09 64 6f 63 5f 6c 69 | 73 74 3a 20 41 45 44 65 |..doc_li|st: AEDe|
|00001760| 73 63 4c 69 73 74 3b 0d | 09 09 09 69 6e 64 65 78 |scList;.|...index|
|00001770| 2c 20 69 74 65 6d 5f 63 | 6f 75 6e 74 3a 20 6c 6f |, item_c|ount: lo|
|00001780| 6e 67 69 6e 74 3b 0d 09 | 09 09 6a 75 6e 6b 5f 73 |ngint;..|..junk_s|
|00001790| 69 7a 65 3a 20 53 69 7a | 65 3b 0d 09 09 09 6a 75 |ize: Siz|e;....ju|
|000017a0| 6e 6b 5f 6b 65 79 77 6f | 72 64 3a 20 41 45 4b 65 |nk_keywo|rd: AEKe|
|000017b0| 79 77 6f 72 64 3b 0d 09 | 09 09 6a 75 6e 6b 5f 74 |yword;..|..junk_t|
|000017c0| 79 70 65 3a 20 64 65 73 | 63 54 79 70 65 3b 0d 09 |ype: des|cType;..|
|000017d0| 09 09 65 72 72 2c 20 6a | 75 6e 6b 3a 20 49 43 45 |..err, j|unk: ICE|
|000017e0| 72 72 6f 72 3b 0d 09 62 | 65 67 69 6e 0d 09 09 65 |rror;..b|egin...e|
|000017f0| 72 72 20 3a 3d 20 41 45 | 47 65 74 50 61 72 61 6d |rr := AE|GetParam|
|00001800| 44 65 73 63 28 74 68 65 | 41 70 70 6c 65 45 76 65 |Desc(the|AppleEve|
|00001810| 6e 74 2c 20 6b 65 79 44 | 69 72 65 63 74 4f 62 6a |nt, keyD|irectObj|
|00001820| 65 63 74 2c 20 74 79 70 | 65 41 45 4c 69 73 74 2c |ect, typ|eAEList,|
|00001830| 20 64 6f 63 5f 6c 69 73 | 74 29 3b 0d 09 09 69 66 | doc_lis|t);...if|
|00001840| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 20 74 68 65 | err = n|oErr the|
|00001850| 6e 20 62 65 67 69 6e 0d | 09 09 09 65 72 72 20 3a |n begin.|...err :|
|00001860| 3d 20 47 6f 74 52 65 71 | 75 69 72 65 64 50 61 72 |= GotReq|uiredPar|
|00001870| 61 6d 73 28 74 68 65 41 | 70 70 6c 65 45 76 65 6e |ams(theA|ppleEven|
|00001880| 74 29 3b 0d 09 09 09 69 | 66 20 65 72 72 20 3d 20 |t);....i|f err = |
|00001890| 6e 6f 45 72 72 20 74 68 | 65 6e 20 62 65 67 69 6e |noErr th|en begin|
|000018a0| 0d 09 09 09 09 65 72 72 | 20 3a 3d 20 41 45 43 6f |.....err| := AECo|
|000018b0| 75 6e 74 49 74 65 6d 73 | 28 64 6f 63 5f 6c 69 73 |untItems|(doc_lis|
|000018c0| 74 2c 20 69 74 65 6d 5f | 63 6f 75 6e 74 29 3b 0d |t, item_|count);.|
|000018d0| 09 09 09 65 6e 64 0d 09 | 09 09 65 6c 73 65 20 62 |...end..|..else b|
|000018e0| 65 67 69 6e 0d 09 09 09 | 09 69 74 65 6d 5f 63 6f |egin....|.item_co|
|000018f0| 75 6e 74 20 3a 3d 20 30 | 3b 0d 09 09 09 65 6e 64 |unt := 0|;....end|
|00001900| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 09 66 6f |; (* if |*)....fo|
|00001910| 72 20 69 6e 64 65 78 20 | 3a 3d 20 31 20 74 6f 20 |r index |:= 1 to |
|00001920| 69 74 65 6d 5f 63 6f 75 | 6e 74 20 64 6f 20 62 65 |item_cou|nt do be|
|00001930| 67 69 6e 0d 09 09 09 09 | 69 66 20 65 72 72 20 3d |gin.....|if err =|
|00001940| 20 6e 6f 45 72 72 20 74 | 68 65 6e 20 62 65 67 69 | noErr t|hen begi|
|00001950| 6e 0d 09 09 09 09 09 65 | 72 72 20 3a 3d 20 41 45 |n......e|rr := AE|
|00001960| 47 65 74 4e 74 68 50 74 | 72 28 64 6f 63 5f 6c 69 |GetNthPt|r(doc_li|
|00001970| 73 74 2c 20 69 6e 64 65 | 78 2c 20 74 79 70 65 46 |st, inde|x, typeF|
|00001980| 53 53 2c 20 6a 75 6e 6b | 5f 6b 65 79 77 6f 72 64 |SS, junk|_keyword|
|00001990| 2c 20 6a 75 6e 6b 5f 74 | 79 70 65 2c 20 40 66 73 |, junk_t|ype, @fs|
|000019a0| 73 2c 20 73 69 7a 65 6f | 66 28 66 73 73 29 2c 20 |s, sizeo|f(fss), |
|000019b0| 6a 75 6e 6b 5f 73 69 7a | 65 29 3b 0d 09 09 09 09 |junk_siz|e);.....|
|000019c0| 09 69 66 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.if err |= noErr |
|000019d0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 09 09 |then beg|in......|
|000019e0| 09 65 72 72 20 3a 3d 20 | 50 72 6f 63 65 73 73 44 |.err := |ProcessD|
|000019f0| 6f 63 75 6d 65 6e 74 28 | 66 73 73 29 3b 0d 09 09 |ocument(|fss);...|
|00001a00| 09 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00001a10| 0d 09 09 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |.....end|; (* if |
|00001a20| 2a 29 0d 09 09 09 65 6e | 64 3b 20 28 2a 20 66 6f |*)....en|d; (* fo|
|00001a30| 72 20 2a 29 0d 09 09 09 | 6a 75 6e 6b 20 3a 3d 20 |r *)....|junk := |
|00001a40| 41 45 44 69 73 70 6f 73 | 65 44 65 73 63 28 64 6f |AEDispos|eDesc(do|
|00001a50| 63 5f 6c 69 73 74 29 3b | 0d 09 09 65 6e 64 3b 20 |c_list);|...end; |
|00001a60| 28 2a 20 69 66 20 2a 29 | 0d 09 09 48 61 6e 64 6c |(* if *)|...Handl|
|00001a70| 65 4f 70 65 6e 44 6f 63 | 75 6d 65 6e 74 73 20 3a |eOpenDoc|uments :|
|00001a80| 3d 20 65 72 72 3b 0d 09 | 65 6e 64 3b 20 28 2a 20 |= err;..|end; (* |
|00001a90| 48 61 6e 64 6c 65 4f 70 | 65 6e 44 6f 63 75 6d 65 |HandleOp|enDocume|
|00001aa0| 6e 74 73 20 2a 29 0d 0d | 09 66 75 6e 63 74 69 6f |nts *)..|.functio|
|00001ab0| 6e 20 48 61 6e 64 6c 65 | 51 75 69 74 20 28 76 61 |n Handle|Quit (va|
|00001ac0| 72 20 74 68 65 41 70 70 | 6c 65 45 76 65 6e 74 3a |r theApp|leEvent:|
|00001ad0| 20 41 70 70 6c 65 45 76 | 65 6e 74 3b 76 61 72 20 | AppleEv|ent;var |
|00001ae0| 72 65 70 6c 79 3a 20 41 | 70 70 6c 65 45 76 65 6e |reply: A|ppleEven|
|00001af0| 74 3b 20 72 65 66 63 6f | 6e 3a 20 6c 6f 6e 67 69 |t; refco|n: longi|
|00001b00| 6e 74 29 3a 20 4f 53 45 | 72 72 3b 0d 09 09 28 2a |nt): OSE|rr;...(*|
|00001b10| 20 61 20 66 61 69 72 6c | 79 20 73 74 61 6e 64 61 | a fairl|y standa|
|00001b20| 72 64 20 27 71 75 69 74 | 27 20 65 76 65 6e 74 20 |rd 'quit|' event |
|00001b30| 68 61 6e 64 6c 65 72 20 | 2a 29 0d 09 09 28 2a 20 |handler |*)...(* |
|00001b40| 73 65 74 73 20 71 75 69 | 74 5f 6e 6f 77 20 73 6f |sets qui|t_now so|
|00001b50| 20 74 68 61 74 20 74 68 | 65 20 6d 61 69 6e 20 65 | that th|e main e|
|00001b60| 76 65 6e 74 20 6c 6f 6f | 70 20 71 75 69 74 73 20 |vent loo|p quits |
|00001b70| 2a 29 0d 09 09 76 61 72 | 0d 09 09 09 65 72 72 3a |*)...var|....err:|
|00001b80| 20 49 43 45 72 72 6f 72 | 3b 0d 09 62 65 67 69 6e | ICError|;..begin|
|00001b90| 0d 09 09 65 72 72 20 3a | 3d 20 47 6f 74 52 65 71 |...err :|= GotReq|
|00001ba0| 75 69 72 65 64 50 61 72 | 61 6d 73 28 74 68 65 41 |uiredPar|ams(theA|
|00001bb0| 70 70 6c 65 45 76 65 6e | 74 29 3b 0d 09 09 69 66 |ppleEven|t);...if|
|00001bc0| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 20 74 68 65 | err = n|oErr the|
|00001bd0| 6e 20 62 65 67 69 6e 0d | 09 09 09 71 75 69 74 5f |n begin.|...quit_|
|00001be0| 6e 6f 77 20 3a 3d 20 74 | 72 75 65 3b 0d 09 09 65 |now := t|rue;...e|
|00001bf0| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 48 |nd; (* i|f *)...H|
|00001c00| 61 6e 64 6c 65 51 75 69 | 74 20 3a 3d 20 65 72 72 |andleQui|t := err|
|00001c10| 3b 0d 09 65 6e 64 3b 20 | 28 2a 20 48 61 6e 64 6c |;..end; |(* Handl|
|00001c20| 65 51 75 69 74 20 2a 29 | 0d 0d 7b 24 49 46 43 20 |eQuit *)|..{$IFC |
|00001c30| 6e 6f 74 20 47 45 4e 45 | 52 41 54 49 4e 47 50 4f |not GENE|RATINGPO|
|00001c40| 57 45 52 50 43 7d 0d 09 | 66 75 6e 63 74 69 6f 6e |WERPC}..|function|
|00001c50| 20 53 74 61 63 6b 50 74 | 72 3a 20 6c 6f 6e 67 49 | StackPt|r: longI|
|00001c60| 6e 74 3b 0d 09 69 6e 6c | 69 6e 65 0d 09 09 24 32 |nt;..inl|ine...$2|
|00001c70| 45 38 46 3b 0d 7b 24 45 | 4e 44 43 7d 0d 0d 09 76 |E8F;.{$E|NDC}...v|
|00001c80| 61 72 0d 09 09 6a 75 6e | 6b 62 6f 6f 6c 3a 20 62 |ar...jun|kbool: b|
|00001c90| 6f 6f 6c 65 61 6e 3b 0d | 09 09 65 76 65 6e 74 3a |oolean;.|..event:|
|00001ca0| 20 45 76 65 6e 74 52 65 | 63 6f 72 64 3b 0d 09 09 | EventRe|cord;...|
|00001cb0| 65 72 72 3a 20 49 43 45 | 72 72 6f 72 3b 0d 09 09 |err: ICE|rror;...|
|00001cc0| 6a 75 6e 6b 3a 20 49 43 | 45 72 72 6f 72 3b 0d 09 |junk: IC|Error;..|
|00001cd0| 09 72 65 73 70 6f 6e 73 | 65 3a 20 6c 6f 6e 67 69 |.respons|e: longi|
|00001ce0| 6e 74 3b 0d 09 09 61 74 | 74 72 3a 20 6c 6f 6e 67 |nt;...at|tr: long|
|00001cf0| 69 6e 74 3b 0d 09 09 69 | 20 3a 20 6c 6f 6e 67 69 |int;...i| : longi|
|00001d00| 6e 74 3b 0d 62 65 67 69 | 6e 0d 09 28 2a 20 4c 6f |nt;.begi|n..(* Lo|
|00001d10| 74 73 20 6f 66 20 49 6e | 69 74 69 61 6c 69 7a 69 |ts of In|itializi|
|00001d20| 6e 67 20 73 74 75 66 66 | 2e 20 2a 29 0d 09 49 6e |ng stuff|. *)..In|
|00001d30| 69 74 47 72 61 66 28 40 | 71 64 2e 74 68 65 50 6f |itGraf(@|qd.thePo|
|00001d40| 72 74 29 3b 0d 09 49 6e | 69 74 46 6f 6e 74 73 3b |rt);..In|itFonts;|
|00001d50| 0d 09 49 6e 69 74 57 69 | 6e 64 6f 77 73 3b 0d 09 |..InitWi|ndows;..|
|00001d60| 49 6e 69 74 4d 65 6e 75 | 73 3b 0d 09 54 45 49 6e |InitMenu|s;..TEIn|
|00001d70| 69 74 3b 0d 09 49 6e 69 | 74 44 69 61 6c 6f 67 73 |it;..Ini|tDialogs|
|00001d80| 28 6e 69 6c 29 3b 0d 09 | 28 2a 20 4f 6e 6c 79 20 |(nil);..|(* Only |
|00001d90| 61 20 63 6f 6e 63 65 72 | 6e 20 69 66 20 79 6f 75 |a concer|n if you|
|00001da0| 20 61 72 65 20 63 6f 6d | 70 69 6c 69 6e 67 20 66 | are com|piling f|
|00001db0| 6f 72 20 36 38 4b 2e 2a | 29 0d 7b 24 49 46 43 20 |or 68K.*|).{$IFC |
|00001dc0| 6e 6f 74 20 47 45 4e 45 | 52 41 54 49 4e 47 50 4f |not GENE|RATINGPO|
|00001dd0| 57 45 52 50 43 7d 0d 09 | 53 65 74 41 70 70 6c 4c |WERPC}..|SetApplL|
|00001de0| 69 6d 69 74 28 50 74 72 | 28 53 74 61 63 6b 50 74 |imit(Ptr|(StackPt|
|00001df0| 72 20 2d 20 33 32 37 36 | 38 29 29 3b 0d 7b 24 45 |r - 3276|8));.{$E|
|00001e00| 4e 44 43 7d 0d 09 4d 61 | 78 41 70 70 6c 5a 6f 6e |NDC}..Ma|xApplZon|
|00001e10| 65 3b 0d 09 66 6f 72 20 | 69 20 3a 3d 20 31 20 74 |e;..for |i := 1 t|
|00001e20| 6f 20 33 20 64 6f 20 62 | 65 67 69 6e 0d 09 09 4d |o 3 do b|egin...M|
|00001e30| 6f 72 65 4d 61 73 74 65 | 72 73 3b 0d 09 65 6e 64 |oreMaste|rs;..end|
|00001e40| 3b 0d 0d 09 28 2a 20 46 | 69 72 73 74 20 63 68 65 |;...(* F|irst che|
|00001e50| 63 6b 20 66 6f 72 20 53 | 79 73 74 65 6d 20 37 2e |ck for S|ystem 7.|
|00001e60| 20 20 4f 4b 2c 20 73 6f | 20 77 65 27 72 65 20 73 | OK, so| we're s|
|00001e70| 75 70 70 6f 73 65 64 20 | 2a 29 0d 09 28 2a 20 74 |upposed |*)..(* t|
|00001e80| 6f 20 74 65 73 74 20 66 | 6f 72 20 66 75 6e 63 74 |o test f|or funct|
|00001e90| 69 6f 6e 61 6c 69 74 79 | 20 62 75 74 20 74 68 69 |ionality| but thi|
|00001ea0| 73 20 69 73 20 65 78 61 | 6d 70 6c 65 20 2a 29 0d |s is exa|mple *).|
|00001eb0| 09 28 2a 20 63 6f 64 65 | 2e 20 2a 29 0d 09 69 66 |.(* code|. *)..if|
|00001ec0| 20 28 47 65 73 74 61 6c | 74 28 67 65 73 74 61 6c | (Gestal|t(gestal|
|00001ed0| 74 53 79 73 74 65 6d 56 | 65 72 73 69 6f 6e 2c 20 |tSystemV|ersion, |
|00001ee0| 72 65 73 70 6f 6e 73 65 | 29 20 3c 3e 20 6e 6f 45 |response|) <> noE|
|00001ef0| 72 72 29 20 7c 20 28 72 | 65 73 70 6f 6e 73 65 20 |rr) | (r|esponse |
|00001f00| 3c 20 24 37 30 30 29 20 | 74 68 65 6e 20 62 65 67 |< $700) |then beg|
|00001f10| 69 6e 0d 09 09 45 78 69 | 74 54 6f 53 68 65 6c 6c |in...Exi|tToShell|
|00001f20| 3b 0d 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |;..end; |(* if *)|
|00001f30| 0d 0d 09 28 2a 20 4e 6f | 77 20 69 6e 73 74 61 6c |...(* No|w instal|
|00001f40| 6c 20 6f 75 72 20 41 70 | 70 6c 65 45 76 65 6e 74 |l our Ap|pleEvent|
|00001f50| 20 68 61 6e 64 6c 65 73 | 2e 20 2a 29 0d 09 65 72 | handles|. *)..er|
|00001f60| 72 20 3a 3d 20 41 45 49 | 6e 73 74 61 6c 6c 45 76 |r := AEI|nstallEv|
|00001f70| 65 6e 74 48 61 6e 64 6c | 65 72 28 6b 43 6f 72 65 |entHandl|er(kCore|
|00001f80| 45 76 65 6e 74 43 6c 61 | 73 73 2c 20 6b 41 45 4f |EventCla|ss, kAEO|
|00001f90| 70 65 6e 41 70 70 6c 69 | 63 61 74 69 6f 6e 2c 20 |penAppli|cation, |
|00001fa0| 40 48 61 6e 64 6c 65 4f | 70 65 6e 41 70 70 6c 69 |@HandleO|penAppli|
|00001fb0| 63 61 74 69 6f 6e 2c 20 | 30 2c 20 66 61 6c 73 65 |cation, |0, false|
|00001fc0| 29 3b 0d 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |);..if e|rr = noE|
|00001fd0| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|00001fe0| 65 72 72 20 3a 3d 20 41 | 45 49 6e 73 74 61 6c 6c |err := A|EInstall|
|00001ff0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 28 6b 43 6f |EventHan|dler(kCo|
|00002000| 72 65 45 76 65 6e 74 43 | 6c 61 73 73 2c 20 6b 41 |reEventC|lass, kA|
|00002010| 45 4f 70 65 6e 44 6f 63 | 75 6d 65 6e 74 73 2c 20 |EOpenDoc|uments, |
|00002020| 40 48 61 6e 64 6c 65 4f | 70 65 6e 44 6f 63 75 6d |@HandleO|penDocum|
|00002030| 65 6e 74 73 2c 20 30 2c | 20 66 61 6c 73 65 29 3b |ents, 0,| false);|
|00002040| 0d 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|00002050| 09 69 66 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.if err |= noErr |
|00002060| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 65 72 72 |then beg|in...err|
|00002070| 20 3a 3d 20 41 45 49 6e | 73 74 61 6c 6c 45 76 65 | := AEIn|stallEve|
|00002080| 6e 74 48 61 6e 64 6c 65 | 72 28 6b 43 6f 72 65 45 |ntHandle|r(kCoreE|
|00002090| 76 65 6e 74 43 6c 61 73 | 73 2c 20 6b 41 45 51 75 |ventClas|s, kAEQu|
|000020a0| 69 74 41 70 70 6c 69 63 | 61 74 69 6f 6e 2c 20 40 |itApplic|ation, @|
|000020b0| 48 61 6e 64 6c 65 51 75 | 69 74 2c 20 30 2c 20 66 |HandleQu|it, 0, f|
|000020c0| 61 6c 73 65 29 3b 0d 09 | 65 6e 64 3b 20 28 2a 20 |alse);..|end; (* |
|000020d0| 69 66 20 2a 29 0d 0d 09 | 28 2a 20 73 74 61 72 74 |if *)...|(* start|
|000020e0| 75 70 20 49 6e 74 65 72 | 6e 65 74 20 43 6f 6e 66 |up Inter|net Conf|
|000020f0| 69 67 20 2a 29 0d 09 69 | 66 20 65 72 72 20 3d 20 |ig *)..i|f err = |
|00002100| 6e 6f 45 72 72 20 74 68 | 65 6e 20 62 65 67 69 6e |noErr th|en begin|
|00002110| 0d 09 09 65 72 72 20 3a | 3d 20 49 43 53 74 61 72 |...err :|= ICStar|
|00002120| 74 28 69 6e 73 74 61 6e | 63 65 2c 20 6d 79 5f 63 |t(instan|ce, my_c|
|00002130| 72 65 61 74 6f 72 29 3b | 0d 09 09 69 66 20 65 72 |reator);|...if er|
|00002140| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00002150| 65 67 69 6e 0d 09 09 09 | 65 72 72 20 3a 3d 20 49 |egin....|err := I|
|00002160| 43 46 69 6e 64 43 6f 6e | 66 69 67 46 69 6c 65 28 |CFindCon|figFile(|
|00002170| 69 6e 73 74 61 6e 63 65 | 2c 20 30 2c 20 6e 69 6c |instance|, 0, nil|
|00002180| 29 3b 0d 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |);...end|; (* if |
|00002190| 2a 29 0d 0d 09 28 2a 20 | 66 65 74 63 68 20 74 68 |*)...(* |fetch th|
|000021a0| 65 20 6d 61 70 70 69 6e | 67 73 20 70 72 65 66 65 |e mappin|gs prefe|
|000021b0| 72 65 6e 63 65 20 2a 29 | 0d 09 09 69 66 20 65 72 |rence *)|...if er|
|000021c0| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|000021d0| 65 67 69 6e 0d 09 09 09 | 65 72 72 20 3a 3d 20 49 |egin....|err := I|
|000021e0| 43 47 65 74 50 72 65 66 | 48 61 6e 64 6c 65 28 69 |CGetPref|Handle(i|
|000021f0| 6e 73 74 61 6e 63 65 2c | 20 6b 49 43 4d 61 70 70 |nstance,| kICMapp|
|00002200| 69 6e 67 2c 20 61 74 74 | 72 2c 20 6d 61 70 70 69 |ing, att|r, mappi|
|00002210| 6e 67 73 29 3b 0d 09 09 | 65 6e 64 3b 20 28 2a 20 |ngs);...|end; (* |
|00002220| 69 66 20 2a 29 0d 0d 09 | 28 2a 20 65 6e 74 65 72 |if *)...|(* enter|
|00002230| 20 6d 61 69 6e 20 6c 6f | 6f 70 20 2a 29 0d 09 09 | main lo|op *)...|
|00002240| 69 66 20 65 72 72 20 3d | 20 6e 6f 45 72 72 20 74 |if err =| noErr t|
|00002250| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 71 75 69 |hen begi|n....qui|
|00002260| 74 5f 6e 6f 77 20 3a 3d | 20 66 61 6c 73 65 3b 0d |t_now :=| false;.|
|00002270| 09 09 09 77 68 69 6c 65 | 20 6e 6f 74 20 71 75 69 |...while| not qui|
|00002280| 74 5f 6e 6f 77 20 64 6f | 20 62 65 67 69 6e 0d 09 |t_now do| begin..|
|00002290| 09 09 09 6a 75 6e 6b 62 | 6f 6f 6c 20 3a 3d 20 57 |...junkb|ool := W|
|000022a0| 61 69 74 4e 65 78 74 45 | 76 65 6e 74 28 65 76 65 |aitNextE|vent(eve|
|000022b0| 72 79 45 76 65 6e 74 2c | 20 65 76 65 6e 74 2c 20 |ryEvent,| event, |
|000022c0| 6d 61 78 6c 6f 6e 67 69 | 6e 74 2c 20 6e 69 6c 29 |maxlongi|nt, nil)|
|000022d0| 3b 0d 09 09 09 09 63 61 | 73 65 20 65 76 65 6e 74 |;.....ca|se event|
|000022e0| 2e 77 68 61 74 20 6f 66 | 0d 09 09 09 09 09 6b 65 |.what of|......ke|
|000022f0| 79 44 6f 77 6e 3a 20 0d | 09 09 09 09 09 09 71 75 |yDown: .|......qu|
|00002300| 69 74 5f 6e 6f 77 20 3a | 3d 20 74 72 75 65 3b 0d |it_now :|= true;.|
|00002310| 09 09 09 09 09 6b 48 69 | 67 68 4c 65 76 65 6c 45 |.....kHi|ghLevelE|
|00002320| 76 65 6e 74 3a 20 0d 09 | 09 09 09 09 09 6a 75 6e |vent: ..|.....jun|
|00002330| 6b 20 3a 3d 20 41 45 50 | 72 6f 63 65 73 73 41 70 |k := AEP|rocessAp|
|00002340| 70 6c 65 45 76 65 6e 74 | 28 65 76 65 6e 74 29 3b |pleEvent|(event);|
|00002350| 0d 09 09 09 09 09 6f 74 | 68 65 72 77 69 73 65 0d |......ot|herwise.|
|00002360| 09 09 09 09 09 09 3b 0d | 09 09 09 09 65 6e 64 3b |......;.|....end;|
|00002370| 20 28 2a 20 63 61 73 65 | 20 2a 29 0d 09 09 09 65 | (* case| *)....e|
|00002380| 6e 64 3b 20 28 2a 20 77 | 68 69 6c 65 20 2a 29 0d |nd; (* w|hile *).|
|00002390| 09 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|000023a0| 0d 09 09 28 2a 20 73 68 | 75 74 20 64 6f 77 6e 20 |...(* sh|ut down |
|000023b0| 49 43 2c 20 6f 6e 6c 79 | 20 69 66 20 77 65 20 73 |IC, only| if we s|
|000023c0| 75 63 63 65 73 73 66 75 | 6c 6c 79 20 73 74 61 72 |uccessfu|lly star|
|000023d0| 74 65 64 20 69 74 20 2a | 29 0d 09 09 6a 75 6e 6b |ted it *|)...junk|
|000023e0| 20 3a 3d 20 49 43 53 74 | 6f 70 28 69 6e 73 74 61 | := ICSt|op(insta|
|000023f0| 6e 63 65 29 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 69 |nce);..e|nd; (* i|
|00002400| 66 20 2a 29 0d 0d 09 28 | 2a 20 62 65 65 70 20 69 |f *)...(|* beep i|
|00002410| 66 20 77 65 20 67 65 74 | 20 61 6e 79 20 65 72 72 |f we get| any err|
|00002420| 6f 72 73 2a 29 0d 09 28 | 2a 20 73 6f 70 68 69 73 |ors*)..(|* sophis|
|00002430| 74 69 63 61 74 65 64 20 | 65 72 72 6f 72 20 68 61 |ticated |error ha|
|00002440| 6e 64 6c 69 6e 67 20 74 | 68 69 73 20 69 73 20 6e |ndling t|his is n|
|00002450| 6f 74 20 2a 29 0d 09 28 | 2a 20 61 20 67 6f 6f 64 |ot *)..(|* a good|
|00002460| 20 70 6c 61 63 65 20 74 | 6f 20 70 75 74 20 61 20 | place t|o put a |
|00002470| 62 72 65 61 6b 70 6f 69 | 6e 74 20 74 68 69 73 20 |breakpoi|nt this |
|00002480| 69 73 20 2a 29 0d 09 69 | 66 20 65 72 72 20 3c 3e |is *)..i|f err <>|
|00002490| 20 6e 6f 45 72 72 20 74 | 68 65 6e 20 62 65 67 69 | noErr t|hen begi|
|000024a0| 6e 0d 09 09 53 79 73 42 | 65 65 70 28 31 30 29 3b |n...SysB|eep(10);|
|000024b0| 0d 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|000024c0| 65 6e 64 2e 20 28 2a 20 | 53 70 61 63 65 41 6c 69 |end. (* |SpaceAli|
|000024d0| 65 6e 73 20 2a 29 0d 0d | 0d 28 2a 20 0d 55 70 64 |ens *)..|.(* .Upd|
|000024e0| 61 74 65 64 20 66 72 6f | 6d 20 76 31 2e 30 2e 31 |ated fro|m v1.0.1|
|000024f0| 3a 0d 0d 43 68 61 6e 67 | 65 64 20 74 6f 20 77 6f |:..Chang|ed to wo|
|00002500| 72 6b 20 77 69 74 68 20 | 43 57 2e 0d 0d 2b 20 41 |rk with |CW...+ A|
|00002510| 64 64 65 64 20 49 6e 69 | 74 69 61 6c 69 7a 61 74 |dded Ini|tializat|
|00002520| 69 6f 6e 20 63 6f 64 65 | 2e 0d 2b 20 4c 69 73 74 |ion code|..+ List|
|00002530| 65 64 20 61 6c 6c 20 53 | 79 73 74 65 6d 20 55 6e |ed all S|ystem Un|
|00002540| 69 74 73 20 75 73 65 64 | 20 62 79 20 74 68 65 20 |its used| by the |
|00002550| 70 72 6f 67 72 61 6d 2e | 0d 2b 20 55 70 64 61 74 |program.|.+ Updat|
|00002560| 65 64 20 74 68 65 20 27 | 63 6f 70 79 27 20 70 72 |ed the '|copy' pr|
|00002570| 6f 63 65 64 75 72 65 20 | 75 73 65 64 20 69 6e 20 |ocedure |used in |
|00002580| 50 72 6f 63 65 73 73 44 | 6f 63 75 6d 65 6e 74 20 |ProcessD|ocument |
|00002590| 74 6f 0d 72 65 66 6c 65 | 63 74 20 74 68 65 20 66 |to.refle|ct the f|
|000025a0| 61 63 74 20 74 68 61 74 | 20 43 57 20 72 65 74 75 |act that| CW retu|
|000025b0| 72 6e 73 20 30 20 69 66 | 20 74 68 65 20 69 6e 74 |rns 0 if| the int|
|000025c0| 65 67 65 72 20 70 61 72 | 61 6d 65 74 65 72 73 0d |eger par|ameters.|
|000025d0| 61 72 65 20 6f 75 74 20 | 6f 66 20 72 61 6e 67 65 |are out |of range|
|000025e0| 2c 20 72 61 74 68 65 72 | 20 74 68 61 6e 20 74 72 |, rather| than tr|
|000025f0| 79 69 6e 67 20 66 6f 72 | 20 61 20 62 65 73 74 20 |ying for| a best |
|00002600| 66 69 74 20 61 73 20 69 | 6e 20 54 68 69 6e 6b 2e |fit as i|n Think.|
|00002610| 0d 2b 20 52 65 6d 6f 76 | 65 64 20 74 68 65 20 53 |.+ Remov|ed the S|
|00002620| 49 5a 45 20 72 65 73 6f | 75 72 63 65 20 66 72 6f |IZE reso|urce fro|
|00002630| 6d 20 53 70 61 63 65 41 | 6c 69 65 6e 73 2e 72 73 |m SpaceA|liens.rs|
|00002640| 72 63 3a 20 74 68 69 73 | 20 69 73 20 67 65 6e 65 |rc: this| is gene|
|00002650| 72 61 74 65 64 20 62 79 | 20 43 57 2e 0d 2a 29 00 |rated by| CW..*).|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002680| 00 00 01 00 00 00 02 c0 | 00 00 01 c0 00 00 00 5a |........|.......Z|
|00002690| 6e 64 6c 65 28 69 6e 73 | 74 61 6e 63 65 2c 20 6b |ndle(ins|tance, k|
|000026a0| 49 43 4d 61 70 70 69 6e | 67 2c 20 61 74 74 72 2c |ICMappin|g, attr,|
|000026b0| 0d 53 70 61 63 65 41 6c | 69 65 6e 73 2e 70 02 00 |.SpaceAl|iens.p..|
|000026c0| 00 00 54 45 58 54 43 57 | 49 45 01 00 ff ff ff ff |..TEXTCW|IE......|
|000026d0| 00 00 54 45 58 54 43 57 | 49 45 01 00 ff ff ff ff |..TEXTCW|IE......|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 aa d0 5d 69 00 00 | 25 df 00 00 03 1a 69 6e |....]i..|%.....in|
|00002700| 0d 09 09 09 71 75 69 74 | 5f 6e 6f 77 20 3a 3d 20 |....quit|_now := |
|00002710| 66 61 6c 73 65 3b 0d 09 | 09 09 77 68 69 6c 65 20 |false;..|..while |
|00002720| 6e 6f 74 20 71 75 69 74 | 5f 6e 6f 77 20 64 6f 20 |not quit|_now do |
|00002730| 62 65 67 69 6e 0d 09 09 | 09 09 6a 75 6e 6b 62 6f |begin...|..junkbo|
|00002740| 6f 6c 20 3a 3d 20 57 61 | 69 74 4e 65 78 74 45 76 |ol := Wa|itNextEv|
|00002750| 65 6e 74 28 65 76 65 72 | 79 45 76 65 6e 74 2c 20 |ent(ever|yEvent, |
|00002760| 65 76 65 6e 74 2c 20 6d | 61 78 6c 6f 6e 67 69 6e |event, m|axlongin|
|00002770| 74 2c 20 6e 69 6c 29 3b | 0d 09 09 09 09 63 61 73 |t, nil);|.....cas|
|00002780| 00 00 01 68 00 00 00 00 | 00 00 00 3c 00 de 01 73 |...h....|...<...s|
|00002790| 01 a3 00 0c 00 00 0a 66 | 00 00 0a 66 00 00 00 4e |.......f|...f...N|
|000027a0| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 04 00 | 00 03 00 00 00 48 00 48 |........|.....H.H|
|000027f0| 00 00 00 00 03 0d 02 1a | ff e2 ff e3 03 2c 02 36 |........|.....,.6|
|00002800| 03 03 05 7b 03 e0 00 02 | 00 00 00 48 00 48 00 00 |...{....|...H.H..|
|00002810| 00 00 03 0d 02 1a 00 01 | 00 00 00 64 00 00 00 01 |........|...d....|
|00002820| 00 03 03 03 00 ff 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 60 08 00 19 01 90 |........|..`.....|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 08 00 00 |.......M|onaco...|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 00 00 00 00 00 00 00 04 | 01 00 00 01 00 00 00 00 |........|........|
|000028b0| 00 01 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 01 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 48 |........|.......H|
|000028f0| 00 09 4d 6f 6e 61 63 6f | 00 00 00 00 00 00 00 00 |..Monaco|........|
|00002900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002910| 00 00 00 03 00 04 00 5a | 00 04 01 cd 02 63 00 5a |.......Z|.....c.Z|
|00002920| 00 04 01 cd 02 63 ae 4d | e7 e2 00 00 00 00 00 00 |.....c.M|........|
|00002930| 00 00 00 00 00 00 01 00 | 00 00 00 04 00 01 00 01 |........|........|
|00002940| 00 00 01 00 00 00 02 c0 | 00 00 01 c0 00 00 00 5a |........|.......Z|
|00002950| 00 61 fd 0c 0f cc 00 00 | 00 1c 00 5a 00 02 42 42 |.a......|...Z..BB|
|00002960| 53 52 00 00 00 1a 4d 50 | 53 52 00 00 00 26 4d 57 |SR....MP|SR...&MW|
|00002970| 42 42 00 00 00 32 02 50 | ff ff 00 00 00 00 00 00 |BB...2.P|........|
|00002980| 00 00 03 ed ff ff 00 00 | 01 6c 00 00 00 00 03 f0 |........|.l......|
|00002990| ff ff 00 00 01 b8 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
