Make important improvements

- Fix preadv() and pwritev() for old distros
- Introduce _npassert() and _unassert() macros
- Prove that file locks work properly on Windows
- Support fcntl(F_DUPFD_CLOEXEC) on more systems

libc/str/djbsort.c

@@ -18,40 +18,11 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/dce.h"
 #include "libc/intrin/asan.internal.h"
-#include "libc/intrin/bsr.h"
-#include "libc/mem/alg.h"
-#include "libc/nexgen32e/nexgen32e.h"
 #include "libc/nexgen32e/x86feature.h"
+#include "libc/runtime/runtime.h"
 
 void djbsort_avx2(int32_t *, long);
 
-static dontinline void intsort(int *x, size_t n, size_t t) {
-  int a, b, c;
-  size_t i, p, q;
-  for (p = t; p > 0; p >>= 1) {
-    for (i = 0; i < n - p; ++i) {
-      if (!(i & p)) {
-        a = x[i + 0];
-        b = x[i + p];
-        if (a > b) c = a, a = b, b = c;
-        x[i + 0] = a;
-        x[i + p] = b;
-      }
-    }
-    for (q = t; q > p; q >>= 1) {
-      for (i = 0; i < n - q; ++i) {
-        if (!(i & p)) {
-          a = x[i + p];
-          b = x[i + q];
-          if (a > b) c = a, a = b, b = c;
-          x[i + p] = a;
-          x[i + q] = b;
-        }
-      }
-    }
-  }
-}
-
 /**
  * D.J. Bernstein's outrageously fast integer sorting algorithm.
  */
@@ -65,7 +36,7 @@ void djbsort(int32_t *a, size_t n) {
     if (X86_HAVE(AVX2)) {
       djbsort_avx2(a, n);
     } else {
-      intsort(a, n, 1ul << _bsrl(n - 1));
+      _intsort(a, n);
     }
   }
 }

libc/str/memcasecmp.c

@@ -18,6 +18,7 @@
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/intrin/bits.h"
 #include "libc/str/str.h"
+#include "libc/str/tab.internal.h"
 
 /**
  * Compares memory case-insensitively.

libc/str/startswithi.c

@@ -17,6 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/str/str.h"
+#include "libc/str/tab.internal.h"
 
 bool _startswithi(const char *s, const char *prefix) {
   for (;;) {

libc/str/str.h

@@ -6,13 +6,6 @@
 #if !(__ASSEMBLER__ + __LINKER__ + 0)
 COSMOPOLITAN_C_START_
 
-extern const int8_t kHexToInt[256];
-extern const uint8_t gperf_downcase[256];
-extern const uint8_t kToLower[256];
-extern const uint8_t kToUpper[256];
-extern const uint8_t kBase36[256];
-extern const char16_t kCp437[256];
-
 int isascii(int);
 int isspace(int);
 int isalpha(int);

libc/str/strcasecmp.c

@@ -19,6 +19,7 @@
 #include "libc/dce.h"
 #include "libc/intrin/asan.internal.h"
 #include "libc/str/str.h"
+#include "libc/str/tab.internal.h"
 
 /**
  * Compares NUL-terminated strings ascii case-insensitively.

libc/str/strcasestr.c

@@ -19,6 +19,7 @@
 #include "libc/dce.h"
 #include "libc/intrin/asan.internal.h"
 #include "libc/str/str.h"
+#include "libc/str/tab.internal.h"
 
 typedef char xmm_t __attribute__((__vector_size__(16), __aligned__(16)));
 

libc/str/strncasecmp.c

@@ -17,6 +17,7 @@
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
 #include "libc/str/str.h"
+#include "libc/str/tab.internal.h"
 
 /**
  * Compares NUL-terminated strings case-insensitively w/ limit.

libc/str/tab.internal.h

@@ -0,0 +1,15 @@
+#ifndef COSMOPOLITAN_LIBC_STR_TAB_INTERNAL_H_
+#define COSMOPOLITAN_LIBC_STR_TAB_INTERNAL_H_
+#if !(__ASSEMBLER__ + __LINKER__ + 0)
+COSMOPOLITAN_C_START_
+
+extern const int8_t kHexToInt[256];
+extern const uint8_t gperf_downcase[256];
+extern const uint8_t kToLower[256];
+extern const uint8_t kToUpper[256];
+extern const uint8_t kBase36[256];
+extern const char16_t kCp437[256];
+
+COSMOPOLITAN_C_END_
+#endif /* !(__ASSEMBLER__ + __LINKER__ + 0) */
+#endif /* COSMOPOLITAN_LIBC_STR_TAB_INTERNAL_H_ */