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
|
discard """
output: ""
"""
import strscans
block ParsePasswd:
proc parsePasswd(content: string): seq[string] =
result = @[]
var idx = 0
while true:
var entry = ""
if scanp(content, idx, +(~{'\L', '\0'} -> entry.add($_)), '\L'):
result.add entry
else:
break
const etc_passwd = """root:x:0:0:root:/root:/bin/bash
daemon:x:1:1:daemon:/usr/sbin:/bin/sh
bin:x:2:2:bin:/bin:/bin/sh
sys:x:3:3:sys:/dev:/bin/sh
nobody:x:65534:65534:nobody:/nonexistent:/bin/sh
messagebus:x:103:107::/var/run/dbus:/bin/false
"""
const parsed_etc_passwd = @[
"root:x:0:0:root:/root:/bin/bash",
"daemon:x:1:1:daemon:/usr/sbin:/bin/sh",
"bin:x:2:2:bin:/bin:/bin/sh",
"sys:x:3:3:sys:/dev:/bin/sh",
"nobody:x:65534:65534:nobody:/nonexistent:/bin/sh",
"messagebus:x:103:107::/var/run/dbus:/bin/false",
]
doAssert etc_passwd.parsePasswd == parsed_etc_passwd
block LastNot:
var idx : int
idx = 0
doAssert scanp("foo", idx, 'f', 'o', ~'a')
idx = 0
doAssert scanp("foo", idx, 'f', 'o', ~'o') == false
idx = 0
doAssert scanp("foox", idx, 'f', 'o', ~'o') == false
idx = 0
doAssert scanp("foox", idx, 'f', 'o', ~'a')
block LastOptional:
var idx = 0
doAssert scanp("foo", idx, 'f', 'o', 'o', ?'o')
block Tuple:
var idx = 0
doAssert scanp("foo", idx, ('f', 'o', 'o'))
block NotWithOptional:
var idx : int
idx = 0
doAssert scanp("bc", idx, ~(?'b', 'c')) == false
idx = 0
doAssert scanp("c", idx, ~(?'b', 'c')) == false
idx = 0
doAssert scanp("b", idx, ~(?'b', 'c'))
block NotEmpty:
var idx = 0
doAssert scanp("", idx, ~()) == false
block EmptyTuple:
var idx = 0
doAssert scanp("ab", idx, 'a', (), 'b')
block Arrow:
let text = "foo;bar;baz;"
var idx = 0
var res = ""
doAssert scanp(text, idx, +(~{';','\0'} -> (discard $_)), ';')
doAssert scanp(text, idx, +(~{';','\0'} -> (discard $_)), ';')
doAssert scanp(text, idx, +(~{';','\0'} -> (discard $_)), ';')
doAssert scanp(text, idx, +(~{';','\0'} -> (discard $_)), ';') == false
|