16 lines
439 B
Text
16 lines
439 B
Text
Red ["Read a config file"]
|
|
|
|
remove-each l lines: read/lines %file.conf [any [empty? l #"#" = l/1]]
|
|
foreach line lines [
|
|
foo: parse line [collect [keep to [" " | end] skip keep to end]]
|
|
either foo/1 = #";" [set to-word foo/2 false][
|
|
set to-word foo/1 any [
|
|
all [find foo/2 #"," split foo/2 ", "]
|
|
foo/2
|
|
true
|
|
]
|
|
]
|
|
]
|
|
foreach w [fullname favouritefruit needspeeling seedsremoved otherfamily][
|
|
prin [pad w 15 ": "] probe get w
|
|
]
|