reactos/lib/sdk/crt/wine/scanf.c

   1 /*
   2  * general implementation of scanf used by scanf, sscanf, fscanf,
   3  * _cscanf, wscanf, swscanf and fwscanf
   4  *
   5  * Copyright 1996,1998 Marcus Meissner
   6  * Copyright 1996 Jukka Iivonen
   7  * Copyright 1997,2000 Uwe Bonnes
   8  * Copyright 2000 Jon Griffiths
   9  * Copyright 2002 Daniel Gudbjartsson
  10  *
  11  * This library is free software; you can redistribute it and/or
  12  * modify it under the terms of the GNU Lesser General Public
  13  * License as published by the Free Software Foundation; either
  14  * version 2.1 of the License, or (at your option) any later version.
  15  *
  16  * This library is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * Lesser General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU Lesser General Public
  22  * License along with this library; if not, write to the Free Software
  23  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  24  */
  25
  26 #include <precomp.h>
  27
  28 #include <wchar.h>
  29 #include <ctype.h>
  30
  31 #define NDEBUG
  32 #include <internal/debug.h>
  33
  34 #define WARN DPRINT1
  35
  36 extern FILE _iob[];
  37
  38 /* helper function for *scanf.  Returns the value of character c in the
  39  * given base, or -1 if the given character is not a digit of the base.
  40  */
  41 static int char2digit(char c, int base) {
  42     if ((c>='0') && (c<='9') && (c<='0'+base-1)) return (c-'0');
  43     if (base<=10) return -1;
  44     if ((c>='A') && (c<='Z') && (c<='A'+base-11)) return (c-'A'+10);
  45     if ((c>='a') && (c<='z') && (c<='a'+base-11)) return (c-'a'+10);
  46     return -1;
  47 }
  48
  49 /* helper function for *wscanf.  Returns the value of character c in the
  50  * given base, or -1 if the given character is not a digit of the base.
  51  */
  52 static int wchar2digit(wchar_t c, int base) {
  53     if ((c>=L'0') && (c<=L'9') && (c<=L'0'+base-1)) return (c-L'0');
  54     if (base<=10) return -1;
  55     if ((c>=L'A') && (c<=L'Z') && (c<=L'A'+base-11)) return (c-L'A'+10);
  56     if ((c>=L'a') && (c<=L'z') && (c<=L'a'+base-11)) return (c-L'a'+10);
  57     return -1;
  58 }
  59
  60 /* vfscanf */
  61 #undef WIDE_SCANF
  62 #undef CONSOLE
  63 #undef STRING
  64 #include "scanf.h"
  65
  66 /* vfwscanf */
  67 #define WIDE_SCANF 1
  68 #undef CONSOLE
  69 #undef STRING
  70 #include "scanf.h"
  71
  72 /* vsscanf */
  73 #undef WIDE_SCANF
  74 #undef CONSOLE
  75 #define STRING 1
  76 #include "scanf.h"
  77
  78 /* vswscanf */
  79 #define WIDE_SCANF 1
  80 #undef CONSOLE
  81 #define STRING 1
  82 #include "scanf.h"
  83
  84 /* vcscanf */
  85 #undef WIDE_SCANF
  86 #define CONSOLE 1
  87 #undef STRING
  88 #include "scanf.h"
  89
  90
  91 /*********************************************************************
  92  *              fscanf (MSVCRT.@)
  93  */
  94 int fscanf(FILE *file, const char *format, ...)
  95 {
  96     va_list valist;
  97     int res;
  98
  99     va_start(valist, format);
 100     res = vfscanf(file, format, valist);
 101     va_end(valist);
 102     return res;
 103 }
 104
 105 /*********************************************************************
 106  *              scanf (MSVCRT.@)
 107  */
 108 int scanf(const char *format, ...)
 109 {
 110     va_list valist;
 111     int res;
 112
 113     va_start(valist, format);
 114     res = vfscanf(stdin, format, valist);
 115     va_end(valist);
 116     return res;
 117 }
 118
 119 /*********************************************************************
 120  *              fwscanf (MSVCRT.@)
 121  */
 122 int fwscanf(FILE *file, const wchar_t *format, ...)
 123 {
 124     va_list valist;
 125     int res;
 126
 127     va_start(valist, format);
 128     res = vfwscanf(file, format, valist);
 129     va_end(valist);
 130     return res;
 131 }
 132
 133
 134 /*********************************************************************
 135  *              wscanf (MSVCRT.@)
 136  */
 137 int wscanf(const wchar_t *format, ...)
 138 {
 139     va_list valist;
 140     int res;
 141
 142     va_start(valist, format);
 143     res = vfwscanf(stdin, format, valist);
 144     va_end(valist);
 145     return res;
 146 }
 147
 148
 149 /*********************************************************************
 150  *              sscanf (MSVCRT.@)
 151  */
 152 int crt_sscanf(const char *str, const char *format, ...)
 153 {
 154     va_list valist;
 155     int res;
 156
 157     va_start(valist, format);
 158     res = vsscanf(str, format, valist);
 159     va_end(valist);
 160     return res;
 161 }
 162
 163
 164 /*********************************************************************
 165  *              swscanf (MSVCRT.@)
 166  */
 167 int swscanf(const wchar_t *str, const wchar_t *format, ...)
 168 {
 169     va_list valist;
 170     int res;
 171
 172     va_start(valist, format);
 173     res = vswscanf(str, format, valist);
 174     va_end(valist);
 175     return res;
 176 }
 177
 178
 179 /*********************************************************************
 180  *              _cscanf (MSVCRT.@)
 181  */
 182 int _cscanf(/*const*/ char *format, ...)
 183 {
 184     va_list valist;
 185     int res;
 186
 187     va_start(valist, format);
 188     res = vcscanf(format, valist);
 189     va_end(valist);
 190     return res;
 191 }