workbench/locale/languages/hungarian.c

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