home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / flexcat-1.5.lha / FlexCat / languages / polski.asm next >
Assembly Source File  |  1994-12-07  |  14KB  |  622 lines
  1. From comp.sys.amiga.programmer Wed Nov 30 12:13:37 1994
  2. Path: newsserv.zdv.uni-tuebingen.de!news.belwue.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!xlink.net!howland.reston.ans.net!pipex!uunet!newsfeed.ACO.net!fuw.edu.pl!news.nask.org.pl!ci.pwr.wroc.pl!pro37
  3. From: pro37@sun1000.ci.pwr.wroc.pl (laboratorium dydaktyczne)
  4. Newsgroups: comp.sys.amiga.programmer
  5. Subject: Re: Making .languages
  6. Date: 24 Nov 1994 10:27:09 GMT
  7. Organization: Technical Univeristy of Wroclaw
  8. Lines: 607
  9. Message-ID: <3b1ppt$8pc@sun1000.ci.pwr.wroc.pl>
  10. References: <39vpt4$obs@trane.uninett.no> <kilroy.03nn@spit.fipnet.fi> <3acr05$aae@holly.csv.warwick.ac.uk>
  11. NNTP-Posting-Host: ci3ux.ci.pwr.wroc.pl
  12. X-Newsreader: TIN [version 1.2 PL2]
  13.  
  14. Hi everybody!
  15.  
  16.   Yesterday I posted  a source for making your own .language. That version
  17. didn't support localized comparison, because I thought no WB .lnaguage has
  18. this feature. But as Rafael D'Halleweyn pointed out, the dansk.language has
  19. them. So here is updated version. I'm afraid you may have some troubles
  20. understanding layout of two conversion tables. My advice is to think a
  21. little, consult AutoDocs or just change the tables and test them. (You can
  22. use ARexx for quick tests). Of course feel free to contact me.
  23.  
  24. **** Cut here ***************************************************************
  25.  
  26. ; polski.language.asm
  27. ; A program to create polski.language (for localized Polish WB)
  28. ; By changing the strings to your own you can make any language
  29. ; This version supports localized comparison and
  30. ; StrConvert() locale.library function
  31. ; Resourced from V38 dansk.language by Michael Letowski
  32.  
  33.  
  34. ;Init macros - copied from exec/initializers.i
  35.  
  36. INITBYTE    MACRO    ; &offset,&value
  37.     IFLE    (\1)-255    ;If offset <=255
  38.     DC.B    $a0,\1        ;use byte offset
  39.     DC.B    \2,0
  40.     MEXIT            ;exit early
  41.     ENDC
  42.     DC.B    $e0,0
  43.     DC.W    \1
  44.     DC.B    \2,0
  45.     ENDM
  46.  
  47. INITWORD    MACRO    ; &offset,&value
  48.     IFLE    (\1)-255    ;If offset <=255
  49.     DC.B    $90,\1        ;use byte offset
  50.     DC.W    \2
  51.     MEXIT            ;exit early
  52.     ENDC
  53.     DC.B    $d0,0
  54.     DC.W    \1
  55.     DC.W    \2
  56.     ENDM
  57.  
  58. INITLONG    MACRO    ; &offset,&value
  59.     IFLE    (\1)-255    ;If offset <=255
  60.     DC.B    $80,\1        ;use byte offset
  61.     DC.L    \2
  62.     MEXIT            ;exit early
  63.     ENDC
  64.     DC.B    $c0,0
  65.     DC.W    \1
  66.     DC.L    \2
  67.     ENDM
  68.  
  69. ;Other constants
  70. LIBF_CHANGED    equ    $2
  71. LIBF_SUMUSED    equ    $4
  72. MAXSTRMSG        equ    $33
  73. NT_LIBRARY    equ    $9
  74. _LVOFreeMem    equ    -$D2
  75. LN_SUCC        equ    $0
  76. lang_SegList    equ    $22
  77. lang_SysBase    equ    $26
  78. LN_PRED        equ    $4
  79. RTF_AUTOINIT    equ    $80
  80. RTC_MATCHWORD    equ    $4AFC
  81. LIB_POSSIZE    equ    $12
  82. LIB_FLAGS        equ    $E
  83. LIB_NEGSIZE    equ    $10
  84. LIBB_DELEXP    equ    $3
  85. LIB_OPENCNT    equ    $20
  86. ;****************************************************************************
  87. ; A .language is an Amiga shared library and it has normal library structure
  88.  
  89.     SECTION    dansklanguagers000000,CODE
  90. ProgStart
  91.     moveq    #-1,d0
  92.     rts
  93.  
  94. ResidentTag
  95.     dc.w    RTC_MATCHWORD
  96.     dc.l    ResidentTag
  97.     dc.l    EndResident
  98.     dc.b    RTF_AUTOINIT
  99.     dc.b    38        ;Version
  100.     dc.b    NT_LIBRARY
  101.     dc.b    $9C        ;Priority
  102.     dc.l    LanguageName
  103.     dc.l    LanguageID
  104.     dc.l    Init
  105. LanguageName
  106.     dc.b    'polski.language',0    ;Name of your language
  107. LanguageID
  108.     dc.b    'polski 38.3 (23.11.94)',$D,$A,0,0  ;Version string
  109.  
  110.     CNOP    0,4 ;Make sure data is longword aligned
  111. Init    dc.l    42        ;Size of library base data space - don't touch
  112.     dc.l    FuncTable
  113.     dc.l    DataTable
  114.     dc.l    InitRoutine
  115. FuncTable    dc.w    $FFFF
  116.     dc.w    Open-FuncTable    ;$60    ;Open       \
  117.     dc.w    Close-FuncTable    ;$6E    ;Close      | Standard library functions
  118.     dc.w    Expunge-FuncTable    ;$88    ;Expunge  | All functions are given as offsets
  119.     dc.w    Fun1-FuncTable    ;$CE    ;Fun1       / from FuncTable
  120.     dc.w    AvailFun-FuncTable    ;$D2    ;Capabilities - this returns what functions
  121.                                             ;are implemented by Locale
  122.                                             ;each bit of return value represents
  123.                                             ;one function
  124.     dc.w    Fun1-FuncTable    ;$CE    ;Fun1 - I don't know what is it - leave it
  125. ;There is usually no need to supply own ConvToLower and ConvToUpper functions
  126. ;The ones in locale.library are quite good and can deal with most languages
  127. ;You should add your own only in two cases (I think):
  128. ;1. Additional (non-standard) letter chars for your language are placed in 
  129.  $0-$20 or $80 - $C0 area of ASCII code or
  130. ;2.  The distance between small and capitalized letters is not $20
  131.     dc.w    Fun1-FuncTable    ;$CE    ;Fun1 - ConvToLower? - not tested, just suspicion
  132.     dc.w    Fun1-FuncTable    ;$CE    ;Fun1 - ConvToUpper? - see above
  133.     dc.w    GetLocStr-FuncTable    ;$55C    ;GetLocaleStr - you SHOULD implement this one
  134. ;I think that next 11 functions are the IsXXX() (I didn't test it).
  135. ;Again, there is usually no need to add this - I didn't have to
  136. ;See conditions for ConvertToXXX()
  137.     dc.w    Fun1-FuncTable    ;$CE
  138.     dc.w    Fun1-FuncTable    ;$CE
  139.     dc.w    Fun1-FuncTable    ;$CE
  140.     dc.w    Fun1-FuncTable    ;$CE
  141.     dc.w    Fun1-FuncTable    ;$CE
  142.     dc.w    Fun1-FuncTable    ;$CE
  143.     dc.w    Fun1-FuncTable    ;$CE
  144.     dc.w    Fun1-FuncTable    ;$CE
  145.     dc.w    Fun1-FuncTable    ;$CE
  146.     dc.w    Fun1-FuncTable    ;$CE
  147.     dc.w    Fun1-FuncTable    ;$CE
  148.     dc.w    StrConvert-FuncTable;$1D6    ;StrConvert
  149.     dc.w    StrnCmp-FuncTable    ;$DA    ;StrnCmp
  150.     dc.w    $FFFF
  151.  
  152. ;Library initialization data - don't touch
  153. DataTable    INITBYTE    9,$9C            ;ln_Pri
  154.     INITBYTE    8,NT_LIBRARY        ;ln_Type
  155.     INITLONG    $A,LanguageName        ;ln_Name
  156.     INITBYTE    $E,LIBF_CHANGED | LIBF_SUMUSED;lib_Flags
  157.     INITWORD    $14,38            ;lib_Version
  158.     INITWORD    $16,3            ;lib_Revision
  159.     INITLONG    $18,LanguageID        ;lib_IdString
  160.     dc.w    0
  161. *    DataTable    dc.w    $A009
  162. *        dc.w    $9C00
  163. *        dc.w    $A008        
  164. *        dc.w    $900
  165. *        dc.w    $800A
  166. *        dc.l    LanguageName
  167. *        dc.w    $A00E
  168. *        dc.w    $600
  169. *        dc.w    $9014
  170. *        dc.w    $26
  171. *        dc.w    $9016
  172. *        dc.w    3
  173. *        dc.w    $8018
  174. *        dc.l    LanguageID
  175. *        dc.w    0
  176.  
  177. ;Standard functions - don't touch
  178.     nop
  179. InitRoutine    movea.l    d0,a1
  180.     move.l    a0,lang_SegList(a1)
  181.     move.l    a6,lang_SysBase(a1)
  182.     rts
  183.  
  184. Open    addq.w    #1,LIB_OPENCNT(a6)
  185.     bclr    #LIBB_DELEXP,LIB_FLAGS(a6)
  186.     move.l    a6,d0
  187.     rts
  188.  
  189. Close    subq.w    #1,LIB_OPENCNT(a6)
  190.     btst    #LIBB_DELEXP,LIB_FLAGS(a6)
  191.     bne.s    Expun
  192.     moveq    #0,d0
  193.     rts
  194.  
  195. Expun    tst.w    LIB_OPENCNT(a6)
  196.     beq.s    RemoveLib
  197.     moveq    #0,d0
  198.     rts
  199.  
  200. Expunge    tst.w    LIB_OPENCNT(a6)
  201.     beq.s    RemoveLib
  202.     bset    #LIBB_DELEXP,LIB_FLAGS(a6)
  203.     moveq    #0,d0
  204.     rts
  205.  
  206. RemoveLib    movem.l    d2/a5/a6,-(sp)
  207.     movea.l    a6,a5
  208.     movea.l    lang_SysBase(a5),a6
  209.     move.l    lang_SegList(a5),d2
  210.     movea.l    a5,a1
  211.     movea.l    LN_SUCC(a1),a0
  212.     movea.l    LN_PRED(a1),a1
  213.     move.l    a0,LN_SUCC(a1)
  214.     move.l    a1,LN_PRED(a0)
  215.     movea.l    a5,a1
  216.     moveq    #0,d0
  217.     move.w    LIB_NEGSIZE(a5),d0
  218.     suba.l    d0,a1
  219.     add.w    LIB_POSSIZE(a5),d0
  220.     jsr    _LVOFreeMem(a6)
  221.     move.l    d2,d0
  222.     movem.l    (sp)+,d2/a5/a6
  223.     rts
  224.  
  225. Fun1    moveq    #0,d0
  226.     rts
  227.  
  228. ;This returns bit pattern of available functions (not including 4 standard
  229. ;library functions)
  230. AvailFun    move.l    #$18008,d0    ;Available functions
  231.     rts
  232.  
  233. ;You don't need to change the code for StrnCmp() and StrConvert() functions
  234. ;but you should change two char tables below.
  235. ;The tables included in this file are good for Polish language and they work
  236. ;(I have tested this)
  237.  
  238. ; StrnCmp(str1,str2,len,type) - see Locale.doc for more information
  239. ; a1 = str1
  240. ; a2 = str2
  241. ; d0 = len
  242. ; d1 = type
  243.  
  244. StrnCmp    tst.l    d0
  245.     bne.s    Cmp
  246.     rts
  247.  
  248. Cmp    tst.l    d1
  249.     bne.s    Collate
  250. SC_ASCII    movem.l    d2/a2,-(sp)    ;Case insensitive comparison
  251.     lea    Lower2Upper(pc),a0
  252.     moveq    #0,d2
  253. ASCII_CompareLoop
  254.     move.b    (a1)+,d1
  255.     move.b    (a2)+,d2
  256.     move.b    0(a0,d1.w),d1
  257.     cmp.b    0(a0,d2.w),d1
  258.     bne.s    ASCII_Different
  259.     tst.b    d1
  260.     beq.s    ASCII_EndOfString
  261.     subq.l    #1,d0
  262.     bne.s    ASCII_CompareLoop
  263.     movem.l    (sp)+,d2/a2
  264.     rts
  265.  
  266. ASCII_EndOfString
  267.     moveq    #0,d0
  268.     movem.l    (sp)+,d2/a2
  269.     rts
  270.  
  271. ASCII_Different
  272.     bhi.s    ASCII_Higher
  273.     moveq    #-1,d0    ;First string is less than second'
  274.     movem.l    (sp)+,d2/a2
  275.     rts
  276.  
  277. ASCII_Higher
  278.     moveq    #1,d0    ;Second string is greater than first
  279.     movem.l    (sp)+,d2/a2
  280.     rts
  281.  
  282. Collate    subq.l    #1,d1
  283.     bne.s    Collate2
  284. SC_COLLATE1
  285.     movem.l    d2/a2,-(sp)
  286.     lea    IgnoreAccents(pc),a0
  287.     moveq    #0,d2
  288. CL1_CompareLoop
  289.     move.b    (a1)+,d1
  290.     move.b    (a2)+,d2
  291.     move.b    0(a0,d1.w),d1
  292.     cmp.b    0(a0,d2.w),d1
  293.     bne.s    CL1_Different
  294.     tst.b    d1
  295.     beq.s    CL1_EndOfString
  296.     subq.l    #1,d0
  297.     bne.s    CL1_CompareLoop
  298.     movem.l    (sp)+,d2/a2
  299.     rts
  300.  
  301. CL1_EndOfString
  302.     moveq    #0,d0
  303.     movem.l    (sp)+,d2/a2
  304.     rts
  305.  
  306. CL1_Different
  307.     bhi.s    CL1_Higher
  308.     moveq    #-1,d0
  309.     movem.l    (sp)+,d2/a2
  310.     rts
  311.  
  312. CL1_Higher
  313.     moveq    #1,d0
  314.     movem.l    (sp)+,d2/a2
  315.     rts
  316.  
  317. Collate2    subq.l    #1,d1
  318.     bne.s    SC_UNKNOWN
  319. SC_COLLATE2
  320.     movem.l    d2/d3/a2,-(sp)
  321.     lea    IgnoreAccents(pc),a0
  322.     moveq    #0,d2
  323.     moveq    #0,d3
  324. CL2_Loop    move.b    (a1)+,d1
  325.     beq.s    CL2_EndOfString1
  326.     move.b    (a2)+,d2
  327.     cmp.b    d