tools/FlexCat/C_h_orig.sd

   1 ##rem $Id$
   2 ##stringtype C
   3 ##shortstrings
   4 /****************************************************************
   5    This file was created automatically by `%fv'
   6    from "%f0".
   7
   8    Do NOT edit by hand!
   9 ****************************************************************/
  10
  11 #ifndef %b_H
  12 #define %b_H
  13
  14
  15 #ifndef EXEC_TYPES_H
  16 #include <exec/types.h>
  17 #endif
  18
  19
  20 #ifdef CATCOMP_ARRAY
  21 #undef CATCOMP_NUMBERS
  22 #undef CATCOMP_STRINGS
  23 #define CATCOMP_NUMBERS
  24 #define CATCOMP_STRINGS
  25 #endif
  26
  27 #ifdef CATCOMP_BLOCK
  28 #undef CATCOMP_STRINGS
  29 #define CATCOMP_STRINGS
  30 #endif
  31
  32 /***************************************************************/
  33
  34
  35 #ifdef CATCOMP_NUMBERS
  36
  37 #define %i %d
  38
  39 #endif /* CATCOMP_NUMBERS */
  40
  41
  42 /***************************************************************/
  43
  44 #ifdef CATCOMP_STRINGS
  45
  46 #define %i_STR %s
  47
  48 #endif /* CATCOMP_STRINGS */
  49
  50
  51 /***************************************************************/
  52
  53
  54 #ifdef CATCOMP_ARRAY
  55
  56 struct CatCompArrayType
  57 {
  58   LONG   cca_ID;
  59   STRPTR cca_Str;
  60 };
  61
  62 static const struct CatCompArrayType CatCompArray[] =
  63 {
  64   {%i,(STRPTR)%i_STR},
  65   {0,NULL}
  66 };
  67
  68 #endif /* CATCOMP_ARRAY */
  69
  70 /***************************************************************/
  71
  72
  73 #ifdef CATCOMP_BLOCK
  74
  75 //static const chat CatCompBlock[] =
  76 //{
  77 //
  78 //};
  79
  80 #endif /* CATCOMP_BLOCK */
  81
  82 /***************************************************************/
  83
  84 struct LocaleInfo
  85 {
  86   APTR li_LocaleBase;
  87   APTR li_Catalog;
  88 };
  89
  90
  91 #ifdef CATCOMP_CODE
  92
  93 STRPTR GetString(struct LocaleInfo *li, LONG stringNum)
  94 {
  95   LONG *l;
  96   UWORD *w;
  97   STRPTR  builtIn;
  98
  99   l = (LONG *)CatCompBlock;
 100
 101   while (*l != stringNum)
 102   {
 103     w = (UWORD *)((IPTR)l + 4);
 104     l = (LONG *)((IPTR)l + (LONG)*w + 6);
 105   }
 106   builtIn = (STRPTR)((IPTR)l + 6);
 107
 108 #define XLocaleBase LocaleBase
 109 #define LocaleBase li->li_LocaleBase
 110
 111   if (LocaleBase)
 112     return(GetCatalogStr(li->li_Catalog,stringNum,builtIn));
 113 #define LocaleBase XLocaleBase
 114 #undef XLocaleBase
 115
 116   return (builtIn);
 117 }
 118
 119 #endif /* CATCOMP_CODE */
 120
 121 /***************************************************************/
 122
 123
 124 #endif