tools/flexcat/src/sd/E21b.sd

   1 ##rem $Id$
   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         /* External modules */
  15 MODULE 'locale' , 'libraries/locale'
  16 MODULE 'utility/tagitem'
  17
  18         /* Object definitions */
  19 OBJECT fc_type
  20         id      :       LONG
  21         str     :       LONG
  22 ENDOBJECT
  23
  24         /* Global variables */
  25 DEF catalog_%b : PTR TO catalog
  26 DEF %i : fc_type
  27
  28
  29         /* Opening catalog procedure */
  30 PROC open_%b_catalog( loc : PTR TO locale , language : PTR TO CHAR )
  31
  32         DEF tag , tagarg
  33
  34         %i.id := %d ; %i.str := %s
  35
  36         close_%b_catalog()
  37
  38         IF (localebase AND (catalog_%b = NIL))
  39
  40                 IF language
  41
  42                         tag := OC_LANGUAGE
  43                         tagarg := language
  44
  45                 ELSE
  46
  47                         tag:= TAG_IGNORE
  48
  49                 ENDIF
  50
  51                 catalog_%b := OpenCatalogA( loc , '%b.catalog' ,
  52                                                                         [       OC_BUILTINLANGUAGE , %l ,
  53                                                                                 tag , tagarg ,
  54                                                                                 OC_VERSION , %v ,
  55                                                                                 TAG_DONE        ])
  56
  57         ENDIF
  58
  59 ENDPROC
  60
  61         /* Closing catalog procedure */
  62 PROC close_%b_catalog()
  63
  64         IF localebase THEN CloseCatalog( catalog_%b )
  65         catalog_%b := NIL
  66
  67 ENDPROC
  68
  69
  70         /* Procedure which returns the correct string according to the catalog */
  71 PROC get_%b_string( fcstr : PTR TO fc_type ) RETURN IF catalog_%b THEN GetCatalogStr( catalog_%b , fcstr.id , fcstr.str ) ELSE fcstr.str
  72 /****************************************************************
  73    End of the automatically created part!
  74 ****************************************************************/