Commit b9dfa1fd authored by Pietro Abate's avatar Pietro Abate

[r2005-03-26 16:36:00 by beppe] Empty log message

Original author: beppe
Date: 2005-03-26 16:36:00+00:00
parent d5081980
......@@ -2,7 +2,7 @@ CDUCE=/tmp/cduce-0.2.2/cduce
FOP=/tmp/fop-0.20.5/fop.sh
all:
(cd ../../web && ${CDUCE} ../doc/fomanual/xml2fo.cd)
(cd ../../web && ${CDUCE} ../doc/fomanual/xml2fo.cd --arg manual.xml)
pdf: all
${FOP} manual_fo.xml manual.pdf
......@@ -21,7 +21,7 @@ type block =
white-space-treatment=?("preserve"|"ignore")|}>[
Any* ];;
type line = <fo:inline {|text-decoration=?String; color=?String; font-weight=?String; font-style=?String|}>[Any*];;
type flow = <fo:flow {|flow-name=String; font-size=String|}>[ block* ];;
type flow = <fo:flow {|flow-name=String; font-size=String; text-align=?String|}>[ block* ];;
type static-content = <fo:static-content {||}>[ block* ];;
type page-sequence =
......
......@@ -51,6 +51,7 @@ let highlight (String -> [ (Char)* ] )
border-style="dashed"
margin-bottom="3pt"
margin-left="3pt"
text-align="left"
space-after="10pt">[!(highlight s)]]
| <p>x -> [<fo:block space-after="15pt">[!(text x)]]
| <ul>u -> ( transform u with
......@@ -152,7 +153,7 @@ match argv [] with
]
]
<fo:page-sequence master-reference="essai" >[
<fo:flow flow-name="xsl-region-body" font-size="12pt"> [!(gen_page main_page)] ]] in
<fo:flow flow-name="xsl-region-body" font-size="12pt" text-align="justify"> [!(gen_page main_page)] ]] in
dump_to_file "../doc/fomanual/manual_fo.xml" (print_xml DebutFo)
(*print(print_xml(main_page));*)
(* print (gen_page main_page)*)
......
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