Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add escaped single and double quotes

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-12 16:11:32 +09:00
parent d0bc652c5d
commit 4227ac0ce0
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -1177,6 +1177,8 @@ decimal \ set default to decimal
'v' of 11 endof 'v' of 11 endof
'f' of 12 endof 'f' of 12 endof
'r' of 13 endof 'r' of 13 endof
[char] ' of [char] ' endof
[char] " of [char] " endof
'\\' of '\\' endof '\\' of '\\' endof
drop -1 drop -1
endcase endcase

3
test/core.fs
View file

@ -614,6 +614,9 @@ T{ char HELLO -> 48 }T
T{ '\n' -> 0xa }T T{ '\n' -> 0xa }T
T{ '\0' -> 0 }T T{ '\0' -> 0 }T
T{ 'a' -> 61 }T T{ 'a' -> 61 }T
T{ '"' -> 22 }T
T{ '\"' -> 22 }T
T{ '\'' -> 27 }T
T{ : gc1 [char] X ; -> }T T{ : gc1 [char] X ; -> }T
T{ : gc2 [char] HELLO ; -> }T T{ : gc2 [char] HELLO ; -> }T
T{ gc1 -> 58 }T T{ gc1 -> 58 }T