Justine Tunney
1 year ago
108 changed files with 2915 additions and 807 deletions
-
8build/compile
-
7build/definitions.mk
-
19build/realify.sed
-
2build/rules.mk
-
1examples/examples.mk
-
2examples/printargs.c
-
30libc/alg/memmem.c
-
3libc/calls/atfork.c
-
2libc/calls/clock_gettime.c
-
6libc/calls/fstat-nt.c
-
4libc/calls/getpid.c
-
4libc/calls/getrusage-nt.c
-
2libc/calls/gettimeofday-nt.c
-
2libc/calls/open.c
-
2libc/calls/sigaction.c
-
2libc/calls/utimensat-nt.c
-
4libc/calls/wait4-nt.c
-
15libc/conv/conv.h
-
1libc/conv/conv.mk
-
43libc/conv/dosdatetimetounix.c
-
6libc/conv/filetimetotimespec.c
-
10libc/conv/filetimetotimeval.c
-
25libc/conv/kmonthyearday.c
-
2libc/conv/timespectofiletime.c
-
2libc/conv/timetofiletime.c
-
2libc/conv/timevaltofiletime.c
-
1libc/dos.h
-
128libc/fmt/fcvt.c
-
2libc/fmt/fmt.h
-
2libc/fmt/palandftoa.c
-
6libc/fmt/palandntoa.c
-
24libc/fmt/palandprintf.c
-
8libc/fmt/palandprintf.h
-
2libc/fmt/spacepad.c
-
190libc/fmt/stoa.c
-
18libc/fmt/vsnprintf.c
-
2libc/integral/normalize.inc
-
2libc/linux/linux.mk
-
2libc/log/asan.c
-
26libc/log/checkfail.c
-
2libc/log/log.h
-
5libc/log/log.mk
-
24libc/log/vflogf.c
-
6libc/nt/winsock.h
-
3libc/runtime/executive.S
-
6libc/runtime/getstack.c
-
3libc/runtime/isheap.c
-
22libc/sock/inet_ntop.c
-
1libc/stdio/fwritebuf.c
-
10libc/str/getutf16.ncabi.c
-
4libc/str/str.h
-
5libc/str/strclen16.c
-
9libc/str/thompike.h
-
12libc/str/utf16.h
-
10libc/time/localtime.c
-
1libc/time/time.h
-
4libc/time/times.c
-
18libc/zip.h
-
2libc/zipos/close.c
-
18libc/zipos/find.c
-
10libc/zipos/open.c
-
67net/http/formathttpdatetime.c
-
2net/http/gethttpheader.gperf
-
2net/http/gethttpheader.inc
-
8net/http/gethttpmethod.gperf
-
126net/http/gethttpmethod.inc
-
48net/http/http.h
-
81net/http/http.mk
-
40net/http/khttpmethod.c
-
57net/http/parsehttpdatetime.c
-
72net/http/parsehttprange.c
-
5net/http/parsehttprequest.c
-
33net/http/parsehttpversion.c
-
32test/libc/conv/dosdatetimetounix_test.c
-
3test/libc/conv/test.mk
-
4test/libc/conv/timevaltofiletime_test.c
-
32test/libc/fmt/fcvt_test.c
-
9test/libc/fmt/palandprintf_test.c
-
20test/libc/fmt/sprintf_s.inc
-
7test/libc/sock/inet_ntop_test.c
-
48test/net/http/parsehttpdatetime_test.c
-
102test/net/http/parsehttprange_test.c
-
22test/tool/build/lib/disinst_test.c
-
6third_party/zlib/zlib.mk
-
1tool/build/build.mk
-
7tool/build/emubin/emubin.mk
-
355tool/build/emubin/lisp.c
-
16tool/build/emubin/lisp.lds
-
46tool/build/emubin/lispstart.S
-
93tool/build/emulator.c
-
3tool/build/lib/buffer.c
-
80tool/build/lib/demangle.c
-
2tool/build/lib/demangle.h
-
2tool/build/lib/dis.c
-
4tool/build/lib/dis.h
-
73tool/build/lib/disarg.c
-
8tool/build/lib/diself.c
-
7tool/build/lib/disinst.c
-
2tool/build/lib/modrm.h
-
7tool/build/lib/pty.c
@ -0,0 +1,43 @@ |
|||
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│ |
|||
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│ |
|||
╞══════════════════════════════════════════════════════════════════════════════╡ |
|||
│ Copyright 2020 Justine Alexandra Roberts Tunney │ |
|||
│ │ |
|||
│ This program is free software; you can redistribute it and/or modify │ |
|||
│ it under the terms of the GNU General Public License as published by │ |
|||
│ the Free Software Foundation; version 2 of the License. │ |
|||
│ │ |
|||
│ This program is distributed in the hope that it will be useful, but │ |
|||
│ WITHOUT ANY WARRANTY; without even the implied warranty of │ |
|||
│ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU │ |
|||
│ General Public License for more details. │ |
|||
│ │ |
|||
│ You should have received a copy of the GNU General Public License │ |
|||
│ along with this program; if not, write to the Free Software │ |
|||
│ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA │ |
|||
│ 02110-1301 USA │ |
|||
╚─────────────────────────────────────────────────────────────────────────────*/ |
|||
#include "libc/conv/conv.h" |
|||
#include "libc/macros.h" |
|||
#include "libc/time/time.h" |
|||
|
|||
/** |
|||
* Converts MS-DOS timestamp to UNIX. |
|||
* |
|||
* @note type signature supports dates greater than 2100 |
|||
* @see PKZIP, FAT |
|||
*/ |
|||
int64_t DosDateTimeToUnix(unsigned date, unsigned time) { |
|||
unsigned weekday, year, month, day, hour, minute, second, yday, leap; |
|||
year = ((date & 0xfffffe00) >> 9) + 1980 - 1900; |
|||
month = MAX(1, MIN(12, (date & 0x01e0) >> 5)); |
|||
day = (date & 0x001f) ? (date & 0x001f) - 1 : 0; |
|||
hour = (time & 0x0000f800) >> 11; |
|||
minute = (time & 0x000007e0) >> 5; |
|||
second = (time & 0x0000001f) << 1; |
|||
leap = year % 4 == 0 && (year % 100 || year % 400 == 0); |
|||
yday = day + kMonthYearDay[leap][month - 1]; |
|||
return second + minute * 60 + hour * 3600 + yday * 86400 + |
|||
(year - 70) * 31536000ull + ((year - 69) / 4) * 86400ull - |
|||
((year - 1) / 100) * 86400ull + ((year + 299) / 400) * 86400ull; |
|||
} |
|||
@ -0,0 +1,25 @@ |
|||
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│ |
|||
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│ |
|||
╞══════════════════════════════════════════════════════════════════════════════╡ |
|||
│ Copyright 2020 Justine Alexandra Roberts Tunney │ |
|||
│ │ |
|||
│ This program is free software; you can redistribute it and/or modify │ |
|||
│ it under the terms of the GNU General Public License as published by │ |
|||
│ the Free Software Foundation; version 2 of the License. │ |
|||
│ │ |
|||
│ This program is distributed in the hope that it will be useful, but │ |
|||
│ WITHOUT ANY WARRANTY; without even the implied warranty of │ |
|||
│ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU │ |
|||
│ General Public License for more details. │ |
|||
│ │ |
|||
│ You should have received a copy of the GNU General Public License │ |
|||
│ along with this program; if not, write to the Free Software │ |
|||
│ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA │ |
|||
│ 02110-1301 USA │ |
|||
╚─────────────────────────────────────────────────────────────────────────────*/ |
|||
#include "libc/time/time.h" |
|||
|
|||
const unsigned short kMonthYearDay[2][12] = { |
|||
{0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334}, |
|||
{0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335}, |
|||
}; |
|||
@ -0,0 +1,128 @@ |
|||
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│ |
|||
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│ |
|||
╞══════════════════════════════════════════════════════════════════════════════╡ |
|||
│ Copyright 2009 Ian Piumarta │ |
|||
│ │ |
|||
│ Permission is hereby granted, free of charge, to any person obtaining a copy │ |
|||
│ of this software and associated documentation files (the 'Software'), to │ |
|||
│ deal in the Software without restriction, including without limitation the │ |
|||
│ rights to use, copy, modify, merge, publish, distribute, and/or sell copies │ |
|||
│ of the Software, and to permit persons to whom the Software is furnished to │ |
|||
│ do so, provided that the above copyright notice(s) and this permission │ |
|||
│ notice appear in all copies of the Software. Inclusion of the above │ |
|||
│ copyright notice(s) and this permission notice in supporting documentation │ |
|||
│ would be appreciated but is not required. │ |
|||
│ │ |
|||
│ THE SOFTWARE IS PROVIDED 'AS IS'. USE ENTIRELY AT YOUR OWN RISK. │ |
|||
╚─────────────────────────────────────────────────────────────────────────────*/ |
|||
#include "libc/assert.h" |
|||
#include "libc/fmt/fmt.h" |
|||
#include "libc/macros.h" |
|||
#include "libc/math.h" |
|||
#include "libc/runtime/runtime.h" |
|||
#include "libc/str/str.h" |
|||
|
|||
asm(".ident\t\"\\n\\n\ |
|||
ecvt, fcvt (MIT License)\\n\ |
|||
Copyright 2009 Ian Piumarta\""); |
|||
|
|||
/** |
|||
* @fileoverview Replacements for the functions ecvt() and fcvt() |
|||
* |
|||
* These functions were recently deprecated in POSIX. The interface and |
|||
* behaviour is identical to the functions that they replace and faster. |
|||
* |
|||
* For details on the use of these functions, see your ecvt(3) manual |
|||
* page. If you don't have one handy, there might still be one available |
|||
* here: http://opengroup.org/onlinepubs/007908799/xsh/ecvt.html |
|||
* |
|||
* @see https://www.piumarta.com/software/fcvt/ |
|||
*/ |
|||
|
|||
static char *Fcvt(double value, int ndigit, int *decpt, int *sign, int fflag) { |
|||
static char buf[128]; |
|||
double i; |
|||
uint64_t l, mant; |
|||
int exp2, exp10, ptr; |
|||
memcpy(&l, &value, 8); |
|||
exp2 = (0x7ff & (l >> 52)) - 1023; |
|||
mant = l & 0x000fffffffffffffULL; |
|||
if ((*sign = l >> 63)) value = -value; |
|||
if (exp2 == 0x400) { |
|||
*decpt = 0; |
|||
return mant ? "nan" : "inf"; |
|||
} |
|||
exp10 = (value == 0) ? !fflag : (int)ceil(log10(value)); |
|||
if (exp10 < -307) exp10 = -307; /* otherwise overflow in pow() */ |
|||
value *= pow(10.0, -exp10); |
|||
if (value) { |
|||
while (value < 0.1) { |
|||
value *= 10; |
|||
--exp10; |
|||
} |
|||
while (value >= 1.0) { |
|||
value /= 10; |
|||
++exp10; |
|||
} |
|||
} |
|||
assert(value == 0 || (0.1 <= value && value < 1.0)); |
|||
if (fflag) { |
|||
if (ndigit + exp10 < 0) { |
|||
*decpt = -ndigit; |
|||
return ""; |
|||
} |
|||
ndigit += exp10; |
|||
} |
|||
*decpt = exp10; |
|||
if (ARRAYLEN(buf) < ndigit + 2) abort(); |
|||
ptr = 1; |
|||
#if 0 /* slow and safe (and dreadfully boring) */ |
|||
while (ptr <= ndigit) { |
|||
i; |
|||
value = modf(value * 10, &i); |
|||
buf[ptr++] = '0' + (int)i; |
|||
} |
|||
if (value >= 0.5) { |
|||
while (--ptr && ++buf[ptr] > '9') { |
|||
buf[ptr] = '0'; |
|||
} |
|||
} |
|||
#else /* faster */ |
|||
memcpy(&l, &value, 8); |
|||
exp2 = (0x7ff & (l >> 52)) - 1023; |
|||
assert(value == 0 || (-4 <= exp2 && exp2 <= -1)); |
|||
mant = l & 0x000fffffffffffffULL; |
|||
if (exp2 == -1023) { |
|||
++exp2; |
|||
} else { |
|||
mant |= 0x0010000000000000ULL; |
|||
} |
|||
mant <<= (exp2 + 4); /* 56-bit denormalised signifier */ |
|||
while (ptr <= ndigit) { |
|||
mant &= 0x00ffffffffffffffULL; /* mod 1.0 */ |
|||
mant = (mant << 1) + (mant << 3); |
|||
buf[ptr++] = '0' + (mant >> 56); |
|||
} |
|||
if (mant & 0x0080000000000000ULL) /* 1/2 << 56 */ |
|||
while (--ptr && ++buf[ptr] > '9') buf[ptr] = '0'; |
|||
#endif |
|||
if (ptr) { |
|||
buf[ndigit + 1] = 0; |
|||
return buf + 1; |
|||
} |
|||
if (fflag) { |
|||
++ndigit; |
|||
++*decpt; |
|||
} |
|||
buf[0] = '1'; |
|||
buf[ndigit] = 0; |
|||
return buf; |
|||
} |
|||
|
|||
char *ecvt(double value, int ndigit, int *decpt, int *sign) { |
|||
return Fcvt(value, ndigit, decpt, sign, 0); |
|||
} |
|||
|
|||
char *fcvt(double value, int ndigit, int *decpt, int *sign) { |
|||
return Fcvt(value, ndigit, decpt, sign, 1); |
|||
} |
|||