Fully support old windows 8ib user space virtual memory

Addresses are converted in blocks(asan, automap, stack, ...), with the start and end addresses modified using (address & 0xffffff) | ((address >> 28) << 24).

Following addresses are only specified to frame accuracy with the last 4 hex digits chopped off.
null, loader, image and arena blocks have not been modified.
asan     [0x00007fff, 0x10007fff] ⇒ [0x00007fff, 0x01007fff] Not currently supported.
automap  [0x10008004, 0x1fe7fffb] ⇒ [0x01008004, 0x01e7fffb]
_mmi     [0x1fe7fffc, 0x1ffffffb] ⇒ [0x01e7fffc, 0x01fffffb] Listed as memtrack outside of the memtrack files.
fixedmap [0x30000004, 0x40000003] ⇒ [0x03000004, 0x04000003]
nsync    [0x6fc00004, 0x6fcffffb] ⇒ [0x06c00004, 0x06cffffb]
zipos    [0x6fd00004, 0x6fdffffb] ⇒ [0x06d00004, 0x06dffffb] I don't think this is used currently on the vista branch.
g_fds    [0x6fe00004, 0x6feffffb] ⇒ [0x06e00004, 0x06effffb]
winargs  [0x6ffffffe, 0x6fffffff] ⇒ [0x06fffffe, 0x06ffffff] Not entirely confident on if this is accurate.
stack    [0x70000000, 0x70000003] ⇒ [0x07000000, 0x07000003] Not entirely confident on if this is accurate.

This map is documented in memtrack64-8tib.txt with the original 128tib version renamed to memtrack64-128tib.txt.

Modified windows 8.1 check macro name to match existing windows 10 one.
Modified IsShadowFrame to correctly identify the asan block on old windows. Required as the asan block on 128tib virtual memory systems is larger than 2^43 - 1 and so all blocks were reporting as asan.

.clang-format

@@ -8,7 +8,6 @@ AlwaysBreakBeforeMultilineStrings: false
 AllowShortFunctionsOnASingleLine: false
 KeepEmptyLinesAtTheStartOfBlocks: true
 ConstructorInitializerAllOnOneLineOrOnePerLine: true
-IncludeBlocks: Merge
 ---
 Language: Cpp
 AllowShortFunctionsOnASingleLine: false

.gitattributes

@@ -1,5 +1,3 @@
 # -*- conf -*-
-*.gz                         binary
-/build/bootstrap/*.com       binary
 /build/bootstrap/*.com       binary
 /usr/share/zoneinfo/*        binary

.github/workflows/build.yml

@@ -4,10 +4,12 @@ on:
   push:
     branches:
       - "master"
+      - "vista"
       - "flake"
   pull_request:
     branches:
       - "master"
+      - "vista"
 
   # run workflow manually from the Actions tab
   workflow_dispatch:
@@ -21,11 +23,8 @@ jobs:
     steps:
       - uses: actions/checkout@v3
 
-      - name: support ape bins 1
-        run: sudo cp build/bootstrap/ape.elf /usr/bin/ape
-
-      - name: support ape bins 2
-        run: sudo sh -c "echo ':APE:M::MZqFpD::/usr/bin/ape:' >/proc/sys/fs/binfmt_misc/register"
+      - name: support ape bins
+        run: sudo sh -c "echo ':APE:M::MZqFpD::/bin/sh:' >/proc/sys/fs/binfmt_misc/register"
 
       - name: make matrix
         run: V=0 make -j2 MODE=${{ matrix.mode }}

.gitignore

@@ -1,7 +1,6 @@
 # -*- conf -*-
 
 /o
-/.prompt.jtlp
 
 # TODO: Find some way to have Python write to o/
 __pycache__

Makefile

@@ -60,7 +60,7 @@
 #   build/config.mk
 
 SHELL      = build/bootstrap/cocmd.com
-HOSTS     ?= freebsd openbsd netbsd rhel7 rhel5 xnu win10
+HOSTS     ?= freebsd openbsd netbsd rhel7 rhel5 win10 xnu
 MAKEFLAGS += --no-builtin-rules
 
 .SUFFIXES:
@@ -68,12 +68,6 @@ MAKEFLAGS += --no-builtin-rules
 .FEATURES: output-sync
 .PHONY: all o bins check test depend tags
 
-ifneq ($(m),)
-ifeq ($(MODE),)
-MODE := $(m)
-endif
-endif
-
 all:	o
 o:	o/$(MODE)
 
@@ -92,10 +86,9 @@ o/$(MODE):			\
 .UNVEIL =			\
 	libc/integral		\
 	libc/disclaimer.inc	\
-	rwc:/dev/shm		\
 	rx:build/bootstrap	\
 	rx:o/third_party/gcc	\
-	/proc/stat		\
+	/proc/self/status	\
 	rw:/dev/null		\
 	w:o/stack.log		\
 	/etc/hosts		\
@@ -117,36 +110,29 @@ include libc/sysv/sysv.mk			# ├──SYSTEM SUPPORT
 include libc/nt/nt.mk				# │  You can do math
 include libc/intrin/intrin.mk			# │  You can use the stack
 include libc/linux/linux.mk			# │  You can manipulate arrays
-include third_party/compiler_rt/compiler_rt.mk	# │  You can issue raw system calls
-include libc/tinymath/tinymath.mk		# │
+include libc/tinymath/tinymath.mk		# │  You can issue raw system calls
+include third_party/compiler_rt/compiler_rt.mk	# │
 include libc/str/str.mk				# │
 include third_party/xed/xed.mk			# │
-include third_party/puff/puff.mk		# │
 include third_party/zlib/zlib.mk		# │
-include third_party/double-conversion/dc.mk	# │
 include libc/elf/elf.mk				# │
 include ape/ape.mk				# │
 include libc/fmt/fmt.mk				# │
 include libc/vga/vga.mk				#─┘
 include libc/calls/calls.mk			#─┐
-include third_party/getopt/getopt.mk		# │
 include libc/runtime/runtime.mk			# ├──SYSTEMS RUNTIME
 include libc/crt/crt.mk				# │  You can issue system calls
-include tool/hello/hello.mk			# │
 include third_party/nsync/nsync.mk		# │
 include third_party/dlmalloc/dlmalloc.mk	#─┘
 include libc/mem/mem.mk				#─┐
-include third_party/gdtoa/gdtoa.mk		# ├──DYNAMIC RUNTIME
-include third_party/nsync/mem/mem.mk		# │  You can now use stdio
-include libc/thread/thread.mk			# │  You can finally call malloc()
-include libc/zipos/zipos.mk			# │
-include libc/time/time.mk			# │
+include libc/zipos/zipos.mk			# ├──DYNAMIC RUNTIME
+include third_party/gdtoa/gdtoa.mk		# │  You can now use stdio
+include libc/time/time.mk			# │  You can finally call malloc()
+include libc/thread/thread.mk			# │
 include libc/stdio/stdio.mk			# │
 include third_party/libcxx/libcxx.mk		# │
 include net/net.mk				# │
-include third_party/vqsort/vqsort.mk		# │
 include libc/log/log.mk				# │
-include third_party/ggml/ggml.mk		# │
 include third_party/bzip2/bzip2.mk		# │
 include dsp/core/core.mk			# │
 include libc/x/x.mk				# │
@@ -156,8 +142,7 @@ include dsp/mpeg/mpeg.mk			# │
 include dsp/dsp.mk				# │
 include third_party/zlib/gz/gz.mk		# │
 include third_party/musl/musl.mk		# │
-include third_party/intel/intel.mk		# │
-include third_party/aarch64/aarch64.mk		# │
+include third_party/getopt/getopt.mk		# │
 include libc/libc.mk				#─┘
 include libc/sock/sock.mk			#─┐
 include dsp/tty/tty.mk				# ├──ONLINE RUNTIME
@@ -168,7 +153,6 @@ include net/https/https.mk			# │
 include third_party/regex/regex.mk		#─┘
 include third_party/tidy/tidy.mk
 include third_party/third_party.mk
-include third_party/nsync/testing/testing.mk
 include libc/testlib/testlib.mk
 include tool/viz/lib/vizlib.mk
 include tool/args/args.mk
@@ -176,14 +160,11 @@ include test/tool/args/test.mk
 include third_party/linenoise/linenoise.mk
 include third_party/maxmind/maxmind.mk
 include net/finger/finger.mk
-include third_party/double-conversion/test/test.mk
+include third_party/double-conversion/double-conversion.mk
 include third_party/lua/lua.mk
-include third_party/tr/tr.mk
 include third_party/sed/sed.mk
 include third_party/awk/awk.mk
-include third_party/hiredis/hiredis.mk
 include third_party/make/make.mk
-include third_party/ctags/ctags.mk
 include third_party/finger/finger.mk
 include third_party/argon2/argon2.mk
 include third_party/smallz4/smallz4.mk
@@ -200,8 +181,6 @@ include third_party/python/python.mk
 include tool/build/emucrt/emucrt.mk
 include tool/build/emubin/emubin.mk
 include tool/build/build.mk
-include tool/curl/curl.mk
-include third_party/qemu/qemu.mk
 include examples/examples.mk
 include examples/pyapp/pyapp.mk
 include examples/pylife/pylife.mk
@@ -216,7 +195,6 @@ include tool/hash/hash.mk
 include tool/net/net.mk
 include tool/viz/viz.mk
 include tool/tool.mk
-include net/turfwar/turfwar.mk
 include test/libc/tinymath/test.mk
 include test/libc/intrin/test.mk
 include test/libc/mem/test.mk
@@ -287,103 +265,101 @@ o/$(MODE)/srcs-old.txt: o/$(MODE)/.x $(MAKEFILES) $(call uniq,$(foreach x,$(SRCS
 o/$(MODE)/hdrs-old.txt: o/$(MODE)/.x $(MAKEFILES) $(call uniq,$(foreach x,$(HDRS) $(INCS),$(dir $(x))))
 	$(file >$@) $(foreach x,$(HDRS) $(INCS),$(file >>$@,$(x)))
 
-TAGS: private .UNSANDBOXED = 1
-TAGS:	o/$(MODE)/srcs-old.txt $(SRCS) #o/$(MODE)/third_party/ctags/ctags.com
+TAGS: .UNSANDBOXED = 1
+TAGS:	o/$(MODE)/srcs-old.txt $(SRCS)
 	@$(RM) $@
-	@o/$(MODE)/third_party/ctags/ctags.com $(TAGSFLAGS) -L $< -o $@
+	@$(TAGS) $(TAGSFLAGS) -L $< -o $@
 
-HTAGS: private .UNSANDBOXED = 1
-HTAGS:	o/$(MODE)/hdrs-old.txt $(HDRS) #o/$(MODE)/third_party/ctags/ctags.com
+HTAGS: .UNSANDBOXED = 1
+HTAGS:	o/$(MODE)/hdrs-old.txt $(HDRS)
 	@$(RM) $@
-	@build/htags o/$(MODE)/third_party/ctags/ctags.com -L $< -o $@
+	@build/htags -L $< -o $@
 
-loc: private .UNSANDBOXED = 1
+loc: .UNSANDBOXED = 1
 loc: o/$(MODE)/tool/build/summy.com
 	find -name \*.h -or -name \*.c -or -name \*.S | \
 	$(XARGS) wc -l | grep total | awk '{print $$1}' | $<
 
-# PLEASE: MAINTAIN TOPOLOGICAL ORDER
-# FROM HIGHEST LEVEL TO LOWEST LEVEL
-COSMOPOLITAN_OBJECTS =			\
-	NET_HTTP			\
-	LIBC_DNS			\
-	LIBC_SOCK			\
-	LIBC_NT_WS2_32			\
-	LIBC_NT_IPHLPAPI		\
-	LIBC_NT_MSWSOCK			\
-	LIBC_X				\
-	THIRD_PARTY_GETOPT		\
-	LIBC_LOG			\
-	LIBC_TIME			\
-	LIBC_ZIPOS			\
-	THIRD_PARTY_MUSL		\
-	LIBC_STDIO			\
-	THIRD_PARTY_GDTOA		\
-	THIRD_PARTY_REGEX		\
-	LIBC_THREAD			\
-	THIRD_PARTY_NSYNC_MEM		\
-	LIBC_MEM			\
-	THIRD_PARTY_DLMALLOC		\
-	LIBC_RUNTIME			\
-	THIRD_PARTY_NSYNC		\
-	LIBC_ELF			\
-	LIBC_CALLS			\
-	LIBC_SYSV_CALLS			\
-	LIBC_VGA			\
-	LIBC_NT_PSAPI			\
-	LIBC_NT_POWRPROF		\
-	LIBC_NT_PDH			\
-	LIBC_NT_GDI32			\
-	LIBC_NT_COMDLG32		\
-	LIBC_NT_URL			\
-	LIBC_NT_USER32			\
-	LIBC_NT_NTDLL			\
-	LIBC_NT_ADVAPI32		\
-	LIBC_NT_SYNCHRONIZATION		\
-	LIBC_FMT			\
-	THIRD_PARTY_PUFF		\
-	THIRD_PARTY_COMPILER_RT		\
-	LIBC_TINYMATH			\
-	THIRD_PARTY_XED			\
-	LIBC_STR			\
-	LIBC_SYSV			\
-	LIBC_INTRIN			\
-	LIBC_NT_KERNEL32		\
-	LIBC_NEXGEN32E
+COSMOPOLITAN_OBJECTS =		\
+	NET_HTTP		\
+	LIBC_DNS		\
+	LIBC_SOCK		\
+	LIBC_NT_WS2_32		\
+	LIBC_NT_IPHLPAPI	\
+	LIBC_NT_MSWSOCK		\
+	LIBC_X			\
+	THIRD_PARTY_GETOPT	\
+	LIBC_LOG		\
+	LIBC_TIME		\
+	LIBC_ZIPOS		\
+	THIRD_PARTY_ZLIB	\
+	THIRD_PARTY_MUSL	\
+	LIBC_STDIO		\
+	THIRD_PARTY_GDTOA	\
+	THIRD_PARTY_REGEX	\
+	LIBC_MEM		\
+	THIRD_PARTY_DLMALLOC	\
+	LIBC_RUNTIME		\
+	THIRD_PARTY_NSYNC	\
+	LIBC_ELF		\
+	LIBC_CALLS		\
+	LIBC_SYSV_CALLS		\
+	LIBC_NT_PSAPI		\
+	LIBC_NT_POWRPROF	\
+	LIBC_NT_PDH		\
+	LIBC_NT_GDI32		\
+	LIBC_NT_COMDLG32	\
+	LIBC_NT_URL		\
+	LIBC_NT_USER32		\
+	LIBC_NT_NTDLL		\
+	LIBC_NT_ADVAPI32	\
+	LIBC_FMT		\
+	THIRD_PARTY_COMPILER_RT	\
+	LIBC_THREAD		\
+	LIBC_TINYMATH		\
+	THIRD_PARTY_XED		\
+	LIBC_STR		\
+	LIBC_SYSV		\
+	LIBC_INTRIN		\
+	LIBC_NT_KERNEL32	\
+	LIBC_NEXGEN32E		\
+	LIBC_VGA
 
-COSMOPOLITAN_HEADERS =			\
-	APE				\
-	LIBC				\
-	LIBC_CALLS			\
-	LIBC_DNS			\
-	LIBC_ELF			\
-	LIBC_FMT			\
-	LIBC_INTRIN			\
-	LIBC_LOG			\
-	LIBC_MEM			\
-	LIBC_NEXGEN32E			\
-	LIBC_NT				\
-	LIBC_RUNTIME			\
-	LIBC_SOCK			\
-	LIBC_STDIO			\
-	THIRD_PARTY_NSYNC		\
-	THIRD_PARTY_XED			\
-	LIBC_STR			\
-	LIBC_SYSV			\
-	LIBC_THREAD			\
-	LIBC_TIME			\
-	LIBC_TINYMATH			\
-	LIBC_X				\
-	LIBC_ZIPOS			\
-	LIBC_VGA			\
-	NET_HTTP			\
-	THIRD_PARTY_DLMALLOC		\
-	THIRD_PARTY_GDTOA		\
-	THIRD_PARTY_GETOPT		\
-	THIRD_PARTY_MUSL		\
+COSMOPOLITAN_HEADERS =		\
+	APE			\
+	LIBC			\
+	LIBC_CALLS		\
+	LIBC_DNS		\
+	LIBC_ELF		\
+	LIBC_FMT		\
+	LIBC_INTRIN		\
+	LIBC_LOG		\
+	LIBC_MEM		\
+	LIBC_NEXGEN32E		\
+	LIBC_NT			\
+	LIBC_RUNTIME		\
+	LIBC_SOCK		\
+	LIBC_STDIO		\
+	THIRD_PARTY_NSYNC	\
+	THIRD_PARTY_XED		\
+	LIBC_STR		\
+	LIBC_SYSV		\
+	LIBC_THREAD		\
+	LIBC_TIME		\
+	LIBC_TINYMATH		\
+	LIBC_X			\
+	LIBC_ZIPOS		\
+	LIBC_VGA		\
+	NET_HTTP		\
+	THIRD_PARTY_DLMALLOC	\
+	THIRD_PARTY_GDTOA	\
+	THIRD_PARTY_GETOPT	\
+	THIRD_PARTY_MUSL	\
+	THIRD_PARTY_ZLIB	\
+	THIRD_PARTY_ZLIB_GZ	\
 	THIRD_PARTY_REGEX
 
-o/$(MODE)/cosmopolitan.a:		\
+o/$(MODE)/cosmopolitan.a:	\
 		$(foreach x,$(COSMOPOLITAN_OBJECTS),$($(x)_A_OBJS))
 
 o/cosmopolitan.h:							\
@@ -394,7 +370,7 @@ o/cosmopolitan.h:							\
 	$(file >$(TMPDIR)/$(subst /,_,$@),libc/integral/normalize.inc $(foreach x,$(COSMOPOLITAN_HEADERS),$($(x)_HDRS)))
 	@$(COMPILE) -AROLLUP -T$@ o/$(MODE)/tool/build/rollup.com @$(TMPDIR)/$(subst /,_,$@) >$@
 
-o/cosmopolitan.html: private .UNSANDBOXED = 1
+o/cosmopolitan.html: .UNSANDBOXED = 1
 o/cosmopolitan.html:							\
 		o/$(MODE)/third_party/chibicc/chibicc.com.dbg		\
 		$(filter-out %.s,$(foreach x,$(COSMOPOLITAN_OBJECTS),$($(x)_SRCS)))	\
@@ -413,16 +389,6 @@ $(SRCS):					\
 	libc/integral/lp64arg.inc		\
 	libc/integral/lp64.inc
 
-.PHONY: toolchain
-toolchain:	o/cosmopolitan.h				\
-		o/$(MODE)/ape/public/ape.lds			\
-		o/$(MODE)/libc/crt/crt.o			\
-		o/$(MODE)/ape/ape.o				\
-		o/$(MODE)/ape/ape-copy-self.o			\
-		o/$(MODE)/ape/ape-no-modify-self.o		\
-		o/$(MODE)/cosmopolitan.a			\
-		o/$(MODE)/third_party/libcxx/libcxx.a
-
 # UNSPECIFIED PREREQUISITES TUTORIAL
 #
 # A build rule must exist for all files that make needs to consider in
@@ -447,9 +413,9 @@ $(SRCS):
 $(HDRS):
 $(INCS):
 .DEFAULT:
-	@$(ECHO)
-	@$(ECHO) NOTE: deleting o/$(MODE)/depend because of an unspecified prerequisite: $@
-	@$(ECHO)
+	@$(ECHO) >&2
+	@$(ECHO) NOTE: deleting o/$(MODE)/depend because of an unspecified prerequisite: $@ >&2
+	@$(ECHO) >&2
 	$(RM) o/$(MODE)/depend
 
 -include o/$(MODE)/depend

README.md

@@ -1,7 +1,10 @@
 ![Cosmopolitan Honeybadger](usr/share/img/honeybadger.png)
 
 [![build](https://github.com/jart/cosmopolitan/actions/workflows/build.yml/badge.svg)](https://github.com/jart/cosmopolitan/actions/workflows/build.yml)
-# Cosmopolitan
+# Cosmopolitan (Vista Edition)
+
+**This is a community supported legacy branch of Cosmopolitan 2.0 that's
+intended to preserve compatibility with Windows Vista and Windows 7.**
 
 [Cosmopolitan Libc](https://justine.lol/cosmopolitan/index.html) makes C
 a build-once run-anywhere language, like Java, except it doesn't need an
@@ -23,11 +26,11 @@ If you're doing your development work on Linux or BSD then you need just
 five files to get started. Here's what you do on Linux:
 
 ```sh
-wget https://justine.lol/cosmopolitan/cosmopolitan-amalgamation-2.2.zip
-unzip cosmopolitan-amalgamation-2.2.zip
+wget https://justine.lol/cosmopolitan/cosmopolitan-amalgamation-2.0.1.zip
+unzip cosmopolitan-amalgamation-2.0.1.zip
 printf 'main() { printf("hello world\\n"); }\n' >hello.c
 gcc -g -Os -static -nostdlib -nostdinc -fno-pie -no-pie -mno-red-zone \
-  -fno-omit-frame-pointer -pg -mnop-mcount -mno-tls-direct-seg-refs -gdwarf-4 \
+  -fno-omit-frame-pointer -pg -mnop-mcount -mno-tls-direct-seg-refs \
   -o hello.com.dbg hello.c -fuse-ld=bfd -Wl,-T,ape.lds -Wl,--gc-sections \
   -include cosmopolitan.h crt.o ape-no-modify-self.o cosmopolitan.a
 objcopy -S -O binary hello.com.dbg hello.com
@@ -57,13 +60,9 @@ sudo sh -c 'echo -1 >/proc/sys/fs/binfmt_misc/status'
 
 Since we used the `ape-no-modify-self.o` bootloader (rather than
 `ape.o`) your executable will not modify itself when it's run. What
-it'll instead do, is extract a 4kb program (the [APE loader](https://justine.lol/apeloader/))
-to `${TMPDIR:-${HOME:-.}}` that maps your program into memory without
-needing to copy it. The APE loader must be in an executable location
-(e.g. not stored on a `noexec` mount) for it to run. See below for
-alternatives:
-
-It's possible to install the APE loader systemwide as follows.
+it'll instead do, is extract a 4kb program to `${TMPDIR:-${HOME:-.}}`
+that maps your program into memory without needing to copy it. It's
+possible to install the APE loader systemwide as follows.
 
 ```sh
 # System-Wide APE Install
@@ -104,7 +103,7 @@ heavyweight features like tracing to your binaries by default. In that
 case, you may want to consider using our build system:
 
 ```sh
-make m=tiny
+make -j8 MODE=tiny
 ```
 
 Which will cause programs such as `hello.com` and `life.com` to shrink
@@ -159,7 +158,7 @@ cd cosmopolitan
 This will build the entire repository and run all the tests:
 
 ```sh
-build/bootstrap/make.com
+build/bootstrap/make.com -j16
 o//examples/hello.com
 find o -name \*.com | xargs ls -rShal | less
 ```
@@ -178,7 +177,7 @@ having minimal deterministic builds. For example, if you wanted to build
 only hello.com then you could do that as follows:
 
 ```sh
-build/bootstrap/make.com o//examples/hello.com
+build/bootstrap/make.com -j16 o//examples/hello.com
 ```
 
 Sometimes it's desirable to build a subset of targets, without having to
@@ -187,7 +186,7 @@ directory name. For example, if you wanted to build only the targets and
 subtargets of the chibicc package including its tests, you would say:
 
 ```sh
-build/bootstrap/make.com o//third_party/chibicc
+build/bootstrap/make.com -j16 o//third_party/chibicc
 o//third_party/chibicc/chibicc.com --help
 ```
 
@@ -195,19 +194,18 @@ Cosmopolitan provides a variety of build modes. For example, if you want
 really tiny binaries (as small as 12kb in size) then you'd say:
 
 ```sh
-build/bootstrap/make.com m=tiny
+build/bootstrap/make.com -j16 MODE=tiny
 ```
 
 Here's some other build modes you can try:
 
 ```sh
-build/bootstrap/make.com m=dbg       # asan + ubsan + debug
-build/bootstrap/make.com m=asan      # production memory safety
-build/bootstrap/make.com m=opt       # -march=native optimizations
-build/bootstrap/make.com m=rel       # traditional release binaries
-build/bootstrap/make.com m=optlinux  # optimal linux-only performance
-build/bootstrap/make.com m=fastbuild # build 28% faster w/o debugging
-build/bootstrap/make.com m=tinylinux # tiniest linux-only 4kb binaries
+build/bootstrap/make.com -j16 MODE=dbg       # asan + ubsan + debug
+build/bootstrap/make.com -j16 MODE=asan      # production memory safety
+build/bootstrap/make.com -j16 MODE=opt       # -march=native optimizations
+build/bootstrap/make.com -j16 MODE=rel       # traditional release binaries
+build/bootstrap/make.com -j16 MODE=optlinux  # optimal linux-only performance
+build/bootstrap/make.com -j16 MODE=tinylinux # tiniest linux-only 4kb binaries
 ```
 
 For further details, see [//build/config.mk](build/config.mk).
@@ -243,38 +241,27 @@ You normally run the `.com.dbg` file under gdb. If you need to debug the
 gdb foo.com -ex 'add-symbol-file foo.com.dbg 0x401000'
 ```
 
-## Discord Chatroom
-
-The Cosmopolitan development team collaborates on the Redbean Discord
-server. You're welcome to join us! <https://discord.gg/FwAVVu7eJ4>
-
 ## Support Vector
 
 | Platform        | Min Version | Circa |
 | :---            | ---:        | ---:  |
 | AMD             | K8 Venus    | 2005  |
 | Intel           | Core        | 2006  |
+| Windows         | Vista       | 2006  |
 | Linux           | 2.6.18      | 2007  |
-| Windows         | 8 [1]       | 2012  |
 | Mac OS X        | 15.6        | 2018  |
-| OpenBSD         | 6.4         | 2018  |
 | FreeBSD         | 13          | 2020  |
+| OpenBSD         | 6.4         | 2018  |
 | NetBSD          | 9.2         | 2021  |
 
-[1] See our [vista branch](https://github.com/jart/cosmopolitan/tree/vista)
-    for a community supported version of Cosmopolitan that works on Windows
-    Vista and Windows 7.
-
 ## Special Thanks
 
 Funding for this project is crowdsourced using
 [GitHub Sponsors](https://github.com/sponsors/jart) and
 [Patreon](https://www.patreon.com/jart). Your support is what makes this
 project possible. Thank you! We'd also like to give special thanks to
-the following groups and individuals:
+the following individuals:
 
 - [Joe Drumgoole](https://github.com/jdrumgoole)
-- [Rob Figueiredo](https://github.com/robfig)
-- [Wasmer](https://wasmer.io/)
 
 For publicly sponsoring our work at the highest tier.

ape/ape.internal.h

@@ -1,9 +0,0 @@
-#ifndef COSMOPOLITAN_APE_APE_INTERNAL_H_
-#define COSMOPOLITAN_APE_APE_INTERNAL_H_
-#include "libc/dce.h"
-
-#if SupportsWindows() || SupportsMetal() || SupportsXnu()
-#define APE_IS_SHELL_SCRIPT
-#endif
-
-#endif /* COSMOPOLITAN_APE_APE_INTERNAL_H_ */

