/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / applise / !Libraries / !UtilsLib / Library

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3f 20 f4 20 3e | 24 2e 21 55 74 69 6c 73 |...? . >|$.!Utils|
|00000010| 4c 69 62 2e 4c 69 62 72 | 61 72 79 20 28 47 65 6e |Lib.Libr|ary (Gen|
|00000020| 65 72 61 6c 20 50 75 72 | 70 6f 73 65 20 50 72 6f |eral Pur|pose Pro|
|00000030| 63 65 64 75 72 65 20 4c | 69 62 72 61 72 79 29 0d |cedure L|ibrary).|
|00000040| 00 14 29 20 f4 20 20 76 | 65 72 73 69 6f 6e 20 31 |..) .  v|ersion 1|
|00000050| 2e 30 30 20 a9 20 31 39 | 39 30 20 4d 2e 20 44 2e |.00 . 19|90 M. D.|
|00000060| 20 57 6f 6f 64 69 6e 67 | 0d 00 1e 05 20 0d 00 28 | Wooding|.... ..(|
|00000070| 05 20 0d 00 32 1a 20 dd | 20 a4 5f 55 74 69 6c 5f |. ..2. .| ._Util_|
|00000080| 76 65 72 73 69 6f 6e 3d | 31 2e 30 30 0d 00 3c 05 |version=|1.00..<.|
|00000090| 20 0d 00 46 39 20 dd 20 | a4 5f 55 74 69 6c 5f 63 | ..F9 . |._Util_c|
|000000a0| 65 6e 74 72 65 5f 70 6f | 73 28 6c 65 6e 25 2c 6d |entre_po|s(len%,m|
|000000b0| 61 78 5f 6c 65 6e 25 29 | 3d 28 6d 61 78 5f 6c 65 |ax_len%)|=(max_le|
|000000c0| 6e 25 2d 6c 65 6e 25 29 | 2f 32 0d 00 50 05 20 0d |n%-len%)|/2..P. .|
|000000d0| 00 5a 23 20 dd 20 f2 5f | 55 74 69 6c 5f 67 65 74 |.Z# . ._|Util_get|
|000000e0| 5f 6d 6f 64 65 5f 73 63 | 61 6c 65 28 6d 6f 64 65 |_mode_sc|ale(mode|
|000000f0| 25 29 0d 00 64 2d 20 c8 | 99 20 22 4f 53 5f 52 65 |%)..d- .|. "OS_Re|
|00000100| 61 64 4d 6f 64 65 56 61 | 72 69 61 62 6c 65 22 2c |adModeVa|riable",|
|00000110| 6d 6f 64 65 25 2c 34 20 | b8 20 2c 2c 78 73 25 0d |mode%,4 |. ,,xs%.|
|00000120| 00 6e 2d 20 c8 99 20 22 | 4f 53 5f 52 65 61 64 4d |.n- .. "|OS_ReadM|
|00000130| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c 6d 6f 64 |odeVaria|ble",mod|
|00000140| 65 25 2c 35 20 b8 20 2c | 2c 79 73 25 0d 00 78 06 |e%,5 . ,|,ys%..x.|
|00000150| 20 e1 0d 00 82 05 20 0d | 00 8c 24 20 dd 20 f2 5f | ..... .|..$ . ._|
|00000160| 55 74 69 6c 5f 67 72 61 | 70 68 5f 74 6f 5f 74 65 |Util_gra|ph_to_te|
|00000170| 78 74 28 67 78 25 2c 67 | 79 25 29 0d 00 96 1d 20 |xt(gx%,g|y%).... |
|00000180| f2 5f 55 74 69 6c 5f 67 | 65 74 5f 6d 6f 64 65 5f |._Util_g|et_mode_|
|00000190| 73 63 61 6c 65 28 eb 29 | 0d 00 a0 15 20 74 78 25 |scale(.)|.... tx%|
|000001a0| 3d 67 78 25 2f 28 38 3c | 3c 78 73 25 29 0d 00 aa |=gx%/(8<|<xs%)...|
|000001b0| 1c 20 74 79 25 3d 28 31 | 30 32 33 2d 67 79 25 29 |. ty%=(1|023-gy%)|
|000001c0| 2f 28 38 3c 3c 79 73 25 | 29 0d 00 b4 06 20 e1 0d |/(8<<ys%|).... ..|
|000001d0| 00 be 05 20 0d 00 c8 24 | 20 dd 20 f2 5f 55 74 69 |... ...$| . ._Uti|
|000001e0| 6c 5f 74 65 78 74 5f 74 | 6f 5f 67 72 61 70 68 28 |l_text_t|o_graph(|
|000001f0| 74 78 25 2c 74 79 25 29 | 0d 00 d2 1d 20 f2 5f 55 |tx%,ty%)|.... ._U|
|00000200| 74 69 6c 5f 67 65 74 5f | 6d 6f 64 65 5f 73 63 61 |til_get_|mode_sca|
|00000210| 6c 65 28 eb 29 0d 00 dc | 15 20 67 78 25 3d 74 78 |le(.)...|. gx%=tx|
|00000220| 25 2a 28 38 3c 3c 78 73 | 25 29 0d 00 e6 1a 20 67 |%*(8<<xs|%).... g|
|00000230| 79 25 3d 31 30 32 33 2d | 74 79 25 2a 28 38 3c 3c |y%=1023-|ty%*(8<<|
|00000240| 79 73 25 29 0d 00 f0 06 | 20 e1 0d 00 fa 05 20 0d |ys%)....| ..... .|
|00000250| 01 04 1a 20 dd 20 a4 5f | 55 74 69 6c 5f 73 74 72 |... . ._|Util_str|
|00000260| 69 6e 67 28 70 74 72 25 | 29 0d 01 0e 11 20 ea 20 |ing(ptr%|).... . |
|00000270| 70 25 2c 73 74 72 69 6e | 67 24 0d 01 18 0c 20 70 |p%,strin|g$.... p|
|00000280| 25 3d 70 74 72 25 0d 01 | 22 0f 20 73 74 72 69 6e |%=ptr%..|". strin|
|00000290| 67 24 3d 22 22 0d 01 2c | 0e 20 c8 95 20 3f 70 25 |g$=""..,|. .. ?p%|
|000002a0| 3e 33 31 0d 01 36 16 20 | 20 20 73 74 72 69 6e 67 |>31..6. |  string|
|000002b0| 24 2b 3d bd 28 3f 70 25 | 29 0d 01 40 0c 20 20 20 |$+=.(?p%|)..@.   |
|000002c0| 70 25 2b 3d 31 0d 01 4a | 06 20 ce 0d 01 54 0d 20 |p%+=1..J|. ...T. |
|000002d0| 3d 73 74 72 69 6e 67 24 | 0d 01 5e 05 20 0d 01 68 |=string$|..^. ..h|
|000002e0| 27 20 dd 20 a4 5f 55 74 | 69 6c 5f 73 70 72 69 74 |' . ._Ut|il_sprit|
|000002f0| 65 5f 65 78 69 73 74 28 | 6e 61 6d 65 24 2c 61 72 |e_exist(|name$,ar|
|00000300| 65 61 25 29 0d 01 72 0d | 20 ea 20 65 72 72 6f 72 |ea%)..r.| . error|
|00000310| 25 0d 01 7c 0f 20 c8 8e | 20 61 72 65 61 25 20 ca |%..|. ..| area% .|
|00000320| 0d 01 86 0b 20 20 20 c9 | 20 2d 32 0d 01 90 2f 20 |....   .| -2.../ |
|00000330| 20 20 20 20 c8 99 20 22 | 58 57 69 6d 70 5f 53 70 |    .. "|XWimp_Sp|
|00000340| 72 69 74 65 4f 70 22 2c | 34 30 2c 2c 6e 61 6d 65 |riteOp",|40,,name|
|00000350| 24 20 b8 20 65 72 72 6f | 72 25 0d 01 9a 0b 20 20 |$ . erro|r%....  |
|00000360| 20 c9 20 2d 31 0d 01 a4 | 2d 20 20 20 20 20 c8 99 | . -1...|-     ..|
|00000370| 20 22 58 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c | "XOS_Sp|riteOp",|
|00000380| 34 30 2c 2c 6e 61 6d 65 | 24 20 b8 20 65 72 72 6f |40,,name|$ . erro|
|00000390| 72 25 0d 01 ae 08 20 20 | 20 7f 0d 01 b8 36 20 20 |r%....  | ....6  |
|000003a0| 20 20 20 c8 99 20 22 58 | 4f 53 5f 53 70 72 69 74 |   .. "X|OS_Sprit|
|000003b0| 65 4f 70 22 2c 34 30 2b | 32 35 36 2c 61 72 65 61 |eOp",40+|256,area|
|000003c0| 25 2c 6e 61 6d 65 24 20 | b8 20 65 72 72 6f 72 25 |%,name$ |. error%|
|000003d0| 0d 01 c2 06 20 cb 0d 01 | cc 3a 20 e7 20 a4 5f 55 |.... ...|.: . ._U|
|000003e0| 74 69 6c 5f 73 74 72 69 | 6e 67 28 65 72 72 6f 72 |til_stri|ng(error|
|000003f0| 25 2b 34 29 3d 22 53 70 | 72 69 74 65 20 64 6f 65 |%+4)="Sp|rite doe|
|00000400| 73 6e 27 74 20 65 78 69 | 73 74 22 20 8c 20 3d a3 |sn't exi|st" . =.|
|00000410| 0d 01 d6 07 20 3d b9 0d | 01 e0 05 20 0d 01 ea 22 |.... =..|... ..."|
|00000420| 20 dd 20 a4 5f 55 74 69 | 6c 5f 70 61 72 73 65 5f | . ._Uti|l_parse_|
|00000430| 74 6f 28 74 65 78 74 24 | 2c 64 65 6c 24 29 0d 01 |to(text$|,del$)..|
|00000440| f4 0a 20 ea 20 69 6e 25 | 0d 01 fe 15 20 69 6e 25 |.. . in%|.... in%|
|00000450| 3d a7 74 65 78 74 24 2c | 64 65 6c 24 29 0d 02 08 |=.text$,|del$)...|
|00000460| 0c 20 e7 20 69 6e 25 20 | 8c 0d 02 12 15 20 20 20 |. . in% |.....   |
|00000470| 3d c0 74 65 78 74 24 2c | 69 6e 25 2d 31 29 0d 02 |=.text$,|in%-1)..|
|00000480| 1c 06 20 cc 0d 02 26 0d | 20 20 20 3d 74 65 78 74 |.. ...&.|   =text|
|00000490| 24 0d 02 30 06 20 cd 0d | 02 3a 05 20 0d 02 44 24 |$..0. ..|.:. ..D$|
|000004a0| 20 dd 20 a4 5f 55 74 69 | 6c 5f 70 61 72 73 65 5f | . ._Uti|l_parse_|
|000004b0| 66 72 6f 6d 28 74 65 78 | 74 24 2c 64 65 6c 24 29 |from(tex|t$,del$)|
|000004c0| 0d 02 4e 0a 20 ea 20 69 | 6e 25 0d 02 58 15 20 69 |..N. . i|n%..X. i|
|000004d0| 6e 25 3d a7 74 65 78 74 | 24 2c 64 65 6c 24 29 0d |n%=.text|$,del$).|
|000004e0| 02 62 0c 20 e7 20 69 6e | 25 20 8c 0d 02 6c 15 20 |.b. . in|% ...l. |
|000004f0| 20 20 3d c1 74 65 78 74 | 24 2c 69 6e 25 2b 31 29 |  =.text|$,in%+1)|
|00000500| 0d 02 76 06 20 cc 0d 02 | 80 0a 20 20 20 3d 22 22 |..v. ...|..   =""|
|00000510| 0d 02 8a 06 20 cd 0d 02 | 94 04 0d 02 9e 26 20 dd |.... ...|.....& .|
|00000520| 20 a4 5f 55 74 69 6c 5f | 6c 69 62 5f 65 6e 73 75 | ._Util_|lib_ensu|
|00000530| 72 65 28 6c 69 62 6e 61 | 6d 65 24 2c 76 65 72 29 |re(libna|me$,ver)|
|00000540| 0d 02 a8 0b 20 ea 20 76 | 65 72 73 0d 02 b2 22 20 |.... . v|ers..." |
|00000550| f2 5f 55 74 69 6c 5f 67 | 65 74 5f 6c 69 62 5f 69 |._Util_g|et_lib_i|
|00000560| 6e 66 6f 28 6c 69 62 6e | 61 6d 65 24 29 0d 02 bc |nfo(libn|ame$)...|
|00000570| 1a 20 c8 9b 20 73 79 73 | 76 61 72 24 2b 22 2e 4c |. .. sys|var$+".L|
|00000580| 69 62 72 61 72 79 22 0d | 02 c6 2f 20 76 65 72 73 |ibrary".|../ vers|
|00000590| 3d a4 5f 55 74 69 6c 5f | 6c 69 62 5f 63 61 6c 6c |=._Util_|lib_call|
|000005a0| 28 70 72 65 66 69 78 24 | 2c 22 76 65 72 73 69 6f |(prefix$|,"versio|
|000005b0| 6e 22 2c 22 22 29 0d 02 | d0 43 20 e7 20 76 65 72 |n","")..|.C . ver|
|000005c0| 3e 76 65 72 73 20 8c 20 | 85 20 32 35 35 2c 22 4c |>vers . |. 255,"L|
|000005d0| 69 62 72 61 72 79 20 27 | 22 2b 6c 69 62 6e 61 6d |ibrary '|"+libnam|
|000005e0| 65 24 2b 22 27 20 6e 6f | 74 20 72 65 63 65 6e 74 |e$+"' no|t recent|
|000005f0| 20 65 6e 6f 75 67 68 21 | 22 0d 02 da 0a 20 3d 76 | enough!|".... =v|
|00000600| 65 72 73 0d 02 e4 04 0d | 02 ee 24 20 dd 20 f2 5f |ers.....|..$ . ._|
|00000610| 55 74 69 6c 5f 67 65 74 | 5f 6c 69 62 5f 69 6e 66 |Util_get|_lib_inf|
|00000620| 6f 28 6c 69 62 6e 61 6d | 65 24 29 0d 02 f8 28 20 |o(libnam|e$)...( |
|00000630| ea 20 66 69 6c 65 25 2c | 6c 69 6e 65 24 2c 6e 61 |. file%,|line$,na|
|00000640| 78 74 25 2c 63 6f 6d 6d | 61 6e 64 24 2c 70 61 72 |xt%,comm|and$,par|
|00000650| 61 6d 24 0d 03 02 15 20 | 70 72 65 66 69 78 24 3d |am$.... |prefix$=|
|00000660| 6c 69 62 6e 61 6d 65 24 | 0d 03 0c 26 20 63 6f 70 |libname$|...& cop|
|00000670| 79 72 69 67 68 74 24 3d | 22 4e 6f 6e 65 20 2d 20 |yright$=|"None - |
|00000680| 70 75 62 6c 69 63 20 64 | 6f 6d 61 69 6e 22 0d 03 |public d|omain"..|
|00000690| 16 2b 20 70 75 72 70 6f | 73 65 24 3d 22 54 6f 20 |.+ purpo|se$="To |
|000006a0| 62 65 20 63 6f 6d 70 6c | 65 74 65 6c 79 20 69 72 |be compl|etely ir|
|000006b0| 72 65 6c 65 76 61 6e 74 | 22 0d 03 20 21 20 73 79 |relevant|".. ! sy|
|000006c0| 73 76 61 72 24 3d 22 3c | 22 2b 6c 69 62 6e 61 6d |svar$="<|"+libnam|
|000006d0| 65 24 2b 22 24 44 69 72 | 3e 22 0d 03 2a 22 20 66 |e$+"$Dir|>"..*" f|
|000006e0| 69 6c 65 25 3d 8e 28 73 | 79 73 76 61 72 24 2b 22 |ile%=.(s|ysvar$+"|
|000006f0| 2e 4c 69 62 44 65 66 69 | 6e 65 22 29 0d 03 34 12 |.LibDefi|ne")..4.|
|00000700| 20 e7 20 66 69 6c 65 25 | 3d 30 20 8c 20 e1 0d 03 | . file%|=0 . ...|
|00000710| 3e 06 20 f5 0d 03 48 0f | 20 20 20 6c 69 6e 65 24 |>. ...H.|   line$|
|00000720| 3d 22 22 0d 03 52 08 20 | 20 20 f5 0d 03 5c 17 20 |=""..R. |  ...\. |
|00000730| 20 20 20 20 6e 65 78 74 | 25 3d 9a 20 23 66 69 6c |    next|%=. #fil|
|00000740| 65 25 0d 03 66 18 20 20 | 20 20 20 6c 69 6e 65 24 |e%..f.  |   line$|
|00000750| 2b 3d bd 28 6e 65 78 74 | 25 29 0d 03 70 1e 20 20 |+=.(next|%)..p.  |
|00000760| 20 fd 20 6e 65 78 74 25 | 3d 31 30 20 84 20 c5 20 | . next%|=10 . . |
|00000770| 23 66 69 6c 65 25 3d b9 | 0d 03 7a 36 20 20 20 e7 |#file%=.|..z6   .|
|00000780| 20 6e 65 78 74 25 3d 31 | 30 20 8c 20 6c 69 6e 65 | next%=1|0 . line|
|00000790| 24 3d a4 5f 55 74 69 6c | 5f 70 61 72 73 65 5f 74 |$=._Util|_parse_t|
|000007a0| 6f 28 6c 69 6e 65 24 2c | bd 28 31 30 29 29 0d 03 |o(line$,|.(10))..|
|000007b0| 84 2a 20 20 20 63 6f 6d | 6d 61 6e 64 24 3d a4 5f |.*   com|mand$=._|
|000007c0| 55 74 69 6c 5f 70 61 72 | 73 65 5f 74 6f 28 6c 69 |Util_par|se_to(li|
|000007d0| 6e 65 24 2c 22 20 22 29 | 0d 03 8e 2a 20 20 20 70 |ne$," ")|...*   p|
|000007e0| 61 72 61 6d 24 3d a4 5f | 55 74 69 6c 5f 70 61 72 |aram$=._|Util_par|
|000007f0| 73 65 5f 66 72 6f 6d 28 | 6c 69 6e 65 24 2c 22 20 |se_from(|line$," |
|00000800| 22 29 0d 03 98 14 20 20 | 20 c8 8e 20 63 6f 6d 6d |")....  | .. comm|
|00000810| 61 6e 64 24 20 ca 0d 03 | a2 0d 20 20 20 20 c9 20 |and$ ...|..    . |
|00000820| 22 3b 22 0d 03 ac 1c 20 | 20 20 20 20 f4 20 6c 69 |";".... |    . li|
|00000830| 6e 65 20 69 73 20 61 20 | 63 6f 6d 6d 65 6e 74 0d |ne is a |comment.|
|00000840| 03 b6 13 20 20 20 20 c9 | 20 22 50 72 65 66 69 78 |...    .| "Prefix|
|00000850| 3a 22 0d 03 c0 17 20 20 | 20 20 20 70 72 65 66 69 |:"....  |   prefi|
|00000860| 78 24 3d 70 61 72 61 6d | 24 0d 03 ca 16 20 20 20 |x$=param|$....   |
|00000870| 20 c9 20 22 43 6f 70 79 | 72 69 67 68 74 3a 22 0d | . "Copy|right:".|
|00000880| 03 d4 1a 20 20 20 20 20 | 63 6f 70 79 72 69 67 68 |...     |copyrigh|
|00000890| 74 24 3d 70 61 72 61 6d | 24 0d 03 de 14 20 20 20 |t$=param|$....   |
|000008a0| 20 c9 20 22 50 75 72 70 | 6f 73 65 3a 22 0d 03 e8 | . "Purp|ose:"...|
|000008b0| 18 20 20 20 20 20 70 75 | 72 70 6f 73 65 24 3d 70 |.     pu|rpose$=p|
|000008c0| 61 72 61 6d 24 0d 03 f2 | 08 20 20 20 cb 0d 03 fc |aram$...|.   ....|
|000008d0| 0f 20 fd 20 c5 20 23 66 | 69 6c 65 25 0d 04 06 0d |. . . #f|ile%....|
|000008e0| 20 d9 20 23 66 69 6c 65 | 25 0d 04 10 06 20 e1 0d | . #file|%.... ..|
|000008f0| 04 1a 04 0d 04 24 2c 20 | dd 20 a4 5f 55 74 69 6c |.....$, |. ._Util|
|00000900| 5f 6c 69 62 5f 63 61 6c | 6c 28 70 72 65 66 69 78 |_lib_cal|l(prefix|
|00000910| 24 2c 66 75 6e 63 24 2c | 70 61 72 61 6d 24 29 0d |$,func$,|param$).|
|00000920| 04 2e 13 20 ea 20 72 65 | 73 75 6c 74 2c 70 61 72 |... . re|sult,par|
|00000930| 6d 24 0d 04 38 08 20 ea | 20 85 0d 04 42 0d 20 ee |m$..8. .| ...B. .|
|00000940| 20 85 20 ea 20 3d a3 0d | 04 4c 32 20 e7 20 70 61 | . . =..|.L2 . pa|
|00000950| 72 61 6d 24 3d 22 22 20 | 8c 20 70 61 72 6d 24 3d |ram$="" |. parm$=|
|00000960| 22 22 20 8b 20 70 61 72 | 6d 24 3d 22 28 22 2b 70 |"" . par|m$="("+p|
|00000970| 61 72 61 6d 24 2b 22 29 | 22 0d 04 56 2c 20 72 65 |aram$+")|"..V, re|
|00000980| 73 75 6c 74 3d a0 28 22 | 46 4e 5f 22 2b 70 72 65 |sult=.("|FN_"+pre|
|00000990| 66 69 78 24 2b 22 5f 22 | 2b 66 75 6e 63 24 2b 70 |fix$+"_"|+func$+p|
|000009a0| 61 72 6d 24 29 0d 04 60 | 0c 20 3d 72 65 73 75 6c |arm$)..`|. =resul|
|000009b0| 74 0d ff                |                         |t..     |        |
+--------+-------------------------+-------------------------+--------+--------+