home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / GenerateUmlautTables.zrx < prev    next >
Text File  |  2001-04-03  |  1KB  |  53 lines
  1. /*REXX*/
  2.  
  3. bit7= "[\]{|}~"
  4. ibm= "éôöÑîÅ·"
  5. latin= "ƒ÷‹‰ˆ¸fl"
  6. linux= latin
  7. vt220= latin
  8. ansi= latin
  9.  
  10. /* Generate ZOC ZTR tables for German Umlaut Conversion */
  11.  
  12. call tableout "7bit_to_DosIBM.ztr", bit7, ibm
  13. call tableout "7bit_to_WinAnsi.ztr", bit7, latin
  14. call tableout "7bit_to_Vt220.ztr", bit7, vt220
  15. call tableout "7bit_to_Linux.ztr", bit7, linux
  16. call tableout "DosIBM_to_Ansi.ztr", ibm, ansi
  17. call tableout "WinAnsi_to_IBM.ztr", ansi, ibm
  18. call tableout "DosIBM_to_Vt220.ztr", ibm, vt220
  19.  
  20.  
  21.  
  22.  
  23.  
  24. exit
  25.  
  26. tableout:
  27.     n= arg(1)
  28.     x1= arg(2)
  29.     x2= arg(3)
  30.  
  31.     /*
  32.     ZOC3.93 // TRANSLATE
  33.     // CHARACTER TRANSLATION TABLE (CHANGED ENTRIES ONLY)
  34.     // format: x|Old|New 
  35.     //         x= I (inward) or O (outward), Old/New in hex
  36.     */
  37.  
  38.     say n
  39.     address cmd "DEL "n ">NUL"
  40.     call lineout n, "ZOC3.93 // TRANSLATE"
  41.     do i=1 to length(x1)
  42.         c1= substr(x1, i,1)
  43.         c2= substr(x2, i,1)
  44.  
  45.         call lineout n, "I|"c2x(c1)"|"c2x(c2)
  46.         call lineout n, "O|"c2x(c2)"|"c2x(c1)
  47.     end
  48.     say
  49.  
  50.     return
  51.  
  52.  
  53.