missing.c

   1
   2 /* missing.c */
   3
   4 /*$Log: missing.c,v $
   5  * Revision 1.2  1995/06/03  09:31:11  mike
   6  * handle strchr(s,0) correctly
   7  *
   8  **/
   9
  10 #include "nstd.h"
  11
  12
  13 #ifdef  NO_STRCHR
  14 char *
  15 strchr(s, c)
  16    char *s ;
  17    int c ;
  18 {
  19    if( c == 0 ) return s + strlen(s) ;
  20
  21    while (*s)
  22    {
  23       if (*s == c)  return s ;
  24       s++ ;
  25    }
  26    return (char *) 0 ;
  27 }
  28
  29 char *
  30 strrchr(s, c)
  31    char *s ;
  32    int c ;
  33 {
  34    char *ret = (char *) 0 ;
  35
  36    if ( c == 0 ) return s + strlen(s) ;
  37
  38    while (*s)
  39    {
  40       if (*s == c)  ret = s ;
  41       s++ ;
  42    }
  43    return ret ;
  44 }
  45 #endif /* NO_STRCHR */
  46
  47 #ifdef   NO_STRERROR
  48 extern int sys_nerr ;
  49 extern char *sys_errlist[] ;
  50 char *
  51 strerror(n)
  52    int n ;
  53 {
  54    return n > 0 & n < sys_nerr ? sys_errlist[n] : "" ;
  55 }
  56 #endif
  57
  58
  59 #ifdef  NO_MEMCPY
  60 PTR
  61 memcpy(t, s, n)
  62    PTR t, s ;
  63    size_t n ;
  64 {
  65    char *tt = t ;
  66    char *ss = s ;
  67
  68    while (n > 0)
  69    {
  70       n-- ;
  71       *tt++ = *ss++ ;
  72    }
  73    return t ;
  74 }
  75
  76 int
  77 memcmp(t, s, n)
  78    PTR t, s ;
  79    size_t n ;
  80 {
  81    char *tt = t ;
  82    char *ss = s ;
  83
  84    while (n > 0)
  85    {
  86       if (*tt < *ss)  return -1 ;
  87       if (*tt > *ss)  return 1 ;
  88       tt++ ; ss++ ; n-- ;
  89    }
  90    return 0 ;
  91 }
  92
  93 PTR
  94 memset(t, c, n)
  95    PTR t ;
  96    int c ;
  97    size_t n ;
  98 {
  99    char *tt = (char *) t ;
 100
 101    while (n > 0)
 102    {
 103       n-- ;
 104       *tt++ = c ;
 105    }
 106    return t ;
 107 }
 108 #endif /* NO_MEMCPY */
 109
 110 #ifdef  NO_STRTOD
 111
 112 /* don't use this unless you really don't have strtod() because
 113    (1) its probably slower than your real strtod()
 114    (2) atof() may call the real strtod()
 115 */
 116
 117 double
 118 strtod(s, endptr)
 119    const char *s ;
 120    char **endptr ;
 121 {
 122    register unsigned char *p ;
 123    int flag ;
 124    double atof();
 125
 126    if (endptr)
 127    {
 128       p = (unsigned char *) s ;
 129
 130       flag = 0 ;
 131       while (*p == ' ' || *p == '\t')  p++ ;
 132       if (*p == '-' || *p == '+')  p++ ;
 133       while ( scan_code[*p] == SC_DIGIT ) { flag++ ; p++ ; }
 134       if (*p == '.')
 135       {
 136          p++ ;
 137          while ( scan_code[*p] == SC_DIGIT ) { flag++ ; p++ ; }
 138       }
 139       /* done with number part */
 140       if (flag == 0)
 141       {                         /* no number part */
 142          *endptr = s ; return 0.0 ;
 143       }
 144       else  *endptr = (char *) p ;
 145
 146       /* now look for exponent */
 147       if (*p == 'e' || *p == 'E')
 148       {
 149          flag = 0 ;
 150          p++ ;
 151          if (*p == '-' || *p == '+')  p++ ;
 152          while ( scan_code[*p] == SC_DIGIT ) { flag++ ; p++ ; }
 153          if (flag)  *endptr = (char *) p ;
 154       }
 155    }
 156    return atof(s) ;
 157 }
 158 #endif /* no strtod() */
 159
 160 #ifdef   NO_FMOD
 161
 162 #ifdef SW_FP_CHECK      /* this is V7 and XNX23A specific */
 163
 164 double
 165 fmod(x, y)
 166    double x, y;
 167 {
 168    double modf();
 169    double dtmp, ipart;
 170
 171    clrerr() ;
 172    dtmp = x / y ;
 173    fpcheck() ;
 174    modf(dtmp, &ipart) ;
 175    return x - ipart * y ;
 176 }
 177
 178 #else
 179
 180 double
 181 fmod(x, y)
 182    double x, y;
 183 {
 184    double modf();
 185    double ipart;
 186
 187    modf(x / y, &ipart) ;
 188    return x - ipart * y ;
 189 }
 190
 191 #endif
 192 #endif /* NO_FMOD */