This commit is contained in:
Araq 2015-02-20 12:00:18 +01:00
commit c90a13bb41
3 changed files with 6 additions and 11 deletions

View file

@ -735,14 +735,6 @@ regular expressions:
return tkUnknown return tkUnknown
Term rewriting macros
---------------------
Term rewriting macros can be used to enhance the compilation process
with user defined optimizations; see this `document <trmacros.html>`_ for
further information.
Building your first macro Building your first macro
------------------------- -------------------------

View file

@ -1455,7 +1455,8 @@ template `>%` *(x, y: expr): expr {.immediate.} = y <% x
proc `$`*(x: int): string {.magic: "IntToStr", noSideEffect.} proc `$`*(x: int): string {.magic: "IntToStr", noSideEffect.}
## The stringify operator for an integer argument. Returns `x` ## The stringify operator for an integer argument. Returns `x`
## converted to a decimal string. ## converted to a decimal string. ``$`` is Nim's general way of
## spelling `toString`:idx:.
proc `$`*(x: int64): string {.magic: "Int64ToStr", noSideEffect.} proc `$`*(x: int64): string {.magic: "Int64ToStr", noSideEffect.}
## The stringify operator for an integer argument. Returns `x` ## The stringify operator for an integer argument. Returns `x`

View file

@ -30,14 +30,16 @@ proc reprStrAux(result: var string, s: string) =
add result, "nil" add result, "nil"
return return
add result, reprPointer(cast[pointer](s)) & "\"" add result, reprPointer(cast[pointer](s)) & "\""
for c in items(s): for i in 0.. <s.len:
let c = s[i]
case c case c
of '"': add result, "\\\"" of '"': add result, "\\\""
of '\\': add result, "\\\\" # BUGFIX: forgotten of '\\': add result, "\\\\" # BUGFIX: forgotten
of '\10': add result, "\\10\"\n\"" # " \n " # better readability of '\10': add result, "\\10\"\n\"" # " \n " # better readability
of '\128' .. '\255', '\0'..'\9', '\11'..'\31': of '\128' .. '\255', '\0'..'\9', '\11'..'\31':
add result, "\\" & reprInt(ord(c)) add result, "\\" & reprInt(ord(c))
else: result.add(c) else:
result.add(c)
add result, "\"" add result, "\""
proc reprStr(s: string): string {.compilerRtl.} = proc reprStr(s: string): string {.compilerRtl.} =