Cosmopolitan 0.3

Enable serving zip directory entries
Have redbean show zip listing as default / handler
2026-11-09 10:49:42 -10:00 · 2021-03-29 03:20:03 -07:00 · 2021-03-29 03:10:11 -07:00 · 2021-03-29 01:22:49 -07:00 · 2021-03-28 18:26:56 -07:00 · 2021-03-28 18:22:36 -07:00
2669 changed files with 71337 additions and 118247 deletions
@@ -0,0 +1,6 @@
+virt: lxd
+os: linux
+language: c
+script: make -j4 V=0
+notifications:
+  email: false
@@ -1,13 +1,12 @@
 {
 	"configurations": [
 		{
-			"name": "Linux",
+			"name": "Win32",
 			"includePath": [
 				"${workspaceFolder}"
 			],
 			"cStandard": "c11",
 			"cppStandard": "c++11",
-			"compilerPath": "${workspaceFolder}/o/third_party/gcc/bin/x86_64-linux-musl-gcc",
 			"forcedInclude": ["${workspaceFolder}/.vscode/vscode.h"],
 			"defines": [
 				"libcesque=",
@@ -63,6 +62,50 @@
 				"attributeallocalign(x)=",
 				"nullterminated(x)="
 			]
+		},
+		{
+			"name": "Linux",
+			"includePath": [
+				"${workspaceFolder}"
+			],
+			"cStandard": "gnu17",
+			"compilerPath": "${workspaceFolder}/o/third_party/gcc/bin/x86_64-linux-musl-gcc",
+			"compilerArgs": [
+				"-Wall",
+				"-Werror",
+				"-fdebug-prefix-map=${workspaceFolder}=",
+				"-frecord-gcc-switches",
+				"-Wa,-W",
+				"-Wa,-I.",
+				"-Wa,--noexecstack",
+				"-Wa,--nocompress-debug-sections",
+				"-Og",
+				"-g",
+				"-gdescribe-dies",
+				"-msse3",
+				"-mno-red-zone",
+				"-fno-math-errno",
+				"-fno-trapping-math",
+				"-fno-fp-int-builtin-inexact",
+				"-fno-ident",
+				"-fno-common",
+				"-fno-gnu-unique",
+				"-fstrict-aliasing",
+				"-fstrict-overflow",
+				"-fno-semantic-interposition",
+				"-mno-omit-leaf-frame-pointer",
+				"-fno-jump-tables",
+				"-nostdinc",
+				"-iquote."
+			],
+			"forcedInclude": [
+				"libc/integral/normalize.inc"
+			],
+			"defines": [
+				"COSMO",
+				"MODE=",
+				"IMAGE_BASE_VIRTUAL=0x400000"
+			]
 		}
 	],
 	"version": 4
@@ -1,160 +1,2 @@
 #define __VSCODE_INTELLISENSE__ 1
 #include "libc/integral/normalize.inc"
-
-#if 0
-#define __VSCODE_INTELLISENSE__ 1
-#define __BIGGEST_ALIGNMENT__   1
-#define __CHAR_MAX__            0x7F
-#define __SCHAR_MAX__           __CHAR_MAX__
-#define __SHRT_MAX__            0x7FFF
-#define __INT_MAX__             0x7FFFFFFF
-#define __LONG_MAX__            0x7FFFFFFFFFFFFFFF
-#define __LONG_LONG_MAX__       __LONG_MAX__
-#define __CHAR_MIN__            -((__CHAR_MAX__) + 1)
-#define __SHRT_MIN__            -((__SHRT_MAX__) + 1)
-#define __INT_MIN__             -((__INT_MAX__) + 1)
-#define __LONG_MIN__            -((__LONG_MAX__) + 1)
-#define __LONG_LONG_MIN__       -((__LONG_LONG_MAX__) + 1)
-#define __UCHAR_MAX__           0xFF
-#define __USHRT_MAX__           0xFFFF
-#define __UINT_MAX__            0xFFFFFFFF
-#define __ULONG_MAX__           0xFFFFFFFFFFFFFFFF
-#define __SIZE_MAX__            __ULONG_MAX__
-#define __SSIZE_MAX__           __LONG_MAX__
-#define __UINTPTR_MAX__         __SIZE_MAX__
-#define __INTPTR_MAX__          __SSIZE_MAX__
-#define __WCHAR_MAX__           __UINT_MAX__
-#define __PTRDIFF_MAX__         __UINTPTR_MAX__
-#define __INTMAX_MAX__          __ULONG_MAX__
-#define __SIZEOF_POINTER__      8
-#define __SIZEOF_SHORT__        2
-#define __SIZEOF_INT__          4
-#define __SIZEOF_LONG__         8
-#define __SIZEOF_LONG_LONG__    8
-#define __SIZEOF_PTRDIFF_T__    8
-#define __SIZEOF_SIZE_T__       8
-#define __SIZEOF_WCHAR_T__      4
-#define __SIZEOF_WINT_T__       4
-#define __SIZEOF_FLOAT__        4
-#define __SIZEOF_FLOAT128__     16
-#define __SIZEOF_DOUBLE__       8
-#define __SIZEOF_FLOAT80__      10
-#define __SIZEOF_LONG_DOUBLE__  16
-#define __FLT_MAX__             1
-#define __DBL_MAX__             1
-
-#define __INT_LEAST8_TYPE__   signed char
-#define __INT_LEAST16_TYPE__  signed short
-#define __INT_LEAST32_TYPE__  signed int
-#define __INT_LEAST64_TYPE__  signed long long
-#define __UINT_LEAST8_TYPE__  unsigned char
-#define __UINT_LEAST16_TYPE__ unsigned short
-#define __UINT_LEAST32_TYPE__ unsigned int
-#define __UINT_LEAST64_TYPE__ unsigned long long
-
-#define __UINT8_MAX__  __UCHAR_MAX__
-#define __UINT16_MAX__ __USHRT_MAX__
-#define __UINT32_MAX__ __UINT_MAX__
-#define __UINT64_MAX__ __ULONG_MAX__
-
-#define __INT8_MAX__  __CHAR_MAX__
-#define __INT16_MAX__ __SHRT_MAX__
-#define __INT32_MAX__ __INT_MAX__
-#define __INT64_MAX__ __LONG_MAX__
-
-#define ATEXIT_MAX 1
-#define STACKSIZE  0x10000
-#define ARG_MAX    255
-#define OPEN_MAX   0x7FFF
-#define CHAR_BIT   7
-#define NSIG       1
-#define NULL       (0)
-#define false 0
-#define true (!(false))
-#define COSMOPOLITAN_C_START_
-#define COSMOPOLITAN_C_END_
-#define PAGESIZE    0x1000
-#define BIGPAGESIZE 0x10000
-#define NAME_MAX    255
-
-#define SWITCHEROO(...) 0
-
-extern unsigned g_loglevel;
-
-typedef void * va_list;
-
-#define va_start(...) 0
-#define va_end(...)   0
-#define va_arg(x, y)  (y)(0)
-
-typedef signed char int8_t;
-typedef signed short int16_t;
-typedef signed int int32_t;
-#define int64_t       long long
-#define int128_t      int64_t
-typedef unsigned char uint8_t;
-typedef unsigned short uint16_t;
-typedef unsigned int uint32_t;
-typedef unsigned long long uint64_t;
-typedef unsigned long long uint128_t;
-
-typedef int errno_t;
-typedef uint64_t size_t;
-typedef unsigned long long ssize_t;
-typedef uint64_t uintptr_t;
-typedef long long intptr_t;
-
-typedef unsigned long long uintmax_t;
-typedef long long intmax_t;
-
-typedef uint32_t bool32;
-
-#ifndef __cplusplus
-typedef uint8_t bool;
-typedef uint16_t char16_t;
-typedef uint32_t char32_t;
-#endif /* __cplusplus */
-
-typedef char32_t wint_t;
-typedef char32_t wchar_t;
-typedef struct { int ax, dx; } axdx_t;
-
-/* duplicate and replace xmmintrin.internal.h to fix it for IntelliSense
- * SEE: <> */
-
-#define _Vector_size(x) __attribute__((__vector_size__(x)))
-
-#define IMAGE_BASE_VIRTUAL 0x400000
-#define __SIGACTION(...)   (0)
-#define VEIL(x, y)         (y)
-#define STATIC_YOINK(x)
-#define BUFSIZ                1
-#define FRAMESIZE             0x10000
-#define PATH_MAX              252
-#define concat(x, y, z)       0
-#define CONCAT(a, b, c, d, e) 0
-#define shuffle(...)          0
-#define reverse(x, y)         0
-#define autotype(x)           intptr_t
-
-#define _Generic_(...) (void*)(0)
-#define _Generic(...) _Generic_
-#define _Alignas(...)
-#define _Section(...)
-
-#define offsetof(x, y)   0
-#define INITIALIZER(...) struct _dummy
-#define __far
-#define tinystrstr(...) 0
-#define BENCHLOOP(...)  0
-
-#ifdef __hook
-#undef __hook
-#endif /* __hook */
-
-#ifdef UriKeyval
-#undef UriKeyval
-#endif /* UriKeyval */
-
-#define _Static_assert(...) 0
-#endif /* 0 */
@@ -1,3 +1,5 @@
+ISC License
+
 Copyright 2020 Justine Alexandra Roberts Tunney

 Permission to use, copy, modify, and/or distribute this software for
@@ -40,8 +40,7 @@
 #   o/dbg/examples/crashreport.com
 #   less examples/crashreport.c
 #
-#   # extremely tiny binaries (scout's honor escape hatch)
-#   # please pay the $1k for commercial license if you can
+#   # extremely tiny binaries
 #   make -j8 -O MODE=tiny				\
 #               LDFLAGS+=-s				\
 #               CPPFLAGS+=-DIM_FEELING_NAUGHTY	        \
@@ -101,7 +100,6 @@ include libc/str/str.mk				# │
 include third_party/xed/xed.mk			# │
 include third_party/zlib/zlib.mk		# │
 include libc/elf/elf.mk				# │
-include ape/lib/apelib.mk			# │
 include ape/ape.mk				# │
 include libc/fmt/fmt.mk				#─┘
 include libc/calls/calls.mk			#─┐
@@ -133,11 +131,11 @@ include dsp/tty/tty.mk				# ├──ONLINE RUNTIME
 include libc/dns/dns.mk				# │  You can communicate with the network
 include libc/crypto/crypto.mk			# │
 include net/http/http.mk			#─┘
-include third_party/duktape/duktape.mk
 include third_party/regex/regex.mk
 include third_party/third_party.mk
 include libc/testlib/testlib.mk
 include tool/viz/lib/vizlib.mk
+include third_party/lua/lua.mk
 include examples/examples.mk
 include third_party/lz4cli/lz4cli.mk
 include tool/build/lib/buildlib.mk
@@ -173,14 +171,13 @@ include test/libc/time/test.mk
 include test/libc/stdio/test.mk
 include test/libc/release/test.mk
 include test/libc/test.mk
-include test/ape/lib/test.mk
-include test/ape/test.mk
 include test/net/http/test.mk
 include test/net/test.mk
 include test/tool/build/lib/test.mk
 include test/tool/build/test.mk
 include test/tool/viz/lib/test.mk
 include test/tool/viz/test.mk
+include test/tool/net/test.mk
 include test/tool/test.mk
 include test/dsp/core/test.mk
 include test/dsp/scale/test.mk
@@ -237,16 +234,15 @@ COSMOPOLITAN_OBJECTS =		\
 	LIBC_NT_MSWSOCK		\
 	LIBC_OHMYPLUS		\
 	LIBC_X			\
-	THIRD_PARTY_GDTOA	\
 	THIRD_PARTY_GETOPT	\
 	LIBC_LOG		\
 	LIBC_UNICODE		\
 	LIBC_TIME		\
 	LIBC_ZIPOS		\
 	THIRD_PARTY_ZLIB	\
-	APE_LIB			\
 	THIRD_PARTY_MUSL	\
 	LIBC_STDIO		\
+	THIRD_PARTY_GDTOA	\
 	THIRD_PARTY_REGEX	\
 	LIBC_ALG		\
 	LIBC_MEM		\
@@ -269,8 +265,8 @@ COSMOPOLITAN_OBJECTS =		\
 	LIBC_FMT		\
 	THIRD_PARTY_COMPILER_RT	\
 	LIBC_TINYMATH		\
-	LIBC_SYSV		\
 	LIBC_STR		\
+	LIBC_SYSV		\
 	LIBC_INTRIN		\
 	LIBC_NT_KERNEL32	\
 	LIBC_NEXGEN32E
@@ -19,19 +19,31 @@ libc](https://justine.lol/cosmopolitan/index.html) website. We also have
 ## Getting Started

 If you're doing your development work on Linux or BSD then you need just
-five files to get started:
+five files to get started. Here's what you do on Linux:

 ```sh
-wget https://justine.lol/cosmopolitan/cosmopolitan-amalgamation-0.2.zip
-unzip cosmopolitan-amalgamation-0.2.zip
+wget https://justine.lol/cosmopolitan/cosmopolitan-amalgamation-0.3.zip
+unzip cosmopolitan-amalgamation-0.3.zip
 printf 'main() { printf("hello world\\n"); }\n' >hello.c
-gcc -g -O -static -nostdlib -nostdinc -fno-pie -no-pie -mno-red-zone \
+gcc -g -Os -static -nostdlib -nostdinc -fno-pie -no-pie -mno-red-zone \
+  -fno-omit-frame-pointer -pg -mnop-mcount \
  -o hello.com.dbg hello.c -fuse-ld=bfd -Wl,-T,ape.lds \
  -include cosmopolitan.h crt.o ape.o cosmopolitan.a
 objcopy -S -O binary hello.com.dbg hello.com
-./hello.com
 ```

+You now have a portable program. Please note that your APE binary will
+assimilate itself as a conventional resident of your platform after the
+first run, so it can be fast and efficient for subsequent executions.
+
+```sh
+./hello.com
+bash -c './hello.com'  # zsh/fish workaround (we upstreamed a patch)
+```
+
+So if you intend to copy the binary to Windows or Mac then please do
+that before you run it, not after.
+
 If you're developing on Windows or MacOS then you need to download an
 x86_64-pc-linux-gnu toolchain beforehand. See the [Compiling on
 Windows](https://justine.lol/cosmopolitan/windows-compiling.html)
@@ -41,10 +53,23 @@ universal binaries possible.
 Cosmopolitan can also be compiled from source on any Linux distro.

 ```sh
-wget https://justine.lol/cosmopolitan/cosmopolitan-0.2.tar.gz
-tar xf cosmopolitan-0.2.tar.gz  # see releases page
-cd cosmopolitan-0.2
+wget https://justine.lol/cosmopolitan/cosmopolitan-0.3.tar.gz
+tar xf cosmopolitan-0.3.tar.gz  # see releases page
+cd cosmopolitan
 make -j16
 o//examples/hello.com
 find o -name \*.com | xargs ls -rShal | less
 ```
+
+## Support Vector
+
+| Platform        | Min Version | Circa |
+| :---            | ---:        | ---:  |
+| AMD             | K8 Venus    | 2005  |
+| Intel           | Core        | 2006  |
+| New Technology  | Vista       | 2006  |
+| GNU/Systemd     | 2.6.18      | 2007  |
+| XNU's Not UNIX! | 15.6        | 2018  |
+| FreeBSD         | 12          | 2018  |
+| OpenBSD         | 6.4         | 2018  |
+| NetBSD          | 9.1         | 2020  |
@@ -32,20 +32,19 @@
 ╠──────────────────────────────────────────────────────▌▀▄─▐──▀▄─▐▄─▐▄▐▄─▐▄─▐▄─│
 │ αcτµαlly pδrταblε εxεcµταblε § program header                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/config.h"
-#include "ape/lib/pc.h"
 #include "ape/macros.internal.h"
 #include "ape/notice.inc"
 #include "ape/relocations.h"
+#include "libc/dce.h"
 #include "libc/elf/def.h"
 #include "libc/macho.internal.h"
 #include "libc/nexgen32e/uart.internal.h"
 #include "libc/nexgen32e/vidya.internal.h"
 #include "libc/nt/pedef.internal.h"
-#include "libc/dce.h"
+#include "libc/runtime/pc.internal.h"
 #include "libc/sysv/consts/prot.h"

-#define USE_SYMBOL_HACK 0
+#define USE_SYMBOL_HACK 1

 	.section .text,"ax",@progbits
 	.align	__SIZEOF_POINTER__
@@ -62,9 +61,6 @@ __ro:	.endobj	__ro,globl,hidden		# ←for gdb readibility
 	.previous
 	.section .rodata.str1.1,"a",@progbits
 cstr:	.endobj	cstr,globl,hidden		# ←for gdb readibility
-	.previous
-	.section .sort.rodata.real.str1.1,"a",@progbits
-rlstr:	.endobj	rlstr,globl,hidden		# ←for gdb readibility
 	.previous
 	.section .head,"ax",@progbits

@@ -105,7 +101,7 @@ rlstr:	.endobj	rlstr,globl,hidden		# ←for gdb readibility
 │ αcτµαlly pδrταblε εxεcµταblε § the old technology                            │
 ╚─────────────────────────────────────────────────────────────────────────────*/

-#if SupportsWindows() || SupportsXnu()
+#if SupportsWindows() || SupportsMetal() || SupportsXnu()

 //	MZ Literally Executable Header
 //
@@ -131,14 +127,14 @@ ape_mz:	.asciz	"MZqFpD='\n"		# Mark 'Zibo' Joseph Zbikowski
 	.ascii	"JT"			# MZ: OEM identifier
 	.short	0			# MZ: OEM information
 	.org	0x40-4			# MZ: bytes reserved for you
-#if SupportsWindows()
+#if SupportsWindows() || SupportsMetal()
 	.long	RVA(ape_pe)		# PE: the new technology
 #else
 	.long	0
 #endif
 	.endfn	ape_mz,globl,hidden

-#else /* !(SupportsWindows() || SupportsXnu()) */
+#else /* !(SupportsWindows() || SupportsMetal() || SupportsXnu()) */

 //	ELF Literally Executable Header
 //
@@ -168,7 +164,7 @@ ape_mz:	.asciz	"MZqFpD='\n"		# Mark 'Zibo' Joseph Zbikowski
 	.short	ape_elf_shnum			#  3c: e_shnum
 	.short	ape_elf_shstrndx		#  3e: e_shstrndx

-#endif /* SupportsWindows() || SupportsXnu() */
+#endif /* SupportsWindows() || SupportsMetal() || SupportsXnu() */

 #if SupportsMetal()

@@ -218,17 +214,17 @@ pc:	cld
 	.byte	0x0f,0x1f,0207			# nop rdi binbase
 	.short	(0x7c00-IMAGE_BASE_VIRTUAL)/512
 #endif
-	mov	$REAL_STACK_FRAME>>4,%di	# we need a stack
-	xor	%cx,%cx
+	mov	$0x70000>>4,%di			# we need a stack
+	xor	%cx,%cx				# 0x7f000-0x80000
 	mov	%cx,%es
 	rlstack	%di,%cx
-	push	%cs				# memcpy() [relocate this page]
-	pop	%ds
-	call	1f
-1:	pop	%si
+	push	%cs				# determine load address
+	pop	%ds				# and relocate this code
+	call	1f				# to a way lower address
+1:	pop	%si				# and we'll make cs zero
 	sub	$RVA(1b),%si
 	mov	$IMAGE_BASE_REAL>>4,%ax
-	push	%ax				# save real base
+	push	%ax				# save IMAGE_BASE_REAL>>4
 	push	%ax
 	pop	%es
 	xor	%di,%di
@@ -238,18 +234,18 @@ pc:	cld
 	.byte	0x0f,0x1f,0207			# nop rdi binbase
 	.short	(IMAGE_BASE_REAL-0x7c00)/512
 #endif
-	ljmp	$0,$REAL(1f)			# longjmp()
-1:	mov	%cx,%ds				# %ds and %cs are now zero
-	mov	$XLM_SIZE,%cx			# memset to clear real bss
-	mov	$XLM_BASE_REAL>>4,%ax
+	ljmp	$0,$REAL(1f)
+1:	mov	%cx,%ds
+	mov	$IMAGE_BASE_REAL-0x0500,%cx	# clears bss
+	mov	$0x0500>>4,%ax			# struct mman
 	mov	%ax,%es
 	xor	%ax,%ax
 	xor	%di,%di
 	rep stosb
-	cmp	$0x40,%dl			# statfs() [disk geometry]
+	cmp	$0x40,%dl
 	je	6f
 	call	dsknfo
-	pop	%es				# restore real base
+	pop	%es				# restore IMAGE_BASE_REAL>>4
 	mov	$1,%al				# current sector
 	xor	%cx,%cx				# current cylinder
 	xor	%dh,%dh				# current head
@@ -257,15 +253,7 @@ pc:	cld
 3:	call	pcread
 	dec	%di
 	jnz	3b
-6:	mov	$XLM(LOADSTATE),%di		# ax,cx,dx,es
-	stosw
-	xchg	%cx,%ax
-	stosw
-	xchg	%dx,%ax
-	stosw
-	mov	%es,%ax
-	stosw
-	ljmp	$0,$REAL(realmodeloader)
+6:	ljmp	$0,$REAL(realmodeloader)
 	.endfn	pc

 //	Determines disk geometry.
@@ -326,7 +314,7 @@ dsknfo:	push	%bx
 	movpp	%es,%ds
 	xor	%si,%si
 	mov	%si,%es
-	mov	$XLM(DRIVE_BASE_TABLE),%si
+	mov	$0x1510,%si		# mman::pc_drive_base_table
 	xchg	%si,%di
 	movsw	#→ headunloadtime, headloadtime
 	movsw	#→ shutofftime, bytespersector
@@ -379,11 +367,11 @@ pcread:	push	%ax
 	add	$512>>4,%si
 	mov	%si,%es
 	inc	%al			# ++sector
-	cmp	XLM(DRIVE_LAST_SECTOR),%al
+	cmp	0x151c,%al		# mman::pc_drive_last_sector
 	jbe	2f
 	mov	$1,%al
 	inc	%dh			# ++head
-	cmp	XLM(DRIVE_LAST_HEAD),%dh
+	cmp	0x1520,%dh		# mman::pc_drive_last_head
 	jbe	2f
 	xor	%dh,%dh
 	inc	%cx			# ++cylinder
@@ -395,6 +383,82 @@ pcread:	push	%ax
 	jmp	pcread
 	.endfn	pcread

+//	Video put string.
+//
+//	@param	di is the string
+//	@clob	bp,bx
+//	@mode	real
+rvputs:	mov	%di,%si
+0:	lodsb
+	test	%al,%al
+	je	1f
+	mov	$7,%bx				# normal mda/cga style page zero
+	mov	$0x0e,%ah			# teletype output al cp437
+	int	$0x10				# vidya service
+	jmp	0b
+1:	ret
+	.endfn	rvputs
+
+//	Abnormally halts startup.
+//
+//	@param	di message
+//	@mode	real
+//	@noreturn
+rldie:	push	%di
+	mov	$REAL(str.error),%di
+	call	rvputs
+	pop	%di
+	call	rvputs
+	mov	$REAL(str.crlf),%di
+	call	rvputs
+0:	rep nop
+	jmp	0b
+	.endfn	rldie
+
+//	Initializes present PC serial lines.
+sinit4:	mov	$4,%cx
+	mov	$0x400,%si			# BDA.COM1
+0:	lodsw
+	test	%ax,%ax
+	jz	1f
+	push	%cx
+	push	%si
+	xchg	%ax,%di
+	mov	$REAL(sconf),%si
+	call	sinit
+	pop	%si
+	pop	%cx
+1:	loop	0b
+	ret
+	.endfn	sinit4,global,hidden
+
+//	Initializes Serial Line Communications 8250 UART 16550A
+//
+//	@param	word di tty port
+//	@param	char (*{es:,e,r}si)[4] register initial values
+//	@mode	long,legacy,real
+//	@see	www.lammertbies.nl/comm/info/serial-uart.html
+sinit:	mov	%di,%dx
+	test	%dx,%dx
+	jz	2f
+	push	%dx
+	push	%si
+	xor	%cx,%cx
+	mov	$UART_LCR,%cl
+	add	%cx,%dx
+	lodsb	%ds:(%si),%al
+	pop	%si
+	or	$UART_DLAB,%al
+	out	%al,%dx
+	pop	%dx
+1:	lodsb	%ds:(%si),%al
+	out	%al,%dx
+	inc	%dx
+	dec	%cx
+	jns	1b
+2:	ret
+	.endfn	sinit,global,hidden
+
 /*───────────────────────────────────────────────────────────────────────────│─╗
 │ αcτµαlly pδrταblε εxεcµταblε § partition table                           ─╬─│┼
 ╚────────────────────────────────────────────────────────────────────────────│*/
@@ -469,9 +533,7 @@ ape_disk:
 ╚────────────────────────────────────────────────────────────────────────────│─╝
 	the bourne executable & linkable format */

-#if SupportsSystemv()
-
-#if SupportsWindows() || SupportsXnu()
+#if SupportsWindows() || SupportsMetal() || SupportsXnu()
 apesh:	.ascii	"'\n#'\"\n"			# sixth edition shebang
 	.ascii	"o=\"$(command -v \"$0\")\"\n"
 #if SupportsXnu()
@@ -511,6 +573,8 @@ apesh:	.ascii	"'\n#'\"\n"			# sixth edition shebang
 	.shstub	    ape_elf_shstrndx,2		#  3e: e_shstrndx
 	.ascii	    "' >&7\n"
 	.ascii	  "exec 7<&-\n"
+	.ascii	"else\n"
+	.ascii	  "exit 1\n"
 	.ascii	"fi\n"
 	.ascii	"exec \"$0\" \"$@\"\n"		# etxtbsy tail recursion
 	.ascii	"R=$?\n"			# architecture optimistic
@@ -526,10 +590,11 @@ apesh:	.ascii	"'\n#'\"\n"			# sixth edition shebang
 	.ascii	"fi\n"
 	.ascii	"exit $R\n"
 	.endobj	apesh
-#endif /* SupportsWindows() || SupportsXnu() */
+#endif /* SupportsWindows() || SupportsMetal() || SupportsXnu() */

+#if SupportsSystemv() || SupportsMetal()
 	.section .elf.phdrs,"a",@progbits
-	.long	PT_LOAD				# text segment
+	.long	PT_LOAD
 	.long	PF_R|PF_X
 	.stub	ape_rom_offset,quad
 	.stub	ape_rom_vaddr,quad
@@ -537,7 +602,7 @@ apesh:	.ascii	"'\n#'\"\n"			# sixth edition shebang
 	.stub	ape_rom_filesz,quad
 	.stub	ape_rom_memsz,quad
 	.stub	ape_rom_align,quad
-	.long	PT_LOAD				# data segment
+	.long	PT_LOAD
 	.long	PF_R|PF_W
 	.stub	ape_ram_offset,quad
 	.stub	ape_ram_vaddr,quad
@@ -545,20 +610,16 @@ apesh:	.ascii	"'\n#'\"\n"			# sixth edition shebang
 	.stub	ape_ram_filesz,quad
 	.stub	ape_ram_memsz,quad
 	.stub	ape_ram_align,quad
-#if SupportsLinux()
-//	Linux ignores mprotect() and returns 0 without this lool
-//	It has nothing to do with the stack, which is still exec
-	.long	PT_GNU_STACK			# p_type
-	.long	PF_R|PF_W			# p_flags
-	.quad	0				# p_offset
-	.quad	0				# p_vaddr
-	.quad	0				# p_paddr
-	.quad	0				# p_filesz
-	.quad	0				# p_memsz
-	.quad	16				# p_align
-#endif
+	.long	PT_GNU_STACK
+	.long	PF_R|PF_W
+	.stub	ape_stack_offset,quad
+	.stub	ape_stack_vaddr,quad
+	.stub	ape_stack_paddr,quad
+	.stub	ape_stack_filesz,quad
+	.stub	ape_stack_memsz,quad
+	.stub	ape_stack_align,quad
 #if SupportsOpenbsd() || SupportsNetbsd()
-	.long	PT_NOTE				# notes
+	.long	PT_NOTE
 	.long	PF_R
 	.stub	ape_note_offset,quad
 	.stub	ape_note_vaddr,quad
@@ -568,6 +629,7 @@ apesh:	.ascii	"'\n#'\"\n"			# sixth edition shebang
 	.stub	ape_note_align,quad
 #endif
 	.previous
+#endif /* SupportsSystemv() || SupportsMetal() */

 #if SupportsOpenbsd()
 	.section .note.openbsd.ident,"a",@progbits
@@ -597,8 +659,6 @@ netbsd.ident:
 	.previous
 #endif /* SupportsNetbsd() */

-#endif /* SupportsSystemv() */
-
 /*	                                      ▄▄███▄
 	                                  ▄▄████████▄
 	                               ▄█████████████▄
@@ -812,7 +872,7 @@ PETEXT = 0b01110000000000000000000001100000
 PEDATA = 0b11000000000000000000000011000000
 PEIMPS = 0b11000000000000000000000001000000

-#if SupportsWindows()
+#if SupportsWindows() || SupportsMetal()

 	.section .pe.header,"a",@progbits
 	.align	__SIZEOF_POINTER__
@@ -830,23 +890,23 @@ ape_pe:	.ascin	"PE",4
 	.long	0			# SizeOfCode
 	.long	0			# SizeOfInitializedData
 	.long	0			# SizeOfUninitializedData
-	.long	RVA(WinMain)		# EntryPoint
+	.long	RVA(ape_pe_entry)	# EntryPoint
 	.long	0			# BaseOfCode
-	.quad	IMAGE_BASE_VIRTUAL	# ImageBase
+	.quad	ape_pe_base		# ImageBase
 	.long	4096			# SectionAlignment
 	.long	4096			# FileAlignment
-	.short	6			# MajorOperatingSystemVersion
+	.short	v_ntversion		# MajorOperatingSystemVersion
 	.short	0			# MinorOperatingSystemVersion
 	.short	0			# MajorImageVersion
 	.short	0			# MinorImageVersion
-	.short	6			# MajorSubsystemVersion
+	.short	v_ntsubversion		# MajorSubsystemVersion
 	.short	0			# MinorSubsystemVersion
 	.long	0			# Win32VersionValue
 	.long	RVA(_end)		# SizeOfImage
 	.long	RVA(_ehead)		# SizeOfHeaders
 	.long	0			# Checksum
 	.short	v_ntsubsystem		# Subsystem: 0=Neutral,2=GUI,3=Console
-	.short	DLLEXE			# DllCharacteristics
+	.stub	v_ntdllchar,short	# DllCharacteristics
 	.quad	0x0000000000100000	# StackReserve
 	.quad	0x00000000000fc000	# StackCommit
 	.quad	0			# HeapReserve
@@ -854,7 +914,7 @@ ape_pe:	.ascin	"PE",4
 	.long	0			# LoaderFlags
 	.long	16			# NumberOfDirectoryEntries
 	.long	0,0			# ExportsDirectory
-	.long	RVA(ape_idata_idt)	# ImportsDirectory
+	.stub	ape_idata,long		# ImportsDirectory
 	.stub	ape_idata_idtsize,long	# ImportsDirectorySize
 	.long	0,0			# ResourcesDirectory
 	.long	0,0			# ExceptionsDirectory
@@ -866,7 +926,7 @@ ape_pe:	.ascin	"PE",4
 	.long	0,0			# ThreadLocalStorage
 	.long	0,0			# LoadConfigurationDirectory
 	.long	0,0			# BoundImportDirectory
-	.long	RVA(ape_idata_iat)	# ImportAddressDirectory
+	.stub	ape_idata,long		# ImportAddressDirectory
 	.stub	ape_idata_iatsize,long	# ImportAddressDirectorySize
 	.long	0,0			# DelayImportDescriptor
 	.long	0,0			# ComPlusRuntimeHeader
@@ -884,7 +944,7 @@ ape_pe:	.ascin	"PE",4
 	.long	0			# Line Number Table Offset
 	.short	0			# Relocation Count
 	.short	0			# Line Number Count
-	.long	PETEXT		# Flags
+	.long	PETEXT			# Flags
 	.previous

 	.section .pe.sections,"a",@progbits
@@ -897,10 +957,10 @@ ape_pe:	.ascin	"PE",4
 	.long	0			# Line Number Table Offset
 	.short	0			# Relocation Count
 	.short	0			# Line Number Count
-	.long	PEDATA		# Flags
+	.long	PEDATA			# Flags
 	.previous

-#endif /* SupportsWindows() */
+#endif /* SupportsWindows() || SupportsMetal() */

 	.section .idata.ro.idt.1,"a",@progbits
 	.type	ape_idata_idtend,@object
@@ -938,13 +998,6 @@ ape_idata_iatend:
 	better code/data separation (.head is rwx[real] rx[long]) */

 //	NUL-Terminated Strings.
-ape.str:
-str.ape:
-	.byte	0xe0,0x63,0xe7,0xe6,0xe0,0x6c,0x6c,0x79	#αcτµαlly
-	.byte	0x20,0x70,0xeb,0x72,0xe7,0xe0,0x62,0x6c	# pδrταbl
-	.byte	0xee,0x20,0xee,0x78,0xee,0x63,0xe6,0xe7	#ε εxεcµτ
-	.byte	0xe0,0x62,0x6c,0xee,0x0d,0x0a,0x00	#αblε.
-	.endobj	str.ape
 str.error:
 	.asciz	"error: "
 	.endobj	str.error
@@ -957,19 +1010,12 @@ str.cpuid:
 str.oldskool:
 	.asciz	"oldskool"
 	.endobj	str.oldskool
-str.dsknfo:
-	.asciz	"dsknfo"
-	.endobj	str.dsknfo
 str.e820:
 	.asciz	"e820"
 	.endobj	str.e820
-str.memory:
-	.asciz	"nomem"
-	.endobj	str.memory
 str.long:
 	.asciz	"nolong"
 	.endobj	str.long
-	.endobj	ape.str

 //	Serial Line Configuration (8250 UART 16550)
 //	If it's hacked, it'll at least get hacked very slowly.
@@ -1059,8 +1105,8 @@ ape_grub:
 	.align	4
 ape_grub_entry:
 	.code32
-	cmp	$GRUB_EAX,%eax
-	jne	triplf
+//	cmp	$GRUB_EAX,%eax
+//	jne	triplf
 	push	$0
 	popf
 	mov	$0x40,%dl
@@ -1076,18 +1122,12 @@ ape_grub_entry:
 ╚──────────────────────────────────────────────────────────────────────────────╝
 	the default mode of operation on modern cpus */

-	nop
-	nop
-	nop
-	nop
 realmodeloader:
-	call16	rlinit
-	call16	sinit4
-	mov	$REAL(str.ape),%di
-	call16	rvputs
+	call	rlinit
+	call	sinit4
 	.optfn	_start16
-	call16	_start16
-	call16	longmodeloader
+	call	_start16
+	call	longmodeloader
 	.endfn	realmodeloader

 	.section .sort.text.real.init.1,"ax",@progbits
@@ -1100,86 +1140,6 @@ rlinit:	.previous/*
 	ret
 	.previous

-//	Initializes present PC serial lines.
-sinit4:	mov	$4,%cx
-	mov	$kBiosDataAreaXlm+COM1,%si
-0:	lodsw
-	test	%ax,%ax
-	jz	1f
-	push	%cx
-	push	%si
-	xchg	%ax,%di
-	mov	$REAL(sconf),%si
-	call16	sinit
-	pop	%si
-	pop	%cx
-1:	loop	0b
-	ret
-	.endfn	sinit4,global,hidden
-
-//	Initializes Serial Line Communications 8250 UART 16550A
-//
-//	@param	word di tty port
-//	@param	char (*{es:,e,r}si)[4] register initial values
-//	@mode	long,legacy,real
-//	@see	www.lammertbies.nl/comm/info/serial-uart.html
-sinit:	mov	%di,%dx
-	test	%dx,%dx
-	jz	2f
-	push	%dx
-	push	%si
-	xorw	%cx,%cx
-	mov	$UART_LCR,%cl
-	add	%cx,%dx
-	lodsb	%ds:(%si),%al
-	pop	%si
-	or	$UART_DLAB,%al
-	out	%al,%dx
-	pop	%dx
-1:	lodsb	%ds:(%si),%al
-	out	%al,%dx
-	add	$1,%dx
-	sub	$1,%cx
-	jns	1b
-2:	ret
-	.endfn	sinit,global,hidden
-
-//	Video put string.
-//
-//	@param	di is the string
-//	@mode	real
-rvputs:	push	%bp
-	push	%bx
-	mov	%di,%si
-0:	lodsb
-	test	%al,%al
-	je	1f
-	mov	$7,%bx				# normal mda/cga style page zero
-	mov	$0x0e,%ah			# teletype output al cp437
-	int	$0x10				# vidya service
-	jmp	0b
-1:	pop	%bx
-	pop	%bp
-	ret
-	.endfn	rvputs
-
-//	Abnormally halts startup.
-//
-//	@param	di message
-//	@mode	real
-//	@noreturn
-rldie:	push	%di
-	mov	$REAL(str.error),%di
-	call16	rvputs
-	pop	%di
-	call16	rvputs
-	mov	$REAL(str.crlf),%di
-	call16	rvputs
-	xor	%ax,%ax				# get keystroke
-	int	$0x16				# keyboard service
-	call16	triplf
-	.endfn	rldie
-
 /*                                                               █ █▒
                                                               █     █
                                        █▓▄                   █       █
@@ -1227,18 +1187,11 @@ rldie:	push	%di
 	long mode is long */

 longmodeloader:
-	call16	lcheck
-	call16	a20
-	mov	$XLM(E820),%di
-	mov	$XLM_E820_SIZE,%si
-	call16	e820
-	jc	9f
-	call16	unreal
-//	call	hiload
-	call16	pinit
-	call16	golong
-9:	mov	$REAL(str.e820),%ax
-	call16	rldie
+	call	lcheck
+	call	a20
+	call	e820
+	call	pinit
+	call	golong
 	.endfn	longmodeloader

 //	Long Mode Hardware Check
@@ -1274,35 +1227,25 @@ lcheck:	pushf				# check for i8086 / i8088 / i80186
 	jne	10f
 	xor	%ax,%ax
 1:	ret
-9:	mov	$REAL(str.oldskool),%ax
+9:	mov	$REAL(str.oldskool),%di
 	jmp	20f
-10:	mov	$REAL(str.long),%ax
+10:	mov	$REAL(str.long),%di
 	jmp	20f
-12:	mov	$REAL(str.cpuid),%ax
-	jmp	20f
-20:	call16	rldie
+12:	mov	$REAL(str.cpuid),%di
+20:	call	rldie
 	.endfn	lcheck

 //	Gets memory map from BIOS.
-//
-//	@param	di paragraph aligned buffer
-//	@param	si bytes in buffer to fill
-//	@return	number of bytes written or CF on error
-//	@mode	real
-e820:	push	%bp
-	mov	%sp,%bp
-	pushl	$'S'<<24|'M'<<16|'A'<<8|'P'	# magic @ -4(%bp)
-	push	%bx
-	shr	$4,%di
+e820:	mov	$0x0510>>4,%di		# mman::e820
 	mov	%di,%es
 	xor	%edi,%edi		# es:di is destination buffer
 	xor	%ebx,%ebx		# ebx is an api state tracker
 1:	mov	$0xE820,%eax		# magic
 	mov	$8+8+4+4,%ecx		# sizeof(struct SmapEntry)
-	mov	-4(%bp),%edx		# magic
+	mov	$0x534d4150,%edx	# magic number
 	int	$0x15			# ax,bx,cx,dx,di → ax,bx,cx
 	jc	9f			# cf = unsupported or abuse
-	cmp	-4(%bp),%eax		# more magic means success
+	cmp	%edx,%eax		# more magic means success
 	jne	9f
 	test	%cx,%cx			# discard empty results
 	jz	5f
@@ -1312,78 +1255,14 @@ e820:	push	%bp
 	jnz	5f
 4:	add	$8+8+4+4,%di		# keep entry
 5:	test	%ebx,%ebx		# last entry?
-	jz	7f
-	cmp	%si,%di			# out of buf?
+	jz	8f
+	cmp	$0x1000,%di
 	jb	1b
-7:	mov	%di,%ax
-8:	pop	%bx
-	leave
-	ret
-9:	stc
-	jmp	8b
+8:	ret
+9:	mov	$REAL(str.e820),%di
+	call	rldie
 	.endfn	e820

-//	Unreal Mode.
-//	Makes 4gb of real memory accessible via %fs segment.
-unreal:	cli
-	lgdt	REAL(gdt)
-	mov	%cr0,%eax
-	or	$CR0_PE,%al
-	mov	%eax,%cr0
-	jmp	1f
-1:	mov	$GDT_LEGACY_DATA,%cx
-	mov	%cx,%fs
-	and	$~CR0_PE,%al
-	mov	%eax,%cr0
-	ljmp	$0,$REAL(1f)
-1:	sti
-	ret
-	.endfn	unreal
-
-//	Loads remainder of executable off disk.
-hiload:	push	%bx
-	mov	$IMAGE_BASE_REAL,%esi		# relocate, again
-	mov	$IMAGE_BASE_PHYSICAL,%ebx
-	mov	$v_ape_realsectors,%ecx
-	shl	$9,%ecx
-	or	$-4,%edx
-0:	add	$4,%edx
-	cmp	%edx,%ecx
-	je	1f
-	mov	%fs:(%esi,%edx),%eax
-	mov	%eax,%fs:(%ebx,%edx)
-	jmp	0b
-1:	lea	(%ebx,%edx),%ebx
-	mov	$v_ape_highsectors,%di		# then copy rest off disk
-	mov	$REAL_SCRATCH_AREA>>4,%ax	# to real memory buffer
-	mov	%ax,%es
-	mov	XLM(LOADSTATE)+0,%ax
-	mov	XLM(LOADSTATE)+2,%cx
-	mov	XLM(LOADSTATE)+4,%dx
-0:	test	%di,%di
-	jz	9f
-	mov	%di,%ax
-	push	%bx
-	xor	%bx,%bx
-	call16	pcread
-	pop	%bx
-	sub	%ax,%di
-	push	%cx
-	mov	%ax,%cx				# copy real buffer to high
-	shl	$9,%cx				# no way bios loaded >64k
-	xor	%si,%si
-1:	mov	%es:(%si),%eax
-	mov	%eax,%fs:(%ebx)
-	add	$4,%ebx
-	add	$4,%si
-	sub	$4,%cx
-	jnz	1b
-	pop	%cx
-	jmp	0b
-9:	pop	%bx
-	ret
-	.endfn	hiload
-
 //	Asks keyboard to grant system 65,519 more bytes of memory.
 //
 //	Yup.
@@ -1414,26 +1293,26 @@ a20:	cli
 	pop	%ds
 	jne	3f
 	mov	$1,%ax
-	call16	1f
+	call	1f
 	mov	$0xad,%al
 	out	%al,$0x64
-	call16	1f
+	call	1f
 	mov	$0xd0,%al
 	out	%al,$0x64
-	call16	2f
+	call	2f
 	in	$0x60,%al
 	push	%ax
-	call16	1f
+	call	1f
 	mov	$0xd1,%al
 	out	%al,$0x64
-	call16	1f
+	call	1f
 	pop	%ax
 	or	$2,%al
 	out	%al,$0x60
-	call16	1f
+	call	1f
 	mov	$0xae,%al
 	out	%al,$0x64
-	call16	1f
+	call	1f
 	jmp	a20
 1:	in	$0x64,%al
 	test	$2,%al
@@ -1448,33 +1327,26 @@ a20:	cli
 	.endfn	a20

 //	Initializes long mode paging.
-//
-//	Modern computers access memory via four levels of indirection:
-//
-//	  register char (*(*(*(*ram)[512])[512])[512])[4096] asm(cr3)
-//
-//	Your page tables grow down in memory, starting from the real
-//	stack segment base. This function only defines enough tables
-//	to get us started.
-#define	TIP REAL_STACK_FRAME
 pinit:	push	%ds
-	mov	$(TIP-0x4000)>>4,%ax
+#define	SEG 0x79000
+	mov	$SEG>>4,%ax
 	mov	%ax,%ds
-	movl	$TIP-0x2000+PAGE_V+PAGE_RW,0x3000		# PML4T→PDPT
-	movl	$TIP-0x3000+PAGE_V+PAGE_RW,0x2000		# PDPT→PDT
-	movl	$TIP-0x4000+PAGE_V+PAGE_RW,0x1000		# PDT→PD
-	mov	$0x100000/0x1000,%cx				# PD→512kb
+	movl	$0x7d000+PAGE_V+PAGE_RW,0x7e000-SEG	# PDPT←PML4T (+)
+	movl	$0x7c000+PAGE_V+PAGE_RW,0x7e800-SEG	# PDPT←PML4T (-)
+	movl	$0x7b000+PAGE_V+PAGE_RW,0x7d000-SEG	# PDT←PDPT   (+)
+	movl	$0x7a000+PAGE_V+PAGE_RW,0x7c000-SEG	# PDT←PDPT   (-)
+	movl	$0x79000+PAGE_V+PAGE_RW,0x7b000-SEG	# PD←PDT     (+)
+	movl	$0x79000+PAGE_V+PAGE_RW,0x7a000-SEG	# PD←PDT     (-)
+	mov	$512,%cx				# PD±2MB
 	mov	$PAGE_V+PAGE_RW,%eax
 	xor	%si,%si
 0:	mov	%eax,(%si)
 	add	$0x1000,%eax
 	add	$8,%si
 	loop	0b
- 	movb	$0,0						# unmap null
-	pop	%ds
-	movl	$TIP-0x4000,XLM(PAGE_TABLE_STACK_POINTER)	# STACK→XLM
-	mov	$TIP-0x1000,%eax				# PML4T→CR3
+	mov	$0x7e000,%eax				# PML4T←CR3
 	mov	%eax,%cr3
+	pop	%ds
 	ret
 	.endfn	pinit

@@ -1482,7 +1354,7 @@ pinit:	push	%ds
 //
 //	@see	Intel Manual V3A §4.1.2
 golong:	cli
-	lidt	XLM(BADIDT)
+	lidt	0x1522					# mman::bad_idt
 	mov	%cr4,%eax
 	or	$CR4_PAE|CR4_PGE|CR4_OSFXSR,%eax
 	mov	%eax,%cr4
@@ -1499,7 +1371,6 @@ golong:	cli
 	.endfn	golong

 //	Long mode is long.
-//	@noreturn
 	.code64
 long:	push	$GDT_LONG_DATA
 	pop	%rax
@@ -1508,40 +1379,89 @@ long:	push	$GDT_LONG_DATA
 	mov	%eax,%es
 	mov	%eax,%fs
 	mov	%eax,%gs
+	mov	$0x80000,%esp
+	xor	%r12d,%r12d
+	xor	%r13d,%r13d
+	xor	%r14d,%r14d
+	xor	%r15d,%r15d
+	xor	%ebx,%ebx
 	xor	%ebp,%ebp
-	mov	$REAL_STACK_FRAME+FRAMESIZE,%esp
-	call	__map_image
-	ezlea	metal.thunk,ax
+	push	%rbp
+	mov	$0x0500,%rdi			# mman
+	mov	%cr3,%rsi
+	mov	$IMAGE_BASE_REAL,%edx
+	call	__map_phdrs
+	push	$0x037f
+	fldcw	(%rsp)
+	movabs	$kernel,%rax
 	jmp	*%rax
 	.endfn	long

-//	Long mode in virtual address space.
-//	@noreturn
-metal.thunk:
+/*  ▄▄▒▀▀▀▀▒▒▄░
+█████▓▓▄░░░░  ▒▒▄░
+▐█▓▓█▓▄█████▓░   ▀▒▄
+ ▓█▓▓▓▓▓▓▓▓▓█▓     ░▀▒░
+  ░▀▀▓█▓▓▓▓▓▓█▓       ░▀▒▄▄▒▄▄▄▒▒▒▀▀▀▀▀▀▀▀▀▀▀▀▀▀▒▒▄▒
+      ░▀▓▓█▓▓▓▓▓▄          ░                       ░▀▒▄▄                       ▄
+          ░▀█▓▓▓▓▓▄░                                   ░▀▒░                  ▄▓▌
+            ▀█▓▓▓▓▓█▓░                                    ░▀▄░            ░▄▓██░
+             ░▀█▓▓▓▓▓█▄                                      ░▀▒▄▄▄▄▄▄▄▄▒▀▓█▓█▓░
+               ░▀█▓▓▓▓█▓░                                             ░▄▓█▓▓█▓▄▌
+                 ░▀█▓▓▓▓▓▄                        ▄▄▄▓▓██▓▓▒▒░      ▒▒▄▓█▓▓▓▓█▓
+                   ▀█▓▓▓▓▓▓▄▄░               ░▄▄▓██▓▓▓▓▓██████████████▓▓▓▓▓▓█▀
+                    ▐█▓▓▓▓▓▓▓██▓▓▄▄▄▄▄▄▄▄▄▓▓██▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓█████████▓▓▀░
+                     ▀▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓█░ ░░░░░░
+                     ▄░▓█▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓█▌
+                     █▓▄▀▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓██▓▓▀▀▀▀▀▀▀▓█▓▓▓▓▓▓▓▓▓▓▓▓
+                    ▐█▓█▓░▓█▓▓▓▓▓▓▓█▀▀▀▀▒░  ▐▓▓▓▓▓▓▄▒▀▓█▓▓▓▓▓▓▓▓█▌
+                    ▐█▓▓▓█▒▀█▓▓▓▓▓▓█▌        ▀█▓▓▓▓▓█▄░▀▓▓█▓▓▓▓▓▓█░
+                    █▓▓▓▓▓█░▐█▓▓▓▓▓█▌         ▀▓█▓▓▓▓█▌   ░▀█▓▓▓▓▓█▄
+                    █▓▓▓▓█▌ ░█▓▓▓▓▓█░           ▓█▓▓▓▓▓░    ▒█▓▓▓▓▓█░
+                    █▓▓▓▓█░  █▓▓▓▓▓█░            █▓▓▓▓▓█░    ▐█▓▓▓▓█▌
+                    ▐█▓▓▓▓▓▄ █▓▓▓▓▓█         ░▄▄▓█▓▓▓▓▓█░    ▐█▓▓▓▓█░
+                     ▓█▓▓▓█▓▐█▓▓▓▓█▌        ▓██▓▓▓▓▓▓█▀      ▓█▓▓▓▓█
+                      ▀▓██▒▄█▓▓▓▓▓█░       ░█▓▓▓▓▓██▀░     ░▓█▓▓▓▓█▌
+                         ░░█▓▓▓▓▓█▓         ░▀▀▀▀▀▀        ▓█▓▓▓▓▓▓
+╔───────────────────────────────────────────────────────────▀▀▀▀▀▀───────────│─╗
+│ αcτµαlly pδrταblε εxεcµταblε § cosmopolitan libc runtime runtime         ─╬─│┼
+╚────────────────────────────────────────────────────────────────────────────│*/
+kernel:	movabs	$ape_stack_vaddr,%rsp
+	add	$ape_stack_memsz,%rsp
+	movl	$0,0x7b000			# unmap null 2mb
 #if USE_SYMBOL_HACK
 	.byte	0x0f,0x1f,0207			# nop rdi binbase
 	.long	(IMAGE_BASE_VIRTUAL-IMAGE_BASE_REAL)/512
 #endif
-//	𝑠𝑙𝑖𝑑𝑒
-	.endfn	metal.thunk
-metal:
-	xor	%eax,%eax			# clear bss
-	mov	$ape_bss_vaddr,%edi
-	mov	$ape_bss_memsz,%ecx
-	rep stosb
 	.weak	__hostos
 	ezlea	__hostos,ax
 	test	%rax,%rax
 	jz	1f
 	movb	$METAL,(%rax)
-1:	push	$0				# auxv
-	push	$0
-	push	$0				# envp
-	push	$0				# auxv
-	push	$0				# argc
+1:	xor	%eax,%eax
+	xor	%ecx,%ecx
+	xor	%edx,%edx
 	xor	%edi,%edi
+	xor	%esi,%esi
+	xor	%r8d,%r8d
+	xor	%r9d,%r9d
+	xor	%r10d,%r10d
+	xor	%r11d,%r11d
+	push	$0				# auxv[1][1]
+	push	$0				# auxv[1][0]
+	push	$.Larg0				# auxv[0][1]
+	push	$31				# auxv[0][0] AT_EXECFN
+	push	$0				# envp[1]
+	push	$.Lenv0				# envp[0]
+	push	$0				# argv[1]
+	push	$.Larg0				# argv[0]
+	push	$1				# argc
 	jmp	_start
-	.endfn	metal
+	.endfn	kernel
+
+	.rodata
+.Larg0:	.asciz	"ape.com"
+.Lenv0:	.asciz	"METAL=1"
+	.previous

 #endif /* SupportsMetal() */

@@ -1598,12 +1518,6 @@ ape_pad_text:
 ape_pad_privileged:
 	.previous

-	.section .ape.pad.test,"a",@progbits
-	.type	ape_pad_test,@object
-	.hidden	ape_pad_test
-ape_pad_test:
-	.previous
-
 	.section .ape.pad.rodata,"a",@progbits
 	.type	ape_pad_rodata,@object
 	.hidden	ape_pad_rodata
@@ -175,7 +175,7 @@

 #ifdef __LINKER__
 #include "ape/macros.internal.h"
-#include "ape/config.h"
+#include "ape/relocations.h"
 #include "libc/dce.h"
 #include "libc/nt/pedef.internal.h"
 #include "libc/zip.h"
@@ -196,11 +196,12 @@ SECTIONS {
 /*BEGIN: linux addressability guarantee */
 /*BEGIN: bsd addressability guarantee */

-  .head SEGMENT_START("text-segment", IMAGE_BASE_VIRTUAL) : {
+  .head SEGMENT_START("text-segment", IMAGE_BASE_VIRTUAL) : AT(IMAGE_BASE_REAL) {
    HIDDEN(_base = .);

    /* Real Mode */
    KEEP(*(.head))
+    KEEP(*(.text.head))

    /* Executable & Linkable Format */
    . = ALIGN(__SIZEOF_POINTER__);
@@ -220,16 +221,14 @@ SECTIONS {
    HIDDEN(ape_pe_sections = .);
    KEEP(*(.pe.sections))
    HIDDEN(ape_pe_sections_end = .);
-    . += 1;

    /* Mach-O */
    KEEP(*(.macho))
    . = ALIGN(__SIZEOF_POINTER__);
    HIDDEN(ape_macho_end = .);
-    . += 1;

    KEEP(*(.ape.pad.head))
-    . = ALIGN(SupportsWindows() ? PAGESIZE : 16);
+    . = ALIGN(SupportsWindows() || SupportsMetal() ? PAGESIZE : 16);
    HIDDEN(_ehead = .);
  } :Head

@@ -239,9 +238,8 @@ SECTIONS {
    /* Code that needs to be addressable in Real Mode */
    *(.text.real)
    KEEP(*(SORT_BY_NAME(.sort.text.real.*)))
-    *(.rodata.real)
-    KEEP(*(SORT_BY_NAME(.sort.rodata.real.*)))
    HIDDEN(_ereal = .);
+    . += 1;

 /*END: realmode addressability guarantee */

@@ -274,17 +272,17 @@ SECTIONS {
    KEEP(*(SORT_BY_NAME(.sort.text.*)))

    KEEP(*(.ape.pad.test));
-    HIDDEN(__test_start = .);
    *(.test.unlikely)
    *(.test .test.*)

    /* Privileged code invulnerable to magic */
    KEEP(*(.ape.pad.privileged));
+    . += . > 0 ? 1 : 0;
    HIDDEN(__privileged_start = .);
-    HIDDEN(__test_end = .);
-    . += 1;
+    . += . > 0 ? 1 : 0;
    *(.privileged)
    HIDDEN(__privileged_end = .);
+    . += . > 0 ? 1 : 0;

 /*BEGIN: Read Only Data */

@@ -304,11 +302,10 @@ SECTIONS {
    KEEP(*(.comment))
    KEEP(*(.commentepilogue))
 #endif
- 
+
    /* Windows DLL Import Directory */
    KEEP(*(.idata.ro));
    KEEP(*(SORT_BY_NAME(.idata.ro.*)))
-    . += 1;

    . = ALIGN(__SIZEOF_POINTER__);
    PROVIDE_HIDDEN(__init_array_start = .);
@@ -367,11 +364,23 @@ SECTIONS {
    PROVIDE_HIDDEN(edata = .);
  } :Ram

-  .bss . : {
+/*END:   file content that's loaded by o/s */
+/*BEGIN: bss memory void */
+
+  .zip . : {
+    KEEP(*(SORT_BY_NAME(.zip.*)))
+    HIDDEN(_ezip = .);
+  }
+
+/*END:   file content */
+/*BEGIN: bss memory that's addressable */
+
+  .bss ALIGN(__SIZEOF_POINTER__) : {
    KEEP(*(SORT_BY_NAME(.piro.bss.init.*)))
    *(.piro.bss)
    KEEP(*(SORT_BY_NAME(.piro.bss.sort.*)))
    HIDDEN(__piro_end = .);
+    . += . > 0 ? 1 : 0;
 /*END: Post-Initialization Read-Only */

    /* Statically Allocated Empty Space */
@@ -381,15 +390,10 @@ SECTIONS {

    KEEP(*(SORT_BY_NAME(.sort.bss.*)))

-    /* eXtreme Low Memory w/ Userspace Remapping */
-    . = ALIGN(0x1000);
-    *(.xlm)
-    . = ALIGN(0x1000);
-
-    . = ALIGN(0x10000); /* for brk()/sbrk() allocation */
+    . = ALIGN(FRAMESIZE); /* for brk()/sbrk() allocation */
    HIDDEN(_end = .);
    PROVIDE_HIDDEN(end = .);
-  } :Ram
+  }

 /*END: nt addressability guarantee */
 /*END: bsd addressability guarantee */
@@ -460,11 +464,18 @@ HIDDEN(ape_rom_rva = RVA(ape_rom_vaddr));
 HIDDEN(ape_ram_offset = ape_rom_offset + ape_rom_filesz);
 HIDDEN(ape_ram_vaddr = ADDR(.data));
 HIDDEN(ape_ram_paddr = LOADADDR(.data));
-HIDDEN(ape_ram_filesz = LOADADDR(.bss) - LOADADDR(.data));
+HIDDEN(ape_ram_filesz = SIZEOF(.data));
 HIDDEN(ape_ram_memsz = ADDR(.bss) + SIZEOF(.bss) - ape_ram_vaddr);
 HIDDEN(ape_ram_align = PAGESIZE);
 HIDDEN(ape_ram_rva = RVA(ape_ram_vaddr));

+HIDDEN(ape_stack_offset = ape_ram_offset + ape_ram_filesz);
+HIDDEN(ape_stack_vaddr = 0x700000000000 - STACKSIZE);
+HIDDEN(ape_stack_paddr = ape_ram_paddr + ape_ram_filesz);
+HIDDEN(ape_stack_filesz = 0);
+HIDDEN(ape_stack_memsz = STACKSIZE);
+HIDDEN(ape_stack_align = 16);
+
 HIDDEN(ape_note_offset = ape_rom_offset + (ape_note - ape_rom_vaddr));
 HIDDEN(ape_note_vaddr = ape_note);
 HIDDEN(ape_note_paddr = ape_rom_paddr + ape_note_offset);
@@ -500,20 +511,30 @@ SHSTUB2(ape_macho_dd_skip, RVA(ape_macho) / 8);
 SHSTUB2(ape_macho_dd_count, (ape_macho_end - ape_macho) / 8);
 #endif

-#if SupportsWindows()
+#if SupportsWindows() || SupportsMetal()
+#define LINK_WINDOWS (SupportsWindows() && !DEFINED(EfiMain))
 PFSTUB4(ape_pe_offset, ape_pe - ape_mz);
 HIDDEN(ape_pe_optsz = ape_pe_sections - (ape_pe + 24));
 HIDDEN(ape_pe_shnum = (ape_pe_sections_end - ape_pe_sections) / 40);
-HIDDEN(ape_idata_idtsize = ape_idata_idtend - ape_idata_idt);
-HIDDEN(ape_idata_iatsize = ape_idata_iatend - ape_idata_iat);
-HIDDEN(v_ntsubsystem = (DEFINED(GetMessage)
-                        ? kNtImageSubsystemWindowsGui
-                        : kNtImageSubsystemWindowsCui));
+HIDDEN(ape_pe_base = IMAGE_BASE_VIRTUAL);
+HIDDEN(ape_idata = LINK_WINDOWS ? RVA(ape_idata_iat) : 0);
+HIDDEN(ape_idata_iatsize = LINK_WINDOWS ? ape_idata_iatend - ape_idata_iat : 0);
+HIDDEN(ape_idata = LINK_WINDOWS ? RVA(ape_idata_idt) : 0);
+HIDDEN(ape_idata_idtsize = LINK_WINDOWS ? ape_idata_idtend - ape_idata_idt : 0);
+HIDDEN(v_ntversion = LINK_WINDOWS ? 6 : 1);
+HIDDEN(v_ntdllchar = LINK_WINDOWS ? 288 : 0);
+HIDDEN(v_ntsubversion = LINK_WINDOWS ? 6 : 5);
+HIDDEN(v_ntsubsystem = (LINK_WINDOWS
+                        ? (DEFINED(GetMessage)
+                           ? kNtImageSubsystemWindowsGui
+                           : kNtImageSubsystemWindowsCui)
+                        : kNtImageSubsystemEfiApplication));
+HIDDEN(ape_pe_entry = LINK_WINDOWS ? WinMain : EfiMain);
 #endif

 #if SupportsMetal()
 HIDDEN(v_ape_realsectors =
-           MIN(REAL_SCRATCH_AREA - IMAGE_BASE_REAL,
+           MIN(0x70000 - IMAGE_BASE_REAL,
               ROUNDUP(RVA(_edata), 4096)) / 512);
 HIDDEN(v_ape_realpages = v_ape_realsectors / (4096 / 512));
 HIDDEN(v_ape_highsectors =
@@ -524,8 +545,9 @@ HIDDEN(v_ape_highsectors =
 #define ZIPCONST(NAME, VAL) HIDDEN(NAME = DEFINED(__zip_start) ? VAL : 0);
 ZIPCONST(v_zip_cdoffset, __zip_start - IMAGE_BASE_VIRTUAL);
 ZIPCONST(v_zip_cdirsize, __zip_end - __zip_start);
+ASSERT(v_zip_cdirsize % kZipCdirHdrLinkableSize == 0, "bad zip cdir");
 ZIPCONST(v_zip_records, v_zip_cdirsize / kZipCdirHdrLinkableSize);
-ZIPCONST(v_zip_commentsize, _edata - __zip_end - kZipCdirHdrMinSize);
+ZIPCONST(v_zip_commentsize, _ezip - __zip_end - kZipCdirHdrMinSize);

 #if SupportsXnu()
 /* Generates deterministic ID. */
@@ -603,7 +625,7 @@ CHURN(v_ape_realsectors);
 #if SupportsXnu()
 CHURN(ape_macho);
 #endif
-#if SupportsWindows()
+#if SupportsWindows() || SupportsMetal()
 CHURN(ape_mz);
 CHURN(ape_pe);
 CHURN(ape_pe_offset);
@@ -31,12 +31,10 @@ APE_HDRS = $(filter %.h,$(APE_FILES))
 APE_INCS = $(filter %.inc,$(APE_FILES))
 APE_SRCS = $(filter %.S,$(APE_FILES))
 APE_OBJS = $(APE_SRCS:%.S=o/$(MODE)/%.o)
-APE_DEPS = $(APE_LIB)
 APE_CHECKS = $(APE_HDRS:%=o/%.ok)

 o/$(MODE)/ape/ape.lds:			\
 		ape/ape.lds		\
-		ape/config.h		\
 		ape/macros.internal.h	\
 		libc/dce.h		\
 		libc/zip.h
@@ -49,6 +47,4 @@ $(APE_OBJS):	$(BUILD_FILES)		\
 		ape/ape.mk

 .PHONY: o/$(MODE)/ape
-o/$(MODE)/ape:	$(APE)			\
-		$(APE_CHECKS)		\
-		o/$(MODE)/ape/lib
+o/$(MODE)/ape: $(APE) $(APE_CHECKS)
@@ -1,118 +0,0 @@
-#ifndef APE_CONFIG_H_
-#define APE_CONFIG_H_
-#include "ape/relocations.h"
-#include "libc/macros.h"
-
-/*
- * Post-Initialization Read-Only Code Size Threshold.
- *
- * An executable needs to have at least this much code, before the
- * linker adds non-mandatory 4kb alignments. The benefit is better
- * memory protection. The tradeoff is sparser binaries.
- */
-#ifndef APE_PIRO_THRESHOLD
-#ifdef CONFIG_DBG
-#define APE_PIRO_THRESHOLD 0x1000
-#else
-#define APE_PIRO_THRESHOLD 0x10000
-#endif
-#endif
-
-#ifndef METAL_STDIN
-#define METAL_STDIN COM1
-#endif
-#ifndef METAL_STDOUT
-#define METAL_STDOUT COM1
-#endif
-#ifndef METAL_STDERR
-#define METAL_STDERR COM1
-#endif
-
-#ifndef VIDYA_MODE
-#define VIDYA_MODE VIDYA_MODE_CGA
-#endif
-
-/* FPU Control Word (x87) Exception Masks
-   @see Intel Manual V1 §8.1.5
-
-       IM: Invalid Operation ───────────────┐
-       DM: Denormal Operand ───────────────┐│
-       ZM: Zero Divide ───────────────────┐││
-       OM: Overflow ─────────────────────┐│││
-       UM: Underflow ───────────────────┐││││
-       PM: Precision ──────────────────┐│││││
-      PC: Precision Control ────────┐  ││││││
-       {float,∅,double,long double} │  ││││││
-      RC: Rounding Control ───────┐ │  ││││││
-       {even, →-∞, →+∞, →0}       │┌┤  ││││││
-                                 ┌┤││  ││││││
-                                d││││rr││││││*/
-#define X87_NORMAL    0b000000000001101111111
-#define X87_DTOA      0b000000000001000000000
-#define X87_DTOA_MASK 0b000000000001100000000
-#ifndef X87_DEFAULT
-#define X87_DEFAULT X87_NORMAL
-#endif
-
-#ifndef UART_BAUD_RATE
-#define UART_BAUD_RATE 9600 /* bits per second ∈ [50,115200] */
-#endif
-#define UART_CONF_DLR (1843200 /*hz*/ / 16 /*wut*/ / (UART_BAUD_RATE))
-#ifndef UART_CONF_IIR
-/*                      ┌interrupt trigger level {1,4,8,14}
-                        │ ┌enable 64 byte fifo (UART 16750+)
-                        │ │ ┌select dma mode
-                        │ │ │┌clear transmit fifo
-                        │ │ ││┌clear receive fifo
-                        ├┐│ │││┌enable fifos*/
-#define UART_CONF_IIR 0b00000000
-#endif
-#ifndef UART_CONF_LCR
-/*                      ┌dlab: flips configuration mode state
-                        │┌enable break signal
-                        ││ ┌parity {none,odd,even,high,low}
-                        ││ │ ┌extra stop bit
-                        ││ │ │┌data word length (bits+5)
-                        ││┌┴┐│├┐*/
-#define UART_CONF_LCR 0b01000011
-#endif
-
-#define XLM(VAR)                            (XLM_BASE_REAL + XLM_##VAR)
-#define XLMV(VAR)                           (__xlm + XLM_##VAR)
-#define XLM_BASE_REAL                       0x1000
-#define XLM_E820                            0
-#define XLM_E820_SIZE                       0x2000
-#define XLM_BIOS_DATA_AREA                  0x2000
-#define XLM_BIOS_DATA_AREA_SIZE             256
-#define XLM_DRIVE_BASE_TABLE                0x2200 /* drive values are contiguous */
-#define XLM_DRIVE_BASE_TABLE_SIZE           11
-#define XLM_DRIVE_TYPE                      0x220b
-#define XLM_DRIVE_TYPE_SIZE                 1
-#define XLM_DRIVE_LAST_SECTOR               0x220c /* 1-based inclusive, e.g. 18 */
-#define XLM_DRIVE_LAST_SECTOR_SIZE          1
-#define XLM_DRIVE_LAST_CYLINDER             0x220d /* 0-based incl, e.g. 79 */
-#define XLM_DRIVE_LAST_CYLINDER_SIZE        2
-#define XLM_DRIVE_ATTACHED                  0x220f
-#define XLM_DRIVE_ATTACHED_SIZE             1
-#define XLM_DRIVE_LAST_HEAD                 0x2210 /* 0-based inclusive, e.g. 1 */
-#define XLM_DRIVE_LAST_HEAD_SIZE            1
-#define XLM_DRIVE                           0x2211
-#define XLM_DRIVE_SIZE                      1
-#define XLM_HAVEEXTMEMKB                    0x2212
-#define XLM_HAVEEXTMEMKB_SIZE               4
-#define XLM_VIDEO_POSITION_FAR_POINTER      0x2216 /* video cursor far pointer */
-#define XLM_VIDEO_POSITION_FAR_POINTER_SIZE 4
-#define XLM_PAGE_TABLE_STACK_POINTER        0x2220
-#define XLM_PAGE_TABLE_STACK_POINTER_SIZE   8
-#define XLM_BADIDT                          0x2230
-#define XLM_BADIDT_SIZE                     6
-#define XLM_LOADSTATE                       0x2240
-#define XLM_LOADSTATE_SIZE                  8
-#define XLM_SIZE                            ROUNDUP(XLM_LOADSTATE + XLM_LOADSTATE_SIZE, 0x1000)
-#define IMAGE_BASE_REAL                     (XLM_BASE_REAL + XLM_SIZE)
-
-#if !defined(__LINKER__) && !defined(__ASSEMBLER__)
-extern char __xlm[XLM_SIZE];
-#endif /* !defined(__LINKER__) && !defined(__ASSEMBLER__) */
-
-#endif /* APE_CONFIG_H_ */
@@ -1,45 +0,0 @@
-#-*-mode:makefile-gmake;indent-tabs-mode:t;tab-width:8;coding:utf-8-*-┐
-#───vi: set et ft=make ts=8 tw=8 fenc=utf-8 :vi───────────────────────┘
-
-PKGS += APE_LIB
-
-APE_LIB_ARTIFACTS += APE_LIB_A
-APE_LIB = $(APE_LIB_A_DEPS) $(APE_LIB_A)
-APE_LIB_A = o/$(MODE)/ape/lib/apelib.a
-APE_LIB_A_FILES := $(wildcard ape/lib/*)
-APE_LIB_A_HDRS = $(filter %.h,$(APE_LIB_A_FILES))
-APE_LIB_A_SRCS_S = $(filter %.S,$(APE_LIB_A_FILES))
-APE_LIB_A_SRCS_C = $(filter %.c,$(APE_LIB_A_FILES))
-
-APE_LIB_A_SRCS =					\
-	$(APE_LIB_A_SRCS_S)				\
-	$(APE_LIB_A_SRCS_C)
-
-APE_LIB_A_OBJS =					\
-	$(APE_LIB_A_SRCS_S:%.S=o/$(MODE)/%.o)		\
-	$(APE_LIB_A_SRCS_C:%.c=o/$(MODE)/%.o)
-
-APE_LIB_A_DIRECTDEPS =					\
-	LIBC_NEXGEN32E					\
-	LIBC_INTRIN					\
-	LIBC_STR					\
-	LIBC_STUBS
-
-APE_LIB_A_CHECKS = $(APE_LIB_A_HDRS:%=o/$(MODE)/%.ok)
-APE_LIB_A_DEPS = $(call uniq,$(foreach x,$(APE_LIB_A_DIRECTDEPS),$($(x))))
-
-$(APE_LIB_A): ape/lib/ $(APE_LIB_A).pkg $(APE_LIB_A_OBJS)
-$(APE_LIB_A).pkg: $(APE_LIB_A_OBJS) $(foreach x,$(APE_LIB_A_DIRECTDEPS),$($(x)_A).pkg)
-
-APE_LIB_LIBS = $(foreach x,$(APE_LIB_ARTIFACTS),$($(x)))
-APE_LIB_SRCS = $(foreach x,$(APE_LIB_ARTIFACTS),$($(x)_SRCS))
-APE_LIB_HDRS = $(foreach x,$(APE_LIB_ARTIFACTS),$($(x)_HDRS))
-APE_LIB_BINS = $(foreach x,$(APE_LIB_ARTIFACTS),$($(x)_BINS))
-APE_LIB_CHECKS = $(foreach x,$(APE_LIB_ARTIFACTS),$($(x)_CHECKS))
-APE_LIB_OBJS = $(foreach x,$(APE_LIB_ARTIFACTS),$($(x)_OBJS))
-$(APE_LIB_OBJS): $(BUILD_FILES) libc/str/str.mk
-
-.PHONY: o/$(MODE)/ape/lib
-o/$(MODE)/ape/lib:			\
-		$(APE_LIB_CHECKS)	\
-		$(APE_LIB_A)
@@ -1,35 +0,0 @@
-/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8     -*-│
-│vi: set et ft=asm ts=8 sw=8 fenc=utf-8                                     :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright 2020 Justine Alexandra Roberts Tunney                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/macros.internal.h"
-#include "ape/notice.inc"
-.section .real,"ax",@progbits
-.source	__FILE__
-.code16
-
-//	Resets personal computer.
-//
-//	@param	di drive number, e.g. A:\ is 0x00, C:\ is 0x80
-//	@mode	real
-//	@noreturn
-bootdr:	push	%bp
-	mov	%sp,%bp
-	mov	%di,%dx
-	int	$0x19
-	ljmp	$0xf000,$0xfff0
-	.endfn	bootdr,globl
@@ -1,37 +0,0 @@
-/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8     -*-│
-│vi: set et ft=asm ts=8 tw=8 fenc=utf-8                                     :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright 2020 Justine Alexandra Roberts Tunney                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/lib/pc.h"
-#include "ape/config.h"
-#include "ape/macros.internal.h"
-#include "ape/notice.inc"
-.section .real,"ax",@progbits
-.source	__FILE__
-.code16
-
-	.globl	e820map
-	.hidden	e820map
-	.type	e820map,@object
-	.size	e820map,XLM_E820_SIZE
-	e820map = ape_xlm + XLM_E820
-
-	.globl	e820map_xlm
-	.hidden	e820map_xlm
-	.type	e820map_xlm,@object
-	.size	e820map_xlm,XLM_E820_SIZE
-	e820map_xlm = XLM(E820)
@@ -1,31 +0,0 @@
-/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8     -*-│
-│vi: set et ft=asm ts=8 tw=8 fenc=utf-8                                     :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright 2020 Justine Alexandra Roberts Tunney                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/lib/pc.h"
-#include "ape/config.h"
-#include "ape/macros.internal.h"
-#include "ape/notice.inc"
-.section .real,"ax",@progbits
-.source	__FILE__
-.code16
-
-	.globl	g_pml4t
-	.hidden	g_pml4t
-	.type	g_pml4t,@object
-	.size	g_pml4t,0x1000
-	g_pml4t = REAL_STACK_FRAME - 0x1000
@@ -1,37 +0,0 @@
-/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8     -*-│
-│vi: set et ft=asm ts=8 tw=8 fenc=utf-8                                     :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright 2020 Justine Alexandra Roberts Tunney                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/lib/pc.h"
-#include "ape/config.h"
-#include "ape/macros.internal.h"
-#include "ape/notice.inc"
-.section .real,"ax",@progbits
-.source	__FILE__
-.code16
-
-	.globl	g_ptsp
-	.hidden	g_ptsp
-	.type	g_ptsp,@object
-	.size	g_ptsp,XLM_PAGE_TABLE_STACK_POINTER_SIZE
-	g_ptsp = ape_xlm + XLM_PAGE_TABLE_STACK_POINTER
-
-	.globl	g_ptsp_xlm
-	.hidden	g_ptsp_xlm
-	.type	g_ptsp_xlm,@object
-	.size	g_ptsp_xlm,XLM_PAGE_TABLE_STACK_POINTER_SIZE
-	g_ptsp_xlm = XLM(PAGE_TABLE_STACK_POINTER)
@@ -1,42 +0,0 @@
-/*-*- 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                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/lib/pc.h"
-#include "libc/assert.h"
-
-static textreal uint64_t __pushpagetable(uint64_t *ptsp) {
-  return (*ptsp -= PAGESIZE) | PAGE_V | PAGE_RW;
-}
-
-textreal uint64_t *__getpagetableentry(int64_t vaddr, unsigned depth,
-                                       struct PageTable *pml4t,
-                                       uint64_t *ptsp) {
-  uint64_t *entry;
-  unsigned char shift;
-  assert(depth <= 3);
-  assert(!(*ptsp & 0xfff));
-  assert(!((uintptr_t)pml4t & 0xfff));
-  shift = 39;
-  for (;;) {
-    entry = &pml4t->p[(vaddr >> shift) & 511];
-    if (!depth--) return entry;
-    shift -= 9;
-    if (!*entry) *entry = __pushpagetable(ptsp);
-    pml4t = (void *)(*entry & PAGE_TA);
-  }
-}
@@ -1,45 +0,0 @@
-/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8     -*-│
-│vi: set et ft=asm ts=8 tw=8 fenc=utf-8                                     :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright 2020 Justine Alexandra Roberts Tunney                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/lib/pc.h"
-#include "ape/config.h"
-#include "ape/macros.internal.h"
-#include "ape/notice.inc"
-.section .real,"ax",@progbits
-.source	__FILE__
-.code16
-
-	.globl	kBiosDataArea
-	.hidden	kBiosDataArea
-	.type	kBiosDataArea,@object
-	.size	kBiosDataArea,XLM_BIOS_DATA_AREA_SIZE
-	kBiosDataArea = ape_xlm + XLM_BIOS_DATA_AREA
-
-	.globl	kBiosDataAreaXlm
-	.hidden	kBiosDataAreaXlm
-	.type	kBiosDataAreaXlm,@object
-	.size	kBiosDataAreaXlm,XLM_BIOS_DATA_AREA_SIZE
-	kBiosDataAreaXlm = XLM(BIOS_DATA_AREA)
-
-	.section .sort.text.real.init.2.kBiosDataArea,"ax",@progbits
-	movpp	%ds,%es			# copy bios data to valid page
-	mov	$PC_BIOS_DATA_AREA,%si
-	mov	$XLM(BIOS_DATA_AREA),%di
-	mov	$XLM_BIOS_DATA_AREA_SIZE,%cx
-	rep movsb
-	.previous
@@ -1,26 +0,0 @@
-/*-*- 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                              │
-│                                                                              │
-│ Permission to use, copy, modify, and/or distribute this software for         │
-│ any purpose with or without fee is hereby granted, provided that the         │
-│ above copyright notice and this permission notice appear in all copies.      │
-│                                                                              │
-│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
-│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
-│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
-│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
-│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
-│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
-│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
-│ PERFORMANCE OF THIS SOFTWARE.                                                │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "ape/lib/pc.h"
-
-textreal void pageunmap(int64_t vaddr) {
-  uint64_t *entry;
-  entry = __getpagetableentry(vaddr, 3, &g_pml4t, &g_ptsp_xlm);
-  *entry &= ~PAGE_V;
-  asm volatile("invlpg\t(%0)" : /* no outputs */ : "r"(vaddr) : "memory");
-}
@@ -18,7 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #ifndef APE_MACROS_H_
 #define APE_MACROS_H_
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #ifdef __ASSEMBLER__
 /* clang-format off */

@@ -26,13 +26,6 @@
 * @fileoverview Macros relevant to αcτµαlly pδrταblε εxεcµταblε.
 */

-//	Calls function in real mode.
-//	It's needed because LLVM 8 LLD doesn't support R_X86_64_PC16.
-	.macro	call16 name:req
-	mov	$REAL(\name),%ax
-	call	*%ax
-	.endm
-
 //	Calls near (i.e. pc+pcrel<64kB) FUNCTION.
 //	@mode	long,legacy,real
 //	@cost	9 bytes overhead
@@ -11,6 +11,8 @@
  In some cases it's necessary to use addend macros that change virtual
  addresses into the other two types: physical and real. */

+#define IMAGE_BASE_REAL 0x2000
+
 #ifndef IMAGE_BASE_VIRTUAL
 #define IMAGE_BASE_VIRTUAL 0x400000
 #endif
@@ -19,26 +21,6 @@
 #define IMAGE_BASE_PHYSICAL 0x100000
 #endif

-#ifndef REAL_SCRATCH_AREA
-/**
- * Location of anything goes memory for real mode.
- *
- * The MBR won't load program content beyond this address, so we have
- * room for buffers, page tables, etc. before we reach the stack frame.
- */
-#define REAL_SCRATCH_AREA 0x40000
-#endif
-
-#ifndef REAL_STACK_FRAME
-/**
- * Location of real mode 64kb stack frame.
- *
- * This address was chosen because memory beyond 0x80000 can't be
- * accessed safely without consulting e820.
- */
-#define REAL_STACK_FRAME 0x70000
-#endif
-
 /**
 * Returns Relative Virtual Address.
 */
@@ -1,29 +0,0 @@
-#!/bin/sh
-#-*-mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8-*-┐
-#───vi: set net ft=sh ts=2 sts=2 fenc=utf-8 :vi─────────────┘
-#
-# SYNOPSIS
-#
-#   Program Deprioritizer
-#
-# OVERVIEW
-#
-#   This is a drop-in replacement for the traditional Unix `nice`
-#   command that also invokes `ionice`, which is important, since
-#   network and traffic is usually what clobber the system.
-
-if [ -z "$IONICE" ]; then
-  if IONICE=$(command -v ionice 2>/dev/null); then
-    IONICE="$IONICE -c3"
-  fi
-fi
-
-if [ -z "$NICE" ]; then
-  NICE=$(command -v nice 2>/dev/null)
-fi
-
-if [ -z "$IONICE$NICE" ]; then
-  echo "error: can't be nice" >&2
-fi
-
-exec $IONICE $NICE "$@"
@@ -1,9 +0,0 @@
-#!/bin/sh
-# -*- mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8 -*-
-# vi: set net ft=sh ts=2 sts=2 sw=2 fenc=utf-8              :vi
-
-echo c |
-  bochs \
-    -q \
-    -f ape/etc/bochsrc.dbg \
-    floppya:1_44=$1,status=inserted
@@ -1,51 +0,0 @@
-#!/bin/sh
-# -*- mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8 -*-
-# vi: set net ft=sh ts=2 sts=2 sw=2 fenc=utf-8              :vi
-#
-# bochs-scriptable executes a disk with serial uart stdio.
-#
-# USAGE
-#
-#   build/bochs-scriptable IMAGE...
-#
-# DESCRIPTION
-#
-#   This script is useful for end-to-end testing metal apps in <100ms.
-#
-# SEE ALSO
-#
-#   build/boot(1)
-
-while getopts h X; do
-  case $X in
-    h)  exec less "$0" ;;
-    \?) echo "$0: bad arg" >&2; exit 1 ;;
-  esac
-done
-shift $((OPTIND - 1))
-
-trap '' INT
-
-IMG=$1
-OUT=/tmp/$USER.$$.bochs.stdout
-ERR=/tmp/$USER.$$.bochs.stderr
-
-mkfifo $OUT || exit
-
-cat <$OUT &
-CAT=$!
-exec 4>$OUT
-rm -f $OUT
-
-echo c |
-  bochs \
-    -q \
-    -f ape/etc/bochsrc.ffs \
-    display_library:nogui \
-    floppya:1_44=$1,status=inserted \
-    >>$ERR 2>>$ERR
-RC=$?
-
-kill $CAT
-exec 4>&-
-rm -f $ERR
@@ -1,21 +0,0 @@
-#!/bin/sh
-#-*-mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8-*-┐
-#───vi: set net ft=sh ts=2 sts=2 fenc=utf-8 :vi─────────────┘
-#
-# OVERVIEW
-#
-#   Source File Concatenation Tool
-#
-# DESCRIPTION
-#
-#   This program is the same as cat, but inserts preprocessor directives
-#   that allow compiler errors to point back to the original lines.
-
-if [ $# -eq 0 ]; then
-  cat
-else
-  for x; do
-    printf '# 1 "%s"\n' "$x"
-    cat "$x"
-  done
-fi
@@ -130,7 +130,7 @@ endif

 # Linux-Only Tiny Mode
 #
-#   - `make MODE=tiny`
+#   - `make MODE=tinylinux`
 #   - No checks
 #   - No asserts
 #   - No canaries
@@ -158,7 +158,7 @@ endif

 # Linux+BSD Tiny Mode
 #
-#   - `make MODE=tiny`
+#   - `make MODE=tinylinuxbsd`
 #   - No apple
 #   - No checks
 #   - No asserts
@@ -187,7 +187,7 @@ endif

 # Unix Tiny Mode
 #
-#   - `make MODE=tiny`
+#   - `make MODE=tinysysv`
 #   - No checks
 #   - No asserts
 #   - No canaries
@@ -215,7 +215,7 @@ endif

 # Tiny Metallic Unix Mode
 #
-#   - `make MODE=tiny`
+#   - `make MODE=tinynowin`
 #   - No checks
 #   - No asserts
 #   - No canaries
@@ -282,11 +282,6 @@ endif
 # such as MSVC or XCode. You can run your binary objects through a tool
 # like objconv to convert them to COFF or MachO. Then use ANSI mode to
 # rollup one header file that'll enable linkage with minimal issues.
-#
-# Lastly note that in some cases, such as gc(), there simply isn't any
-# ANSI workaround available. It's only in cases like that when we'll use
-# the __asm__() header workaround, rather than simply removing it. We do
-# however try to do that much less often than mainstream C libraries.

 ifeq ($(MODE), ansi)

@@ -50,10 +50,9 @@ TAGS ?= /usr/bin/ctags  # emacs source builds or something breaks it
 ARFLAGS = rcsD
 ZFLAGS ?=
 XARGS ?= xargs -P4 -rs8000
-NICE ?= build/actuallynice
 DOT ?= dot
 GZ ?= gzip
-CLANG = clang-10
+CLANG = clang
 FC = gfortran  #/opt/cross9f/bin/x86_64-linux-musl-gfortran

 # see build/compile, etc. which run third_party/gcc/unbundle.sh
@@ -91,7 +90,6 @@ FTRACE =								\
 	-pg

 SANITIZER =								\
-	-fsanitize=leak							\
 	-fsanitize=address

 NO_MAGIC =								\
@@ -138,6 +136,8 @@ MATHEMATICAL =								\
 	-fwrapv

 DEFAULT_CPPFLAGS =							\
+	-DCOSMO								\
+	-DMODE='"$(MODE)"'						\
 	-DIMAGE_BASE_VIRTUAL=$(IMAGE_BASE_VIRTUAL)			\
 	-nostdinc							\
 	-iquote.
@@ -0,0 +1,5 @@
+#!/bin/sh
+exec gdb -q -nh -i=mi $1                   \
+     -ex "set confirm off"                 \
+     -ex "add-symbol-file $1.dbg 0x401000" \
+     -ex "run"
@@ -1,7 +0,0 @@
-#!/bin/sh
-#-*-mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8-*-┐
-#───vi: set net ft=sh ts=2 sts=2 fenc=utf-8 :vi─────────────┘
-
-for x; do
-  printf '#include "%s"\n' "$x"
-done
@@ -1,7 +0,0 @@
-#!/bin/sh
-#-*-mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8-*-┐
-#───vi: set net ft=sh ts=2 sts=2 fenc=utf-8 :vi─────────────┘
-
-for x; do
-  printf '#include "%s"\n' "$x"
-done
@@ -1,14 +0,0 @@
-#!/bin/sh
-#-*-mode:sh;indent-tabs-mode:nil;tab-width:2;coding:utf-8-*-┐
-#───vi: set net ft=sh ts=2 sts=2 fenc=utf-8 :vi─────────────┘
-#
-# OVERVIEW
-#
-#   SSH Command Wrapper
-#
-# DESCRIPTION
-#
-#   This script, like most of our wrappers, asks the tooling to whine
-#   less often.
-
-exec ${SSH:-ssh} -o LogLevel=QUIET "$@"
@@ -1,6 +1,6 @@
 #ifndef COSMOPOLITAN_DSP_CORE_C161_H_
 #define COSMOPOLITAN_DSP_CORE_C161_H_
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)

 #define EXTRA_SHARP 2
@@ -1,7 +1,7 @@
 #ifndef COSMOPOLITAN_DSP_CORE_C161S_H_
 #define COSMOPOLITAN_DSP_CORE_C161S_H_
 #include "dsp/core/c161.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)

 forceinline pureconst artificial signed char C161S(signed char al,
@@ -17,7 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/core/core.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/mem/mem.h"

@@ -17,7 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/limits.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/str/str.h"

@@ -20,7 +20,7 @@
 #include "libc/assert.h"
 #include "libc/dce.h"
 #include "libc/limits.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/str/str.h"

@@ -19,7 +19,7 @@
 #include "dsp/core/core.h"
 #include "dsp/core/q.h"
 #include "libc/dce.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/str/str.h"

@@ -1,6 +1,6 @@
 #ifndef COSMOPOLITAN_DSP_CORE_HALF_H_
 #define COSMOPOLITAN_DSP_CORE_HALF_H_
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)

 /**
@@ -1,6 +1,6 @@
 #ifndef COSMOPOLITAN_DSP_CORE_KS8_H_
 #define COSMOPOLITAN_DSP_CORE_KS8_H_
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)

 /**
@@ -1,7 +1,7 @@
 #ifndef COSMOPOLITAN_DSP_CORE_KSS8_H_
 #define COSMOPOLITAN_DSP_CORE_KSS8_H_
 #include "libc/limits.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)

 /**
@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/macros.h"
+#include "libc/macros.internal.h"

 #define BIAS 0x84

@@ -1,7 +1,7 @@
 #ifndef COSMOPOLITAN_DSP_CORE_Q_H_
 #define COSMOPOLITAN_DSP_CORE_Q_H_
 #include "libc/limits.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)

@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 .align	16

 //	Mixes audio.
@@ -18,7 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/core/core.h"
 #include "libc/bits/bits.h"
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/limits.h"

 /**
@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 .source	__FILE__

 clamp4int256$core:
@@ -35,7 +35,7 @@
 #include "libc/bits/initializer.internal.h"
 #include "libc/fmt/conv.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/mem/mem.h"
 #include "libc/str/str.h"
@@ -28,7 +28,7 @@
 │  SOFTWARE.                                                                   │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/mpeg/mpeg.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"

 asm(".ident\t\"\\n\\n\
 PL_MPEG (MIT License)\\n\
@@ -24,11 +24,11 @@
 #include "libc/limits.h"
 #include "libc/log/check.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/mem/mem.h"
 #include "libc/nexgen32e/bsr.h"
-#include "libc/runtime/gc.h"
+#include "libc/runtime/gc.internal.h"
 #include "libc/str/str.h"
 #include "libc/testlib/testlib.h"
 #include "libc/x/x.h"
@@ -20,7 +20,7 @@
 #include "dsp/core/ks8.h"
 #include "dsp/core/kss8.h"
 #include "dsp/scale/cdecimate2xuint8x8.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/nexgen32e/x86feature.h"
 #include "libc/str/str.h"
 #include "libc/x/x.h"
@@ -17,7 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/tty.h"
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/bits/weaken.h"
 #include "libc/calls/calls.h"
 #include "libc/calls/termios.h"
@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/macros.h"
+#include "libc/macros.internal.h"

 //	TODO(jart): write me

@@ -22,7 +22,7 @@
 #include "libc/bits/initializer.internal.h"
 #include "libc/limits.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/str/str.h"

@@ -18,7 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/quant.h"
 #include "libc/log/check.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"

 struct TtyRgb rgb2ttyi2f_(int r, int g, int b) {
  return rgb2ttyf((__m128){r, g, b} / 255);
@@ -17,7 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/quant.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"

 struct TtyRgb rgb2xterm24_(int r, int g, int b) {
  return (struct TtyRgb){MAX(MIN(r, 255), 0), MAX(MIN(g, 255), 0),
@@ -18,7 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/tty.h"
 #include "libc/alg/arraylist2.internal.h"
-#include "libc/runtime/gc.h"
+#include "libc/runtime/gc.internal.h"
 #include "libc/x/x.h"

 /* TODO(jart): DELETE */
@@ -18,7 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/itoa8.h"
 #include "dsp/tty/tty.h"
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/limits.h"
 #include "libc/log/check.h"

@@ -23,11 +23,11 @@
 #include "dsp/tty/windex.h"
 #include "libc/assert.h"
 #include "libc/bits/bits.h"
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/limits.h"
 #include "libc/log/check.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/nexgen32e/x86feature.h"
 #include "libc/runtime/runtime.h"
@@ -26,8 +26,8 @@
 #include "libc/calls/typedef/sigaction_f.h"
 #include "libc/calls/ucontext.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
-#include "libc/runtime/gc.h"
+#include "libc/macros.internal.h"
+#include "libc/runtime/gc.internal.h"
 #include "libc/runtime/runtime.h"
 #include "libc/str/str.h"
 #include "libc/sysv/consts/fileno.h"
@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 .source	__FILE__

 //	Returns index of minimum uint16 in array.
@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 .source	__FILE__

 //	Returns index of minimum positive int16 in array.
@@ -17,7 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/nexgen32e/x86feature.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 .source	__FILE__

 //	Dispatches to fastest windex() implementation.
@@ -73,7 +73,7 @@ void GetOpts(int argc, char *argv[]) {

 int cp(const char *src, const char *dst) {
  if (endswith(dst, "/") || isdirectory(dst)) {
-    dst = gc(xasprintf("%s/%s", dst, basename));
+    dst = _gc(xasprintf("%s/%s", dst, basename));
  }
  if (!force && access(dst, W_OK) == -1 && errno != ENOENT) goto OnFail;
  if (copyfile(src, dst, flags) == -1) goto OnFail;
@@ -16,7 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/stdio/stdio.h"
 #include "libc/str/str.h"

@@ -7,88 +7,23 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "libc/bits/pushpop.h"
-#include "libc/calls/calls.h"
-#include "libc/calls/ucontext.h"
 #include "libc/log/log.h"
-#include "libc/math.h"
-#include "libc/nt/enum/errormodeflags.h"
-#include "libc/nt/signals.h"
-#include "libc/runtime/runtime.h"
-#include "libc/stdio/stdio.h"

 /**
- * @fileoverview Demonstrates SEGFAULT via NULL pointer dereference.
+ * @fileoverview How to print backtraces and cpu state on crash.
 *
- * In MODE=dbg mode, UBSAN should catch this and display a backtrace.
- * In most other modes, e.g. MODE=balanced, the oncrash.c sig handler
- * will either launch GDB or display a very fancy report.
- *
- *     make -j8 -O MODE=opt o/opt/examples/crashreportdemo.com
- *     o/opt/examples/crashreportdemo.com
+ *     make -j8 -O o//examples/crashreport.com
+ *     o//examples/crashreport.com
 *
 * To prevent the GDB GUI from popping up:
 *
- *     export GDB=""
- *     make -j8 -O MODE=opt o/opt/examples/crashreportdemo.com
- *     o/opt/examples/crashreportdemo.com
+ *     export GDB=
+ *     make -j8 -O o//examples/crashreport.com
+ *     o//examples/crashreport.com
 */

-int boo;
-
-void boop(void);
-
 int main(int argc, char *argv[]) {
-  int64_t res;
+  volatile int64_t x;
  showcrashreports();
-  res = 0;
-
-  asm volatile("mov\t$0x1111111111111111,%rax\n\t"
-               "mov\t$0x3333333333333333,%rcx\n\t"
-               "mov\t$0x4444444444444444,%rdx\n\t"
-               "mov\t$0x8888888888888888,%r8\n\t"
-               "mov\t$0x9999999999999999,%r9d\n\t"
-               "mov\t$0xaaaaaaaaaaaaaaaa,%r10d\n\t"
-               "mov\t$0xbbbbbbbbbbbbbbbb,%r11d\n\t"
-               "mov\t$0x0000000000000000,%rax\n\t"
-               "movd\t%rax,%xmm0\n\t"
-               "mov\t$0x1111111111111111,%rax\n\t"
-               "push\t%rax\n\t"
-               "push\t%rax\n\t"
-               "movdqu\t(%rsp),%xmm1\n\t"
-               "pop\t%rax\n\t"
-               "pop\t%rax\n\t"
-               "mov\t$0x2222222222220022,%rax\n\t"
-               "movd\t%rax,%xmm2\n\t"
-               "mov\t$0x3333333333333333,%rax\n\t"
-               "movd\t%rax,%xmm3\n\t"
-               "mov\t$0x4444444444444444,%rax\n\t"
-               "movd\t%rax,%xmm4\n\t"
-               "mov\t$0x5555555555555555,%rax\n\t"
-               "movd\t%rax,%xmm5\n\t"
-               "mov\t$0x6666666666666666,%rax\n\t"
-               "movd\t%rax,%xmm6\n\t"
-               "mov\t$0x7777777777777777,%rax\n\t"
-               "movd\t%rax,%xmm7\n\t"
-               "mov\t$0x8888888888888888,%rax\n\t"
-               "movd\t%rax,%xmm8\n\t"
-               "mov\t$0x9999999999999999,%rax\n\t"
-               "movd\t%rax,%xmm9\n\t"
-               "mov\t$0xaaaaaaaaaaaaaaaa,%rax\n\t"
-               "movd\t%rax,%xmm10\n\t"
-               "mov\t$0xbbbbbbbbbbbbbbbb,%rax\n\t"
-               "movd\t%rax,%xmm11\n\t"
-               "mov\t$0xcccccccccccccccc,%rax\n\t"
-               "movd\t%rax,%xmm12\n\t"
-               "mov\t$0xdddddddddddddddd,%rax\n\t"
-               "movd\t%rax,%xmm13\n\t"
-               "mov\t$0xeeeeeeeeeeeeeeee,%rax\n\t"
-               "movd\t%rax,%xmm14\n\t"
-               "mov\t$0xffffffffffffffff,%rax\n\t"
-               "movd\t%rax,%xmm15\n\t"
-               "fldpi\n\t"
-               "xor\t%eax,%eax\n\t"
-               "div\t%eax\n\t");
-
-  return res;
+  return 1 / (x = 0);
 }
@@ -14,7 +14,6 @@
 #include "libc/log/log.h"
 #include "libc/mem/mem.h"
 #include "libc/nt/thread.h"
-#include "libc/runtime/gc.h"
 #include "libc/runtime/runtime.h"
 #include "libc/stdio/stdio.h"
 #include "libc/str/str.h"
@@ -32,9 +31,9 @@ int main(int argc, char *argv[]) {
  ssize_t rc;
  size_t got, wrote;
  unsigned char buf[512];
+  struct sigaction saint = {.sa_handler = GotCtrlC};
  fprintf(stderr, "This echos stdio until Ctrl+C is pressed.\n");
-  CHECK_NE(
-      -1, sigaction(SIGINT, &(struct sigaction){.sa_handler = GotCtrlC}, NULL));
+  CHECK_NE(-1, sigaction(SIGINT, &saint, NULL));
  for (;;) {
    rc = read(0, buf, BUFSIZ);
    if (rc != -1) {
@@ -7,13 +7,13 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/dns/dns.h"
 #include "libc/fmt/conv.h"
 #include "libc/fmt/fmt.h"
 #include "libc/log/check.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/runtime/gc.h"
 #include "libc/runtime/runtime.h"
 #include "libc/sock/sock.h"
@@ -60,17 +60,17 @@ int main(int argc, char *argv[]) {
  urislice2cstr(port, sizeof(port), u.port, url, "80");
  path = uripath(&u);
  pathstr = path.n ? url + path.i : "/";
-  msg = gc(xstrcat("GET ", pathstr,
-                   " HTTP/1.1\r\n"
-                   "Host: ",
-                   host,
-                   "\r\n"
-                   "Connection: close\r\n"
-                   "Content-Length: 0\r\n"
-                   "Accept: text/plain; */*\r\n"
-                   "Accept-Encoding: identity\r\n"
-                   "User-Agent: github.com/jart/cosmopolitan\r\n"
-                   "\r\n"));
+  msg = _gc(xstrcat("GET ", pathstr,
+                    " HTTP/1.1\r\n"
+                    "Host: ",
+                    host,
+                    "\r\n"
+                    "Connection: close\r\n"
+                    "Content-Length: 0\r\n"
+                    "Accept: text/plain; */*\r\n"
+                    "Accept-Encoding: identity\r\n"
+                    "User-Agent: github.com/jart/cosmopolitan\r\n"
+                    "\r\n"));
  msglen = strlen(msg);
  CHECK_EQ(EAI_SUCCESS, getaddrinfo(host, port, &hints, &addrs));
  for (addr = addrs; addr; addr = addr->ai_next) {
@@ -16,6 +16,6 @@
 */

 int main(int argc, char *argv[]) {
-  puts(gc(xiso8601ts(NULL)));
+  puts(_gc(xiso8601ts(NULL)));
  return 0;
 }
@@ -1,376 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "dsp/core/core.h"
-#include "dsp/core/twixt8.h"
-#include "dsp/scale/scale.h"
-#include "dsp/tty/itoa8.h"
-#include "dsp/tty/quant.h"
-#include "libc/alg/arraylist2.internal.h"
-#include "libc/calls/calls.h"
-#include "libc/calls/ioctl.h"
-#include "libc/calls/struct/stat.h"
-#include "libc/calls/struct/winsize.h"
-#include "libc/limits.h"
-#include "libc/log/check.h"
-#include "libc/log/log.h"
-#include "libc/macros.h"
-#include "libc/math.h"
-#include "libc/mem/mem.h"
-#include "libc/runtime/gc.h"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/fileno.h"
-#include "libc/sysv/consts/map.h"
-#include "libc/sysv/consts/o.h"
-#include "libc/sysv/consts/prot.h"
-#include "libc/sysv/consts/termios.h"
-#include "libc/x/x.h"
-#include "third_party/stb/stb_image.h"
-
-/**
- * Hat tips go out to Hornet, CRTC, DESiRE, Hans Petter Jansson, Guihua
- * Cui, Ming Ronnier Luoand anyone else Mister Rogers would describe as
- * the The Helpers Of This World who've helped us learn more about the
- * cool yet exceedingly difficult things possible to do with graphics.
- */
-
-#define DIN99          1
-#define GAMMA          4.1
-#define GAMMA_A        .05
-#define GAMMA_B        50.
-#define GAMMA_C        .055
-#define COLORSPACE_SRC kSrgbD65ToXyzD50
-#define COLORSPACE_TTY kSrgbD65ToXyzD50
-
-#define SQR(X) ((X) * (X))
-#define DEG(X) ((X)*M_PI / 180)
-
-const double kXyzKappa = 24389 / 27.;
-const double kXyzEpsilon = 216 / 24389.;
-
-const double kSrgbD65ToXyzD50[3][3] = {
-    {.4360747, .3850649, .1430804},
-    {.2225045, .7168786, .0606169},
-    {.0139322, .0971045, .7141733},
-};
-
-const double kCieRgbEToXyz[3][3] = {
-    {.4887180, .3106803, .2006017},
-    {.1762044, .8129847, .0108109},
-    {.0000000, .0102048, .9897952},
-};
-
-const unsigned char kShadePct[] = {0300, 0200, 0100};
-const unsigned short kShadeRune[] = {u'▓', u'▒', u'░'};
-
-const unsigned char kAnsiTango[16][3] = {
-    {46, 52, 54},    {204, 0, 0},     {78, 154, 6},   {196, 160, 0},
-    {52, 101, 164},  {117, 80, 123},  {6, 152, 154},  {211, 215, 207},
-    {85, 87, 83},    {239, 41, 41},   {138, 226, 52}, {252, 233, 79},
-    {114, 159, 207}, {173, 127, 168}, {52, 226, 226}, {238, 238, 236},
-};
-
-const unsigned char kCga[16][3] = {
-    {0, 0, 0},     {170, 0, 0},    {0, 170, 0},    {170, 85, 0},
-    {0, 0, 170},   {170, 0, 170},  {0, 170, 170},  {170, 170, 170},
-    {85, 85, 85},  {255, 85, 85},  {85, 255, 85},  {255, 255, 85},
-    {85, 85, 255}, {255, 85, 255}, {85, 255, 255}, {255, 255, 255},
-};
-
-struct Blends {
-  size_t i, n;
-  struct Blend {
-    unsigned char color[4];
-    unsigned char bg, fg;
-    unsigned short rune;
-  } * p;
-} blends;
-
-static double Gamma(double x) {
-  if (x < GAMMA_A) return x / GAMMA_B;
-  return pow(1 / (1 + GAMMA_C) * (x + GAMMA_C), GAMMA);
-}
-
-static void *LoadRgb(double rgb[3], const unsigned char pix[3]) {
-  rgb[0] = Gamma(1. / 255 * pix[0]);
-  rgb[1] = Gamma(1. / 255 * pix[1]);
-  rgb[2] = Gamma(1. / 255 * pix[2]);
-  return rgb;
-}
-
-static double Lab(double x) {
-  return x > kXyzEpsilon ? cbrtf(x) : (kXyzKappa * x + 16) / 116;
-}
-
-static void XyzToLab(double lab[3], const double d50xyz[3]) {
-  double Y, L, a, b;
-  Y = Lab(d50xyz[1]);
-  L = 116 * Y - 16;
-  a = 500 * (Lab(d50xyz[0]) - Y);
-  b = 200 * (Y - Lab(d50xyz[2]));
-  lab[0] = L, lab[1] = a, lab[2] = b;
-}
-
-static void XyzToDin99d(unsigned char din99d[3], const double d50xyz[3]) {
-  double e, f, G, C, h, xyz[3], lab[3];
-  memcpy(xyz, d50xyz, sizeof(xyz));
-  xyz[0] = 1.12f * xyz[0] - .12f * xyz[2];
-  XyzToLab(lab, xyz);
-  e = (+lab[1] * cosf(DEG(50)) + lab[2] * sinf(DEG(50)));
-  f = (-lab[1] * sinf(DEG(50)) + lab[2] + cosf(DEG(50))) * 1.14;
-  G = sqrtf(SQR(e) + SQR(f));
-  C = logf(1 + .06 * G) * 22.5f;
-  h = atan2f(f, e) + DEG(50);
-  h = fmodf(h, DEG(360));
-  if (h < 0) h += DEG(360);
-  din99d[0] = MIN(255, MAX(0, 325.22f * logf(1 + .0036 * lab[0]) * 2.5f));
-  din99d[1] = MIN(255, MAX(0, C * cos(h) * 2.5f + 128));
-  din99d[2] = MIN(255, MAX(0, C * sin(h) * 2.5f + 128));
-}
-
-static void AddColor(int bg, int fg, int rune, int r, int g, int b, int x) {
-  int i;
-  if (blends.i) {
-    for (i = blends.i; --i;) {
-      if (blends.p[i].color[0] == r && blends.p[i].color[1] == g &&
-          blends.p[i].color[2] == b) {
-        return;
-      }
-    }
-  }
-  CHECK_NE(
-      -1,
-      APPEND(&blends.p, &blends.i, &blends.n,
-             (&(struct Blend){
-                 .bg = bg, .fg = fg, .rune = rune, .color = {r, g, b, x}})));
-}
-
-static void AddBlend(int bgxterm, int fgxterm, int rune, int shade,
-                     const unsigned char bgrgb[4],
-                     const unsigned char fgrgb[4]) {
-  AddColor(bgxterm, fgxterm, rune, twixt8(bgrgb[0], fgrgb[0], shade),
-           twixt8(bgrgb[1], fgrgb[1], shade), twixt8(bgrgb[2], fgrgb[2], shade),
-           0);
-}
-
-static void MakeBlends(const unsigned char palette[16][3]) {
-  int r, i, j, k;
-  double rgb[3], xyz[3];
-  unsigned char tab[256][4];
-  unsigned char cube[6] = {0, 0137, 0207, 0257, 0327, 0377};
-  unsigned char seqs[2][2] = {{16, 255}};
-  for (i = 0; i < 16; ++i) {
-    tab[i][0] = palette[i][0];
-    tab[i][1] = palette[i][1];
-    tab[i][2] = palette[i][2];
-    tab[i][3] = i;
-  }
-  for (i = 16; i < 232; ++i) {
-    tab[i][0] = cube[((i - 020) / 044) % 6];
-    tab[i][1] = cube[((i - 020) / 6) % 6];
-    tab[i][2] = cube[(i - 020) % 6];
-    tab[i][3] = i;
-  }
-  for (i = 232; i < 256; ++i) {
-    tab[i][0] = 8 + (i - 232) * 10;
-    tab[i][1] = 8 + (i - 232) * 10;
-    tab[i][2] = 8 + (i - 232) * 10;
-    tab[i][3] = i;
-  }
-#if DIN99
-  for (i = 0; i < 256; ++i) {
-    LoadRgb(rgb, tab[i]);
-    vmatmul3(xyz, rgb, COLORSPACE_TTY);
-    XyzToDin99d(tab[i], xyz);
-  }
-#endif
-  for (r = 0; r < ARRAYLEN(seqs); ++r) {
-    for (i = seqs[r][0]; i <= seqs[r][1]; ++i) {
-      for (j = seqs[r][0]; j <= seqs[r][1]; ++j) {
-        if (i == j) {
-          AddColor(i, 0, 0, tab[i][0], tab[i][1], tab[i][2], 0);
-        } else {
-          for (k = 0; k < ARRAYLEN(kShadeRune); ++k) {
-            AddBlend(i, j, kShadeRune[k], kShadePct[k], tab[i], tab[j]);
-            AddBlend(j, i, kShadeRune[k], kShadePct[k], tab[j], tab[i]);
-          }
-        }
-      }
-    }
-  }
-}
-
-static int PickColor(unsigned char color[3]) {
-  int i, best, least, dist;
-  best = -1;
-  least = INT_MAX;
-  for (i = 0; i < blends.i; ++i) {
-    dist = SQR(blends.p[i].color[0] - color[0]) +
-           SQR(blends.p[i].color[1] - color[1]) +
-           SQR(blends.p[i].color[2] - color[2]);
-    if (dist < least) {
-      least = dist;
-      best = i;
-    }
-  }
-  return best;
-}
-
-static void SetBg(int x) {
-  if (0 <= x && x < 16) {
-    if (x < 8) {
-      x += 40;
-    } else {
-      x -= 8;
-      x *= 100;
-    }
-    printf("\e[%dm", x);
-  } else {
-    /* assert(false); */
-    printf("\e[48;5;%dm", x);
-  }
-}
-
-static void SetFg(int x) {
-  if (0 <= x && x < 16) {
-    if (x < 8) {
-      x += 30;
-    } else {
-      x -= 8;
-      x *= 90;
-    }
-    printf("\e[%dm", x);
-  } else {
-    /* assert(false); */
-    printf("\e[38;5;%dm", x);
-  }
-}
-
-static void PrintImage(long yn, long xn, unsigned char src[4][yn][xn]) {
-  int y, x, c;
-  double rgb[3], xyz[3];
-  unsigned char din99d[3];
-  for (y = 0; y < yn; ++y) {
-    printf("\n");
-    for (x = 0; x < xn; ++x) {
-      din99d[0] = src[0][y][x];
-      din99d[1] = src[1][y][x];
-      din99d[2] = src[2][y][x];
-#if DIN99
-      LoadRgb(rgb, din99d);
-      vmatmul3(xyz, rgb, COLORSPACE_SRC);
-      XyzToDin99d(din99d, xyz);
-#endif
-      c = PickColor(din99d);
-      if (blends.p[c].rune) {
-        SetBg(blends.p[c].bg);
-        SetFg(blends.p[c].fg);
-        printf("%hc", blends.p[c].rune);
-      } else {
-        SetBg(blends.p[c].bg);
-        printf(" ");
-      }
-    }
-    printf("\e[0m");
-  }
-  printf("\r");
-}
-
-static void *Deinterlace(long dcn, long dyn, long dxn,
-                         unsigned char dst[dcn][dyn][dxn], long syw, long sxw,
-                         long scw, const unsigned char src[syw][sxw][scw],
-                         long syn, long sxn, long sy0, long sx0, long sc0) {
-  long y, x, c;
-  for (y = 0; y < dyn; ++y) {
-    for (x = 0; x < dxn; ++x) {
-      for (c = 0; c < dcn; ++c) {
-        dst[c][y][x] = src[sy0 + y][sx0 + x][sc0 + c];
-      }
-    }
-  }
-  return dst;
-}
-
-static void GetTermSize(int out_rows[1], int out_cols[1]) {
-  struct winsize ws;
-  ws.ws_row = 24;
-  ws.ws_col = 80;
-  if (ioctl(STDIN_FILENO, TIOCGWINSZ, &ws) == -1) {
-    ioctl(STDOUT_FILENO, TIOCGWINSZ, &ws);
-  }
-  out_rows[0] = ws.ws_row;
-  out_cols[0] = ws.ws_col;
-}
-
-static void ProcessImage(long syn, long sxn, unsigned char img[syn][sxn][4]) {
-  int dyn, dxn;
-  double ry, rx;
-  GetTermSize(&dyn, &dxn);
-  ry = syn, rx = sxn;
-  ry /= dyn, rx /= dxn;
-  PrintImage(
-      dyn, dxn,
-      EzGyarados(4, dyn, dxn, gc(xmemalign(32, dyn * dxn * 4)), 4, syn, sxn,
-                 Deinterlace(4, syn, sxn, gc(xmemalign(32, syn * sxn * 4)), syn,
-                             sxn, 4, img, syn, sxn, 0, 0, 0),
-                 0, 4, dyn, dxn, syn, sxn, ry, rx, 0, 0));
-}
-
-static void WithImageFile(const char *path,
-                          void fn(long yn, long xn,
-                                  unsigned char src[yn][xn][4])) {
-  struct stat st;
-  void *map, *data;
-  int fd, yn, xn, cn;
-  CHECK_NE(-1, (fd = open(path, O_RDONLY)), "%s", path);
-  CHECK_NE(-1, fstat(fd, &st));
-  CHECK_GT(st.st_size, 0);
-  CHECK_LE(st.st_size, INT_MAX);
-  CHECK_NE(MAP_FAILED,
-           (map = mmap(NULL, st.st_size, PROT_READ, MAP_SHARED, fd, 0)));
-  CHECK_NOTNULL(
-      (data = stbi_load_from_memory(map, st.st_size, &xn, &yn, NULL, 4)), "%s",
-      path);
-  CHECK_NE(-1, munmap(map, st.st_size));
-  CHECK_NE(-1, close(fd));
-  fn(yn, xn, data);
-  free(data);
-}
-
-static void PrintData(void) {
-  int i;
-  for (i = 0; i < blends.i; ++i) {
-    printf("%3d %3d %3d %3d %3d %d\n", blends.p[i].color[0],
-           blends.p[i].color[1], blends.p[i].color[2], blends.p[i].bg,
-           blends.p[i].fg, blends.p[i].rune);
-  }
-}
-
-void *OpenRgbMap(const char *path) {
-  int fd;
-  void *map;
-  size_t size;
-  size = 256 * 256 * 256 * 3;
-  CHECK_NE(-1, (fd = open(path, O_RDWR | O_CREAT | O_TRUNC, 0644)));
-  CHECK_NE(-1, ftruncate(fd, size));
-  CHECK_NE(MAP_FAILED,
-           (map = mmap(NULL, size, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0)));
-  CHECK_NE(-1, close(fd));
-  return map;
-}
-
-int main(int argc, char *argv[]) {
-  int i;
-  MakeBlends(kCga);
-  for (i = 1; i < argc; ++i) {
-    WithImageFile(argv[i], ProcessImage);
-  }
-  return 0;
-}
@@ -33,7 +33,6 @@ EXAMPLES_BINS =							\
 	$(EXAMPLES_COMS:%=%.dbg)

 EXAMPLES_DIRECTDEPS =						\
-	APE_LIB							\
 	DSP_CORE						\
 	DSP_SCALE						\
 	DSP_TTY							\
@@ -70,6 +69,7 @@ EXAMPLES_DIRECTDEPS =						\
 	THIRD_PARTY_DLMALLOC					\
 	THIRD_PARTY_GDTOA					\
 	THIRD_PARTY_GETOPT					\
+	THIRD_PARTY_LUA						\
 	THIRD_PARTY_MUSL					\
 	THIRD_PARTY_STB						\
 	THIRD_PARTY_XED						\
@@ -81,7 +81,6 @@ EXAMPLES_DEPS :=						\

 o/$(MODE)/examples/examples.pkg:				\
 		$(EXAMPLES_OBJS)				\
-		$(THIRD_PARTY_DUKTAPE_A).pkg			\
 		$(foreach x,$(EXAMPLES_DIRECTDEPS),$($(x)_A).pkg)

 o/$(MODE)/examples/unbourne.o:					\
@@ -96,11 +95,10 @@ o/$(MODE)/examples/%.com.dbg:					\
 		$(APE)
 	@$(APELINK)

-o/$(MODE)/examples/hellojs.com.dbg:				\
+o/$(MODE)/examples/hellolua.com.dbg:				\
 		$(EXAMPLES_DEPS)				\
-		$(THIRD_PARTY_DUKTAPE)				\
-		o/$(MODE)/examples/hellojs.o			\
-		o/$(MODE)/examples/hello.js.zip.o		\
+		o/$(MODE)/examples/hellolua.o			\
+		o/$(MODE)/examples/hellolua.lua.zip.o		\
 		o/$(MODE)/examples/examples.pkg			\
 		$(CRT)						\
 		$(APE)
@@ -117,7 +115,6 @@ o/$(MODE)/examples/ispell.com.dbg:				\

 o/$(MODE)/examples/nesemu1.com.dbg:				\
 		$(EXAMPLES_DEPS)				\
-		$(THIRD_PARTY_DUKTAPE)				\
 		o/$(MODE)/examples/nesemu1.o			\
 		o/$(MODE)/usr/share/rom/mario.nes.zip.o		\
 		o/$(MODE)/usr/share/rom/zelda.nes.zip.o		\
@@ -1,17 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/calls/calls.h"
-#include "libc/runtime/runtime.h"
-
-int main(int argc, char *argv[]) {
-  if (argc < 2) return 1;
-  execv(argv[1], argv + 1);
-  abort();
-}
@@ -1,66 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/bits/bits.h"
-#include "libc/calls/calls.h"
-#include "libc/calls/struct/itimerval.h"
-#include "libc/fmt/conv.h"
-#include "libc/limits.h"
-#include "libc/log/check.h"
-#include "libc/log/color.internal.h"
-#include "libc/log/log.h"
-#include "libc/math.h"
-#include "libc/runtime/runtime.h"
-#include "libc/stdio/stdio.h"
-#include "libc/sysv/consts/itimer.h"
-#include "libc/sysv/consts/sig.h"
-#include "libc/time/time.h"
-
-static const struct itimerval kTimer = {{0, 10000}, {0, 10000}}; /* 10ms */
-static volatile bool32 showprogress_;
-static const char *magic_;
-
-void OnInterrupt(int sig) {
-  showprogress_ = true;
-}
-
-void ShowProgress(uintmax_t i, uintmax_t j, uintmax_t n) {
-  fprintf(stderr, "%s%,40jd%,40jd%,40jd\r\n", magic_, i, j, n);
-  showprogress_ = false;
-}
-
-static bool IsPrime(uintmax_t i) {
-  uintmax_t j, n;
-  for (j = 3, n = (unsigned long)floorl(sqrtl(i)); j <= n; j += 2) {
-    if (showprogress_) ShowProgress(i, j, n);
-    if (i % j == 0) return false;
-  }
-  return true;
-}
-
-static void TryNumber(uintmax_t x, uintmax_t i) {
-  if (IsPrime(i)) {
-    printf("%s%,jd%s%,jd\n", "the prime nearest ", x, " is ", i);
-    exit(0);
-  }
-}
-
-int main(int argc, char **argv) {
-  uintmax_t x, i, j;
-  CHECK_EQ(2, argc);
-  signal(SIGALRM, OnInterrupt);
-  setitimer(ITIMER_REAL, &kTimer, NULL);
-  magic_ = cancolor() ? "\e[F\e[K" : "";
-  if ((x = strtoumax(argv[1], NULL, 0)) % 2 == 0) ++x;
-  TryNumber(x, x);
-  for (i = x, j = x;;) {
-    if (i < UINTMAX_MAX) TryNumber(x, i), i += 2;
-    if (j > 1) TryNumber(x, j), j -= 2;
-  }
-}
@@ -7,9 +7,73 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
+#include "libc/dce.h"
+#include "libc/nexgen32e/nt2sysv.h"
+#include "libc/nt/dll.h"
+#include "libc/nt/enum/cw.h"
 #include "libc/nt/enum/mb.h"
+#include "libc/nt/enum/sw.h"
+#include "libc/nt/enum/wm.h"
+#include "libc/nt/enum/ws.h"
+#include "libc/nt/events.h"
 #include "libc/nt/messagebox.h"
+#include "libc/nt/struct/msg.h"
+#include "libc/nt/struct/wndclass.h"
+#include "libc/nt/windows.h"
+#include "libc/stdio/stdio.h"
+#include "libc/str/str.h"
+
+/**
+ * @fileoverview GUI Example
+ *
+ * Cosmopolitan has had a razor sharp focus on making sockets and stdio
+ * work well across platforms. When you call a function like read(), it
+ * will just work on platforms like Windows too. In order to do that we
+ * need to support the WIN32 API, which you can use, but please note it
+ * isn't polyfilled on other platforms in the same way as POSIX APIs.
+ */
+
+static const char16_t kClassName[] = u"cosmopolitan";
+
+static int64_t WindowProc(int64_t hwnd, uint32_t uMsg, uint64_t wParam,
+                          int64_t lParam) {
+  switch (uMsg) {
+    case kNtWmDestroy:
+      PostQuitMessage(0);
+      return 0;
+    default:
+      return DefWindowProc(hwnd, uMsg, wParam, lParam);
+  }
+}
+
+static void Gui(void) {
+  int64_t h;
+  struct NtMsg msg;
+  struct NtWndClass wc;
+  memset(&wc, 0, sizeof(wc));
+  wc.lpfnWndProc = NT2SYSV(WindowProc);
+  wc.hInstance = GetModuleHandle(NULL);
+  wc.lpszClassName = kClassName;
+  RegisterClass(&wc);
+  h = CreateWindowEx(0, kClassName, u"Hello Cosmopolitan",
+                     kNtWsOverlappedwindow, kNtCwUsedefault, kNtCwUsedefault,
+                     kNtCwUsedefault, kNtCwUsedefault, 0, 0, wc.hInstance, 0);
+  ShowWindow(h, kNtSwNormal);
+  /*
+   * NOTE: Cosmopolitan linker script is hard-coded to change the
+   *       subsystem from CUI to GUI when GetMessage() is linked.
+   */
+  while (GetMessage(&msg, 0, 0, 0)) {
+    TranslateMessage(&msg);
+    DispatchMessage(&msg);
+  }
+}

 int main(int argc, char *argv[]) {
-  return MessageBox(0, u"hello world", u"cosmopolitan", kNtMbOk) ? 0 : 1;
+  if (!IsWindows()) {
+    fputs("Sorry! This GUI demo only runs on Windows\n", stderr);
+    fputs("https://github.com/jart/cosmopolitan/issues/57\n", stderr);
+    return 1;
+  }
+  Gui();
 }
@@ -10,13 +10,6 @@
 #include "libc/stdio/stdio.h"

 int main() {
-  /*
-   * Cosmopolitan's "Hello World" demonstrates a best practice.
-   *
-   * Since we conditionally link heavyweight features based on which
-   * characters are present in the format string, it's a good idea to
-   * have that string consist solely of directives.
-   */
  printf("%s\n", "hello world");
  return 0;
 }
@@ -1,2 +0,0 @@
-NativePrint('Hello world!\n');
-NativePrint('2+3=' + NativeAdd(2, 3) + '\n');
@@ -8,12 +8,9 @@
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
 #include "libc/errno.h"
-#include "libc/runtime/gc.h"
-#include "libc/calls/calls.h"
-#include "libc/sysv/consts/fileno.h"
-#include "libc/x/x.h"
+#include "libc/stdio/stdio.h"

 int main() {
-  dprintf(STDOUT_FILENO, "%s\n", gc(xasprintf("%'s", "(╯°□°)╯︵' ┻━┻")));
+  printf("%s \n", "hello world");
  return errno;
 }
@@ -1,16 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/errno.h"
-#include "libc/stdio/stdio.h"
-
-int main() {
-  printf("%s \n", "hello world");
-  return errno;
-}
@@ -1,60 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/calls/calls.h"
-#include "libc/calls/struct/stat.h"
-#include "libc/log/check.h"
-#include "libc/log/log.h"
-#include "libc/mem/mem.h"
-#include "libc/runtime/gc.h"
-#include "libc/sysv/consts/o.h"
-#include "third_party/duktape/duktape.h"
-
-STATIC_YOINK("zip_uri_support");
-
-static duk_ret_t NativePrint(duk_context *ctx) {
-  duk_push_string(ctx, " ");
-  duk_insert(ctx, 0);
-  duk_join(ctx, duk_get_top(ctx) - 1);
-  fputs(duk_safe_to_string(ctx, -1), stdout);
-  return 0;
-}
-
-static duk_ret_t NativeAdd(duk_context *ctx) {
-  int i, n;
-  double r;
-  n = duk_get_top(ctx);
-  for (r = i = 0; i < n; i++) r += duk_to_number(ctx, i);
-  duk_push_number(ctx, r);
-  return 1;
-}
-
-int main(int argc, char *argv[]) {
-  int fd;
-  struct stat st;
-  const char *code;
-  duk_context *ctx;
-  showcrashreports();
-  ctx = duk_create_heap_default();
-  duk_push_c_function(ctx, NativePrint, DUK_VARARGS);
-  duk_put_global_string(ctx, "NativePrint");
-  duk_push_c_function(ctx, NativeAdd, DUK_VARARGS);
-  duk_put_global_string(ctx, "NativeAdd");
-
-  CHECK_NE(-1, (fd = open("zip:examples/hello.js", O_RDONLY)));
-  CHECK_NE(-1, fstat(fd, &st));
-  CHECK_NOTNULL((code = gc(calloc(1, st.st_size + 1))));
-  CHECK_EQ(st.st_size, read(fd, code, st.st_size));
-  CHECK_NE(-1, close(fd));
-
-  duk_eval_string(ctx, code);
-  duk_pop(ctx);
-  duk_destroy_heap(ctx);
-  return 0;
-}
@@ -7,12 +7,24 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "libc/calls/calls.h"
-#include "libc/stdio/stdio.h"
+#include "third_party/lua/lauxlib.h"
+#include "third_party/lua/lualib.h"
+
+int NativeAdd(lua_State *L) {
+  lua_Number x, y;
+  x = luaL_checknumber(L, 1);
+  y = luaL_checknumber(L, 2);
+  lua_pushnumber(L, x + y);
+  return 1; /* number of results */
+}

 int main(int argc, char *argv[]) {
-  int pid;
-  pid = fork();
-  fprintf(stderr, "fork returned %d\n", pid);
+  lua_State *L;
+  L = luaL_newstate();
+  luaL_openlibs(L);
+  lua_pushcfunction(L, NativeAdd);
+  lua_setglobal(L, "NativeAdd");
+  luaL_dofile(L, "zip:examples/hellolua.lua");
+  lua_close(L);
  return 0;
 }
@@ -0,0 +1 @@
+print(string.format("2 + 3 = %g", NativeAdd(2, 3)))
@@ -1,80 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/bits/bits.h"
-#include "libc/dce.h"
-#include "libc/log/check.h"
-#include "libc/nexgen32e/rdtsc.h"
-#include "libc/nexgen32e/x86feature.h"
-#include "libc/runtime/runtime.h"
-#include "libc/stdio/stdio.h"
-#include "libc/sysv/consts/clock.h"
-#include "libc/sysv/consts/sig.h"
-#include "libc/time/time.h"
-#include "libc/x/x.h"
-#include "third_party/gdtoa/gdtoa.h"
-
-/**
- * @fileoverview Measure CPU clock mystery constants.
- * @note CPUID EAX=15h/16h is a joke
- */
-
-const long double kInterval = 0.001L;
-
-long double start_;
-char dtoabuf_[3][32];
-volatile bool isdone_;
-
-void OnCtrlC(int sig) {
-  isdone_ = true;
-}
-
-long double now(void) {
-  return dtime(CLOCK_MONOTONIC);
-}
-
-long double GetSample(void) {
-  uint64_t tick1, tick2;
-  long double time1, time2;
-  time1 = now();
-  tick1 = rdtsc();
-  nanosleep(&(struct timespec){0, 100000}, NULL);
-  time2 = now();
-  tick2 = rdtsc();
-  return ((time2 - time1) * 1e9L) / (long double)(tick2 - tick1);
-}
-
-void MeasureNanosecondsPerAlwaysRunningTimerCycle(void) {
-  int i;
-  long double avg, samp, elapsed;
-  start_ = now();
-  for (i = 1, avg = 1.0L; !isdone_; ++i) {
-    samp = GetSample();
-    avg += (samp - avg) / i;
-    dsleep(kInterval);
-    elapsed = now() - start_;
-    g_xfmt_p(dtoabuf_[0], &avg, 15, 32, 0);
-    g_xfmt_p(dtoabuf_[1], &samp, 15, 32, 0);
-    g_xfmt_p(dtoabuf_[2], &elapsed, 15, 32, 0);
-    printf("1c = %sns (last=%sns spent=%ss)\n", dtoabuf_[0], dtoabuf_[1],
-           dtoabuf_[2]);
-  }
-}
-
-int main(int argc, char *argv[]) {
-  if (!X86_HAVE(INVTSC)) {
-    fprintf(stderr, "warning: html can reprogram your microcode\n");
-  }
-  if (X86_HAVE(HYPERVISOR)) {
-    fprintf(stderr, "warning: virtual machine rdtsc isn't great\n");
-  }
-  CHECK_NE(-1, xsigaction(SIGINT, OnCtrlC, 0, 0, NULL));
-  MeasureNanosecondsPerAlwaysRunningTimerCycle();
-  return 0;
-}
@@ -15,7 +15,7 @@
 #include "libc/fmt/conv.h"
 #include "libc/log/check.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/mem/mem.h"
 #include "libc/stdio/stdio.h"
 #include "libc/str/str.h"
@@ -49,7 +49,7 @@ void List(const char *path) {
  if (strcmp(path, ".") == 0) {
    vpath = "";
  } else if (!endswith(path, "/")) {
-    vpath = gc(xasprintf("%s/", path));
+    vpath = _gc(xasprintf("%s/", path));
  } else {
    vpath = path;
  }
@@ -9,7 +9,7 @@
 #endif
 #include "libc/alg/alg.h"
 #include "libc/alg/arraylist2.internal.h"
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/calls/calls.h"
 #include "libc/calls/struct/dirent.h"
 #include "libc/calls/struct/stat.h"
@@ -51,7 +51,7 @@ void WalkPaths(const char *dirpath) {
    if (strcmp(e->d_name, "o") == 0) continue;
    if (strcmp(e->d_name, ".git") == 0) continue;
    if (e->d_type == DT_DIR) {
-      WalkPaths(gc(path));
+      WalkPaths(_gc(path));
    } else {
      CHECK_NE(-1, lstat(path, &st), "%s", path);
      f.mt = st.st_mtim;
@@ -1,50 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/bits/bits.h"
-#include "libc/calls/calls.h"
-#include "libc/macros.h"
-#include "libc/runtime/runtime.h"
-#include "libc/stdio/stdio.h"
-#include "libc/sysv/consts/map.h"
-#include "libc/sysv/consts/prot.h"
-
-/*
-  OpenBSD
-  00025ff61000 000000000000 65536
-  00026cf1d000 00000cfbc000 65536
-  000254d83000 ffffe7e66000 65536
-  0002c7bde000 000072e5b000 65536
-  000253ff9000 ffff8c41b000 65536
-  0002e96f3000 0000956fa000 65536
-  000236346000 ffff4cc53000 65536
-  0002ce744000 0000983fe000 65536
-  0002fe0b8000 00002f974000 65536
-  000225cd7000 ffff27c1f000 65536
-*/
-
-struct Mapping {
-  uint8_t *map;
-  size_t mapsize;
-};
-
-int main(int argc, char *argv[]) {
-  size_t i;
-  struct Mapping m[10];
-  for (i = 0; i < ARRAYLEN(m); ++i) {
-    m[i].mapsize = FRAMESIZE;
-    m[i].map = mmap(NULL, m[i].mapsize, PROT_READ | PROT_WRITE,
-                    MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
-  }
-  for (i = 0; i < ARRAYLEN(m); ++i) {
-    printf("%p %p %zu\n", m[i].map, i ? m[i].map - m[i - 1].map : 0,
-           m[i].mapsize);
-  }
-  return 0;
-}
@@ -13,7 +13,7 @@
 #include "libc/alg/arraylist2.internal.h"
 #include "libc/assert.h"
 #include "libc/bits/bits.h"
-#include "libc/bits/safemacros.h"
+#include "libc/bits/safemacros.internal.h"
 #include "libc/calls/calls.h"
 #include "libc/calls/struct/itimerval.h"
 #include "libc/calls/struct/winsize.h"
@@ -23,11 +23,10 @@
 #include "libc/inttypes.h"
 #include "libc/log/check.h"
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/math.h"
 #include "libc/mem/mem.h"
 #include "libc/ohmyplus/vector.h"
-#include "libc/runtime/gc.h"
 #include "libc/runtime/runtime.h"
 #include "libc/sock/sock.h"
 #include "libc/stdio/stdio.h"
@@ -1,4 +1,4 @@
-#include "libc/macros.h"
+#include "libc/macros.internal.h"

 //	Example assembly function.
 //
@@ -1,26 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/bits/bits.h"
-#include "libc/macros.h"
-#include "libc/sock/sock.h"
-#include "libc/stdio/stdio.h"
-#include "libc/sysv/consts/fileno.h"
-#include "libc/sysv/consts/poll.h"
-
-int main(int argc, char *argv[]) {
-  int rc;
-  int pollms = 1;
-  struct pollfd fds[] = {{-1, 0}, {STDIN_FILENO, POLLIN}};
-  if ((rc = poll(fds, ARRAYLEN(fds), pollms)) != -1) {
-    printf("toto=%d\n", rc);
-    return 0;
-  }
-  return 0;
-}
@@ -8,7 +8,7 @@
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
 #include "libc/log/log.h"
-#include "libc/macros.h"
+#include "libc/macros.internal.h"
 #include "libc/runtime/runtime.h"
 #include "libc/stdio/stdio.h"
 #include "libc/str/str.h"
@@ -20,41 +20,58 @@ const struct AuxiliaryValue {
  const char *name;
  const char *description;
 } kAuxiliaryValues[] = {
-    {"%p", &AT_EXECFD, "AT_EXECFD", "file descriptor of program"},
-    {"%p", &AT_PHDR, "AT_PHDR", "address of elf program headers"},
-    {"%p", &AT_PHENT, "AT_PHENT", "size of program header entry"},
-    {"%p", &AT_PHNUM, "AT_PHNUM", "number of program headers"},
-    {"%p", &AT_PAGESZ, "AT_PAGESZ", "system page size"},
-    {"%p", &AT_BASE, "AT_BASE", "base address of the program interpreter"},
-    {"%p", &AT_ENTRY, "AT_ENTRY", "entry address of executable"},
-    {"%p", &AT_NOTELF, "AT_NOTELF", "set if not an elf"},
+    {"%012lx", &AT_EXECFD, "AT_EXECFD", "file descriptor of program"},
+    {"%012lx", &AT_PHDR, "AT_PHDR", "address of elf program headers"},
+    {"%012lx", &AT_PHENT, "AT_PHENT", "size of program header entry"},
+    {"%012lx", &AT_PHNUM, "AT_PHNUM", "number of program headers"},
+    {"%012lx", &AT_PAGESZ, "AT_PAGESZ", "system page size"},
+    {"%012lx", &AT_BASE, "AT_BASE", "base address of the program interpreter"},
+    {"%012lx", &AT_ENTRY, "AT_ENTRY", "entry address of executable"},
+    {"%012lx", &AT_NOTELF, "AT_NOTELF", "set if not an elf"},
    {"%-12d", &AT_UID, "AT_UID", "real user id of thread"},
    {"%-12d", &AT_EUID, "AT_EUID", "effective user id of thread"},
    {"%-12d", &AT_GID, "AT_GID", "real group id of thread"},
    {"%-12d", &AT_EGID, "AT_EGID", "effective group id of thread"},
    {"%-12d", &AT_CLKTCK, "AT_CLKTCK", "frequency of times() counts"},
-    {"%p", &AT_OSRELDATE, "AT_OSRELDATE",
+    {"%012lx", &AT_OSRELDATE, "AT_OSRELDATE",
     "freebsd release number, e.g. 1200086"},
-    {"%p", &AT_PLATFORM, "AT_PLATFORM", "string identifying hardware platform"},
-    {"%p", &AT_DCACHEBSIZE, "AT_DCACHEBSIZE", "data cache block size"},
-    {"%p", &AT_ICACHEBSIZE, "AT_ICACHEBSIZE", "instruction cache block size"},
-    {"%p", &AT_UCACHEBSIZE, "AT_UCACHEBSIZE", "unified cache block size"},
-    {"%p", &AT_SECURE, "AT_SECURE", "for set{u,g}id binz & security blankets"},
+    {"%012lx", &AT_PLATFORM, "AT_PLATFORM",
+     "string identifying hardware platform"},
+    {"%012lx", &AT_DCACHEBSIZE, "AT_DCACHEBSIZE", "data cache block size"},
+    {"%012lx", &AT_ICACHEBSIZE, "AT_ICACHEBSIZE",
+     "instruction cache block size"},
+    {"%012lx", &AT_UCACHEBSIZE, "AT_UCACHEBSIZE", "unified cache block size"},
+    {"%012lx", &AT_SECURE, "AT_SECURE",
+     "for set{u,g}id binz & security blankets"},
    {"%-12s", &AT_BASE_PLATFORM, "AT_BASE_PLATFORM",
     "string identifying real platform"},
-    {"%p", &AT_RANDOM, "AT_RANDOM", "address of sixteen random bytes"},
+    {"%012lx", &AT_RANDOM, "AT_RANDOM", "address of sixteen random bytes"},
    {"%-12s", &AT_EXECFN, "AT_EXECFN", "pathname used to execute program"},
-    {"%p", &AT_SYSINFO_EHDR, "AT_SYSINFO_EHDR",
+    {"%012lx", &AT_SYSINFO_EHDR, "AT_SYSINFO_EHDR",
     "linux virtual dso page address"},
+    {"%012lx", &AT_FLAGS, "AT_FLAGS", "unused?"},
+    {"%012lx", &AT_HWCAP, "AT_HWCAP", "cpu stuff"},
+    {"%012lx", &AT_HWCAP2, "AT_HWCAP2", "more cpu stuff"},
 };

+const struct AuxiliaryValue *DescribeAuxv(unsigned long x) {
+  int i;
+  for (i = 0; i < ARRAYLEN(kAuxiliaryValues); ++i) {
+    if (x == *kAuxiliaryValues[i].id) {
+      return kAuxiliaryValues + i;
+    }
+  }
+  return NULL;
+}
+
 int main(int argc, char *argv[], char **envp) {
  long key;
  unsigned i;
-  unsigned long val;
+  unsigned long *auxp;
  char fmt[64], **env;
+  struct AuxiliaryValue *auxinfo;
  printf("\nArguments:\n");
-  for (i = 0; i < g_argc; ++i) {
+  for (i = 0; i < __argc; ++i) {
    printf(" ☼ %s\n", argv[i]);
  }
  printf("\nEnvironment:\n");
@@ -62,13 +79,13 @@ int main(int argc, char *argv[], char **envp) {
    printf(" ☼ %s\n", *env);
  }
  printf("\nAuxiliary Values:\n");
-  for (i = 0; i < ARRAYLEN(kAuxiliaryValues); ++i) {
-    key = *kAuxiliaryValues[i].id;
-    val = getauxval(key);
-    stpcpy(stpcpy(stpcpy(fmt, "%16s[%p] = "), kAuxiliaryValues[i].fmt),
-           "  # %s\n");
-    printf(fmt, kAuxiliaryValues[i].name, key, val,
-           kAuxiliaryValues[i].description);
+  for (auxp = __auxv; *auxp; auxp += 2) {
+    if ((auxinfo = DescribeAuxv(auxp[0]))) {
+      stpcpy(stpcpy(stpcpy(fmt, "%16s[%4ld] = "), auxinfo->fmt), "  # %s\n");
+      printf(fmt, auxinfo->name, auxp[0], auxp[1], auxinfo->description);
+    } else {
+      printf("%16s[%4ld] = %012lx\n", "unknown", auxp[0], auxp[1]);
+    }
  }
  printf("\nSpecial Directories:\n");
  printf(" ☼ kTmpPath = %`'s\n", kTmpPath);
@@ -1,23 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/calls/calls.h"
-#include "libc/runtime/runtime.h"
-
-int main(int argc, char *argv[]) {
-  int pid, wstatus;
-  if (argc < 2) return 1;
-  pid = fork();
-  if (!pid) {
-    execv(argv[1], argv + 1);
-    abort();
-  }
-  waitpid(pid, &wstatus, 0);
-  return WEXITSTATUS(wstatus);
-}
@@ -44,9 +44,9 @@ void PrintFileMetadata(const char *pathname, struct stat *st) {
         "hard link count", st->st_nlink, "mode / permissions", st->st_mode,
         "owner id", st->st_uid, "group id", st->st_gid,
         "device id (if special)", st->st_rdev, "block size", st->st_blksize,
-         "access time", gc(xiso8601(&st->st_atim)), "modified time",
-         gc(xiso8601(&st->st_mtim)), "c[omplicated]time",
-         gc(xiso8601(&st->st_ctim)));
+         "access time", _gc(xiso8601(&st->st_atim)), "modified time",
+         _gc(xiso8601(&st->st_mtim)), "c[omplicated]time",
+         _gc(xiso8601(&st->st_ctim)));
 }

 int main(int argc, char *argv[]) {
@@ -1,18 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/calls/calls.h"
-#include "libc/calls/struct/stat.h"
-
-int main(int argc, char *argv[]) {
-  struct stat st;
-  st.st_size = -1;
-  stat(argv[1], &st);
-  return st.st_size;
-}
@@ -7,20 +7,28 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "dsp/tty/tty.h"
-#include "libc/log/log.h"
-#include "libc/runtime/runtime.h"
+#include "libc/calls/calls.h"
+#include "libc/calls/struct/sigaction.h"
+#include "libc/calls/struct/siginfo.h"
+#include "libc/calls/ucontext.h"
 #include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/fileno.h"
-#include "libc/time/time.h"
+#include "libc/sysv/consts/sa.h"
+#include "libc/sysv/consts/sig.h"
+#include "third_party/xed/x86.h"
+
+void handler(int sig, siginfo_t *si, ucontext_t *ctx) {
+  struct XedDecodedInst xedd;
+  xed_decoded_inst_zero_set_mode(&xedd, XED_MACHINE_MODE_LONG_64);
+  xed_instruction_length_decode(&xedd, (void *)ctx->uc_mcontext.rip, 15);
+  ctx->uc_mcontext.rip += xedd.length;
+  ctx->uc_mcontext.rax = 42;
+  ctx->uc_mcontext.rdx = 0;
+}

 int main(int argc, char *argv[]) {
-  setenv("GDB", "nopenopenope", true);
-  showcrashreports();
-  ttyraw(kTtyLfToCrLf | kTtySigs);
-  printf("hi\n"), sleep(1);
-  if (argc > 1 && strstr(argv[1], "crash")) abort();
-  printf("there\n"), sleep(1);
+  struct sigaction saint = {.sa_sigaction = handler, .sa_flags = SA_SIGINFO};
+  sigaction(SIGFPE, &saint, NULL);
+  volatile long x = 0;
+  printf("123/0 = %ld\n", 123 / x);
  return 0;
 }
@@ -1,67 +0,0 @@
-#if 0
-/*─────────────────────────────────────────────────────────────────╗
-│ To the extent possible under law, Justine Tunney has waived      │
-│ all copyright and related or neighboring rights to this file,    │
-│ as it is written in the following disclaimers:                   │
-│   • http://unlicense.org/                                        │
-│   • http://creativecommons.org/publicdomain/zero/1.0/            │
-╚─────────────────────────────────────────────────────────────────*/
-#endif
-#include "libc/log/log.h"
-#include "libc/runtime/runtime.h"
-#include "libc/stdio/stdio.h"
-#include "libc/calls/struct/utsname.h"
-#include "libc/calls/calls.h"
-#include "libc/sysv/consts/exit.h"
-#include "third_party/getopt/getopt.h"
-
-int main(int argc, char *argv[]) {
-  unsigned need = 0;
-  int opt;
-  while ((opt = getopt(argc, argv, "hasnrvmd")) != -1) {
-    switch (opt) {
-      case 'a':
-        need |= 0b111111;
-        break;
-      case 's':
-        need |= 0b000001;
-        break;
-      case 'n':
-        need |= 0b000010;
-        break;
-      case 'r':
-        need |= 0b000100;
-        break;
-      case 'v':
-        need |= 0b001000;
-        break;
-      case 'm':
-        need |= 0b010000;
-        break;
-      case 'd':
-        need |= 0b100000;
-        break;
-      default: /* -? or -h */
-        fprintf(stderr, "%s: %s [%s]\n%s", "Usage", argv[0], "FLAGS",
-                "  -a\tprint all\n"
-                "  -s\tprint sysname\n"
-                "  -n\tprint nodename\n"
-                "  -r\tprint release\n"
-                "  -v\tprint version\n"
-                "  -m\tprint machine\n"
-                "  -d\tprint domainname\n");
-        exit(EXIT_FAILURE);
-    }
-  }
-  if (!need) need = 0b000001;
-  struct utsname data;
-  if (uname(&data) == -1) perror("uname"), exit(EXIT_FAILURE);
-  if (need & 0b000001) printf("%s ", data.sysname);
-  if (need & 0b000010) printf("%s ", data.nodename);
-  if (need & 0b000100) printf("%s ", data.release);
-  if (need & 0b001000) printf("%s ", data.version);
-  if (need & 0b010000) printf("%s ", data.machine);
-  if (need & 0b100000) printf("%s ", data.domainname);
-  printf("\n");
-  return 0;
-}
@@ -1609,7 +1609,6 @@ wontreturn static void exraise(int e) {
  INTOFF;
  exception = e;
  longjmp(handler->loc, 1);
-  panic();
 }

 /*
@@ -16,6 +16,24 @@

 /**
 * @fileoverview x86 instruction length decoder by way of hex pipe.
+ *
+ * Here's an example of how you can use it to decode a NOP stream:
+ *
+ *     $ make -j8 o//examples/x86split.com
+ *     $ echo 909090 | o//examples/x86split.com
+ *     90
+ *     90
+ *     90
+ *
+ * If there was a XOR instruction in there, it'd do this:
+ *
+ *     $ make -j8 o//examples/x86split.com
+ *     $ echo 904531FF90 | o//examples/x86split.com
+ *     90                     # NOP
+ *     4531FF                 # XOR R15D,R15D
+ *     90                     # NOP
+ *
+ * Now that you're able to split x86 instructions the rest is easy.
 */

 int fgethex(FILE *f) {
Author	SHA1	Message	Date
Justine Tunney	7abca1531f	Cosmopolitan 0.3	2021-03-29 03:20:03 -07:00
Justine Tunney	7dc8973567	Enable serving zip directory entries	2021-03-29 03:10:11 -07:00
Justine Tunney	1753b669cf	Have redbean show zip listing as default / handler If an "index.lua" or "index.html" doesn't exist in zip file or the filesystem, and no redirects have been defined for it either, then redbean will render a listing of the zip central directory content only if the request uri points to the root path.	2021-03-29 01:22:49 -07:00
Justine Tunney	ae300d0c40	Remove colliding name in syscalls.sh Credit goes to @fabriziobertocci for finding this. See #136.	2021-03-28 18:26:56 -07:00
Justine Tunney	c6f75bf95a	Fix issue with testing service What was I thinking imposing arbitrary limits. I hate limits.	2021-03-28 18:22:36 -07:00
Justine Tunney	52565e7af3	Make minor performance improvement to HTTP parser redbean's message parser now takes 300 nanoseconds to parse a standard request sent by chrome, whereas it previous took 600 nanoseconds.	2021-03-28 18:00:29 -07:00
Justine Tunney	3c19b6e352	Add support for serving directly from filesystem You can now pass `-D directory` to redbean which will serve assets from the local filesystem. This is useful for development since it allows us to skip needing to shut down the server and run InfoZIP when testing an iteration of a lua server page script. See #97	2021-03-28 08:02:17 -07:00
Justine Tunney	a1677d605a	Transcode ISO-8859-1 in HTTP headers If we keep making changes like this, redbean might not be a toy anymore. Additional steps are also being taken now to prevent ANSI control codes sent by the client from slipping into logs.	2021-03-28 00:10:17 -07:00
Justine Tunney	dcbd2b8668	Add base64 support Lua Server Pages may now call the EncodeBase64() and DecodeBase64() functions should they wish to do things like emit embeded data URIs See #97	2021-03-27 18:17:54 -07:00
Justine Tunney	4d21cd315d	Support POST parameters in redbean server pages See #97	2021-03-27 07:29:55 -07:00
Justine Tunney	da36e7e256	Make major improvements to stdio Buffering now has optimal performance, bugs have been fixed, and some missing apis have been introduced. This implementation is also now more production worthy since it's less brittle now in terms of system errors. That's going to help redbean since lua i/o is all based on stdio. See #97	2021-03-26 22:31:41 -07:00
Justine Tunney	09bcfa23d5	Make major improvements to redbean - lua server pages - lua http library - http v0.9 support - request uri parsing - fork failure recovery - accelerated redirects - http pipelining support - lenient message framing - html / uri / js escaping - fix shutdown signal handling	2021-03-25 02:24:05 -07:00
Justine Tunney	6b90ff60cd	Add preliminary lua support to redbean This change only implements enough Lua support to send a Hello World response. The redbean executable size increases from ~128kb to 260kb and the requests per second decreases from 1000k to 600k. That's the fastest it can go and that's extremely impressive compared to Python See #97	2021-03-21 17:27:53 -07:00
fabriziobertocci	2f41b4dcc6	Add prototype for srandom() (#132 )	2021-03-21 07:33:33 -07:00
fabriziobertocci	5af25f687a	Rename eai2str to gai_strerror (#131 )	2021-03-20 20:48:40 -07:00
Alison Winters	9c81729008	Remove unused variable in fflush (#129 )	2021-03-17 20:15:00 -07:00
dosisod	8a236433a2	Add more math functions (#128 )	2021-03-17 20:05:12 -07:00
Justine Tunney	ab64ef7364	Make fflush() return 0 on success (#114 )	2021-03-17 13:02:15 -07:00
Justine Tunney	4177489762	Perform fine-tuning of socketpair and pipe - removed unneeded share parameter from pipe on nt - socktpair(type \| SOCK_CLOEXEC) is now polyfilled - use textwindows for linker micro-optimization - apologies for auto clang-format diff noise :( - improve socketpair docstring See #122	2021-03-16 22:44:54 -07:00
Justine Tunney	4e93750afd	Perform some minor fixups	2021-03-16 22:19:51 -07:00
fabriziobertocci	ca88ce5026	Add socketpair (#122 )	2021-03-16 22:05:59 -07:00
dosisod	6388ef21f8	Add noreturn macro (#118 )	2021-03-13 20:46:12 -08:00
dosisod	7ffeb29bfc	Add missing functions to tgmath (#124 )	2021-03-13 20:43:57 -08:00
Justine Tunney	da4dffccc5	Add random() and srandom() Closes #123	2021-03-13 20:24:29 -08:00
Justine Tunney	807706a099	Perform minor fixups One of those fixups is making sure that AF_LOCAL is equal to AF_UNIX on the New Technology. See #122	2021-03-13 19:40:04 -08:00
Justine Tunney	83d0c3b870	Fix writev() on the New Technology (#117 )	2021-03-09 11:33:48 -08:00
Alison Winters	6cd1037692	Get VSCode working with Linux and WSL (#116 )	2021-03-09 10:12:39 -08:00
Justine Tunney	e0566c9675	Fix Lua build config	2021-03-08 17:51:26 -08:00
Justine Tunney	3f35b37b68	Remove nonstandard defines from limits.h (#115 )	2021-03-08 17:34:44 -08:00
Justine Tunney	67c27d9e6e	Add Hello World example for LUA C API (#97 )	2021-03-08 14:15:59 -08:00
Justine Tunney	2a3037d4e8	Delete Duktape (#97 )	2021-03-08 13:17:52 -08:00
Justine Tunney	0a61fe4ea0	Add smoke test for timezone loading (#114 )	2021-03-08 11:46:04 -08:00
Justine Tunney	33e8fc8687	Expose public garbage collector API for C language You can now do epic things like this: puts(_gc(xasprintf("%d", 123))); The _gc() API is shorthand for _defer() which works like Go's keyword: const char *s = xasprintf("%d", 123); _defer(free, s); puts(s); Be sure to always use -fno-omit-frame-pointer which makes code fast too. Enjoy! See also #114	2021-03-08 10:59:34 -08:00
Justine Tunney	0ad609268f	Improve system call polyfills - Polyfill open() w/ O_CLOEXEC on RHEL5 - Remove old workaround from rmdir() on the New Technology - preadv() and pwritev() are now smarter about demodernization - preadv() and pwritev() are now available on the New Technology	2021-03-08 10:07:02 -08:00
Justine Tunney	816b0e1851	Improve tmpfile api (#114 )	2021-03-07 21:08:27 -08:00
Justine Tunney	2bd1e72d5a	Remove garbage collector macro from header (#114 ) We can put this back the moment someone requests it. Pain-free garbage collection for the C language is pretty cool. All it does is overwrite the return address with a trampoline that calls free(). It's not clear what it should be named if it's made a public API.	2021-03-07 20:23:29 -08:00
Justine Tunney	5ce83b08c8	Add posix_spawn (#114 )	2021-03-07 20:14:07 -08:00
Justine Tunney	5f088cec23	Rename Lua test folder	2021-03-07 18:22:53 -08:00
Justine Tunney	a8945714e8	Make gdtoa less tunable (#104 ) The -fno-math-errno flag shouldn't impact libraries since it's mostly intended for permitting the compiler to generate sqrt() instructions.	2021-03-07 16:41:59 -08:00
Alison Winters	8a6ac6dd63	Set errno when out of range in strtoimax (#111 )	2021-03-07 14:38:56 -08:00
Alison Winters	f5da4efcaf	Set errno in strtol family of functions (#110 )	2021-03-07 14:18:08 -08:00
Justine Tunney	b16b332539	Get Lua to build with all tests passing Fixes #61	2021-03-07 13:31:09 -08:00
Justine Tunney	4d3195f57a	Add Lua	2021-03-07 12:50:34 -08:00
Justine Tunney	aad841610e	Fix freopen so it resets stream buffer (#61 )	2021-03-07 12:12:02 -08:00
Justine Tunney	7583b3accc	Show better error on bind() error See #51	2021-03-07 11:31:44 -08:00
Justine Tunney	06a4e2d29b	Disable Travis emails	2021-03-07 08:29:43 -08:00
dosisod	67b9675c81	Make tgmath.h available (#109 )	2021-03-06 22:40:18 -08:00
Justine Tunney	4d4aa9e791	Add automatic tests for pull requests Now when you send a pull request Travis CI will build the entire repository and run all the tests for you automatically. It takes approximately two minutes to finish so you can get fast feedback	2021-03-06 21:39:03 -08:00
Alison Winters	813e11b90b	Fix int parsing with base 2 and 16 (#107 )	2021-03-06 21:12:32 -08:00
dosisod	fb7b7c6e21	Fix isystem headers including wrong files (#108 )	2021-03-06 21:06:29 -08:00
Justine Tunney	d769df3482	Fix issues with stdio needed for Lua See #61	2021-03-06 19:04:26 -08:00
Justine Tunney	c3ed8d6c7f	Make %p consistent with glibc and musl See #61	2021-03-06 14:36:44 -08:00
Justine Tunney	937d921018	Add tests for the greatest of all libm functions	2021-03-06 12:59:35 -08:00
Justine Tunney	bfef17eb6d	Add more math fixes	2021-03-06 11:44:40 -08:00
Justine Tunney	11ec99931b	Add Musl multibyte functions These are standard functions that are needed to help support the Skull language. Note that normally this codebase uses libc/str/thompike.h See #105	2021-03-06 09:53:16 -08:00
Justine Tunney	cfd453d125	Add more real formatting tests See #61	2021-03-06 08:45:44 -08:00
dosisod	6fa049c9c7	Add macro for static_assert (#106 )	2021-03-05 20:32:25 -08:00
Justine Tunney	3364fc5b03	Add modf(), modff(), and modfl() See #104	2021-03-05 10:47:14 -08:00
Justine Tunney	f064183646	Support proper %g, %f, and %a float formatting See #61 See #104	2021-03-05 10:31:16 -08:00
Justine Tunney	e26bdbec52	Make examples folder somewhat more focused	2021-03-05 06:09:12 -08:00
Justine Tunney	5141d00992	Perform some minor code cleanup	2021-03-04 13:22:32 -08:00
Justine Tunney	b9f73e6a4d	Clarify APE self-modifying behavior in README See #102	2021-03-04 07:54:41 -08:00
Justine Tunney	43b2475aaa	Handle more pow cases (#61 )	2021-03-04 06:14:07 -08:00
Justine Tunney	1a08594f95	Add honeybadger to ape.S	2021-03-03 15:00:41 -08:00
Justine Tunney	e55e71ab48	Delete some old build code	2021-03-03 14:30:25 -08:00
Justine Tunney	3573814e45	Change release process to use default mode See #101	2021-03-03 13:47:22 -08:00
Justine Tunney	2134ffe005	Add features needed by Janet language See #97 See https://github.com/ahgamut/janet/tree/f838e36#compiling-janet-on-cosmopolitan	2021-03-03 13:26:46 -08:00
Justine Tunney	e3ee3c78e9	Refactor some Blinkenlights code	2021-03-03 13:09:06 -08:00
Justine Tunney	8af91bcbe7	Make pow() conform to standard definition	2021-03-03 09:21:27 -08:00
Justine Tunney	754974faaa	Remove SOCK_NONBLOCK from Echo Server example See #102 for further explanation.	2021-03-03 06:17:56 -08:00
Justine Tunney	9367253b4d	Add more libm unit tests and fixes See #61	2021-03-02 13:57:23 -08:00
Justine Tunney	32e289b1d8	Add error and gamma functions Fixes #99	2021-03-02 11:58:00 -08:00
Justine Tunney	d53a344e18	Remove getc() optimization This has been reported as causing issues in #61 although it isn't clear why that's happening. Having a function boundary is bullet proof.	2021-03-02 07:34:38 -08:00
Justine Tunney	3e19b96ab8	Add more POSIX function stubs Cosmopolitan currently doesn't support threads and it doesn't do anything fancy in longjmp/setjmp so this change was simple to do - localeconv - _setjmp (same as setjmp) - _longjmp (same as longjmp) - strcoll (same as strcmp) - flockfile (does nothing) - funlockfile (does nothing) - ftrylockfile (does nothing) See #61	2021-03-02 03:27:55 -08:00
Justine Tunney	1831e3ccf7	Bring life.com executable size back down to 12kb	2021-03-02 01:13:32 -08:00
Justine Tunney	4651962070	Limit frame size restriction to internal repo Fixes #91	2021-03-02 01:05:37 -08:00
Justine Tunney	8a6a1e25b1	Fix redbean daemonization Fixes #94	2021-03-02 00:43:30 -08:00
Justine Tunney	7e4021bf82	Put Redbean in uniprocess mode on NT temporarily The Windows fork() polyfill (which we implement using pure WIN32) appears to be acting strangely. It's possible a regression was introduced by recent changes that our tests didn't catch. This change is workaround so we can upload a new working binary release to the Redbean website until we can fully fix the problem. See also #90	2021-03-01 23:45:49 -08:00
Justine Tunney	2596a59374	Use noasan attribute on XNU signal trampoline The ucontext_t data structure XNU passes us doesn't appear to be part of known memory. So we can't use ASAN during the trampoline, which converts it to a Linux ucontext_t data structure. Please note that this change doesn't impact the signal handler itself, only the trampoline.	2021-03-01 22:02:27 -08:00
tomberek	0eaad9dd7b	Fix APE error if unable to modify self See PR #96 and issue #85	2021-03-01 21:13:22 -08:00
Justine Tunney	f4298f10c2	Generate ZIP files the same way as Windows	2021-03-01 06:24:11 -08:00
Justine Tunney	d932948fb4	Remove more nonstandard stuff from cosmopolitan.h Fixes #61	2021-03-01 00:18:23 -08:00
Justine Tunney	5e069a64d4	Improve limits.h Fixes #84 See also #61	2021-02-28 20:59:19 -08:00
Justine Tunney	3c24c12068	Document support vector Fixes #87	2021-02-28 16:41:53 -08:00
Justine Tunney	839e2f4cfb	Add hyperbolic math functions See #61	2021-02-28 01:27:50 -08:00
Justine Tunney	c42dbe0e9e	Issue new Blinkenlights release	2021-02-27 22:35:50 -08:00
Justine Tunney	94afa982c3	Fix zip executables on MacOS Here's why we got those `Killed: 11` failures on MacOS after modifying the contentns of the redbean.com executable. If you were inserting a small file, such as a HelloWorld.html file, then InfoZIP might have decreased the size of the executable to less than what the Mach-O section had been expecting. That's because when zipobj.com put things like time zone data in the executable, it aligned each zip file entry on a 64-byte boundary, simply for the sake of readability in binary dumps. But when InfoZIP edited the file it would rewrite every entry using ZIP's usual 2-byte alignment. Thus causing shrinkage. The solution was to reconfigure the linker script so that zip file bits that get put into the executable at link-time, such as timezone data, aren't officially part of the executable image, i.e. we don't want the operating system to load that part. The original decision to put the linked zip files into the .data section was mostly made so that when the executable was run in its .com.dbg form it would still have the zip entries be accessible, even though there was tons of GNU debug data following the central directory. We're not going to be able to do that. The .com executable should be the canonical executable. We have really good tools for automatically attaching and configuring GDB correctly with debug symbols even when the .com is run. We'll have to rely on those in cases where zip embedding is used. See #53 See #54 See #68	2021-02-27 18:16:59 -08:00
Justine Tunney	cc56038b05	Fix memzoom on Windows Right now we can't call poll() on file and fifos on Windows. So we work around that by simply blocking on keyboard input. This is OK because on Windows we can't use /proc/*/mem for realtime monitoring, so there's no reason not to block. See #65	2021-02-27 15:01:00 -08:00
Justine Tunney	f3baa05195	Define console.log() in hellojs.com example Fixes #69	2021-02-27 14:15:13 -08:00
Thomas Bernard	1c9065510f	redbean.c: remove duplicate png content-types	2021-02-27 13:37:36 -08:00
Justine Tunney	da199b7a45	Further refine printf long double change (#66 )	2021-02-27 13:30:17 -08:00
Waldir Pimenta	98fba078a3	Add title to the LICENSE file	2021-02-27 13:25:59 -08:00
Alison Winters	5d334b9ce0	Support %lf and %lF in format string Per C99 this should resolve to double.	2021-02-27 13:14:09 -08:00
Justine Tunney	35c7edac49	Restore Windows command prompt mode on exit Fixes #60	2021-02-27 12:53:51 -08:00
Justine Tunney	218ef49147	Fix redbean zip central directory lookup This regression snuck in at some point. It resulted in the program sometimes failing to load when the zip content was changed.	2021-02-27 12:08:28 -08:00
Justine Tunney	19d0c15e03	Perform some code cleanup	2021-02-27 10:33:32 -08:00
Justine Tunney	3e17c7b20f	Make Reddit users happy	2021-02-26 20:18:10 -08:00
Justine Tunney	fcfe7c1080	Rename LICENSE file	2021-02-26 16:09:33 -08:00
Justine Tunney	91f4167a45	Add root redirect for redbean webserver We have a webserver demo: make -j8 o//tool/net/redbean.com o/tool/net/redbean.com -v It's been a little bit confusing that until now you had to visit the following URL in order to see the default web page: http://127.0.0.1:8080/tool/net/redbean.html The following URLs will now redirect to the above page, but only if nothing's been defined for those paths and they would otherwise result in a 404 response: http://127.0.0.1:8080/ http://127.0.0.1:8080/index.html	2021-02-25 19:14:22 -08:00
Justine Tunney	40291c9db3	Improve signal handling and math - Polyfill ucontext_t on FreeBSD/OpenBSD/NetBSD - Add tests confirming signals can edit CPU state - Work towards supporting ZIP filesystem on bare metal - Add more tinymath unit tests for POSIX conformance - Add X87 and SSE status flags to crash report - Fix some bugs in blinkenlights - Fix llvm build breakage	2021-02-25 18:33:33 -08:00
Justine Tunney	cdc54ea1fd	Use unsigned leb128 for magnums	2021-02-24 04:00:38 -08:00
Justine Tunney	edd9297eba	Support malloc() on bare metal Your Actually Portable Executables now contains a simple virtual memory that works similarly to the Linux Kernel in the sense that it maps your physical memory to negative addresses. This is needed to support mmap() and malloc(). This functionality has zero code size impact. For example the MODE=tiny LIFE.COM executable is still only 12KB in size. The APE bootloader code has also been simplified to improve readibility and further elevate the elegance by which we're able to support so many platforms thereby enhancing verifiability so that we may engender trust in this bootloading process.	2021-02-24 00:53:24 -08:00
Justine Tunney	ac3b1dfb21	Parse EFI command line arguments (#12 )	2021-02-21 23:33:44 -08:00
Justine Tunney	537c21338b	Add UEFI support This is mutually exclusive with Windows support. Documentation for how to use it has been written in libc/runtime/efimain.c	2021-02-21 21:33:04 -08:00
Justine Tunney	c6c9b5dfde	Further refine hypot implementation Thanks go to Fabian Giesen on Twitter for code review and advice.	2021-02-21 12:53:01 -08:00
Justine Tunney	4a5698b5c9	Implement better hypot function	2021-02-21 11:06:18 -08:00
Justine Tunney	6c7b8facaa	Delete accidental file	2021-02-21 00:58:50 -08:00
Justine Tunney	7a393c06fe	Add IP address conversion helpers Fixes #47	2021-02-20 22:53:22 -08:00
				`@@ -0,0 +1 @@`
				`print(string.format("2 + 3 = %g", NativeAdd(2, 3)))`