workbench/locale/languages/magyar.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: magyar.language description file.
   6     Lang: english
   7     Char: ISO 8859-2
   8 */
   9
  10 #include <exec/types.h>
  11 #include <aros/system.h>
  12 #include <exec/resident.h>
  13 #include <exec/libraries.h>
  14 #include <libraries/locale.h>
  15
  16 #include <proto/exec.h>
  17 #include <aros/libcall.h>
  18 #include <aros/asmcall.h>
  19
  20 #include <aros/debug.h>
  21
  22 #define LANGSTR     "magyar"    /* String version of above */
  23 #define LANGVER     41          /* Version number of language */
  24 #define LANGREV     0           /* Revision number of language */
  25 #define LANGTAG     "\0$VER: magyar.language 41.0 (25.07.1999)"
  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 German character type/conversion */
  37 extern const STRPTR __magyar_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)();
  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, 4, 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 version[]=LANGTAG;
  85
  86 const ULONG datatable = 0;
  87
  88 const APTR inittabl[4] =
  89 {
  90     (APTR)sizeof(struct Language),
  91     (APTR)functable,
  92     (APTR)&datatable,
  93     &AROS_SLIB_ENTRY(init,language)
  94 };
  95
  96 struct ExecBase *mySysBase;
  97
  98 AROS_UFH3(struct Language *, AROS_SLIB_ENTRY(init,language),
  99     AROS_UFHA(struct Language *, language, D0),
 100     AROS_UFHA(BPTR,             segList, A0),
 101     AROS_UFHA(struct ExecBase *, SysBase, A6)
 102 )
 103 {
 104     AROS_USERFUNC_INIT
 105
 106     /*
 107         You could just as easily do this bit as the InitResident()
 108         datatable, however this works just as well.
 109     */
 110     language->library.lib_Node.ln_Type = NT_LIBRARY;
 111     language->library.lib_Node.ln_Pri = -120;
 112     language->library.lib_Node.ln_Name = (char *)name;
 113     language->library.lib_Flags = LIBF_SUMUSED | LIBF_CHANGED;
 114     language->library.lib_Version = LANGVER;
 115     language->library.lib_Revision = LANGREV;
 116     language->library.lib_IdString = (APTR)&version[7];
 117
 118     language->seglist = segList;
 119     language->sysbase = SysBase;
 120     mySysBase = SysBase;
 121
 122     /*
 123         Although it is unlikely, you would return NULL if you for some
 124         unknown reason couldn't open.
 125     */
 126     bug("GetLangStr: Loaded at address %p\n", &AROS_SLIB_ENTRY(getlangstring,language));
 127     return language;
 128
 129     AROS_USERFUNC_EXIT
 130 }
 131
 132 #define SysBase language->sysbase
 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 NULL;
 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, 4, 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 #undef SysBase
 202 #define SysBase mySysBase
 203
 204 /* ULONG LanguageMask():
 205     This function is to inform locale.library what functions it should
 206     use from this library. This is done by returning a bitmask containing
 207     1's for functions to use, and 0's for functions to ignore.
 208
 209     Unused bits MUST be 0 for future compatibility.
 210 */
 211 AROS_LH0(ULONG, mask, struct Language *, language, 5, language)
 212 {
 213     AROS_LIBFUNC_INIT
 214
 215     return ( LF_GetLangStr );
 216
 217     AROS_LIBFUNC_EXIT
 218 }
 219
 220 /* STRPTR GetLangString(ULONG num): Language function 3
 221     This function is called by GetLocaleStr() and should return
 222     the string matching the string id passed in as num.
 223 */
 224 AROS_LH1(STRPTR, getlangstring,
 225     AROS_LHA(ULONG, id, D0),
 226     struct LocaleBase *, LocaleBase, 9, language)
 227 {
 228     AROS_LIBFUNC_INIT
 229
 230     //kprintf("\nWe have got to getlangstring\n");
 231
 232     if(id < MAXSTRMSG)
 233         return __magyar_strings[id];
 234     else
 235         return NULL;
 236
 237     AROS_LIBFUNC_EXIT
 238 }
 239
 240 /* -----------------------------------------------------------------------
 241    Library function table - you will need to alter this
 242    I have this right here at the end of the library so that I do not
 243    have to have prototypes for the functions. Although you could do that.
 244    ----------------------------------------------------------------------- */
 245
 246 void *const functable[] =
 247 {
 248     &AROS_SLIB_ENTRY(open,language),
 249     &AROS_SLIB_ENTRY(close,language),
 250     &AROS_SLIB_ENTRY(expunge,language),
 251     &AROS_SLIB_ENTRY(null,language),
 252     &AROS_SLIB_ENTRY(mask,language),
 253
 254     /* Note, shorter function table, as only getlangstring is used */
 255
 256     /* 0 - 3 */
 257     &AROS_SLIB_ENTRY(null, language),
 258     &AROS_SLIB_ENTRY(null, language),
 259     &AROS_SLIB_ENTRY(null, language),
 260     &AROS_SLIB_ENTRY(getlangstring, language),
 261     (void *)-1
 262 };
 263
 264 /*
 265     Note how only the required data structures are kept...
 266
 267     This is the list of strings. It is an array of pointers to strings,
 268     although how it is laid out is implementation dependant.
 269 */
 270 const STRPTR __magyar_strings[] =
 271 {
 272     /* A blank string */
 273     "",
 274
 275     /*  The days of the week. Starts with the first day of the week.
 276         In English this would be Sunday, this depends upon the settings
 277         of Locale->CalendarType.
 278     */
 279     "Hétfô", "Kedd", "Szerda", "Csütörtök", "Péntek",
 280     "Szombat", "Vasárnap",
 281
 282     /* Abbreviated days of the week */
 283     "H", "K", "Sz", "Cs", "P", "Szo", "V",
 284
 285     /* Months of the year */
 286     "Január", "Február", "Március",
 287     "Április", "Május", "Június",
 288     "Julius", "Augusztus", "Szeptember",
 289     "Október", "November", "December",
 290
 291     /* Abbreviated months of the year */
 292     "I", "II", "III", "IV", "V", "VI",
 293     "VII", "VIII", "IX", "X", "XI", "XII",
 294
 295     "Igen", /* Yes, affirmative response */
 296     "Nem", /* No/negative response */
 297
 298     /* AM/PM strings AM 0000 -> 1159, PM 1200 -> 2359 */
 299     "Délelôtt", "Délután",
 300
 301     /* Soft and hard hyphens */
 302     "-", "-",
 303
 304     /* Open and close quotes */
 305     "\"", "\"",
 306
 307     /* Days: But not actual day names
 308        Yesterday - the day before the current
 309        Today - the current day
 310        Tomorrow - the next day
 311        Future.
 312     */
 313     "Tegnap", "Ma", "Holnap", "Jövô"
 314 };
 315
 316 /* This is the end of ROMtag marker. */
 317 const char end=0;