/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / Andre / LocaleLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 61 6e 64 72 | 65 27 73 20 6c 6f 63 61 |;.; andr|e's loca|
|00000010| 6c 65 6c 69 62 20 20 28 | 72 65 76 20 62 75 6d 36 |lelib  (|rev bum6|
|00000020| 29 00 3b 00 00 21 6c 69 | 62 68 65 61 64 65 72 7b |).;..!li|bheader{|
|00000030| 6c 6f 63 61 6c 65 6c 69 | 62 2c 69 6e 69 74 2c 30 |localeli|b,init,0|
|00000040| 2c 66 69 6e 69 74 2c 30 | 7d 00 00 21 61 66 75 6e |,finit,0|}..!afun|
|00000050| 63 74 69 6f 6e 7b 23 6c | 6f 6e 67 7d 00 21 61 72 |ction{#l|ong}.!ar|
|00000060| 67 73 00 21 6c 69 62 73 | 00 21 73 75 62 73 7b 5f |gs.!libs|.!subs{_|
|00000070| 63 68 65 63 6b 6c 6f 63 | 2b 31 2c 30 2c 30 7d 00 |checkloc|+1,0,0}.|
|00000080| 21 6e 61 6d 65 7b 22 49 | 73 4c 6f 63 61 6c 65 22 |!name{"I|sLocale"|
|00000090| 2c 22 3c 3e 30 20 69 66 | 20 6c 6f 63 61 6c 65 20 |,"<>0 if| locale |
|000000a0| 65 78 69 73 74 73 22 7d | 00 00 21 61 63 6f 6d 6d |exists"}|..!acomm|
|000000b0| 61 6e 64 7b 23 6c 6f 6e | 67 7d 00 21 61 72 67 73 |and{#lon|g}.!args|
|000000c0| 7b 23 73 74 72 69 6e 67 | 7d 00 21 6c 69 62 73 00 |{#string|}.!libs.|
|000000d0| 21 73 75 62 73 7b 5f 67 | 65 74 6c 6f 63 2b 31 2c |!subs{_g|etloc+1,|
|000000e0| 30 2c 30 7d 00 21 6e 61 | 6d 65 7b 22 55 73 65 43 |0,0}.!na|me{"UseC|
|000000f0| 61 74 61 6c 6f 67 22 2c | 22 43 61 74 61 6c 6f 67 |atalog",|"Catalog|
|00000100| 6e 61 6d 65 22 7d 00 00 | 21 61 73 74 61 74 65 6d |name"}..|!astatem|
|00000110| 65 6e 74 00 21 61 72 67 | 73 00 21 6c 69 62 73 00 |ent.!arg|s.!libs.|
|00000120| 21 73 75 62 73 7b 5f 66 | 72 65 65 6c 6f 63 2b 31 |!subs{_f|reeloc+1|
|00000130| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 46 72 65 |,0,0}.!n|ame{"Fre|
|00000140| 65 43 61 74 61 6c 6f 67 | 22 2c 22 22 7d 00 00 21 |eCatalog|",""}..!|
|00000150| 61 66 75 6e 63 74 69 6f | 6e 7b 23 73 74 72 69 6e |afunctio|n{#strin|
|00000160| 67 7d 00 21 61 72 67 73 | 7b 23 6c 6f 6e 67 2c 23 |g}.!args|{#long,#|
|00000170| 73 74 72 69 6e 67 7d 00 | 21 6c 69 62 73 00 21 73 |string}.|!libs.!s|
|00000180| 75 62 73 7b 5f 67 65 74 | 73 74 72 2b 31 2c 30 2c |ubs{_get|str+1,0,|
|00000190| 30 7d 00 21 6e 61 6d 65 | 7b 22 47 65 74 4c 6f 63 |0}.!name|{"GetLoc|
|000001a0| 61 6c 65 53 74 72 22 2c | 22 28 23 53 74 72 69 6e |aleStr",|"(#Strin|
|000001b0| 67 4e 75 6d 62 65 72 2c | 44 65 66 61 75 6c 74 53 |gNumber,|DefaultS|
|000001c0| 74 72 69 6e 67 24 29 22 | 7d 00 00 69 6e 69 74 3a |tring$)"|}..init:|
|000001d0| 21 6e 75 6c 6c 73 75 62 | 7b 5f 63 6f 64 65 69 6e |!nullsub|{_codein|
|000001e0| 69 74 2c 30 2c 30 7d 00 | 00 66 69 6e 69 74 3a 21 |it,0,0}.|.finit:!|
|000001f0| 6e 75 6c 6c 73 75 62 7b | 5f 63 6f 64 65 66 69 6e |nullsub{|_codefin|
|00000200| 69 74 2c 30 2c 30 7d 00 | 00 21 6c 69 62 66 69 6e |it,0,0}.|.!libfin|
|00000210| 7b 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 2c 30 7d 20 |{0,0,0,0|,0,0,0} |
|00000220| 3b 64 6f 6e 27 74 20 63 | 68 61 6e 67 65 21 21 21 |;don't c|hange!!!|
|00000230| 28 63 6c 75 64 67 65 64 | 29 00 00 3b 2d 2d 2d 2d |(cludged|)..;----|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 2e 5f |--------|----..._|
|00000280| 63 6f 64 65 69 6e 69 74 | 3a 00 20 20 80 7a 20 6c |codeinit|:.  .z l|
|00000290| 6f 63 6e 61 6d 65 28 70 | 63 29 2c 61 31 3a 80 81 |ocname(p|c),a1:..|
|000002a0| 23 30 2c 64 30 3a 80 7e | 2e 6c 20 34 2c 61 36 3a |#0,d0:.~|.l 4,a6:|
|000002b0| 80 79 20 5f 4f 70 65 6e | 4c 69 62 72 61 72 79 28 |.y _Open|Library(|
|000002c0| 61 36 29 00 20 20 80 7e | 2e 6c 20 64 30 2c 6c 6f |a6).  .~|.l d0,lo|
|000002d0| 63 62 61 73 65 3a 80 94 | 00 00 2e 5f 63 6f 64 65 |cbase:..|..._code|
|000002e0| 66 69 6e 69 74 3a 00 20 | 20 80 7e 2e 6c 20 6c 6f |finit:. | .~.l lo|
|000002f0| 63 61 64 72 28 70 63 29 | 2c 64 30 3a 80 48 20 6e |cadr(pc)|,d0:.H n|
|00000300| 6f 6c 6f 63 3a 80 7e 2e | 6c 20 64 30 2c 61 30 3a |oloc:.~.|l d0,a0:|
|00000310| 80 7e 2e 6c 20 6c 6f 63 | 62 61 73 65 28 70 63 29 |.~.l loc|base(pc)|
|00000320| 2c 61 36 3a 80 79 20 2d | 33 36 28 61 36 29 00 20 |,a6:.y -|36(a6). |
|00000330| 20 6e 6f 6c 6f 63 3a 00 | 20 20 80 7e 2e 6c 20 6c | noloc:.|  .~.l l|
|00000340| 6f 63 62 61 73 65 28 70 | 63 29 2c 64 30 3a 80 48 |ocbase(p|c),d0:.H|
|00000350| 20 6e 6f 63 6c 6f 73 65 | 3a 80 7e 2e 6c 20 64 30 | noclose|:.~.l d0|
|00000360| 2c 61 31 3a 80 7e 2e 6c | 20 34 2c 61 36 00 20 20 |,a1:.~.l| 4,a6.  |
|00000370| 80 79 20 5f 43 6c 6f 73 | 65 4c 69 62 72 61 72 79 |.y _Clos|eLibrary|
|00000380| 28 61 36 29 3a 80 5b 2e | 6c 20 6c 6f 63 62 61 73 |(a6):.[.|l locbas|
|00000390| 65 3a 6e 6f 63 6c 6f 73 | 65 3a 80 94 00 00 2e 5f |e:noclos|e:....._|
|000003a0| 63 68 65 63 6b 6c 6f 63 | 3a 20 80 7e 2e 6c 20 20 |checkloc|: .~.l  |
|000003b0| 6c 6f 63 62 61 73 65 28 | 70 63 29 2c 64 30 3a 80 |locbase(|pc),d0:.|
|000003c0| 94 00 00 2e 5f 67 65 74 | 6c 6f 63 3a 00 20 20 80 |...._get|loc:.  .|
|000003d0| a7 2e 6c 20 61 30 2c 61 | 30 00 20 20 80 a7 2e 6c |..l a0,a|0.  ...l|
|000003e0| 20 61 32 2c 61 32 00 20 | 20 80 7e 2e 6c 20 20 64 | a2,a2. | .~.l  d|
|000003f0| 30 2c 61 31 00 20 20 80 | 7e 2e 6c 20 6c 6f 63 62 |0,a1.  .|~.l locb|
|00000400| 61 73 65 28 70 63 29 2c | 61 36 00 20 20 80 79 20 |ase(pc),|a6.  .y |
|00000410| 2d 31 35 30 28 61 36 29 | 00 20 20 80 7e 2e 6c 20 |-150(a6)|.  .~.l |
|00000420| 20 64 30 2c 6c 6f 63 61 | 64 72 00 20 20 80 94 00 | d0,loca|dr.  ...|
|00000430| 00 2e 5f 66 72 65 65 6c | 6f 63 3a 00 20 20 80 7e |.._freel|oc:.  .~|
|00000440| 2e 6c 20 6c 6f 63 61 64 | 72 28 70 63 29 2c 64 30 |.l locad|r(pc),d0|
|00000450| 3a 80 48 20 6e 6f 66 72 | 65 65 00 20 20 80 7e 2e |:.H nofr|ee.  .~.|
|00000460| 6c 20 64 30 2c 61 30 3a | 80 7e 2e 6c 20 6c 6f 63 |l d0,a0:|.~.l loc|
|00000470| 62 61 73 65 28 70 63 29 | 2c 61 36 3a 80 79 20 2d |base(pc)|,a6:.y -|
|00000480| 33 36 28 61 36 29 00 20 | 20 80 5b 2e 6c 20 6c 6f |36(a6). | .[.l lo|
|00000490| 63 62 61 73 65 00 6e 6f | 66 72 65 65 3a 00 20 20 |cbase.no|free:.  |
|000004a0| 80 94 00 00 2e 5f 67 65 | 74 73 74 72 3a 00 20 20 |....._ge|tstr:.  |
|000004b0| 80 7e 2e 6c 20 20 6c 6f | 63 61 64 72 28 70 63 29 |.~.l  lo|cadr(pc)|
|000004c0| 2c 61 30 00 20 20 80 7e | 2e 6c 20 20 64 31 2c 61 |,a0.  .~|.l  d1,a|
|000004d0| 31 00 20 20 80 7e 2e 6c | 20 20 6c 6f 63 62 61 73 |1.  .~.l|  locbas|
|000004e0| 65 28 70 63 29 2c 61 36 | 3a 80 79 20 2d 37 32 28 |e(pc),a6|:.y -72(|
|000004f0| 61 36 29 00 20 20 80 7e | 2e 6c 20 20 64 30 2c 61 |a6).  .~|.l  d0,a|
|00000500| 30 00 20 20 80 a7 2e 6c | 20 64 30 2c 64 30 00 20 |0.  ...l| d0,d0. |
|00000510| 20 80 a7 2e 6c 20 2d 28 | 61 32 29 2c 61 33 00 63 | ...l -(|a2),a3.c|
|00000520| 6c 6f 6f 70 3a 00 20 20 | 80 7e 2e 62 20 20 28 61 |loop:.  |.~.b  (a|
|00000530| 30 29 2b 2c 28 61 33 29 | 2b 00 20 20 80 40 2e 6c |0)+,(a3)|+.  .@.l|
|00000540| 20 23 31 2c 64 30 00 20 | 20 80 5c 2e 62 20 23 30 | #1,d0. | .\.b #0|
|00000550| 2c 28 61 30 29 00 20 20 | 80 50 20 63 6c 6f 6f 70 |,(a0).  |.P cloop|
|00000560| 00 20 20 80 94 00 00 6c | 6f 63 6e 61 6d 65 3a 20 |.  ....l|ocname: |
|00000570| 20 80 25 2e 62 20 20 22 | 6c 6f 63 61 6c 65 2e 6c | .%.b  "|locale.l|
|00000580| 69 62 72 61 72 79 22 2c | 30 00 6c 6f 63 62 61 73 |ibrary",|0.locbas|
|00000590| 65 3a 20 20 80 25 2e 6c | 20 20 30 00 6c 6f 63 61 |e:  .%.l|  0.loca|
|000005a0| 64 72 3a 20 20 20 80 25 | 2e 6c 20 20 30 00 00    |dr:   .%|.l  0.. |
+--------+-------------------------+-------------------------+--------+--------+