os400/wrappers.c

   1 /**
   2 ***     UTF-8/EBCDIC wrappers to system and C library procedures.
   3 ***
   4 ***     See Copyright for the status of this software.
   5 ***
   6 ***     Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
   7 **/
   8
   9 #include <sys/types.h>
  10 #include <sys/socket.h>
  11 #include <arpa/inet.h>
  12 #include <stdlib.h>
  13 #include <dlfcn.h>
  14 #include <netdb.h>
  15 #include <errno.h>
  16
  17 #include "config.h"
  18
  19 #include "libxml/xmlmemory.h"
  20
  21 #include "transcode.h"
  22
  23
  24 static const char *     lxdles = NULL;
  25
  26
  27 int
  28 _lx_getaddrinfo(const char * node, const char * service,
  29         const struct addrinfo * hints, struct addrinfo * * res)
  30
  31 {
  32         xmlDictPtr d = NULL;
  33         int i;
  34
  35         i = getaddrinfo(xmlTranscodeResult(node, NULL, &d, NULL),
  36             xmlTranscodeResult(service, NULL, &d, NULL), hints, res);
  37         xmlZapDict(&d);
  38         return i;
  39 }
  40
  41
  42 const char *
  43 _lx_inet_ntop(int af, const void * src, char * dst, socklen_t size)
  44
  45 {
  46         const char * cp1 = inet_ntop(af, src, dst, size);
  47         char const * cp2;
  48         int i;
  49
  50         if (!cp1)
  51                 return cp1;
  52
  53         if (!(cp2 = xmlTranscodeString(cp1, NULL, NULL)))
  54                 return cp2;
  55
  56         i = strlen(cp2);
  57
  58         if (i >= size) {
  59                 xmlFree((char *) cp2);
  60                 errno = ENOSPC;
  61                 return (const char *) NULL;
  62                 }
  63
  64         memcpy(dst, cp2, i + 1);
  65         xmlFree((char *) cp2);
  66         return dst;
  67 }
  68
  69
  70 void *
  71 _lx_dlopen(const char * filename, int flag)
  72
  73 {
  74         xmlDictPtr d = NULL;
  75         void * result;
  76
  77         result = dlopen(xmlTranscodeResult(filename, NULL, &d, NULL), flag);
  78         xmlZapDict(&d);
  79         return result;
  80 }
  81
  82
  83 void *
  84 _lx_dlsym(void * handle, const char * symbol)
  85
  86 {
  87         xmlDictPtr d = NULL;
  88         void * result;
  89
  90         result = dlsym(handle, xmlTranscodeResult(symbol, NULL, &d, NULL));
  91         xmlZapDict(&d);
  92         return result;
  93 }
  94
  95
  96 char *
  97 _lx_dlerror(void)
  98
  99 {
 100         char * cp1 = (char *) dlerror();
 101
 102         if (!cp1)
 103                 return cp1;
 104
 105         if (lxdles)
 106                 xmlFree((char *) lxdles);
 107
 108         lxdles = (const char *) xmlTranscodeString(cp1, NULL, NULL);
 109         return (char *) lxdles;
 110 }
 111
 112
 113 #ifdef HAVE_ZLIB_H
 114 #include <zlib.h>
 115
 116 gzFile
 117 _lx_gzopen(const char * path, const char * mode)
 118
 119 {
 120         xmlDictPtr d = NULL;
 121         gzFile f;
 122
 123         f = gzopen(xmlTranscodeResult(path, NULL, &d, NULL),
 124             xmlTranscodeResult(mode, NULL, &d, NULL));
 125         xmlZapDict(&d);
 126         return f;
 127 }
 128
 129
 130 gzFile
 131 _lx_gzdopen(int fd, const char * mode)
 132
 133 {
 134         xmlDictPtr d = NULL;
 135         gzFile f;
 136
 137         f = gzdopen(fd, xmlTranscodeResult(mode, NULL, &d, NULL));
 138         xmlZapDict(&d);
 139         return f;
 140 }
 141
 142 int
 143 _lx_inflateInit2_(z_streamp strm, int windowBits,
 144                                         const char * version, int stream_size)
 145
 146 {
 147         xmlDictPtr d = NULL;
 148         int r;
 149
 150         r = inflateInit2_(strm, windowBits,
 151             xmlTranscodeResult(version, NULL, &d, NULL), stream_size);
 152         xmlZapDict(&d);
 153         return r;
 154 }
 155
 156 int
 157 _lx_deflateInit2_(z_streamp strm, int level, int method, int windowBits,
 158         int memLevel, int strategy, const char * version, int stream_size)
 159
 160 {
 161         xmlDictPtr d = NULL;
 162         int r;
 163
 164         r = deflateInit2_(strm, level, method, windowBits, memLevel, strategy,
 165             xmlTranscodeResult(version, NULL, &d, NULL), stream_size);
 166         xmlZapDict(&d);
 167         return r;
 168 }
 169
 170 #endif