ehmry
/
preserves-nim
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Convert awkard floats to hex

This commit is contained in:
Emery Hemingway 2023-12-22 22:16:26 +02:00
parent 1fafda8835
commit cb8e772b7d
1 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/preserves/private/texts.nim
View File

@ -1,7 +1,7 @@
# SPDX-FileCopyrightText: ☭ Emery Hemingway
# SPDX-License-Identifier: Unlicense
import std/[base64, json, options, sets, sequtils, streams, strutils, tables, typetraits]
import std/[base64, endians, json, math, options, sets, sequtils, streams, strutils, tables, typetraits]
import ./values
proc `$`*(s: Symbol): string =
@ -33,6 +33,8 @@ proc `$`*(s: Symbol): string =
result.add(c)
result.add('|')
const hexAlphabet = "0123456789abcdef"
type TextMode* = enum textPreserves, textJson
proc writeText*[E](stream: Stream; pr: Preserve[E]; mode = textPreserves) =
@ -44,10 +46,30 @@ proc writeText*[E](stream: Stream; pr: Preserve[E]; mode = textPreserves) =
of false: write(stream, "#f")
of true: write(stream, "#t")
of pkFloat:
write(stream, $pr.float)
write(stream, 'f')
case pr.float.classify:
of fcNormal, fcZero, fcNegZero:
write(stream, $pr.float)
write(stream, 'f')
else:
var buf: array[4, byte]
bigEndian32(addr buf[0], addr pr.float)
write(stream, "#xf\"")
for b in buf:
write(stream, hexAlphabet[b shr 4])
write(stream, hexAlphabet[b and 0xf])
write(stream, '"')
of pkDouble:
write(stream, $pr.double)
case pr.double.classify:
of fcNormal, fcZero, fcNegZero:
write(stream, $pr.double)
else:
var buf: array[8, byte]
bigEndian64(addr buf[0], addr pr.double)
write(stream, "#xd\"")
for b in buf:
write(stream, hexAlphabet[b shr 4])
write(stream, hexAlphabet[b and 0xf])
write(stream, '"')
of pkRegister:
write(stream, $pr.register)
of pkBigInt:
@ -65,11 +87,10 @@ proc writeText*[E](stream: Stream; pr: Preserve[E]; mode = textPreserves) =
write(stream, base64.encode(pr.bytes))
write(stream, ']')
else:
const alphabet = "0123456789abcdef"
write(stream, "#x\"")
for b in pr.bytes:
write(stream, alphabet[int(b shr 4)])
write(stream, alphabet[int(b and 0xf)])
write(stream, hexAlphabet[b.int shr 4])
write(stream, hexAlphabet[b.int and 0xf])
write(stream, '"')
of pkSymbol:
let sym = pr.symbol.string
@ -159,4 +180,4 @@ proc `$`*[E](pr: Preserve[E]): string =
## Generate the textual representation of ``pr``.
var stream = newStringStream()
writeText(stream, pr, textPreserves)
result = move stream.data
result = move stream.data