workbench/locale/languages/italian.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: italian.language description file.
   6 */
   7
   8 #include <exec/types.h>
   9 #include <aros/system.h>
  10 #include <exec/resident.h>
  11 #include <exec/libraries.h>
  12 #include <libraries/locale.h>
  13
  14 #include <proto/exec.h>
  15 #include <aros/libcall.h>
  16 #include <aros/asmcall.h>
  17
  18 #include <aros/debug.h>
  19
  20 #define LANGSTR     "italian"           /* String version of above      */
  21 #define NLANGSTR    "italiano"          /* Native version of LANGSTR    */
  22 #define LANGVER     41                  /* Version number of language   */
  23 #define LANGREV     2                   /* Revision number of language  */
  24 #define LANGTAG     "\0$VER: " LANGSTR ".language 41.2 (30.09.2014)"
  25 #define NLANGTAG    "$NLANG:" NLANGSTR
  26
  27 AROS_LD1(STRPTR, getlangstring,
  28     AROS_LHA(ULONG, id, D0),
  29     struct LocaleBase *, LocaleBase, 9, language);
  30
  31 /* ----------------------------------------------------------------------- */
  32
  33 /* Bit masks for locale .language functions. Only implement GetString() */
  34 #define LF_GetLangStr       (1L << 3)
  35
  36 /* Arrays for Italian character type/conversion */
  37 extern const STRPTR __italian_strings[];
  38
  39 /* -------------------------------------------------------------------------
  40    Library definition, you should not need to change any of this.
  41  ------------------------------------------------------------------------- */
  42
  43 struct Language
  44 {
  45     struct Library library;
  46     struct ExecBase *sysbase;
  47     BPTR seglist;
  48 };
  49
  50 extern const UBYTE name[];
  51 extern const UBYTE version[];
  52 extern const APTR inittabl[4];
  53 extern void *const functable[];
  54 extern struct Language *AROS_SLIB_ENTRY(init,language,0)();
  55 AROS_LD1(struct Language *, open,
  56     AROS_LHA(ULONG, version, D0),
  57     struct Language *, language, 1, language);
  58 AROS_LD0(BPTR, close, struct Language *, language, 2, language);
  59 AROS_LD0(BPTR, expunge, struct Language *, language, 3, language);
  60 AROS_LD0I(int, null, struct Language *, language, 0, language);
  61 AROS_LD0(ULONG, mask, struct Language *, language, 5, language);
  62 extern const char end;
  63
  64 int entry(void)
  65 {
  66     return -1;
  67 }
  68
  69 const struct Resident languageTag =
  70 {
  71     RTC_MATCHWORD,
  72     (struct Resident *)&languageTag,
  73     (APTR)&end,
  74     RTF_AUTOINIT,
  75     LANGVER,
  76     NT_LIBRARY,
  77     -120,
  78     (STRPTR)name,
  79     (STRPTR)&version[7],
  80     (ULONG *)inittabl
  81 };
  82
  83 const UBYTE name[]=LANGSTR ".language";
  84 const UBYTE nativelang[]=NLANGTAG;                      /* N.B - MUST come before $VER: */
  85 const UBYTE version[]=LANGTAG;
  86
  87 const ULONG datatable = 0;
  88
  89 const APTR inittabl[4] =
  90 {
  91     (APTR)sizeof(struct Language),
  92     (APTR)functable,
  93     (APTR)&datatable,
  94     &AROS_SLIB_ENTRY(init,language,0)
  95 };
  96
  97 struct ExecBase *SysBase;
  98
  99 AROS_UFH3(struct Language *, AROS_SLIB_ENTRY(init,language,0),
 100     AROS_UFHA(struct Language *, language, D0),
 101     AROS_UFHA(BPTR,             segList, A0),
 102     AROS_UFHA(struct ExecBase *, _SysBase, A6)
 103 )
 104 {
 105     AROS_USERFUNC_INIT
 106
 107     /*
 108         You could just as easily do this bit as the InitResident()
 109         datatable, however this works just as well.
 110     */
 111     language->library.lib_Node.ln_Type = NT_LIBRARY;
 112     language->library.lib_Node.ln_Pri = -120;
 113     language->library.lib_Node.ln_Name = (char *)name;
 114     language->library.lib_Flags = LIBF_SUMUSED | LIBF_CHANGED;
 115     language->library.lib_Version = LANGVER;
 116     language->library.lib_Revision = LANGREV;
 117     language->library.lib_IdString = (APTR)&version[7];
 118
 119     language->seglist = segList;
 120     language->sysbase = _SysBase;
 121     SysBase = _SysBase;
 122
 123     /*
 124         Although it is unlikely, you would return NULL if you for some
 125         unknown reason couldn't open.
 126     */
 127     bug("GetLangStr: Loaded at address %p\n", &AROS_SLIB_ENTRY(getlangstring,language,9));
 128     return language;
 129
 130     AROS_USERFUNC_EXIT
 131 }
 132
 133
 134 AROS_LH1(struct Language *, open,
 135     AROS_LHA(ULONG, version, D0),
 136     struct Language *, language, 1, language)
 137 {
 138     AROS_LIBFUNC_INIT
 139     language->library.lib_OpenCnt++;
 140     language->library.lib_Flags &= ~LIBF_DELEXP;
 141
 142     /* Again return NULL if you could not open */
 143     return language;
 144
 145     AROS_LIBFUNC_EXIT
 146 }
 147
 148 AROS_LH0(BPTR, close, struct Language *, language, 2, language)
 149 {
 150     AROS_LIBFUNC_INIT
 151
 152     if(! --language->library.lib_OpenCnt)
 153     {
 154         /* Delayed expunge pending? */
 155         if(language->library.lib_Flags & LIBF_DELEXP)
 156         {
 157             /* Yes, expunge the library */
 158             return AROS_LC0(BPTR, expunge, struct Language *, language, 3, language);
 159         }
 160     }
 161     return BNULL;
 162     AROS_LIBFUNC_EXIT
 163 }
 164
 165 AROS_LH0(BPTR, expunge, struct Language *, language, 3, language)
 166 {
 167     AROS_LIBFUNC_INIT
 168
 169     BPTR ret;
 170     if(language->library.lib_OpenCnt)
 171     {
 172         /* Can't expunge, we are still open */
 173         language->library.lib_Flags |= LIBF_DELEXP;
 174         return 0;
 175     }
 176
 177     Remove(&language->library.lib_Node);
 178     ret = language->seglist;
 179
 180     FreeMem((UBYTE *)language - language->library.lib_NegSize,
 181             language->library.lib_PosSize + language->library.lib_NegSize);
 182
 183     return ret;
 184
 185     AROS_LIBFUNC_EXIT
 186 }
 187
 188 AROS_LH0I(int, null, struct Language *, language, 0, language)
 189 {
 190     AROS_LIBFUNC_INIT
 191
 192     return 0;
 193
 194     AROS_LIBFUNC_EXIT
 195 }
 196
 197 /* ------------------------------------------------------------------------
 198    Language specific functions
 199  ------------------------------------------------------------------------ */
 200
 201
 202 /* ULONG LanguageMask():
 203     This function is to inform locale.library what functions it should
 204     use from this library. This is done by returning a bitmask containing
 205     1's for functions to use, and 0's for functions to ignore.
 206
 207     Unused bits MUST be 0 for future compatibility.
 208 */
 209 AROS_LH0(ULONG, mask, struct Language *, language, 5, language)
 210 {
 211     AROS_LIBFUNC_INIT
 212
 213     return ( LF_GetLangStr );
 214
 215     AROS_LIBFUNC_EXIT
 216 }
 217
 218 /* STRPTR GetLangString(ULONG num): Language function 3
 219     This function is called by GetLocaleStr() and should return
 220     the string matching the string id passed in as num.
 221 */
 222 AROS_LH1(STRPTR, getlangstring,
 223     AROS_LHA(ULONG, id, D0),
 224     struct LocaleBase *, LocaleBase, 9, language)
 225 {
 226     AROS_LIBFUNC_INIT
 227
 228     //kprintf("\nWe have got to getlangstring\n");
 229
 230     if(id < MAXSTRMSG)
 231         return __italian_strings[id];
 232     else
 233         return NULL;
 234
 235     AROS_LIBFUNC_EXIT
 236 }
 237
 238 /* -----------------------------------------------------------------------
 239    Library function table - you will need to alter this
 240    I have this right here at the end of the library so that I do not
 241    have to have prototypes for the functions. Although you could do that.
 242    ----------------------------------------------------------------------- */
 243
 244 void *const functable[] =
 245 {
 246     &AROS_SLIB_ENTRY(open,language,1),
 247     &AROS_SLIB_ENTRY(close,language,2),
 248     &AROS_SLIB_ENTRY(expunge,language,3),
 249     &AROS_SLIB_ENTRY(null,language,0),
 250     &AROS_SLIB_ENTRY(mask,language,5),
 251
 252     /* Note, shorter function table, as only getlangstring is used */
 253
 254     /* 0 - 3 */
 255     &AROS_SLIB_ENTRY(null, language, 0),
 256     &AROS_SLIB_ENTRY(null, language, 0),
 257     &AROS_SLIB_ENTRY(null, language, 0),
 258     &AROS_SLIB_ENTRY(getlangstring, language, 9),
 259     (void *)-1
 260 };
 261
 262 /*
 263     Note how only the required data structures are kept...
 264
 265     This is the list of strings. It is an array of pointers to strings,
 266     although how it is laid out is implementation dependant.
 267 */
 268 const STRPTR __italian_strings[] =
 269 {
 270     /* A blank string */
 271     "",
 272
 273     /*  The days of the week. Starts with the first day of the week.
 274         In English this would be Sunday, this depends upon the settings
 275         of Locale->CalendarType.
 276     */
 277     "Domenica", "Lunedì", "Martedì", "Mercoledì", "Giovedì",
 278     "Venerdì", "Sabato",
 279
 280     /* Abbreviated days of the week */
 281     "Dom", "Lun", "Mar", "Mer", "Gio", "Ven", "Sab",
 282
 283     /* Months of the year */
 284     "Gennaio", "Febbraio", "Marzo",
 285     "Aprile", "Maggio", "Giugno",
 286     "Luglio", "Agosto", "Settembre",
 287     "Ottobre", "Novembre", "Dicembre",
 288
 289     /* Abbreviated months of the year */
 290     "Gen", "Feb", "Mar", "Apr", "Mag", "Giu",
 291     "Lug", "Ago", "Set", "Ott", "Nov", "Dic",
 292
 293     "Si", /* Yes, affirmative response */
 294     "No", /* No/negative response */
 295
 296     /* AM/PM strings AM 0000 -> 1159, PM 1200 -> 2359 */
 297     "AM", "PM",
 298
 299     /* Soft and hard hyphens */
 300     "-", "-",
 301
 302     /* Open and close quotes */
 303     "\"", "\"",
 304
 305     /* Days: But not actual day names
 306        Yesterday - the day before the current
 307        Today - the current day
 308        Tomorrow - the next day
 309        Future.
 310     */
 311     "Ieri", "Oggi", "Domani", "Futuro",
 312
 313     /* Native language name */
 314     NLANGSTR
 315 };
 316
 317 /* This is the end of ROMtag marker. */
 318 const char end=0;