tools/flexcat/src/sd/ARexx.sd

   1 ##rem $Id: ARexx.sd 253 2014-02-18 11:15:58Z damato $
   2 ##stringtype None
   3
   4 /****************************************************************
   5    Locale support in ARexx
   6
   7    This file was created automatically by `%fv'
   8    from "%f0".
   9
  10    Do NOT edit by hand!
  11
  12    ARexx.sd by Kai Norhausen <kn@tribal.line.org>
  13 ****************************************************************/
  14
  15 TRUE = 1 ; FALSE = 0
  16
  17 locale = TRUE ; DEF_LOC = FALSE
  18
  19 IF ~Show('L',"locale.library") THEN
  20    IF ~AddLib("locale.library",0,-30) THEN DO
  21       SAY "Locale support not available"
  22       locale = FALSE
  23    END
  24
  25 CALL DefineLocaleStrings   /* Set defaults */
  26
  27 cat = OpenCatalog("%b.catalog","%l",%v)
  28
  29 IF cat = 0 THEN
  30    SAY "Error: Could not use localized strings. Using defaults instead."
  31
  32 /* INSERT AREXX PROGRAM HERE
  33    Example: Write all strings to stdout */
  34
  35 SAY GetLocStr(%i)
  36
  37
  38
  39 /* End */
  40
  41 CALL CloseCatalog(cat)
  42 EXIT
  43
  44
  45 /* ##### Subroutines ###### */
  46
  47 GetLocStr:
  48    ARG id .
  49    locstr = GetCatalogStr(cat,id,defstr.id)
  50 RETURN locstr
  51
  52 DefineLocaleStrings:
  53    IF DEF_LOC = TRUE THEN RETURN
  54
  55    /* Define ID numbers  */
  56    %i = %e
  57
  58    /* Define default strings */
  59    defstr.anz = %n
  60    defstr.%i = "%s"
  61
  62    DEF_LOC = TRUE
  63
  64 RETURN