b27eb5626aa9df61575698bfdfb1158e32e5119d
2 * general implementation of scanf used by scanf, sscanf, fscanf,
3 * _cscanf, wscanf, swscanf and fwscanf
5 * Copyright 1996,1998 Marcus Meissner
6 * Copyright 1996 Jukka Iivonen
7 * Copyright 1997,2000, 2003 Uwe Bonnes
8 * Copyright 2000 Jon Griffiths
9 * Copyright 2002 Daniel Gudbjartsson
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.
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.
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
27 #define _CHAR_ wchar_t
30 #define _ISSPACE_(c) iswspace(c)
31 #define _ISDIGIT_(c) iswdigit(c)
32 #define _WIDE2SUPPORTED_(c) c /* No conversion needed (wide to wide) */
33 #define _CHAR2SUPPORTED_(c) c /* FIXME: convert char to wide char */
34 #define _CHAR2DIGIT_(c, base) wchar2digit((c), (base))
35 #define _BITMAPSIZE_ 256*256
36 #else /* WIDE_SCANF */
40 #define _ISSPACE_(c) isspace((unsigned char)(c))
41 #define _ISDIGIT_(c) isdigit((unsigned char)(c))
42 #define _WIDE2SUPPORTED_(c) c /* FIXME: convert wide char to char */
43 #define _CHAR2SUPPORTED_(c) c /* No conversion needed (char to char) */
44 #define _CHAR2DIGIT_(c, base) char2digit((c), (base))
45 #define _BITMAPSIZE_ 256
46 #endif /* WIDE_SCANF */
49 #define _GETC_(file) (consumed++, _getch())
50 #define _UNGETC_(nch, file) do { _ungetch(nch); consumed--; } while(0)
51 #define _FUNCTION_ int vcscanf(const char *format, va_list ap)
56 #define _GETC_(file) (consumed++, *file++)
57 #define _UNGETC_(nch, file) do { file--; consumed--; } while(0)
59 #define _FUNCTION_ int vswscanf(const wchar_t *file, const wchar_t *format, va_list ap)
60 #else /* WIDE_SCANF */
61 #define _FUNCTION_ int vsscanf(const char *file, const char *format, va_list ap)
62 #endif /* WIDE_SCANF */
65 #define _GETC_(file) (consumed++, fgetwc(file))
66 #define _UNGETC_(nch, file) do { ungetwc(nch, file); consumed--; } while(0)
67 #define _FUNCTION_ int vfwscanf(FILE* file, const wchar_t *format, va_list ap)
68 #else /* WIDE_SCANF */
69 #define _GETC_(file) (consumed++, fgetc(file))
70 #define _UNGETC_(nch, file) do { ungetc(nch, file); consumed--; } while(0)
71 #define _FUNCTION_ int vfscanf(FILE* file, const char *format, va_list ap)
72 #endif /* WIDE_SCANF */
77 int rd
= 0, consumed
= 0;
79 if (!*format
) return 0;
82 TRACE("(%s):\n", debugstr_a(format
));
85 TRACE("%s (%s)\n", file
, debugstr_a(format
));
87 TRACE("%p (%s)\n", file
, debugstr_a(format
));
90 #endif /* WIDE_SCANF */
92 if (nch
== _EOF_
) return _EOF_RET
;
95 /* a whitespace character in the format string causes scanf to read,
96 * but not store, all consecutive white-space characters in the input
97 * up to the next non-white-space character. One white space character
98 * in the input matches any number (including zero) and combination of
99 * white-space characters in the input. */
100 if (_ISSPACE_(*format
)) {
101 /* skip whitespace */
102 while ((nch
!=_EOF_
) && _ISSPACE_(nch
))
105 /* a format specification causes scanf to read and convert characters
106 * in the input into values of a specified type. The value is assigned
107 * to an argument in the argument list. Format specifications have
108 * the form %[*][width][{h | l | I64 | L}]type */
109 else if (*format
== '%') {
110 int st
= 0; int suppress
= 0; int width
= 0;
116 int prefix_finished
= 0;
119 /* look for leading asterisk, which means 'suppress assignment of
125 /* look for width specification */
126 while (_ISDIGIT_(*format
)) {
128 width
+=*format
++ - '0';
130 if (width
==0) width
=-1; /* no width spec seen */
131 /* read prefix (if any) */
132 while (!prefix_finished
) {
134 case 'h': h_prefix
++; break;
136 if(*(format
+1) == 'l') {
142 case 'w': w_prefix
= 1; break;
143 case 'L': L_prefix
= 1; break;
145 if (*(format
+ 1) == '6' &&
146 *(format
+ 2) == '4') {
154 if (!prefix_finished
) format
++;
159 case 'P': /* pointer. */
160 if (sizeof(void *) == sizeof(LONGLONG
)) I64_prefix
= 1;
163 case 'X': /* hexadecimal integer. */
166 case 'o': /* octal integer */
169 case 'u': /* unsigned decimal integer */
172 case 'd': /* signed decimal integer */
175 case 'i': /* generic integer */
178 /* read an integer */
182 /* skip initial whitespace */
183 while ((nch
!=_EOF_
) && _ISSPACE_(nch
))
186 if (nch
== '-' || nch
== '+') {
187 negative
= (nch
=='-');
189 if (width
>0) width
--;
191 /* look for leading indication of base */
192 if (width
!=0 && nch
== '0' && *format
!= 'p' && *format
!= 'P') {
194 if (width
>0) width
--;
196 if (width
!=0 && (nch
=='x' || nch
=='X')) {
201 if (width
>0) width
--;
207 /* format %i without indication of base */
210 /* throw away leading zeros */
211 while (width
!=0 && nch
=='0') {
213 if (width
>0) width
--;
216 if (width
!=0 && _CHAR2DIGIT_(nch
, base
)!=-1) {
217 cur
= _CHAR2DIGIT_(nch
, base
);
219 if (width
>0) width
--;
222 /* read until no more digits */
223 while (width
!=0 && (nch
!=_EOF_
) && _CHAR2DIGIT_(nch
, base
)!=-1) {
224 cur
= cur
*base
+ _CHAR2DIGIT_(nch
, base
);
226 if (width
>0) width
--;
230 if (!seendigit
) break; /* not a valid number */
233 #define _SET_NUMBER_(type) *va_arg(ap, type*) = (type)(negative ? -cur : cur)
234 if (I64_prefix
) _SET_NUMBER_(LONGLONG
);
235 else if (l_prefix
) _SET_NUMBER_(LONG
);
236 else if (h_prefix
== 1) _SET_NUMBER_(short int);
237 else _SET_NUMBER_(int);
245 case 'G': { /* read a float */
248 /* skip initial whitespace */
249 while ((nch
!=_EOF_
) && _ISSPACE_(nch
))
252 if (nch
== '-' || nch
== '+') {
253 negative
= (nch
=='-');
254 if (width
>0) width
--;
258 /* get first digit. */
260 if (!_ISDIGIT_(nch
)) break;
263 if (width
>0) width
--;
264 /* read until no more digits */
265 while (width
!=0 && (nch
!=_EOF_
) && _ISDIGIT_(nch
)) {
266 cur
= cur
*10 + (nch
- '0');
268 if (width
>0) width
--;
271 cur
= 0; /* MaxPayneDemo Fix: .8 -> 0.8 */
273 /* handle decimals */
274 if (width
!=0 && nch
== '.') {
277 if (width
>0) width
--;
278 while (width
!=0 && (nch
!=_EOF_
) && _ISDIGIT_(nch
)) {
280 cur
+= dec
* (nch
- '0');
282 if (width
>0) width
--;
285 /* handle exponent */
286 if (width
!=0 && (nch
== 'e' || nch
== 'E')) {
287 int exponent
= 0, negexp
= 0;
288 double expcnt
, shift
;
290 if (width
>0) width
--;
291 /* possible sign on the exponent */
292 if (width
!=0 && (nch
=='+' || nch
=='-')) {
295 if (width
>0) width
--;
297 /* exponent digits */
298 while (width
!=0 && (nch
!=_EOF_
) && _ISDIGIT_(nch
)) {
300 exponent
+= (nch
- '0');
302 if (width
>0) width
--;
304 /* update 'cur' with this exponent. */
307 while (exponent
!=0) {
311 expcnt
=expcnt
*expcnt
;
313 cur
= (negexp
? cur
/ shift
: cur
* shift
);
317 if (L_prefix
) _SET_NUMBER_(long double);
318 else if (l_prefix
) _SET_NUMBER_(double);
319 else _SET_NUMBER_(float);
323 /* According to msdn,
324 * 's' reads a character string in a call to fscanf
325 * and 'S' a wide character string and vice versa in a
326 * call to fwscanf. The 'h', 'w' and 'l' prefixes override
327 * this behaviour. 'h' forces reading char * but 'l' and 'w'
328 * force reading WCHAR. */
330 if (w_prefix
|| l_prefix
) goto widecharstring
;
331 else if (h_prefix
) goto charstring
;
333 else goto widecharstring
;
334 #else /* WIDE_SCANF */
335 else goto charstring
;
336 #endif /* WIDE_SCANF */
338 if (w_prefix
|| l_prefix
) goto widecharstring
;
339 else if (h_prefix
) goto charstring
;
341 else goto charstring
;
342 #else /* WIDE_SCANF */
343 else goto widecharstring
;
344 #endif /* WIDE_SCANF */
345 charstring
: { /* read a word into a char */
346 char *sptr
= suppress
? NULL
: va_arg(ap
, char*);
347 /* skip initial whitespace */
348 while ((nch
!=_EOF_
) && _ISSPACE_(nch
))
350 /* read until whitespace */
351 while (width
!=0 && (nch
!=_EOF_
) && !_ISSPACE_(nch
)) {
352 if (!suppress
) *sptr
++ = _CHAR2SUPPORTED_(nch
);
355 if (width
>0) width
--;
358 if (!suppress
) *sptr
= 0;
361 widecharstring
: { /* read a word into a wchar_t* */
362 wchar_t *sptr
= suppress
? NULL
: va_arg(ap
, wchar_t*);
363 /* skip initial whitespace */
364 while ((nch
!=_EOF_
) && _ISSPACE_(nch
))
366 /* read until whitespace */
367 while (width
!=0 && (nch
!=_EOF_
) && !_ISSPACE_(nch
)) {
368 if (!suppress
) *sptr
++ = _WIDE2SUPPORTED_(nch
);
371 if (width
>0) width
--;
374 if (!suppress
) *sptr
= 0;
377 /* 'c' and 'C work analogously to 's' and 'S' as described
380 if (w_prefix
|| l_prefix
) goto widecharacter
;
381 else if (h_prefix
) goto character
;
383 else goto widecharacter
;
384 #else /* WIDE_SCANF */
386 #endif /* WIDE_SCANF */
388 if (w_prefix
|| l_prefix
) goto widecharacter
;
389 else if (h_prefix
) goto character
;
392 #else /* WIDE_SCANF */
393 else goto widecharacter
;
394 #endif /* WIDE_SCANF */
395 character
: { /* read single character into char */
396 char *str
= suppress
? NULL
: va_arg(ap
, char*);
397 if (width
== -1) width
= 1;
398 while ((width
!= 0) && (nch
!= _EOF_
))
400 if (!suppress
) *str
++ = _CHAR2SUPPORTED_(nch
);
407 widecharacter
: { /* read single character into a wchar_t */
408 wchar_t *str
= suppress
? NULL
: va_arg(ap
, wchar_t*);
409 if (width
== -1) width
= 1;
410 while ((width
!= 0) && (nch
!= _EOF_
))
412 if (!suppress
) *str
++ = _WIDE2SUPPORTED_(nch
);
421 int*n
= va_arg(ap
, int*);
424 /* This is an odd one: according to the standard,
425 * "Execution of a %n directive does not increment the
426 * assignment count returned at the completion of
427 * execution" even if it wasn't suppressed with the
428 * '*' flag. The Corrigendum to the standard seems
429 * to contradict this (comment out the assignment to
430 * suppress below if you want to implement these
431 * alternate semantics) but the windows program I'm
432 * looking at expects the behavior I've coded here
433 * (which happens to be what glibc does as well).
440 _CHAR_
*str
= suppress
? NULL
: va_arg(ap
, _CHAR_
*);
444 int invert
= 0; /* Set if we are NOT to find the chars */
446 /* Init our bitmap */
448 Mask
= RtlAllocateHeap(RtlGetProcessHeap(), HEAP_ZERO_MEMORY
, _BITMAPSIZE_
/8);
450 Mask
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, _BITMAPSIZE_
/8);
452 RtlInitializeBitMap(&bitMask
, Mask
, _BITMAPSIZE_
);
454 /* Read the format */
461 RtlSetBits(&bitMask
, ']', 1);
464 while(*format
&& (*format
!= ']')) {
465 /* According to msdn:
466 * "Note that %[a-z] and %[z-a] are interpreted as equivalent to %[abcde...z]." */
467 if((*format
== '-') && (*(format
+ 1) != ']')) {
468 if ((*(format
- 1)) < *(format
+ 1))
469 RtlSetBits(&bitMask
, *(format
- 1) +1 , *(format
+ 1) - *(format
- 1));
471 RtlSetBits(&bitMask
, *(format
+ 1) , *(format
- 1) - *(format
+ 1));
474 RtlSetBits(&bitMask
, *format
, 1);
477 /* read until char is not suitable */
478 while ((width
!= 0) && (nch
!= _EOF_
)) {
480 if(RtlAreBitsSet(&bitMask
, nch
, 1)) {
481 if (!suppress
) *sptr
++ = _CHAR2SUPPORTED_(nch
);
485 if(RtlAreBitsClear(&bitMask
, nch
, 1)) {
486 if (!suppress
) *sptr
++ = _CHAR2SUPPORTED_(nch
);
492 if (width
>0) width
--;
495 if (!suppress
) *sptr
= 0;
497 RtlFreeHeap(RtlGetProcessHeap(), 0, Mask
);
499 HeapFree(GetProcessHeap(), 0, Mask
);
504 /* From spec: "if a percent sign is followed by a character
505 * that has no meaning as a format-control character, that
506 * character and the following characters are treated as
507 * an ordinary sequence of characters, that is, a sequence
508 * of characters that must match the input. For example,
509 * to specify that a percent-sign character is to be input,
511 while ((nch
!=_EOF_
) && _ISSPACE_(nch
))
514 suppress
= 1; /* whoops no field to be read */
515 st
= 1; /* but we got what we expected */
520 if (st
&& !suppress
) rd
++;
523 /* a non-white-space character causes scanf to read, but not store,
524 * a matching non-white-space character. */
526 /* check for character match */
527 if (nch
== *format
) {
537 TRACE("returning %d\n", rd
);
546 #undef _CHAR2SUPPORTED_
547 #undef _WIDE2SUPPORTED_