home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / hce.lha / HCE / LibSource / clib / Stdio / src / sscanf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-02  |  527 b   |  36 lines
  1. /*
  2.  * TetiSoft 13-01-91
  3.  *
  4.  * Changed Returnvalue of sscanf to long.
  5.  *
  6.  * From the Hcc.lib by Detlef Wurkner, Placed here by Jason Petty. */
  7.  
  8. #include <stdio.h>
  9.  
  10. static int sgetc(s)
  11.     unsigned char **s;
  12.     {
  13.     register unsigned char c;
  14.  
  15.     c = *(*s)++;
  16.     return((c == '\0') ? EOF : c);
  17.     }
  18.  
  19. static int sungetc(c, s)
  20.     int c;
  21.     unsigned char **s;
  22.     {
  23.     if(c == EOF)
  24.         c = '\0';
  25.     return(*--(*s) = c);
  26.     }
  27.  
  28. long
  29. sscanf(buf, fmt, arg)
  30.     unsigned char *buf;
  31.     unsigned char *fmt;
  32.     int arg;
  33.     {
  34.     return(_scanf(&buf, sgetc, sungetc, fmt, &arg));
  35.     }
  36.