git.iko.soy/luau
on master help sign in
Added labels
commit9054a6736b5557876c520c24b10ced0fbb01aeb4 authoriko <mail@iko.soy> dateFri 17 May 2024, 16:43 (2 years ago) parent3813023
2 files changed+31−1
compare with master
unifiedsplit
zod/luau/lib/lua.hoon+28 zod/luau/tests/foo.lua+3−1
zod/luau/lib/lua.hoon+28
@@ -464,6 +464,7 @@
464464 $%
465465 [%blok blok]
466466 [%asmnt varlist exprlist]
467+ [%label label]
467468 [%empty ~]
468469 ==
469470++ parse-stat
@@ -472,6 +473,10 @@
472473 ;~ pose
473474 (cold [%empty ~] (just ';'))
474475 ::
476+ %+ cook
477+ |= =label [%label label]
478+ parse-label
479+ ::
475480 %+ cook
476481 |=([* =blok *] [%blok blok])
477482 ;~ (glue wss)
@@ -501,6 +506,29 @@
501506 "="
502507 (commaed (turn +>.stat print-expr))
503508 ==
509+ %label (print-label +.stat)
510+ ==
511+:: label
512+::
513++$ label name
514+++ print-label
515+ |= =label
516+ ^- tape
517+ %- zing
518+ :~
519+ "::"
520+ (trip label)
521+ "::"
522+ ==
523+++ parse-label
524+ %+ knee *label
525+ |.
526+ %+ cook
527+ |= [* =label *] label
528+ ;~ (glue ws)
529+ (jest '::')
530+ parse-name
531+ (jest '::')
504532 ==
505533:: Blok
506534::
zod/luau/tests/foo.lua+3−1
@@ -37,7 +37,9 @@ test_cases = {
3737 { 0x800000000000, "1.4073748835533e+14" },
3838 { 140737488355328, "1.4073748835533e+14" },
3939}
40−
40+::
41+helli
42+::
4143foo = {
4244 3.0, 3.1416, 314.16e-2, 0.31416E1, 34e1,
4345 0x0.1E, 0xA23p-4, 0xA23p-4, 0X1.921FB54442D18P+1, 0x1.fp10