workbench/libs/codesetslib/src/init.c

   1 /***************************************************************************
   2
   3  codesets.library - Amiga shared library for handling different codesets
   4  Copyright (C) 2001-2005 by Alfonso [alfie] Ranieri <alforan@tin.it>.
   5  Copyright (C) 2005-2009 by codesets.library Open Source Team
   6
   7  This library is free software; you can redistribute it and/or
   8  modify it under the terms of the GNU Lesser General Public
   9  License as published by the Free Software Foundation; either
  10  version 2.1 of the License, or (at your option) any later version.
  11
  12  This library is distributed in the hope that it will be useful,
  13  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  Lesser General Public License for more details.
  16
  17  codesets.library project: http://sourceforge.net/projects/codesetslib/
  18
  19  $Id$
  20
  21 ***************************************************************************/
  22
  23 #include "lib.h"
  24
  25 #include <diskfont/glyph.h>
  26 #include <diskfont/diskfonttag.h>
  27 #include <proto/diskfont.h>
  28 #include <proto/keymap.h>
  29 #include <proto/locale.h>
  30 #include <proto/exec.h>
  31 #include <proto/dos.h>
  32 #include <proto/utility.h>
  33
  34 #include "debug.h"
  35
  36 #if defined(__amigaos4__)
  37 struct Library *DOSBase = NULL;
  38 struct Library *UtilityBase = NULL;
  39 struct Library *LocaleBase = NULL;
  40 struct Library *DiskfontBase = NULL;
  41
  42 struct DOSIFace*      IDOS = NULL;
  43 struct UtilityIFace*  IUtility = NULL;
  44 struct LocaleIFace*   ILocale = NULL;
  45 struct DiskfontIFace* IDiskfont = NULL;
  46
  47 #if !defined(__NEWLIB__)
  48 extern struct Library *__UtilityBase;
  49 extern struct UtilityIFace*  __IUtility;
  50 #endif
  51
  52 #else
  53 struct DosLibrary *DOSBase = NULL;
  54 #if defined(__MORPHOS__)
  55 struct Library *LocaleBase = NULL;
  56 #else
  57 struct LocaleBase *LocaleBase = NULL;
  58 #endif
  59 #ifdef __AROS__
  60 struct UtilityBase *UtilityBase = NULL;
  61 #else
  62 struct Library *UtilityBase = NULL;
  63 struct Library *__UtilityBase = NULL; // required by clib2 & libnix
  64 #endif
  65 #endif
  66
  67 /****************************************************************************/
  68
  69 ULONG
  70 freeBase(struct LibraryHeader *lib)
  71 {
  72   ENTER();
  73
  74   D(DBF_STARTUP, "freeing all resources of codesets.library");
  75
  76   // cleanup also the internal public codesets list
  77   codesetsCleanup(&lib->codesets);
  78
  79   // close locale.library
  80   if(LocaleBase)
  81   {
  82     DROPINTERFACE(ILocale);
  83     CloseLibrary((struct Library *)LocaleBase);
  84     LocaleBase = NULL;
  85   }
  86
  87   #if defined(__amigaos4__)
  88   // close diskfont.library
  89   if(DiskfontBase)
  90   {
  91     DROPINTERFACE(IDiskfont);
  92     CloseLibrary((struct Library *)DiskfontBase);
  93     DiskfontBase = NULL;
  94   }
  95   #endif
  96
  97   // delete our private memory pool
  98   if(lib->pool != NULL)
  99   {
 100     #if defined(__amigaos4__)
 101     FreeSysObject(ASOT_MEMPOOL, lib->pool);
 102     #else
 103     DeletePool(lib->pool);
 104     #endif
 105     lib->pool = NULL;
 106   }
 107
 108   // close utility.library
 109   if(UtilityBase)
 110   {
 111     DROPINTERFACE(IUtility);
 112     CloseLibrary(UtilityBase);
 113     UtilityBase = NULL;
 114   }
 115
 116   // close dos.library
 117   if(DOSBase)
 118   {
 119     DROPINTERFACE(IDOS);
 120     CloseLibrary((struct Library *)DOSBase);
 121     DOSBase = NULL;
 122   }
 123
 124   RETURN(TRUE);
 125   return TRUE;
 126 }
 127
 128 /***********************************************************************/
 129
 130 struct loc
 131 {
 132   const char *name;
 133   ULONG  len;
 134   const char *codesetName;
 135 };
 136
 137 // table with the default LANGUAGE<>CHARSET mapping we
 138 // are using in codesets.library.
 139 static const struct loc locs[] =
 140 {
 141   { "bosanski",     8,  "ISO-8859-2"        },
 142   { "català",       6,  "ISO-8859-1 + Euro" },
 143   { "czech",        5,  "ISO-8859-2"        },
 144   { "dansk",        5,  "ISO-8859-1 + Euro" },
 145   { "deutsch",      7,  "ISO-8859-1 + Euro" },
 146   { "english",      7,  "ISO-8859-1 + Euro" },
 147   { "esperanto",    9,  "ISO-8859-3"        },
 148   { "eesti",        5,  "ISO-8859-15"       },
 149   { "èe¹tina",      7,  "ISO-8859-2"        },  /* Czech in MorphOS 2.0 */
 150   { "español",      7,  "ISO-8859-1 + Euro" },
 151   { "français",     8,  "ISO-8859-1 + Euro" },
 152   { "gaeilge",      7,  "ISO-8859-15"       },
 153   { "galego",       6,  "ISO-8859-1 + Euro" },
 154   { "greek",        5,  "ISO-8859-7"        },
 155   { "hrvatski",     8,  "ISO-8859-2"        },
 156   { "italiano",     8,  "ISO-8859-1 + Euro" },
 157   { "lietuvi",      7,  "ISO-8859-13"       },
 158   { "magyar",       6,  "ISO-8859-2"        },
 159   { "nederlands",  10,  "ISO-8859-1 + Euro" },
 160   { "norsk",        5,  "ISO-8859-1 + Euro" },
 161   { "polski",       6,  "ISO-8859-2"        },
 162   { "português",    9,  "ISO-8859-1 + Euro" },
 163   { "russian",      7,  "Amiga-1251"        },
 164   { "slovak",       6,  "ISO-8859-2"        },
 165   { "slovensko",    9,  "ISO-8859-2"        },
 166   { "srpski",       6,  "ISO-8859-2"        },
 167   { "suomi",        5,  "ISO-8859-1"        },
 168   { "svenska",      7,  "ISO-8859-1 + Euro" },
 169   { "türkçe",       6,  "ISO-8859-9"        },
 170   { NULL,           0,  NULL                }
 171 };
 172
 173 static void
 174 getSystemCodeset(struct LibraryHeader *lib)
 175 {
 176   struct codeset *foundCodeset = NULL;
 177
 178   ENTER();
 179
 180   // before we go any query the system via locale.library (which
 181   // might not be so accurate) we try different other means of
 182   // finding the codeset/charset of the system
 183   #ifdef __amigaos4__
 184   {
 185     LONG default_charset = GetDiskFontCtrl(DFCTRL_CHARSET);
 186                 char *charset = (char *)ObtainCharsetInfo(DFCS_NUMBER, default_charset, DFCS_MIMENAME);
 187
 188     foundCodeset = codesetsFind(&lib->codesets, charset);
 189
 190     D(DBF_STARTUP, "%s system default codeset: '%s' (diskfont)", foundCodeset ? "found" : "not found", charset);
 191   }
 192   #endif
 193
 194   #ifdef __MORPHOS__
 195   {
 196     /* The system maintains CODEPAGE environment variable which defines the preferred codepage for this user. */
 197     TEXT codepage[40];
 198
 199     if (GetVar("CODEPAGE", codepage, sizeof(codepage), 0) > 0)
 200     {
 201       foundCodeset = codesetsFind(&lib->codesets, codepage);
 202     }
 203
 204     D(DBF_STARTUP, "%s system default codeset: '%s' (keymap)", foundCodeset ? "found" : "not found", codepage);
 205
 206     /* If CODEPAGE did not work (maybe user deleted it or something) we try a keymap instead. This only works
 207      * in MorphOS 2 and only if an old Amiga keymap is not used.
 208      */
 209     if (foundCodeset == NULL)
 210     {
 211       struct Library *KeymapBase;
 212
 213       KeymapBase = OpenLibrary("keymap.library", 51);
 214
 215       if (KeymapBase)
 216       {
 217         /* Since we requested V51 it is either V51 or newer */
 218         if (KeymapBase->lib_Version > 51 || KeymapBase->lib_Revision >= 4)
 219         {
 220           #ifndef GetKeyMapCodepage
 221           #define GetKeyMapCodepage(__p0) LP1(78, CONST_STRPTR , GetKeyMapCodepage, CONST struct KeyMap *, __p0, a0, , KEYMAP_BASE_NAME, 0, 0, 0, 0, 0, 0)
 222           #endif
 223
 224           CONST_STRPTR codepage;
 225
 226           codepage = GetKeyMapCodepage(NULL);
 227
 228           if (codepage)
 229           {
 230             foundCodeset = codesetsFind(&lib->codesets, codepage);
 231
 232             D(DBF_STARTUP, "%s system default codeset: '%s' (keymap)", foundCodeset ? "found" : "not found", codepage);
 233           }
 234         }
 235
 236         CloseLibrary(KeymapBase);
 237       }
 238     }
 239   }
 240   #endif
 241
 242   // if we still do not have our default charset we try to load
 243   // it from and environment variable ENVARC:CHARSET
 244   if(foundCodeset == NULL)
 245   {
 246     char charset[80];
 247     charset[0] = '\0';
 248
 249     if(GetVar("CHARSET", charset, sizeof(charset), 0) > 0)
 250     {
 251       foundCodeset = codesetsFind(&lib->codesets, charset);
 252     }
 253
 254     D(DBF_STARTUP, "%s system default codeset: '%s' (ENV:CHARSET)", foundCodeset ? "found" : "not found", charset);
 255   }
 256
 257   // and if even the CHARSET environment variable didn't work
 258   // out we check the LANGUAGE env variable against our own
 259   // internal fallback list
 260   if(foundCodeset == NULL)
 261   {
 262     char language[80];
 263
 264     if(GetVar("LANGUAGE", language, sizeof(language), 0) > 0)
 265     {
 266       int i;
 267       struct loc *curLoc = NULL;
 268       BOOL found = FALSE;
 269
 270       for(i=0;;i++)
 271       {
 272         curLoc = (struct loc *)&locs[i];
 273         if(curLoc == NULL || curLoc->name == NULL)
 274           break;
 275
 276         if(!Strnicmp(language, curLoc->name, curLoc->len))
 277         {
 278           found = TRUE;
 279           break;
 280         }
 281       }
 282
 283       if(found)
 284         foundCodeset = codesetsFind(&lib->codesets, curLoc->codesetName);
 285     }
 286
 287     D(DBF_STARTUP, "%s system default codeset: '%s' (ENV:LANGUAGE)", foundCodeset ? "found" : "not found",
 288                                                                      foundCodeset ? foundCodeset->name : "?");
 289   }
 290
 291   // and the very last check we do to find out the system's charset is
 292   // to use locale.library.
 293   if(foundCodeset == NULL)
 294   {
 295     struct Locale *locale;
 296
 297     if((locale = OpenLocale(NULL)))
 298     {
 299       int i;
 300       char *language = locale->loc_LanguageName;
 301       struct loc *curLoc = NULL;
 302       BOOL found = FALSE;
 303
 304       for(i=0;;i++)
 305       {
 306         curLoc = (struct loc *)&locs[i];
 307         if(curLoc == NULL || curLoc->name == NULL)
 308           break;
 309
 310         if(!Strnicmp(language, curLoc->name, curLoc->len))
 311         {
 312           found = TRUE;
 313           break;
 314         }
 315       }
 316
 317       CloseLocale(locale);
 318
 319       if(found)
 320         foundCodeset = codesetsFind(&lib->codesets, curLoc->codesetName);
 321     }
 322
 323     D(DBF_STARTUP, "%s system default codeset: '%s' (locale)", foundCodeset ? "found" : "not found",
 324                                                                foundCodeset ? foundCodeset->name : "?");
 325   }
 326
 327   // and if even that very last test didn't work out we
 328   // can just take the ISO-8859-1 charset as the fallback default
 329   if(foundCodeset == NULL)
 330     lib->systemCodeset = codesetsFind(&lib->codesets, "ISO-8859-1");
 331   else
 332     lib->systemCodeset = foundCodeset;
 333
 334   LEAVE();
 335 }
 336
 337 /***********************************************************************/
 338
 339 ULONG
 340 initBase(struct LibraryHeader *lib)
 341 {
 342   ENTER();
 343
 344   if((DOSBase = (APTR)OpenLibrary("dos.library", 37)) &&
 345      GETINTERFACE(IDOS, DOSBase))
 346   {
 347     if((UtilityBase = OpenLibrary("utility.library", 37)) &&
 348        GETINTERFACE(IUtility, UtilityBase))
 349     {
 350       // we have to please the internal utilitybase
 351       // pointers of libnix and clib2
 352       #if !defined(__NEWLIB__) && !defined(__AROS__)
 353         __UtilityBase = (APTR)UtilityBase;
 354         #if defined(__amigaos4__)
 355         __IUtility = IUtility;
 356         #endif
 357       #endif
 358
 359       // setup the debugging stuff
 360       #if defined(DEBUG)
 361       SetupDebug();
 362       #endif
 363
 364       #if defined(__amigaos4__)
 365       if((DiskfontBase = OpenLibrary("diskfont.library", 50)) &&
 366         GETINTERFACE(IDiskfont, DiskfontBase))
 367       {
 368       #endif
 369         #if defined(__amigaos4__)
 370         lib->pool = AllocSysObjectTags(ASOT_MEMPOOL, ASOPOOL_MFlags, MEMF_SHARED,
 371                                                      ASOPOOL_Puddle, 4096,
 372                                                      ASOPOOL_Threshold, 512,
 373                                                      TAG_DONE);
 374         #else
 375         lib->pool = CreatePool(MEMF_ANY, 4096, 512);
 376         #endif
 377         if(lib->pool != NULL)
 378         {
 379           if(codesetsInit(&lib->codesets))
 380           {
 381             lib->systemCodeset = (struct codeset *)lib->codesets.list.mlh_Head;
 382
 383             if((LocaleBase = (APTR)OpenLibrary("locale.library", 37)) &&
 384                GETINTERFACE(ILocale, LocaleBase))
 385             {
 386               getSystemCodeset(lib);
 387             }
 388
 389             RETURN(TRUE);
 390             return TRUE;
 391           }
 392         }
 393       #if defined(__amigaos4__)
 394       }
 395       #endif
 396     }
 397   }
 398
 399   freeBase(lib);
 400
 401   RETURN(FALSE);
 402   return FALSE;
 403 }
 404
 405 /***********************************************************************/