1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230 |
- #define _ISOC99_SOURCE
- #define _GNU_SOURCE
- #define _STDIO_UTILITY
- #include <features.h>
- #include "_stdio.h"
- #include <stdlib.h>
- #include <unistd.h>
- #include <ctype.h>
- #include <string.h>
- #include <stdarg.h>
- #include <stdint.h>
- #include <errno.h>
- #include <printf.h>
- #ifdef __UCLIBC_HAS_WCHAR__
- #include <bits/uClibc_uwchar.h>
- #include <wchar.h>
- #include <wctype.h>
- #endif
- #include <langinfo.h>
- #include <locale.h>
- #include <assert.h>
- #include <limits.h>
- #ifdef __UCLIBC_HAS_THREADS__
- #include <stdio_ext.h>
- #include <pthread.h>
- #endif
- #ifdef __UCLIBC_HAS_FLOATS__
- #include <float.h>
- #include <bits/uClibc_fpmax.h>
- #endif
- #ifdef __UCLIBC_HAS_SCANF_GLIBC_A_FLAG__
- #ifdef L_vfscanf
- #warning Forcing undef of __UCLIBC_HAS_SCANF_GLIBC_A_FLAG__ until implemented!
- #endif
- #undef __UCLIBC_HAS_SCANF_GLIBC_A_FLAG__
- #endif
- #undef __STDIO_HAS_VSSCANF
- #if defined(__STDIO_BUFFERS) || !defined(__UCLIBC_HAS_WCHAR__) || defined(__UCLIBC_HAS_GLIBC_CUSTOM_STREAMS__)
- #define __STDIO_HAS_VSSCANF 1
- #if !defined(__STDIO_BUFFERS) && !defined(__UCLIBC_HAS_WCHAR__)
- typedef struct {
- FILE f;
- unsigned char *bufread;
- unsigned char *bufpos;
- } __FILE_vsscanf;
- #endif
- #endif
- extern void _store_inttype(void *dest, int desttype, uintmax_t val);
- #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
- extern unsigned long long
- _stdlib_strto_ll(register const char * __restrict str,
- char ** __restrict endptr, int base, int sflag);
- #if (ULLONG_MAX == UINTMAX_MAX)
- #define STRTOUIM(s,e,b,sf) _stdlib_strto_ll(s,e,b,sf)
- #endif
- #else
- extern unsigned long
- _stdlib_strto_l(register const char * __restrict str,
- char ** __restrict endptr, int base, int sflag);
- #if (ULONG_MAX == UINTMAX_MAX)
- #define STRTOUIM(s,e,b,sf) _stdlib_strto_l(s,e,b,sf)
- #endif
- #endif
- #ifndef STRTOUIM
- #error STRTOUIM conversion function is undefined!
- #endif
- #if EOF >= CHAR_MIN
- #define __isdigit_char_or_EOF(C) __isdigit_char((C))
- #else
- #define __isdigit_char_or_EOF(C) __isdigit_int((C))
- #endif
- #ifdef L_fscanf
- int fscanf(FILE * __restrict stream, const char * __restrict format, ...)
- {
- va_list arg;
- int rv;
- va_start(arg, format);
- rv = vfscanf(stream, format, arg);
- va_end(arg);
- return rv;
- }
- #endif
- #ifdef L_scanf
- int scanf(const char * __restrict format, ...)
- {
- va_list arg;
- int rv;
- va_start(arg, format);
- rv = vfscanf(stdin, format, arg);
- va_end(arg);
- return rv;
- }
- #endif
- #ifdef L_sscanf
- #ifdef __STDIO_HAS_VSSCANF
- int sscanf(const char * __restrict str, const char * __restrict format, ...)
- {
- va_list arg;
- int rv;
- va_start(arg, format);
- rv = vsscanf(str, format, arg);
- va_end(arg);
- return rv;
- }
- #else
- #warning Skipping sscanf since no vsscanf!
- #endif
- #endif
- #ifdef L_vscanf
- int vscanf(const char * __restrict format, va_list arg)
- {
- return vfscanf(stdin, format, arg);
- }
- #endif
- #ifdef L_vsscanf
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning WISHLIST: Implement vsscanf for non-buf and no custom stream case.
- #endif
- #ifdef __STDIO_BUFFERS
- int vsscanf(__const char *sp, __const char *fmt, va_list ap)
- {
- FILE f;
- #ifdef __UCLIBC_HAS_GLIBC_CUSTOM_STREAMS__
- f.__cookie = &(f.__filedes);
- f.__gcs.read = NULL;
- f.__gcs.write = NULL;
- f.__gcs.seek = NULL;
- f.__gcs.close = NULL;
- #endif
- f.__filedes = __STDIO_STREAM_FAKE_VSSCANF_FILEDES;
- f.__modeflags = (__FLAG_NARROW|__FLAG_READONLY|__FLAG_READING);
- #ifdef __UCLIBC_HAS_WCHAR__
- f.__ungot_width[0] = 0;
- #endif
- #ifdef __STDIO_MBSTATE
- __INIT_MBSTATE(&(f.__state));
- #endif
- #ifdef __UCLIBC_HAS_THREADS__
- f.__user_locking = 1;
- __stdio_init_mutex(&f.__lock);
- #endif
- f.__nextopen = NULL;
-
- f.__bufstart =
- f.__bufpos = (unsigned char *) ((void *) sp);
- f.__bufread =
- f.__bufend = f.__bufstart + strlen(sp);
- __STDIO_STREAM_ENABLE_GETC(&f);
- __STDIO_STREAM_DISABLE_PUTC(&f);
- return vfscanf(&f, fmt, ap);
- }
- #elif !defined(__UCLIBC_HAS_WCHAR__)
- int vsscanf(__const char *sp, __const char *fmt, va_list ap)
- {
- __FILE_vsscanf f;
- f.bufpos = (unsigned char *) ((void *) sp);
- f.bufread = f.bufpos + strlen(sp);
- #ifdef __UCLIBC_HAS_GLIBC_CUSTOM_STREAMS__
- f.f.__cookie = &(f.f.__filedes);
- f.f.__gcs.read = NULL;
- f.f.__gcs.write = NULL;
- f.f.__gcs.seek = NULL;
- f.f.__gcs.close = NULL;
- #endif
- f.f.__filedes = __STDIO_STREAM_FAKE_VSSCANF_FILEDES_NB;
- f.f.__modeflags = (__FLAG_NARROW|__FLAG_READONLY|__FLAG_READING);
- #ifdef __STDIO_MBSTATE
- #error __STDIO_MBSTATE is defined!
- #endif
- #ifdef __UCLIBC_HAS_THREADS__
- f.f.__user_locking = 1;
- __stdio_init_mutex(&f.f.__lock);
- #endif
- f.f.__nextopen = NULL;
- return vfscanf(&f.f, fmt, ap);
- }
- #elif defined(__UCLIBC_HAS_GLIBC_CUSTOM_STREAMS__)
- int vsscanf(__const char *sp, __const char *fmt, va_list ap)
- {
- FILE *f;
- int rv = EOF;
- if ((f = fmemopen((char *)sp, strlen(sp), "r")) != NULL) {
- rv = vfscanf(f, fmt, ap);
- fclose(f);
- }
- return rv;
- }
- #else
- #warning Skipping vsscanf since no buffering, no custom streams, and wchar enabled!
- #ifdef __STDIO_HAS_VSSCANF
- #error WHOA! __STDIO_HAS_VSSCANF is defined!
- #endif
- #endif
- #endif
- #ifdef L_fwscanf
- int fwscanf(FILE * __restrict stream, const wchar_t * __restrict format, ...)
- {
- va_list arg;
- int rv;
- va_start(arg, format);
- rv = vfwscanf(stream, format, arg);
- va_end(arg);
- return rv;
- }
- #endif
- #ifdef L_wscanf
- int wscanf(const wchar_t * __restrict format, ...)
- {
- va_list arg;
- int rv;
- va_start(arg, format);
- rv = vfwscanf(stdin, format, arg);
- va_end(arg);
- return rv;
- }
- #endif
- #ifdef L_swscanf
- #ifdef __STDIO_BUFFERS
- int swscanf(const wchar_t * __restrict str, const wchar_t * __restrict format,
- ...)
- {
- va_list arg;
- int rv;
- va_start(arg, format);
- rv = vswscanf(str, format, arg);
- va_end(arg);
- return rv;
- }
- #else
- #warning Skipping swscanf since no buffering!
- #endif
- #endif
- #ifdef L_vwscanf
- int vwscanf(const wchar_t * __restrict format, va_list arg)
- {
- return vfwscanf(stdin, format, arg);
- }
- #endif
- #ifdef L_vswscanf
- #ifdef __STDIO_BUFFERS
- int vswscanf(const wchar_t * __restrict str, const wchar_t * __restrict format,
- va_list arg)
- {
- FILE f;
- f.__bufstart =
- f.__bufpos = (char *) str;
- f.__bufread =
- f.__bufend = (char *)(str + wcslen(str));
- __STDIO_STREAM_DISABLE_GETC(&f);
- __STDIO_STREAM_DISABLE_PUTC(&f);
- #ifdef __UCLIBC_HAS_GLIBC_CUSTOM_STREAMS__
- f.__cookie = &(f.__filedes);
- f.__gcs.read = NULL;
- f.__gcs.write = NULL;
- f.__gcs.seek = NULL;
- f.__gcs.close = NULL;
- #endif
- f.__filedes = __STDIO_STREAM_FAKE_VSWSCANF_FILEDES;
- f.__modeflags = (__FLAG_WIDE|__FLAG_READONLY|__FLAG_READING);
- #ifdef __UCLIBC_HAS_WCHAR__
- f.__ungot_width[0] = 0;
- #endif
- #ifdef __STDIO_MBSTATE
- __INIT_MBSTATE(&(f.__state));
- #endif
- #ifdef __UCLIBC_HAS_THREADS__
- f.__user_locking = 1;
- __stdio_init_mutex(&f.__lock);
- #endif
- f.__nextopen = NULL;
- return vfwscanf(&f, format, arg);
- }
- #else
- #warning Skipping vswscanf since no buffering!
- #endif
- #endif
- #define SPEC_CHARS "npxXoudifFeEgGaACSncs["
- enum {
- CONV_n = 0,
- CONV_p,
- CONV_x, CONV_X, CONV_o, CONV_u, CONV_d, CONV_i,
- CONV_f, CONV_F, CONV_e, CONV_E, CONV_g, CONV_G, CONV_a, CONV_A,
- CONV_C, CONV_S, CONV_LEFTBRACKET, CONV_c, CONV_s, CONV_leftbracket,
- CONV_percent, CONV_whitespace
- };
- #ifdef __UCLIBC_HAS_FLOATS__
- #ifdef __UCLIBC_HAS_HEXADECIMAL_FLOATS__
- #define SPEC_BASE { 16, 16, 16, 8, 10, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
- #else
- #define SPEC_BASE { 16, 16, 16, 8, 10, 10, 0, 10, 10, 10, 10, 10, 10, 10, 10 }
- #endif
- #else
- #define SPEC_BASE { 16, 16, 16, 8, 10, 10, 0 }
- #endif
- #ifdef __UCLIBC_MJN3_ONLY__
- #ifdef L_vfscanf
- #warning CONSIDER: Add a '0' flag to eat 0 padding when grouping?
- #endif
- #endif
- #define SPEC_FLAGS "*'I"
- enum {
- FLAG_SURPRESS = 0x10,
- FLAG_THOUSANDS = 0x20,
- FLAG_I18N = 0x40,
- FLAG_MALLOC = 0x80,
- };
- #define SPEC_RANGES { CONV_n, CONV_p, CONV_i, CONV_A, \
- CONV_C, CONV_LEFTBRACKET, \
- CONV_c, CONV_leftbracket }
- #define SPEC_ALLOWED_FLAGS { \
- (0x0f|FLAG_SURPRESS), \
- ( 0|FLAG_SURPRESS), \
- (0x0f|FLAG_SURPRESS|FLAG_THOUSANDS|FLAG_I18N), \
- (0x0c|FLAG_SURPRESS|FLAG_THOUSANDS|FLAG_I18N), \
- ( 0|FLAG_SURPRESS), \
- ( 0|FLAG_SURPRESS|FLAG_MALLOC), \
- (0x04|FLAG_SURPRESS), \
- (0x04|FLAG_SURPRESS|FLAG_MALLOC), \
- }
- #ifdef PDS
- #error PDS already defined!
- #endif
- #ifdef SS
- #error SS already defined!
- #endif
- #ifdef IMS
- #error IMS already defined!
- #endif
- #if PTRDIFF_MAX == INT_MAX
- #define PDS 0
- #elif PTRDIFF_MAX == LONG_MAX
- #define PDS 4
- #elif defined(LLONG_MAX) && (PTRDIFF_MAX == LLONG_MAX)
- #define PDS 8
- #else
- #error fix QUAL_CHARS ptrdiff_t entry 't'!
- #endif
- #if SIZE_MAX == UINT_MAX
- #define SS 0
- #elif SIZE_MAX == ULONG_MAX
- #define SS 4
- #elif defined(LLONG_MAX) && (SIZE_MAX == ULLONG_MAX)
- #define SS 8
- #else
- #error fix QUAL_CHARS size_t entries 'z', 'Z'!
- #endif
- #if INTMAX_MAX == INT_MAX
- #define IMS 0
- #elif INTMAX_MAX == LONG_MAX
- #define IMS 4
- #elif defined(LLONG_MAX) && (INTMAX_MAX == LLONG_MAX)
- #define IMS 8
- #else
- #error fix QUAL_CHARS ptrdiff_t entry 't'!
- #endif
- #define QUAL_CHARS { \
- \
- 'h', 'l', 'L', 'j', 'z', 't', 'q', 0, \
- 2, 4, 8, IMS, SS, PDS, 8, 0, \
- 1, 8 }
- #ifdef L_vfwscanf
- #if WINT_MIN > EOF
- #error Unfortunately, we currently need wint_t to be able to store EOF. Sorry.
- #endif
- #define W_EOF WEOF
- #define Wint wint_t
- #define Wchar wchar_t
- #define Wuchar __uwchar_t
- #define ISSPACE(C) iswspace((C))
- #define VFSCANF vfwscanf
- #define GETC(SC) (SC)->sc_getc((SC))
- #else
- typedef unsigned char __uchar_t;
- #define W_EOF EOF
- #define Wint int
- #define Wchar char
- #define Wuchar __uchar_t
- #define ISSPACE(C) isspace((C))
- #define VFSCANF vfscanf
- #ifdef __UCLIBC_HAS_WCHAR__
- #define GETC(SC) (SC)->sc_getc((SC))
- #else
- #define GETC(SC) getc_unlocked((SC)->fp)
- #endif
- #endif
- struct scan_cookie {
- Wint cc;
- Wint ungot_char;
- FILE *fp;
- int nread;
- int width;
- #ifdef __UCLIBC_HAS_WCHAR__
- wchar_t app_ungot;
- unsigned char ungot_wchar_width;
- #else
- unsigned char app_ungot;
- #endif
- char ungot_flag;
- #ifdef __UCLIBC_HAS_WCHAR__
- char ungot_wflag;
- char mb_fail;
- mbstate_t mbstate;
- wint_t wc;
- wint_t ungot_wchar;
- int (*sc_getc)(struct scan_cookie *);
- #endif
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- const char *grouping;
- const unsigned char *thousands_sep;
- int tslen;
- #ifdef __UCLIBC_HAS_WCHAR__
- wchar_t thousands_sep_wc;
- #endif
- #endif
- #ifdef __UCLIBC_HAS_FLOATS__
- const unsigned char *decpt;
- int decpt_len;
- #ifdef __UCLIBC_HAS_WCHAR__
- wchar_t decpt_wc;
- #endif
- const unsigned char *fake_decpt;
- #endif
- };
- typedef struct {
- #if defined(NL_ARGMAX) && (NL_ARGMAX > 0)
- #if NL_ARGMAX > 10
- #warning NL_ARGMAX > 10, and space is allocated on the stack for positional args.
- #endif
- void *pos_args[NL_ARGMAX];
- int num_pos_args;
- int cur_pos_arg;
- #endif
- void *cur_ptr;
- const unsigned char *fmt;
- int cnt, dataargtype, conv_num, max_width;
- unsigned char store, flags;
- } psfs_t;
- extern void __init_scan_cookie(register struct scan_cookie *sc,
- register FILE *fp);
- extern int __scan_getc(register struct scan_cookie *sc);
- extern void __scan_ungetc(register struct scan_cookie *sc);
- #ifdef __UCLIBC_HAS_FLOATS__
- extern int __scan_strtold(long double *ld, struct scan_cookie *sc);
- #endif
- extern int __psfs_parse_spec(psfs_t *psfs);
- extern int __psfs_do_numeric(psfs_t *psfs, struct scan_cookie *sc);
- #ifdef L___scan_cookie
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning TODO: Remove dependence on decpt_str and fake_decpt in stub locale mode.
- #endif
- #ifndef __UCLIBC_HAS_LOCALE__
- static const char decpt_str[] = ".";
- #endif
- void __init_scan_cookie(register struct scan_cookie *sc,
- register FILE *fp)
- {
- sc->fp = fp;
- sc->nread = 0;
- sc->ungot_flag = 0;
- sc->app_ungot = ((fp->__modeflags & __FLAG_UNGOT) ? fp->__ungot[1] : 0);
- #ifdef __UCLIBC_HAS_WCHAR__
- sc->ungot_wflag = 0;
- sc->mb_fail = 0;
- #endif
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- if (*(sc->grouping = __UCLIBC_CURLOCALE_DATA.grouping)) {
- sc->thousands_sep = __UCLIBC_CURLOCALE_DATA.thousands_sep;
- sc->tslen = __UCLIBC_CURLOCALE_DATA.thousands_sep_len;
- #ifdef __UCLIBC_HAS_WCHAR__
- sc->thousands_sep_wc = __UCLIBC_CURLOCALE_DATA.thousands_sep_wc;
- #endif
- }
- #endif
- #ifdef __UCLIBC_HAS_FLOATS__
- #ifdef __UCLIBC_HAS_LOCALE__
- sc->decpt = __UCLIBC_CURLOCALE_DATA.decimal_point;
- sc->decpt_len = __UCLIBC_CURLOCALE_DATA.decimal_point_len;
- #else
- sc->fake_decpt = sc->decpt = decpt_str;
- sc->decpt_len = 1;
- #endif
- #ifdef __UCLIBC_HAS_WCHAR__
- #ifdef __UCLIBC_HAS_LOCALE__
- sc->decpt_wc = __UCLIBC_CURLOCALE_DATA.decimal_point_wc;
- #else
- sc->decpt_wc = '.';
- #endif
- #endif
- #endif
- }
- int __scan_getc(register struct scan_cookie *sc)
- {
- int c;
- #ifdef __UCLIBC_HAS_WCHAR__
- assert(!sc->mb_fail);
- #endif
- sc->cc = EOF;
- if (--sc->width < 0) {
- sc->ungot_flag |= 2;
- return -1;
- }
- if (sc->ungot_flag == 0) {
- #if !defined(__STDIO_BUFFERS) && !defined(__UCLIBC_HAS_WCHAR__)
- if (!__STDIO_STREAM_IS_FAKE_VSSCANF_NB(sc->fp)) {
- c = GETC(sc);
- } else {
- __FILE_vsscanf *fv = (__FILE_vsscanf *)(sc->fp);
- if (fv->bufpos < fv->bufread) {
- c = *fv->bufpos++;
- } else {
- c = EOF;
- sc->fp->__modeflags |= __FLAG_EOF;
- }
- }
- if (c == EOF) {
- sc->ungot_flag |= 2;
- return -1;
- }
- #else
- if ((c = GETC(sc)) == EOF) {
- sc->ungot_flag |= 2;
- return -1;
- }
- #endif
- sc->ungot_char = c;
- } else {
- assert(sc->ungot_flag == 1);
- sc->ungot_flag = 0;
- }
- ++sc->nread;
- return sc->cc = sc->ungot_char;
- }
- void __scan_ungetc(register struct scan_cookie *sc)
- {
- ++sc->width;
- if (sc->ungot_flag == 2) {
- sc->ungot_flag = 0;
- sc->cc = sc->ungot_char;
- } else if (sc->ungot_flag == 0) {
- sc->ungot_flag = 1;
- --sc->nread;
- } else {
- assert(0);
- }
- }
- #endif
- #ifdef L___psfs_parse_spec
- #ifdef SPEC_FLAGS
- static const unsigned char spec_flags[] = SPEC_FLAGS;
- #endif
- static const unsigned char spec_chars[] = SPEC_CHARS;
- static const unsigned char qual_chars[] = QUAL_CHARS;
- static const unsigned char spec_ranges[] = SPEC_RANGES;
- static const unsigned short spec_allowed[] = SPEC_ALLOWED_FLAGS;
- int __psfs_parse_spec(register psfs_t *psfs)
- {
- const unsigned char *p;
- const unsigned char *fmt0 = psfs->fmt;
- int i;
- #ifdef SPEC_FLAGS
- int j;
- #endif
- #if defined(NL_ARGMAX) && (NL_ARGMAX > 0)
- unsigned char fail = 0;
- i = 0;
- if (!__isdigit_char(*psfs->fmt)) {
- fail = 1;
- goto DO_FLAGS;
- }
-
- do {
- if (i <= ((INT_MAX - 9)/10)) {
- i = (i * 10) + (*psfs->fmt++ - '0');
- }
- } while (__isdigit_char(*psfs->fmt));
- if (*psfs->fmt != '$') {
- if (psfs->num_pos_args >= 0) {
- goto ERROR_EINVAL;
- }
- psfs->max_width = i;
- psfs->num_pos_args = -2;
- goto DO_QUALIFIER;
- }
- ++psfs->fmt;
- #endif
- #if defined(SPEC_FLAGS) || (defined(NL_ARGMAX) && (NL_ARGMAX > 0))
- DO_FLAGS:
- #endif
- #ifdef SPEC_FLAGS
- p = spec_flags;
- j = FLAG_SURPRESS;
- do {
- if (*p == *psfs->fmt) {
- ++psfs->fmt;
- psfs->flags |= j;
- goto DO_FLAGS;
- }
- j += j;
- } while (*++p);
- if (psfs->flags & FLAG_SURPRESS) {
- psfs->store = 0;
- goto DO_WIDTH;
- }
- #else
- if (*psfs->fmt == '*') {
- ++psfs->fmt;
- psfs->store = 0;
- goto DO_WIDTH;
- }
- #endif
- #if defined(NL_ARGMAX) && (NL_ARGMAX > 0)
- if (fail) {
-
- if (psfs->num_pos_args >= 0) {
- goto ERROR_EINVAL;
- }
- psfs->num_pos_args = -2;
- } else {
- if ((psfs->num_pos_args == -2) || (((unsigned int)(--i)) >= NL_ARGMAX)) {
-
- goto ERROR_EINVAL;
- }
- psfs->cur_pos_arg = i;
- }
- #endif
- DO_WIDTH:
- for (i = 0 ; __isdigit_char(*psfs->fmt) ; ) {
- if (i <= ((INT_MAX - 9)/10)) {
- i = (i * 10) + (*psfs->fmt++ - '0');
- psfs->max_width = i;
- }
- }
- #if defined(NL_ARGMAX) && (NL_ARGMAX > 0)
- DO_QUALIFIER:
- #endif
- p = qual_chars;
- do {
- if (*psfs->fmt == *p) {
- ++psfs->fmt;
- break;
- }
- } while (*++p);
- if ((p - qual_chars < 2) && (*psfs->fmt == *p)) {
- p += ((sizeof(qual_chars)-2) / 2);
- ++psfs->fmt;
- }
- psfs->dataargtype = ((int)(p[(sizeof(qual_chars)-2) / 2])) << 8;
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning CONSIDER: Should we validate that psfs->max_width > 0 in __psfs_parse_spec()? It would avoid whitespace consumption...
- #warning CONSIDER: Should INT_MAX be a valid width (%c/%C)? See __psfs_parse_spec().
- #endif
- p = spec_chars;
- do {
- if (*psfs->fmt == *p) {
- int p_m_spec_chars = p - spec_chars;
- #ifdef __UCLIBC_HAS_SCANF_GLIBC_A_FLAG__
- #error implement gnu a flag
- if ((*p == 'a')
- && ((psfs->fmt[1] == '[') || ((psfs->fmt[1]|0x20) == 's'))
- ) {
- psfs->flags |= FLAG_MALLOC;
- ++psfs->fmt;
- ++p;
- continue;
- }
- #endif
- for (p = spec_ranges; p_m_spec_chars > *p ; ++p) {}
- if (((psfs->dataargtype >> 8) | psfs->flags)
- & ~spec_allowed[(int)(p - spec_ranges)]
- ) {
- goto ERROR_EINVAL;
- }
- if ((p_m_spec_chars >= CONV_c)
- && (psfs->dataargtype & PA_FLAG_LONG)) {
- p_m_spec_chars -= 3;
- }
- psfs->conv_num = p_m_spec_chars;
- return psfs->fmt - fmt0;
- }
- if (!*++p) {
- ERROR_EINVAL:
- __set_errno(EINVAL);
- return -1;
- }
- } while(1);
- assert(0);
- }
- #endif
- #if defined(L_vfscanf) || defined(L_vfwscanf)
- #ifdef __UCLIBC_HAS_WCHAR__
- #ifdef L_vfscanf
- static int sc_getc(register struct scan_cookie *sc)
- {
- return (getc_unlocked)(sc->fp);
- }
- static int scan_getwc(register struct scan_cookie *sc)
- {
- size_t r;
- int width;
- wchar_t wc[1];
- char b[1];
- if (--sc->width < 0) {
- sc->ungot_flag |= 2;
- return -1;
- }
- width = sc->width;
- sc->width = INT_MAX;
- assert(!sc->mb_fail);
- r = (size_t)(-3);
- while (__scan_getc(sc) >= 0) {
- *b = sc->cc;
- r = mbrtowc(wc, b, 1, &sc->mbstate);
- if (((ssize_t) r) >= 0) {
- sc->wc = *wc;
- goto SUCCESS;
- } else if (r == ((size_t) -2)) {
-
- continue;
- }
- break;
- }
- if (r == ((size_t)(-3))) {
- sc->wc = WEOF;
- r = (size_t)(-1);
- } else {
-
- __set_errno(EILSEQ);
- sc->mb_fail = 1;
- }
-
- SUCCESS:
- sc->width = width;
- return (int)((ssize_t) r);
- }
- #endif
- #ifdef L_vfwscanf
- static int sc_getc(register struct scan_cookie *sc)
- {
- wint_t wc;
- if (__STDIO_STREAM_IS_FAKE_VSWSCANF(sc->fp)) {
- if (sc->fp->__bufpos < sc->fp->__bufend) {
- wc = *((wchar_t *)(sc->fp->__bufpos));
- sc->fp->__bufpos += sizeof(wchar_t);
- } else {
- sc->fp->__modeflags |= __FLAG_EOF;
- return EOF;
- }
- } else if ((wc = fgetwc_unlocked(sc->fp)) == WEOF) {
- return EOF;
- }
- sc->ungot_wflag = 1;
- sc->ungot_wchar = wc;
- sc->ungot_wchar_width = sc->fp->__ungot_width[0];
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- if (wc == sc->thousands_sep_wc) {
- wc = ',';
- } else
- #endif
- #ifdef __UCLIBC_HAS_FLOATS__
- if (wc == sc->decpt_wc) {
- wc = '.';
- } else
- #endif
- if (!__isascii(wc)) {
- wc = '?';
- }
- sc->wc = sc->ungot_char = wc;
- return (int) wc;
- }
- static int scan_getwc(register struct scan_cookie *sc)
- {
- wint_t wc;
- sc->wc = WEOF;
- if (--sc->width < 0) {
- sc->ungot_flag |= 2;
- return -1;
- }
- if (sc->ungot_flag == 0) {
- if (__STDIO_STREAM_IS_FAKE_VSWSCANF(sc->fp)) {
- if (sc->fp->__bufpos < sc->fp->__bufend) {
- wc = *((wchar_t *)(sc->fp->__bufpos));
- sc->fp->__bufpos += sizeof(wchar_t);
- } else {
- sc->ungot_flag |= 2;
- return -1;
- }
- } else if ((wc = fgetwc_unlocked(sc->fp)) == WEOF) {
- sc->ungot_flag |= 2;
- return -1;
- }
- sc->ungot_wflag = 1;
- sc->ungot_char = wc;
- sc->ungot_wchar_width = sc->fp->__ungot_width[0];
- } else {
- assert(sc->ungot_flag == 1);
- sc->ungot_flag = 0;
- }
- ++sc->nread;
- sc->wc = sc->ungot_char;
- return 0;
- }
- #endif
- #endif
- static __inline void kill_scan_cookie(register struct scan_cookie *sc)
- {
- #ifdef L_vfscanf
- if (sc->ungot_flag & 1) {
- #if !defined(__STDIO_BUFFERS) && !defined(__UCLIBC_HAS_WCHAR__)
- if (!__STDIO_STREAM_IS_FAKE_VSSCANF_NB(sc->fp)) {
- ungetc(sc->ungot_char, sc->fp);
- }
- #else
- ungetc(sc->ungot_char, sc->fp);
- #endif
-
- if (sc->nread == 0) {
- sc->fp->__ungot[1] = sc->app_ungot;
- } else {
- sc->fp->__ungot[1] = 0;
- }
- }
- #else
- if ((sc->ungot_flag & 1) && (sc->ungot_wflag & 1)
- && !__STDIO_STREAM_IS_FAKE_VSWSCANF(sc->fp)
- && (sc->fp->__state.__mask == 0)
- ) {
- ungetwc(sc->ungot_char, sc->fp);
-
- if (sc->nread == 0) {
- sc->fp->__ungot[1] = sc->app_ungot;
- } else {
- sc->fp->__ungot[1] = 0;
- }
- sc->fp->__ungot_width[1] = sc->ungot_wchar_width;
- }
- #endif
- }
- #ifdef L_vfwscanf
- #ifdef __UCLIBC_HAS_FLOATS__
- static const char fake_decpt_str[] = ".";
- #endif
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- static const char fake_thousands_sep_str[] = ",";
- #endif
- #endif
- int VFSCANF (FILE *__restrict fp, const Wchar *__restrict format, va_list arg)
- {
- const Wuchar *fmt;
- unsigned char *b;
- #ifdef L_vfwscanf
- wchar_t wbuf[1];
- wchar_t *wb;
- #endif
- #ifdef __UCLIBC_HAS_WCHAR__
- mbstate_t mbstate;
- #endif
- struct scan_cookie sc;
- psfs_t psfs;
- int i;
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning TODO: Fix MAX_DIGITS. We do not do binary, so...!
- #endif
- #define MAX_DIGITS 65
- unsigned char buf[MAX_DIGITS+2];
- #ifdef L_vfscanf
- unsigned char scanset[UCHAR_MAX + 1];
- unsigned char invert;
- #endif
- unsigned char fail;
- unsigned char zero_conversions = 1;
- __STDIO_AUTO_THREADLOCK_VAR;
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning TODO: Make checking of the format string in C locale an option.
- #endif
-
- #if defined(__UCLIBC_HAS_LOCALE__) && !defined(L_vfwscanf)
-
- if (((__UCLIBC_CURLOCALE_DATA).encoding) != __ctype_encoding_7_bit) {
- const char *p = format;
- mbstate.__mask = 0;
- if (mbsrtowcs(NULL, &p, SIZE_MAX, &mbstate) == ((size_t)(-1))) {
- __set_errno(EINVAL);
- return 0;
- }
- }
- #endif
- #if defined(NL_ARGMAX) && (NL_ARGMAX > 0)
- psfs.num_pos_args = -1;
-
- memset(psfs.pos_args, 0, sizeof(psfs.pos_args));
- #endif
- __STDIO_AUTO_THREADLOCK(fp);
- __STDIO_STREAM_VALIDATE(fp);
- __init_scan_cookie(&sc,fp);
- #ifdef __UCLIBC_HAS_WCHAR__
- sc.sc_getc = sc_getc;
- sc.ungot_wchar_width = sc.fp->__ungot_width[1];
- #ifdef L_vfwscanf
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- if (*sc.grouping) {
- sc.thousands_sep = fake_thousands_sep_str;
- sc.tslen = 1;
- }
- #endif
- #ifdef __UCLIBC_HAS_FLOATS__
- sc.fake_decpt = fake_decpt_str;
- #endif
- #else
- #ifdef __UCLIBC_HAS_FLOATS__
- sc.fake_decpt = sc.decpt;
- #endif
- #endif
- #endif
- psfs.cnt = 0;
-
- for (fmt = (const Wuchar *) format ; *fmt ; ) {
- psfs.store = 1;
- psfs.flags = 0;
- #ifndef NDEBUG
- psfs.cur_ptr = NULL;
- #endif
- sc.ungot_flag &= 1;
- sc.width = psfs.max_width = INT_MAX;
-
- if (ISSPACE(*fmt)) {
- do {
- ++fmt;
- } while (ISSPACE(*fmt));
- --fmt;
- psfs.conv_num = CONV_whitespace;
- goto DO_WHITESPACE;
- }
- if (*fmt == '%') {
- if (*++fmt == '%') {
-
- psfs.conv_num = CONV_percent;
- goto DO_CONVERSION;
- }
- #ifdef L_vfscanf
- psfs.fmt = fmt;
- #else
- {
- const __uwchar_t *wf = fmt;
- psfs.fmt = b = buf;
- while (*wf && __isascii(*wf) && (b < buf + sizeof(buf) - 1)) {
- *b++ = *wf++;
- }
- #ifdef __UCLIBC_HAS_SCANF_GLIBC_A_FLAG__
- #error this is wrong... we need to ched in __psfs_parse_spec instead since this checks last char in buffer and conversion my have stopped before it.
- if ((*b == 'a') && ((*wf == '[') || ((*wf|0x20) == 's'))) {
- goto DONE;
- }
- #endif
- *b = 0;
- if (b == buf) {
- goto DONE;
- }
- }
- #endif
- if ((i = __psfs_parse_spec(&psfs)) < 0) {
- goto DONE;
- }
- fmt += i;
- if (psfs.store) {
- #if defined(NL_ARGMAX) && (NL_ARGMAX > 0)
- if (psfs.num_pos_args == -2) {
- psfs.cur_ptr = va_arg(arg, void *);
- } else {
- while (psfs.cur_pos_arg > psfs.num_pos_args) {
- psfs.pos_args[++psfs.num_pos_args] = va_arg(arg, void *);
- }
- psfs.cur_ptr = psfs.pos_args[psfs.cur_pos_arg];
- }
- #else
- psfs.cur_ptr = va_arg(arg, void *);
- #endif
- }
- DO_CONVERSION:
-
- if ((((1L << CONV_n)|(1L << CONV_C)|(1L << CONV_c)
- |(1L << CONV_LEFTBRACKET)|(1L << CONV_leftbracket))
- & (1L << psfs.conv_num)) == 0
- ) {
- DO_WHITESPACE:
- while ((__scan_getc(&sc) >= 0)
- #ifdef L_vfscanf
- && isspace(sc.cc)
- #else
- && iswspace(sc.wc)
- #endif
- ) {}
- __scan_ungetc(&sc);
- if (psfs.conv_num == CONV_whitespace) {
- goto NEXT_FMT;
- }
- }
- sc.width = psfs.max_width;
- if (sc.width == 0) {
- goto DONE;
- }
- if (psfs.conv_num == CONV_percent) {
- goto MATCH_CHAR;
- }
- if (psfs.conv_num == CONV_n) {
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning CONSIDER: Should %n count as a conversion as far as EOF return value?
- #endif
- if (psfs.store) {
- _store_inttype(psfs.cur_ptr, psfs.dataargtype,
- (uintmax_t) sc.nread);
- }
- goto NEXT_FMT;
- }
- if (psfs.conv_num <= CONV_A) {
- int r = __psfs_do_numeric(&psfs, &sc);
- #ifndef L_vfscanf
- if (sc.ungot_wflag == 1) {
- sc.cc = sc.ungot_char = sc.ungot_wchar;
- }
- #endif
- if (r != -1) {
- zero_conversions = 0;
- }
- if (r < 0) {
- goto DONE;
- }
- goto NEXT_FMT;
- }
-
- #ifdef L_vfscanf
- if
- #ifdef __UCLIBC_HAS_WCHAR__
- (psfs.conv_num >= CONV_LEFTBRACKET)
- #else
- (psfs.conv_num >= CONV_c)
- #endif
- {
- b = (psfs.store ? ((unsigned char *) psfs.cur_ptr) : buf);
- fail = 1;
-
- if (psfs.conv_num == CONV_c) {
- if (sc.width == INT_MAX) {
- sc.width = 1;
- }
- while (__scan_getc(&sc) >= 0) {
- zero_conversions = 0;
- *b = sc.cc;
- b += psfs.store;
- }
- __scan_ungetc(&sc);
- if (sc.width > 0) {
- goto DONE;
- }
- psfs.cnt += psfs.store;
- goto NEXT_FMT;
- }
- if (psfs.conv_num == CONV_s) {
-
- while ((__scan_getc(&sc) >= 0) && !isspace(sc.cc)) {
- zero_conversions = 0;
- *b = sc.cc;
- b += psfs.store;
- fail = 0;
- }
- } else {
- #ifdef __UCLIBC_HAS_WCHAR__
- assert((psfs.conv_num == CONV_LEFTBRACKET) || \
- (psfs.conv_num == CONV_leftbracket));
- #else
- assert((psfs.conv_num == CONV_leftbracket));
- #endif
- invert = 0;
- if (*++fmt == '^') {
- ++fmt;
- invert = 1;
- }
- memset(scanset, invert, sizeof(scanset));
- invert = 1-invert;
- if (*fmt == ']') {
- scanset[(int)(']')] = invert;
- ++fmt;
- }
- while (*fmt != ']') {
- if (!*fmt) {
- goto DONE;
- }
- if ((*fmt == '-') && (fmt[1] != ']')
- && (fmt[-1] < fmt[1])
- ) {
- ++fmt;
- i = fmt[-2];
-
- do {
- scanset[++i] = invert;
- } while (i < *fmt);
-
- }
-
- scanset[(int) *fmt] = invert;
- ++fmt;
- }
- #ifdef __UCLIBC_HAS_WCHAR__
- if (psfs.conv_num == CONV_LEFTBRACKET) {
- goto DO_LEFTBRACKET;
- }
- #endif
- while (__scan_getc(&sc) >= 0) {
- zero_conversions = 0;
- if (!scanset[sc.cc]) {
- break;
- }
- *b = sc.cc;
- b += psfs.store;
- fail = 0;
- }
- }
-
- __scan_ungetc(&sc);
- if (fail) {
- goto DONE;
- }
- *b = 0;
- psfs.cnt += psfs.store;
- goto NEXT_FMT;
- }
- #ifdef __UCLIBC_HAS_WCHAR__
- DO_LEFTBRACKET:
- if (psfs.conv_num >= CONV_C) {
- wchar_t wbuf[1];
- wchar_t *wb;
- sc.mbstate.__mask = 0;
- wb = (psfs.store ? ((wchar_t *) psfs.cur_ptr) : wbuf);
- fail = 1;
-
- if (psfs.conv_num == CONV_C) {
- if (sc.width == INT_MAX) {
- sc.width = 1;
- }
- while (scan_getwc(&sc) >= 0) {
- zero_conversions = 0;
- assert(sc.width >= 0);
- *wb = sc.wc;
- wb += psfs.store;
- }
- __scan_ungetc(&sc);
- if (sc.width > 0) {
- goto DONE;
- }
- psfs.cnt += psfs.store;
- goto NEXT_FMT;
- }
- if (psfs.conv_num == CONV_S) {
-
- while (scan_getwc(&sc) >= 0) {
- zero_conversions = 0;
- if ((((__uwchar_t)(sc.wc)) <= UCHAR_MAX) && isspace(sc.wc)) {
- break;
- }
- *wb = sc.wc;
- wb += psfs.store;
- fail = 0;
- }
- } else {
- assert(psfs.conv_num == CONV_LEFTBRACKET);
- while (scan_getwc(&sc) >= 0) {
- zero_conversions = 0;
- if (((__uwchar_t) sc.wc) <= UCHAR_MAX) {
- if (!scanset[sc.wc]) {
- break;
- }
- } else if (invert) {
- break;
- }
- *wb = sc.wc;
- wb += psfs.store;
- fail = 0;
- }
- }
-
- __scan_ungetc(&sc);
- if (fail || sc.mb_fail) {
- goto DONE;
- }
- *wb = 0;
- psfs.cnt += psfs.store;
- goto NEXT_FMT;
- }
- #endif
- #else
- if (psfs.conv_num >= CONV_C) {
- b = buf;
- wb = wbuf;
- if (psfs.conv_num >= CONV_c) {
- mbstate.__mask = 0;
- if (psfs.store) {
- b = (unsigned char *) psfs.cur_ptr;
- }
- } else {
- if (psfs.store) {
- wb = (wchar_t *) psfs.cur_ptr;
- }
- }
- fail = 1;
- if ((psfs.conv_num == CONV_C) || (psfs.conv_num == CONV_c)) {
- if (sc.width == INT_MAX) {
- sc.width = 1;
- }
- while (scan_getwc(&sc) >= 0) {
- zero_conversions = 0;
- if (psfs.conv_num == CONV_C) {
- *wb = sc.wc;
- wb += psfs.store;
- } else {
- i = wcrtomb(b, sc.wc, &mbstate);
- if (i < 0) {
- goto DONE_DO_UNGET;
- }
- if (psfs.store) {
- b += i;
- }
- }
- }
- __scan_ungetc(&sc);
- if (sc.width > 0) {
- goto DONE;
- }
- psfs.cnt += psfs.store;
- goto NEXT_FMT;
- }
- if ((psfs.conv_num == CONV_S) || (psfs.conv_num == CONV_s)) {
-
- while (scan_getwc(&sc) >= 0) {
- zero_conversions = 0;
- if (iswspace(sc.wc)) {
- break;
- }
- if (psfs.conv_num == CONV_S) {
- *wb = sc.wc;
- wb += psfs.store;
- } else {
- i = wcrtomb(b, sc.wc, &mbstate);
- if (i < 0) {
- goto DONE_DO_UNGET;
- }
- if (psfs.store) {
- b += i;
- }
- }
- fail = 0;
- }
- } else {
- const wchar_t *sss;
- const wchar_t *ssp;
- unsigned char invert = 0;
- assert((psfs.conv_num == CONV_LEFTBRACKET)
- || (psfs.conv_num == CONV_leftbracket));
- if (*++fmt == '^') {
- ++fmt;
- invert = 1;
- }
- sss = (const wchar_t *) fmt;
- if (*fmt == ']') {
- ++fmt;
- }
- while (*fmt != ']') {
- if (!*fmt) {
- goto DONE;
- }
- if ((*fmt == '-') && (fmt[1] != ']')
- && (fmt[-1] < fmt[1])
- ) {
- ++fmt;
- }
- ++fmt;
- }
-
- while (scan_getwc(&sc) >= 0) {
- zero_conversions = 0;
- ssp = sss;
- do {
- if (*ssp == '-') {
-
- if (ssp > sss) {
- if ((++ssp < (const wchar_t *) fmt)
- && (ssp[-2] < *ssp)
- ) {
- if ((sc.wc >= ssp[-2])
- && (sc.wc <= *ssp)) {
- break;
- }
- continue;
- }
- --ssp;
- }
-
- }
- if (sc.wc == *ssp) {
- break;
- }
- } while (++ssp < (const wchar_t *) fmt);
- if ((ssp == (const wchar_t *) fmt) ^ invert) {
-
- break;
- }
- if (psfs.conv_num == CONV_LEFTBRACKET) {
- *wb = sc.wc;
- wb += psfs.store;
- } else {
- i = wcrtomb(b, sc.wc, &mbstate);
- if (i < 0) {
- goto DONE_DO_UNGET;
- }
- if (psfs.store) {
- b += i;
- }
- }
- fail = 0;
- }
- }
-
- __scan_ungetc(&sc);
- if (fail) {
- goto DONE;
- }
- *wb = 0;
- *b = 0;
- psfs.cnt += psfs.store;
- goto NEXT_FMT;
- }
- #endif
- assert(0);
- goto DONE;
- }
- MATCH_CHAR:
- if (__scan_getc(&sc) != *fmt) {
- #ifdef L_vfwscanf
- DONE_DO_UNGET:
- #endif
- __scan_ungetc(&sc);
- goto DONE;
- }
- NEXT_FMT:
- ++fmt;
- if (__FERROR_UNLOCKED(fp)) {
- break;
- }
- }
- DONE:
- if (__FERROR_UNLOCKED(fp) || (*fmt && zero_conversions && __FEOF_UNLOCKED(fp))) {
- psfs.cnt = EOF;
- }
- kill_scan_cookie(&sc);
- __STDIO_STREAM_VALIDATE(fp);
- __STDIO_AUTO_THREADUNLOCK(fp);
- return psfs.cnt;
- }
- #endif
- #ifdef L___psfs_do_numeric
- static const unsigned char spec_base[] = SPEC_BASE;
- static const unsigned char nil_string[] = "(nil)";
- int __psfs_do_numeric(psfs_t *psfs, struct scan_cookie *sc)
- {
- unsigned char *b;
- const unsigned char *p;
- #ifdef __UCLIBC_HAS_FLOATS__
- int exp_adjust = 0;
- #endif
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning TODO: Fix MAX_DIGITS. We do not do binary, so...!
- #warning TODO: Fix buf!
- #endif
- #define MAX_DIGITS 65
- unsigned char buf[MAX_DIGITS+2+ 100];
- unsigned char usflag, base;
- unsigned char nonzero = 0;
- unsigned char seendigit = 0;
-
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning CONSIDER: What should be returned for an invalid conversion specifier?
- #endif
- #ifndef __UCLIBC_HAS_FLOATS__
- if (psfs->conv_num > CONV_i) {
- goto DONE;
- }
- #endif
- base = spec_base[psfs->conv_num - CONV_p];
- usflag = (psfs->conv_num <= CONV_u);
- b = buf;
- if (psfs->conv_num == CONV_p) {
- p = nil_string;
- do {
- if ((__scan_getc(sc) < 0) || (*p != sc->cc)) {
- __scan_ungetc(sc);
- if (p > nil_string) {
-
- return -2;
- }
- break;
- }
- if (!*++p) {
- if (psfs->store) {
- ++psfs->cnt;
- _store_inttype(psfs->cur_ptr, psfs->dataargtype,
- (uintmax_t) NULL);
- }
- return 0;
- }
- } while (1);
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning CONSIDER: Should we require a 0x prefix and disallow +/- for pointer %p?
- #endif
- }
- __scan_getc(sc);
- if (sc->cc < 0) {
- return -1;
- }
- if ((sc->cc == '+') || (sc->cc == '-')) {
- *b++ = sc->cc;
- __scan_getc(sc);
- }
- if ((base & 0xef) == 0) {
- if (sc->cc == '0') {
- __scan_getc(sc);
- if ((sc->cc|0x20) == 'x') {
- if (__scan_getc(sc) < 0) {
-
- goto DONE_DO_UNGET;
- }
- base = 16;
- #ifdef __UCLIBC_HAS_HEXADECIMAL_FLOATS__
-
- *b++ = '0';
- *b++ = 'x';
- #endif
- } else {
- __scan_ungetc(sc);
- sc->cc = '0';
- base = (base >> 1) + 8;
- #ifdef __UCLIBC_HAS_FLOATS__
- if (psfs->conv_num > CONV_i) {
- base = 10;
- }
- #endif
- }
- } else if (!base) {
- base = 10;
- }
- }
-
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- if ((psfs->flags & FLAG_THOUSANDS) && (base == 10)
- && *(p = sc->grouping)
- ) {
- int nblk1, nblk2, nbmax, lastblock, pass, i;
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning CONSIDER: Should we initalize the grouping blocks in __init_scan_cookie()?
- #endif
- nbmax = nblk2 = nblk1 = *p;
- if (*++p) {
- nblk2 = *p;
- if (nbmax < nblk2) {
- nbmax = nblk2;
- }
- assert(!p[1]);
- }
-
-
- if (!__isdigit_char_or_EOF(sc->cc)) {
- #ifdef __UCLIBC_HAS_FLOATS__
- if (psfs->conv_num > CONV_i) {
- goto NO_STARTING_DIGIT;
- }
- #endif
- goto DONE_DO_UNGET;
- }
- if (sc->cc == '0') {
- seendigit = 1;
- *b++ = '0';
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning CONSIDER: Should leading 0s be skipped before digit grouping? (printf 0 pad)
- #endif
- #if 0
- do {
- __scan_getc(sc);
- } while (sc->cc == '0');
- #endif
- }
- pass = 0;
- lastblock = 0;
- do {
- i = 0;
- while (__isdigit_char_or_EOF(sc->cc)) {
- seendigit = 1;
- if (i == nbmax) {
- #ifdef __UCLIBC_HAS_SCANF_LENIENT_DIGIT_GROUPING__
- if (!pass) {
- if (nonzero) {
- goto DO_NO_GROUP;
- }
- goto DO_TRIM_LEADING_ZEROS;
- }
- #endif
- if (nbmax > nblk1) {
- goto DONE_DO_UNGET;
- }
- goto DONE_GROUPING_DO_UNGET;
- }
- ++i;
- if (nonzero || (sc->cc != '0')) {
- if (b < buf + MAX_DIGITS) {
- *b++ = sc->cc;
- nonzero = 1;
- #ifdef __UCLIBC_HAS_FLOATS__
- } else {
- ++exp_adjust;
- #endif
- }
- }
- __scan_getc(sc);
- }
- if (i) {
- if ((i == nblk2) || ((i < nblk2) && !pass)) {
-
- p = sc->thousands_sep;
- if (*p == sc->cc) {
-
-
- __scan_getc(sc);
- MBG_LOOP:
- if (!*++p) {
- lastblock = i;
- ++pass;
- continue;
- }
- if (*p == sc->cc) {
- __scan_getc(sc);
- goto MBG_LOOP;
- }
-
- __scan_ungetc(sc);
- if ((sc->cc >= 0) || (p > sc->thousands_sep + 1)) {
- #ifdef __UCLIBC_HAS_FLOATS__
-
- int k = p - sc->thousands_sep - 1;
- if ((psfs->conv_num > CONV_i)
- && (!pass || (i == nblk1))
- && !memcmp(sc->thousands_sep, sc->fake_decpt, k)
-
- ) {
- __scan_getc(sc);
- p = sc->fake_decpt + k;
- do {
- if (!*++p) {
- strcpy(b, sc->decpt);
- b += sc->decpt_len;
- goto GOT_DECPT;
- }
- if (*p != sc->cc) {
- __scan_ungetc(sc);
- break;
- }
- __scan_getc(sc);
- } while (1);
- }
- #endif
- goto DONE;
- }
-
- }
- }
- if ((i == nblk1) || ((i < nblk1) && !pass)) {
-
- goto DONE_GROUPING_DO_UNGET;
- }
- goto DONE_DO_UNGET;
- }
- assert(pass);
- goto DONE_DO_UNGET;
- } while (1);
- assert(0);
- }
- #endif
-
- #ifdef __UCLIBC_HAS_SCANF_LENIENT_DIGIT_GROUPING__
- DO_TRIM_LEADING_ZEROS:
- #endif
- if (sc->cc == '0') {
- seendigit = 1;
- *b++ = '0';
- do {
- __scan_getc(sc);
- } while (sc->cc == '0');
- }
- #ifdef __UCLIBC_HAS_SCANF_LENIENT_DIGIT_GROUPING__
- DO_NO_GROUP:
- #endif
-
- #define valid_digit(cc,base) (isxdigit(cc) && ((base == 16) || (cc - '0' < base)))
- while (valid_digit(sc->cc,base)) {
- if (b - buf < MAX_DIGITS) {
- nonzero = seendigit = 1;
- *b++ = sc->cc;
- #ifdef __UCLIBC_HAS_FLOATS__
- } else {
- ++exp_adjust;
- #endif
- }
- __scan_getc(sc);
- }
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- DONE_GROUPING_DO_UNGET:
- #endif
- if (psfs->conv_num <= CONV_i) {
- __scan_ungetc(sc);
- *b = 0;
- if (!seendigit) {
- goto DONE;
- }
- if (psfs->store) {
- if (*buf == '-') {
- usflag = 0;
- }
- ++psfs->cnt;
- _store_inttype(psfs->cur_ptr, psfs->dataargtype,
- (uintmax_t) STRTOUIM(buf, NULL, base, 1-usflag));
- }
- return 0;
- }
- #ifdef __UCLIBC_HAS_FLOATS__
-
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- NO_STARTING_DIGIT:
- #endif
- p = sc->fake_decpt;
- do {
- if (!*p) {
- strcpy(b, sc->decpt);
- b += sc->decpt_len;
- break;
- }
- if (*p != sc->cc) {
- if (p > sc->fake_decpt) {
- goto DONE_DO_UNGET;
- }
- goto DO_DIGIT_CHECK;
- }
- ++p;
- __scan_getc(sc);
- } while (1);
- #ifdef __UCLIBC_HAS_GLIBC_DIGIT_GROUPING__
- GOT_DECPT:
- #endif
- if (!nonzero) {
- if (sc->cc == '0') {
- assert(exp_adjust == 0);
- *b++ = '0';
- ++exp_adjust;
- seendigit = 1;
- do {
- --exp_adjust;
- __scan_getc(sc);
- } while (sc->cc == '0');
- }
- }
- while (valid_digit(sc->cc,base)) {
- if (b - buf < MAX_DIGITS) {
- seendigit = 1;
- *b++ = sc->cc;
- }
- __scan_getc(sc);
- }
- DO_DIGIT_CHECK:
-
- if (!seendigit) {
- static const unsigned char nan_inf_str[] = "an\0nfinity";
- if (base == 16) {
- goto DONE_DO_UNGET;
- }
-
- #undef TOLOWER
- #define TOLOWER(C) ((C)|0x20)
- switch (TOLOWER(sc->cc)) {
- case 'i':
- p = nan_inf_str + 3;
- break;
- case 'n':
- p = nan_inf_str;
- break;
- default:
-
- goto DONE_DO_UNGET;
- }
- *b++ = sc->cc;
- do {
- __scan_getc(sc);
- if (TOLOWER(sc->cc) == *p) {
- *b++ = sc->cc;
- ++p;
- continue;
- }
- if (!*p || (p == nan_inf_str + 5)) {
- goto GOT_FLOAT;
- }
-
- goto DONE_DO_UNGET;
- } while (1);
- }
-
- if (
- #ifdef __UCLIBC_HAS_HEXADECIMAL_FLOATS__
- ((base == 16) && (((sc->cc)|0x20) == 'p')) ||
- #endif
- (((sc->cc)|0x20) == 'e')
- ) {
- *b++ = sc->cc;
- __scan_getc(sc);
- if (sc->cc < 0) {
- goto DONE_DO_UNGET;
- }
- if ((sc->cc == '+') || (sc->cc == '-')) {
- *b++ = sc->cc;
- __scan_getc(sc);
- }
- #ifdef __UCLIBC_MJN3_ONLY__
- #warning TODO: Fix MAX_EXP_DIGITS!
- #endif
- #define MAX_EXP_DIGITS 20
- assert(seendigit);
- seendigit = 0;
- nonzero = 0;
-
- if (sc->cc == '0') {
- seendigit = 1;
- *b++ = '0';
- do {
- __scan_getc(sc);
- } while (sc->cc == '0');
- }
- while (__isdigit_char_or_EOF(sc->cc)) {
- if (seendigit < MAX_EXP_DIGITS) {
- ++seendigit;
- *b++ = sc->cc;
- }
- __scan_getc(sc);
- }
-
- if (!seendigit) {
- goto DONE_DO_UNGET;
- }
- }
- GOT_FLOAT:
- *b = 0;
- {
- __fpmax_t x;
- char *e;
- x = __strtofpmax(buf, &e, exp_adjust);
- assert(!*e);
- if (psfs->store) {
- if (psfs->dataargtype & PA_FLAG_LONG_LONG) {
- *((long double *)psfs->cur_ptr) = (long double) x;
- } else if (psfs->dataargtype & PA_FLAG_LONG) {
- *((double *)psfs->cur_ptr) = (double) x;
- } else {
- *((float *)psfs->cur_ptr) = (float) x;
- }
- ++psfs->cnt;
- }
- __scan_ungetc(sc);
- return 0;
- }
- #endif
- DONE_DO_UNGET:
- __scan_ungetc(sc);
- DONE:
- return -2;
- }
- #endif
|