Commit 33e786e3 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-07-15 19:09:13 by cvscast] Should implement footnotes correctly ... would be easier with

references (mutable values)

Original author: cvscast
Date: 2003-07-15 19:09:13+00:00
parent 958d4642
......@@ -57,6 +57,7 @@ type InlineText =
| <(`b|`i|`tt|`em) {| style=?String |}>[InlineText*]
| <code>String
| <local href=String>String
| <footnote>Content
| Xa | Ximg | Xbr
......@@ -206,6 +207,7 @@ match page with
| <local href=l>txt -> local_link (sitemap,l,txt)
| <(tag & (`b|`i|`tt|`em)) (attr)>x -> <(tag) (attr)>(text x)
(* | <a href=url>_ & z -> let [] = print [ 'Link: ' !url '\n'] in z *)
| <footnote>_ -> raise "Footnotes not yet implemented !"
| z -> z
in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment