tools/flexcat/src/sd/RexCat.sd

   1 ##rem $Id: RexCat.sd,v 2.1 2010/02/11 18:46:51 AmigaPhil $
   2 ##stringtype None
   3 /* - Locale support in ARexx (RexCat) - %b
   4 REMOVE THE tls() AND gettlstext() FUNCTIONS FROM YOUR SCRIPT, IF ANY;
   5 AND COPY/PASTE THE NEWER FUNCTIONS BELOW THIS LINE INSTEAD.
   6 (Note: You need to replace these functions each time you update your
   7        script and the Catalog Description is modified.)
   8 --------------------------------------------------------------------- */
   9
  10 /* (RexCat) Function which translates the strings */
  11
  12 tls: PROCEDURE EXPOSE tlstext.
  13
  14   PARSE ARG instring
  15
  16   IF instring = '' THEN RETURN instring
  17   IF LENGTH(instring) > 250 THEN instring = LEFT(instring,250)
  18   XID = "XID_" || C2X(instring)
  19   IF tlstext.XID == 'TLSTEXT.' || XID THEN RETURN instring
  20   IF tlstext.XID = '' THEN RETURN instring
  21
  22   RETURN tlstext.XID
  23
  24
  25 /* (RexCat) Function to load the translation file */
  26
  27 gettlstext: PROCEDURE EXPOSE tlstext.
  28
  29   IF ~SHOW('L',"locale.library") THEN
  30     IF ~ADDLIB("locale.library",0,-30) THEN RETURN 0
  31
  32   cat = OPENCATALOG("%b.catalog","%l",%v)
  33   IF cat = 0 THEN DO
  34     CALL CLOSECATALOG(cat)
  35     RETURN 0
  36   END
  37
  38  tlstext.%i=GETCATALOGSTR(cat,%d,"")
  39
  40   RETURN 1
  41