urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

End parsing cram on outdent

Browse Source
This commit is contained in:
Fang 2017-08-02 11:42:19 -07:00
parent 108f8079af
commit 6985398293
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gen/cram.hoon
View File

@ -334,8 +334,7 @@
sty/trig-style :: style
== ::
++ trig-style ::
$? $fini :: terminator
$done :: end of input
$? $done :: end of input
$rule :: --- horizontal ruler
$lint :: + line item
$lite :: - line item
@ -390,7 +389,7 @@
::
++ cram-main :: parsing loop logic
=* parse cram-parsers
|= {col/@u naz/hair los/tape}
|= {top/@u naz/hair los/tape}
::
:: state of the parsing loop. we maintain a construction
:: stack for elements and a line stack for lines in the
@ -405,6 +404,7 @@
:: lub: current block being read in
::
=| err/(unit hair)
=/ col top
=| hac/(list item)
=/ cur/item [%down ~]
=| lub/(unit (pair hair (list tape)))
@ -598,15 +598,9 @@
=> .(pic u.pic)
::
:: if end of input, complete
?: ?=($done sty.pic)
?: |(?=($done sty.pic) (lth col.pic top))
..$(q.naz col.pic)
::
:: if end marker behind current column
?: &(?=($fini sty.pic) (lth col.pic col))
::
:: retract and complete
(back(q.naz (add 2 col.pic)) col.pic)
::
:: bal: inspection copy of lub, current section
=/ bal lub
::
@ -677,7 +671,7 @@
::
++ apse ^+ . :: by prefix style
?- sty.pic
?($fini $done) !! :: terminator
$done !! :: blank
$rule (push %rule) :: horizontal ruler
$head (push %head) :: heading
$bloc (entr %bloc) :: blockquote line
@ -734,7 +728,6 @@
;~ pose
(full (easy %done)) :: end of input
(cold ~ (just `@`10)) :: blank line
(cold %fini bas) :: terminator
(cold %rule ;~(plug hep hep hep)) :: --- horizontal ruler
(cold %head ;~(plug (star hax) ace)) :: # heading
(cold %lite ;~(plug hep ace)) :: - line item
@ -983,7 +976,7 @@
%- star
;~ pfix gay
;~ pose
cram
:(cook poxo freeze cram)
;~(sfix ;~(less hrul:cram-parsers (star prn)) (just '\0a'))
==
==