12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534 |
- #include <stdio.h>
- #include <stdlib.h>
- #include <stddef.h>
- #include <string.h>
- #include <time.h>
- #include <sys/time.h>
- #include <limits.h>
- #include <assert.h>
- #include <errno.h>
- #include <ctype.h>
- #include <langinfo.h>
- #include <locale.h>
- #include <fcntl.h>
- #include <unistd.h>
- #include <bits/uClibc_uintmaxtostr.h>
- #include <bits/uClibc_mutex.h>
- #if defined __UCLIBC_HAS_WCHAR__ && (defined L_wcsftime || defined L_wcsftime_l)
- #include <wchar.h>
- # define CHAR_T wchar_t
- # define UCHAR_T unsigned int
- # ifdef L_wcsftime
- # define strftime wcsftime
- # define L_strftime
- # if defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE)
- # define strftime_l wcsftime_l
- # endif
- # endif
- # ifdef L_wcsftime_l
- # define strftime_l wcsftime_l
- # define L_strftime_l
- # endif
- #else
- # define CHAR_T char
- # define UCHAR_T unsigned char
- #endif
- #ifndef __isleap
- #define __isleap(y) ( !((y) % 4) && ( ((y) % 100) || !((y) % 400) ) )
- #endif
- #ifndef TZNAME_MAX
- #define TZNAME_MAX _POSIX_TZNAME_MAX
- #endif
- #if defined (L_tzset) || defined (L_localtime_r) || defined(L_strftime) || \
- defined(L__time_mktime) || defined(L__time_mktime_tzi) || \
- ((defined(L_strftime) || defined(L_strftime_l)) && \
- defined(__UCLIBC_HAS_XLOCALE__))
- void _time_tzset(int use_old_rules) attribute_hidden;
- #ifndef L__time_mktime
-
- static const time_t new_rule_starts = 1167609600;
- #endif
- #endif
- #define TZ_BUFLEN (2*TZNAME_MAX + 56)
- #ifdef __UCLIBC_HAS_TZ_FILE__
- #include <sys/stat.h>
- #include "paths.h"
- #else
- #undef __UCLIBC_HAS_TZ_FILE_READ_MANY__
- #endif
- extern struct tm __time_tm attribute_hidden;
- typedef struct {
- long gmt_offset;
- long dst_offset;
- short day;
- short week;
- short month;
- short rule_type;
- char tzname[TZNAME_MAX+1];
- } rule_struct;
- __UCLIBC_MUTEX_EXTERN(_time_tzlock) attribute_hidden;
- extern rule_struct _time_tzinfo[2] attribute_hidden;
- extern struct tm *_time_t2tm(const time_t *__restrict timer,
- int offset, struct tm *__restrict result) attribute_hidden;
- extern time_t _time_mktime(struct tm *timeptr, int store_on_success) attribute_hidden;
- extern struct tm *__time_localtime_tzi(const time_t *__restrict timer,
- struct tm *__restrict result,
- rule_struct *tzi) attribute_hidden;
- extern time_t _time_mktime_tzi(struct tm *timeptr, int store_on_success,
- rule_struct *tzi) attribute_hidden;
- #ifdef L_asctime
- static char __time_str[26];
- char *asctime(const struct tm *ptm)
- {
- return asctime_r(ptm, __time_str);
- }
- libc_hidden_def(asctime)
- #endif
- #ifdef L_asctime_r
- #define SAFE_ASCTIME_R 1
- static const unsigned char at_data[] = {
- 'S', 'u', 'n', 'M', 'o', 'n', 'T', 'u', 'e', 'W', 'e', 'd',
- 'T', 'h', 'u', 'F', 'r', 'i', 'S', 'a', 't',
- 'J', 'a', 'n', 'F', 'e', 'b', 'M', 'a', 'r', 'A', 'p', 'r',
- 'M', 'a', 'y', 'J', 'u', 'n', 'J', 'u', 'l', 'A', 'u', 'g',
- 'S', 'e', 'p', 'O', 'c', 't', 'N', 'o', 'v', 'D', 'e', 'c',
- #ifdef SAFE_ASCTIME_R
- '?', '?', '?',
- #endif
- ' ', '?', '?', '?',
- ' ', '0',
- offsetof(struct tm, tm_mday),
- ' ', '0',
- offsetof(struct tm, tm_hour),
- ':', '0',
- offsetof(struct tm, tm_min),
- ':', '0',
- offsetof(struct tm, tm_sec),
- ' ', '?', '?', '?', '?', '\n', 0
- };
- char *asctime_r(register const struct tm *__restrict ptm,
- register char *__restrict buffer)
- {
- int tmp;
- assert(ptm);
- assert(buffer);
- #ifdef SAFE_ASCTIME_R
- memcpy(buffer, at_data + 3*(7 + 12), sizeof(at_data) - 3*(7 + 12));
- if (((unsigned int)(ptm->tm_wday)) <= 6) {
- memcpy(buffer, at_data + 3 * ptm->tm_wday, 3);
- }
- if (((unsigned int)(ptm->tm_mon)) <= 11) {
- memcpy(buffer + 4, at_data + 3*7 + 3 * ptm->tm_mon, 3);
- }
- #else
- assert(((unsigned int)(ptm->tm_wday)) <= 6);
- assert(((unsigned int)(ptm->tm_mon)) <= 11);
- memcpy(buffer, at_data + 3*(7 + 12) - 3, sizeof(at_data) + 3 - 3*(7 + 12));
- memcpy(buffer, at_data + 3 * ptm->tm_wday, 3);
- memcpy(buffer + 4, at_data + 3*7 + 3 * ptm->tm_mon, 3);
- #endif
- #ifdef SAFE_ASCTIME_R
- buffer += 19;
- tmp = ptm->tm_year + 1900;
- if (((unsigned int) tmp) < 10000) {
- buffer += 4;
- do {
- *buffer = '0' + (tmp % 10);
- tmp /= 10;
- } while (*--buffer == '?');
- }
- #else
- buffer += 23;
- tmp = ptm->tm_year + 1900;
- assert( ((unsigned int) tmp) < 10000 );
- do {
- *buffer = '0' + (tmp % 10);
- tmp /= 10;
- } while (*--buffer == '?');
- #endif
- do {
- --buffer;
- tmp = *((int *)(((const char *) ptm) + (int) *buffer));
- #ifdef SAFE_ASCTIME_R
- if (((unsigned int) tmp) >= 100) {
- buffer[-1] = *buffer = '?';
- } else
- #else
- assert(((unsigned int) tmp) < 100);
- #endif
- {
- *buffer = '0' + (tmp % 10);
- #ifdef __BCC__
- buffer[-1] = '0' + (tmp/10);
- #else
- buffer[-1] += (tmp/10);
- #endif
- }
- } while ((buffer -= 2)[-2] == '0');
- if (*++buffer == '0') {
- *buffer = ' ';
- }
- return buffer - 8;
- }
- libc_hidden_def(asctime_r)
- #endif
- #ifdef L_clock
- #include <sys/times.h>
- #ifndef __BCC__
- #if CLOCKS_PER_SEC != 1000000L
- #error unexpected value for CLOCKS_PER_SEC!
- #endif
- #endif
- #ifdef __UCLIBC_CLK_TCK_CONST
- # if __UCLIBC_CLK_TCK_CONST > CLOCKS_PER_SEC
- # error __UCLIBC_CLK_TCK_CONST > CLOCKS_PER_SEC!
- # elif __UCLIBC_CLK_TCK_CONST < 1
- # error __UCLIBC_CLK_TCK_CONST < 1!
- # endif
- #endif
- clock_t clock(void)
- {
- struct tms xtms;
- unsigned long t;
- times(&xtms);
- t = ((unsigned long) xtms.tms_utime) + xtms.tms_stime;
- #ifndef __UCLIBC_CLK_TCK_CONST
- # error __UCLIBC_CLK_TCK_CONST not defined!
- #elif ((CLOCKS_PER_SEC % __UCLIBC_CLK_TCK_CONST) == 0)
-
- return ((t * (CLOCKS_PER_SEC/__UCLIBC_CLK_TCK_CONST)) & LONG_MAX);
- #else
-
- return ((((t / __UCLIBC_CLK_TCK_CONST) * CLOCKS_PER_SEC)
- + ((((t % __UCLIBC_CLK_TCK_CONST) * CLOCKS_PER_SEC)
- / __UCLIBC_CLK_TCK_CONST))
- ) & LONG_MAX);
- #endif
- }
- #endif
- #ifdef L_ctime
- char *ctime(const time_t *t)
- {
-
- struct tm xtm;
- memset(&xtm, 0, sizeof(xtm));
- return asctime(localtime_r(t, &xtm));
- }
- libc_hidden_def(ctime)
- #endif
- #ifdef L_ctime_r
- char *ctime_r(const time_t *t, char *buf)
- {
- struct tm xtm;
- return asctime_r(localtime_r(t, &xtm), buf);
- }
- #endif
- #ifdef L_difftime
- #include <float.h>
- #if FLT_RADIX != 2
- #error difftime implementation assumptions violated for you arch!
- #endif
- double difftime(time_t time1, time_t time0)
- {
- #if (LONG_MAX >> DBL_MANT_DIG) == 0
-
- return (double)time1 - (double)time0;
- #elif ((LONG_MAX >> DBL_MANT_DIG) >> DBL_MANT_DIG) == 0
-
- time_t t1, t0, d;
- d = ((time_t) 1) << DBL_MANT_DIG;
- t1 = time1 / d;
- time1 -= (t1 * d);
- t0 = time0 / d;
- time0 -= (t0*d);
-
- return (((double) t1) - t0) * d + (((double) time1) - time0);
- #else
- #error difftime needs special implementation on your arch.
- #endif
- }
- #endif
- #ifdef L_gmtime
- struct tm *gmtime(const time_t *timer)
- {
- register struct tm *ptm = &__time_tm;
- _time_t2tm(timer, 0, ptm);
- return ptm;
- }
- #endif
- #ifdef L_gmtime_r
- struct tm *gmtime_r(const time_t *__restrict timer,
- struct tm *__restrict result)
- {
- return _time_t2tm(timer, 0, result);
- }
- #endif
- #ifdef L_localtime
- struct tm *localtime(const time_t *timer)
- {
- register struct tm *ptm = &__time_tm;
-
- localtime_r(timer, ptm);
- return ptm;
- }
- libc_hidden_def(localtime)
- #endif
- #ifdef L_localtime_r
- struct tm *localtime_r(register const time_t *__restrict timer,
- register struct tm *__restrict result)
- {
- __UCLIBC_MUTEX_LOCK(_time_tzlock);
- _time_tzset(*timer < new_rule_starts);
- __time_localtime_tzi(timer, result, _time_tzinfo);
- __UCLIBC_MUTEX_UNLOCK(_time_tzlock);
- return result;
- }
- libc_hidden_def(localtime_r)
- #endif
- #ifdef L__time_localtime_tzi
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
- struct ll_tzname_item;
- typedef struct ll_tzname_item {
- struct ll_tzname_item *next;
- char tzname[1];
- } ll_tzname_item_t;
- static struct {
- struct ll_tzname_item *next;
- char tzname[4];
- } ll_tzname_UNKNOWN = { NULL, "???" };
- static const struct {
- struct ll_tzname_item *next;
- char tzname[4];
- } ll_tzname_UTC = { (void*)&ll_tzname_UNKNOWN, "UTC" };
- static const char *lookup_tzname(const char *key)
- {
- int len;
- ll_tzname_item_t *p = (void*) &ll_tzname_UTC;
- do {
- if (strcmp(p->tzname, key) == 0)
- return p->tzname;
- p = p->next;
- } while (p != NULL);
-
- len = strnlen(key, TZNAME_MAX+1);
- if (len < TZNAME_MAX+1) {
- p = malloc(sizeof(ll_tzname_item_t) + len);
- if (p != NULL) {
-
- p->next = ll_tzname_UNKNOWN.next;
- ll_tzname_UNKNOWN.next = p;
- return strcpy(p->tzname, key);
- }
- }
-
- return ll_tzname_UNKNOWN.tzname;
- }
- #endif
- static const unsigned char day_cor[] = {
- 31, 31, 34, 34, 35, 35, 36, 36, 36, 37, 37, 38, 38
- };
- static int tm_isdst(register const struct tm *__restrict ptm,
- register rule_struct *r)
- {
- long sec;
- int i, isdst, isleap, day, day0, monlen, mday;
- int oday = oday;
- isdst = 0;
- if (r[1].tzname[0] != 0) {
-
- sec = ptm->tm_sec
- + 60 * (ptm->tm_min
- + 60 * (long)(ptm->tm_hour
- + 24 * ptm->tm_yday));
-
- i = (ptm->tm_year % 400) + 1900;
- isleap = __isleap(i);
- --i;
- day0 = (1
- + i
- + (i/4)
- - (i/100)
- + (i/400) ) % 7;
- i = 0;
- do {
- day = r->day;
- if (r->rule_type == 'J') {
- if (!isleap || (day < (31+29))) {
- --day;
- }
- } else if (r->rule_type == 'M') {
-
- day = 31 * r->month - day_cor[r->month - 1];
- if (isleap && (day >= 59)) {
- ++day;
- }
- monlen = 31 + day_cor[r->month - 1] - day_cor[r->month];
- if (isleap && (r->month == 2)) {
- ++monlen;
- }
-
- mday = r->day - ((day0 + day) % 7);
- if (mday >= 0) {
- mday -= 7;
- }
- mday += 7 * r->week;
- if (mday >= monlen) {
- mday -= 7;
- }
-
- day += mday;
- }
- if (i != 0) {
-
- sec += (r[-1].gmt_offset - r->gmt_offset);
- if (oday > day) {
- ++isdst;
- }
- }
- oday = day;
-
- if (sec >= (day * 86400L) + r->dst_offset) {
- ++isdst;
- }
- ++r;
- } while (++i < 2);
- }
- return (isdst & 1);
- }
- struct tm attribute_hidden *__time_localtime_tzi(register const time_t *__restrict timer,
- register struct tm *__restrict result,
- rule_struct *tzi)
- {
- time_t x[1];
- long offset;
- int days, dst;
- dst = 0;
- do {
- days = -7;
- offset = 604800L - tzi[dst].gmt_offset;
- if (*timer > (LONG_MAX - 604800L)) {
- days = -days;
- offset = -offset;
- }
- *x = *timer + offset;
- _time_t2tm(x, days, result);
- result->tm_isdst = dst;
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
- # ifdef __USE_BSD
- result->tm_gmtoff = - tzi[dst].gmt_offset;
- result->tm_zone = lookup_tzname(tzi[dst].tzname);
- # else
- result->__tm_gmtoff = - tzi[dst].gmt_offset;
- result->__tm_zone = lookup_tzname(tzi[dst].tzname);
- # endif
- #endif
- } while ((++dst < 2)
- && ((result->tm_isdst = tm_isdst(result, tzi)) != 0));
- return result;
- }
- #endif
- #ifdef L_mktime
- time_t mktime(struct tm *timeptr)
- {
- return _time_mktime(timeptr, 1);
- }
- strong_alias(mktime,timelocal)
- #endif
- #ifdef L_timegm
- time_t timegm(struct tm *timeptr)
- {
- rule_struct gmt_tzinfo[2];
- memset(gmt_tzinfo, 0, sizeof(gmt_tzinfo));
- strcpy(gmt_tzinfo[0].tzname, "GMT");
- return _time_mktime_tzi(timeptr, 1, gmt_tzinfo);
- }
- #endif
- #if defined(L_strftime) || defined(L_strftime_l) \
- || defined(L_wcsftime) || defined(L_wcsftime_l)
- #if defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE)
- size_t strftime(CHAR_T *__restrict s, size_t maxsize,
- const CHAR_T *__restrict format,
- const struct tm *__restrict timeptr)
- {
- return strftime_l(s, maxsize, format, timeptr, __UCLIBC_CURLOCALE);
- }
- #else
- #define NO_E_MOD 0x80
- #define NO_O_MOD 0x40
- #define ILLEGAL_SPEC 0x3f
- #define INT_SPEC 0x00
- #define STRING_SPEC 0x10
- #define CALC_SPEC 0x20
- #define STACKED_SPEC 0x30
- #define MASK_SPEC 0x30
- static const unsigned char spec[] = {
- 0x03 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x04 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0a | INT_SPEC | NO_O_MOD,
- 0x02 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x03 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x03 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0b | INT_SPEC | NO_E_MOD,
- 0x0c | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0d | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x05 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x04 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0e | INT_SPEC | NO_E_MOD,
- 0x05 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x04 | CALC_SPEC | NO_E_MOD,
- 0x05 | CALC_SPEC | NO_E_MOD,
- 0x06 | CALC_SPEC | NO_E_MOD,
- 0x0a | STACKED_SPEC | NO_O_MOD,
- 0x0f | INT_SPEC | NO_O_MOD,
- 0x01 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
- '?',
- '?',
- '?',
- '?',
- 0,
- 0,
- 0x00 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x08 | STACKED_SPEC | NO_O_MOD,
- 0x00 | INT_SPEC | NO_E_MOD,
- 0x01 | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x02 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x08 | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x03 | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x04 | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x05 | INT_SPEC | NO_E_MOD,
- 0x00 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x02 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0b | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x07 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x07 | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x02 | INT_SPEC | NO_E_MOD,
- 0x09 | STACKED_SPEC | NO_O_MOD,
- 0x09 | INT_SPEC,
- 0x00 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
-
- #define FIELD_MAX (26+6+26)
- 60 , 59, 23, 31, 11, 0 , 6, 0 ,
- #define TP_OFFSETS (FIELD_MAX+8)
- 3,
- 3,
- 6,
- 2,
- 2,
- 4,
- 0,
-
- #define CALC_OFFSETS (TP_OFFSETS + 7)
- 6,
- 7,
- 5,
- 5,
- 2,
- 2,
- 1,
- 0,
- 5,
- 6,
- 4,
- 2,
- 6,
- 4,
- 2,
- #define TP_CODES (TP_OFFSETS + 16 + 6)
- 2 | 16,
- 2,
- 0 | 16,
- 2,
- 2 | 32 | 0,
- 2 | 16 | 1,
- 0,
- 0 | 16 | 8 ,
- 4 | 16 | 1,
- 2 | 128 | 32 | 16 ,
- 2 | 128 | 64 | 32 | 16 ,
- 2 | 16,
- 2 | 32 | 16 | 0,
- 2 | 16,
- 2 | 16,
- 6 | 16,
- 2,
- 2,
- 2 | 64,
- 2,
- 2,
- 2 | 64,
- #define STRINGS_NL_ITEM_START (TP_CODES + 16 + 6)
- _NL_ITEM_INDEX(ABDAY_1),
- _NL_ITEM_INDEX(ABMON_1),
- _NL_ITEM_INDEX(AM_STR),
- _NL_ITEM_INDEX(DAY_1),
- _NL_ITEM_INDEX(MON_1),
- _NL_ITEM_INDEX(AM_STR),
- #define STACKED_STRINGS_START (STRINGS_NL_ITEM_START+6)
- 6, 7, 8, 16, 24, 29,
- '\n', 0,
- '\t', 0,
- '%', 'm', '/', '%', 'd', '/', '%', 'y', 0,
- '%', 'Y', '-', '%', 'm', '-', '%', 'd', 0,
- '%', 'H', ':', '%', 'M', 0,
- '%', 'H', ':', '%', 'M', ':', '%', 'S', 0,
- #define STACKED_STRINGS_NL_ITEM_START (STACKED_STRINGS_START + 43)
- _NL_ITEM_INDEX(D_T_FMT),
- _NL_ITEM_INDEX(D_FMT),
- _NL_ITEM_INDEX(T_FMT),
- _NL_ITEM_INDEX(T_FMT_AMPM),
- #ifdef ENABLE_ERA_CODE
- _NL_ITEM_INDEX(ERA_D_T_FMT),
- _NL_ITEM_INDEX(ERA_D_FMT),
- _NL_ITEM_INDEX(ERA_T_FMT),
- #endif
- };
- static int load_field(int k, const struct tm *__restrict timeptr)
- {
- int r;
- int r_max;
- r = ((int *) timeptr)[k];
- r_max = spec[FIELD_MAX + k];
- if (k == 7) {
- r_max = 365;
- } else if (k == 5) {
- r += 1900;
- r_max = 9999;
- }
- if ((((unsigned int) r) > r_max) || ((k == 3) && !r)) {
- r = -1;
- }
- return r;
- }
- #if defined __UCLIBC_HAS_WCHAR__ && (defined L_wcsftime || defined L_wcsftime_l)
- static wchar_t* fmt_to_wc_1(const char *src)
- {
- mbstate_t mbstate;
- size_t src_len = strlen(src);
- wchar_t *dest = (wchar_t *)malloc((src_len + 1) * sizeof(wchar_t));
- if (dest == NULL)
- return NULL;
- mbstate.__mask = 0;
- if (mbsrtowcs(dest, &src, src_len + 1, &mbstate) == (size_t) -1) {
- free(dest);
- return NULL;
- }
- return dest;
- }
- # define fmt_to_wc(dest, src) \
- dest = alloc[++allocno] = fmt_to_wc_1(src)
- # define to_wc(dest, src) \
- dest = fmt_to_wc_1(src)
- #else
- # define fmt_to_wc(dest, src) (dest) = (src)
- # define to_wc(dest, src) (dest) = (src)
- #endif
- #define MAX_PUSH 4
- size_t __XL_NPP(strftime)(CHAR_T *__restrict s, size_t maxsize,
- const CHAR_T *__restrict format,
- const struct tm *__restrict timeptr __LOCALE_PARAM )
- {
- long tzo;
- register const CHAR_T *p;
- const CHAR_T *o;
- const char *ccp;
- #ifndef __UCLIBC_HAS_TM_EXTENSIONS__
- const rule_struct *rsp;
- #endif
- const CHAR_T *stack[MAX_PUSH];
- #if defined __UCLIBC_HAS_WCHAR__ && (defined L_wcsftime || defined L_wcsftime_l)
- const CHAR_T *alloc[MAX_PUSH];
- int allocno = -1;
- #endif
- size_t count;
- size_t o_count;
- int field_val = 0, i = 0, j, lvl;
- int x[3];
- int isofm, days;
- char buf[__UIM_BUFLEN_LONG] = {0,};
- unsigned char mod;
- unsigned char code;
-
- _time_tzset(_time_mktime((struct tm *) timeptr, 0) < new_rule_starts);
- lvl = 0;
- p = format;
- count = maxsize;
- LOOP:
- if (!count) {
- return 0;
- }
- if (!*p) {
- if (lvl == 0) {
- *s = 0;
- return maxsize - count;
- }
- p = stack[--lvl];
- goto LOOP;
- }
- o_count = 1;
- if ((*(o = (CHAR_T *)p) == '%') && (*++p != '%')) {
- #if 0
-
- const int plus = *p == '+';
- CHAR_T *q = (CHAR_T *)p;
- long int o_width = __XL_NPP(strtol)(p, &q, 0 __LOCALE_ARG);
- if (o_width > 0 && o_width < 256) {
- o_count = o_width;
- if (plus) {
- *s++ = '+';
- --count;
- }
- p = q;
- } else {
- o_count = 2;
- }
- #else
- o_count = 2;
- #endif
- mod = ILLEGAL_SPEC;
- if ((*p == 'O') || (*p == 'E')) {
- mod |= ((*p == 'O') ? NO_O_MOD : NO_E_MOD);
- ++o_count;
- ++p;
- }
- if ((((unsigned char)(((*p) | 0x20) - 'a')) >= 26)
- || (((code = spec[(int)(*p - 'A')]) & mod) >= ILLEGAL_SPEC)
- ) {
- if (!*p) {
- --p;
- --o_count;
- }
- goto OUTPUT;
- }
- code &= ILLEGAL_SPEC;
- if ((code & MASK_SPEC) == STACKED_SPEC) {
- if (lvl == MAX_PUSH) {
- goto OUTPUT;
- }
- stack[lvl++] = ++p;
- if ((code &= 0xf) < 8) {
- ccp = (const char *)(spec + STACKED_STRINGS_START + code);
- ccp += *ccp;
- fmt_to_wc(p, ccp);
- goto LOOP;
- }
- ccp = (const char *)spec + STACKED_STRINGS_NL_ITEM_START + (code & 7);
- fmt_to_wc(p, ccp);
- #ifdef ENABLE_ERA_CODE
- if ((mod & NO_E_MOD)
- && (*(ccp = __XL_NPP(nl_langinfo)(_NL_ITEM(LC_TIME,
- (int)(((unsigned char *)p)[4]))
- __LOCALE_ARG
- )))
- ) {
- fmt_to_wc(p, ccp);
- goto LOOP;
- }
- #endif
- ccp = __XL_NPP(nl_langinfo)(_NL_ITEM(LC_TIME,
- (int)(*((unsigned char *)p)))
- __LOCALE_ARG
- );
- fmt_to_wc(p, ccp);
- goto LOOP;
- }
- ccp = (const char *)(spec + 26);
- if ((code & MASK_SPEC) == CALC_SPEC) {
- if (*p == 's') {
- time_t t;
-
- if ((t = _time_mktime((struct tm *) timeptr, 0))
- == ((time_t) -1)
- ) {
- o_count = 1;
- goto OUTPUT;
- }
- #ifdef TIME_T_IS_UNSIGNED
- ccp = _uintmaxtostr(buf + sizeof(buf) - 1,
- (uintmax_t) t,
- 10, __UIM_DECIMAL);
- #else
- ccp = _uintmaxtostr(buf + sizeof(buf) - 1,
- (uintmax_t) t,
- -10, __UIM_DECIMAL);
- #endif
- o_count = sizeof(buf);
- fmt_to_wc(o, ccp);
- goto OUTPUT;
- } else if (((*p) | 0x20) == 'z') {
- if (timeptr->tm_isdst < 0) {
-
- o_count = 0;
- goto OUTPUT;
- }
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
- # ifdef __USE_BSD
- # define RSP_TZNAME timeptr->tm_zone
- # define RSP_GMT_OFFSET (-timeptr->tm_gmtoff)
- # else
- # define RSP_TZNAME timeptr->__tm_zone
- # define RSP_GMT_OFFSET (-timeptr->__tm_gmtoff)
- # endif
- #else
- #define RSP_TZNAME rsp->tzname
- #define RSP_GMT_OFFSET rsp->gmt_offset
- __UCLIBC_MUTEX_LOCK(_time_tzlock);
- rsp = _time_tzinfo;
- if (timeptr->tm_isdst > 0) {
- ++rsp;
- }
- #endif
- if (*p == 'Z') {
- ccp = RSP_TZNAME;
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
-
- if (!ccp) {
- ccp = (const char *)(spec + 27);
- }
- #endif
- assert(ccp != NULL);
- #if 0
- if (!ccp) {
- ccp = spec+30;
- }
- #endif
- o_count = SIZE_MAX;
- fmt_to_wc(o, ccp);
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
- goto OUTPUT;
- #endif
- } else {
- *s = '+';
- if ((tzo = -RSP_GMT_OFFSET) < 0) {
- tzo = -tzo;
- *s = '-';
- }
- ++s;
- --count;
- i = tzo / 60;
- field_val = ((i / 60) * 100) + (i % 60);
- i = 16 + 6;
- }
- #ifndef __UCLIBC_HAS_TM_EXTENSIONS__
- __UCLIBC_MUTEX_UNLOCK(_time_tzlock);
- if (*p == 'Z') {
- goto OUTPUT;
- }
- #endif
- } else {
-
- for (i=0 ; i < 3 ; i++) {
- if ((x[i] = load_field(spec[CALC_OFFSETS+i],timeptr)) < 0) {
- goto OUTPUT;
- }
- }
- i = 16 + 2;
- if ((*p == 'U') || (*p == 'W')) {
- field_val = ((x[1] - x[0]) + 7);
- if (*p == 'W') {
- ++field_val;
- }
- field_val /= 7;
- if ((*p == 'W') && !x[0]) {
- --field_val;
- }
- } else {
- ISO_LOOP:
- isofm = (((x[1] - x[0]) + 11) % 7) - 3;
- if (x[1] < isofm) {
- --x[2];
- x[1] += 365 + __isleap(x[2]);
- goto ISO_LOOP;
- }
- field_val = ((x[1] - isofm) / 7) + 1;
- days = 365 + __isleap(x[2]);
- isofm = ((isofm + 7*53 + 3 - days)) % 7 + days - 3;
- if (x[1] >= isofm) {
- x[1] -= days;
- ++x[2];
- goto ISO_LOOP;
- }
- if (*p != 'V') {
- field_val = x[2];
- if (*p == 'g') {
- field_val %= 100;
- } else {
- i = 16 + 6;
- }
- }
- }
- }
- } else {
- i = TP_OFFSETS + (code & 0x1f);
- if ((field_val = load_field(spec[i], timeptr)) < 0) {
- goto OUTPUT;
- }
- i = spec[i+(TP_CODES - TP_OFFSETS)];
- j = (i & 128) ? 100: 12;
- if (i & 64) {
- field_val /= j;;
- }
- if (i & 32) {
- field_val %= j;
- if (((i & 128) + field_val) == 0) {
- field_val = j;
- }
- }
- field_val += (i & 1);
- if ((i & 8) && !field_val) {
- field_val += 7;
- }
- }
- if ((code & MASK_SPEC) == STRING_SPEC) {
- o_count = SIZE_MAX;
- field_val += spec[STRINGS_NL_ITEM_START + (code & 0xf)];
- ccp = __XL_NPP(nl_langinfo)(_NL_ITEM(LC_TIME, field_val) __LOCALE_ARG);
- fmt_to_wc(o, ccp);
- } else {
- #if 0
- size_t min_count = ((i >> 1) & 3) + 1;
- if (o_count < min_count)
- o_count = min_count;
- #else
- o_count = ((i >> 1) & 3) + 1;
- #endif
- ccp = buf + o_count;
- do {
- *(char *)(--ccp) = '0' + (field_val % 10);
- field_val /= 10;
- } while (ccp > buf);
- if (*buf == '0') {
- *buf = ' ' + (i & 16);
- }
- fmt_to_wc(o, ccp);
- }
- }
- OUTPUT:
- ++p;
- while (o_count && count && *o) {
- *s++ = *o++;
- --o_count;
- --count;
- }
- #if defined __UCLIBC_HAS_WCHAR__ && (defined L_wcsftime || defined L_wcsftime_l)
- if (allocno >= 0)
- free((void *)alloc[allocno--]);
- #endif
- goto LOOP;
- }
- # ifdef L_strftime_l
- libc_hidden_def(strftime_l)
- # endif
- #endif
- #endif
- #if defined(L_strptime) || defined(L_strptime_l)
- #define ISDIGIT(C) __isdigit_char((C))
- #ifdef __UCLIBC_DO_XLOCALE
- #define ISSPACE(C) isspace_l((C), locale_arg)
- #else
- #define ISSPACE(C) isspace((C))
- #endif
- #if defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE)
- char *strptime(const char *__restrict buf, const char *__restrict format,
- struct tm *__restrict tm)
- {
- return strptime_l(buf, format, tm, __UCLIBC_CURLOCALE);
- }
- #else
- #define NO_E_MOD 0x80
- #define NO_O_MOD 0x40
- #define ILLEGAL_SPEC 0x3f
- #define INT_SPEC 0x00
- #define STRING_SPEC 0x10
- #define CALC_SPEC 0x20
- #define STACKED_SPEC 0x30
- #define MASK_SPEC 0x30
- static const unsigned char spec[] = {
- 0x02 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x08 | INT_SPEC | NO_O_MOD,
- 0x01 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x02 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0f | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x06 | INT_SPEC | NO_E_MOD,
- 0x07 | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x04 | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x00 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x03 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x05 | INT_SPEC | NO_E_MOD,
- 0x04 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0c | INT_SPEC | NO_E_MOD,
- 0x0d | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0c | INT_SPEC | NO_E_MOD,
- 0x0a | STACKED_SPEC | NO_O_MOD,
- 0x0a | INT_SPEC | NO_O_MOD,
- 0x02 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
-
- #define STRINGS_NL_ITEM_START (26)
- _NL_ITEM_INDEX(AM_STR),
- _NL_ITEM_INDEX(ABMON_1),
- _NL_ITEM_INDEX(ABDAY_1),
- 2,
- 24,
- 14,
- 0x02 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- 0x08 | STACKED_SPEC | NO_O_MOD,
- 0x00 | INT_SPEC | NO_E_MOD,
- 0x00 | INT_SPEC | NO_E_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0e | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x01 | INT_SPEC | NO_E_MOD | NO_O_MOD,
- 0x06 | INT_SPEC | NO_E_MOD,
- 0x07 | INT_SPEC | NO_E_MOD,
- 0x02 | INT_SPEC | NO_E_MOD,
- 0x00 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x00 | STRING_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0b | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x00 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
- 0x00 | STACKED_SPEC | NO_E_MOD | NO_O_MOD,
- 0x0b | INT_SPEC | NO_E_MOD | NO_O_MOD,
- ILLEGAL_SPEC | NO_E_MOD | NO_O_MOD,
- 0x03 | INT_SPEC | NO_E_MOD,
- 0x09 | STACKED_SPEC | NO_O_MOD,
- 0x09 | INT_SPEC,
- 0x01 | CALC_SPEC | NO_E_MOD | NO_O_MOD,
- #define INT_FIELD_START (26+6+26)
-
- (3 << 3) + 1 + 0, 31,
- (7 << 3) + 1 + 2, 1,
- (4 << 3) + 1 + 2, 12,
- (6 << 3) + 0 + 0, 6,
- (1 << 3) + 0 + 0, 59,
- 0 + 0 + 0, 60,
- (2 << 3) + 0 + 0, 23,
- (9 << 3) + 1 + 0, 12,
- (10<< 3) + 0 + 0, 99,
- (11<< 3) + 0 + 0, 99,
- (5 << 3) + 0 + 4, 2,
- (6 << 3) + 1 + 0, 7,
-
- (12<< 3) + 0 + 0, 53,
- (12<< 3) + 1 + 0, 53,
- (12<< 3) + 0 + 0, 99,
- (12<< 3) + 0 , 2,
- #define STACKED_STRINGS_START (INT_FIELD_START+32)
- 5, 6, 14, 22, 27,
- ' ', 0,
- '%', 'm', '/', '%', 'd', '/', '%', 'y', 0,
- '%', 'Y', '-', '%', 'm', '-', '%', 'd', 0,
- '%', 'H', ':', '%', 'M', 0,
- '%', 'H', ':', '%', 'M', ':', '%', 'S', 0,
- #define STACKED_STRINGS_NL_ITEM_START (STACKED_STRINGS_START + 40)
- _NL_ITEM_INDEX(D_T_FMT),
- _NL_ITEM_INDEX(D_FMT),
- _NL_ITEM_INDEX(T_FMT),
- _NL_ITEM_INDEX(T_FMT_AMPM),
- #ifdef ENABLE_ERA_CODE
- _NL_ITEM_INDEX(ERA_D_T_FMT),
- _NL_ITEM_INDEX(ERA_D_FMT),
- _NL_ITEM_INDEX(ERA_T_FMT),
- #endif
- };
- #define MAX_PUSH 4
- char *__XL_NPP(strptime)(const char *__restrict buf, const char *__restrict format,
- struct tm *__restrict tm __LOCALE_PARAM)
- {
- register const char *p;
- char *o;
- const char *stack[MAX_PUSH];
- int i, j, lvl;
- int fields[13];
- unsigned char mod;
- unsigned char code;
- i = 0;
- do {
- fields[i] = INT_MIN;
- } while (++i < 13);
- lvl = 0;
- p = format;
- LOOP:
- if (!*p) {
- if (lvl == 0) {
- if (fields[6] == 7) {
- fields[6] = 0;
- }
- i = 0;
- do {
- if (fields[i] != INT_MIN) {
- ((int *) tm)[i] = fields[i];
- }
- } while (++i < 8);
- return (char *) buf;
- }
- p = stack[--lvl];
- goto LOOP;
- }
- if ((*p == '%') && (*++p != '%')) {
- mod = ILLEGAL_SPEC;
- if ((*p == 'O') || (*p == 'E')) {
- mod |= ((*p == 'O') ? NO_O_MOD : NO_E_MOD);
- ++p;
- }
- if (!*p
- || (((unsigned char)(((*p) | 0x20) - 'a')) >= 26)
- || (((code = spec[(int)(*p - 'A')]) & mod) >= ILLEGAL_SPEC)
- ) {
- return NULL;
- }
- if ((code & MASK_SPEC) == STACKED_SPEC) {
- if (lvl == MAX_PUSH) {
- return NULL;
- }
- stack[lvl++] = ++p;
- if ((code &= 0xf) < 8) {
- p = ((const char *) spec) + STACKED_STRINGS_START + code;
- p += *((unsigned char *)p);
- goto LOOP;
- }
- p = ((const char *) spec) + STACKED_STRINGS_NL_ITEM_START
- + (code & 7);
- #ifdef ENABLE_ERA_CODE
- if ((mod & NO_E_MOD)
- && (*(o = __XL_NPP(nl_langinfo)(_NL_ITEM(LC_TIME,
- (int)(((unsigned char *)p)[4]))
- __LOCALE_ARG
- )))
- ) {
- p = o;
- goto LOOP;
- }
- #endif
- p = __XL_NPP(nl_langinfo)(_NL_ITEM(LC_TIME,
- (int)(*((unsigned char *)p)))
- __LOCALE_ARG
- );
- goto LOOP;
- }
- ++p;
- if ((code & MASK_SPEC) == STRING_SPEC) {
- code &= 0xf;
- j = spec[STRINGS_NL_ITEM_START + 3 + code];
- i = _NL_ITEM(LC_TIME, spec[STRINGS_NL_ITEM_START + code]);
-
- do {
- --j;
- o = __XL_NPP(nl_langinfo)(i+j __LOCALE_ARG);
- if (!__XL_NPP(strncasecmp)(buf, o, strlen(o) __LOCALE_ARG) && *o) {
- do {
- ++buf;
- } while (*++o);
- if (!code) {
- fields[8] = j * 12;
- if (fields[9] >= 0) {
- fields[2] = fields[9] + fields[8];
- }
- } else {
- fields[2 + (code << 1)]
- = j % (spec[STRINGS_NL_ITEM_START + 3 + code] >> 1);
- }
- goto LOOP;
- }
- } while (j);
- return NULL;
- }
- if ((code & MASK_SPEC) == CALC_SPEC) {
- if ((code &= 0xf) < 1) {
- time_t t;
- o = (char *) buf;
- i = errno;
- __set_errno(0);
- if (!ISSPACE(*buf)) {
- #ifdef TIME_T_IS_UNSIGNED
- t = __XL_NPP(strtoul)(buf, &o, 10 __LOCALE_ARG);
- #else
- t = __XL_NPP(strtol)(buf, &o, 10 __LOCALE_ARG);
- #endif
- }
- if ((o == buf) || errno) {
- return NULL;
- }
- __set_errno(i);
- buf = o;
- if (!code) {
- localtime_r(&t, tm);
- i = 0;
- do {
- fields[i] = ((int *) tm)[i];
- } while (++i < 8);
- }
- }
-
- goto LOOP;
- }
- assert((code & MASK_SPEC) == INT_SPEC);
- {
- register const unsigned char *x;
- code &= 0xf;
- x = spec + INT_FIELD_START + (code << 1);
- if ((j = x[1]) < 3) {
- j = ((j==1) ? 366 : 9999);
- }
- i = -1;
- while (ISDIGIT(*buf)) {
- if (i < 0) {
- i = 0;
- }
- if ((i = 10*i + (*buf - '0')) > j) {
- return NULL;
- }
- ++buf;
- }
- if (i < (*x & 1)) {
- return NULL;
- }
- if (*x & 2) {
- --i;
- }
- if (*x & 4) {
- i -= 1900;
- }
- if (*x == (9 << 3) + 1 + 0) {
- if (i == 12) {
- i = 0;
- }
- if (fields[8] >= 0) {
- fields[2] = i + fields[8];
- }
- }
- fields[(*x) >> 3] = i;
- if (((unsigned char)(*x - (10 << 3) + 0 + 0)) <= 8) {
- if ((j = fields[10]) < 0) {
- if (i <= 68) {
- i += 100;
- }
- } else {
- if ((i = fields[11]) < 0) {
- i = 0;
- }
- i += 100*(j - 19);
- }
- fields[5] = i;
- }
- }
- goto LOOP;
- } else if (ISSPACE(*p)) {
- ++p;
- while (ISSPACE(*buf)) {
- ++buf;
- }
- goto LOOP;
- } else if (*buf++ == *p++) {
- goto LOOP;
- }
- return NULL;
- }
- # ifdef L_strptime_l
- libc_hidden_def(strptime_l)
- # endif
- #endif
- #endif
- #ifdef L_time
- #ifndef __BCC__
- #error The uClibc version of time is in sysdeps/linux/common.
- #endif
- time_t time(register time_t *tloc)
- {
- struct timeval tv;
- register struct timeval *p = &tv;
- gettimeofday(p, NULL);
- if (tloc) {
- *tloc = p->tv_sec;
- }
- return p->tv_sec;
- }
- #endif
- #ifdef L_tzset
- static const char vals[] = {
- 'T', 'Z', 0,
- 'U', 'T', 'C', 0,
- 25, 60, 60, 1,
- '.', 1,
- 5, '.', 1,
- 6, 0, 0,
- 0, 1, 0,
- ',', 'M', '4', '.', '1', '.', '0',
- ',', 'M', '1', '0', '.', '5', '.', '0', 0,
- ',', 'M', '3', '.', '2', '.', '0',
- ',', 'M', '1', '1', '.', '1', '.', '0', 0
- };
- #define TZ vals
- #define UTC (vals + 3)
- #define RANGE (vals + 7)
- #define RULE (vals + 11 - 1)
- #define DEFAULT_RULES (vals + 22)
- #define DEFAULT_2007_RULES (vals + 38)
- int daylight = 0;
- long timezone = 0;
- char *tzname[2] = { (char *) UTC, (char *) (UTC-1) };
- __UCLIBC_MUTEX_INIT(_time_tzlock, PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP);
- rule_struct _time_tzinfo[2];
- static const char *getoffset(register const char *e, long *pn)
- {
- register const char *s = RANGE-1;
- long n;
- int f;
- n = 0;
- f = -1;
- do {
- ++s;
- if (__isdigit_char(*e)) {
- f = *e++ - '0';
- }
- if (__isdigit_char(*e)) {
- f = 10 * f + (*e++ - '0');
- }
- if (((unsigned int)f) >= *s) {
- return NULL;
- }
- n = (*s) * n + f;
- f = 0;
- if (*e == ':') {
- ++e;
- --f;
- }
- } while (*s > 1);
- *pn = n;
- return e;
- }
- static const char *getnumber(register const char *e, int *pn)
- {
- #ifdef __BCC__
-
- register const char *n = (const char *) 3;
- int f;
- f = 0;
- while (n && __isdigit_char(*e)) {
- f = 10 * f + (*e++ - '0');
- --n;
- }
- *pn = f;
- return (n == (const char *) 3) ? NULL : e;
- #else
- int n, f;
- n = 3;
- f = 0;
- while (n && __isdigit_char(*e)) {
- f = 10 * f + (*e++ - '0');
- --n;
- }
- *pn = f;
- return (n == 3) ? NULL : e;
- #endif
- }
- #ifdef __UCLIBC_HAS_TZ_FILE__
- #ifndef __UCLIBC_HAS_TZ_FILE_READ_MANY__
- static smallint TZ_file_read;
- #endif
- static char *read_TZ_file(char *buf)
- {
- int r;
- int fd;
- char *p = NULL;
- fd = open(__UCLIBC_TZ_FILE_PATH__, O_RDONLY);
- if (fd >= 0) {
- #if 0
-
- size_t todo = TZ_BUFLEN;
- p = buf;
- do {
- r = read(fd, p, todo);
- if (r < 0)
- goto ERROR;
- if (r == 0)
- break;
- p += r;
- todo -= r;
- } while (todo);
- #else
-
- r = read(fd, buf, TZ_BUFLEN);
- if (r < 0)
- goto ERROR;
- p = buf + r;
- #endif
- if ((p > buf) && (p[-1] == '\n')) {
- p[-1] = 0;
- p = buf;
- #ifndef __UCLIBC_HAS_TZ_FILE_READ_MANY__
- TZ_file_read = 1;
- #endif
- } else {
- ERROR:
- p = NULL;
- }
- close(fd);
- }
- #ifdef __UCLIBC_FALLBACK_TO_ETC_LOCALTIME__
- else {
- fd = open("/etc/localtime", O_RDONLY);
- if (fd >= 0) {
- r = read(fd, buf, TZ_BUFLEN);
- if (r != TZ_BUFLEN
- || strncmp(buf, "TZif", 4) != 0
- || (unsigned char)buf[4] < 2
- || lseek(fd, -TZ_BUFLEN, SEEK_END) < 0
- ) {
- goto ERROR;
- }
-
- r = read(fd, buf, TZ_BUFLEN);
- if (r <= 0 || buf[--r] != '\n')
- goto ERROR;
- buf[r] = 0;
- while (r != 0) {
- if (buf[--r] == '\n') {
- p = buf + r + 1;
- #ifndef __UCLIBC_HAS_TZ_FILE_READ_MANY__
- TZ_file_read = 1;
- #endif
- break;
- }
- }
- close(fd);
- }
- }
- #endif
- return p;
- }
- #endif
- void tzset(void)
- {
- _time_tzset((time(NULL)) < new_rule_starts);
- }
- void _time_tzset(int use_old_rules)
- {
- register const char *e;
- register char *s;
- long off = 0;
- short *p;
- rule_struct new_rules[2];
- int n, count, f;
- char c;
- #ifdef __UCLIBC_HAS_TZ_FILE__
- char buf[TZ_BUFLEN];
- #endif
- #ifdef __UCLIBC_HAS_TZ_CACHING__
- static char oldval[TZ_BUFLEN];
- #endif
-
- __UCLIBC_MUTEX_LOCK(_time_tzlock);
- e = getenv(TZ);
- #if defined(__UCLIBC_HAS_TZ_FILE__) && !defined(__UCLIBC_HAS_TZ_FILE_READ_MANY__)
- if (e) {
-
- TZ_file_read = 0;
- }
- if (TZ_file_read) {
-
- goto FAST_DONE;
- }
- #endif
-
- #ifdef __UCLIBC_HAS_TZ_FILE__
- if (!e)
- e = read_TZ_file(buf);
- #endif
- if (!e
- || !*e
- ) {
- goto ILLEGAL;
- }
- if (*e == ':') {
- ++e;
- }
- #ifdef __UCLIBC_HAS_TZ_CACHING__
- if (strcmp(e, oldval) == 0) {
-
- goto FAST_DONE;
- }
-
- strncpy(oldval, e, TZ_BUFLEN);
- #endif
- count = 0;
- new_rules[1].tzname[0] = 0;
- LOOP:
-
- c = 0;
- if (*e == '<') {
- ++e;
- c = '>';
- }
- s = new_rules[count].tzname;
- n = 0;
- while (*e
- && isascii(*e)
- && (isalpha(*e)
- || (c && (isalnum(*e) || (*e == '+') || (*e == '-')))
- )
- ) {
- *s++ = *e++;
- if (++n > TZNAME_MAX) {
- goto ILLEGAL;
- }
- }
- *s = 0;
- if ((n < 3)
- || (c && (*e++ != c))
- ) {
- goto ILLEGAL;
- }
-
- s = (char *) e;
- if ((*e != '-') && (*e != '+')) {
- if (count && !__isdigit_char(*e)) {
- off -= 3600;
- goto SKIP_OFFSET;
- }
- --e;
- }
- ++e;
- e = getoffset(e, &off);
- if (!e) {
- goto ILLEGAL;
- }
- if (*s == '-') {
- off = -off;
- }
- SKIP_OFFSET:
- new_rules[count].gmt_offset = off;
- if (!count) {
- new_rules[1].gmt_offset = off;
- if (*e) {
- ++count;
- goto LOOP;
- }
- } else {
- count = 0;
- if (!*e) {
- e = use_old_rules ? DEFAULT_RULES : DEFAULT_2007_RULES;
- #ifdef DEBUG_TZSET
- if (e == DEFAULT_RULES)
- printf("tzset: Using old rules.\n");
- else if (e == DEFAULT_2007_RULES)
- printf("tzset: Using new rules\n");
- else
- printf("tzset: Using undefined rules\n");
- #endif
- }
- do {
- if (*e++ != ',') {
- goto ILLEGAL;
- }
- n = 365;
- s = (char *) RULE;
- c = *e++;
- if (c == 'M') {
- n = 12;
- } else if (c == 'J') {
- s += 8;
- } else {
- --e;
- c = 0;
- s += 6;
- }
- p = &new_rules[count].rule_type;
- *p = c;
- if (c != 'M') {
- p -= 2;
- }
- do {
- ++s;
- e = getnumber(e, &f);
- if (!e
- || ((unsigned int)(f - s[1]) > n)
- || (*s && (*e++ != *s))
- ) {
- goto ILLEGAL;
- }
- *--p = f;
- s += 2;
- n = *s;
- } while (n > 0);
- off = 2 * 60 * 60;
- if (*e == '/') {
- ++e;
- e = getoffset(e, &off);
- if (!e) {
- goto ILLEGAL;
- }
- }
- new_rules[count].dst_offset = off;
- } while (++count < 2);
- if (*e) {
- ILLEGAL:
- #ifdef __UCLIBC_HAS_TZ_CACHING__
- oldval[0] = 0;
- #endif
- memset(_time_tzinfo, 0, sizeof(_time_tzinfo));
- strcpy(_time_tzinfo[0].tzname, UTC);
- goto DONE;
- }
- }
- memcpy(_time_tzinfo, new_rules, sizeof(new_rules));
- DONE:
- tzname[0] = _time_tzinfo[0].tzname;
- tzname[1] = _time_tzinfo[1].tzname;
- daylight = !!_time_tzinfo[1].tzname[0];
- timezone = _time_tzinfo[0].gmt_offset;
- #if (defined(__UCLIBC_HAS_TZ_FILE__) && !defined(__UCLIBC_HAS_TZ_FILE_READ_MANY__)) || \
- defined(__UCLIBC_HAS_TZ_CACHING__)
- FAST_DONE:
- #endif
- __UCLIBC_MUTEX_UNLOCK(_time_tzlock);
- }
- libc_hidden_def(tzset)
- #endif
- #ifdef L_utimes
- #ifndef __BCC__
- #error The uClibc version of utimes is in sysdeps/linux/common.
- #endif
- #include <utime.h>
- int utimes(const char *filename, register const struct timeval *tvp)
- {
- register struct utimbuf *p = NULL;
- struct utimbuf utb;
- if (tvp) {
- p = &utb;
- p->actime = tvp[0].tv_sec;
- p->modtime = tvp[1].tv_sec;
- }
- return utime(filename, p);
- }
- #endif
- #ifdef L__time_t2tm
- static const uint16_t _vals[] = {
- 60, 60, 24, 7 , 36524, 1461, 365, 0
- };
- static const unsigned char days[] = {
- 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31,
- 29,
- };
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
- static const char utc_string[] = "UTC";
- #endif
- struct tm attribute_hidden *_time_t2tm(const time_t *__restrict timer,
- int offset, struct tm *__restrict result)
- {
- register int *p;
- time_t t1, t, v;
- int wday = wday;
- {
- register const uint16_t *vp;
- t = *timer;
- p = (int *) result;
- p[7] = 0;
- vp = _vals;
- do {
- if ((v = *vp) == 7) {
-
- #if (LONG_MAX > INT_MAX) && (LONG_MAX > 2147483647L)
- #if (INT_MAX == 2147483647L) && (LONG_MAX == 9223372036854775807L)
-
- if (((unsigned long)(t + offset- -784223472856L))
- > (784223421720L - -784223472856L)
- ) {
- return NULL;
- }
- #else
- #error overflow conditions unknown
- #endif
- #endif
-
- #if defined(__BCC__) && TIME_T_IS_UNSIGNED
- wday = (t + 4) % (*vp);
- #else
- wday = ((int)((t % (*vp)) + 11)) % ((int)(*vp));
- #endif
-
- v = ((time_t)(vp[1])) << 2;
- ++v;
-
-
- t += (135140L - 366) + offset;
- }
- #if defined(__BCC__) && TIME_T_IS_UNSIGNED
- t -= ((t1 = t / v) * v);
- #else
- if ((t -= ((t1 = t / v) * v)) < 0) {
- t += v;
- --t1;
- }
- #endif
- if ((*vp == 7) && (t == v-1)) {
- --t;
- ++p[4];
- }
- #if defined(__BCC__) && 0
- *p = t1;
- if (v <= 60) {
- *p = t;
- t = t1;
- }
- ++p;
- #else
- if (v <= 60) {
- *p++ = t;
- t = t1;
- } else {
- *p++ = t1;
- }
- #endif
- } while (*++vp);
- }
- if (p[-1] == 4) {
- --p[-1];
- t = 365;
- }
- *p += ((int) t);
- p -= 2;
- #if (LONG_MAX > INT_MAX) && (LONG_MAX > 2147483647L)
-
- *p = ((((p[-2]<<2) + p[-1])*25 + p[0])<< 2) + (p[1] - 299);
- #else
- *p = ((((p[-2]<<2) + p[-1])*25 + p[0])<< 2) + p[1] - 299;
- #endif
- p[1] = wday;
- {
- register const unsigned char *d = days;
- wday = 1900 + *p;
- if (__isleap(wday)) {
- d += 11;
- }
- wday = p[2] + 1;
- *--p = 0;
- while (wday > *d) {
- wday -= *d;
- if (*d == 29) {
- d -= 11;
- }
- ++d;
- ++*p;
- }
- p[-1] = wday;
- }
-
- p[4] = 0;
- #ifdef __UCLIBC_HAS_TM_EXTENSIONS__
- # ifdef __USE_BSD
- result->tm_gmtoff = 0;
- result->tm_zone = utc_string;
- # else
- result->__tm_gmtoff = 0;
- result->__tm_zone = utc_string;
- # endif
- #endif
- return result;
- }
- #endif
- #ifdef L___time_tm
- struct tm __time_tm;
- #endif
- #ifdef L__time_mktime
- time_t attribute_hidden _time_mktime(struct tm *timeptr, int store_on_success)
- {
- time_t t;
- __UCLIBC_MUTEX_LOCK(_time_tzlock);
- tzset();
- t = _time_mktime_tzi(timeptr, store_on_success, _time_tzinfo);
- __UCLIBC_MUTEX_UNLOCK(_time_tzlock);
- return t;
- }
- #endif
- #ifdef L__time_mktime_tzi
- static const unsigned char __vals[] = {
- 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31,
- 29,
- };
- time_t attribute_hidden _time_mktime_tzi(struct tm *timeptr, int store_on_success,
- rule_struct *tzi)
- {
- #ifdef __BCC__
- long days, secs;
- #else
- long long secs;
- #endif
- time_t t;
- struct tm x;
-
- register int *p = (int *) &x;
- register const unsigned char *s;
- int d, default_dst;
- memcpy(p, timeptr, sizeof(struct tm));
- if (!tzi[1].tzname[0]) {
- p[8] = 0;
- }
- default_dst = 0;
- if (p[8]) {
- default_dst = 1;
- p[8] = ((p[8] > 0) ? 1 : -1);
- }
- d = 400;
- p[5] = (p[5] - ((p[6] = p[5]/d) * d)) + (p[7] = p[4]/12);
- if ((p[4] -= 12 * p[7]) < 0) {
- p[4] += 12;
- --p[5];
- }
- s = __vals;
- d = (p[5] += 1900);
- if (__isleap(d)) {
- s += 11;
- }
- p[7] = 0;
- d = p[4];
- while (d) {
- p[7] += *s;
- if (*s == 29) {
- s -= 11;
- }
- ++s;
- --d;
- }
- _time_tzset (x.tm_year < 2007);
- #ifdef __BCC__
- d = p[5] - 1;
- days = -719163L + ((long)d)*365 + ((d/4) - (d/100) + (d/400) + p[3] + p[7]);
- secs = p[0] + 60*( p[1] + 60*((long)(p[2])) )
- + tzi[default_dst].gmt_offset;
- DST_CORRECT:
- if (secs < 0) {
- secs += 120009600L;
- days -= 1389;
- }
- if ( ((unsigned long)(days + secs/86400L)) > 49710L) {
- t = ((time_t)(-1));
- goto DONE;
- }
- secs += (days * 86400L);
- #else
- d = p[5] - 1;
- d = -719163L + d*365 + (d/4) - (d/100) + (d/400);
- secs = p[0]
- + tzi[default_dst].gmt_offset
- + 60*( p[1]
- + 60*(p[2]
- + 24*(((146073L * ((long long)(p[6])) + d)
- + p[3]) + p[7])));
- DST_CORRECT:
- if (((unsigned long long)(secs - LONG_MIN))
- > (((unsigned long long)LONG_MAX) - LONG_MIN)
- ) {
- t = ((time_t)(-1));
- goto DONE;
- }
- #endif
- d = ((struct tm *)p)->tm_isdst;
- t = secs;
- __time_localtime_tzi(&t, (struct tm *)p, tzi);
- if (t == ((time_t)(-1))) {
- goto DONE;
- }
- if ((d < 0) && (((struct tm *)p)->tm_isdst != default_dst)) {
- #ifdef __BCC__
- secs -= (days * 86400L);
- #endif
- secs += (tzi[1-default_dst].gmt_offset
- - tzi[default_dst].gmt_offset);
- goto DST_CORRECT;
- }
- if (store_on_success) {
- memcpy(timeptr, p, sizeof(struct tm));
- }
- DONE:
- return t;
- }
- #endif
- #if (defined(L_wcsftime) || defined(L_wcsftime_l))
- #endif
- #ifdef L_dysize
- int dysize(int year)
- {
- return __isleap(year) ? 366 : 365;
- }
- #endif
|