home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / dev / misc / flexcat.lha / FlexCat / E21b.sd < prev    next >
Text File  |  1994-03-21  |  2KB  |  68 lines
  1. ##stringtype E
  2. ##shortstrings
  3. /****************************************************************
  4.    This file was created automatically by `FlexCat V1.1'
  5.    Do not edit by hand!
  6. ****************************************************************/
  7.  
  8.  
  9.     /* External modules */
  10. MODULE 'locale', 'libraries/locale'
  11. MODULE 'utility/tagitem'
  12.  
  13.     /* Object definitions */
  14. OBJECT fc_type
  15.     id  :LONG
  16.     str :LONG
  17. ENDOBJECT
  18.  
  19.     /* Global variables */
  20. DEF catalog_%b:PTR TO catalog
  21. DEF array_%b[%n]:ARRAY OF fc_type
  22.  
  23.     /* Constant definitions */
  24. CONST %i = %d
  25.  
  26.  
  27.     /* Opening catalog procedure */
  28. PROC open_%b_catalog(loc:PTR TO locale, language:PTR TO CHAR)
  29.     DEF tag, tagarg, dummy_var = 0
  30.  
  31.     array_%b[dummy_var].id := %i; array_%b[dummy_var++].str := %s
  32.  
  33.     IF (localebase AND (catalog_%b = NIL))
  34.         IF language
  35.             tag := OC_LANGUAGE
  36.             tagarg := language
  37.         ELSE
  38.             tag:= TAG_IGNORE
  39.         ENDIF
  40.  
  41.         catalog_%b := OpenCatalogA(loc, '%b.catalog',
  42.                                     [   OC_BUILTINLANGUAGE, %l,
  43.                                         tag, tagarg,
  44.                                         OC_VERSION, %v,
  45.                                         TAG_DONE    ])
  46.     ENDIF
  47. ENDPROC
  48.     
  49.     /* Closing catalog procedure */
  50. PROC close_%b_catalog()
  51.  
  52.     IF localebase THEN CloseCatalog(catalog_%b)
  53.     catalog_%b := NIL
  54. ENDPROC
  55.  
  56.     /* Procedure which returns the correct string according to the catalog */
  57. PROC get_%b_string(strnum)
  58.     DEF defaultstr:PTR TO CHAR, i = 0
  59.  
  60.     WHILE ((i < %n) AND (array_%b[i].id <> strnum)) DO INC i
  61.     defaultstr := IF (i < %n) THEN array_%b[i].str ELSE NIL
  62.  
  63. ENDPROC IF catalog_%b THEN GetCatalogStr(catalog_%b, strnum, defaultstr) ELSE defaultstr
  64. /****************************************************************
  65.    End of the automatically created part!
  66. ****************************************************************/
  67.  
  68.