fix typo in man page

make use of __uint128_t in scan_ulongn and provide long long based
implementation for 32-bit platforms

scan/scan_ulong.3

@@ -35,6 +35,6 @@ scan_ulong("023",&i) -> i=23, return 3
 
 scan_ulong("0x23",&i) -> i=0, return 1
 
-scan_ulong("4294967296",&i" -> i=429496729, return 9 // 32-bit system
+scan_ulong("4294967296",&i") -> i=429496729, return 9 // 32-bit system
 .SH "SEE ALSO"
 scan_xlong(3), scan_8long(3), fmt_ulong(3)

scan/scan_ulongn.c

@@ -1,9 +1,36 @@
 #include "scan.h"
+#include "haveuint128.h"
 
 size_t scan_ulongn(const char* src,size_t n,unsigned long int* dest) {
   register const char *tmp=src;
   register unsigned long int l=0;
   register unsigned char c;
+  /* Since the conditions can be computed at compile time, the compiler
+   * should only emit code for one of the implementations, depending on
+   * which architecture the code is compiled for. */
+#ifdef HAVE_UINT128
+  if (sizeof(unsigned long)==sizeof(unsigned long long) && sizeof(unsigned long)<sizeof(__uint128_t)) {
+    /* implementation for 64-bit platforms with gcc */
+    for (; n-->0 && (c=(unsigned char)(*tmp-'0'))<10; ++tmp) {
+      __uint128_t L=(__uint128_t)l*10+c;
+      if ((L >> ((sizeof(L)-sizeof(l))*8))) break;
+      l=(unsigned long)L;
+    }
+    *dest=l;
+    return (size_t)(tmp-src);
+  } else
+#endif
+  if (sizeof(unsigned long)<sizeof(unsigned long long)) {
+    /* implementation for 32-bit platforms */
+    for (; n-->0 && (c=(unsigned char)(*tmp-'0'))<10; ++tmp) {
+      unsigned long long  L=(unsigned long long)l*10+c;
+      if ((unsigned long)L != L) break;
+      l=(unsigned long)L;
+    }
+    *dest=l;
+    return (size_t)(tmp-src);
+  } else {
+    /* implementation for 64-bit platforms without gcc */
     while (n-->0 && (c=(unsigned char)(*tmp-'0'))<10) {
       unsigned long int n;
       /* we want to do: l=l*10+c
@@ -20,4 +47,5 @@ size_t scan_ulongn(const char* src,size_t n,unsigned long int* dest) {
     }
     if (tmp-src) *dest=l;
     return (size_t)(tmp-src);
+  }
 }