src/core/os2/geniconv/geniconv.c

   1 /*
   2   Simple DirectMedia Layer
   3   Copyright (C) 1997-2020 Sam Lantinga <slouken@libsdl.org>
   4
   5   This software is provided 'as-is', without any express or implied
   6   warranty.  In no event will the authors be held liable for any damages
   7   arising from the use of this software.
   8
   9   Permission is granted to anyone to use this software for any purpose,
  10   including commercial applications, and to alter it and redistribute it
  11   freely, subject to the following restrictions:
  12
  13   1. The origin of this software must not be misrepresented; you must not
  14      claim that you wrote the original software. If you use this software
  15      in a product, an acknowledgment in the product documentation would be
  16      appreciated but is not required.
  17   2. Altered source versions must be plainly marked as such, and must not be
  18      misrepresented as being the original software.
  19   3. This notice may not be removed or altered from any source distribution.
  20 */
  21
  22 /*
  23   Universal iconv implementation for OS/2.
  24
  25   Andrey Vasilkin, 2016.
  26 */
  27
  28 #define INCL_DOSMODULEMGR   /* Module Manager values */
  29 #define INCL_DOSERRORS      /* Error values */
  30 #include <os2.h>
  31
  32 #include "geniconv.h"
  33
  34 /*#define DEBUG*/
  35
  36 #ifdef DEBUG
  37 # include <stdio.h>
  38 # define debug(s,...) printf(__func__"(): "##s"\n" ,##__VA_ARGS__)
  39 #else
  40 # define debug(s,...) do {} while (0)
  41 #endif
  42
  43 /* Exports from os2iconv.c */
  44 extern iconv_t _System os2_iconv_open(const char* tocode, const char* fromcode);
  45 extern size_t _System os2_iconv(iconv_t cd, char* * inbuf,
  46                                 size_t *inbytesleft, char* * outbuf,
  47                                 size_t *outbytesleft);
  48 extern int _System os2_iconv_close(iconv_t cd);
  49
  50 /* Functions pointers types */
  51 typedef iconv_t _System (*FNICONV_OPEN)(const char* tocode, const char* fromcode);
  52 typedef size_t _System (*FNICONV)(iconv_t cd, char* * inbuf,
  53                                   size_t *inbytesleft, char* * outbuf,
  54                                   size_t *outbytesleft);
  55 typedef int _System (*FNICONV_CLOSE)(iconv_t cd);
  56
  57 /* Used DLL module handle */
  58 static HMODULE         hmIconv = NULLHANDLE;
  59 /* Functions pointers */
  60 static FNICONV_OPEN    fn_iconv_open = NULL;
  61 static FNICONV         fn_iconv = NULL;
  62 static FNICONV_CLOSE   fn_iconv_close = NULL;
  63
  64
  65 static BOOL _loadDLL(PSZ pszName, PSZ pszIconvOpen, PSZ pszIconv,
  66                      PSZ pszIconvClose)
  67 {
  68     ULONG ulRC;
  69     CHAR  acError[256];
  70
  71     ulRC = DosLoadModule(acError, sizeof(acError), pszName, &hmIconv);
  72     if (ulRC != NO_ERROR) {
  73         debug("DLL not loaded: %s", &acError);
  74         return FALSE;
  75     }
  76
  77     do {
  78         ulRC = DosQueryProcAddr(hmIconv, 0, pszIconvOpen, (PFN *)&fn_iconv_open);
  79         if (ulRC != NO_ERROR) {
  80             debug("Error: cannot find entry %s in %s", pszIconvOpen, pszName);
  81             break;
  82         }
  83
  84         ulRC = DosQueryProcAddr(hmIconv, 0, pszIconv, (PFN *)&fn_iconv);
  85         if (ulRC != NO_ERROR) {
  86             debug("Error: cannot find entry %s in %s", pszIconv, pszName);
  87             break;
  88         }
  89
  90         ulRC = DosQueryProcAddr(hmIconv, 0, pszIconvClose, (PFN *)&fn_iconv_close);
  91         if (ulRC != NO_ERROR) {
  92             debug("Error: cannot find entry %s in %s", pszIconvClose, pszName);
  93           break;
  94         }
  95
  96         debug("DLL %s used", pszName);
  97         return TRUE;
  98     } while (FALSE);
  99
 100     DosFreeModule(hmIconv);
 101     hmIconv = NULLHANDLE;
 102     return FALSE;
 103 }
 104
 105 static void _init(void)
 106 {
 107     if (fn_iconv_open != NULL) /* Already was initialized */
 108         return;
 109
 110     /* Try to load kiconv.dll, iconv2.dll or iconv.dll */
 111     if (!_loadDLL("KICONV", "_libiconv_open", "_libiconv", "_libiconv_close") &&
 112         !_loadDLL("ICONV2", "_libiconv_open", "_libiconv", "_libiconv_close") &&
 113         !_loadDLL("ICONV",  "_iconv_open",    "_iconv",    "_iconv_close") ) {
 114         /* No DLL was loaded - use OS/2 conversion objects API */
 115         debug("Uni*() API used");
 116         fn_iconv_open  = os2_iconv_open;
 117         fn_iconv       = os2_iconv;
 118         fn_iconv_close = os2_iconv_close;
 119     }
 120 }
 121
 122
 123 /* Public routines.
 124  * ----------------
 125  */
 126
 127 /* Non-standard function for iconv to unload the used dynamic library */
 128 void libiconv_clean(void)
 129 {
 130     if (hmIconv != NULLHANDLE) {
 131         DosFreeModule(hmIconv);
 132         hmIconv = NULLHANDLE;
 133
 134         fn_iconv_open  = NULL;
 135         fn_iconv       = NULL;
 136         fn_iconv_close = NULL;
 137     }
 138 }
 139
 140 iconv_t libiconv_open(const char* tocode, const char* fromcode)
 141 {
 142     _init();
 143     return fn_iconv_open(tocode, fromcode);
 144 }
 145
 146 size_t libiconv(iconv_t cd, char* * inbuf, size_t *inbytesleft,
 147                 char* * outbuf, size_t *outbytesleft)
 148 {
 149     return fn_iconv(cd, inbuf, inbytesleft, outbuf, outbytesleft);
 150 }
 151
 152 int libiconv_close(iconv_t cd)
 153 {
 154     return fn_iconv_close(cd);
 155 }
 156
 157 /* vi: set ts=4 sw=4 expandtab: */