home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / stdio / fscanf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-30  |  361 b   |  28 lines
  1.  
  2. /*
  3.  *  FSCANF.C
  4.  *
  5.  *  (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  6.  */
  7.  
  8. #include <stdarg.h>
  9. #include <stdio.h>
  10.  
  11. int
  12. fscanf(fi, ctl)
  13. FILE *fi;
  14. const char *ctl;
  15. {
  16.     int error;
  17.     int cnt;
  18.     va_list va;
  19.  
  20.     va_start(va, ctl);
  21.     error = _sfmt(ctl, va, fgetc, ungetc, fi, &cnt);
  22.     va_end(va);
  23.     if (error)
  24.     return(error);
  25.     return(cnt);
  26. }
  27.  
  28.