ape/ape.lds

@@ -181,15 +181,8 @@
 #include "libc/elf/pf2prot.internal.h"
 #include "libc/nt/pedef.internal.h"
 #include "libc/thread/tls.h"
-#include "ape/ape.internal.h"
 #include "libc/zip.h"
 
-#ifdef __x86__
-#define CODE_GRANULE 1
-#else
-#define CODE_GRANULE 4
-#endif
-
 ENTRY(_start)
 
 PHDRS {
@@ -223,8 +216,6 @@ SECTIONS {
     KEEP(*(.elf.phdrs))
     HIDDEN(ape_phdrs_end = .);
 
-    KEEP(*(.emush))
-
     /* OpenBSD */
     . = ALIGN(__SIZEOF_POINTER__);
     HIDDEN(ape_note = .);
@@ -257,11 +248,10 @@ SECTIONS {
     KEEP(*(SORT_BY_NAME(.sort.text.real.*)))
     /* Code we want earlier in the binary w/o modifications */
     KEEP(*(.ape.loader))
-    . = ALIGN(CODE_GRANULE);
     HIDDEN(_ereal = .);
 /*END: realmode addressability guarantee */
 /*BEGIN: morphable code */
-    . += CODE_GRANULE;
+    . += 1;
 
     /* Normal Code */
     *(.start)
@@ -283,7 +273,6 @@ SECTIONS {
     KEEP(*(.textwindowsprologue))
     *(.text.windows)
     KEEP(*(.textwindowsepilogue))
-    KEEP(*(.blink))
     *(SORT_BY_ALIGNMENT(.text.modernity))
     *(SORT_BY_ALIGNMENT(.text.modernity.*))
     *(SORT_BY_ALIGNMENT(.text.hot))
@@ -299,12 +288,13 @@ SECTIONS {
 
     /* Privileged code invulnerable to magic */
     KEEP(*(.ape.pad.privileged));
-    . = ALIGN(__privileged_end > __privileged_start ? PAGESIZE : 1);
+    . += . > 0 ? 1 : 0;
 /*END: morphable code */
     HIDDEN(__privileged_start = .);
+    . += . > 0 ? 1 : 0;
     *(.privileged)
     HIDDEN(__privileged_end = .);
-    . += . > 0 ? CODE_GRANULE : 0;
+    . += . > 0 ? 1 : 0;
 
 /*BEGIN: Read Only Data */
 
@@ -359,29 +349,8 @@ SECTIONS {
     HIDDEN(_etext = .);
     PROVIDE_HIDDEN(etext = .);
 /*END: Read Only Data (only needed for initialization) */
-  } :Rom
-
-/* initialization image for thread-local storage, this is copied */
-/* out to actual TLS areas at runtime, so just make it read-only */
-  .tdata . : {
-    _tdata_start = .;
-    *(SORT_BY_ALIGNMENT(.tdata))
-    *(SORT_BY_ALIGNMENT(.tdata.*))
-    _tdata_end = .;
-    . = ALIGN(PAGESIZE);
-  } :Tls :Rom
 /*END: Read Only Data */
-
-/* this only tells the linker about the layout of uninitialized */
-/* TLS data, and does not advance the linker's location counter */
-  .tbss . : {
-    _tbss_start = .;
-    *(SORT_BY_ALIGNMENT(.tbss))
-    *(SORT_BY_ALIGNMENT(.tbss.*))
-    . = ALIGN(TLS_ALIGNMENT);
-    /* the %fs register is based on this location */
-    _tbss_end = .;
-  } :Tls
+  } :Rom
 
   .data ALIGN(PAGESIZE) : {
 /*BEGIN: Read/Write Data */
@@ -390,7 +359,7 @@ SECTIONS {
     KEEP(*(.dataprologue))
     *(.data .data.*)
     KEEP(*(SORT_BY_NAME(.sort.data.*)))
-    . += . > 0 ? CODE_GRANULE : 0;
+    . += . > 0 ? 1 : 0;
 
     KEEP(*(.gotprologue))
     *(.got)
@@ -416,7 +385,26 @@ SECTIONS {
     . = ALIGN(PAGESIZE);
   } :Ram
 
+  .tdata . : {
+    _tdata_start = .;
+    *(SORT_BY_ALIGNMENT(.tdata))
+    *(SORT_BY_ALIGNMENT(.tdata.*))
+    _tdata_end = .;
+    . = ALIGN(PAGESIZE);
+  } :Tls :Ram
+
 /*END:   file content that's loaded by o/s */
+/*BEGIN: bss memory void */
+
+  .tbss . : {
+    _tbss_start = .;
+    *(SORT_BY_ALIGNMENT(.tbss))
+    *(SORT_BY_ALIGNMENT(.tbss.*))
+    . = ALIGN(TLS_ALIGNMENT);
+    /* the %fs register is based on this location */
+    _tbss_end = .;
+  } :Tls
+
 /*END:   file content */
 /*BEGIN: bss memory that's addressable */
 
@@ -427,7 +415,7 @@ SECTIONS {
     *(.piro.bss)
     KEEP(*(SORT_BY_NAME(.piro.bss.sort.*)))
     HIDDEN(__piro_end = .);
-    . += . > 0 ? CODE_GRANULE : 0;
+    . += . > 0 ? 1 : 0;
 /*END: Post-Initialization Read-Only */
 
     /* Statically Allocated Empty Space */
@@ -439,7 +427,7 @@ SECTIONS {
 
     KEEP(*(.bssepilogue))
 /*END: NT FORK COPYING */
-    . = ALIGN(PAGESIZE);
+    . = ALIGN(FRAMESIZE); /* for brk()/sbrk() allocation */
     HIDDEN(_end = .);
     PROVIDE_HIDDEN(end = .);
   } :Bss
@@ -470,7 +458,6 @@ SECTIONS {
   .debug_line        0 : { *(.debug_line .debug_line.* .debug_line_end ) }
   .debug_frame       0 : { *(.debug_frame) }
   .debug_str         0 : { *(.debug_str) }
-  .debug_line_str    0 : { *(.debug_line_str) }
   .debug_loc         0 : { *(.debug_loc) }
   .debug_macinfo     0 : { *(.debug_macinfo) }
   .debug_weaknames   0 : { *(.debug_weaknames) }
@@ -479,7 +466,6 @@ SECTIONS {
   .debug_varnames    0 : { *(.debug_varnames) }
   .debug_pubtypes    0 : { *(.debug_pubtypes) }
   .debug_ranges      0 : { *(.debug_ranges) }
-  .debug_rnglists    0 : { *(.debug_rnglists) }
   .debug_macro       0 : { *(.debug_macro) }
   .debug_addr        0 : { *(.debug_addr) }
   .gnu.attributes    0 : { KEEP(*(.gnu.attributes)) }
@@ -521,7 +507,7 @@ 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 = SIZEOF(.data));
+HIDDEN(ape_ram_filesz = SIZEOF(.data) + SIZEOF(.tdata));
 HIDDEN(ape_ram_memsz = ADDR(.bss) + SIZEOF(.bss) - ape_ram_vaddr);
 HIDDEN(ape_ram_align = PAGESIZE);
 HIDDEN(ape_ram_rva = RVA(ape_ram_vaddr));
@@ -545,16 +531,16 @@ HIDDEN(ape_note_align = __SIZEOF_POINTER__);
 HIDDEN(ape_text_offset = ape_rom_offset + LOADADDR(.text) - ape_rom_paddr);
 HIDDEN(ape_text_paddr = LOADADDR(.text));
 HIDDEN(ape_text_vaddr = ADDR(.text));
-HIDDEN(ape_text_filesz = SIZEOF(.text) + SIZEOF(.tdata));
-HIDDEN(ape_text_memsz = SIZEOF(.text) + SIZEOF(.tdata));
+HIDDEN(ape_text_filesz = SIZEOF(.text));
+HIDDEN(ape_text_memsz = SIZEOF(.text));
 HIDDEN(ape_text_align = PAGESIZE);
 HIDDEN(ape_text_rva = RVA(ape_text_vaddr));
 
 HIDDEN(ape_data_offset = ape_ram_offset + LOADADDR(.data) - ape_ram_paddr);
 HIDDEN(ape_data_paddr = LOADADDR(.data));
 HIDDEN(ape_data_vaddr = ADDR(.data));
-HIDDEN(ape_data_filesz = SIZEOF(.data));
-HIDDEN(ape_data_memsz = SIZEOF(.data));
+HIDDEN(ape_data_filesz = SIZEOF(.data) + SIZEOF(.tdata));
+HIDDEN(ape_data_memsz = SIZEOF(.data) + SIZEOF(.tdata));
 HIDDEN(ape_data_align = PAGESIZE);
 HIDDEN(ape_data_rva = RVA(ape_data_vaddr));
 
@@ -574,63 +560,16 @@ SHSTUB2(ape_loader_dd_count,
             ? ROUNDUP(ape_loader_end - ape_loader, PAGESIZE) / 64
             : 0);
 
-#if defined(APE_IS_SHELL_SCRIPT) && !IsTiny()
-
-HIDDEN(blink_aarch64_b0 = RVA(blink_aarch64) % 10 + 48);
-HIDDEN(blink_aarch64_b1 = RVA(blink_aarch64) < 10 ? 32 : RVA(blink_aarch64) / 10 % 10 + 48);
-HIDDEN(blink_aarch64_b2 = RVA(blink_aarch64) < 100 ? 32 : RVA(blink_aarch64) / 100 % 10 + 48);
-HIDDEN(blink_aarch64_b3 = RVA(blink_aarch64) < 1000 ? 32 : RVA(blink_aarch64) / 1000 % 10 + 48);
-HIDDEN(blink_aarch64_b4 = RVA(blink_aarch64) < 10000 ? 32 : RVA(blink_aarch64) / 10000 % 10 + 48);
-HIDDEN(blink_aarch64_b5 = RVA(blink_aarch64) < 100000 ? 32 : RVA(blink_aarch64) / 100000 % 10 + 48);
-HIDDEN(blink_aarch64_b6 = RVA(blink_aarch64) < 1000000 ? 32 : RVA(blink_aarch64) / 1000000 % 10 + 48);
-HIDDEN(blink_aarch64_b7 = RVA(blink_aarch64) < 10000000 ? 32 : RVA(blink_aarch64) / 10000000 % 10 + 48);
-HIDDEN(blink_aarch64_b8 = RVA(blink_aarch64) < 100000000 ? 32 : RVA(blink_aarch64) / 100000000 % 10 + 48);
-HIDDEN(blink_aarch64_b9 = RVA(blink_aarch64) < 1000000000 ? 32 : RVA(blink_aarch64) / 1000000000 % 10 + 48);
-
-HIDDEN(blink_aarch64_size_b0 = blink_aarch64_size % 10 + 48);
-HIDDEN(blink_aarch64_size_b1 = blink_aarch64_size < 10 ? 32 : blink_aarch64_size / 10 % 10 + 48);
-HIDDEN(blink_aarch64_size_b2 = blink_aarch64_size < 100 ? 32 : blink_aarch64_size / 100 % 10 + 48);
-HIDDEN(blink_aarch64_size_b3 = blink_aarch64_size < 1000 ? 32 : blink_aarch64_size / 1000 % 10 + 48);
-HIDDEN(blink_aarch64_size_b4 = blink_aarch64_size < 10000 ? 32 : blink_aarch64_size / 10000 % 10 + 48);
-HIDDEN(blink_aarch64_size_b5 = blink_aarch64_size < 100000 ? 32 : blink_aarch64_size / 100000 % 10 + 48);
-HIDDEN(blink_aarch64_size_b6 = blink_aarch64_size < 1000000 ? 32 : blink_aarch64_size / 1000000 % 10 + 48);
-HIDDEN(blink_aarch64_size_b7 = blink_aarch64_size < 10000000 ? 32 : blink_aarch64_size / 10000000 % 10 + 48);
-HIDDEN(blink_aarch64_size_b8 = blink_aarch64_size < 100000000 ? 32 : blink_aarch64_size / 100000000 % 10 + 48);
-HIDDEN(blink_aarch64_size_b9 = blink_aarch64_size < 1000000000 ? 32 : blink_aarch64_size / 1000000000 % 10 + 48);
-
-HIDDEN(blink_darwin_arm64_b0 = RVA(blink_darwin_arm64) % 10 + 48);
-HIDDEN(blink_darwin_arm64_b1 = RVA(blink_darwin_arm64) < 10 ? 32 : RVA(blink_darwin_arm64) / 10 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b2 = RVA(blink_darwin_arm64) < 100 ? 32 : RVA(blink_darwin_arm64) / 100 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b3 = RVA(blink_darwin_arm64) < 1000 ? 32 : RVA(blink_darwin_arm64) / 1000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b4 = RVA(blink_darwin_arm64) < 10000 ? 32 : RVA(blink_darwin_arm64) / 10000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b5 = RVA(blink_darwin_arm64) < 100000 ? 32 : RVA(blink_darwin_arm64) / 100000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b6 = RVA(blink_darwin_arm64) < 1000000 ? 32 : RVA(blink_darwin_arm64) / 1000000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b7 = RVA(blink_darwin_arm64) < 10000000 ? 32 : RVA(blink_darwin_arm64) / 10000000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b8 = RVA(blink_darwin_arm64) < 100000000 ? 32 : RVA(blink_darwin_arm64) / 100000000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_b9 = RVA(blink_darwin_arm64) < 1000000000 ? 32 : RVA(blink_darwin_arm64) / 1000000000 % 10 + 48);
-
-HIDDEN(blink_darwin_arm64_size_b0 = blink_darwin_arm64_size % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b1 = blink_darwin_arm64_size < 10 ? 32 : blink_darwin_arm64_size / 10 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b2 = blink_darwin_arm64_size < 100 ? 32 : blink_darwin_arm64_size / 100 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b3 = blink_darwin_arm64_size < 1000 ? 32 : blink_darwin_arm64_size / 1000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b4 = blink_darwin_arm64_size < 10000 ? 32 : blink_darwin_arm64_size / 10000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b5 = blink_darwin_arm64_size < 100000 ? 32 : blink_darwin_arm64_size / 100000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b6 = blink_darwin_arm64_size < 1000000 ? 32 : blink_darwin_arm64_size / 1000000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b7 = blink_darwin_arm64_size < 10000000 ? 32 : blink_darwin_arm64_size / 10000000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b8 = blink_darwin_arm64_size < 100000000 ? 32 : blink_darwin_arm64_size / 100000000 % 10 + 48);
-HIDDEN(blink_darwin_arm64_size_b9 = blink_darwin_arm64_size < 1000000000 ? 32 : blink_darwin_arm64_size / 1000000000 % 10 + 48);
-
-#endif /* APE_IS_SHELL_SCRIPT */
-
 #if SupportsMetal()
 HIDDEN(v_ape_realsectors =
-           MIN(0x70000 - IMAGE_BASE_REAL, ROUNDUP(RVA(_ezip), 512)) / 512);
-HIDDEN(v_ape_realbytes = v_ape_realsectors * 512);
-HIDDEN(v_ape_realdwords = v_ape_realsectors * (512 / 4));
-HIDDEN(v_ape_allsectors = ROUNDUP(RVA(_ezip), 512) / 512);
-HIDDEN(v_ape_allbytes = v_ape_allsectors * 512);
-HIDDEN(v_ape_highsectors = MIN(0xffff, v_ape_allsectors - v_ape_realsectors));
-TSSDESCSTUB2(_tss, _tss, _tss_end ? _tss_end - _tss - 1 : 0);
+           MIN(0x70000 - IMAGE_BASE_REAL,
+               ROUNDUP(RVA(_edata), 4096)) / 512);
+HIDDEN(v_ape_realslacksectors =
+           v_ape_realsectors - MIN(0x70000 - IMAGE_BASE_REAL,
+                                   ROUNDUP(RVA(_edata), 512)) / 512);
+HIDDEN(v_ape_realpages = v_ape_realsectors / (4096 / 512));
+HIDDEN(v_ape_highsectors =
+           (ROUNDUP(RVA(_edata), 512) / 512) - v_ape_realsectors);
 #endif
 
 /* ZIP End of Central Directory header */
@@ -712,7 +651,7 @@ CHURN(ADDR(.bss));
 CHURN(_start);
 CHURN(ape_phdrs);
 #if SupportsMetal()
-CHURN(v_ape_allsectors);
+CHURN(v_ape_realsectors);
 #endif
 #if SupportsXnu()
 CHURN(ape_macho);
@@ -776,7 +715,7 @@ ASSERT(IS2POW(ape_stack_memsz),
        "ape_stack_memsz must be a two power");
 
 ASSERT(ape_stack_vaddr % ape_stack_memsz == 0,
-       "ape_stack_vaddr must have ape_stack_memsz alignment; try using STATIC_STACK_ADDR(0x700000040000 & -ape_stack_memsz);");
+       "ape_stack_vaddr must have ape_stack_memsz alignment; try using STATIC_STACK_ADDR(0x700000040000 - ape_stack_memsz);");
 
 ASSERT(ALIGNOF(.tdata) <= TLS_ALIGNMENT && ALIGNOF(.tbss) <= TLS_ALIGNMENT,
        "_Thread_local _Alignof can't exceed TLS_ALIGNMENT");

ape/ape.mk

@@ -15,32 +15,9 @@
 
 PKGS += APE
 
-APE_FILES := $(wildcard ape/*.*)
-APE_HDRS = $(filter %.h,$(APE_FILES))
-APE_INCS = $(filter %.inc,$(APE_FILES))
-
 APE =	o/$(MODE)/ape/ape.o			\
 	o/$(MODE)/ape/ape.lds
 
-APELINK =					\
-	$(COMPILE)				\
-	-ALINK.ape				\
-	$(LINK)					\
-	$(LINKARGS)				\
-	$(OUTPUT_OPTION)
-
-ifeq ($(ARCH), aarch64)
-
-APE_SRCS = ape/ape.S
-APE_OBJS = o/$(MODE)/ape/ape.o
-APE_NO_MODIFY_SELF = $(APE)
-APE_COPY_SELF = $(APE)
-
-.PHONY: o/$(MODE)/ape
-o/$(MODE)/ape: $(APE)
-
-else
-
 APE_NO_MODIFY_SELF =				\
 	o/$(MODE)/ape/ape.lds			\
 	o/$(MODE)/ape/ape-no-modify-self.o
@@ -49,6 +26,13 @@ APE_COPY_SELF =					\
 	o/$(MODE)/ape/ape.lds			\
 	o/$(MODE)/ape/ape-copy-self.o
 
+APELINK =					\
+	$(COMPILE)				\
+	-ALINK.ape				\
+	$(LINK)					\
+	$(LINKARGS)				\
+	$(OUTPUT_OPTION)
+
 APE_LOADER_FLAGS =				\
 	-DNDEBUG				\
 	-iquote.				\
@@ -65,23 +49,39 @@ APE_LOADER_FLAGS =				\
 	 $(OUTPUT_OPTION)			\
 	$<
 
+APE_FILES := $(wildcard ape/*.*)
+APE_HDRS = $(filter %.h,$(APE_FILES))
+APE_INCS = $(filter %.inc,$(APE_FILES))
 APE_SRCS_C = ape/loader.c
 APE_SRCS_S = $(filter %.S,$(APE_FILES))
 APE_SRCS = $(APE_SRCS_C) $(APE_SRCS_S)
 APE_OBJS = $(APE_SRCS_S:%.S=o/$(MODE)/%.o)
 APE_CHECKS = $(APE_HDRS:%=o/%.ok)
 
+o/$(MODE)/ape/ape.lds:				\
+		ape/ape.lds			\
+		ape/macros.internal.h		\
+		ape/relocations.h		\
+		libc/intrin/bits.h		\
+		libc/thread/tls.h		\
+		libc/calls/struct/timespec.h	\
+		libc/dce.h			\
+		libc/elf/def.h			\
+		libc/elf/pf2prot.internal.h	\
+		libc/macros.internal.h		\
+		libc/nt/pedef.internal.h	\
+		libc/str/str.h			\
+		libc/zip.h
+
 o/$(MODE)/ape/public/ape.lds: OVERRIDE_CPPFLAGS += -UCOSMO
 o/$(MODE)/ape/public/ape.lds:			\
 		ape/public/ape.lds		\
 		ape/ape.lds			\
-		ape/ape.internal.h		\
 		ape/macros.internal.h		\
 		ape/relocations.h		\
 		libc/intrin/bits.h		\
 		libc/thread/tls.h		\
 		libc/calls/struct/timespec.h	\
-		libc/thread/thread.h		\
 		libc/dce.h			\
 		libc/elf/def.h			\
 		libc/elf/pf2prot.internal.h	\
@@ -99,14 +99,12 @@ o/$(MODE)/ape/ape-no-modify-self.o:		\
 		ape/macros.internal.h		\
 		ape/notice.inc			\
 		ape/relocations.h		\
-		ape/ape.internal.h		\
 		libc/dce.h			\
 		libc/elf/def.h			\
 		libc/intrin/asancodes.h		\
 		libc/macho.internal.h		\
 		libc/macros.internal.h		\
 		libc/nexgen32e/uart.internal.h	\
-		libc/calls/metalfile.internal.h	\
 		libc/nexgen32e/vidya.internal.h	\
 		libc/nt/pedef.internal.h	\
 		libc/runtime/e820.internal.h	\
@@ -114,8 +112,6 @@ o/$(MODE)/ape/ape-no-modify-self.o:		\
 		libc/runtime/pc.internal.h	\
 		libc/runtime/symbolic.h		\
 		libc/sysv/consts/prot.h		\
-		ape/blink-aarch64.gz		\
-		ape/blink-darwin-arm64.gz	\
 		o/$(MODE)/ape/ape.elf
 	@$(COMPILE)				\
 		-AOBJECTIFY.S			\
@@ -129,23 +125,19 @@ o/$(MODE)/ape/ape-copy-self.o:			\
 		ape/macros.internal.h		\
 		ape/notice.inc			\
 		ape/relocations.h		\
-		ape/ape.internal.h		\
 		libc/dce.h			\
 		libc/elf/def.h			\
 		libc/intrin/asancodes.h		\
 		libc/macho.internal.h		\
 		libc/macros.internal.h		\
 		libc/nexgen32e/uart.internal.h	\
-		libc/calls/metalfile.internal.h	\
 		libc/nexgen32e/vidya.internal.h	\
 		libc/nt/pedef.internal.h	\
 		libc/runtime/e820.internal.h	\
 		libc/runtime/mman.internal.h	\
 		libc/runtime/pc.internal.h	\
 		libc/runtime/symbolic.h		\
-		libc/sysv/consts/prot.h		\
-		ape/blink-aarch64.gz		\
-		ape/blink-darwin-arm64.gz
+		libc/sysv/consts/prot.h
 	@$(COMPILE)				\
 		-AOBJECTIFY.S			\
 		$(OBJECTIFY.S)			\
@@ -190,30 +182,3 @@ o/$(MODE)/ape:	$(APE_CHECKS)			\
 		o/$(MODE)/ape/ape.macho		\
 		o/$(MODE)/ape/ape-copy-self.o	\
 		o/$(MODE)/ape/ape-no-modify-self.o
-
-endif
-
-# these assembly files are safe to build on aarch64
-o/$(MODE)/ape/ape.o: ape/ape.S
-	@$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) -c $<
-
-o/$(MODE)/ape/ape.o:				\
-		ape/blink-aarch64.gz		\
-		ape/blink-darwin-arm64.gz
-
-o/$(MODE)/ape/ape.lds:				\
-		ape/ape.lds			\
-		ape/macros.internal.h		\
-		ape/relocations.h		\
-		ape/ape.internal.h		\
-		libc/intrin/bits.h		\
-		libc/thread/tls.h		\
-		libc/calls/struct/timespec.h	\
-		libc/thread/thread.h		\
-		libc/dce.h			\
-		libc/elf/def.h			\
-		libc/elf/pf2prot.internal.h	\
-		libc/macros.internal.h		\
-		libc/nt/pedef.internal.h	\
-		libc/str/str.h			\
-		libc/zip.h

ape/apeinstall.sh

@@ -1,6 +1,6 @@
 #!/bin/sh
 
-if [ "$(id -u)" -eq 0 ]; then
+if [ $UID -eq 0 ]; then
   SUDO=
 else
   SUDO=sudo
@@ -97,8 +97,6 @@ if [ x"$(uname -s)" = xLinux ]; then
   echo you may need to edit configs to persist across reboot >&2
   echo '$SUDO sh -c "echo '"'"':APE:M::MZqFpD::/usr/bin/ape:'"'"' >/proc/sys/fs/binfmt_misc/register"' >&2
   $SUDO sh -c "echo ':APE:M::MZqFpD::/usr/bin/ape:' >/proc/sys/fs/binfmt_misc/register" || exit
-  echo '$SUDO sh -c "echo '"'"':APE-jart:M::jartsr::/usr/bin/ape:'"'"' >/proc/sys/fs/binfmt_misc/register"' >&2
-  $SUDO sh -c "echo ':APE-jart:M::jartsr::/usr/bin/ape:' >/proc/sys/fs/binfmt_misc/register" || exit
   echo done >&2
 
   if [ x"$(cat /proc/sys/fs/binfmt_misc/status)" = xdisabled ]; then

ape/apeuninstall.sh

@@ -8,19 +8,17 @@ fi
 
 {
   echo
-  echo "APE Uninstaller intends to run (in pseudo-shell)"
+  echo "APE Uninstaller intends to run"
   echo
-  echo "    sudo echo -1 into /proc/sys/fs/binfmt_misc/APE*"
-  echo "    sudo rm -f /usr/bin/ape ~/.ape o/tmp/.ape /tmp/.ape"
+  echo "    $SUDO sh -c 'echo -1 >/proc/sys/fs/binfmt_misc/APE'"
+  echo "    $SUDO rm -f /usr/bin/ape ~/.ape o/tmp/.ape /tmp/.ape"
   echo
   echo "You may then use ape/apeinstall.sh to reinstall it"
   echo
 } >&2
 
 set -ex
-for f in /proc/sys/fs/binfmt_misc/APE*; do
-  if [ -f $f ]; then
-    $SUDO sh -c "echo -1 >$f" || exit
-  fi
-done
+if [ -f /proc/sys/fs/binfmt_misc/APE ]; then
+  $SUDO sh -c 'echo -1 >/proc/sys/fs/binfmt_misc/APE' || exit
+fi
 $SUDO rm -f /usr/bin/ape ~/.ape o/tmp/.ape o/tmp/ape /tmp/.ape /tmp/ape || exit

ape/idata.internal.h

@@ -32,87 +32,79 @@
 //	@see	ape/ape.lds
 //	@see	winimp
 .macro	.imp	dll:req fn:req actual:req hint
-#ifdef __x86_64__
-	.dll	"\dll"
-	.section ".piro.data.sort.iat.2.\dll\().2.\actual","aw",@progbits
+	.dll	\dll
+	.section .piro.data.sort.iat.2.\dll\().2.\actual,"aw",@progbits
 	.type	\fn,@object
 	.align	__SIZEOF_POINTER__
-\fn:	.quad	RVA(("\dll\().\actual"))
+\fn:	.quad	RVA((\dll\().\actual))
 	.size	\fn,.-\fn
 	.globl	\fn
 	.hidden	\fn
 	.previous
-	.section ".idata.ro.ilt.\dll\().2.\actual","a",@progbits
-".Lidata.ilt.\dll\().\actual":
-	.quad	RVA("\dll\().\actual")
-	.type	".Lidata.ilt.\dll\().\actual",@object
-	.size	".Lidata.ilt.\dll\().\actual",.-".Lidata.ilt.\dll\().\actual"
+	.section .idata.ro.ilt.\dll\().2.\actual,"a",@progbits
+.Lidata.ilt.\dll\().\actual:
+	.quad	RVA((\dll\().\actual))
+	.type	.Lidata.ilt.\dll\().\actual,@object
+	.size	.Lidata.ilt.\dll\().\actual,.-.Lidata.ilt.\dll\().\actual
 	.previous
-	.section ".idata.ro.hnt.\dll\().2.\actual","a",@progbits
-"\dll\().\actual":
-	.ifnb	\hint			// hint i.e. guess function ordinal
+	.section .idata.ro.hnt.\dll\().2.\actual,"a",@progbits
+\dll\().\actual:
+	.ifnb	\hint			# hint i.e. guess function ordinal
 	.short	\hint
 	.else
 	.short	0
 	.endif
 	.asciz	"\actual"
-	.align	2			// documented requirement
-	.globl	"\dll\().\actual"
-	.hidden	"\dll\().\actual"
-	.type	"\dll\().\actual",@object
-	.size	"\dll\().\actual",.-"\dll\().\actual"
+	.align	2			# documented requirement
+	.globl	\dll\().\actual
+	.hidden	\dll\().\actual
+	.type	\dll\().\actual,@object
+	.size	\dll\().\actual,.-\dll\().\actual
 	.previous
-#else
-	.section ".data.nt.\actual","aw",@progbits
-	.globl	"\fn"
-	.balign	8
-	.weak	"\actual"
-"\fn":	.quad	"\actual"
-#endif
 .endm
 
 //	Defines DLL import.
 //	@note	this is an implementation detail of .imp
 .macro	.dll	name:req
-  .section ".idata.ro.idt.2.\name","aG",@progbits,"\name",comdat
-	.equ	".Lidata.idt.\name",.
-	.long	RVA("idata.ilt.\name")		// ImportLookupTable
-	.long	0				// TimeDateStamp
-	.long	0				// ForwarderChain
-	.long	RVA(".Lidata.str.\name")	// DllNameRva
-	.long	RVA("idata.iat.\name")		// ImportAddressTable
-	.type	".Lidata.idt.\name",@object
-	.size	".Lidata.idt.\name",.-".Lidata.idt.\name"
+  .section .idata.ro.idt.2.\name,"aG",@progbits,\name,comdat
+	.equ	.Lidata.idt.\name,.
+	.long	RVA(idata.ilt.\name)		# ImportLookupTable
+	.long	0				# TimeDateStamp
+	.long	0				# ForwarderChain
+	.long	RVA(.Lidata.str.\name)		# DllNameRva
+	.long	RVA(idata.iat.\name)		# ImportAddressTable
+	.type	.Lidata.idt.\name,@object
+	.size	.Lidata.idt.\name,.-.Lidata.idt.\name
   .previous
-  .section ".idata.ro.ilt.\name\().1","aG",@progbits,"\name",comdat
+  .section .idata.ro.ilt.\name\().1,"aG",@progbits,\name,comdat
 	.align	__SIZEOF_POINTER__
-	.type	"idata.ilt.\name",@object
-"idata.ilt.\name":
+	.type	idata.ilt.\name,@object
+idata.ilt.\name:
 	.previous/*
 	...
 	decentralized content
 	...
-	*/.section ".idata.ro.ilt.\name\().3","aG",@progbits,"\name",comdat
+	*/.section .idata.ro.ilt.\name\().3,"aG",@progbits,\name,comdat
 	.quad	0
   .previous
-  .section ".idata.ro.hnt.\name\().1","aG",@progbits,"\name",comdat
+  .section .idata.ro.hnt.\name\().1,"aG",@progbits,\name,comdat
 	.align	__SIZEOF_POINTER__
-	.type	"idata.hnt.\name",@object
-	.equ	"idata.hnt.\name",.
+	.type	idata.hnt.\name,@object
+	.equ	idata.hnt.\name,.
   .previous
-  .section ".piro.data.sort.iat.2.\name\().1","awG",@progbits,"\name",comdat
+  .section .piro.data.sort.iat.2.\name\().1,"awG",@progbits,\name,comdat
 	.align	__SIZEOF_POINTER__
-	.type	"idata.iat.\name",@object
-"idata.iat.\name":
+	.type	idata.iat.\name,@object
+idata.iat.\name:
 	.previous/*
 	...
 	decentralized content
 	...
-	*/.section ".piro.data.sort.iat.2.\name\().3","awG",@progbits,"\name",comdat
+	*/.section .piro.data.sort.iat.2.\name\().3,"awG",@progbits,\name,comdat
 	.quad	0
   .previous
   .section .rodata.str1.1,"aSM",@progbits,1
-".Lidata.str.\name":
+.Lidata.str.\name:
 	.asciz	"\name\().dll"
   .previous
 .endm

ape/loader-elf.S

@@ -25,7 +25,7 @@
 //	APE Loader Executable Structure
 //	Linux, FreeBSD, NetBSD, OpenBSD
 
-	.balign	8
+	.align	8
 ehdr:	.ascii	"\177ELF"
 	.byte	ELFCLASS64
 	.byte	ELFDATA2LSB
@@ -47,7 +47,7 @@ ehdr:	.ascii	"\177ELF"
 	.word	0			# e_shstrndx
 	.endobj	ehdr,globl
 
-	.balign	8
+	.align	8
 phdrs:	.long	PT_LOAD			# p_type
 	.long	PF_R|PF_X		# p_flags
 	.quad	0			# p_offset
@@ -89,18 +89,18 @@ note:	.long	2f-1f
 	.long	4f-3f
 	.long	1
 1:	.asciz	"OpenBSD"
-2:	.balign	4
+2:	.align	4
 3:	.long	0
 4:	.long	2f-1f
 	.long	4f-3f
 	.long	1
 1:	.asciz	"NetBSD"
-2:	.balign	4
+2:	.align	4
 3:	.long	901000000
 4:	.endobj	note
 	notesize = . - note
 
-	.balign	64,0				# for ape.S dd
+	.align	64,0				# for ape.S dd
 	.org	0x180				# for ape.S dd
 
 //	APE Loader XNU Header
@@ -175,7 +175,7 @@ macho:	.long	0xFEEDFACE+1
 510:	.quad	0				# rax
 	.quad	0				# rbx
 	.quad	0				# rcx
-	.quad	_HOSTXNU			# rdx
+	.quad	XNU				# rdx
 	.quad	0				# rdi
 	.quad	0				# rsi
 	.quad	0				# rbp
@@ -197,7 +197,7 @@ macho:	.long	0xFEEDFACE+1
 60:
 	.endobj	macho
 
-	.balign	64,0				# for ape.S dd
+	.align	64,0				# for ape.S dd
 	.org	0x400				# for ape.S dd
 
 //	Ape Loader Entrpoint
@@ -221,7 +221,7 @@ _start:
 	jne	0f
 	cmp	$+1,%edx
 	jne	0f
-	mov	$_HOSTXNU,%dl
+	mov	$XNU,%dl
 	xor	%ecx,%ecx
 
 0:	mov	%rsp,%rsi

ape/loader-macho.S

@@ -23,7 +23,7 @@
 
 //	APE Loader Executable Structure for XNU
 
-	.balign	4096
+	.align	4096
 macho:	.long	0xFEEDFACE+1
 	.long	MAC_CPU_NEXGEN32E
 	.long	MAC_CPU_NEXGEN32E_ALL
@@ -90,7 +90,7 @@ macho:	.long	0xFEEDFACE+1
 510:	.quad	0				# rax
 	.quad	0				# rbx
 	.quad	0				# rcx
-	.quad	_HOSTXNU			# rdx
+	.quad	XNU				# rdx
 	.quad	0				# rdi
 	.quad	0				# rsi
 	.quad	0				# rbp
@@ -112,7 +112,7 @@ macho:	.long	0xFEEDFACE+1
 60:
 	.endobj	macho,globl
 
-	.balign	64
+	.align	64
 _start:
 
 //	Hack for detecting M1 Rosetta environment.
@@ -121,7 +121,7 @@ _start:
 	jne	0f
 	cmp	$+1,%edx
 	jne	0f
-	mov	$_HOSTXNU,%dl
+	mov	$XNU,%dl
 	xor	%ecx,%ecx
 
 0:	mov	%rsp,%rsi

ape/macros.internal.h

@@ -180,20 +180,6 @@
  .stub	\name\()_bcs\n,long
 .endm
 
-//	Task State Segment Descriptor Entries.
-.macro	.tssdescstub name:req
- .ifndef \name
-  .weak	\name
-  .set	\name,0
- .endif
- .ifndef \name\()_end
-  .weak	\name\()_end
-  .set	\name\()_end,0
- .endif
- .stub	\name\()_desc_ent0,quad
- .stub	\name\()_desc_ent1,quad
-.endm
-
 /* clang-format on */
 #elif defined(__LINKER__)
 
@@ -271,22 +257,5 @@
                        (X) % 10 * 0x1000000        \
                      : 0xffffffffffffffff)
 
-/**
- * Laying out the GDT entries for a TSS for bare metal operation.
- */
-#define TSSDESCSTUB2(SYM, BASE, LIM)                 \
-  HIDDEN(SYM##_desc_ent0 = TSSDESC_ENT0(BASE, LIM)); \
-  HIDDEN(SYM##_desc_ent1 = TSSDESC_ENT1(BASE));      \
-  ASSERT((LIM) >= 0 && (LIM) <= 0xffff, "bare metal TSS is suspiciously fat")
-#define TSSDESC_ENT0(BASE, LIM)                \
-  (((LIM)        <<  0 & 0x000000000000ffff) | \
-   ((BASE)       << 16 & 0x000000ffffff0000) | \
-    0x89         << 40                       | \
-   ((LIM)  >> 16 << 48 & 0x000f000000000000) | \
-    0x2          << 52                       | \
-   ((BASE) >> 24 << 56 & 0xff00000000000000))
-#define TSSDESC_ENT1(BASE)                     \
-   ((BASE) >> 32 <<  0 & 0x00000000ffffffff)
-
 #endif /* __ASSEMBLER__ */
 #endif /* APE_MACROS_H_ */

ape/sections.internal.h

@@ -1,34 +0,0 @@
-#ifndef COSMOPOLITAN_APE_SECTIONS_INTERNAL_H_
-#define COSMOPOLITAN_APE_SECTIONS_INTERNAL_H_
-#if !(__ASSEMBLER__ + __LINKER__ + 0)
-COSMOPOLITAN_C_START_
-
-extern unsigned char _base[];
-extern unsigned char _ehead[];
-extern unsigned char _etext[];
-extern unsigned char _edata[];
-extern unsigned char _ezip[];
-extern unsigned char _end[];
-extern unsigned char _ereal[];
-extern unsigned char _tdata_start[];
-extern unsigned char _tdata_end[];
-extern unsigned char _tbss_start[];
-extern unsigned char _tbss_end[];
-extern unsigned char __privileged_start[];
-extern unsigned char __privileged_addr[];
-extern unsigned char __privileged_size[];
-extern unsigned char __privileged_end[];
-extern unsigned char __test_start[];
-extern unsigned char __ro[];
-extern unsigned char *__relo_start[];
-extern unsigned char *__relo_end[];
-extern uint8_t __zip_start[];
-extern uint8_t __zip_end[];
-extern uint8_t __data_start[];
-extern uint8_t __data_end[];
-extern uint8_t __bss_start[];
-extern uint8_t __bss_end[];
-
-COSMOPOLITAN_C_END_
-#endif /* !(__ASSEMBLER__ + __LINKER__ + 0) */
-#endif /* COSMOPOLITAN_APE_SECTIONS_INTERNAL_H_ */

build/config.mk

@@ -17,11 +17,6 @@ CONFIG_CPPFLAGS += -DSYSDEBUG
 TARGET_ARCH ?= -msse3
 endif
 
-ifeq ($(MODE), aarch64)
-CONFIG_CCFLAGS += -O2 $(BACKTRACES) #$(FTRACE)
-CONFIG_CPPFLAGS += -DSYSDEBUG
-endif
-
 # Fast Build Mode
 #
 #   - `make MODE=fastbuild`
@@ -32,9 +27,9 @@ endif
 #   - Limited Backtraces
 #   - Compiles 28% faster
 #
-ifeq ($(MODE), fastbuild)
+ifeq ($(MODE),fastbuild)
 CONFIG_CCFLAGS += $(BACKTRACES) $(FTRACE) -O
-CONFIG_CPPFLAGS += -DSYSDEBUG -DDWARFLESS
+CONFIG_CPPFLAGS += -DSYSDEBUG
 CONFIG_OFLAGS += -g0
 CONFIG_LDFLAGS += -S
 TARGET_ARCH ?= -msse3
@@ -107,7 +102,7 @@ endif
 #   - Larger binaries
 #
 ifeq ($(MODE), asan)
-CONFIG_CCFLAGS += $(BACKTRACES) -O2 -DSYSDEBUG
+CONFIG_CCFLAGS += $(BACKTRACES) -O2
 CONFIG_COPTS += -fsanitize=address
 TARGET_ARCH ?= -msse3
 endif
@@ -130,22 +125,6 @@ TARGET_ARCH ?= -msse3
 OVERRIDE_CCFLAGS += -fno-pie
 endif
 
-# System Five Mode
-#
-#   - `make MODE=sysv`
-#   - Optimized
-#   - Backtraces
-#   - Debuggable
-#   - Syscall tracing
-#   - Function tracing
-#   - No Windows bloat!
-#
-ifeq ($(MODE), sysv)
-CONFIG_CCFLAGS += $(BACKTRACES) $(FTRACE) -O2
-CONFIG_CPPFLAGS += -DSYSDEBUG -DSUPPORT_VECTOR=121
-TARGET_ARCH ?= -msse3
-endif
-
 # Tiny Mode
 #
 #   - `make MODE=tiny`
@@ -172,12 +151,7 @@ CONFIG_CCFLAGS +=			\
 	-fschedule-insns2		\
 	-fomit-frame-pointer		\
 	-momit-leaf-frame-pointer	\
-	-foptimize-sibling-calls	\
-	-DDWARFLESS
-CONFIG_OFLAGS +=			\
-	-g0
-CONFIG_LDFLAGS +=			\
-	-S
+	-foptimize-sibling-calls
 TARGET_ARCH ?=				\
 	-msse3
 PYFLAGS +=				\
@@ -185,31 +159,6 @@ PYFLAGS +=				\
 	-B
 endif
 
-ifeq ($(MODE), aarch64-tiny)
-CONFIG_CPPFLAGS +=			\
-	-DTINY				\
-	-DNDEBUG			\
-	-DTRUSTWORTHY
-CONFIG_CCFLAGS +=			\
-	-Os				\
-	-fno-align-functions		\
-	-fno-align-jumps		\
-	-fno-align-labels		\
-	-fno-align-loops		\
-	-fschedule-insns2		\
-	-fomit-frame-pointer		\
-	-momit-leaf-frame-pointer	\
-	-foptimize-sibling-calls	\
-	-DDWARFLESS
-CONFIG_OFLAGS +=			\
-	-g0
-CONFIG_LDFLAGS +=			\
-	-S
-PYFLAGS +=				\
-	-O2				\
-	-B
-endif
-
 # Linux-Only Tiny Mode
 #
 #   - `make MODE=tinylinux`
@@ -228,14 +177,9 @@ CONFIG_CPPFLAGS +=			\
 	-DTINY				\
 	-DNDEBUG			\
 	-DTRUSTWORTHY			\
-	-DSUPPORT_VECTOR=1		\
-	-DDWARFLESS
+	-DSUPPORT_VECTOR=1
 DEFAULT_COPTS +=			\
 	-mred-zone
-CONFIG_OFLAGS +=			\
-	-g0
-CONFIG_LDFLAGS +=			\
-	-S
 CONFIG_CCFLAGS +=			\
 	-Os				\
 	-fno-align-functions		\
@@ -265,14 +209,9 @@ CONFIG_CPPFLAGS +=		\
 	-DTINY			\
 	-DNDEBUG		\
 	-DTRUSTWORTHY		\
-	-DSUPPORT_VECTOR=113	\
-	-DDWARFLESS
+	-DSUPPORT_VECTOR=113
 DEFAULT_COPTS +=		\
 	-mred-zone
-CONFIG_OFLAGS +=		\
-	-g0
-CONFIG_LDFLAGS +=		\
-	-S
 CONFIG_CCFLAGS +=		\
 	-Os			\
 	-fno-align-functions	\
@@ -301,8 +240,7 @@ CONFIG_CPPFLAGS +=		\
 	-DTINY			\
 	-DNDEBUG		\
 	-DTRUSTWORTHY		\
-	-DSUPPORT_VECTOR=121	\
-	-DDWARFLESS
+	-DSUPPORT_VECTOR=121
 DEFAULT_COPTS +=		\
 	-mred-zone
 CONFIG_CCFLAGS +=		\
@@ -311,10 +249,6 @@ CONFIG_CCFLAGS +=		\
 	-fno-align-jumps	\
 	-fno-align-labels	\
 	-fno-align-loops
-CONFIG_OFLAGS +=		\
-	-g0
-CONFIG_LDFLAGS +=		\
-	-S
 TARGET_ARCH ?=			\
 	-msse3
 endif
@@ -337,44 +271,17 @@ CONFIG_CPPFLAGS +=		\
 	-DTINY			\
 	-DNDEBUG		\
 	-DTRUSTWORTHY		\
-	-DSUPPORT_VECTOR=251	\
-	-DDWARFLESS
+	-DSUPPORT_VECTOR=251
 CONFIG_CCFLAGS +=		\
 	-Os			\
 	-fno-align-functions	\
 	-fno-align-jumps	\
 	-fno-align-labels	\
 	-fno-align-loops
-CONFIG_OFLAGS +=		\
-	-g0
-CONFIG_LDFLAGS +=		\
-	-S
 TARGET_ARCH ?=			\
 	-msse3
 endif
 
-# GCC11 Mode
-# https://justine.lol/compilers/x86_64-linux-musl__x86_64-linux-musl__g++-11.2.0.tar.xz
-ifeq ($(MODE), gcc11)
-.UNVEIL += rx:/opt/gcc11
-CONFIG_CCFLAGS += $(BACKTRACES) $(FTRACE) -DSYSDEBUG -O2
-AS = /opt/gcc11/bin/x86_64-linux-musl-as
-CC = /opt/gcc11/bin/x86_64-linux-musl-gcc
-CXX = /opt/gcc11/bin/x86_64-linux-musl-g++
-CXXFILT = /opt/gcc11/bin/x86_64-linux-musl-c++filt
-LD = /opt/gcc11/bin/x86_64-linux-musl-ld.bfd
-NM = /opt/gcc11/bin/x86_64-linux-musl-nm
-GCC = /opt/gcc11/bin/x86_64-linux-musl-gcc
-STRIP = /opt/gcc11/bin/x86_64-linux-musl-strip
-OBJCOPY = /opt/gcc11/bin/x86_64-linux-musl-objcopy
-OBJDUMP = /opt/gcc11/bin/x86_64-linux-musl-objdump
-ADDR2LINE = /opt/gcc11/bin/x86_64-linux-musl-addr2line
-CONFIG_CCFLAGS += $(BACKTRACES) $(FTRACE) -O2 -Wno-stringop-overread
-CONFIG_CFLAGS += -Wno-old-style-definition
-CONFIG_CPPFLAGS += -DNDEBUG -DSYSDEBUG
-TARGET_ARCH ?= -msse3
-endif
-
 # LLVM Mode
 ifeq ($(MODE), llvm)
 TARGET_ARCH ?= -msse3

build/definitions.mk

@@ -45,6 +45,7 @@
 LC_ALL = C
 SOURCE_DATE_EPOCH = 0
 
+TAGS ?= /usr/bin/ctags  # emacs source builds or something breaks it
 ARFLAGS = rcsD
 ZFLAGS ?=
 XARGS ?= xargs -P4 -rs8000
@@ -56,7 +57,6 @@ TMPDIR = o/tmp
 AR = build/bootstrap/ar.com
 CP = build/bootstrap/cp.com
 RM = build/bootstrap/rm.com -f
-GZIP = build/bootstrap/gzip.com
 ECHO = build/bootstrap/echo.com
 TOUCH = build/bootstrap/touch.com
 PKG = build/bootstrap/package.com
@@ -73,34 +73,32 @@ IMAGE_BASE_VIRTUAL ?= 0x400000
 IGNORE := $(shell $(ECHO) -2 ♥cosmo)
 IGNORE := $(shell $(MKDIR) o/tmp)
 
-ifneq ($(findstring aarch64,$(MODE)),)
-ARCH = aarch64
-VM = o/third_party/qemu/qemu-aarch64
-else
-ARCH = x86_64
-endif
-
-ifneq ("$(wildcard o/third_party/gcc/bin/x86_64-pc-linux-gnu-*)","")
-PREFIX = o/third_party/gcc/bin/x86_64-pc-linux-gnu-
+ifneq ("$(wildcard o/third_party/gcc/bin/x86_64-pc-linux-gnu-as.exe)","")
+AS = o/third_party/gcc/bin/x86_64-pc-linux-gnu-as.exe
+CC = o/third_party/gcc/bin/x86_64-pc-linux-gnu-gcc.exe
+CXX = o/third_party/gcc/bin/x86_64-pc-linux-gnu-g++.exe
+CXXFILT = o/third_party/gcc/bin/x86_64-pc-linux-gnu-c++filt.exe
+LD = o/third_party/gcc/bin/x86_64-pc-linux-gnu-ld.bfd.exe
+NM = o/third_party/gcc/bin/x86_64-pc-linux-gnu-nm.exe
+GCC = o/third_party/gcc/bin/x86_64-pc-linux-gnu-gcc.exe
+STRIP = o/third_party/gcc/bin/x86_64-pc-linux-gnu-strip.exe
+OBJCOPY = o/third_party/gcc/bin/x86_64-pc-linux-gnu-objcopy.exe
+OBJDUMP = o/third_party/gcc/bin/x86_64-pc-linux-gnu-objdump.exe
+ADDR2LINE = $(PWD)/o/third_party/gcc/bin/x86_64-pc-linux-gnu-addr2line.exe
 else
 IGNORE := $(shell build/bootstrap/unbundle.com)
-PREFIX = o/third_party/gcc/bin/x86_64-linux-musl-
+AS = o/third_party/gcc/bin/x86_64-linux-musl-as
+CC = o/third_party/gcc/bin/x86_64-linux-musl-gcc
+CXX = o/third_party/gcc/bin/x86_64-linux-musl-g++
+CXXFILT = o/third_party/gcc/bin/x86_64-linux-musl-c++filt
+LD = o/third_party/gcc/bin/x86_64-linux-musl-ld.bfd
+NM = o/third_party/gcc/bin/x86_64-linux-musl-nm
+GCC = o/third_party/gcc/bin/x86_64-linux-musl-gcc
+STRIP = o/third_party/gcc/bin/x86_64-linux-musl-strip
+OBJCOPY = o/third_party/gcc/bin/x86_64-linux-musl-objcopy
+OBJDUMP = o/third_party/gcc/bin/x86_64-linux-musl-objdump
+ADDR2LINE = $(PWD)/o/third_party/gcc/bin/x86_64-linux-musl-addr2line
 endif
-ifeq ($(ARCH), aarch64)
-PREFIX = o/third_party/gcc/bin/aarch64-linux-musl-
-endif
-
-AS = $(PREFIX)as
-CC = $(PREFIX)gcc
-CXX = $(PREFIX)g++
-CXXFILT = $(PREFIX)c++filt
-LD = $(PREFIX)ld.bfd
-NM = $(PREFIX)nm
-GCC = $(PREFIX)gcc
-STRIP = $(PREFIX)strip
-OBJCOPY = $(PREFIX)objcopy
-OBJDUMP = $(PREFIX)objdump
-ADDR2LINE = $(PWD)/$(PREFIX)addr2line
 
 export ADDR2LINE
 export LC_ALL
@@ -115,27 +113,20 @@ else
 TMPSAFE = $(TMPDIR)/
 endif
 
-ifneq ($(ARCH), aarch64)
-MNO_FENTRY = -mno-fentry
-endif
-
 FTRACE =								\
 	-pg
 
 BACKTRACES =								\
+	-fno-schedule-insns2						\
 	-fno-omit-frame-pointer						\
 	-fno-optimize-sibling-calls					\
 	-mno-omit-leaf-frame-pointer
 
-ifneq ($(ARCH), aarch64)
-BACKTRACES += -fno-schedule-insns2
-endif
-
 SANITIZER =								\
 	-fsanitize=address
 
 NO_MAGIC =								\
-	$(MNO_FENTRY)							\
+	-mno-fentry							\
 	-fno-stack-protector						\
 	-fwrapv								\
 	-fno-sanitize=all
@@ -157,24 +148,20 @@ DEFAULT_CCFLAGS =							\
 
 DEFAULT_OFLAGS =							\
 	-g								\
-	-gdwarf-4							\
 	-gdescribe-dies
 
 DEFAULT_COPTS =								\
+	-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
-
-ifneq ($(ARCH), aarch64)
-DEFAULT_COPTS +=							\
-	-mno-red-zone							\
+	-fno-semantic-interposition					\
 	-mno-tls-direct-seg-refs
-endif
 
 MATHEMATICAL =								\
 	-O3								\
@@ -208,6 +195,7 @@ DEFAULT_ASFLAGS =							\
 DEFAULT_LDFLAGS =							\
 	-static								\
 	-nostdlib							\
+	-melf_x86_64							\
 	--gc-sections							\
 	--build-id=none							\
 	--no-dynamic-linker						\
@@ -344,7 +332,7 @@ OBJECTIFY.greg.c =							\
 	-fno-optimize-sibling-calls					\
 	-fno-sanitize=all						\
 	-ffreestanding							\
-	$(MNO_FENTRY)							\
+	-mno-fentry							\
 	-fwrapv								\
 	-c
 
@@ -384,7 +372,7 @@ OBJECTIFY.ncabi.c =							\
 	$(OBJECTIFY.c.flags)						\
 	-mno-sse							\
 	-mfpmath=387							\
-	$(MNO_FENTRY)							\
+	-mno-fentry							\
 	-fno-stack-protector						\
 	-fno-instrument-functions					\
 	-fno-optimize-sibling-calls					\
@@ -403,7 +391,7 @@ OBJECTIFY.ncabi.c =							\
 OBJECTIFY.initabi.c =							\
 	$(GCC)								\
 	$(OBJECTIFY.c.flags)						\
-	$(MNO_FENTRY)							\
+	-mno-fentry							\
 	-fno-stack-protector						\
 	-fno-instrument-functions					\
 	-fno-optimize-sibling-calls					\

build/htags

@@ -43,9 +43,6 @@
 #     '(progn
 #        (add-hook 'c-mode-common-hook 'jart-c-mode-common-hook)))
 
-TAGS="$1"
-shift
-
 # ctags doesn't understand atomics, e.g.
 #   extern char **environ;
 set -- --regex-c='/_Atomic(\([^)]*\))/\1/b' "$@"
@@ -66,7 +63,7 @@ set -- --regex-c='/^extern [^(]*(\*const \([^)]*\))(/\1/b' "$@"
 #   struct WorstSoftwareEver;
 set -- --regex-c='/^struct.*;$/uehocruehcroue/b' "$@"
 
-exec $TAGS                                                        \
+exec ${TAGS:-ctags}                                               \
      -e                                                           \
      --langmap=c:.c.h                                             \
      --exclude=libc/nt/struct/imagefileheader.internal.h          \

build/objdump

@@ -1,7 +0,0 @@
-#!/bin/sh
-for last; do true; done
-if printf '%s\n' "$last" | grep aarch64 >/dev/null 2>&1; then
-  exec o/third_party/gcc/bin/aarch64-linux-musl-objdump "$@"
-else
-  exec o/third_party/gcc/bin/x86_64-linux-musl-objdump "$@"
-fi

build/rules.mk

@@ -16,14 +16,25 @@
 
 MAKEFLAGS += --no-builtin-rules
 
+o/%.o: %.s                         ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
+o/%.o: o/%.s                       ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
+o/%.s: %.S                         ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) $<
+o/%.s: o/%.S                       ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) $<
+o/%.o: %.S                         ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
+o/%.o: o/%.S                       ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
 o/%.lds: %.lds                     ; @$(COMPILE) -APREPROCESS $(PREPROCESS.lds) $(OUTPUT_OPTION) $<
 o/%.inc: %.h                       ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) -D__ASSEMBLER__ -P $<
 o/%.greg.o: %.greg.c               ; @$(COMPILE) -AOBJECTIFY.greg $(OBJECTIFY.greg.c) $(OUTPUT_OPTION) $<
+
 o/$(MODE)/%: o/$(MODE)/%.dbg       ; @$(COMPILE) -AOBJCOPY -T$@ $(OBJCOPY) -S -O binary $< $@
+o/$(MODE)/%.o: %.s                 ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
+o/$(MODE)/%.o: o/$(MODE)/%.s       ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.o: %.f                 ; @$(COMPILE) -AOBJECTIFY.f $(OBJECTIFY.f) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.o: %.F                 ; @$(COMPILE) -AOBJECTIFY.F $(OBJECTIFY.F) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.h: %.c                 ; @$(COMPILE) -AAMALGAMATE $(PREPROCESS) $(OUTPUT_OPTION) -fdirectives-only -P $<
 o/$(MODE)/%.h: o/$(MODE)/%.c       ; @$(COMPILE) -AAMALGAMATE $(PREPROCESS) $(OUTPUT_OPTION) -fdirectives-only -P $<
+o/$(MODE)/%.o: %.S                 ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
+o/$(MODE)/%.o: o/$(MODE)/%.S       ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.o: %.cc                ; @$(COMPILE) -AOBJECTIFY.cxx $(OBJECTIFY.cxx) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.lds: %.lds             ; @$(COMPILE) -APREPROCESS $(PREPROCESS.lds) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.o: %.greg.c            ; @$(COMPILE) -AOBJECTIFY.greg $(OBJECTIFY.greg.c) $(OUTPUT_OPTION) $<
@@ -32,30 +43,6 @@ o/$(MODE)/%.initabi.o: %.initabi.c ; @$(COMPILE) -AOBJECTIFY.init $(OBJECTIFY.in
 o/$(MODE)/%.ncabi.o: %.ncabi.c     ; @$(COMPILE) -AOBJECTIFY.nc $(OBJECTIFY.ncabi.c) $(OUTPUT_OPTION) $<
 o/$(MODE)/%.real.o: %.c            ; @$(COMPILE) -AOBJECTIFY.real $(OBJECTIFY.real.c) $(OUTPUT_OPTION) $<
 
-ifneq ($(ARCH), aarch64)
-o/%.o: %.s                         ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
-o/%.o: o/%.s                       ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
-o/%.s: %.S                         ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) $<
-o/%.s: o/%.S                       ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) $<
-o/%.o: %.S                         ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
-o/%.o: o/%.S                       ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
-o/$(MODE)/%.o: %.s                 ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
-o/$(MODE)/%.o: o/$(MODE)/%.s       ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) $<
-o/$(MODE)/%.o: %.S                 ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
-o/$(MODE)/%.o: o/$(MODE)/%.S       ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.S) $(OUTPUT_OPTION) $<
-else
-o/%.o: %.s libc/empty.s                   ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/%.o: o/%.s libc/empty.s                 ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/%.s: %.S libc/empty.s                   ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) libc/empty.s
-o/%.s: o/%.S libc/empty.s                 ; @$(COMPILE) -APREPROCESS $(PREPROCESS) $(OUTPUT_OPTION) libc/empty.s
-o/%.o: %.S libc/empty.s                   ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/%.o: o/%.S libc/empty.s                 ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/$(MODE)/%.o: %.s libc/empty.s           ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/$(MODE)/%.o: o/$(MODE)/%.s libc/empty.s ; @$(COMPILE) -AOBJECTIFY.s $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/$(MODE)/%.o: %.S libc/empty.s           ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-o/$(MODE)/%.o: o/$(MODE)/%.S libc/empty.s ; @$(COMPILE) -AOBJECTIFY.S $(OBJECTIFY.s) $(OUTPUT_OPTION) libc/empty.s
-endif
-
 o/%.o: %.cc
 	@$(COMPILE) -AOBJECTIFY.cxx $(OBJECTIFY.cxx) $(OUTPUT_OPTION) $<
 	@$(COMPILE) -AFIXUPOBJ -wT$@ $(FIXUPOBJ) $@
@@ -142,8 +129,8 @@ o/$(MODE)/%: o/$(MODE)/%.com o/$(MODE)/tool/build/cp.com o/$(MODE)/tool/build/as
 # then the stdout/stderr output, which would normally be suppressed,
 # will actually be displayed.
 
-o/$(MODE)/%.runs: o/$(MODE)/% $(VM)
-	@$(COMPILE) -ACHECK -wtT$@ $(VM) $< $(TESTARGS)
+o/$(MODE)/%.runs: o/$(MODE)/%
+	@$(COMPILE) -ACHECK -wtT$@ $< $(TESTARGS)
 
 ################################################################################
 # ELF ZIP FILES
@@ -176,15 +163,15 @@ o/$(MODE)%/.zip.o: %
 # and it would be too costly in terms of make latency to have every
 # header file depend on $(HDRS) and $(INCS).
 
-o/%.h.ok: private .UNSANDBOXED = 1
+o/%.h.ok: .UNSANDBOXED = 1
 o/%.h.ok: %.h
 	@$(COMPILE) -ACHECK.h $(COMPILE.c) -xc -g0 -o $@ $<
 
-o/$(MODE)/%.h.ok: private .UNSANDBOXED = 1
+o/$(MODE)/%.h.ok: .UNSANDBOXED = 1
 o/$(MODE)/%.h.ok: %.h
 	@$(COMPILE) -ACHECK.h $(COMPILE.c) -xc -g0 -o $@ $<
 
-o/$(MODE)/%.hh.ok: private .UNSANDBOXED = 1
+o/$(MODE)/%.hh.ok: .UNSANDBOXED = 1
 o/$(MODE)/%.hh.ok: %.hh
 	@$(COMPILE) -ACHECK.h $(COMPILE.cxx) -xc++ -g0 -o $@ $<
 
@@ -192,7 +179,7 @@ o/%.okk: .UNSANDBOXED = 1
 o/%.okk: %
 	@$(COMPILE) -ACHECK.h $(COMPILE.cxx) -xc++ -g0 -o $@ $<
 
-o/$(MODE)/%.okk: private .UNSANDBOXED = 1
+o/$(MODE)/%.okk: .UNSANDBOXED = 1
 o/$(MODE)/%.okk: %
 	@$(COMPILE) -ACHECK.h $(COMPILE.cxx) -xc++ -g0 -o $@ $<
 
@@ -220,19 +207,19 @@ MAKE_SYMTAB_ZIP =				\
 ################################################################################
 # EMACS ASSEMBLY GENERATION
 
-o/$(MODE)/%-gcc.asm: private .UNSANDBOXED = 1
+o/$(MODE)/%-gcc.asm: .UNSANDBOXED = 1
 o/$(MODE)/%-gcc.asm: %.c
 	@$(COMPILE) -AOBJECTIFY.c $(OBJECTIFY.c) -S -g0 $(OUTPUT_OPTION) $<
 
-o/$(MODE)/%-gcc.asm: private .UNSANDBOXED = 1
+o/$(MODE)/%-gcc.asm: .UNSANDBOXED = 1
 o/$(MODE)/%-gcc.asm: %.cc
 	@$(COMPILE) -AOBJECTIFY.c $(OBJECTIFY.cxx) -S -g0 $(OUTPUT_OPTION) $<
 
-o/$(MODE)/%-clang.asm: private .UNSANDBOXED = 1
+o/$(MODE)/%-clang.asm: .UNSANDBOXED = 1
 o/$(MODE)/%-clang.asm: %.c
 	@$(COMPILE) -AOBJECTIFY.c $(OBJECTIFY.c) -S -g0 $(OUTPUT_OPTION) $<
 
 o/$(MODE)/%-clang.asm: CC = $(CLANG)
-o/$(MODE)/%-clang.asm: private .UNSANDBOXED = 1
+o/$(MODE)/%-clang.asm: .UNSANDBOXED = 1
 o/$(MODE)/%-clang.asm: %.cc
 	@$(COMPILE) -AOBJECTIFY.c $(OBJECTIFY.cxx) -S -g0 $(OUTPUT_OPTION) $<

build/run

@@ -1,10 +0,0 @@
-#!/bin/sh
-for last; do true; done
-if printf '%s\n' "$last" | grep aarch64 >/dev/null 2>&1; then
-  if [ ! -f o/third_party/qemu/qemu-aarch64 ]; then
-    make -j8 o/third_party/qemu/qemu-aarch64
-  fi
-  exec o/third_party/qemu/qemu-aarch64 "$@"
-else
-  exec "$@"
-fi

dsp/core/sad16x8n.S

@@ -17,7 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/macros.internal.h"
-.balign	16
+.align	16
 
 //	Mixes audio.
 //

dsp/mpeg/mpeg1.c

@@ -32,6 +32,7 @@
 #include "dsp/mpeg/idct.h"
 #include "dsp/mpeg/mpeg.h"
 #include "dsp/mpeg/video.h"
+#include "libc/intrin/initializer.internal.h"
 #include "libc/fmt/conv.h"
 #include "libc/log/log.h"
 #include "libc/macros.internal.h"

dsp/tty/config.c

@@ -30,7 +30,7 @@
  * @see ttyconfig(), ttyrestore()
  */
 int ttyconfig(int ttyfd, ttyconf_f fn, int64_t arg,
-              struct termios *opt_out_oldconf) {
+              const struct termios *opt_out_oldconf) {
   struct termios conf[2];
   if (tcgetattr(ttyfd, &conf[0]) != -1 &&
       fn(memcpy(&conf[1], &conf[0], sizeof(conf[0])), arg) != -1 &&

dsp/tty/ident.c

@@ -90,8 +90,7 @@ int ttyident(struct TtyIdent *ti, int ttyinfd, int ttyoutfd) {
                            : _weaken(malloc)(sizeof(struct TtyIdent))))) {
           memcpy(ti->next, &outer, sizeof(outer));
         } else {
-          free(ti->next);
-          ti->next = 0;
+          free_s(&ti->next);
         }
       }
       ttyrestore(ttyinfd, &old);

