ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-04 10:52:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

improved xml parser

Browse Source
This commit is contained in:
johncburnham 2014-07-16 19:46:46 -07:00
parent 7faf70e14d
commit 5987ff2f8d
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
arvo/zuse.hoon
View File

@ -883,45 +883,47 @@
++ xmlp :: xml parser
|%
++ apex
=+ spa=;~(pose comt whit)
%+ knee *manx |. ~+
%+ sear
|=([a=marx b=marl c=mane] ?.(=(c n.a) ~ (some [a b])))
%+ ifix [(star whit) (star whit)]
;~ pose
;~(plug head (star ;~(pose apex chrd)) tail)
%+ ifix [(star spa) (star spa)]
;~ pose
%+ sear
|=([a=marx b=marl c=mane] ?.(=(c n.a) ~ (some [a b])))
;~(plug head (more (star comt) ;~(pose apex chrd)) tail)
empt
==
==
::
++ attr :: attribute
%+ knee *mart |. ~+
%- star
;~ pfix ace
;~ pfix (plus whit)
;~ plug name
;~ pfix tis
;~ pose
(ifix [doq doq] (star ;~(less pam gal gar doq prn)))
(ifix [soq soq] (star ;~(less pam gal gar soq prn)))
(ifix [doq doq] (star ;~(less doq escp)))
(ifix [soq soq] (star ;~(less soq escp)))
== ==
== ==
::
++ chrd :: chracter data
++ chrd :: character data
%+ knee *manx |. ~+
%+ cook |=(a=* ((hard mars) :/(a)))
%- plus
;~ less pam gal gar soq doq
;~ pose
(cold 62 (jest '>'))
(cold 60 (jest '<'))
(cold 38 (jest '&'))
(cold 39 (jest '''))
(cold 34 (jest '"'))
prn
==
==
%+ cook |=(a=tape :/(a))
(plus ;~(less soq doq ;~(pose (just `@`10) escp)))
::
++ comt %+ ifix [(jest '<!--') (jest '-->')] :: comments
(star ;~(less (jest '-->') ;~(pose whit prn)))
::
++ escp
;~ pose
;~(less gal gar pam prn)
(cold '>' (jest '&gt;'))
(cold '<' (jest '&lt;'))
(cold '&' (jest '&amp;'))
(cold '"' (jest '&quot;'))
(cold '\'' (jest '&apos;'))
==
++ empt :: self-closing tag
%+ cook |=(a=marx `[marx marl mane]`[a ~ n.a])
(ifix [gal (jest '/>')] ;~(plug name attr))
(ifix [gal (jest '/>')] ;~(plug ;~(plug name attr) (cold ~ (star whit))))
::
++ head :: opening tag
%+ knee *marx |. ~+