git.iko.soy/luau
on master help sign in
String escapes
fcef505iko
zod/luau/TODO.md−1
compare with master
unifiedsplit
@@ -3,5 +3,4 @@
3- [x] functioncall
3- [x] functioncall
4- [ ] any string apart from the basic string with no escapes
4- [ ] any string apart from the basic string with no escapes
5- [ ] check if int fits in int or make it a float
5- [ ] check if int fits in int or make it a float
6−- [ ] strip out comments before parsing
7- [ ] should `print-blok` have `do`-`end`? This is fucked.
6- [ ] should `print-blok` have `do`-`end`? This is fucked.
zod/luau/lib/lua/parser.hoon+42−2
@@ -118,7 +118,47 @@ apex
118 |* closing=rule
118 |* closing=rule
119 ;~ pfix
119 ;~ pfix
120 (punt nl)
120 (punt nl)
121+ %- star
121− %- star ;~(less closing next)
122+ ;~ less closing
123+ ;~ pose
124+ %+ cold '\07' (jest '\\a')
125+ %+ cold '\08' (jest '\\b')
126+ %+ cold '\0c' (jest '\\f')
127+ %+ cold '\0a' (jest '\\n')
128+ %+ cold '\0d' (jest '\\r')
129+ %+ cold '\09' (jest '\\t')
130+ %+ cold '\0b' (jest '\\v')
131+ %+ cold '\\' (jest '\\\\')
132+ %+ cold '"' (jest '\\"')
133+ %+ cold '\'' (jest '\\\'')
134+ %+ cold '\0a' (jest '\\\0a')
135+ %+ cold '' ;~(pose (jest '\\z') (plus gaw))
136+ ::
137+ ;~ pfix
138+ (jest '\\x')
139+ ;< hex-digits=tape bind ;~(plug next next (easy ~))
140+ =/ digit=(unit @) (rust hex-digits hex)
141+ ?~ digit fail (easy `@t`u.digit)
142+ ==
143+ ::
144+ ;~ pfix
145+ (jest '\\')
146+ ;< digits=tape bind (stun [1 3] (shim '0' '9'))
147+ =/ digit=(unit @) (rust digits dem)
148+ ?~ digit fail (easy `@t`u.digit)
149+ ==
150+ ::
151+ %+ cook
152+ |= [* point=@ *] `@t`point
153+ ;~ plug
154+ (jest '\\u{')
155+ hex
156+ (just '}')
157+ ==
158+ ::
159+ next
160+ ==
161+ ==
122 ==
162 ==
123 ==
163 ==
124++ parse-table
164++ parse-table
@@ -820,7 +860,7 @@ apex
820 |* [=term gar=mold sef=rule]
860 |* [=term gar=mold sef=rule]
821 |= tub=nail
861 |= tub=nail
822 ^- (like gar)
862 ^- (like gar)
823− =/ trace &
863+ =/ trace |
824 ~? trace [p.p.tub term `tape`(scag 40 q.tub)]
864 ~? trace [p.p.tub term `tape`(scag 40 q.tub)]
825 =/ res (sef tub)
865 =/ res (sef tub)
826 ?. trace res
866 ?. trace res