compiler/clib/vfscanf.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Scan a stream and write the result in the parameters.
   6 */
   7
   8 /* Original source from libnix */
   9
  10 #include <proto/dos.h>
  11 #include <errno.h>
  12 #include "__errno.h"
  13 #include "__open.h"
  14 #include <stdio.h>
  15
  16 /*
  17 ** If the VFSCANF_DIRECT_DOS define is set to 1, dos.library functions FGetC()
  18 ** and UnGetC() are used directly, for possibly better speed. Otherwise
  19 ** the clib functions fgetc/ungetc are used.
  20 */
  21
  22 #define VFSCANF_DIRECT_DOS 1
  23
  24 #if VFSCANF_DIRECT_DOS
  25
  26 struct __vfscanf_handle
  27 {
  28     FILE  *stream;
  29     fdesc *fdesc;
  30 };
  31
  32 static int __getc(void *_h);
  33 static int __ungetc(int c, void *_h);
  34
  35 #endif
  36
  37 /*****************************************************************************
  38
  39     NAME */
  40 #include <stdarg.h>
  41
  42         int vfscanf (
  43
  44 /*  SYNOPSIS */
  45         FILE       * stream,
  46         const char * format,
  47         va_list      args)
  48
  49 /*  FUNCTION
  50         Read the scream, scan it as the format specified and write the
  51         result of the conversion into the specified arguments.
  52
  53     INPUTS
  54         stream - A stream to read from
  55         format - A scanf() format string.
  56         args - A list of arguments for the results.
  57
  58     RESULT
  59         The number of converted arguments.
  60
  61     NOTES
  62
  63     EXAMPLE
  64
  65     BUGS
  66
  67     SEE ALSO
  68
  69     INTERNALS
  70
  71 ******************************************************************************/
  72 {
  73 #if VFSCANF_DIRECT_DOS
  74     struct __vfscanf_handle h;
  75
  76     h.stream = stream;
  77     h.fdesc  = __getfdesc(stream->fd);
  78
  79     if (!h.fdesc)
  80     {
  81         errno = EBADF;
  82         return 0;
  83     }
  84
  85
  86     Flush (h.fdesc->fh);
  87
  88     return __vcscan (&h, __getc, __ungetc, format, args);
  89 #else
  90     fdesc *fdesc;
  91
  92     fdesc = __getfdesc(stream->fd);
  93
  94     if (!fdesc)
  95     {
  96         errno = EBADF;
  97         return 0;
  98     }
  99
 100     Flush (fdesc->fh);
 101
 102     return __vcscan (stream, fgetc, ungetc, format, args);
 103
 104 #endif
 105 } /* vfscanf */
 106
 107 #if VFSCANF_DIRECT_DOS
 108
 109 static int __ungetc(int c, void *_h)
 110 {
 111     struct __vfscanf_handle *h = _h;
 112     /* Note: changes here might require changes in ungetc.c!! */
 113
 114     if (c < -1)
 115         c = (unsigned int)c;
 116
 117     if (!UnGetC((BPTR)h->fdesc->fh, c))
 118     {
 119         errno = IoErr2errno(IoErr());
 120
 121         if (errno)
 122         {
 123             h->stream->flags |= _STDIO_ERROR;
 124         }
 125         else
 126         {
 127             h->stream->flags |= _STDIO_EOF;
 128         }
 129
 130         c = EOF;
 131     }
 132
 133     return c;
 134 }
 135
 136 static int __getc(void *_h)
 137 {
 138     struct __vfscanf_handle *h = _h;
 139     int c;
 140
 141     /* Note: changes here might require changes in fgetc.c!! */
 142
 143     c = FGetC((BPTR)h->fdesc->fh);
 144
 145     if (c == EOF)
 146     {
 147         c = IoErr();
 148
 149         if (c)
 150         {
 151             errno = IoErr2errno(c);
 152             h->stream->flags |= _STDIO_ERROR;
 153         }
 154         else
 155         {
 156             h->stream->flags |= _STDIO_EOF;
 157         }
 158
 159         c = EOF;
 160     }
 161
 162     return c;
 163 }
 164
 165 #endif