Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Use 'when' expression

Browse Source
This commit is contained in:
Bruce Hill 2024-09-06 14:16:45 -04:00
parent 11fa4f548c
commit 7b57090564
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
examples/ini.tm
View File

@ -9,27 +9,28 @@ HELP := "
file := use ./file.tm
func parse_ini(filename:Text)->{Text:{Text:Text}}:
when file.read(filename) is Failure(err): fail(err)
is Success(text):
sections := {:Text:@{Text:Text}}
current_section := @{:Text:Text}
sections:set("", current_section)
text := when file.read(filename) is Failure(err): fail(err)
is Success(text): text
# Line wraps:
text = text:replace($/\{1 nl}{0+space}/, " ")
sections := {:Text:@{Text:Text}}
current_section := @{:Text:Text}
sections:set("", current_section)
for line in text:lines():
line = line:trim()
if line:matches($/{0+space}[{..}]/):
section_name := line:replace($/{0+space}[{..}]{..}/, "\2"):trim():lower()
current_section = @{:Text:Text}
sections:set(section_name, current_section)
else if line:matches($/{..}={..}/):
key := line:replace($/{..}={..}/, "\1"):trim():lower()
value := line:replace($/{..}={..}/, "\2"):trim()
current_section:set(key, value)
# Line wraps:
text = text:replace($/\{1 nl}{0+space}/, " ")
return {k:v[] for k,v in sections}
for line in text:lines():
line = line:trim()
if line:matches($/{0+space}[{..}]/):
section_name := line:replace($/{0+space}[{..}]{..}/, "\2"):trim():lower()
current_section = @{:Text:Text}
sections:set(section_name, current_section)
else if line:matches($/{..}={..}/):
key := line:replace($/{..}={..}/, "\1"):trim():lower()
value := line:replace($/{..}={..}/, "\2"):trim()
current_section:set(key, value)
return {k:v[] for k,v in sections}
func main(filename:Text, key:Text):
keys := key:split($Pattern"/")