dsp/tty/identclear.c

@@ -26,7 +26,7 @@ static void ttyidentfree(struct TtyIdent *ti) {
   if (ti) {
     assert(ti != ti->next);
     ttyidentfree(ti->next);
-    free(ti);
+    free_s(&ti);
   }
 }
 

dsp/tty/internal.h

@@ -1,22 +1,21 @@
 #ifndef COSMOPOLITAN_DSP_TTY_INTERNAL_H_
 #define COSMOPOLITAN_DSP_TTY_INTERNAL_H_
-#include "dsp/tty/quant.h"
 #include "dsp/tty/ttyrgb.h"
-#include "third_party/intel/xmmintrin.internal.h"
+#include "libc/intrin/xmmintrin.internal.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)
 COSMOPOLITAN_C_START_
 
-struct TtyRgb rgb2tty24f_(ttyrgb_m128);
-struct TtyRgb rgb2ttyf2i_(ttyrgb_m128);
+struct TtyRgb rgb2tty24f_(__m128);
+struct TtyRgb rgb2ttyf2i_(__m128);
 struct TtyRgb rgb2ttyi2f_(int, int, int);
 struct TtyRgb rgb2ansi_(int, int, int);
 struct TtyRgb rgb2ansihash_(int, int, int);
 struct TtyRgb rgb2xterm24_(int, int, int);
