Fresh Fish 9/FreshFishVol9-CD2.bin/bbs/gnu/libnix-0.8-src.lha/libnix-0.8/sources/nix/locale/setlocale.c

C/C++ Source or Header | 1995-01-17 | 5.2 KB | 197 lines

#include <libraries/locale.h>
#include <locale.h>
#include <stdlib.h>
#include <string.h>
#include <dos/dos.h>
#ifdef __GNUC__ /* This is very sad :-( */
#undef BITSPERBYTE
#undef MAXINT
#undef MININT
#endif
#include <limits.h>
#ifdef __GNUC__
#include <inline/exec.h>
#include <inline/locale.h>
#endif
#include <strsup.h>
#include <stabs.h>

extern struct LocaleBase *LocaleBase;
extern char __localename[];
extern struct Locale *__localevec[];

/* for LC_CTYPE */
extern const unsigned char __ctype[];
extern const unsigned char *_ctype_;
static unsigned char *ctype;

/* for LC_NUMERIC */
extern unsigned char *__decimalpoint;

/* for LC_TIME */
extern long __gmtoffset;
extern int  __dstflag;

extern struct lconv __lconv;

char *setlocale(int category,const char *name)
{ static char *string=NULL;
  size_t i,a,b;
  struct Locale *vec[5];
  unsigned char *s1,*s2,c;

  if(string!=NULL) /* Free string if possible */
  { free(string);
    string=NULL; }

  if(category<0||category>5)
    return NULL;

  if(category==LC_ALL)
  { a=0;
    b=4; }
  else
    a=b=category-1;

  if(name==NULL) /* return name of current locale */
  { size_t s=0;
    for(i=a;i<=b;i++)
      if(__localevec[i]!=NULL)
        s+=strlen(__localevec[i]->loc_LocaleName);
      else
        s++; /* "C" locale */

    if((string=malloc(s+b-a+1))==NULL)
      return NULL;

    string[0]='\0';
    for(i=a;i<=b;i++)
    { if(__localevec[i]!=NULL)
        strcat(string,__localevec[i]->loc_LocaleName);
      else
        strcat(string,"C");
      if(i!=b)
        strcat(string,"\n");
    }
    return string;
  }

  if((string=malloc(strlen_plus_one(name)))==NULL) /* gets freed next time */
    return NULL;
  strcpy(string,name);

  s1=s2=string;
  for(i=a;i<=b;i++)
  { while(*s2!='\0'&&*s2!='\n')
      s2++;
    c=*s2;
    *s2='\0';
    if(LocaleBase==NULL||(s1[0]=='C'&&s1[1]=='\0')) /* This is the only place */
      vec[i]=NULL;                         /* LocaleBase gets tested for NULL */
    else
      if((vec[i]=OpenLocale(s1[0]=='\0'?NULL:s1))==NULL)
      { for(;i-->a;)
          CloseLocale(vec[i]);
        return NULL; }
    *s2=c;
    if(c=='\0')
      s2=string;
    s1=s2;
  }

  for(i=a;i<=b;i++)
  { if(__localevec[i]!=NULL)
      CloseLocale(__localevec[i]);
    __localevec[i]=vec[i];
  }

  if(__localevec[LC_CTYPE-1]!=NULL)
  { struct Locale *locale=__localevec[LC_CTYPE-1];
    ctype[0]=0;
    for(i=0;i<256;i++)
      ctype[i+1]=((IsPrint(locale,i)&&!IsGraph(locale,i))?128:0)|
                 (IsXDigit(locale,i)?64:0)|(IsCntrl(locale,i)?32:0)|
                 (IsPunct(locale,i)?16:0)|(IsSpace(locale,i)?8:0)|
                 (IsDigit(locale,i)?4:0)|(IsLower(locale,i)?2:0)|
                 (IsUpper(locale,i)?1:0);
    _ctype_=ctype;
  }else
    _ctype_=__ctype;

  if(__localevec[LC_MONETARY-1]!=NULL)
  { struct Locale *locale=__localevec[LC_MONETARY-1];
    __lconv.int_curr_symbol  =locale->loc_MonIntCS;
    __lconv.currency_symbol  =locale->loc_MonCS;
    __lconv.mon_decimal_point=locale->loc_MonDecimalPoint;
    __lconv.mon_thousands_sep=locale->loc_MonGroupSeparator;
    __lconv.mon_grouping     =locale->loc_MonFracGrouping;
    __lconv.positive_sign    =locale->loc_MonPositiveSign;
    __lconv.negative_sign    =locale->loc_MonNegativeSign;
    __lconv.int_frac_digits  =locale->loc_MonIntFracDigits;
    __lconv.frac_digits      =locale->loc_MonFracDigits;
    __lconv.p_cs_precedes    =locale->loc_MonPositiveCSPos;
    __lconv.p_sep_by_space   =locale->loc_MonPositiveSpaceSep;
    __lconv.p_sign_posn      =locale->loc_MonPositiveSignPos;
    __lconv.n_cs_precedes    =locale->loc_MonNegativeCSPos;
    __lconv.n_sep_by_space   =locale->loc_MonNegativeSpaceSep;
    __lconv.n_sign_posn      =locale->loc_MonNegativeSignPos;
  }else
  { __lconv.int_curr_symbol  ="";
    __lconv.currency_symbol  ="";
    __lconv.mon_decimal_point="";
    __lconv.mon_thousands_sep="";
    __lconv.mon_grouping     ="";
    __lconv.positive_sign    ="";
    __lconv.negative_sign    ="";
    __lconv.int_frac_digits  =CHAR_MAX;
    __lconv.frac_digits      =CHAR_MAX;
    __lconv.p_cs_precedes    =CHAR_MAX;
    __lconv.p_sep_by_space   =CHAR_MAX;
    __lconv.p_sign_posn      =CHAR_MAX;
    __lconv.n_cs_precedes    =CHAR_MAX;
    __lconv.n_sep_by_space   =CHAR_MAX;
    __lconv.n_sign_posn      =CHAR_MAX;
  }

  if(__localevec[LC_NUMERIC-1]!=NULL)
  { struct Locale *locale=__localevec[LC_NUMERIC-1];
    __lconv.decimal_point=locale->loc_DecimalPoint;
    __lconv.thousands_sep=locale->loc_GroupSeparator;
  }else
  { __lconv.decimal_point=".";
    __lconv.thousands_sep="";
  }
  __decimalpoint=__lconv.decimal_point;

  if(__localevec[LC_TIME-1]!=NULL)
    __gmtoffset=__localevec[LC_TIME-1]->loc_GMTOffset;
  else
    __gmtoffset=0;

  return (char *)name;
}

void __initlocale(void)
{ if ((ctype=malloc(257))!=NULL)
  {
    LocaleBase=(struct LocaleBase *)OpenLibrary(__localename,0); /* Don't give up if this failes */

    if (setlocale(LC_ALL,"")!=NULL) /* Set the default locale */
      return;
  }
  exit(20);
}

void __exitlocale(void)
{ int i;
  for(i=0;i<5;i++)
    if(__localevec[i]!=NULL)
      CloseLocale(__localevec[i]);

  if(LocaleBase!=NULL)
    CloseLibrary((struct Library *)LocaleBase);
}

ADD2INIT(__initlocale,-10);
ADD2EXIT(__exitlocale,-10);