ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-22 16:09:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

formalize %dent parsing

Browse Source
This commit is contained in:
Anton Dyudin 2017-08-24 19:13:49 -07:00 committed by Ted Blackman
parent fa2b9a0eea
commit 0fcf16898e
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/vast2.hoon
View File

@ -306,12 +306,17 @@
=/ eat-newline +>(txt t.txt, loc [+(p.loc) 1])
=/ saw look:eat-newline
=/ cont :: continue?
?| ?=($~ saw) :: line is blan
?=($done +.sty.u.saw) :: end of input
?! ?| :: neither:
?=($stet +.sty.u.saw) :: == nor
(lth col.u.saw out.ind) :: outdent
== ==
?~ saw & :: eat blank lines
=. sty.u.saw
?: ?=($done +.sty.u.saw) sty.u.saw :: except at eof
::
:: parse column decreasing past top.ind as an outdent
?. (lth col.u.saw out.ind) sty.u.saw
[%end %dent]
::
:: stop on == or aforementioned outdent
!?=(?($stet $dent) +.sty.u.saw)
::
?: cont
[[lin &] eat-newline]
[[lin |] +>.$]
@ -383,8 +388,11 @@
:: line is not blank
=> .(saw u.saw)
::
:: parse outdent
=. sty.saw ?:((lth col.saw out.ind) [%end %dent] sty.saw)
::
:: if end of input, complete
?: |(?=($end -.sty.saw) (lth col.saw out.ind))
?: ?=($end -.sty.saw)
..$(q.loc col.saw)
::
=. ind ?~(out.ind [col.saw col.saw] ind) :: init indents