-struct TtyRgb rgb2xterm256gray_(ttyrgb_m128);
+struct TtyRgb rgb2xterm256gray_(__m128);
 struct TtyRgb tty2rgb_(struct TtyRgb);
 struct TtyRgb tty2rgb24_(struct TtyRgb);
-ttyrgb_m128 tty2rgbf_(struct TtyRgb);
-ttyrgb_m128 tty2rgbf24_(struct TtyRgb);
+__m128 tty2rgbf_(struct TtyRgb);
+__m128 tty2rgbf24_(struct TtyRgb);
 
 char *setbg16_(char *, struct TtyRgb);
 char *setfg16_(char *, struct TtyRgb);

dsp/tty/itoa8.c

@@ -18,6 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/itoa8.h"
 #include "libc/intrin/bits.h"
+#include "libc/intrin/initializer.internal.h"
 #include "libc/str/str.h"
 
 struct Itoa8 kItoa8;

dsp/tty/quant.h

@@ -3,6 +3,7 @@
 #include "dsp/tty/ttyrgb.h"
 #include "libc/assert.h"
 #include "libc/intrin/bits.h"
+#include "libc/intrin/xmmintrin.internal.h"
 #include "libc/limits.h"
 #include "libc/str/str.h"
 #if !(__ASSEMBLER__ + __LINKER__ + 0)
@@ -13,14 +14,12 @@ COSMOPOLITAN_C_START_
 #define BL 2
 #define BR 3
 
-typedef float ttyrgb_m128 __attribute__((__vector_size__(16), __may_alias__));
-
-typedef ttyrgb_m128 (*tty2rgbf_f)(struct TtyRgb);
+typedef __m128 (*tty2rgbf_f)(struct TtyRgb);
 typedef char *(*setbg_f)(char *, struct TtyRgb);
 typedef char *(*setbgfg_f)(char *, struct TtyRgb, struct TtyRgb);
 typedef char *(*setfg_f)(char *, struct TtyRgb);
 typedef struct TtyRgb (*rgb2tty_f)(int, int, int);
-typedef struct TtyRgb (*rgb2ttyf_f)(ttyrgb_m128);
+typedef struct TtyRgb (*rgb2ttyf_f)(__m128);
 typedef struct TtyRgb (*tty2rgb_f)(struct TtyRgb);
 typedef struct TtyRgb ttypalette_t[2][8];
 

dsp/tty/rgb2ansi.c

@@ -19,6 +19,7 @@
 #include "dsp/core/core.h"
 #include "dsp/tty/quant.h"
 #include "libc/assert.h"
+#include "libc/intrin/initializer.internal.h"
 #include "libc/limits.h"
 #include "libc/log/log.h"
 #include "libc/macros.internal.h"
@@ -39,9 +40,9 @@ struct TtyRgb tty2rgb_(struct TtyRgb rgbxt) {
   return g_ansi2rgb_[rgbxt.xt];
 }
 
