4 /****************************************************************
6 This file was created automatically by `%fv'
11 ****************************************************************/
20 MODULE 'locale' , 'libraries/locale'
21 MODULE 'utility/tagitem'
25 ->** Object definitions
27 EXPORT OBJECT fc_type PRIVATE
32 EXPORT OBJECT catalog_%b PUBLIC
40 DEF cat_%b:PTR TO catalog
44 ->** Creation procedure for fc_type object
46 PROC create(id,str:PTR TO CHAR) OF fc_type
54 ->** Procedure which returns the correct string according to the catalog
56 PROC getstr() OF fc_type IS
57 IF cat_%b THEN GetCatalogStr(cat_%b,self.id,self.str) ELSE self.str
59 PROC newcreate(id,stri)
60 DEF fct:PTR TO fc_type
61 ENDPROC NEW fct.create(id,stri)
65 ->** Creation procedure for catalog_%b object
67 PROC create() OF catalog_%b
70 self.%i:=newcreate(%d,{str_%e})
74 PROC getCatalog() OF catalog_%b IS cat_%b
77 ->** Opening catalog procedure (exported)
79 PROC open(loc=NIL:PTR TO locale,language=NIL:PTR TO CHAR ) OF catalog_%b
84 IF localebase AND (cat_%b=NIL)
92 cat_%b:=OpenCatalogA(loc,'%b.catalog',
93 [OC_BUILTINLANGUAGE, %l,
104 ->** Closing catalog procedure
106 PROC close() OF catalog_%b
119 /****************************************************************
120 End of the automatically created part!
121 ****************************************************************/