home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxalgo.zip / TESTALGO / ToLower.CMD < prev   
OS/2 REXX Batch file  |  1997-08-25  |  3KB  |  77 lines
  1. /* REXX **********************************************/
  2. /*                                                   */
  3. /* Name.......: ToLower.CMD                          */
  4. /* Function...: Test Rexx algorithms for Translate   */
  5. /*              To Lower Case for Umlauts            */
  6. /*                                                   */
  7. /* Author.....: Janosch R. Kowalczyk                 */
  8. /*              Compuserve: 101572,2160              */
  9. /*                                                   */
  10. /* Create date: 26 May 1996                          */
  11. /* Version....: 1.0                                  */
  12. /*                                                   */
  13. /* Changes....: No                                   */
  14. /*                                                   */
  15. /* Notes......: Start this file with PMREXX to see   */
  16. /*              the output lines.                    */
  17. /*                                                   */
  18. /* Made use of GREED.  26 May 1996 / 12:29:24   JRK  */
  19. /*****************************************************/
  20. Arg _string
  21.  
  22. /*===============(Exception handling)================*/
  23. Signal On Failure Name CLEARUP
  24. Signal On Halt    Name CLEARUP
  25. Signal On Syntax  Name CLEARUP
  26.  
  27. If RxFuncQuery('SysLoadFuncs') Then Do
  28.   Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  29.   Call SysLoadFuncs
  30. End /* If RxFuncQuery... */
  31.  
  32. Say 
  33. Say Center( "( TRANSLATE UMLAUTS TO LOWER CASE )", 80, '*')
  34.  
  35. /*------------(Test To Lower Case)---------------*/
  36. string = 'TEST TRANSLATION TO LOWER CASE OF Ä, Ö AND Ü'
  37. Say 'This upper case string ....:' string
  38. Say 'is translated to lower case:' ToLower(string)
  39.  
  40. Say
  41. Call LineOut , "Press any key to exit "
  42. Call LineIn
  43.  
  44. Exit
  45.  
  46. CLEARUP:
  47.   Say
  48.   Say 'GREED001E - Break, Failure or Syntax Error'
  49. Exit
  50.  
  51.  
  52. /*===============(Internal subroutines)===============*/
  53. /*=============(Translate To Lower Case)===============*/
  54. /* :-)                                               8 */
  55. /* Name.......: ToLower                                */
  56. /*                                                     */
  57. /* Function...: Translate entired string to lower      */
  58. /*              case                                   */
  59. /* Call parms.: String to translate                    */
  60. /* Returns....: Translated string                      */
  61. /*                                                     */
  62. /* Syntax.....: lowString = ToLower(upperString)       */
  63. /*                                                     */
  64. /* Changes....: 27.12.1996 - XRange used               */
  65. /*                                                     */
  66. /* Author.....: Janosch R. Kowalczyk                   */
  67. /*=====================================================*/
  68. ToLower: Procedure
  69.  
  70. /*------------(Lower Case entired string)--------------*/
  71. Parse Arg Upper_String
  72.  
  73. Lowers = XRange('a', 'z') || 'äöü'
  74. Uppers = XRange('A', 'Z') || 'ÄÖÜ'
  75.  
  76. Return Translate(Upper_String, Lowers, Uppers)
  77.