workbench/locale/languages/polski.c

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