TudbuT/spl
1
0
Fork 0
Code Issues Pull requests Projects Releases 5 Packages Wiki Activity Actions

matching now less awkward

Browse source
This commit is contained in:
Daniella / Tove 2024-11-15 14:34:23 +01:00
parent 215b6f2748
commit c3e2dbc1b8
Signed by: TudbuT
GPG key ID: B3CF345217F202D3
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/lexer.rs
View file

@ -260,11 +260,11 @@ fn read_block_dyn(
"=" => {
if str_words[i + 1] == ">" {
i += 1;
let throwing = if str_words[i + 1] == "?" {
let throwing = if str_words[i + 1] == "!" {
i += 1;
false
} else {
true
} else {
false
};
if str_words[i + 1] == "[" {
i += 1;

14
test.spl
View file

@ -302,10 +302,10 @@ func main { int | with args ;
"[a b] => [=mtesta a] (0): " print [ "b" "a" ] [ "a" &=mtesta ] match _str println
"-> mtesta = (b) " mtesta _str concat println
"^ok => ^ok (1): " print ^ok =>? ^ok _str println
"^bad => ^ok (0): " print ^bad =>? ^ok _str println
"[^bad a] => [^ok =mtestb] (0): " print [ ^bad "a" ] =>? [ ^ok &=mtestb ] _str println
"[^ok b] => [^ok =mtestb] (1): " print [ ^ok "b" ] =>? [ ^ok &=mtestb ] _str println
"^ok => ^ok (1): " print ^ok => ^ok _str println
"^bad => ^ok (0): " print ^bad => ^ok _str println
"[^bad a] => [^ok =mtestb] (0): " print [ ^bad "a" ] => [ ^ok &=mtestb ] _str println
"[^ok b] => [^ok =mtestb] (1): " print [ ^ok "b" ] => [ ^ok &=mtestb ] _str println
"-> mtestb = (b) " mtestb _str concat println
@ -313,17 +313,17 @@ func main { int | with args ;
[ ^ok "hello, world" ] =result
result => [ ^ok &=val ]
result =>! [ ^ok &=val ]
val println
[ ^error "bad" ] =result
catch Custom {
result => [ ^ok &println ]
result =>! [ ^ok &println ]
} { with e ;
e:message "match unsuccessful" eq if {
"err value: " print
result => [ ^error &println ]
result =>! [ ^error &println ]
}
}