write tuples/objects

Author: krux02

lib/system/dollars.nim

@@ -49,18 +49,8 @@ proc `$`*(t: typedesc): string {.magic: "TypeTrait".}
   ##   doAssert $(type("Foo")) == "string"
   ##   static: doAssert $(type(@['A', 'B'])) == "seq[char]"
 
-
-proc isNamedTuple(T: typedesc): bool =
+proc isNamedTuple(T: typedesc): bool {.magic: "TypeTrait".}
   # Taken from typetraits.
-  when T isnot tuple: result = false
-  else:
-    var t: T
-    for name, _ in t.fieldPairs:
-      when name == "Field0":
-        return compiles(t.Field0)
-      else:
-        return true
-    return false
 
 proc `$`*[T: tuple|object](x: T): string =
   ## Generic ``$`` operator for tuples that is lifted from the components

lib/system/io.nim

@@ -376,6 +376,76 @@ proc write*(f: File, r: BiggestFloat) {.tags: [WriteIOEffect], benign.} =
 proc write*(f: File, c: char) {.tags: [WriteIOEffect], benign.} =
   discard c_putc(cint(c), f)
 
+proc isNamedTuple(T: typedesc): bool {.magic: "TypeTrait".}
+  # Taken from typetraits.
+
+proc writeEscapedChar(f: File, c: char) {.inline.} =
+  # Analogue to `sysetm.addEscapedChar`.
+  case c
+  of '\a': f.write "\\a" # \x07
+  of '\b': f.write "\\b" # \x08
+  of '\t': f.write "\\t" # \x09
+  of '\L': f.write "\\n" # \x0A
+  of '\v': f.write "\\v" # \x0B
+  of '\f': f.write "\\f" # \x0C
+  of '\c': f.write "\\c" # \x0D
+  of '\e': f.write "\\e" # \x1B
+  of '\\': f.write("\\\\")
+  of '\'': f.write("\\'")
+  of '\"': f.write("\\\"")
+  of {'\32'..'\126'} - {'\\', '\'', '\"'}: f.write(c)
+  else:
+    f.write("\\x")
+    const HexChars = "0123456789ABCDEF"
+    let n = ord(c)
+    f.write(HexChars[int((n and 0xF0) shr 4)])
+    f.write(HexChars[int(n and 0xF)])
+
+proc writeQuoted[T](f: File, arg: T) =
+  # analogue to `addQuoted` in `system`
+  when T is string or T is cstring:
+    f.write("\"")
+    for c in arg:
+      # Only ASCII chars are escaped to avoid butchering
+      # multibyte UTF-8 characters.
+      if c <= 127.char:
+        f.writeEscapedChar(c)
+      else:
+        f.write c
+    f.write("\"")
+  elif T is char:
+    f.write("'")
+    f.addEscapedChar(x)
+    f.write("'")
+  # prevent temporary string allocation
+  else:
+    f.write(x)
+
+proc write*[T: tuple|object](f: File; arg: T) =
+  f.write "("
+  const isNamed = isNamedTuple(T)
+  var count = 0
+  for name, value in fieldPairs(arg):
+    if count != 0:
+      f.write(", ")
+
+    when isNamed:
+      f.write(name, ": ")
+
+    when compiles($value):
+      when value isnot string and value isnot seq and compiles(value.isNil):
+        if value.isNil: result.add "nil"
+        else: f.writeQuoted(value)
+      else:
+        f.writeQuoted(value)
+    else:
+      f.write("...")
+    inc count
+
+  if not isNamed and count == 1:
+    f.write(",") # one tuple needs post comma, e.g. ``("abc",)``
+  f.write(")")
+
 when defined(harmfulOverloadOfWrite):
   proc write*(f: File, a: varargs[string, `$`]) {.tags: [WriteIOEffect], benign.} =
     for x in items(a): write(f, x)

lib/system/strmantle.nim

@@ -40,7 +40,7 @@ proc hashString(s: string): int {.compilerproc.} =
   h = h + h shl 15
   result = cast[int](h)
 
-proc addInt*(result: var string; x: int64) =
+proc addInt*(result: var string; x: int64) = # #10963
   ## Converts integer to its string representation and appends it to `result`.
   ##
   ## .. code-block:: Nim