Commit 926af0ce authored by Pietro Abate's avatar Pietro Abate

[r2005-03-28 22:41:07 by beppe] Formatting issues

Original author: beppe
Date: 2005-03-28 22:41:07+00:00
parent 348b5a72
......@@ -4,6 +4,7 @@ VERSION=0.3.2
CDUCE=../cduce
FOP=fop-0.20.5/fop.sh
all: manual_pdf tutorial_pdf
tutorial:
(cd ../../web && $(CDUCE) ../doc/fomanual/xml2fo.cd \
......@@ -20,5 +21,5 @@ tutorial_pdf: tutorial
manual_pdf: manual
$(FOP) manual_fo.xml manual.pdf
all: manual_pdf tutorial_pdf
......@@ -61,7 +61,7 @@ type static-content = <fo:static-content flow-name=?String >[ block* ];;
type footnote = <fo:footnote text-indent=?String>[inline footnote-body];;
type footnote-body = <fo:footnote-body >[(list-block | block | footnote)*];;
type page-sequence =
<fo:page-sequence master-reference=String>[ ( static-content? flow?) ];;
<fo:page-sequence initial-page-number=?String master-reference=String>[ ( static-content? flow?) ];;
type repeatable-page-master-alternatives =
<fo:repeatable-page-master-alternatives conditional-page-master-reference=?String>[
Any* ];;
......
......@@ -225,36 +225,39 @@ in
match argv [] with
| [ (inp_file & Latin1) (out_file & Latin1) (cduce_version & Latin1) ] -> (
try
let ([ main_page ]) =
(load_include inp_file :? [ Page ])
in
let DebutFo : root = <fo:root >[<fo:layout-master-set>[
<fo:simple-page-master master-name="essai" page-height="29.7cm" page-width="21cm">[<fo:region-body margin-top="3cm" margin-bottom="3.5cm"
margin-left="2.5cm" margin-right="2.5cm">[]
]
]
<fo:page-sequence master-reference="essai" >[
<fo:static-content flow-name="xsl-footnote-separator">[
<fo:block>[
<fo:leader leader-pattern="rule"
leader-length="100%"
rule-style="solid"
rule-thickness="0.5pt">[]]]
<fo:flow
flow-name="xsl-region-body"
font-size="12pt"
text-align="justify"> [!(gen_page(main_page,cduce_version))] ]] in
dump_to_file ("../doc/fomanual/"@out_file)
['<?xml version="1.0" encoding="ISO-8859-1"?>' !(print_xml DebutFo)]
| [ (inp_file & Latin1) (out_file & Latin1) (cduce_version & Latin1) ]
-> (try let ([ main_page ]) = (load_include inp_file :? [ Page ]) in
let DebutFo : root =
<fo:root >[
<fo:layout-master-set>[
<fo:simple-page-master
master-name="essai"
page-height="29.7cm"
page-width="21cm">[
<fo:region-body margin-top="3cm"
margin-bottom="3.5cm"
margin-left="2.5cm"
margin-right="2.5cm">[]
<fo:region-after extent="15mm">[]
]
]
<fo:page-sequence initial-page-number="auto" master-reference="essai" >[
<fo:static-content flow-name="xsl-footnote-separator">[
<fo:block>[
<fo:leader leader-pattern="rule"
leader-length="100%"
rule-style="solid"
rule-thickness="0.5pt">[]]]
<fo:flow
flow-name="xsl-region-body"
font-size="12pt"
text-align="justify"> [!(gen_page(main_page,cduce_version))] ]] in
dump_to_file ("../doc/fomanual/"@out_file)
['<?xml version="1.0" encoding="ISO-8859-1"?>' !(print_xml DebutFo)]
(*print(print_xml(main_page));*)
(* print (gen_page main_page)*)
with err & Latin1 ->
print ['Invalid input document\n' !err '\n'];
exit 2
)
| _ -> print_utf8 ("a pa trouve:");raise "erreur arg ";;
with err & Latin1 -> print ['Invalid input document\n' !err '\n'];
exit 2
)
| _ -> raise "Wrong argument number or type: please correct the --arg option";;
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