/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibsrc / RomulusLocaleLib.bb

< 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| 72 6f 6d 75 6c 75 73 6c | 6f 63 61 6c 65 6c 69 62 |romulusl|ocalelib|
|00000040| 2c 69 6e 69 74 2c 30 2c | 66 69 6e 69 74 2c 30 7d |,init,0,|finit,0}|
|00000050| 00 00 21 61 66 75 6e 63 | 74 69 6f 6e 7b 23 6c 6f |..!afunc|tion{#lo|
|00000060| 6e 67 7d 00 21 61 72 67 | 73 00 21 6c 69 62 73 00 |ng}.!arg|s.!libs.|
|00000070| 21 73 75 62 73 7b 5f 63 | 68 65 63 6b 6c 6f 63 2b |!subs{_c|heckloc+|
|00000080| 31 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 7b 22 49 73 |1,0,0}.!|name{"Is|
|00000090| 4c 6f 63 61 6c 65 22 2c | 22 3c 3e 30 20 69 66 20 |Locale",|"<>0 if |
|000000a0| 6c 6f 63 61 6c 65 20 65 | 78 69 73 74 73 22 7d 00 |locale e|xists"}.|
|000000b0| 00 21 61 63 6f 6d 6d 61 | 6e 64 7b 23 6c 6f 6e 67 |.!acomma|nd{#long|
|000000c0| 7d 00 21 61 72 67 73 7b | 23 73 74 72 69 6e 67 7d |}.!args{|#string}|
|000000d0| 00 21 6c 69 62 73 00 21 | 73 75 62 73 7b 5f 67 65 |.!libs.!|subs{_ge|
|000000e0| 74 6c 6f 63 2b 31 2c 30 | 2c 30 7d 00 21 6e 61 6d |tloc+1,0|,0}.!nam|
|000000f0| 65 7b 22 55 73 65 43 61 | 74 61 6c 6f 67 22 2c 22 |e{"UseCa|talog","|
|00000100| 43 61 74 61 6c 6f 67 6e | 61 6d 65 22 7d 00 00 21 |Catalogn|ame"}..!|
|00000110| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000120| 00 21 6c 69 62 73 00 21 | 73 75 62 73 7b 5f 66 72 |.!libs.!|subs{_fr|
|00000130| 65 65 6c 6f 63 2b 31 2c | 30 2c 30 7d 00 21 6e 61 |eeloc+1,|0,0}.!na|
|00000140| 6d 65 7b 22 46 72 65 65 | 43 61 74 61 6c 6f 67 22 |me{"Free|Catalog"|
|00000150| 2c 22 22 7d 00 00 21 61 | 66 75 6e 63 74 69 6f 6e |,""}..!a|function|
|00000160| 7b 23 73 74 72 69 6e 67 | 7d 00 21 61 72 67 73 7b |{#string|}.!args{|
|00000170| 23 6c 6f 6e 67 2c 23 73 | 74 72 69 6e 67 7d 00 21 |#long,#s|tring}.!|
|00000180| 6c 69 62 73 00 21 73 75 | 62 73 7b 5f 67 65 74 73 |libs.!su|bs{_gets|
|00000190| 74 72 2b 31 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 7b |tr+1,0,0|}.!name{|
|000001a0| 22 47 65 74 4c 6f 63 61 | 6c 65 53 74 72 22 2c 22 |"GetLoca|leStr","|
|000001b0| 28 23 53 74 72 69 6e 67 | 4e 75 6d 62 65 72 2c 44 |(#String|Number,D|
|000001c0| 65 66 61 75 6c 74 53 74 | 72 69 6e 67 24 29 22 7d |efaultSt|ring$)"}|
|000001d0| 00 00 69 6e 69 74 3a 21 | 6e 75 6c 6c 73 75 62 7b |..init:!|nullsub{|
|000001e0| 5f 63 6f 64 65 69 6e 69 | 74 2c 30 2c 30 7d 00 00 |_codeini|t,0,0}..|
|000001f0| 66 69 6e 69 74 3a 21 6e | 75 6c 6c 73 75 62 7b 5f |finit:!n|ullsub{_|
|00000200| 63 6f 64 65 66 69 6e 69 | 74 2c 30 2c 30 7d 00 00 |codefini|t,0,0}..|
|00000210| 21 6c 69 62 66 69 6e 7b | 30 2c 30 2c 30 2c 30 2c |!libfin{|0,0,0,0,|
|00000220| 30 2c 30 2c 30 7d 20 3b | 64 6f 6e 27 74 20 63 68 |0,0,0} ;|don't ch|
|00000230| 61 6e 67 65 21 21 21 28 | 63 6c 75 64 67 65 64 29 |ange!!!(|cludged)|
|00000240| 00 00 3b 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 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 00 00 2e 5f 63 | 6f 64 65 69 6e 69 74 3a |---..._c|odeinit:|
|00000290| 00 20 20 80 7a 20 6c 6f | 63 6e 61 6d 65 28 70 63 |.  .z lo|cname(pc|
|000002a0| 29 2c 61 31 3a 80 81 23 | 30 2c 64 30 3a 80 7e 2e |),a1:..#|0,d0:.~.|
|000002b0| 6c 20 34 2c 61 36 3a 80 | 79 20 5f 4f 70 65 6e 4c |l 4,a6:.|y _OpenL|
|000002c0| 69 62 72 61 72 79 28 61 | 36 29 00 20 20 80 7e 2e |ibrary(a|6).  .~.|
|000002d0| 6c 20 64 30 2c 6c 6f 63 | 62 61 73 65 3a 80 94 00 |l d0,loc|base:...|
|000002e0| 00 2e 5f 63 6f 64 65 66 | 69 6e 69 74 3a 00 20 20 |.._codef|init:.  |
|000002f0| 80 7e 2e 6c 20 6c 6f 63 | 61 64 72 28 70 63 29 2c |.~.l loc|adr(pc),|
|00000300| 64 30 3a 80 48 20 6e 6f | 6c 6f 63 3a 80 7e 2e 6c |d0:.H no|loc:.~.l|
|00000310| 20 64 30 2c 61 30 3a 80 | 7e 2e 6c 20 6c 6f 63 62 | d0,a0:.|~.l locb|
|00000320| 61 73 65 28 70 63 29 2c | 61 36 3a 80 79 20 2d 33 |ase(pc),|a6:.y -3|
|00000330| 36 28 61 36 29 00 20 20 | 6e 6f 6c 6f 63 3a 00 20 |6(a6).  |noloc:. |
|00000340| 20 80 7e 2e 6c 20 6c 6f | 63 62 61 73 65 28 70 63 | .~.l lo|cbase(pc|
|00000350| 29 2c 64 30 3a 80 48 20 | 6e 6f 63 6c 6f 73 65 3a |),d0:.H |noclose:|
|00000360| 80 7e 2e 6c 20 64 30 2c | 61 31 3a 80 7e 2e 6c 20 |.~.l d0,|a1:.~.l |
|00000370| 34 2c 61 36 00 20 20 80 | 79 20 5f 43 6c 6f 73 65 |4,a6.  .|y _Close|
|00000380| 4c 69 62 72 61 72 79 28 | 61 36 29 3a 80 5b 2e 6c |Library(|a6):.[.l|
|00000390| 20 6c 6f 63 62 61 73 65 | 3a 6e 6f 63 6c 6f 73 65 | locbase|:noclose|
|000003a0| 3a 80 94 00 00 2e 5f 63 | 68 65 63 6b 6c 6f 63 3a |:....._c|heckloc:|
|000003b0| 20 80 7e 2e 6c 20 20 6c | 6f 63 62 61 73 65 28 70 | .~.l  l|ocbase(p|
|000003c0| 63 29 2c 64 30 3a 80 94 | 00 00 2e 5f 67 65 74 6c |c),d0:..|..._getl|
|000003d0| 6f 63 3a 00 20 20 80 a7 | 2e 6c 20 61 30 2c 61 30 |oc:.  ..|.l a0,a0|
|000003e0| 00 20 20 80 a7 2e 6c 20 | 61 32 2c 61 32 00 20 20 |.  ...l |a2,a2.  |
|000003f0| 80 7e 2e 6c 20 20 64 30 | 2c 61 31 00 20 20 80 7e |.~.l  d0|,a1.  .~|
|00000400| 2e 6c 20 6c 6f 63 62 61 | 73 65 28 70 63 29 2c 61 |.l locba|se(pc),a|
|00000410| 36 00 20 20 80 79 20 2d | 31 35 30 28 61 36 29 00 |6.  .y -|150(a6).|
|00000420| 20 20 80 7e 2e 6c 20 20 | 64 30 2c 6c 6f 63 61 64 |  .~.l  |d0,locad|
|00000430| 72 00 20 20 80 94 00 00 | 2e 5f 66 72 65 65 6c 6f |r.  ....|._freelo|
|00000440| 63 3a 00 20 20 80 7e 2e | 6c 20 6c 6f 63 61 64 72 |c:.  .~.|l locadr|
|00000450| 28 70 63 29 2c 64 30 3a | 80 48 20 6e 6f 66 72 65 |(pc),d0:|.H nofre|
|00000460| 65 00 20 20 80 7e 2e 6c | 20 64 30 2c 61 30 3a 80 |e.  .~.l| d0,a0:.|
|00000470| 7e 2e 6c 20 6c 6f 63 62 | 61 73 65 28 70 63 29 2c |~.l locb|ase(pc),|
|00000480| 61 36 3a 80 79 20 2d 33 | 36 28 61 36 29 00 20 20 |a6:.y -3|6(a6).  |
|00000490| 80 5b 2e 6c 20 6c 6f 63 | 62 61 73 65 00 6e 6f 66 |.[.l loc|base.nof|
|000004a0| 72 65 65 3a 00 20 20 80 | 94 00 00 2e 5f 67 65 74 |ree:.  .|...._get|
|000004b0| 73 74 72 3a 00 20 20 80 | 7e 2e 6c 20 20 6c 6f 63 |str:.  .|~.l  loc|
|000004c0| 61 64 72 28 70 63 29 2c | 61 30 00 20 20 80 7e 2e |adr(pc),|a0.  .~.|
|000004d0| 6c 20 20 64 31 2c 61 31 | 00 20 20 80 7e 2e 6c 20 |l  d1,a1|.  .~.l |
|000004e0| 20 6c 6f 63 62 61 73 65 | 28 70 63 29 2c 61 36 3a | locbase|(pc),a6:|
|000004f0| 80 79 20 2d 37 32 28 61 | 36 29 00 20 20 80 7e 2e |.y -72(a|6).  .~.|
|00000500| 6c 20 20 64 30 2c 61 30 | 00 20 20 80 a7 2e 6c 20 |l  d0,a0|.  ...l |
|00000510| 64 30 2c 64 30 00 20 20 | 80 a7 2e 6c 20 2d 28 61 |d0,d0.  |...l -(a|
|00000520| 32 29 2c 61 33 00 63 6c | 6f 6f 70 3a 00 20 20 80 |2),a3.cl|oop:.  .|
|00000530| 7e 2e 62 20 20 28 61 30 | 29 2b 2c 28 61 33 29 2b |~.b  (a0|)+,(a3)+|
|00000540| 00 20 20 80 40 2e 6c 20 | 23 31 2c 64 30 00 20 20 |.  .@.l |#1,d0.  |
|00000550| 80 5c 2e 62 20 23 30 2c | 28 61 30 29 00 20 20 80 |.\.b #0,|(a0).  .|
|00000560| 50 20 63 6c 6f 6f 70 00 | 20 20 80 94 00 00 6c 6f |P cloop.|  ....lo|
|00000570| 63 6e 61 6d 65 3a 20 20 | 80 25 2e 62 20 20 22 6c |cname:  |.%.b  "l|
|00000580| 6f 63 61 6c 65 2e 6c 69 | 62 72 61 72 79 22 2c 30 |ocale.li|brary",0|
|00000590| 00 6c 6f 63 62 61 73 65 | 3a 20 20 80 25 2e 6c 20 |.locbase|:  .%.l |
|000005a0| 20 30 00 6c 6f 63 61 64 | 72 3a 20 20 20 80 25 2e | 0.locad|r:   .%.|
|000005b0| 6c 20 20 30 00 00       |                         |l  0..  |        |
+--------+-------------------------+-------------------------+--------+--------+