Return to fscanf.c CVS log

Up to [local] / OpenXM_contrib / gmp / scanf

Annotation of OpenXM_contrib/gmp/scanf/fscanf.c, Revision 1.1.1.1

1.1       ohara       1: /* gmp_fscanf -- formatted input from a FILE.
                      2:
                      3: Copyright 2001 Free Software Foundation, Inc.
                      4:
                      5: This file is part of the GNU MP Library.
                      6:
                      7: The GNU MP Library is free software; you can redistribute it and/or modify
                      8: it under the terms of the GNU Lesser General Public License as published by
                      9: the Free Software Foundation; either version 2.1 of the License, or (at your
                     10: option) any later version.
                     11:
                     12: The GNU MP Library is distributed in the hope that it will be useful, but
                     13: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
                     14: or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
                     15: License for more details.
                     16:
                     17: You should have received a copy of the GNU Lesser General Public License
                     18: along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
                     19: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
                     20: MA 02111-1307, USA. */
                     21:
                     22: #include "config.h"
                     23:
                     24: #if HAVE_STDARG
                     25: #include <stdarg.h>
                     26: #else
                     27: #include <varargs.h>
                     28: #endif
                     29:
                     30: #include <stdio.h>
                     31:
                     32: #include "gmp.h"
                     33: #include "gmp-impl.h"
                     34:
                     35:
                     36: int
                     37: #if HAVE_STDARG
                     38: gmp_fscanf (FILE *fp, const char *fmt, ...)
                     39: #else
                     40: gmp_fscanf (va_alist)
                     41:      va_dcl
                     42: #endif
                     43: {
                     44:   va_list  ap;
                     45:   int      ret;
                     46: #if HAVE_STDARG
                     47:   va_start (ap, fmt);
                     48: #else
                     49:   FILE       *fp;
                     50:   const char *fmt;
                     51:   va_start (ap);
                     52:   fp = va_arg (ap, FILE *);
                     53:   fmt = va_arg (ap, const char *);
                     54: #endif
                     55:
                     56:   ret = __gmp_doscan (&__gmp_fscanf_funs, fp, fmt, ap);
                     57:   va_end (ap);
                     58:   return ret;
                     59: }