Add putd to std.porth

Author: mjdr

std/std.porth

@@ -396,3 +396,64 @@ end
 macro eputs
   stderr fputs
 end
+
+macro _put_digit
+    "0123456789" swap drop + 1 swap puts
+end
+
+macro _putd_before
+    dup 10 %
+    over 10 /
+end
+macro _putd_after
+    drop
+    _put_digit
+end
+
+macro putd
+  dup 0 = if
+    "0" puts
+  else
+    dup 0 > if _putd_before 
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    dup 0 > if _putd_before
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+  end drop
+end
+

tests/putd.porth

@@ -0,0 +1,9 @@
+include "std.porth"
+
+//Zero
+0 putd
+"\n" puts
+
+//max i64
+9223372036854775807 putd
+"\n" puts

tests/putd.txt

@@ -0,0 +1,10 @@
+:i argc 0
+:b stdin 0
+
+:i returncode 0
+:b stdout 22
+0
+9223372036854775807
+
+:b stderr 0
+