1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
discard """
matrix: "--mm:refc; --mm:orc"
targets: "c cpp"
"""
import std/[parseutils, sequtils, sugar, formatfloat]
import std/assertions
proc test() =
let input = "$test{} $this is ${an{ example}} "
let expected = @[(ikVar, "test"), (ikStr, "{} "), (ikVar, "this"),
(ikStr, " is "), (ikExpr, "an{ example}"), (ikStr, " ")]
doAssert toSeq(interpolatedFragments(input)) == expected
var value = 0
discard parseHex("0x38", value)
doAssert value == 56
value = -1
doAssert(parseSaturatedNatural("848", value) == 3)
doAssert value == 848
value = -1
discard parseSaturatedNatural("84899999999999999999324234243143142342135435342532453", value)
doAssert value == high(int)
value = -1
discard parseSaturatedNatural("9223372036854775808", value)
doAssert value == high(int)
value = -1
discard parseSaturatedNatural("9223372036854775807", value)
doAssert value == high(int)
value = -1
discard parseSaturatedNatural("18446744073709551616", value)
doAssert value == high(int)
value = -1
discard parseSaturatedNatural("18446744073709551615", value)
doAssert value == high(int)
value = -1
doAssert(parseSaturatedNatural("1_000_000", value) == 9)
doAssert value == 1_000_000
var i64Value: int64
discard parseBiggestInt("9223372036854775807", i64Value)
doAssert i64Value == 9223372036854775807
block:
var f: float
let res = collect:
for x in ["9.123456789012345+","11.123456789012345+","9.123456789012345-","8.123456789012345+","9.12345678901234-","9.123456789012345"]:
(parseFloat(x, f, 0), $f)
doAssert res == @[(17, "9.123456789012344"), (18, "11.123456789012344"),
(17, "9.123456789012344"), (17, "8.123456789012344"),
(16, "9.12345678901234"), (17, "9.123456789012344")]
test()
static: test()
block: # With this included, static: test() crashes the compiler (from a
# VM problem with parseSize calling parseFloat).
var sz: int64
template checkParseSize(s, expectLen, expectVal) =
if (let got = parseSize(s, sz); got != expectLen):
raise newException(IOError, "got len " & $got & " != " & $expectLen)
if sz != expectVal:
raise newException(IOError, "got sz " & $sz & " != " & $expectVal)
# STRING LEN SZ
# Good, complete parses
checkParseSize "1 b" , 4, 1
checkParseSize "1 B" , 4, 1
checkParseSize "1k" , 2, 1000
checkParseSize "1 kib" , 5, 1024
checkParseSize "1 ki" , 4, 1024
checkParseSize "1mi" , 3, 1048576
checkParseSize "1 mi" , 4, 1048576
checkParseSize "1 mib" , 5, 1048576
checkParseSize "1 Mib" , 5, 1048576
checkParseSize "1 MiB" , 5, 1048576
checkParseSize "1.23GiB", 7, 1320702444 # 1320702443.52 rounded
checkParseSize "0.001k" , 6, 1
checkParseSize "0.0004k", 7, 0
checkParseSize "0.0006k", 7, 1
# Incomplete parses
checkParseSize "1 " , 1, 1 # Trailing white IGNORED
checkParseSize "1 B " , 4, 1 # Trailing white IGNORED
checkParseSize "1 B/s" , 4, 1 # Trailing junk IGNORED
checkParseSize "1 kX" , 3, 1000
checkParseSize "1 kiX" , 4, 1024
checkParseSize "1j" , 1, 1 # Unknown prefix IGNORED
checkParseSize "1 jib" , 2, 1 # Unknown prefix post space
checkParseSize "1 ji" , 3, 1
# Bad parses; `sz` should stay last good|incomplete value
checkParseSize "-1b" , 0, 1 # Negative numbers
checkParseSize "abc" , 0, 1 # Non-numeric
checkParseSize " 12" , 0, 1 # Leading white
# Value Edge cases
checkParseSize "9223372036854775807", 19, int64.high
|