-ttyrgb_m128 tty2rgbf_(struct TtyRgb rgbxt) {
+__m128 tty2rgbf_(struct TtyRgb rgbxt) {
   rgbxt = g_ansi2rgb_[rgbxt.xt];
-  return (ttyrgb_m128){(int)rgbxt.r, (int)rgbxt.g, (int)rgbxt.b} / 255;
+  return (__m128){(int)rgbxt.r, (int)rgbxt.g, (int)rgbxt.b} / 255;
 }
 
 static int rgb2xterm256_(int r, int g, int b) {

dsp/tty/rgb2ttyf2i.c

@@ -17,11 +17,12 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/quant.h"
+#include "libc/intrin/xmmintrin.internal.h"
 
-typedef int ttyrgb_i4 __attribute__((__vector_size__(16)));
-
-struct TtyRgb rgb2ttyf2i_(ttyrgb_m128 rgb) {
+struct TtyRgb rgb2ttyf2i_(__m128 rgb) {
+  __v4si i4;
   rgb *= 255;
-  ttyrgb_i4 rgbi = {rgb[0], rgb[1], rgb[2], rgb[3]};
-  return rgb2tty(rgbi[0], rgbi[1], rgbi[2]);
+  /* i4 = __builtin_ia32_cvtps2dq(rgb); */
+  asm("cvttps2dq\t%0,%1" : "+%x"(rgb), "=x"(i4));
+  return rgb2tty(i4[0], i4[1], i4[2]);
 }

dsp/tty/rgb2ttyi2f.c

@@ -21,5 +21,5 @@
 #include "libc/macros.internal.h"
 
 struct TtyRgb rgb2ttyi2f_(int r, int g, int b) {
-  return rgb2ttyf((ttyrgb_m128){r, g, b} / 255);
+  return rgb2ttyf((__m128){r, g, b} / 255);
 }

dsp/tty/rgb2xterm24f.c

@@ -17,24 +17,25 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/quant.h"
-#include "libc/macros.internal.h"
 #include "libc/math.h"
-#include "third_party/intel/xmmintrin.internal.h"
 
-struct TtyRgb rgb2tty24f_(ttyrgb_m128 rgb) {
-#ifdef __x86_64__
-  const ttyrgb_m128 kMax = {1, 1, 1, 1};
-  const ttyrgb_m128 kMin = {0, 0, 0, 0};
+/*
+struct TtyRgb rgb2tty24f_(__m128 rgb) {
+  const __v4si kMax = {255, 255, 255, 255};
+  const __v4si kMin = {0, 0, 0, 0};
+  struct TtyRgb res;
+  __v4si rgb255;
+  rgb255 = _mm_min_ps(_mm_max_ps(_mm_cvtps_epi32(rgb * 255), kMin), kMax);
+  res = (struct TtyRgb){rgb255[0], rgb255[1], rgb255[2], rgb255[3]};
+  return res;
+}
+*/
+
+struct TtyRgb rgb2tty24f_(__m128 rgb) {
+  const __m128 kMax = {1, 1, 1, 1};
+  const __m128 kMin = {0, 0, 0, 0};
   struct TtyRgb res;
   rgb = _mm_min_ps(_mm_max_ps(rgb, kMin), kMax) * 255;
   res = (struct TtyRgb){rgb[0], rgb[1], rgb[2], rgb[3]};
   return res;
-#else
-  return (struct TtyRgb){
-      MAX(0, MIN(1, rgb[0])) * 255,
-      MAX(0, MIN(1, rgb[1])) * 255,
-      MAX(0, MIN(1, rgb[2])) * 255,
-      MAX(0, MIN(1, rgb[3])) * 255,
-  };
-#endif
 }

dsp/tty/sendtitle.c

@@ -30,17 +30,13 @@
  * @param ti comes from ttyident() and null means no-op
  */
 int ttysendtitle(int ttyfd, const char *title, const struct TtyIdent *ti) {
-  int res;
   if (ti) {
-    char *p;
     if (ti->id == kTtyIdScreen) {
-      res = ttysend(ttyfd, (p = xstrcat("\eP\e]0;", title, "\a\e\\")));
+      return ttysend(ttyfd, gc(xstrcat("\eP\e]0;", title, "\a\e\\")));
     } else {
-      res = ttysend(ttyfd, (p = xstrcat("\e]0;", title, "\a")));
+      return ttysend(ttyfd, gc(xstrcat("\e]0;", title, "\a")));
     }
-    free(p);
   } else {
-    res = 0;
+    return 0;
   }
-  return res;
 }

dsp/tty/tty.h

@@ -44,7 +44,7 @@ int ttysendtitle(int, const char *, const struct TtyIdent *);
 int ttyident(struct TtyIdent *, int, int);
 void ttyidentclear(struct TtyIdent *);
 char *ttydescribe(char *, size_t, const struct TtyIdent *);
-int ttyconfig(int, ttyconf_f, int64_t, struct termios *);
+int ttyconfig(int, ttyconf_f, int64_t, const struct termios *);
 int ttyrestore(int, const struct termios *);
 int ttysetrawdeadline(struct termios *, int64_t);
 int ttysetrawmode(struct termios *, int64_t);

dsp/tty/tty2rgbf24.c

@@ -18,6 +18,6 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/quant.h"
 
-ttyrgb_m128 tty2rgbf24_(struct TtyRgb rgbxt) {
-  return (ttyrgb_m128){(int)rgbxt.r, (int)rgbxt.g, (int)rgbxt.b} / 255;
+__m128 tty2rgbf24_(struct TtyRgb rgbxt) {
+  return (__m128){(int)rgbxt.r, (int)rgbxt.g, (int)rgbxt.b} / 255;
 }

dsp/tty/ttyhisto.c

@@ -45,8 +45,6 @@ void ttyhisto(uint32_t histogram[hasatleast 256],
       histogram[xtcolors[i * 8]]++;
     }
   }
-  for (i = 0; i < 256; ++i) {
-    dominant[i] = i;
-  }
+  imapxlatab(dominant);
   qsort_r(dominant, 256, 1, (void *)histcmp, histogram);
 }

dsp/tty/ttyquant.c

@@ -18,6 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "dsp/tty/internal.h"
 #include "dsp/tty/quant.h"
+#include "libc/intrin/initializer.internal.h"
 #include "libc/dce.h"
 #include "libc/runtime/runtime.h"
 #include "libc/stdio/stdio.h"

examples/auto-memory-safety-crash2.c

@@ -7,12 +7,12 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "libc/dce.h"
 #include "libc/intrin/bits.h"
-#include "libc/intrin/kprintf.h"
+#include "libc/dce.h"
 #include "libc/log/log.h"
 #include "libc/mem/mem.h"
 #include "libc/runtime/runtime.h"
+#include "libc/stdio/stdio.h"
 #include "libc/str/str.h"
 
 /**
@@ -59,15 +59,9 @@
 
 int main(int argc, char *argv[]) {
   if (!IsAsan()) {
-    kprintf("this example is intended for MODE=asan or MODE=dbg\n");
+    printf("this example is intended for MODE=asan or MODE=dbg\n");
     exit(1);
   }
-
-  kprintf("----------------\n");
-  kprintf(" THIS IS A TEST \n");
-  kprintf("SIMULATING CRASH\n");
-  kprintf("----------------\n");
-
   char *buffer;
   ShowCrashReports(); /* not needed but yoinks appropriate symbols */
   buffer = malloc(13);

examples/clock.c

@@ -20,22 +20,22 @@ int main(int argc, char *argv[]) {
   volatile unsigned long x;
   struct timespec now, start, next, interval;
   printf("hammering the cpu...\n");
-  next = start = timespec_mono();
-  interval = timespec_frommillis(500);
-  next = timespec_add(next, interval);
+  next = start = _timespec_mono();
+  interval = _timespec_frommillis(500);
+  next = _timespec_add(next, interval);
   for (;;) {
     for (i = 0;; ++i) {
       x *= 7;
       if (!(i % 256)) {
-        now = timespec_mono();
-        if (timespec_cmp(now, next) >= 0) {
+        now = _timespec_mono();
+        if (_timespec_gte(now, next)) {
           break;
         }
       }
     }
-    next = timespec_add(next, interval);
+    next = _timespec_add(next, interval);
     printf("consumed %10g seconds monotonic time and %10g seconds cpu time\n",
-           timespec_tonanos(timespec_sub(now, start)) / 1000000000.,
+           _timespec_tonanos(_timespec_sub(now, start)) / 1000000000.,
            (double)clock() / CLOCKS_PER_SEC);
   }
 }

examples/clock_getres.c

@@ -1,58 +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/struct/timespec.h"
-#include "libc/errno.h"
-#include "libc/intrin/describeflags.internal.h"
-#include "libc/intrin/kprintf.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/clock.h"
-
-int n;
-int shown[64];
-
-void show(int clock) {
-  int i;
-  struct timespec ts;
-  if (clock == 127) return;
-  for (i = 0; i < n; ++i) {
-    if (shown[i] == clock) {
-      return;
-    }
-  }
-  shown[n++] = clock;
-  if (clock_getres(clock, &ts) != -1) {
-    kprintf("%s %'ld ns\n", DescribeClockName(clock), timespec_tonanos(ts));
-  } else {
-    kprintf("%s %s\n", DescribeClockName(clock), _strerrno(errno));
-  }
-}
-
-int main(int argc, char *argv[]) {
-  show(CLOCK_REALTIME);
-  show(CLOCK_REALTIME_FAST);
-  show(CLOCK_REALTIME_PRECISE);
-  show(CLOCK_REALTIME_COARSE);
-  show(CLOCK_MONOTONIC);
-  show(CLOCK_MONOTONIC_RAW);
-  show(CLOCK_MONOTONIC_FAST);
-  show(CLOCK_MONOTONIC_PRECISE);
-  show(CLOCK_MONOTONIC_COARSE);
-  show(CLOCK_PROCESS_CPUTIME_ID);
-  show(CLOCK_THREAD_CPUTIME_ID);
-  show(CLOCK_PROF);
-  show(CLOCK_BOOTTIME);
-  show(CLOCK_REALTIME_ALARM);
-  show(CLOCK_BOOTTIME_ALARM);
-  show(CLOCK_TAI);
-  show(CLOCK_UPTIME);
-  show(CLOCK_UPTIME_PRECISE);
-  show(CLOCK_UPTIME_FAST);
-  show(CLOCK_SECOND);
-}

examples/crashreport.c

@@ -7,7 +7,6 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "libc/intrin/kprintf.h"
 #include "libc/log/log.h"
 #include "libc/runtime/symbols.internal.h"
 
@@ -25,12 +24,6 @@
  */
 
 noubsan int main(int argc, char *argv[]) {
-
-  kprintf("----------------\n");
-  kprintf(" THIS IS A TEST \n");
-  kprintf("SIMULATING CRASH\n");
-  kprintf("----------------\n");
-
   volatile int64_t x;
   ShowCrashReports();
   return 1 / (x = 0);

examples/curl.c

@@ -52,10 +52,12 @@
 #include "third_party/mbedtls/pk.h"
 #include "third_party/mbedtls/ssl.h"
 #include "third_party/mbedtls/ssl_ticket.h"
-#include "tool/curl/cmd.h"
 
 /**
  * @fileoverview Downloads HTTP URL to stdout.
+ *
+ *     make -j8 o//examples/curl.com
+ *     o//examples/curl.com http://justine.lol/ape.html
  */
 
 #define HasHeader(H)    (!!msg.headers[H].a)
@@ -115,11 +117,11 @@ static int TlsRecv(void *c, unsigned char *p, size_t n, uint32_t o) {
 }
 
 static wontreturn void PrintUsage(FILE *f, int rc) {
-  fprintf(f, "usage: %s [-iksvV] URL\n", program_invocation_name);
+  fprintf(f, "usage: %s [-ksvV] URL\n", program_invocation_name);
   exit(rc);
 }
 
-int _curl(int argc, char *argv[]) {
+int main(int argc, char *argv[]) {
   if (!NoDebug()) ShowCrashReports();
 
   /*
@@ -130,13 +132,11 @@ int _curl(int argc, char *argv[]) {
     size_t n;
     char **p;
   } headers = {0};
-  int method = 0;
+  int method = kHttpGet;
   bool authmode = MBEDTLS_SSL_VERIFY_REQUIRED;
-  bool includeheaders = false;
-  const char *postdata = NULL;
   const char *agent = "hurl/1.o (https://github.com/jart/cosmopolitan)";
   __log_level = kLogWarn;
-  while ((opt = getopt(argc, argv, "qiksvVIX:H:A:d:")) != -1) {
+  while ((opt = getopt(argc, argv, "qksvVIX:H:A:")) != -1) {
     switch (opt) {
       case 's':
       case 'q':
@@ -144,9 +144,6 @@ int _curl(int argc, char *argv[]) {
       case 'v':
         ++__log_level;
         break;
-      case 'i':
-        includeheaders = true;
-        break;
       case 'I':
         method = kHttpHead;
         break;
@@ -157,9 +154,6 @@ int _curl(int argc, char *argv[]) {
         headers.p = realloc(headers.p, ++headers.n * sizeof(*headers.p));
         headers.p[headers.n - 1] = optarg;
         break;
-      case 'd':
-        postdata = optarg;
-        break;
       case 'X':
         CHECK((method = GetHttpMethod(optarg, strlen(optarg))));
         break;
@@ -189,7 +183,7 @@ int _curl(int argc, char *argv[]) {
   struct Url url;
   char *host, *port;
   bool usessl = false;
-  _gc(ParseUrl(urlarg, -1, &url, kUrlPlus));
+  _gc(ParseUrl(urlarg, -1, &url));
   _gc(url.params.p);
   if (url.scheme.n) {
     if (url.scheme.n == 5 && !memcasecmp(url.scheme.p, "https", 5)) {
@@ -230,34 +224,17 @@ int _curl(int argc, char *argv[]) {
   /*
    * Create HTTP message.
    */
-  if (!method) method = postdata ? kHttpPost : kHttpGet;
-
   char *request = 0;
   appendf(&request,
           "%s %s HTTP/1.1\r\n"
+          "Host: %s:%s\r\n"
           "Connection: close\r\n"
           "User-Agent: %s\r\n",
-          kHttpMethod[method], _gc(EncodeUrl(&url, 0)), agent);
-
-  bool senthost = false, sentcontenttype = false, sentcontentlength = false;
+          kHttpMethod[method], _gc(EncodeUrl(&url, 0)), host, port, agent);
   for (int i = 0; i < headers.n; ++i) {
     appendf(&request, "%s\r\n", headers.p[i]);
-    if (!strncasecmp("Host:", headers.p[i], 5))
-      senthost = true;
-    else if (!strncasecmp("Content-Type:", headers.p[i], 13))
-      sentcontenttype = true;
-    else if (!strncasecmp("Content-Length:", headers.p[i], 15))
-      sentcontentlength = true;
-  }
-  if (!senthost) appendf(&request, "Host: %s:%s\r\n", host, port);
-  if (postdata) {
-    if (!sentcontenttype)
-      appends(&request, "Content-Type: application/x-www-form-urlencoded\r\n");
-    if (!sentcontentlength)
-      appendf(&request, "Content-Length: %d\r\n", strlen(postdata));
   }
   appendf(&request, "\r\n");
-  if (postdata) appends(&request, postdata);
 
   /*
    * Setup crypto.
@@ -285,7 +262,7 @@ int _curl(int argc, char *argv[]) {
    * Perform DNS lookup.
    */
   struct addrinfo *addr;
-  struct addrinfo hints = {.ai_family = AF_UNSPEC,
+  struct addrinfo hints = {.ai_family = AF_INET,
                            .ai_socktype = SOCK_STREAM,
                            .ai_protocol = IPPROTO_TCP,
                            .ai_flags = AI_NUMERICSERV};
@@ -367,10 +344,10 @@ int _curl(int argc, char *argv[]) {
             i -= hdrlen;
             break;
           }
-          if (method == kHttpHead || includeheaders) {
+          if (method == kHttpHead) {
             Write(p, hdrlen);
-          }
-          if (method == kHttpHead || msg.status == 204 || msg.status == 304) {
+            goto Finished;
+          } else if (msg.status == 204 || msg.status == 304) {
             goto Finished;
           }
           if (HasHeader(kHttpTransferEncoding) &&

examples/examples.mk

@@ -49,12 +49,12 @@ EXAMPLES_DIRECTDEPS =								\
 	LIBC_LOG								\
 	LIBC_MEM								\
 	LIBC_NEXGEN32E								\
-	LIBC_NT_ADVAPI32							\
 	LIBC_NT_IPHLPAPI							\
 	LIBC_NT_KERNEL32							\
 	LIBC_NT_NTDLL								\
 	LIBC_NT_USER32								\
 	LIBC_NT_WS2_32								\
+	LIBC_NT_ADVAPI32							\
 	LIBC_RUNTIME								\
 	LIBC_SOCK								\
 	LIBC_STDIO								\
@@ -71,25 +71,18 @@ EXAMPLES_DIRECTDEPS =								\
 	LIBC_ZIPOS								\
 	NET_HTTP								\
 	NET_HTTPS								\
-	THIRD_PARTY_AWK								\
 	THIRD_PARTY_COMPILER_RT							\
 	THIRD_PARTY_DLMALLOC							\
-	THIRD_PARTY_DOUBLECONVERSION						\
 	THIRD_PARTY_GDTOA							\
 	THIRD_PARTY_GETOPT							\
 	THIRD_PARTY_LIBCXX							\
 	THIRD_PARTY_LINENOISE							\
 	THIRD_PARTY_LUA								\
-	THIRD_PARTY_HIREDIS							\
 	THIRD_PARTY_MBEDTLS							\
 	THIRD_PARTY_MUSL							\
 	THIRD_PARTY_NSYNC							\
-	THIRD_PARTY_NSYNC_MEM							\
 	THIRD_PARTY_QUICKJS							\
-	THIRD_PARTY_SED								\
 	THIRD_PARTY_STB								\
-	THIRD_PARTY_TR								\
-	THIRD_PARTY_VQSORT							\
 	THIRD_PARTY_XED								\
 	THIRD_PARTY_ZLIB							\
 	TOOL_BUILD_LIB								\
@@ -148,25 +141,6 @@ o/$(MODE)/examples/nesemu1.com.dbg:						\
 		$(EXAMPLES_BOOTLOADER)
 	@$(APELINK)
 
-# # force symtab.com to be a zip file, by pulling a zip asset into linkage
-# # we wouldn't need to do this if we depended on functions like localtime
-# o/$(MODE)/examples/symtab.com.dbg:						\
-# 		$(EXAMPLES_DEPS)						\
-# 		o/$(MODE)/examples/symtab.o					\
-# 		o/$(MODE)/examples/symtab.c.zip.o				\
-# 		o/$(MODE)/examples/examples.pkg					\
-# 		$(EXAMPLES_BOOTLOADER)
-# 	@$(APELINK)
-
-# modify .com so it can read the symbol table without needing the .com.dbg file
-o/$(MODE)/examples/symtab.com:							\
-		o/$(MODE)/examples/symtab.com.dbg				\
-		o/$(MODE)/third_party/zip/zip.com				\
-		o/$(MODE)/tool/build/symtab.com
-	@$(MAKE_OBJCOPY)
-	@$(MAKE_SYMTAB_CREATE)
-	@$(MAKE_SYMTAB_ZIP)
-
 o/$(MODE)/examples/picol.o: private				\
 		OVERRIDE_CPPFLAGS +=				\
 			-DSTACK_FRAME_UNLIMITED
@@ -184,10 +158,11 @@ o/$(MODE)/usr/share/dict/words.zip.o: private ZIPOBJ_FLAGS += -C2
 
 $(EXAMPLES_OBJS): examples/examples.mk
 
-o/$(MODE)/usr/share/dict/words:					\
-		usr/share/dict/words.gz
+o/$(MODE)/usr/share/dict/words:							\
+		usr/share/dict/words.gz						\
+		o/$(MODE)/tool/build/gzip.com
 	@$(MKDIR) $(@D)
-	@$(GZIP) $(ZFLAGS) -cd <$< >$@
+	@o/$(MODE)/tool/build/gzip.com $(ZFLAGS) -cd <$< >$@
 
 ################################################################################
 

examples/fastdiv.c

@@ -0,0 +1,62 @@
+#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/macros.internal.h"
+#include "libc/stdio/stdio.h"
+#include "libc/sysv/consts/sig.h"
+#include "libc/testlib/ezbench.h"
+
+/**
+ * @fileoverview Fast Division Using Multiplication Tutorial
+ *
+ * Expected program output:
+ *
+ *     23 / 3 = 7
+ *     0x5555555555555556 1 1
+ *     division   l: 16𝑐  5𝑛𝑠
+ *     fast div   l:  5𝑐  2𝑛𝑠
+ *     precomps   l: 70𝑐 23𝑛𝑠
+ */
+
+struct Divisor {
+  uint64_t m;
+  uint8_t s;
+  uint8_t t;
+};
+
+struct Divisor GetDivisor(uint64_t d) {
+  int b;
+  uint128_t x;
+  if (!d) raise(SIGFPE);
+  b = __builtin_clzll(d) ^ 63;
+  x = -d & (((1ull << b) - 1) | (1ull << b));
+  return (struct Divisor){(x << 64) / d + 1, MIN(1, b + 1), MAX(0, b)};
+}
+
+uint64_t Divide(uint64_t x, struct Divisor d) {
+  uint128_t t;
+  uint64_t l, h;
+  t = d.m;
+  t *= x;
+  l = t;
+  h = t >> 64;
+  l = (x - h) >> d.s;
+  return (h + l) >> d.t;
+}
+
+int main(int argc, char *argv[]) {
+  printf("23 / 3 = %ld\n", Divide(23, GetDivisor(3)));
+  volatile struct Divisor v = GetDivisor(3);
+  volatile uint64_t x = 23, y = 3, z;
+  EZBENCH2("division", donothing, z = x / y);
+  EZBENCH2("fast div", donothing, z = Divide(x, v));
+  EZBENCH2("precomp ", donothing, v = GetDivisor(y));
+  return 0;
+}

examples/forkrand.c

@@ -9,12 +9,19 @@
 #endif
 #include "libc/calls/calls.h"
 #include "libc/log/check.h"
+#include "libc/log/log.h"
+#include "libc/nt/nt/process.h"
+#include "libc/mem/gc.h"
+#include "libc/runtime/memtrack.internal.h"
+#include "libc/runtime/runtime.h"
 #include "libc/stdio/rand.h"
 #include "libc/stdio/stdio.h"
+#include "libc/time/time.h"
+#include "libc/x/x.h"
 
 dontinline void dostuff(const char *s) {
   int i, us;
-  srand(_rand64()); /* seeds rand() w/ intel rdrnd, auxv, etc. */
+  srand(rand64()); /* seeds rand() w/ intel rdrnd, auxv, etc. */
   for (i = 0; i < 5; ++i) {
     us = rand() % 500000;
     usleep(us);

examples/getcpucount.c

@@ -8,8 +8,8 @@
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
 #include "libc/intrin/kprintf.h"
-#include "libc/runtime/runtime.h"
+#include "libc/runtime/sysconf.h"
 
 int main() {
-  kprintf("%d\n", _getcpucount());
+  kprintf("%d\n", GetCpuCount());
 }

examples/getdomainname.c

@@ -1,21 +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/stdio/stdio.h"
-
-int main(int argc, char *argv[]) {
-  char buf[256];
-  if (!getdomainname(buf, sizeof(buf))) {
-    printf("%s\n", buf);
-    return 0;
-  } else {
-    return 1;
-  }
-}

examples/getrandom.c

@@ -7,7 +7,6 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "ape/sections.internal.h"
 #include "libc/calls/calls.h"
 #include "libc/calls/struct/sigaction.h"
 #include "libc/errno.h"
@@ -103,7 +102,7 @@ uint64_t rngset64(void) {
   static unsigned i;
   static uint64_t s;
   if (!i) {
-    s = _rand64();
+    s = rand64();
     i = (s + 1) & (511);
   }
   return MarsagliaXorshift64(&s);
@@ -216,7 +215,7 @@ const struct Function {
     {"moby", moby},              //
     {"mt19937", _mt19937},       //
     {"python", pythonx2},        //
-    {"rand64", _rand64},         //
+    {"rand64", rand64},          //
     {"rdrand", rdrand},          //
     {"rdrnd", rdrand},           //
     {"rdseed", rdseed},          //

examples/greenbean.c

@@ -28,6 +28,7 @@
 #include "libc/runtime/internal.h"
 #include "libc/runtime/runtime.h"
 #include "libc/runtime/stack.h"
+#include "libc/runtime/sysconf.h"
 #include "libc/sock/sock.h"
 #include "libc/sock/struct/pollfd.h"
 #include "libc/sock/struct/sockaddr.h"
@@ -136,7 +137,7 @@ void *Worker(void *id) {
   setsockopt(server, SOL_TCP, TCP_QUICKACK, &yes, sizeof(yes));
   errno = 0;
 
-  if (bind(server, (struct sockaddr *)&addr, sizeof(addr)) == -1) {
+  if (bind(server, &addr, sizeof(addr)) == -1) {
     kprintf("%s() failed %m\n", "socket");
     goto CloseWorker;
   }
@@ -298,7 +299,7 @@ int main(int argc, char *argv[]) {
             PORT);
   }
 
-  threads = argc > 1 ? atoi(argv[1]) : _getcpucount();
+  threads = argc > 1 ? atoi(argv[1]) : GetCpuCount();
   if (!(1 <= threads && threads <= 100000)) {
     kprintf("error: invalid number of threads: %d\n", threads);
     exit(1);

examples/hiredis.c

@@ -1,55 +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/runtime/runtime.h"
-#include "libc/fmt/conv.h"
-#include "libc/fmt/fmt.h"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "third_party/hiredis/hiredis.h"
-
-/**
- * @fileoverview Demo of using hiredis to connect to a Redis server
- */
-
-int main(int argc, char *argv[]) {
-  if (argc < 3 || argc > 5) {
-    fprintf(stderr, "Usage: %s HOST PORT [KEY] [VALUE]\n", argv[0]);
-    exit(1);
-  }
-
-  bool setValue = (argc == 5), getValue = (argc == 4);
-
-  redisContext *c = redisConnect(argv[1], atoi(argv[2]));
-  if (c == NULL || c->err) {
-    if (c) {
-      fprintf(stderr, "Connection error: %s\n", c->errstr);
-      redisFree(c);
-    } else {
-      fputs("Failed to allocate redis context\n", stderr);
-    }
-    exit(1);
-  }
-
-  redisReply *reply;
-  if (!setValue && !getValue) {
-    reply = redisCommand(c, "PING");
-    printf("PING: %s\n", reply->str);
-  } else if (setValue) {
-    reply = redisCommand(c, "SET %s %s", argv[3], argv[4]);
-    printf("SET: %s\n", reply->str);
-  } else {
-    reply = redisCommand(c, "GET %s", argv[3]);
-    printf("GET: %s\n", reply->str);
-  }
-
-  freeReplyObject(reply);
-  redisFree(c);
-  return 0;
-}

examples/nanosleep_test.c

@@ -1,43 +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/assert.h"
-#include "libc/calls/struct/timespec.h"
-#include "libc/stdio/stdio.h"
-#include "libc/sysv/consts/clock.h"
-
-/**
- * @fileoverview shows how accurate clock_nanosleep() is
- */
-
-int main(int argc, char *argv[]) {
-  long i, ns;
-  struct timespec x, y, w;
-  timespec_sleep(timespec_fromnanos(0));  // warmup
-
-  printf("\nrelative sleep\n");
-  for (i = 0; i < 28; ++i) {
-    ns = 1l << i;
-    x = timespec_real();
-    timespec_sleep(timespec_fromnanos(ns));
-    y = timespec_real();
-    printf("%,11ld ns sleep took %,ld ns\n", ns,
-           timespec_tonanos(timespec_sub(y, x)));
-  }
-
-  printf("\nabsolute sleep\n");
-  for (i = 0; i < 28; ++i) {
-    ns = 1l << i;
-    x = timespec_real();
-    timespec_sleep_until(timespec_add(x, timespec_fromnanos(ns)));
-    y = timespec_real();
-    printf("%,11ld ns sleep took %,ld ns\n", ns,
-           timespec_tonanos(timespec_sub(y, x)));
-  }
-}

examples/nesemu1.cc

@@ -47,7 +47,7 @@
 #include "third_party/libcxx/vector"
 #include "tool/viz/lib/knobs.h"
 
-STATIC_YOINK("zipos");
+STATIC_YOINK("zip_uri_support");
 
 #define USAGE \
   " [ROM] [FMV]\n\

examples/nomodifyself.c

@@ -7,7 +7,6 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "ape/sections.internal.h"
 #include "libc/dce.h"
 #include "libc/runtime/runtime.h"
 #include "libc/stdio/stdio.h"

examples/portscan.c

@@ -1,127 +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/assert.h"
-#include "libc/calls/calls.h"
-#include "libc/calls/struct/timeval.h"
-#include "libc/errno.h"
-#include "libc/fmt/conv.h"
-#include "libc/fmt/fmt.h"
-#include "libc/mem/alloca.h"
-#include "libc/runtime/runtime.h"
-#include "libc/sock/sock.h"
-#include "libc/sock/struct/sockaddr.h"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/af.h"
-#include "libc/sysv/consts/ipproto.h"
-#include "libc/sysv/consts/so.h"
-#include "libc/sysv/consts/sock.h"
-#include "libc/sysv/consts/sol.h"
-#include "net/http/ip.h"
-
-/**
- * @fileoverview fast local network port scanner, e.g.
- *
- *     make -j8 o//examples/portscan.com
- *     o//examples/portscan.com 10.10.10.0/24 22
- */
-
-const char *FormatIp(char buf[16], uint32_t ip) {
-  snprintf(buf, 16, "%hhu.%hhu.%hhu.%hhu", ip >> 24, ip >> 16, ip >> 8, ip);
-  return buf;
-}
-
-#define FormatIp(x) FormatIp(alloca(16), x)
-
-int main(int argc, char *argv[]) {
-  int port;
-  struct Cidr in;
-  uint32_t netmask;
-  const char *status;
-  struct timeval timeout;
-  uint32_t network_address;
-  uint32_t last_host_address;
-  uint32_t first_host_address;
-
-  if (argc != 3) {
-  PrintUsage:
-    fprintf(stderr,
-            "usage:   %s IP/CIDR PORT\n"
-            "example: %s 192.168.0.0/24 22\n",
-            argv[0], argv[0]);
-    return 1;
-  }
-
-  in = ParseCidr(argv[1], -1);
-  if (in.addr == -1) {
-    fprintf(stderr, "error: bad ip/cidr\n");
-    goto PrintUsage;
-  }
-
-  port = atoi(argv[2]);
-  if (!(1 <= port && port <= 65535)) {
-    fprintf(stderr, "error: bad port\n");
-    goto PrintUsage;
-  }
-
-  if (in.cidr > 30) {
-    fprintf(stderr, "error: maximum supported cidr is 30\n");
-    goto PrintUsage;
-  }
-
-  if (in.cidr < 22) {
-    fprintf(stderr, "error: minimum cidr support right now is 22\n");
-    goto PrintUsage;
-  }
-
-  netmask = -1u << (32 - in.cidr);
-  network_address = in.addr & netmask;
-  first_host_address = network_address + 1;
-  last_host_address = (network_address | ~netmask) - 1;
-
-  assert(last_host_address > first_host_address);
-  assert(last_host_address - first_host_address < 1024);
-
-  fprintf(stderr, "scanning %s through %s\n", FormatIp(first_host_address),
-          FormatIp(last_host_address));
-
-  timeout = timeval_frommillis(100);
-  for (int64_t ip = first_host_address; ip <= last_host_address; ++ip) {
-    if (!fork()) {
-      socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
-      setsockopt(3, SOL_SOCKET, SO_RCVTIMEO, &timeout, sizeof(timeout));
-      setsockopt(3, SOL_SOCKET, SO_SNDTIMEO, &timeout, sizeof(timeout));
-      if (!connect(3,
-                   (struct sockaddr *)&(struct sockaddr_in){
-                       .sin_family = AF_INET,
-                       .sin_addr.s_addr = htonl(ip),
-                       .sin_port = htons(port),
-                   },
-                   sizeof(struct sockaddr_in))) {
-        status = "open";
-      } else if (errno == ECONNREFUSED) {
-        status = "closed";
-      } else if (errno != EINPROGRESS) {
-        status = _strerrno(errno);
-      } else {
-        status = 0;
-      }
-      if (status) {
-        printf("%-15s %s\n", FormatIp(ip), status);
-      }
-      _Exit(0);
-    }
-  }
-  for (;;) {
-    if (wait(0) == -1 && errno == ECHILD) {
-      break;
-    }
-  }
-}

examples/reboot.c

@@ -1,39 +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"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/reboot.h"
-
-int main(int argc, char *argv[]) {
-  char line[8] = {0};
-  if (argc > 1 && !strcmp(argv[1], "-y")) {
-    line[0] = 'y';
-  } else {
-    printf("reboot your computer? yes or no [no] ");
-    fflush(stdout);
-    fgets(line, sizeof(line), stdin);
-  }
-  if (line[0] == 'y' || line[0] == 'Y') {
-    if (reboot(RB_AUTOBOOT)) {
-      printf("system is rebooting...\n");
-      exit(0);
-    } else {
-      perror("reboot");
-      exit(1);
-    }
-  } else if (line[0] == 'n' || line[0] == 'N') {
-    exit(0);
-  } else {
-    printf("error: unrecognized response\n");
-    exit(2);
-  }
-}

examples/script.c

@@ -1,521 +0,0 @@
-/*-*- mode:c;indent-tabs-mode:t;c-basic-offset:8;tab-width:8;coding:utf-8   -*-│
-│vi: set et ft=c ts=8 tw=8 fenc=utf-8                                       :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright (c) 2010, 2012 David E. O'Brien                                    │
-│ Copyright (c) 1980, 1992, 1993                                               │
-│      The Regents of the University of California.  All rights reserved.      │
-│                                                                              │
-│ Redistribution and use in source and binary forms, with or without           │
-│ modification, are permitted provided that the following conditions           │
-│ are met:                                                                     │
-│  1. Redistributions of source code must retain the above copyright           │
-│     notice, this list of conditions and the following disclaimer.            │
-│  2. Redistributions in binary form must reproduce the above copyright        │
-│     notice, this list of conditions and the following disclaimer in the      │
-│     documentation and/or other materials provided with the distribution.     │
-│  3. Neither the name of the University nor the names of its contributors     │
-│     may be used to endorse or promote products derived from this software    │
-│     without specific prior written permission.                               │
-│                                                                              │
-│ THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND      │
-│ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE        │
-│ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   │
-│ ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE     │
-│ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL   │
-│ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS      │
-│ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)        │
-│ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT   │
-│ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    │
-│ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF       │
-│ SUCH DAMAGE.                                                                 │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/calls/calls.h"
-#include "libc/calls/struct/iovec.h"
-#include "libc/calls/struct/stat.h"
-#include "libc/calls/struct/termios.h"
-#include "libc/calls/struct/timeval.h"
-#include "libc/calls/struct/winsize.h"
-#include "libc/calls/termios.h"
-#include "libc/calls/weirdtypes.h"
-#include "libc/errno.h"
-#include "libc/fmt/conv.h"
-#include "libc/intrin/bswap.h"
-#include "libc/log/bsd.h"
-#include "libc/macros.internal.h"
-#include "libc/mem/mem.h"
-#include "libc/paths.h"
-#include "libc/runtime/runtime.h"
-#include "libc/sock/select.h"
-#include "libc/stdio/stdio.h"
-#include "libc/sysv/consts/fileno.h"
-#include "libc/sysv/consts/s.h"
-#include "libc/sysv/consts/termios.h"
-#include "libc/time/time.h"
-#include "third_party/getopt/getopt.h"
-// clang-format off
-
-/**
- * @fileoverview Terminal Screencast Recorder / Player, e.g.
- *
- *     make o//examples/script.com
- *     o//examples/script.com -r
- *     # type stuff..
- *     # CTRL-D
- *     o//examples/script.com -p typescript
- *
- * @note works on Linux, OpenBSD, NetBSD, FreeBSD, MacOS
- * @see https://asciinema.org/
- */
-
-asm(".ident\t\"\\n\\n\
-FreeBSD Script (BSD-3 License)\\n\
-Copyright (c) 2010, 2012 David E. O'Brien\\n\
-Copyright (c) 1980, 1992, 1993\\n\
-\tThe Regents of the University of California.\\n\
-\tAll rights reserved.\"");
-asm(".include \"libc/disclaimer.inc\"");
-
-#define DEF_BUF 65536
-
-struct stamp {
-	uint64_t scr_len;	/* amount of data */
-	uint64_t scr_sec;	/* time it arrived in seconds... */
-	uint32_t scr_usec;	/* ...and microseconds */
-	uint32_t scr_direction; /* 'i', 'o', etc (also indicates endianness) */
-};
-
-static FILE *fscript;
-static int master, slave;
-static int child;
-static const char *fname;
-static char *fmfname;
-static int qflg, ttyflg;
-static int usesleep, rawout, showexit;
-
-static struct termios tt;
-
-static void done(int) wontreturn;
-static void doshell(char **);
-static void finish(void);
-static void record(FILE *, char *, size_t, int);
-static void consume(FILE *, off_t, char *, int);
-static void playback(FILE *) wontreturn;
-static void usage(void);
-
-int
-main(int argc, char *argv[])
-{
-	int cc;
-	struct termios rtt, stt;
-	struct winsize win;
-	struct timeval tv, *tvp;
-	time_t tvec, start;
-	static char obuf[BUFSIZ];
-	static char ibuf[BUFSIZ];
-	fd_set rfd;
-	int aflg, Fflg, kflg, pflg, ch, k, n;
-	int flushtime, readstdin;
-	int fm_fd, fm_log;
-
-	aflg = Fflg = kflg = pflg = 0;
-	usesleep = 1;
-	rawout = 0;
-	flushtime = 30;
-	fm_fd = -1;	/* Shut up stupid "may be used uninitialized" GCC
-			   warning. (not needed w/clang) */
-	showexit = 0;
-
-	while ((ch = getopt(argc, argv, "adeFfkpqrt:")) != -1)
-		switch(ch) {
-		case 'a':
-			aflg = 1;
-			break;
-		case 'd':
-			usesleep = 0;
-			break;
-		case 'e':	/* Default behavior, accepted for linux compat */
-			break;
-		case 'F':
-			Fflg = 1;
-			break;
-		case 'k':
-			kflg = 1;
-			break;
-		case 'p':
-			pflg = 1;
-			break;
-		case 'q':
-			qflg = 1;
-			break;
-		case 'r':
-			rawout = 1;
-			break;
-		case 't':
-			flushtime = atoi(optarg);
-			if (flushtime < 0)
-				err(1, "invalid flush time %d", flushtime);
-			break;
-		case '?':
-		default:
-			usage();
-		}
-	argc -= optind;
-	argv += optind;
-
-	if (argc > 0) {
-		fname = argv[0];
-		argv++;
-		argc--;
-	} else
-		fname = "typescript";
-
-	if ((fscript = fopen(fname, pflg ? "r" : aflg ? "a" : "w")) == NULL)
-		err(1, "%s", fname);
-
-	if (pflg)
-		playback(fscript);
-
-	if (tcgetattr(STDIN_FILENO, &tt) == -1 ||
-	    ioctl(STDIN_FILENO, TIOCGWINSZ, &win) == -1) {
-		if (errno != ENOTTY) /* For debugger. */
-			err(1, "tcgetattr/ioctl");
-		if (openpty(&master, &slave, NULL, NULL, NULL) == -1)
-			err(1, "openpty");
-	} else {
-		if (openpty(&master, &slave, NULL, &tt, &win) == -1)
-			err(1, "openpty");
-		ttyflg = 1;
-	}
-
-	if (rawout)
-		record(fscript, NULL, 0, 's');
-
-	if (!qflg) {
-		tvec = time(NULL);
-		printf("Script started, output file is %s\n", fname);
-		if (!rawout) {
-			fprintf(fscript, "Script started on %s",
-			    ctime(&tvec));
-			if (argv[0]) {
-				showexit = 1;
-				fprintf(fscript, "Command: ");
-				for (k = 0 ; argv[k] ; ++k)
-					fprintf(fscript, "%s%s", k ? " " : "",
-						argv[k]);
-				fprintf(fscript, "\n");
-			}
-		}
-		fflush(fscript);
-	}
-	if (ttyflg) {
-		rtt = tt;
-		cfmakeraw(&rtt);
-		rtt.c_lflag &= ~ECHO;
-		tcsetattr(STDIN_FILENO, TCSAFLUSH, &rtt);
-	}
-
-	child = fork();
-	if (child < 0) {
-		warn("fork");
-		done(1);
-	}
-	if (child == 0) {
-		doshell(argv);
-	}
-	close(slave);
-
-	start = tvec = time(0);
-	readstdin = 1;
-	for (;;) {
-		FD_ZERO(&rfd);
-		FD_SET(master, &rfd);
-		if (readstdin)
-			FD_SET(STDIN_FILENO, &rfd);
-		if (!readstdin && ttyflg) {
-			tv.tv_sec = 1;
-			tv.tv_usec = 0;
-			tvp = &tv;
-			readstdin = 1;
-		} else if (flushtime > 0) {
-			tv.tv_sec = flushtime - (tvec - start);
-			tv.tv_usec = 0;
-			tvp = &tv;
-		} else {
-			tvp = NULL;
-		}
-		n = select(master + 1, &rfd, 0, 0, tvp);
-		if (n < 0 && errno != EINTR)
-			break;
-		if (n > 0 && FD_ISSET(STDIN_FILENO, &rfd)) {
-			cc = read(STDIN_FILENO, ibuf, BUFSIZ);
-			if (cc < 0)
-				break;
-			if (cc == 0) {
-				if (tcgetattr(master, &stt) == 0 &&
-				    (stt.c_lflag & ICANON) != 0) {
-					write(master, &stt.c_cc[VEOF], 1);
-				}
-				readstdin = 0;
-			}
-			if (cc > 0) {
-				if (rawout)
-					record(fscript, ibuf, cc, 'i');
-				write(master, ibuf, cc);
-				if (kflg && tcgetattr(master, &stt) >= 0 &&
-				    ((stt.c_lflag & ECHO) == 0)) {
-					fwrite(ibuf, 1, cc, fscript);
-				}
-			}
-		}
-		if (n > 0 && FD_ISSET(master, &rfd)) {
-			cc = read(master, obuf, sizeof (obuf));
-			if (cc <= 0)
-				break;
-			write(STDOUT_FILENO, obuf, cc);
-			if (rawout)
-				record(fscript, obuf, cc, 'o');
-			else
-				fwrite(obuf, 1, cc, fscript);
-		}
-		tvec = time(0);
-		if (tvec - start >= flushtime) {
-			fflush(fscript);
-			start = tvec;
-		}
-		if (Fflg)
-			fflush(fscript);
-	}
-	finish();
-	done(0);
-}
-
-static void
-usage(void)
-{
-	fprintf(stderr,
-		"usage: script [-adfkpqr] [-t time] [file [command ...]]\n");
-	exit(1);
-}
-
-static void
-finish(void)
-{
-	int e, status;
-
-	if (waitpid(child, &status, 0) == child) {
-		if (WIFEXITED(status))
-			e = WEXITSTATUS(status);
-		else if (WIFSIGNALED(status))
-			e = WTERMSIG(status);
-		else /* can't happen */
-			e = 1;
-		done(e);
-	}
-}
-
-static void
-doshell(char **av)
-{
-	const char *shell;
-
-	shell = getenv("SHELL");
-	if (shell == NULL)
-		shell = _PATH_BSHELL;
-
-	close(master);
-	fclose(fscript);
-	free(fmfname);
-	login_tty(slave);
-	setenv("SCRIPT", fname, 1);
-	if (av[0]) {
-		execvp(av[0], av);
-		warn("%s", av[0]);
-	} else {
-		execl(shell, shell, "-i", 0);
-		warn("%s", shell);
-	}
-	exit(1);
-}
-
-static void
-done(int eno)
-{
-	time_t tvec;
-
-	if (ttyflg)
-		tcsetattr(STDIN_FILENO, TCSAFLUSH, &tt);
-	tvec = time(NULL);
-	if (rawout)
-		record(fscript, NULL, 0, 'e');
-	if (!qflg) {
-		if (!rawout) {
-			if (showexit)
-				fprintf(fscript, "\nCommand exit status:"
-				    " %d", eno);
-			fprintf(fscript,"\nScript done on %s",
-			    ctime(&tvec));
-		}
-		printf("\nScript done, output file is %s\n", fname);
-	}
-	fclose(fscript);
-	close(master);
-	exit(eno);
-}
-
-static void
-record(FILE *fp, char *buf, size_t cc, int direction)
-{
-	struct iovec iov[2];
-	struct stamp stamp;
-	struct timeval tv;
-
-	gettimeofday(&tv, NULL);
-	stamp.scr_len = cc;
-	stamp.scr_sec = tv.tv_sec;
-	stamp.scr_usec = tv.tv_usec;
-	stamp.scr_direction = direction;
-	iov[0].iov_len = sizeof(stamp);
-	iov[0].iov_base = &stamp;
-	iov[1].iov_len = cc;
-	iov[1].iov_base = buf;
-	if (writev(fileno(fp), &iov[0], 2) == -1)
-		err(1, "writev");
-}
-
-static void
-consume(FILE *fp, off_t len, char *buf, int reg)
-{
-	size_t l;
-
-	if (reg) {
-		if (fseeko(fp, len, SEEK_CUR) == -1)
-			err(1, NULL);
-	}
-	else {
-		while (len > 0) {
-			l = MIN(DEF_BUF, len);
-			if (fread(buf, sizeof(char), l, fp) != l)
-				err(1, "cannot read buffer");
-			len -= l;
-		}
-	}
-}
-
-#define swapstamp(stamp) do { \
-	if (stamp.scr_direction > 0xff) { \
-		stamp.scr_len = bswap_64(stamp.scr_len); \
-		stamp.scr_sec = bswap_64(stamp.scr_sec); \
-		stamp.scr_usec = bswap_32(stamp.scr_usec); \
-		stamp.scr_direction = bswap_32(stamp.scr_direction); \
-	} \
-} while (0/*CONSTCOND*/)
-
-static void
-termset(void)
-{
-	struct termios traw;
-
-	if (tcgetattr(STDOUT_FILENO, &tt) == -1) {
-		if (errno != ENOTTY) /* For debugger. */
-			err(1, "tcgetattr");
-		return;
-	}
-	ttyflg = 1;
-	traw = tt;
-	cfmakeraw(&traw);
-	traw.c_lflag |= ISIG;
-	tcsetattr(STDOUT_FILENO, TCSANOW, &traw);
-}
-
-static void
-termreset(void)
-{
-	if (ttyflg) {
-		tcsetattr(STDOUT_FILENO, TCSADRAIN, &tt);
-		ttyflg = 0;
-	}
-}
-
-static void
-playback(FILE *fp)
-{
-	struct timespec tsi, tso;
-	struct stamp stamp;
-	struct stat pst;
-	static char buf[DEF_BUF];
-	off_t nread, save_len;
-	size_t l;
-	time_t tclock;
-	int reg;
-
-	if (fstat(fileno(fp), &pst) == -1)
-		err(1, "fstat failed");
-
-	reg = S_ISREG(pst.st_mode);
-
-	for (nread = 0; !reg || nread < pst.st_size; nread += save_len) {
-		if (fread(&stamp, sizeof(stamp), 1, fp) != 1) {
-			if (reg)
-				err(1, "reading playback header");
-			else
-				break;
-		}
-		swapstamp(stamp);
-		save_len = sizeof(stamp);
-
-		if (reg && stamp.scr_len >
-		    (uint64_t)(pst.st_size - save_len) - nread)
-			errx(1, "invalid stamp");
-
-		save_len += stamp.scr_len;
-		tclock = stamp.scr_sec;
-		tso.tv_sec = stamp.scr_sec;
-		tso.tv_nsec = stamp.scr_usec * 1000;
-
-		switch (stamp.scr_direction) {
-		case 's':
-			if (!qflg)
-			    printf("Script started on %s",
-				ctime(&tclock));
-			tsi = tso;
-			consume(fp, stamp.scr_len, buf, reg);
-			termset();
-			atexit(termreset);
-			break;
-		case 'e':
-			termreset();
-			if (!qflg)
-				printf("\nScript done on %s",
-				    ctime(&tclock));
-			consume(fp, stamp.scr_len, buf, reg);
-			break;
-		case 'i':
-			/* throw input away */
-			consume(fp, stamp.scr_len, buf, reg);
-			break;
-		case 'o':
-			tsi.tv_sec = tso.tv_sec - tsi.tv_sec;
-			tsi.tv_nsec = tso.tv_nsec - tsi.tv_nsec;
-			if (tsi.tv_nsec < 0) {
-				tsi.tv_sec -= 1;
-				tsi.tv_nsec += 1000000000;
-			}
-			if (usesleep)
-				nanosleep(&tsi, NULL);
-			tsi = tso;
-			while (stamp.scr_len > 0) {
-				l = MIN(DEF_BUF, stamp.scr_len);
-				if (fread(buf, sizeof(char), l, fp) != l)
-					err(1, "cannot read buffer");
-
-				write(STDOUT_FILENO, buf, l);
-				stamp.scr_len -= l;
-			}
-			break;
-		default:
-			errx(1, "invalid direction");
-		}
-	}
-	fclose(fp);
-	exit(0);
-}

examples/script.txt

@@ -1,100 +0,0 @@
-SCRIPT(1)            Cosmopolitan General Commands Manual              SCRIPT(1)
-
-𝐍𝐀𝐌𝐄
-     𝘀𝗰𝗿𝗶𝗽𝘁 — make typescript of terminal session
-
-𝐒𝐘𝐍𝐎𝐏𝐒𝐈𝐒
-     𝘀𝗰𝗿𝗶𝗽𝘁 [-𝗮𝗱𝗲𝗳𝗸𝗽𝗾𝗿] [-𝐅 p̲i̲p̲e̲] [-𝘁 t̲i̲m̲e̲] [f̲i̲l̲e̲ [c̲o̲m̲m̲a̲n̲d̲ .̲.̲.̲]]
-
-𝐃𝐄𝐒𝐂𝐑𝐈𝐏𝐓𝐈𝐎𝐍
-     The 𝘀𝗰𝗿𝗶𝗽𝘁 utility makes a typescript of everything printed on your termi‐
-     nal.  It is useful for students who need a hardcopy record of an interac‐
-     tive session as proof of an assignment, as the typescript file can be
-     printed out later with lpr(1).
-
-     If the argument f̲i̲l̲e̲ is given, 𝘀𝗰𝗿𝗶𝗽𝘁 saves all dialogue in f̲i̲l̲e̲.  If no
-     file name is given, the typescript is saved in the file t̲y̲p̲e̲s̲c̲r̲i̲p̲t̲.
-
-     If the argument c̲o̲m̲m̲a̲n̲d̲ is given, 𝘀𝗰𝗿𝗶𝗽𝘁 will run the specified command
-     with an optional argument vector instead of an interactive shell.
-
-     The following options are available:
-
-     -𝗮      Append the output to f̲i̲l̲e̲ or t̲y̲p̲e̲s̲c̲r̲i̲p̲t̲, retaining the prior con‐
-             tents.
-
-     -𝗱      When playing back a session with the -𝗽 flag, do not sleep between
-             records when playing back a timestamped session.
-
-     -𝗲      Accepted for compatibility with u̲t̲i̲l̲-̲l̲i̲n̲u̲x̲ 𝘀𝗰𝗿𝗶𝗽𝘁.  The child com‐
-             mand exit status is always the exit status of 𝘀𝗰𝗿𝗶𝗽𝘁.
-
-     -𝐅 p̲i̲p̲e̲
-             Immediately flush output after each write.  This will allow a user
-             to create a named pipe using mkfifo(1) and another user may watch
-             the live session using a utility like cat(1).
-
-     -𝗸      Log keys sent to the program as well as output.
-
-     -𝗽      Play back a session recorded with the -𝗿 flag in real time.
-
-     -𝗾      Run in quiet mode, omit the start, stop and command status mes‐
-             sages.
-
-     -𝗿      Record a session with input, output, and timestamping.
-
-     -𝘁 t̲i̲m̲e̲
-             Specify the interval at which the script output file will be
-             flushed to disk, in seconds.  A value of 0 causes 𝘀𝗰𝗿𝗶𝗽𝘁 to flush
-             after every character I/O event.  The default interval is 30 sec‐
-             onds.
-
-     The script ends when the forked shell (or command) exits (a c̲o̲n̲t̲r̲o̲l̲-̲D̲ to
-     exit the Bourne shell (sh(1)), and e̲x̲i̲t̲, l̲o̲g̲o̲u̲t̲ or c̲o̲n̲t̲r̲o̲l̲-̲D̲ (if i̲g̲n̲o̲r̲e̲e̲o̲f̲
-     is not set) for the C-shell, csh(1)).
-
-     Certain interactive commands, such as vi(1), create garbage in the type‐
-     script file.  The 𝘀𝗰𝗿𝗶𝗽𝘁 utility works best with commands that do not ma‐
-     nipulate the screen.  The results are meant to emulate a hardcopy terminal,
-     not an addressable one.
-
-𝐄𝐍𝐕𝐈𝐑𝐎𝐍𝐌𝐄𝐍𝐓
-     The following environment variables are utilized by 𝘀𝗰𝗿𝗶𝗽𝘁:
-
-     SCRIPT
-            The SCRIPT environment variable is added to the sub-shell.  If
-            SCRIPT already existed in the users environment, its value is over‐
-            written within the sub-shell.  The value of SCRIPT is the name of
-            the t̲y̲p̲e̲s̲c̲r̲i̲p̲t̲ file.
-
-     SHELL  If the variable SHELL exists, the shell forked by 𝘀𝗰𝗿𝗶𝗽𝘁 will be
-            that shell.  If SHELL is not set, the Bourne shell is assumed.
-            (Most shells set this variable automatically).
-
-𝐒𝐄𝐄 𝐀𝐋𝐒𝐎
-     csh(1) (for the h̲i̲s̲t̲o̲r̲y̲ mechanism)
-
-𝐇𝐈𝐒𝐓𝐎𝐑𝐘
-     The 𝘀𝗰𝗿𝗶𝗽𝘁 command appeared in 3.0BSD.
-
-     The -𝗱, -𝗽 and -𝗿 options first appeared in NetBSD 2.0 and were ported to
-     FreeBSD 9.2.
-
-𝐁𝐔𝐆𝐒
-     The 𝘀𝗰𝗿𝗶𝗽𝘁 utility places 𝗲𝘃𝗲𝗿𝘆𝘁𝗵𝗶𝗻𝗴 in the log file, including linefeeds
-     and backspaces.  This is not what the naive user expects.
-
-     It is not possible to specify a command without also naming the script file
-     because of argument parsing compatibility issues.
-
-     When running in -𝗸 mode, echo cancelling is far from ideal.  The slave ter‐
-     minal mode is checked for ECHO mode to check when to avoid manual echo log‐
-     ging.  This does not work when the terminal is in a raw mode where the pro‐
-     gram being run is doing manual echo.
-
-     If 𝘀𝗰𝗿𝗶𝗽𝘁 reads zero bytes from the terminal, it switches to a mode when it
-     only attempts to read once a second until there is data to read.  This pre‐
-     vents 𝘀𝗰𝗿𝗶𝗽𝘁 from spinning on zero-byte reads, but might cause a 1-second
-     delay in processing of user input.
-
-BSD                             September 1, 2020                            BSD

examples/shutdown.c

@@ -1,39 +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"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/reboot.h"
-
-int main(int argc, char *argv[]) {
-  char line[8] = {0};
-  if (argc > 1 && !strcmp(argv[1], "-y")) {
-    line[0] = 'y';
-  } else {
-    printf("shutdown your computer? yes or no [no] ");
-    fflush(stdout);
-    fgets(line, sizeof(line), stdin);
-  }
-  if (line[0] == 'y' || line[0] == 'Y') {
-    if (reboot(RB_POWER_OFF)) {
-      printf("system is shutting down...\n");
-      exit(0);
-    } else {
-      perror("reboot");
-      exit(1);
-    }
-  } else if (line[0] == 'n' || line[0] == 'N') {
-    exit(0);
-  } else {
-    printf("error: unrecognized response\n");
-    exit(2);
-  }
-}

examples/statfs.c

@@ -27,13 +27,13 @@ dontinline void ShowIt(const char *path) {
          "optimal transfer block size");
   sizefmt(ibuf, sf.f_frsize, 1024);
   printf("f_frsize  = %,zu (%sb %s)\n", sf.f_frsize, ibuf, "fragment size");
-  sizefmt(ibuf, sf.f_blocks * sf.f_frsize, 1024);
+  sizefmt(ibuf, sf.f_blocks * sf.f_bsize, 1024);
   printf("f_blocks  = %,zu (%sb %s)\n", sf.f_blocks, ibuf,
          "total data blocks in filesystem");
-  sizefmt(ibuf, sf.f_bfree * sf.f_frsize, 1024);
+  sizefmt(ibuf, sf.f_bfree * sf.f_bsize, 1024);
   printf("f_bfree   = %,zu (%sb %s)\n", sf.f_bfree, ibuf,
          "free blocks in filesystem");
-  sizefmt(ibuf, sf.f_bavail * sf.f_frsize, 1024);
+  sizefmt(ibuf, sf.f_bavail * sf.f_bsize, 1024);
   printf("f_bavail  = %,zu (%sb %s)\n", sf.f_bavail, ibuf,
          "free blocks available to use");
   printf("f_files   = %,zu (%s)\n", sf.f_files,

examples/symtab.c

@@ -1,42 +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/intrin/kprintf.h"
-#include "libc/log/log.h"
-
-/**
- * @fileoverview example of how to embed symbol table in .com file
- *
- *     # build our binary
- *     make -j16 o//examples/symtab.com
- *
- *     # move binary somewhere else
- *     # so it can't find the .com.dbg binary
- *     cp o//examples/symtab.com /tmp
- *
- *     # run program
- *     # notice that it has a symbolic backtrace
- *     /tmp/symtab.com
- *
- * @see examples/examples.mk
- */
-
-int main(int argc, char *argv[]) {
-
-  // this links all the debugging and zip functionality
-  ShowCrashReports();
-
-  kprintf("----------------\n");
-  kprintf(" THIS IS A TEST \n");
-  kprintf("SIMULATING CRASH\n");
-  kprintf("----------------\n");
-
-  volatile int64_t x;
-  return 1 / (x = 0);
-}

examples/sysinfo.c

@@ -46,31 +46,31 @@ int main(int argc, char *argv[]) {
          1. / 65536 * si.loads[1],    //
          1. / 65536 * si.loads[2]);   //
 
-  sizefmt(ibuf, si.totalram * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "totalram", si.totalram, ibuf);
+  sizefmt(ibuf, si.totalram, 1024);
+  printf("%-16s %s\n", "totalram", ibuf);
 
-  sizefmt(ibuf, si.freeram * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "freeram", si.freeram, ibuf);
+  sizefmt(ibuf, si.freeram, 1024);
+  printf("%-16s %s\n", "freeram", ibuf);
 
-  sizefmt(ibuf, si.sharedram * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "sharedram", si.sharedram, ibuf);
+  sizefmt(ibuf, si.sharedram, 1024);
+  printf("%-16s %s\n", "sharedram", ibuf);
 
-  sizefmt(ibuf, si.bufferram * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "bufferram", si.bufferram, ibuf);
+  sizefmt(ibuf, si.bufferram, 1024);
+  printf("%-16s %s\n", "bufferram", ibuf);
 
-  sizefmt(ibuf, si.totalswap * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "totalswap", si.totalswap, ibuf);
+  sizefmt(ibuf, si.totalswap, 1024);
+  printf("%-16s %s\n", "totalswap", ibuf);
 
-  sizefmt(ibuf, si.freeswap * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "freeswap", si.freeswap, ibuf);
+  sizefmt(ibuf, si.freeswap, 1024);
+  printf("%-16s %s\n", "freeswap", ibuf);
 
   printf("%-16s %lu\n", "processes", si.procs);
 
-  sizefmt(ibuf, si.totalhigh * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "totalhigh", si.totalhigh, ibuf);
+  sizefmt(ibuf, si.totalhigh, 1024);
+  printf("%-16s %s\n", "totalhigh", ibuf);
 
-  sizefmt(ibuf, si.freehigh * si.mem_unit, 1024);
-  printf("%-16s %ld (%s)\n", "freehigh", si.freehigh, ibuf);
+  sizefmt(ibuf, si.freehigh, 1024);
+  printf("%-16s %s\n", "freehigh", ibuf);
 
   sizefmt(ibuf, si.mem_unit, 1024);
   printf("%-16s %s\n", "mem_unit", ibuf);

examples/system.c

@@ -7,20 +7,13 @@
 │   • http://creativecommons.org/publicdomain/zero/1.0/            │
 ╚─────────────────────────────────────────────────────────────────*/
 #endif
-#include "libc/runtime/runtime.h"
+#include "libc/dce.h"
 #include "libc/stdio/stdio.h"
 
-/**
- * @fileoverview Cosmopolitan Command Interpreter Demo
- * Yes this works on Windows.
- */
-
-STATIC_YOINK("_tr");
-STATIC_YOINK("_sed");
-
 int main(int argc, char *argv[]) {
-  system("x=world\n"
-         "echo hello $x |\n"
-         "  tr a-z A-Z |\n"
-         "  sed 's/\\(.\\)/\\1 /g'");
+  if (IsWindows()) {
+    system("notepad");
+  } else {
+    system("ls | tr a-z A-Z");
+  }
 }

examples/ttyaudio.c

@@ -0,0 +1,152 @@
+#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 "libc/calls/calls.h"
+#include "libc/calls/struct/itimerval.h"
+#include "libc/calls/struct/sigaction.h"
+#include "libc/fmt/nf32.h"
+#include "libc/intrin/bits.h"
+#include "libc/log/check.h"
+#include "libc/macros.internal.h"
+#include "libc/mem/mem.h"
+#include "libc/runtime/runtime.h"
+#include "libc/stdio/append.h"
+#include "libc/stdio/stdio.h"
+#include "libc/str/str.h"
+#include "libc/sysv/consts/itimer.h"
+#include "libc/sysv/consts/sig.h"
+#include "libc/time/time.h"
+
+/**
+ * @fileoverview experimental way to play audio in terminals
+ *
+ * This is an stdio application that prints audio samples. The terminal
+ * on the other end, needs to be able to understand the Nf sequences we
+ * use here, which should be invisible to the terminal sort of like out
+ * of band signalling.
+ *
+ * To play audio with a supporting terminal:
+ *
+ *     make -j8 o//examples/ttyaudio.com
+ *     wget https://justine.lol/numbers.s16
+ *     o//examples/ttyaudio.com numbers.s16
+ *
+ * To reveal the inband ansi audio transmission:
+ *
+ *     o//examples/ttyaudio.com numbers.s16 2>/dev/null |
+ *       o//tool/viz/bing.com |
+ *       o//tool/viz/fold.com
+ *
+ */
+
+#define CSI  "s"
+#define SGR1 "?80"
+#define SGR2 "?81"
+
+struct Ring {
+  int i;     // read index
+  int j;     // write index
+  int n;     // total samples
+  short* p;  // samples
+};
+
+struct Speaker {
+  int rate;         // in hertz, e.g. 8000
+  int codec;        // 0 = s16, 2 = µ-Law
+  int channels;     // 1 = mono, 2 = stereo
+  struct Ring buf;  // audio playback buffer
+};
+
+const int maxar = 31;
+const int ptime = 20;
+
+struct Speaker s;
+
+void OnAlrm(int sig) {
+}
+
+void LoadAudioFile(struct Speaker* s, const char* path) {
+  int rc;
+  FILE* f;
+  short buf[1024];
+  if (!(f = fopen(path, "rb"))) {
+    fprintf(stderr, "failed to open file\n");
+    exit(1);
+  }
+  for (;;) {
+    rc = fread(buf, sizeof(short), sizeof(buf) / sizeof(short), f);
+    if (rc) {
+      s->buf.p = (short*)realloc(s->buf.p, (s->buf.n + rc) * sizeof(short));
+      memcpy(s->buf.p + s->buf.n, buf, rc * sizeof(short));
+      s->buf.n += rc;
+    } else if (ferror(f)) {
+      fprintf(stderr, "read error: %s\n", strerror(ferror(f)));
+      exit(2);
+    } else {
+      break;
+    }
+  }
+  fclose(f);
+}
+
+int main(int argc, char* argv[]) {
+  if (argc < 2) return 1;
+  if (!isatty(0)) exit(1);
+
+  s.rate = 8000;
+  s.channels = 1;
+  s.codec = 0;
+  LoadAudioFile(&s, argv[1]);
+
+  char nf[21];
+  char* obuf = 0;
+  appendw(&obuf, READ16LE("\e%"));
+  appendd(&obuf, nf, EncodeNf32(nf, s.rate) - nf);
+  appendw(&obuf, '/');
+  appendd(&obuf, nf, EncodeNf32(nf, s.channels) - nf);
+  appendw(&obuf, '/');
+  appendd(&obuf, nf, EncodeNf32(nf, s.codec) - nf);
+  appendw(&obuf, '0');
+  write(1, obuf, appendz(obuf).i);
+  free(obuf);
+
+  struct sigaction sa = {.sa_handler = OnAlrm};
+  struct itimerval it = {{0, ptime * 1000}, {0, ptime * 1000}};
+  CHECK_NE(-1, sigaction(SIGALRM, &sa, 0));
+  CHECK_NE(-1, setitimer(ITIMER_REAL, &it, 0));
+
+  for (;;) {
+    char* p;
+    int count;
+    char nf[22];
+    int i, j, x;
+    char* obuf = 0;
+    int samps = s.rate / (1000 / ptime);
+    appendw(&obuf, READ16LE("\e "));
+    for (i = 0; i < samps; ++i) {
+      if (s.codec == 1) {
+        x = mulaw(s.buf.p[s.buf.i++]);
+      } else {
+        x = s.buf.p[s.buf.i++] & 0xffff;
+      }
+      *(p = EncodeNf32(nf, x)) = '/';
+      appendd(&obuf, nf, p + 1 - nf);
+      if (s.buf.i == s.buf.n) break;
+    }
+    appendw(&obuf, '0');
+    write(1, obuf, appendz(obuf).i);
+    free(obuf);
+    fprintf(stderr, "\r\e[K%d / %d", s.buf.i, s.buf.n);
+    fflush(stderr);
+    pause();
+  }
+
+  return 1;
+}

examples/vga.c

@@ -49,12 +49,12 @@ int main(int argc, char *argv[]) {
     printf("res = %d?\n", res);
     return -1;
   }
-  printf("\e[92;44mHello World!\e[0m %.19Lg\n", atan2l(x, y));
+  printf("Hello World! %.19Lg\n", atan2l(x, y));
 
   // read/print loop so machine doesn't reset on metal
   for (;;) {
     if ((res = readansi(0, buf, 16)) > 0) {
-      printf("got \e[97m%`'.*s\e[0m\r\n", res, buf);
+      printf("got %`'.*s\r\n", res, buf);
     }
   }
 }

examples/vga2.c

@@ -1,39 +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/termios.h"
-#include "libc/isystem/unistd.h"
-#include "libc/math.h"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/termios.h"
-
-/**
- * @fileoverview Demo of program crash reporting with Bare Metal VGA TTY.
- *
- *     make -j8 o//examples/vga2.com
- *     qemu-system-x86_64 -hda o//examples/vga2.com -serial stdio
- */
-
-STATIC_YOINK("vga_console");
-STATIC_YOINK("_idt");
-STATIC_YOINK("EfiMain");
-
-int main(int argc, char *argv[]) {
-  int i;
-  volatile int x = 1;
-  volatile int y = 2;
-  printf("argc = %d\n", argc);
-  for (i = 0; i < argc; ++i) {
-    printf("argv[%d] = \"%s\"\n", i, argv[i]);
-  }
-  printf("\e[92;44mHello World!\e[0m %d\n", 1 / (x + y - 3));
-  for (;;);
-}

examples/vqsort.c

@@ -1,25 +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 "third_party/vqsort/vqsort.h"
-#include "libc/macros.internal.h"
-#include "libc/stdio/stdio.h"
-#include "third_party/vqsort/vqsort.h"
-
-// how to sort one gigabyte of 64-bit integers per second
-
-int main(int argc, char *argv[]) {
-  int64_t A[] = {9, 3, -3, 5, 23, 7};
-  vqsort_int64(A, ARRAYLEN(A));
-  for (int i = 0; i < ARRAYLEN(A); ++i) {
-    if (i) printf(" ");
-    printf("%ld", A[i]);
-  }
-  printf("\n");
-}

examples/wall.c

@@ -1,148 +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/timespec.h"
-#include "libc/calls/termios.h"
-#include "libc/errno.h"
-#include "libc/fmt/fmt.h"
-#include "libc/runtime/runtime.h"
-#include "libc/stdio/append.h"
-#include "libc/stdio/stdio.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/o.h"
-#include "libc/time/struct/tm.h"
-#include "third_party/getopt/getopt.h"
-#include "third_party/musl/passwd.h"
-
-/**
- * @fileoverview program for broadcasting message to all terminals, e.g.
- *
- *     o//examples/wall.com hello friends
- *
- * Will place some bold text into the top left corners of all terminals:
- *
- *     Broadcast message from jart@host (pts/4) (Tue Oct 11 03:52:24 2022):
- *     hello friends
- *
- * It's useful for having one terminal tab notify your other ones when
- * something like a long running job completes. In the old days back
- * when unix systems had multiple users, the wall command provided the
- * ultimate lulz especially if it's a setuid binary with root privs.
- */
-
-#define GETOPTS "v"
-#define USAGE \
-  "\
-Usage: wall.com [-v] [TEXTMSG] [<TEXTMSG]\n\
-  -v          increase verbosity\n\
-Examples:\n\
-  wall.com 'hello my friends'\n\
-  echo hello my friends | wall.com\n\
-"
-
-int g_verbose;
-
-static void GetOpts(int argc, char *argv[]) {
-  int opt;
-  while ((opt = getopt(argc, argv, GETOPTS)) != -1) {
-    switch (opt) {
-      case 'v':
-        g_verbose++;
-        break;
-      case '?':
-        write(1, USAGE, sizeof(USAGE) - 1);
-        exit(0);
-      default:
-        write(2, USAGE, sizeof(USAGE) - 1);
-        exit(64);
-    }
-  }
-}
-
-char *GetHost(void) {
-  static char host[254];
-  if (gethostname(host, sizeof(host))) {
-    strcpy(host, "localhost");
-  }
-  return host;
-}
-
-char *GetTime(void) {
-  int64_t t;
-  struct tm tm;
-  struct timespec ts;
-  clock_gettime(0, &ts);
-  localtime_r(&ts.tv_sec, &tm);
-  return _chomp(asctime(&tm));
-}
-
-int main(int argc, char *argv[]) {
-  GetOpts(argc, argv);
-
-  // create broadcast banner
-  // we use \e[1m so the text is strong & visually distinct
-  // we use \e[K so it doesn't get lost in a forest of text
-  // we map \n → \r\n because teletype might be in raw mode
-  char *msg = 0;
-  const char *s;
-  appends(&msg, "\e7");    // save cursor position
-  appends(&msg, "\e[H");   // goto top left corne
-  appends(&msg, "\e[K");   // clear line forward
-  appends(&msg, "\e[1m");  // bold text
-  appendf(&msg, "Broadcast message from %s@%s", getpwuid(getuid())->pw_name,
-          GetHost());
-  if (isatty(0) && (s = ttyname(0))) appendf(&msg, " (%s)", s);
-  appendf(&msg, " (%s):\r\n", GetTime());
-  appends(&msg, "\e[K");
-
-  // append broadcast message
-  if (optind < argc) {
-    // use cli arguments as message if they exist
-    for (int i = 0; optind + i < argc; ++i) {
-      if (i) appends(&msg, " ");
-      for (s = argv[optind + i]; *s; ++s) {
-        if (*s == '\n') {
-          appends(&msg, "\r\n\e[K");
-        } else {
-          appendw(&msg, *s & 255);
-        }
-      }
-    }
-  } else {
-    // otherwise use stdin as message
-    ssize_t i, rc;
-    char buf[512];
-    while ((rc = read(0, buf, sizeof(buf))) > 0) {
-      for (i = 0; i < rc; ++i) {
-        if (buf[i] == '\n') {
-          appends(&msg, "\r\n\e[K");  // clear line forward
-        } else {
-          appendw(&msg, buf[i] & 255);
-        }
-      }
-    }
-  }
-  appends(&msg, "\r\n\e[K\e[0m\e8");  // restore
-
-  // try to send message to all pseudoteletypewriters
-  for (int i = 0;; ++i) {
-    int fd;
-    char pts[32];
-    snprintf(pts, sizeof(pts), "/dev/pts/%d", i);
-    if ((fd = open(pts, O_WRONLY | O_NOCTTY)) == -1) {
-      if (errno == ENOENT) break;
-      if (g_verbose) perror(pts);
-    }
-    write(fd, msg, appendz(msg).i);
-    close(fd);
-  }
-
-  return 0;
-}

examples/whois.c

@@ -1,617 +0,0 @@
-/*-*- mode:c;indent-tabs-mode:t;c-basic-offset:8;tab-width:8;coding:utf-8   -*-│
-│vi: set et ft=c ts=8 tw=8 fenc=utf-8                                       :vi│
-╞══════════════════════════════════════════════════════════════════════════════╡
-│ Copyright (c) 1980, 1993                                                     │
-│      The Regents of the University of California.  All rights reserved.      │
-│                                                                              │
-│ Redistribution and use in source and binary forms, with or without           │
-│ modification, are permitted provided that the following conditions           │
-│ are met:                                                                     │
-│  1. Redistributions of source code must retain the above copyright           │
-│     notice, this list of conditions and the following disclaimer.            │
-│  2. Redistributions in binary form must reproduce the above copyright        │
-│     notice, this list of conditions and the following disclaimer in the      │
-│     documentation and/or other materials provided with the distribution.     │
-│  3. Neither the name of the University nor the names of its contributors     │
-│     may be used to endorse or promote products derived from this software    │
-│     without specific prior written permission.                               │
-│                                                                              │
-│ THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND      │
-│ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE        │
-│ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   │
-│ ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE     │
-│ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL   │
-│ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS      │
-│ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)        │
-│ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT   │
-│ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY    │
-│ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF       │
-│ SUCH DAMAGE.                                                                 │
-╚─────────────────────────────────────────────────────────────────────────────*/
-#include "libc/calls/calls.h"
-#include "libc/dns/dns.h"
-#include "libc/errno.h"
-#include "libc/log/bsd.h"
-#include "libc/mem/fmt.h"
-#include "libc/mem/mem.h"
-#include "libc/runtime/runtime.h"
-#include "libc/sock/struct/pollfd.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/af.h"
-#include "libc/sysv/consts/ex.h"
-#include "libc/sysv/consts/f.h"
-#include "libc/sysv/consts/o.h"
-#include "libc/sysv/consts/poll.h"
-#include "libc/sysv/consts/sock.h"
-#include "third_party/getopt/getopt.h"
-// clang-format off
-
-asm(".ident\t\"\\n\\n\
-FreeBSD Whois (BSD-3 License)\\n\
-Copyright (c) 1980, 1993\\n\
-\tThe Regents of the University of California.\\n\
-\tAll rights reserved.\"");
-asm(".include \"libc/disclaimer.inc\"");
-
-#define	ABUSEHOST	"whois.abuse.net"
-#define	ANICHOST	"whois.arin.net"
-#define	DENICHOST	"whois.denic.de"
-#define	DKNICHOST	"whois.dk-hostmaster.dk"
-#define	FNICHOST	"whois.afrinic.net"
-#define	GNICHOST	"whois.nic.gov"
-#define	IANAHOST	"whois.iana.org"
-#define	INICHOST	"whois.internic.net"
-#define	KNICHOST	"whois.krnic.net"
-#define	LNICHOST	"whois.lacnic.net"
-#define	MNICHOST	"whois.ra.net"
-#define	PDBHOST		"whois.peeringdb.com"
-#define	PNICHOST	"whois.apnic.net"
-#define	QNICHOST_TAIL	".whois-servers.net"
-#define	RNICHOST	"whois.ripe.net"
-#define	VNICHOST	"whois.verisign-grs.com"
-
-#define	DEFAULT_PORT	"whois"
-
-#define WHOIS_RECURSE	0x01
-#define WHOIS_QUICK	0x02
-#define WHOIS_SPAM_ME	0x04
-
-#define CHOPSPAM	">>> Last update of WHOIS database:"
-
-#define ishost(h) (isalnum((unsigned char)h) || h == '.' || h == '-')
-
-#define SCAN(p, end, check)					\
-	while ((p) < (end))					\
-		if (check) ++(p);				\
-		else break
-
-static struct {
-	const char *suffix, *server;
-} whoiswhere[] = {
-	/* Various handles */
-	{ "-ARIN", ANICHOST },
-	{ "-NICAT", "at" QNICHOST_TAIL },
-	{ "-NORID", "no" QNICHOST_TAIL },
-	{ "-RIPE", RNICHOST },
-	/* Nominet's whois server doesn't return referrals to JANET */
-	{ ".ac.uk", "ac.uk" QNICHOST_TAIL },
-	{ ".gov.uk", "ac.uk" QNICHOST_TAIL },
-	{ "", IANAHOST }, /* default */
-	{ NULL, NULL } /* safety belt */
-};
-
-#define WHOIS_REFERRAL(s) { s, sizeof(s) - 1 }
-static struct {
-	const char *prefix;
-	size_t len;
-} whois_referral[] = {
-	WHOIS_REFERRAL("whois:"), /* IANA */
-	WHOIS_REFERRAL("Whois Server:"),
-	WHOIS_REFERRAL("Registrar WHOIS Server:"), /* corporatedomains.com */
-	WHOIS_REFERRAL("ReferralServer:  whois://"), /* ARIN */
-	WHOIS_REFERRAL("ReferralServer:  rwhois://"), /* ARIN */
-	WHOIS_REFERRAL("descr:          region. Please query"), /* AfriNIC */
-	{ NULL, 0 }
-};
-
-/*
- * We have a list of patterns for RIRs that assert ignorance rather than
- * providing referrals. If that happens, we guess that ARIN will be more
- * helpful. But, before following a referral to an RIR, we check if we have
- * asked that RIR already, and if so we make another guess.
- */
-static const char *actually_arin[] = {
-	"netname:        ERX-NETBLOCK\n", /* APNIC */
-	"netname:        NON-RIPE-NCC-MANAGED-ADDRESS-BLOCK\n",
-	NULL
-};
-
-static struct {
-	int loop;
-	const char *host;
-} try_rir[] = {
-	{ 0, ANICHOST },
-	{ 0, RNICHOST },
-	{ 0, PNICHOST },
-	{ 0, FNICHOST },
-	{ 0, LNICHOST },
-	{ 0, NULL }
-};
-
-static void
-reset_rir(void) {
-	int i;
-
-	for (i = 0; try_rir[i].host != NULL; i++)
-		try_rir[i].loop = 0;
-}
-
-static const char *port = DEFAULT_PORT;
-
-static const char *choose_server(char *);
-static struct addrinfo *gethostinfo(const char *, const char *, int);
-static void s_asprintf(char **ret, const char *format, ...);
-static void usage(void);
-static void whois(const char *, const char *, const char *, int);
-
-int
-main(int argc, char *argv[])
-{
-	const char *country, *host;
-	int ch, flags;
-
-#ifdef	SOCKS
-	SOCKSinit(argv[0]);
-#endif
-
-	country = host = NULL;
-	flags = 0;
-	while ((ch = getopt(argc, argv, "aAbc:fgh:iIklmp:PQrRS")) != -1) {
-		switch (ch) {
-		case 'a':
-			host = ANICHOST;
-			break;
-		case 'A':
-			host = PNICHOST;
-			break;
-		case 'b':
-			host = ABUSEHOST;
-			break;
-		case 'c':
-			country = optarg;
-			break;
-		case 'f':
-			host = FNICHOST;
-			break;
-		case 'g':
-			host = GNICHOST;
-			break;
-		case 'h':
-			host = optarg;
-			break;
-		case 'i':
-			host = INICHOST;
-			break;
-		case 'I':
-			host = IANAHOST;
-			break;
-		case 'k':
-			host = KNICHOST;
-			break;
-		case 'l':
-			host = LNICHOST;
-			break;
-		case 'm':
-			host = MNICHOST;
-			break;
-		case 'p':
-			port = optarg;
-			break;
-		case 'P':
-			host = PDBHOST;
-			break;
-		case 'Q':
-			flags |= WHOIS_QUICK;
-			break;
-		case 'r':
-			host = RNICHOST;
-			break;
-		case 'R':
-			flags |= WHOIS_RECURSE;
-			break;
-		case 'S':
-			flags |= WHOIS_SPAM_ME;
-			break;
-		case '?':
-		default:
-			usage();
-			/* NOTREACHED */
-		}
-	}
-	argc -= optind;
-	argv += optind;
-
-	if (!argc || (country != NULL && host != NULL))
-		usage();
-
-	/*
-	 * If no host or country is specified, rely on referrals from IANA.
-	 */
-	if (host == NULL && country == NULL) {
-		if ((host = getenv("WHOIS_SERVER")) == NULL &&
-		    (host = getenv("RA_SERVER")) == NULL) {
-			if (!(flags & WHOIS_QUICK))
-				flags |= WHOIS_RECURSE;
-		}
-	}
-	while (argc-- > 0) {
-		if (country != NULL) {
-			char *qnichost;
-			s_asprintf(&qnichost, "%s%s", country, QNICHOST_TAIL);
-			whois(*argv, qnichost, port, flags);
-			free(qnichost);
-		} else
-			whois(*argv, host != NULL ? host :
-			      choose_server(*argv), port, flags);
-		reset_rir();
-		argv++;
-	}
-	exit(0);
-}
-
-static const char *
-choose_server(char *domain)
-{
-	size_t len = strlen(domain);
-	int i;
-
-	for (i = 0; whoiswhere[i].suffix != NULL; i++) {
-		size_t suffix_len = strlen(whoiswhere[i].suffix);
-		if (len > suffix_len &&
-		    strcasecmp(domain + len - suffix_len,
-			       whoiswhere[i].suffix) == 0)
-			return (whoiswhere[i].server);
-	}
-	errx(EX_SOFTWARE, "no default whois server");
-}
-
-static struct addrinfo *
-gethostinfo(const char *host, const char *hport, int exit_on_noname)
-{
-	struct addrinfo hints, *res;
-	int error;
-
-	memset(&hints, 0, sizeof(hints));
-	hints.ai_flags = AI_CANONNAME;
-	hints.ai_family = AF_UNSPEC;
-	hints.ai_socktype = SOCK_STREAM;
-	res = NULL;
-	error = getaddrinfo(host, hport, &hints, &res);
-	if (error && (exit_on_noname || error != EAI_NONAME))
-		err(EX_NOHOST, "%s: %s", host, gai_strerror(error));
-	return (res);
-}
-
-/*
- * Wrapper for asprintf(3) that exits on error.
- */
-static void
-s_asprintf(char **ret, const char *format, ...)
-{
-	va_list ap;
-
-	va_start(ap, format);
-	if (vasprintf(ret, format, ap) == -1) {
-		va_end(ap);
-		err(EX_OSERR, "vasprintf()");
-	}
-	va_end(ap);
-}
-
-static int
-connect_to_any_host(struct addrinfo *hostres)
-{
-	struct addrinfo *res;
-	nfds_t i, j;
-	size_t count;
-	struct pollfd *fds;
-	int timeout = 180, s = -1;
-
-	for (res = hostres, count = 0; res; res = res->ai_next)
-		count++;
-	fds = calloc(count, sizeof(*fds));
-	if (fds == NULL)
-		err(EX_OSERR, "calloc()");
-
-	/*
-	 * Traverse the result list elements and make non-block
-	 * connection attempts.
-	 */
-	count = i = 0;
-	for (res = hostres; res != NULL; res = res->ai_next) {
-		s = socket(res->ai_family, res->ai_socktype | SOCK_NONBLOCK,
-		    res->ai_protocol);
-		if (s < 0)
-			continue;
-		if (connect(s, res->ai_addr, res->ai_addrlen) < 0) {
-			if (errno == EINPROGRESS) {
-				/* Add the socket to poll list */
-				fds[i].fd = s;
-				fds[i].events = POLLERR | POLLHUP |
-						POLLIN | POLLOUT;
-				/*
-				 * From here until a socket connects, the
-				 * socket fd is owned by the fds[] poll array.
-				 */
-				s = -1;
-				count++;
-				i++;
-			} else {
-				close(s);
-				s = -1;
-
-				/*
-				 * Poll only if we have something to poll,
-				 * otherwise just go ahead and try next
-				 * address
-				 */
-				if (count == 0)
-					continue;
-			}
-		} else
-			goto done;
-
-		/*
-		 * If we are at the last address, poll until a connection is
-		 * established or we failed all connection attempts.
-		 */
-		if (res->ai_next == NULL)
-			timeout = INFTIM;
-
-		/*
-		 * Poll the watched descriptors for successful connections:
-		 * if we still have more untried resolved addresses, poll only
-		 * once; otherwise, poll until all descriptors have errors,
-		 * which will be considered as ETIMEDOUT later.
-		 */
-		do {
-			int n;
-
-			n = poll(fds, i, timeout);
-			if (n == 0) {
-				/*
-				 * No event reported in time.  Try with a
-				 * smaller timeout (but cap at 2-3ms)
-				 * after a new host have been added.
-				 */
-				if (timeout >= 3)
-					timeout >>= 1;
-
-				break;
-			} else if (n < 0) {
-				/*
-				 * errno here can only be EINTR which we would
-				 * want to clean up and bail out.
-				 */
-				s = -1;
-				goto done;
-			}
-
-			/*
-			 * Check for the event(s) we have seen.
-			 */
-			for (j = 0; j < i; j++) {
-				if (fds[j].fd == -1 || fds[j].events == 0 ||
-				    fds[j].revents == 0)
-					continue;
-				if (fds[j].revents & ~(POLLIN | POLLOUT)) {
-					close(fds[j].fd);
-					fds[j].fd = -1;
-					fds[j].events = 0;
-					count--;
-					continue;
-				} else if (fds[j].revents & (POLLIN | POLLOUT)) {
-					/* Connect succeeded. */
-					s = fds[j].fd;
-					fds[j].fd = -1;
-
-					goto done;
-				}
-
-			}
-		} while (timeout == INFTIM && count != 0);
-	}
-
-	/* All attempts were failed */
-	s = -1;
-	if (count == 0)
-		errno = ETIMEDOUT;
-
-done:
-	/* Close all watched fds except the succeeded one */
-	for (j = 0; j < i; j++)
-		if (fds[j].fd != -1)
-			close(fds[j].fd);
-	free(fds);
-	return (s);
-}
-
-static void
-whois(const char *query, const char *hostname, const char *hostport, int flags)
-{
-	FILE *fp;
-	struct addrinfo *hostres;
-	char *buf, *host, *nhost, *nport, *p;
-	int comment, s, f;
-	size_t len, i;
-
-	hostres = gethostinfo(hostname, hostport, 1);
-	s = connect_to_any_host(hostres);
-	if (s == -1)
-		err(EX_OSERR, "connect()");
-
-	/* Restore default blocking behavior.  */
-	if ((f = fcntl(s, F_GETFL)) == -1)
-		err(EX_OSERR, "fcntl()");
-	f &= ~O_NONBLOCK;
-	if (fcntl(s, F_SETFL, f) == -1)
-		err(EX_OSERR, "fcntl()");
-
-	fp = fdopen(s, "r+");
-	if (fp == NULL)
-		err(EX_OSERR, "fdopen()");
-
-	if (!(flags & WHOIS_SPAM_ME) &&
-	    (strcasecmp(hostname, DENICHOST) == 0 ||
-	     strcasecmp(hostname, "de" QNICHOST_TAIL) == 0)) {
-		const char *q;
-		int idn = 0;
-		for (q = query; *q != '\0'; q++)
-			if (!isascii(*q))
-				idn = 1;
-		fprintf(fp, "-T dn%s %s\r\n", idn ? "" : ",ace", query);
-	} else if (!(flags & WHOIS_SPAM_ME) &&
-		   (strcasecmp(hostname, DKNICHOST) == 0 ||
-		    strcasecmp(hostname, "dk" QNICHOST_TAIL) == 0))
-		fprintf(fp, "--show-handles %s\r\n", query);
-	else if ((flags & WHOIS_SPAM_ME) ||
-		 strchr(query, ' ') != NULL)
-		fprintf(fp, "%s\r\n", query);
-	else if (strcasecmp(hostname, ANICHOST) == 0) {
-		if (strncasecmp(query, "AS", 2) == 0 &&
-		    strspn(query+2, "0123456789") == strlen(query+2))
-			fprintf(fp, "+ a %s\r\n", query+2);
-		else
-			fprintf(fp, "+ %s\r\n", query);
-	} else if (strcasecmp(hostres->ai_canonname, VNICHOST) == 0)
-		fprintf(fp, "domain %s\r\n", query);
-	else
-		fprintf(fp, "%s\r\n", query);
-	fflush(fp);
-
-	comment = 0;
-	if (!(flags & WHOIS_SPAM_ME) &&
-	    (strcasecmp(hostname, ANICHOST) == 0 ||
-	     strcasecmp(hostname, RNICHOST) == 0)) {
-		comment = 2;
-	}
-
-	nhost = NULL;
-	while ((buf = fgetln(fp, &len)) != NULL) {
-		/* Nominet */
-		if (!(flags & WHOIS_SPAM_ME) &&
-		    len == 5 && strncmp(buf, "-- \r\n", 5) == 0)
-			break;
-		/* RIRs */
-		if (comment == 1 && buf[0] == '#')
-			break;
-		else if (comment == 2) {
-			if (strchr("#%\r\n", buf[0]) != NULL)
-				continue;
-			else
-				comment = 1;
-		}
-
-		printf("%.*s", (int)len, buf);
-
-		if ((flags & WHOIS_RECURSE) && nhost == NULL) {
-			for (i = 0; whois_referral[i].prefix != NULL; i++) {
-				p = buf;
-				SCAN(p, buf+len, *p == ' ');
-				if (strncasecmp(p, whois_referral[i].prefix,
-					           whois_referral[i].len) != 0)
-					continue;
-				p += whois_referral[i].len;
-				SCAN(p, buf+len, *p == ' ');
-				host = p;
-				SCAN(p, buf+len, ishost(*p));
-				if (p > host) {
-					char *pstr;
-
-					s_asprintf(&nhost, "%.*s",
-						   (int)(p - host), host);
-
-					if (*p != ':') {
-						s_asprintf(&nport, "%s", port);
-						break;
-					}
-
-					pstr = ++p;
-					SCAN(p, buf+len, isdigit(*p));
-					if (p > pstr && (p - pstr) < 6) {
-						s_asprintf(&nport, "%.*s",
-						    (int)(p - pstr), pstr);
-						break;
-					}
-
-					/* Invalid port; don't recurse */
-					free(nhost);
-					nhost = NULL;
-				}
-				break;
-			}
-			for (i = 0; actually_arin[i] != NULL; i++) {
-				if (strncmp(buf, actually_arin[i], len) == 0) {
-					s_asprintf(&nhost, "%s", ANICHOST);
-					s_asprintf(&nport, "%s", port);
-					break;
-				}
-			}
-		}
-		/* Verisign etc. */
-		if (!(flags & WHOIS_SPAM_ME) &&
-		    len >= sizeof(CHOPSPAM)-1 &&
-		    (strncasecmp(buf, CHOPSPAM, sizeof(CHOPSPAM)-1) == 0 ||
-		     strncasecmp(buf, CHOPSPAM+4, sizeof(CHOPSPAM)-5) == 0)) {
-			printf("\n");
-			break;
-		}
-	}
-	fclose(fp);
-	freeaddrinfo(hostres);
-
-	f = 0;
-	for (i = 0; try_rir[i].host != NULL; i++) {
-		/* Remember visits to RIRs */
-		if (try_rir[i].loop == 0 &&
-		    strcasecmp(try_rir[i].host, hostname) == 0)
-			try_rir[i].loop = 1;
-		/* Do we need to find an alternative RIR? */
-		if (try_rir[i].loop != 0 && nhost != NULL &&
-		    strcasecmp(try_rir[i].host, nhost) == 0) {
-			free(nhost);
-			nhost = NULL;
-			free(nport);
-			nport = NULL;
-			f = 1;
-		}
-	}
-	if (f) {
-		/* Find a replacement RIR */
-		for (i = 0; try_rir[i].host != NULL; i++) {
-			if (try_rir[i].loop == 0) {
-				s_asprintf(&nhost, "%s", try_rir[i].host);
-				s_asprintf(&nport, "%s", port);
-				break;
-			}
-		}
-	}
-	if (nhost != NULL) {
-		/* Ignore self-referrals */
-		if (strcasecmp(hostname, nhost) != 0) {
-			printf("# %s\n\n", nhost);
-			whois(query, nhost, nport, flags);
-		}
-		free(nhost);
-		free(nport);
-	}
-}
-
-static void
-usage(void)
-{
-	fprintf(stderr,
-	    "usage: whois [-aAbfgiIklmPQrRS] [-c country-code | -h hostname] "
-	    "[-p port] name ...\n");
-	exit(EX_USAGE);
-}

libc/ar.h

@@ -1,21 +0,0 @@
-#ifndef COSMOPOLITAN_LIBC_AR_H_
-#define COSMOPOLITAN_LIBC_AR_H_
-#if !(__ASSEMBLER__ + __LINKER__ + 0)
-COSMOPOLITAN_C_START_
-
-#define ARMAG  "!<arch>\n"
-#define SARMAG 8
-#define ARFMAG "`\n"
-
-struct ar_hdr {
-  char ar_name[16];
-  char ar_date[12];
-  char ar_uid[6], ar_gid[6];
-  char ar_mode[8];
-  char ar_size[10];
-  char ar_fmag[2];
-};
-
-COSMOPOLITAN_C_END_
-#endif /* !(__ASSEMBLER__ + __LINKER__ + 0) */
-#endif /* COSMOPOLITAN_LIBC_AR_H_ */

libc/assert.h

@@ -4,72 +4,32 @@
 COSMOPOLITAN_C_START_
 
 extern bool __assert_disable;
-void __assert_fail(const char *, const char *, int) _Hide relegated;
+void __assert_fail(const char *, const char *, int) hidden relegated;
 
 #ifdef NDEBUG
-#define assert(x) ((void)0)
+#define assert(EXPR) ((void)0)
 #else
-#define assert(x) ((void)((x) || (__assert_fail(#x, __FILE__, __LINE__), 0)))
+#define assert(EXPR) \
+  ((void)((EXPR) || (__assert_fail(#EXPR, __FILE__, __LINE__), 0)))
 #endif
 
 #ifndef __cplusplus
 #define static_assert _Static_assert
 #endif
 
-#ifdef __GNUC__
-#if !defined(TINY) && !defined(MODE_DBG)
-/**
- * Specifies expression can't possibly be false.
- *
- * This macro uses the `notpossible` keyword and is intended for things
- * like systems integration, where we know for a fact that something is
- * never going to happen, but there's no proof. So we don't want to add
- * extra bloat for filenames and line numbers, since `ShowCrashReports`
- * can print a backtrace if we just embed the UD2 instruction to crash.
- * That's useful for systems code, for the following reason. Invariants
- * make sense with _unassert() since they usually get placed at the top
- * of functions. But if you used _unassert() to test a system call does
- * not fail, then check happens at the end of your function usually and
- * is therefore likely to result in a failure condition where execution
- * falls through into a different function, which is shocking to debug.
- *
- * In `MODE=tiny` these assertions are redefined as undefined behavior.
- */
-#define _npassert(x)                 \
-  ({                                 \
-    if (__builtin_expect(!(x), 0)) { \
-      notpossible;                   \
-    }                                \
-    (void)0;                         \
-  })
-#else
-#define _npassert(x) _unassert(x)
-#endif
-#endif
-
-#ifdef __GNUC__
-/**
- * Specifies expression being false is undefined behavior.
- *
- * This is a good way to tell the compiler about your invariants, which
- * leads to smaller faster programs. The expression is never removed by
- * the preprocessor so it's recommended that it be free of side-effects
- * if you intend for it to be removed. At the same time, this guarantee
- * makes this assertion useful for things like system calls, since they
- * won't be removed by `NDEBUG` mode.
- *
- * If this assertion fails, the worst possible things can happen unless
- * you've built your binary in `MODE=dbg` since UBSAN is the only thing
- * that's capable of debugging this macro.
- */
 #define _unassert(x)                 \
-  ({                                 \
+  do {                               \
     if (__builtin_expect(!(x), 0)) { \
       unreachable;                   \
     }                                \
-    (void)0;                         \
-  })
-#endif
+  } while (0)
+
+#define _npassert(x)                 \
+  do {                               \
+    if (__builtin_expect(!(x), 0)) { \
+      notpossible;                   \
+    }                                \
+  } while (0)
 
 COSMOPOLITAN_C_END_
 #endif /* !(__ASSEMBLER__ + __LINKER__ + 0) */

libc/calls/__clock_gettime.S

@@ -0,0 +1,30 @@
+/*-*- 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 2022 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 "libc/macros.internal.h"
+
+	.initbss 301,_init___clock_gettime
+__clock_gettime:
+	.quad	0
+	.endobj	__clock_gettime,globl,hidden
+	.previous
+
+	.init.start 301,_init___clock_gettime
+	ezlea	__clock_gettime_init,ax
+	stosq
+	.init.end 301,_init___clock_gettime

libc/calls/__clock_gettime.c

@@ -1,21 +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 2023 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 "libc/calls/clock_gettime.internal.h"
-
-clock_gettime_f *__clock_gettime = __clock_gettime_init;

libc/calls/__gettimeofday.S

@@ -0,0 +1,30 @@
+/*-*- 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 2022 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 "libc/macros.internal.h"
+
+	.initbss 301,_init___gettimeofday
+__gettimeofday:
+	.quad	0
+	.endobj	__gettimeofday,globl,hidden
+	.previous
+
+	.init.start 301,_init___gettimeofday
+	ezlea	__gettimeofday_init,ax
+	stosq
+	.init.end 301,_init___gettimeofday

libc/calls/__sig.c

@@ -1,21 +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 2022 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 "libc/calls/sig.internal.h"
-
-struct Signals __sig;

libc/calls/__sig2.c

@@ -1,310 +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 2022 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/sections.internal.h"
-#include "libc/assert.h"
-#include "libc/calls/calls.h"
-#include "libc/calls/sig.internal.h"
-#include "libc/calls/state.internal.h"
-#include "libc/calls/struct/sigaction.h"
-#include "libc/calls/struct/siginfo.h"
-#include "libc/calls/struct/sigset.h"
-#include "libc/intrin/strace.internal.h"
-#include "libc/macros.internal.h"
-#include "libc/runtime/internal.h"
-#include "libc/runtime/runtime.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/sa.h"
-#include "libc/sysv/consts/sig.h"
-#include "libc/sysv/errfuns.h"
-#include "libc/thread/tls.h"
-
-#ifdef __x86_64__
-
-/**
- * Allocates piece of memory for storing pending signal.
- * @assume lock is held
- */
-static textwindows struct Signal *__sig_alloc(void) {
-  int i;
-  struct Signal *res = 0;
-  for (i = 0; i < ARRAYLEN(__sig.mem); ++i) {
-    if (!__sig.mem[i].used) {
-      __sig.mem[i].used = true;
-      res = __sig.mem + i;
-      break;
-    }
-  }
-  return res;
-}
-
-/**
- * Returns signal memory to static pool.
- */
-static textwindows void __sig_free(struct Signal *mem) {
-  mem->used = false;
-}
-
-static inline textwindows int __sig_is_masked(int sig) {
-  if (__tls_enabled) {
-    return __get_tls()->tib_sigmask & (1ull << (sig - 1));
-  } else {
-    return __sig.sigmask & (1ull << (sig - 1));
-  }
-}
-
-textwindows int __sig_is_applicable(struct Signal *s) {
-  return s->tid <= 0 || s->tid == gettid();
-}
-
-/**
- * Dequeues signal that isn't masked.
- * @return signal or null if empty or none unmasked
- */
-static textwindows struct Signal *__sig_remove(void) {
-  struct Signal *prev, *res;
-  if (__sig.queue) {
-    __sig_lock();
-    for (prev = 0, res = __sig.queue; res; prev = res, res = res->next) {
-      if (__sig_is_applicable(res) && !__sig_is_masked(res->sig)) {
-        if (res == __sig.queue) {
-          __sig.queue = res->next;
-        } else if (prev) {
-          prev->next = res->next;
-        }
-        res->next = 0;
-        break;
-      }
-    }
-    __sig_unlock();
-  } else {
-    res = 0;
-  }
-  return res;
-}
-
-/**
- * Delivers signal to callback.
- * @note called from main thread
- * @return true if EINTR should be returned by caller
- */
-static bool __sig_deliver(bool restartable, int sig, int si_code,
-                          ucontext_t *ctx) {
-  unsigned rva, flags;
-  siginfo_t info, *infop;
-  STRACE("delivering %G", sig);
-
-  // enter the signal
-  rva = __sighandrvas[sig];
-  flags = __sighandflags[sig];
-  if ((~flags & SA_NODEFER) || (flags & SA_RESETHAND)) {
-    // by default we try to avoid reentering a signal handler. for
-    // example, if a sigsegv handler segfaults, then we'd want the
-    // second signal to just kill the process. doing this means we
-    // track state. that's bad if you want to longjmp() out of the
-    // signal handler. in that case you must use SA_NODEFER.
-    __sighandrvas[sig] = (int32_t)(intptr_t)SIG_DFL;
-  }
-
-  // setup the somewhat expensive information args
-  // only if they're requested by the user in sigaction()
-  if (flags & SA_SIGINFO) {
-    bzero(&info, sizeof(info));
-    info.si_signo = sig;
-    info.si_code = si_code;
-    infop = &info;
-  } else {
-    infop = 0;
-    ctx = 0;
-  }
-
-  // handover control to user
-  ((sigaction_f)(_base + rva))(sig, infop, ctx);
-
-  if ((~flags & SA_NODEFER) && (~flags & SA_RESETHAND)) {
-    // it's now safe to reenter the signal so we need to restore it.
-    // since sigaction() is @asyncsignalsafe we only restore it if the
-    // user didn't change it during the signal handler. we also don't
-    // need to do anything if this was a oneshot signal or nodefer.
-    if (__sighandrvas[sig] == (int32_t)(intptr_t)SIG_DFL) {
-      __sighandrvas[sig] = rva;
-    }
-  }
-
-  if (!restartable) {
-    return true;  // always send EINTR for wait4(), poll(), etc.
-  } else if (flags & SA_RESTART) {
-    STRACE("restarting syscall on %G", sig);
-    return false;  // resume syscall for read(), write(), etc.
-  } else {
-    return true;  // default course is to raise EINTR
-  }
-}
-
-/**
- * Returns true if signal default action is to end process.
- */
-static textwindows bool __sig_is_fatal(int sig) {
-  if (sig == SIGCHLD || sig == SIGURG || sig == SIGWINCH) {
-    return false;
-  } else {
-    return true;
-  }
-}
-
-/**
- * Handles signal.
- *
- * @param restartable can be used to suppress true return if SA_RESTART
- * @return true if signal was delivered
- */
-bool __sig_handle(bool restartable, int sig, int si_code, ucontext_t *ctx) {
-  bool delivered;
-  switch (__sighandrvas[sig]) {
-    case (intptr_t)SIG_DFL:
-      if (__sig_is_fatal(sig)) {
-        STRACE("terminating on %G", sig);
-        _Exitr(128 + sig);
-      }
-      // fallthrough
-    case (intptr_t)SIG_IGN:
-      STRACE("ignoring %G", sig);
-      delivered = false;
-      break;
-    default:
-      delivered = __sig_deliver(restartable, sig, si_code, ctx);
-      break;
-  }
-  return delivered;
-}
-
-/**
- * Handles signal immediately if not blocked.
- *
- * @param restartable is for functions like read() but not poll()
- * @return true if EINTR should be returned by caller
- * @return 1 if delivered, 0 if enqueued, otherwise -1 w/ errno
- * @note called from main thread
- * @threadsafe
- */
-textwindows int __sig_raise(int sig, int si_code) {
-  if (1 <= sig && sig <= 64) {
-    if (!__sig_is_masked(sig)) {
-      ++__sig_count;
-      // TODO(jart): ucontext_t support
-      __sig_handle(false, sig, si_code, 0);
-      return 0;
-    } else {
-      STRACE("%G is masked", sig);
-      return __sig_add(gettid(), sig, si_code);
-    }
-  } else {
-    return einval();
-  }
-}
-
-/**
- * Enqueues generic signal for delivery on New Technology.
- * @return 0 on success, otherwise -1 w/ errno
- * @threadsafe
- */
-textwindows int __sig_add(int tid, int sig, int si_code) {
-  int rc;
-  struct Signal *mem;
-  if (1 <= sig && sig <= 64) {
-    if (__sighandrvas[sig] == (unsigned)(intptr_t)SIG_IGN) {
-      STRACE("ignoring %G", sig);
-      rc = 0;
-    } else {
-      STRACE("enqueuing %G", sig);
-      __sig_lock();
-      ++__sig_count;
-      if ((mem = __sig_alloc())) {
-        mem->tid = tid;
-        mem->sig = sig;
-        mem->si_code = si_code;
-        mem->next = __sig.queue;
-        __sig.queue = mem;
-        rc = 0;
-      } else {
-        rc = enomem();
-      }
-      __sig_unlock();
-    }
-  } else {
-    rc = einval();
-  }
-  return rc;
-}
-
-/**
- * Checks for unblocked signals and delivers them on New Technology.
- *
- * @param restartable is for functions like read() but not poll()
- * @return true if EINTR should be returned by caller
- * @note called from main thread
- * @threadsafe
- */
-textwindows bool __sig_check(bool restartable) {
-  unsigned rva;
-  bool delivered;
-  struct Signal *sig;
-  delivered = false;
-  while ((sig = __sig_remove())) {
-    delivered |= __sig_handle(restartable, sig->sig, sig->si_code, 0);
-    __sig_free(sig);
-  }
-  return delivered;
-}
-
-/**
- * Determines if a signal should be ignored and if so discards existing
- * instances of said signal on New Technology.
- *
- * Even blocked signals are discarded.
- *
- * @param sig the signal number to remove
- * @threadsafe
- */
-textwindows void __sig_check_ignore(const int sig, const unsigned rva) {
-  struct Signal *cur, *prev, *next;
-  if (rva != (unsigned)(intptr_t)SIG_IGN &&
-      (rva != (unsigned)(intptr_t)SIG_DFL || __sig_is_fatal(sig))) {
-    return;
-  }
-  if (__sig.queue) {
-    __sig_lock();
-    for (prev = 0, cur = __sig.queue; cur; cur = next) {
-      next = cur->next;
-      if (sig == cur->sig) {
-        if (cur == __sig.queue) {
-          __sig.queue = cur->next;
-        } else if (prev) {
-          prev->next = cur->next;
-        }
-        __sig_handle(false, cur->sig, cur->si_code, 0);
-        __sig_free(cur);
-      } else {
-        prev = cur;
-      }
-    }
-    __sig_unlock();
-  }
-}
-
-#endif /* __x86_64__ */

libc/calls/__sig_mask.c

@@ -1,64 +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 2022 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 "libc/assert.h"
-#include "libc/calls/sig.internal.h"
-#include "libc/calls/struct/sigset.h"
-#include "libc/sysv/consts/sig.h"
-#include "libc/sysv/errfuns.h"
-#include "libc/thread/tls.h"
-
-#ifdef __x86_64__
-
-#define GetSigBit(x) (1ull << (((x)-1) & 63))
-
-textwindows int __sig_mask(int how, const sigset_t *neu, sigset_t *old) {
-  uint64_t x, y, *mask;
-  if (how == SIG_BLOCK || how == SIG_UNBLOCK || how == SIG_SETMASK) {
-    if (__tls_enabled) {
-      mask = &__get_tls()->tib_sigmask;
-    } else {
-      mask = &__sig.sigmask;
-    }
-    if (old) {
-      old->__bits[0] = *mask;
-      old->__bits[1] = 0;
-    }
-    if (neu) {
-      x = *mask;
-      y = neu->__bits[0];
-      if (how == SIG_BLOCK) {
-        x |= y;
-      } else if (how == SIG_UNBLOCK) {
-        x &= ~y;
-      } else {
-        x = y;
-      }
-      x &= ~(0
-#define M(x) | GetSigBit(x)
-#include "libc/intrin/sigisprecious.inc"
-      );
-      *mask = x;
-    }
-    return 0;
-  } else {
-    return einval();
-  }
-}
-
-#endif /* __x86_64__ */

libc/calls/__sig_pending.c

@@ -1,47 +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 2022 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 "libc/calls/calls.h"
-#include "libc/calls/sig.internal.h"
-#include "libc/calls/state.internal.h"
-#include "libc/calls/struct/sigset.h"
-
-#ifdef __x86_64__
-
-/**
- * Determines the pending signals on New Technology.
- *
- * @param pending is to hold the pending signals
- * @threadsafe
- */
-textwindows void __sig_pending(sigset_t *pending) {
-  struct Signal *s;
-  sigemptyset(pending);
-  if (__sig.queue) {
-    __sig_lock();
-    for (s = __sig.queue; s; s = s->next) {
-      if (__sig_is_applicable(s) &&
-          __sighandrvas[s->sig] != (unsigned)(intptr_t)SIG_IGN) {
-        sigaddset(pending, s->sig);
-      }
-    }
-    __sig_unlock();
-  }
-}
-
-#endif /* __x86_64__ */

libc/calls/_ptsname.c

@@ -1,93 +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 2022 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 "libc/calls/syscall-sysv.internal.h"
-#include "libc/calls/syscall_support-sysv.internal.h"
-#include "libc/dce.h"
-#include "libc/errno.h"
-#include "libc/fmt/itoa.h"
-#include "libc/str/str.h"
-#include "libc/sysv/consts/termios.h"
-#include "libc/sysv/errfuns.h"
-
-extern const unsigned FIODGNAME;
-extern const unsigned TIOCPTSNAME;
-extern const unsigned TIOCPTYGNAME;
-
-struct fiodgname_arg {
-  int len;
-  void *buf;
-};
-
-struct ptmget {
-  int cfd;
-  int sfd;
-  char cn[1024];
-  char sn[1024];
-};
-
-int _ptsname(int fd, char *buf, size_t size) {
-  int pty;
-  size_t n;
-  struct ptmget t;
-
-  if (_isptmaster(fd)) {
-    return -1;
-  }
-
-  t.sn[0] = '/';
-  t.sn[1] = 'd';
-  t.sn[2] = 'e';
-  t.sn[3] = 'v';
-  t.sn[4] = '/';
-  t.sn[5] = 0;
-
-  if (IsLinux()) {
-    if (sys_ioctl(fd, TIOCGPTN, &pty)) return -1;
-    t.sn[5] = 'p';
-    t.sn[6] = 't';
-    t.sn[7] = 's';
-    t.sn[8] = '/';
-    FormatInt32(t.sn + 9, pty);
-  } else if (IsXnu()) {
-    if (sys_ioctl(fd, TIOCPTYGNAME, t.sn)) {
-      return -1;
-    }
-  } else if (IsFreebsd()) {
-    struct fiodgname_arg fgn = {sizeof(t.sn) - 5, t.sn + 5};
-    if (sys_ioctl(fd, FIODGNAME, &fgn) == -1) {
-      if (errno == EINVAL) {
-        errno = ERANGE;
-      }
-      return -1;
-    }
-  } else if (IsNetbsd()) {
-    if (sys_ioctl(fd, TIOCPTSNAME, &t)) {
-      return -1;
-    }
-  } else {
-    return enosys();
-  }
-
-  if ((n = strlen(t.sn)) < size) {
-    memcpy(buf, t.sn, n + 1);
-    return 0;
-  } else {
-    return erange();
-  }
-}

libc/calls/_timespec_add.c

@@ -0,0 +1,32 @@
+/*-*- 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 2021 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 "libc/calls/struct/timespec.h"
+
+/**
+ * Adds two nanosecond timestamps.
+ */
+struct timespec _timespec_add(struct timespec x, struct timespec y) {
+  x.tv_sec += y.tv_sec;
+  x.tv_nsec += y.tv_nsec;
+  if (x.tv_nsec >= 1000000000) {
+    x.tv_nsec -= 1000000000;
+    x.tv_sec += 1;
+  }
+  return x;
+}

libc/calls/_timespec_cmp.c

@@ -0,0 +1,30 @@
+/*-*- 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 2022 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 "libc/calls/struct/timespec.h"
+
+/**
+ * Compares two nanosecond timestamps.
+ */
+int _timespec_cmp(struct timespec a, struct timespec b) {
+  int cmp;
+  if (!(cmp = (a.tv_sec > b.tv_sec) - (a.tv_sec < b.tv_sec))) {
+    cmp = (a.tv_nsec > b.tv_nsec) - (a.tv_nsec < b.tv_nsec);
+  }
+  return cmp;
+}

libc/calls/_timespec_eq.c

@@ -0,0 +1,26 @@
+/*-*- 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 2022 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 "libc/calls/struct/timespec.h"
+
+/**
+ * Checks if 𝑥 = 𝑦.
+ */
+bool _timespec_eq(struct timespec x, struct timespec y) {
+  return x.tv_sec == y.tv_sec && x.tv_nsec == y.tv_nsec;
+}

libc/calls/_timespec_frommicros.c

@@ -0,0 +1,29 @@
+/*-*- 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 2022 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 "libc/calls/struct/timespec.h"
+
+/**
+ * Converts timespec interval from microseconds.
+ */
+struct timespec _timespec_frommicros(int64_t x) {
+  struct timespec ts;
+  ts.tv_sec = x / 1000000;
+  ts.tv_nsec = x % 1000000 * 1000;
+  return ts;
+}

libc/calls/_timespec_frommillis.c

@@ -0,0 +1,29 @@
+/*-*- 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 2022 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 "libc/calls/struct/timespec.h"
+
+/**
+ * Converts timespec interval from milliseconds.
+ */
+struct timespec _timespec_frommillis(int64_t x) {
+  struct timespec ts;
+  ts.tv_sec = x / 1000;
+  ts.tv_nsec = x % 1000 * 1000000;
+  return ts;
+}

libc/calls/_timespec_fromnanos.c

@@ -0,0 +1,29 @@
+/*-*- 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 2022 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 "libc/calls/struct/timespec.h"
+
+/**
+ * Converts timespec interval from nanoseconds.
+ */
+struct timespec _timespec_fromnanos(int64_t x) {
+  struct timespec ts;
+  ts.tv_sec = x / 1000000000;
+  ts.tv_nsec = x % 1000000000;
+  return ts;
+}

libc/calls/_timespec_get.c

@@ -0,0 +1,36 @@
+/*-*- 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 2022 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 "libc/calls/struct/timespec.h"
+#include "libc/sysv/consts/clock.h"
+#include "libc/time/time.h"
+
+/**
+ * Returns high-precision timestamp, the C11 way.
+ *
+ * @param ts receives `CLOCK_REALTIME` timestamp
+ * @param base must be `TIME_UTC`
+ * @return `base` on success, or `0` on failure
+ */
+int timespec_get(struct timespec *ts, int base) {
+  if (base == TIME_UTC && !clock_gettime(CLOCK_REALTIME, ts)) {
+    return base;
+  } else {
+    return 0;
+  }
+}