tools/flexcat/src/sd/E30b.sd

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