workbench/locale/languages/svenska.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: svenska.language description file.
   6     Lang: English
   7 */
   8
   9 /*  Language file for the svenska language. */
  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     "svenska"   /* String version of above */
  24 #define LANGVER     41          /* Version number of language */
  25 #define LANGREV     0           /* Revision number of language */
  26 #define LANGTAG     "\0$VER: svenska.language 41.0 (03.02.2001)"
  27
  28 AROS_LD1(STRPTR, getlangstring,
  29     AROS_LHA(ULONG, id, D0),
  30     struct LocaleBase *, LocaleBase, 9, language);
  31
  32 /* ----------------------------------------------------------------------- */
  33
  34 /* Bit masks for locale .language functions. Only implement GetString() */
  35 #define LF_GetLangStr       (1L << 3)
  36
  37 /* Arrays for Swedish character type/conversion */
  38 extern const STRPTR __svenska_strings[];
  39
  40 /* -------------------------------------------------------------------------
  41    Library definition, you should not need to change any of this.
  42  ------------------------------------------------------------------------- */
  43
  44 struct Language
  45 {
  46     struct Library library;
  47     struct ExecBase *sysbase;
  48     BPTR seglist;
  49 };
  50
  51 extern const UBYTE name[];
  52 extern const UBYTE version[];
  53 extern const APTR inittabl[4];
  54 extern void *const functable[];
  55 extern struct Language *AROS_SLIB_ENTRY(init,language)();
  56 AROS_LD1(struct Language *, open,
  57     AROS_LHA(ULONG, version, D0),
  58     struct Language *, language, 1, language);
  59 AROS_LD0(BPTR, close, struct Language *, language, 2, language);
  60 AROS_LD0(BPTR, expunge, struct Language *, language, 3, language);
  61 AROS_LD0I(int, null, struct Language *, language, 4, language);
  62 AROS_LD0(ULONG, mask, struct Language *, language, 5, language);
  63 extern const char end;
  64
  65 int entry(void)
  66 {
  67     return -1;
  68 }
  69
  70 const struct Resident languageTag =
  71 {
  72     RTC_MATCHWORD,
  73     (struct Resident *)&languageTag,
  74     (APTR)&end,
  75     RTF_AUTOINIT,
  76     LANGVER,
  77     NT_LIBRARY,
  78     -120,
  79     (STRPTR)name,
  80     (STRPTR)&version[7],
  81     (ULONG *)inittabl
  82 };
  83
  84 const UBYTE name[]=LANGSTR ".language";
  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)
  95 };
  96
  97 struct ExecBase *mySysBase;
  98
  99 AROS_UFH3(struct Language *, AROS_SLIB_ENTRY(init,language),
 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     mySysBase = 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));
 128     return language;
 129
 130     AROS_USERFUNC_EXIT
 131 }
 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
 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 NULL;
 165     AROS_LIBFUNC_EXIT
 166 }
 167
 168
 169 AROS_LH0(BPTR, expunge, struct Language *, language, 3, language)
 170 {
 171     AROS_LIBFUNC_INIT
 172
 173     BPTR ret;
 174     if(language->library.lib_OpenCnt)
 175     {
 176         /* Can't expunge, we are still open */
 177         language->library.lib_Flags |= LIBF_DELEXP;
 178         return 0;
 179     }
 180
 181     Remove(&language->library.lib_Node);
 182     ret = language->seglist;
 183
 184     FreeMem((UBYTE *)language - language->library.lib_NegSize,
 185             language->library.lib_PosSize + language->library.lib_NegSize);
 186
 187     return ret;
 188
 189     AROS_LIBFUNC_EXIT
 190 }
 191
 192
 193 AROS_LH0I(int, null, struct Language *, language, 4, language)
 194 {
 195     AROS_LIBFUNC_INIT
 196
 197     return 0;
 198
 199     AROS_LIBFUNC_EXIT
 200 }
 201
 202 /* ------------------------------------------------------------------------
 203    Language specific functions
 204  ------------------------------------------------------------------------ */
 205
 206 #undef SysBase
 207 #define SysBase mySysBase
 208
 209 /* ULONG LanguageMask():
 210     This function is to inform locale.library what functions it should
 211     use from this library. This is done by returning a bitmask containing
 212     1's for functions to use, and 0's for functions to ignore.
 213
 214     Unused bits MUST be 0 for future compatibility.
 215 */
 216 AROS_LH0(ULONG, mask, struct Language *, language, 5, language)
 217 {
 218     AROS_LIBFUNC_INIT
 219
 220     return ( LF_GetLangStr );
 221
 222     AROS_LIBFUNC_EXIT
 223 }
 224
 225 /* STRPTR GetLangString(ULONG num): Language function 3
 226     This function is called by GetLocaleStr() and should return
 227     the string matching the string id passed in as num.
 228 */
 229 AROS_LH1(STRPTR, getlangstring,
 230     AROS_LHA(ULONG, id, D0),
 231     struct LocaleBase *, LocaleBase, 9, language)
 232 {
 233     AROS_LIBFUNC_INIT
 234
 235     //kprintf("\nWe have got to getlangstring\n");
 236
 237     if(id < MAXSTRMSG)
 238         return __svenska_strings[id];
 239     else
 240         return NULL;
 241
 242     AROS_LIBFUNC_EXIT
 243 }
 244
 245 /* -----------------------------------------------------------------------
 246    Library function table - you will need to alter this
 247    I have this right here at the end of the library so that I do not
 248    have to have prototypes for the functions. Although you could do that.
 249    ----------------------------------------------------------------------- */
 250
 251 void *const functable[] =
 252 {
 253     &AROS_SLIB_ENTRY(open,language),
 254     &AROS_SLIB_ENTRY(close,language),
 255     &AROS_SLIB_ENTRY(expunge,language),
 256     &AROS_SLIB_ENTRY(null,language),
 257     &AROS_SLIB_ENTRY(mask,language),
 258
 259     /* Note, shorter function table, as only getlangstring is used */
 260
 261     /* 0 - 3 */
 262     &AROS_SLIB_ENTRY(null, language),
 263     &AROS_SLIB_ENTRY(null, language),
 264     &AROS_SLIB_ENTRY(null, language),
 265     &AROS_SLIB_ENTRY(getlangstring, language),
 266     (void *)-1
 267 };
 268
 269 /*
 270     Note how only the required data structures are kept...
 271
 272     This is the list of strings. It is an array of pointers to strings,
 273     although how it is laid out is implementation dependant.
 274 */
 275 const STRPTR __svenska_strings[] =
 276 {
 277     /* A blank string */
 278     "",
 279
 280     /*  The days of the week. Starts with the first day of the week.
 281         In English this would be Sunday, this depends upon the settings
 282         of Locale->CalendarType.
 283     */
 284
 285 #warning: stegerg: I think this must always start with Sunday and not what comment above says
 286
 287     "Söndag", "Måndag", "Tisdag", "Onsdag", "Torsdag",
 288     "Fredag", "Lördag",
 289
 290     /* Abbreviated days of the week */
 291     "Sön", "Mån", "Tis", "Ons", "Tor", "Fre", "Lör",
 292
 293     /* Months of the year */
 294     "Januari", "Februari", "Mars",
 295     "April", "Maj", "Juni",
 296     "Juli", "Augusti", "September",
 297     "Oktober", "November", "December",
 298
 299     /* Abbreviated months of the year */
 300     "Jan", "Feb", "Mar", "Apr", "Maj", "Jun",
 301     "Jul", "Aug", "Sep", "Okt", "Nov", "Dec",
 302
 303     "Ja", /* Yes, affirmative response */
 304     "Nej", /* No/negative response */
 305
 306     /* AM/PM strings AM 0000 -> 1159, PM 1200 -> 2359 */
 307     "fm", "em",
 308
 309     /* Soft and hard hyphens */
 310     "-", "-",
 311
 312     /* Open and close quotes */
 313     "\"", "\"",
 314
 315     /* Days: But not actual day names
 316        Yesterday - the day before the current
 317        Today - the current day
 318        Tomorrow - the next day
 319        Future.
 320     */
 321     "Igår", "Idag", "Imorgon", "Framtid"
 322 };
 323
 324 /* This is the end of ROMtag marker. */
 325 const char end = 0;