reactos/lib/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 <conio.h>
  30 #include <ctype.h>
  31
  32 #define NDEBUG
  33 #include <internal/debug.h>
  34
  35 #define WARN DPRINT1
  36
  37 extern FILE _iob[];
  38
  39 /* helper function for *scanf.  Returns the value of character c in the
  40  * given base, or -1 if the given character is not a digit of the base.
  41  */
  42 static int char2digit(char c, int base) {
  43     if ((c>='0') && (c<='9') && (c<='0'+base-1)) return (c-'0');
  44     if (base<=10) return -1;
  45     if ((c>='A') && (c<='Z') && (c<='A'+base-11)) return (c-'A'+10);
  46     if ((c>='a') && (c<='z') && (c<='a'+base-11)) return (c-'a'+10);
  47     return -1;
  48 }
  49
  50 /* helper function for *wscanf.  Returns the value of character c in the
  51  * given base, or -1 if the given character is not a digit of the base.
  52  */
  53 static int wchar2digit(wchar_t c, int base) {
  54     if ((c>=L'0') && (c<=L'9') && (c<=L'0'+base-1)) return (c-L'0');
  55     if (base<=10) return -1;
  56     if ((c>=L'A') && (c<=L'Z') && (c<=L'A'+base-11)) return (c-L'A'+10);
  57     if ((c>=L'a') && (c<=L'z') && (c<=L'a'+base-11)) return (c-L'a'+10);
  58     return -1;
  59 }
  60
  61 /* vfscanf */
  62 #undef WIDE_SCANF
  63 #undef CONSOLE
  64 #undef STRING
  65 #include "scanf.h"
  66
  67 /* vfwscanf */
  68 #define WIDE_SCANF 1
  69 #undef CONSOLE
  70 #undef STRING
  71 #include "scanf.h"
  72
  73 /* vsscanf */
  74 #undef WIDE_SCANF
  75 #undef CONSOLE
  76 #define STRING 1
  77 #include "scanf.h"
  78
  79 /* vswscanf */
  80 #define WIDE_SCANF 1
  81 #undef CONSOLE
  82 #define STRING 1
  83 #include "scanf.h"
  84
  85 /* vcscanf */
  86 #undef WIDE_SCANF
  87 #define CONSOLE 1
  88 #undef STRING
  89 #include "scanf.h"
  90
  91
  92 /*********************************************************************
  93  *              fscanf (MSVCRT.@)
  94  */
  95 int fscanf(FILE *file, const char *format, ...)
  96 {
  97     va_list valist;
  98     int res;
  99
 100     va_start(valist, format);
 101     res = vfscanf(file, format, valist);
 102     va_end(valist);
 103     return res;
 104 }
 105
 106 /*********************************************************************
 107  *              scanf (MSVCRT.@)
 108  */
 109 int scanf(const char *format, ...)
 110 {
 111     va_list valist;
 112     int res;
 113
 114     va_start(valist, format);
 115     res = vfscanf(stdin, format, valist);
 116     va_end(valist);
 117     return res;
 118 }
 119
 120 /*********************************************************************
 121  *              fwscanf (MSVCRT.@)
 122  */
 123 int fwscanf(FILE *file, const wchar_t *format, ...)
 124 {
 125     va_list valist;
 126     int res;
 127
 128     va_start(valist, format);
 129     res = vfwscanf(file, format, valist);
 130     va_end(valist);
 131     return res;
 132 }
 133
 134
 135 /*********************************************************************
 136  *              wscanf (MSVCRT.@)
 137  */
 138 int wscanf(const wchar_t *format, ...)
 139 {
 140     va_list valist;
 141     int res;
 142
 143     va_start(valist, format);
 144     res = vfwscanf(stdin, format, valist);
 145     va_end(valist);
 146     return res;
 147 }
 148
 149
 150 /*********************************************************************
 151  *              sscanf (MSVCRT.@)
 152  */
 153 int crt_sscanf(const char *str, const char *format, ...)
 154 {
 155     va_list valist;
 156     int res;
 157
 158     va_start(valist, format);
 159     res = vsscanf(str, format, valist);
 160     va_end(valist);
 161     return res;
 162 }
 163
 164
 165 /*********************************************************************
 166  *              swscanf (MSVCRT.@)
 167  */
 168 int swscanf(const wchar_t *str, const wchar_t *format, ...)
 169 {
 170     va_list valist;
 171     int res;
 172
 173     va_start(valist, format);
 174     res = vswscanf(str, format, valist);
 175     va_end(valist);
 176     return res;
 177 }
 178
 179
 180 /*********************************************************************
 181  *              _cscanf (MSVCRT.@)
 182  */
 183 int _cscanf(/*const*/ char *format, ...)
 184 {
 185     va_list valist;
 186     int res;
 187
 188     va_start(valist, format);
 189     res = vcscanf(format, valist);
 190     va_end(valist);
 191     return res;
 192 }