##rem $Id$
##stringtype E
##shortstrings

/****************************************************************

   This file was created automatically by `%fv'
   from "%f0".

   Do NOT edit by hand!

****************************************************************/

        /* External modules */
MODULE 'locale' , 'libraries/locale'
MODULE 'utility/tagitem'

        /* Object definitions */
OBJECT fc_type
        id      :       LONG
        str     :       LONG
ENDOBJECT

        /* Global variables */
DEF catalog_%b : PTR TO catalog
DEF %i : fc_type


        /* Opening catalog procedure */
PROC open_%b_catalog( loc : PTR TO locale , language : PTR TO CHAR )

        DEF tag , tagarg

        %i.id := %d ; %i.str := %s

        close_%b_catalog()

        IF (localebase AND (catalog_%b = NIL))

                IF language

                        tag := OC_LANGUAGE
                        tagarg := language

                ELSE

                        tag:= TAG_IGNORE

                ENDIF

                catalog_%b := OpenCatalogA( loc , '%b.catalog' ,
                                                                        [       OC_BUILTINLANGUAGE , %l ,
                                                                                tag , tagarg ,
                                                                                OC_VERSION , %v ,
                                                                                TAG_DONE        ])

        ENDIF

ENDPROC

        /* Closing catalog procedure */
PROC close_%b_catalog()

        IF localebase THEN CloseCatalog( catalog_%b )
        catalog_%b := NIL

ENDPROC


        /* Procedure which returns the correct string according to the catalog */
PROC get_%b_string( fcstr : PTR TO fc_type ) RETURN IF catalog_%b THEN GetCatalogStr( catalog_%b , fcstr.id , fcstr.str ) ELSE fcstr.str
/****************************************************************
   End of the automatically created part!
****************************************************************/
