tools/flexcat/src/sd/E32e.sd

   1 ##rem $Id: E32e.sd 253 2014-02-18 11:15:58Z damato $
   2 ##stringtype E
   3
   4 /****************************************************************
   5
   6    This file was created automatically by `%fv'
   7    from "%f0".
   8
   9    Do NOT edit by hand!
  10
  11 ****************************************************************/
  12
  13 OPT MODULE
  14 OPT REG=5
  15
  16
  17 ->*****
  18 ->** External modules
  19 ->*****
  20 MODULE 'locale' , 'libraries/locale'
  21 MODULE 'utility/tagitem'
  22
  23
  24 ->*****
  25 ->** Object definitions
  26 ->*****
  27 EXPORT OBJECT fc_type PRIVATE
  28   id:LONG
  29   str:PTR TO CHAR
  30 ENDOBJECT
  31
  32 EXPORT OBJECT catalog_%b PUBLIC
  33   %i                    :PTR TO fc_type
  34 ENDOBJECT
  35
  36
  37 ->*****
  38 ->** Global variables
  39 ->*****
  40 DEF cat_%b:PTR TO catalog
  41
  42
  43 ->*****
  44 ->** Creation procedure for fc_type object
  45 ->*****
  46 PROC create(id,str:PTR TO CHAR) OF fc_type
  47
  48   self.id:=id
  49   self.str:=str
  50
  51 ENDPROC
  52
  53 ->*****
  54 ->** Procedure which returns the correct string according to the catalog
  55 ->*****
  56 PROC getstr() OF fc_type IS
  57   IF cat_%b THEN GetCatalogStr(cat_%b,self.id,self.str) ELSE self.str
  58
  59 PROC newcreate(id,stri)
  60 DEF fct:PTR TO fc_type
  61 ENDPROC NEW fct.create(id,stri)
  62
  63
  64 ->*****
  65 ->** Creation procedure for catalog_%b object
  66 ->*****
  67 PROC create() OF catalog_%b
  68   cat_%b:=NIL
  69
  70   self.%i:=newcreate(%d,{str_%e})
  71
  72 ENDPROC
  73
  74 PROC getCatalog() OF catalog_%b IS cat_%b
  75
  76 ->*****
  77 ->** Opening catalog procedure (exported)
  78 ->*****
  79 PROC open(loc=NIL:PTR TO locale,language=NIL:PTR TO CHAR ) OF catalog_%b
  80 DEF tag,
  81     tagarg
  82
  83   self.close()
  84   IF localebase AND (cat_%b=NIL)
  85     IF language
  86       tag:=OC_LANGUAGE
  87       tagarg:=language
  88     ELSE
  89       tag:=TAG_IGNORE
  90     ENDIF
  91
  92     cat_%b:=OpenCatalogA(loc,'%b.catalog',
  93                          [OC_BUILTINLANGUAGE, %l,
  94                           tag,                tagarg,
  95                           OC_VERSION,         %v,
  96                           TAG_DONE,0])
  97
  98   ENDIF
  99
 100 ENDPROC
 101
 102
 103 ->*****
 104 ->** Closing catalog procedure
 105 ->*****
 106 PROC close() OF catalog_%b
 107
 108   IF cat_%b
 109     CloseCatalog(cat_%b)
 110     cat_%b:=NIL
 111   ENDIF
 112
 113 ENDPROC
 114
 115
 116 str_%e: CHAR %s,0
 117
 118
 119 /****************************************************************
 120    End of the automatically created part!
 121 ****************************************************************/