slang/slcommon.c

   1 /* This file contains library-wide symbols that are always needed when one
   2  * links to the library.
   3  */
   4 /*
   5 Copyright (C) 2004, 2005, 2006 John E. Davis
   6
   7 This file is part of the S-Lang Library.
   8
   9 The S-Lang Library is free software; you can redistribute it and/or
  10 modify it under the terms of the GNU General Public License as
  11 published by the Free Software Foundation; either version 2 of the
  12 License, or (at your option) any later version.
  13
  14 The S-Lang Library is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with this library; if not, write to the Free Software
  21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
  22 USA.
  23 */
  24 #define _GNU_SOURCE
  25 #include "slinclud.h"
  26
  27 #include "slang.h"
  28 #include "_slang.h"
  29
  30 #ifdef HAVE_LOCALE_H
  31 # include <locale.h>
  32 #endif
  33
  34 #ifdef HAVE_LANGINFO_H
  35 # include <langinfo.h>
  36 #endif
  37
  38 #define DEBUG_MALLOC 0
  39
  40 #if DEBUG_MALLOC
  41 # define SLREALLOC_FUN  SLdebug_realloc
  42 # define SLMALLOC_FUN   SLdebug_malloc
  43 # define SLFREE_FUN     SLdebug_free
  44 #else
  45 # define SLREALLOC_FUN  SLREALLOC
  46 # define SLMALLOC_FUN   SLMALLOC
  47 # define SLFREE_FUN     SLFREE
  48 #endif
  49
  50
  51 int SLang_Version = SLANG_VERSION;
  52 char *SLang_Version_String = SLANG_VERSION_STRING;
  53
  54 int _pSLinterp_UTF8_Mode = 0;
  55 int _pSLtt_UTF8_Mode = 0;
  56 int _pSLutf8_mode = 0;
  57
  58 #ifndef HAVE_LOCALE_H
  59 # define setlocale(x,y) (NULL)
  60 # define LC_ALL 0
  61 #endif
  62
  63 int SLutf8_is_utf8_mode (void)
  64 {
  65    return _pSLutf8_mode;
  66 }
  67
  68 int SLinterp_utf8_enable (int mode)
  69 {
  70    if (mode == -1)
  71      mode = _pSLutf8_mode;
  72
  73    return _pSLinterp_UTF8_Mode = mode;
  74 }
  75
  76 int SLinterp_is_utf8_mode (void)
  77 {
  78    return _pSLinterp_UTF8_Mode;
  79 }
  80
  81 static int utf8_enable (int mode)
  82 {
  83    char *locale;
  84
  85    if (mode != -1)
  86      return (mode != 0);
  87
  88    (void) setlocale (LC_ALL, "");
  89
  90 #ifdef HAVE_NL_LANGINFO_CODESET
  91    locale = nl_langinfo (CODESET);
  92    if ((locale != NULL) && (*locale))
  93      {
  94         if ((0 == strcmp (locale, "UTF-8"))
  95             || (0 == strcmp (locale, "utf-8"))
  96             || (0 == strcmp (locale, "utf8"))
  97             || (0 == strcmp (locale, "UTF8")))
  98           return 1;
  99
 100         return 0;
 101      }
 102 #endif
 103
 104    locale = setlocale (LC_ALL, "");
 105
 106    if (((locale == NULL) || (*locale == 0))
 107        && ((NULL == (locale = getenv ("LC_ALL"))) || (*locale == 0))
 108        && ((NULL == (locale = getenv ("LC_CTYPE"))) || (*locale == 0))
 109        && ((NULL == (locale = getenv ("LANG"))) || (*locale == 0)))
 110      return 0;
 111
 112    /* setlocale man page says the return value is something like:
 113     *   language[_territory][.codeset][@modifier][+special][,...
 114     * Here, we want the codeset, if present.
 115     */
 116
 117    while (*locale && (*locale != '.') && (*locale != '@')
 118           && (*locale != '+') && (*locale != ','))
 119      locale++;
 120
 121    if (*locale == '.')
 122      {
 123         locale++;
 124         if (0 == strncmp (locale, "UTF-8", 5))
 125           locale += 5;
 126         else if (0 == strncmp (locale, "utf8", 4))
 127           locale += 4;
 128         else
 129           return 0;
 130
 131         if ((*locale == 0) || (*locale == '@')
 132             || (*locale == '+') || (*locale == ','))
 133           return 1;
 134      }
 135
 136    return 0;
 137 }
 138
 139
 140 /* Returns the value of _pSLutf8_mode */
 141 int SLutf8_enable (int mode)
 142 {
 143    mode = utf8_enable (mode);
 144    _pSLutf8_mode = mode;
 145    _pSLtt_UTF8_Mode = mode;
 146    _pSLinterp_UTF8_Mode = mode;
 147    return mode;
 148 }
 149
 150 #ifndef MIDNIGHT_COMMANDER_CODE
 151
 152 char *SLmalloc (unsigned int len)
 153 {
 154    char *p;
 155
 156    p = (char *) SLMALLOC_FUN (len);
 157    if (p == NULL)
 158      SLang_set_error (SL_MALLOC_ERROR);
 159
 160    return p;
 161 }
 162
 163 void SLfree (char *p)
 164 {
 165    if (p != NULL) SLFREE_FUN (p);
 166 }
 167
 168 char *SLrealloc (char *p, unsigned int len)
 169 {
 170    if (len == 0)
 171      {
 172         SLfree (p);
 173         return NULL;
 174      }
 175
 176    if (p == NULL) p = SLmalloc (len);
 177    else
 178      {
 179         p = (char *)SLREALLOC_FUN (p, len);
 180         if (p == NULL)
 181           SLang_set_error (SL_MALLOC_ERROR);
 182      }
 183    return p;
 184 }
 185
 186 #endif                                /* !MIDNIGHT_COMMANDER_CODE */
 187
 188 char *SLcalloc (unsigned int nelems, unsigned int len)
 189 {
 190    char *p;
 191
 192    len = nelems * len;
 193    p = SLmalloc (len);
 194    if (p != NULL) memset (p, 0, len);
 195    return p;
 196 }
 197
 198 #if 0 /* was: !defined(HAVE_ISSETUGID) && defined(__GLIBC__) && (__GLIBC__ >= 2) */
 199 extern int __libc_enable_secure;
 200 # define HAVE___LIBC_ENABLE_SECURE 1
 201 #endif
 202
 203 int _pSLsecure_issetugid (void)
 204 {
 205 #ifdef HAVE_ISSETUGID
 206    return (1 == issetugid ());
 207 #else
 208 # if defined HAVE___LIBC_ENABLE_SECURE && 0
 209    return __libc_enable_secure;
 210 # else
 211 #  if defined(HAVE_GETUID) && defined(HAVE_GETEUID) && defined(HAVE_GETGID) && defined(HAVE_GETEUID)
 212    static int enable_secure;
 213    if (enable_secure == 0)
 214     {
 215        if ((getuid () != geteuid ())
 216            || (getgid () != getegid ()))
 217          enable_secure = 1;
 218        else
 219          enable_secure = -1;
 220     }
 221    return (enable_secure == 1);
 222 #  else
 223    return 0;
 224 #  endif
 225 # endif
 226 #endif
 227 }
 228
 229 /* Like getenv, except if running as setuid or setgid, returns NULL */
 230 char *_pSLsecure_getenv (char *s)
 231 {
 232    if (_pSLsecure_issetugid ())
 233      return NULL;
 234    return getenv (s);
 235 }
 236
 237
 238 typedef struct Interrupt_Hook_Type
 239 {
 240    int (*func)(VOID_STAR);
 241    VOID_STAR client_data;
 242    struct Interrupt_Hook_Type *next;
 243 }
 244 Interrupt_Hook_Type;
 245
 246 static Interrupt_Hook_Type *Interrupt_Hooks = NULL;
 247
 248 static Interrupt_Hook_Type *
 249   find_interrupt_hook (int (*func)(VOID_STAR), VOID_STAR cd,
 250                        Interrupt_Hook_Type **prevp)
 251 {
 252    Interrupt_Hook_Type *h = Interrupt_Hooks;
 253    Interrupt_Hook_Type *prev = NULL;
 254    while (h != NULL)
 255      {
 256         if ((h->func == func) && (h->client_data == cd))
 257           {
 258              if (prevp != NULL)
 259                *prevp = prev;
 260              return h;
 261           }
 262         h = h->next;
 263      }
 264    return NULL;
 265 }
 266
 267 int SLang_add_interrupt_hook (int (*func)(VOID_STAR), VOID_STAR cd)
 268 {
 269    Interrupt_Hook_Type *h;
 270
 271    if (NULL != find_interrupt_hook (func, cd, NULL))
 272      return 0;
 273
 274    if (NULL == (h = (Interrupt_Hook_Type *)SLmalloc (sizeof (Interrupt_Hook_Type))))
 275      return -1;
 276
 277    h->func = func;
 278    h->client_data = cd;
 279    h->next = Interrupt_Hooks;
 280    Interrupt_Hooks = h;
 281    return 0;
 282 }
 283
 284 void SLang_remove_interrupt_hook (int (*func)(VOID_STAR), VOID_STAR cd)
 285 {
 286    Interrupt_Hook_Type *h, *hprev;
 287
 288    if (NULL == (h = find_interrupt_hook (func, cd, &hprev)))
 289      return;
 290
 291    if (hprev == NULL)
 292      Interrupt_Hooks = h->next;
 293    else
 294      hprev->next = h->next;
 295
 296    SLfree ((char *) h);
 297 }
 298
 299 int SLang_handle_interrupt (void)
 300 {
 301    Interrupt_Hook_Type *h;
 302    int status = 0;
 303
 304    h = Interrupt_Hooks;
 305    while (h != NULL)
 306      {
 307         if (-1 == (*h->func)(h->client_data))
 308           status = -1;
 309
 310         h = h->next;
 311      }
 312    return status;
 313 }
 314
 315 #if defined(__WIN32__) && defined(SLANG_DLL)
 316 # include <windows.h>
 317
 318 BOOL WINAPI DllMain(HANDLE hInstance,DWORD dwReason,LPVOID lpParam)
 319 {
 320    return 1;
 321 }
 322 #endif