author | wenzelm |
Sun, 14 Nov 2021 17:46:41 +0100 | |
changeset 74784 | d2522bb4db1b |
parent 74781 | ffd640825505 |
child 74786 | 543f932f64b8 |
permissions | -rw-r--r-- |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
1 |
(* Title: Pure/Thy/latex.ML |
73754 | 2 |
Author: Makarius |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
3 |
|
73754 | 4 |
LaTeX output of theory sources. |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
5 |
*) |
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
6 |
|
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
7 |
signature LATEX = |
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
8 |
sig |
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
9 |
type text = XML.body |
67194
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
10 |
val text: string * Position.T -> text |
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
11 |
val string: string -> text |
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
12 |
val block: text -> XML.tree |
74784
d2522bb4db1b
symbolic latex_output via XML, interpreted in Isabelle/Scala;
wenzelm
parents:
74781
diff
changeset
|
13 |
val output: text -> text |
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
14 |
val enclose_text: string -> string -> text -> text |
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
15 |
val output_text: text -> string |
67145 | 16 |
val output_name: string -> string |
58716
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
17 |
val output_ascii: string -> string |
71899 | 18 |
val output_ascii_breakable: string -> string -> string |
11719 | 19 |
val output_symbols: Symbol.symbol list -> string |
67145 | 20 |
val output_syms: string -> string |
67461 | 21 |
val symbols: Symbol_Pos.T list -> text |
22 |
val symbols_output: Symbol_Pos.T list -> text |
|
17081 | 23 |
val begin_delim: string -> string |
24 |
val end_delim: string -> string |
|
25 |
val begin_tag: string -> string |
|
26 |
val end_tag: string -> string |
|
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
27 |
val environment_text: string -> text -> text |
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
28 |
val isabelle_body: string -> text -> text |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
29 |
val theory_entry: string -> string |
73754 | 30 |
val index_escape: string -> string |
31 |
type index_item = {text: text, like: string} |
|
32 |
type index_entry = {items: index_item list, def: bool} |
|
33 |
val index_entry: index_entry -> text |
|
73763
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
34 |
val index_variants: (binding -> bool option -> 'a -> 'a) -> binding -> 'a -> 'a |
66021 | 35 |
val latexN: string |
69346
3c29edccf739
expose latex mode operations, to facilitate adhoc changes to it;
wenzelm
parents:
67462
diff
changeset
|
36 |
val latex_output: string -> string * int |
3c29edccf739
expose latex mode operations, to facilitate adhoc changes to it;
wenzelm
parents:
67462
diff
changeset
|
37 |
val latex_markup: string * Properties.T -> Markup.output |
3c29edccf739
expose latex mode operations, to facilitate adhoc changes to it;
wenzelm
parents:
67462
diff
changeset
|
38 |
val latex_indent: string -> int -> string |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
39 |
end; |
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
40 |
|
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
41 |
structure Latex: LATEX = |
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
42 |
struct |
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
43 |
|
67194
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
44 |
(* text with positions *) |
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
45 |
|
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
46 |
type text = XML.body; |
73754 | 47 |
|
74779 | 48 |
fun text (s, pos) = |
49 |
if s = "" then [] |
|
50 |
else if pos = Position.none then [XML.Text s] |
|
51 |
else [XML.Elem (Position.markup pos Markup.document_latex, [XML.Text s])]; |
|
67194
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
52 |
|
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
53 |
fun string s = text (s, Position.none); |
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
54 |
|
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
55 |
fun block body = XML.Elem (Markup.document_latex, body); |
67195 | 56 |
|
74784
d2522bb4db1b
symbolic latex_output via XML, interpreted in Isabelle/Scala;
wenzelm
parents:
74781
diff
changeset
|
57 |
fun output body = [XML.Elem (Markup.latex_output, body)]; |
d2522bb4db1b
symbolic latex_output via XML, interpreted in Isabelle/Scala;
wenzelm
parents:
74781
diff
changeset
|
58 |
|
74780 | 59 |
val output_text = |
60 |
let |
|
61 |
fun document_latex text = |
|
62 |
text |> maps |
|
63 |
(fn XML.Elem ((name, _), body) => |
|
74784
d2522bb4db1b
symbolic latex_output via XML, interpreted in Isabelle/Scala;
wenzelm
parents:
74781
diff
changeset
|
64 |
if name = Markup.document_latexN orelse name = Markup.latex_outputN |
d2522bb4db1b
symbolic latex_output via XML, interpreted in Isabelle/Scala;
wenzelm
parents:
74781
diff
changeset
|
65 |
then document_latex body else [] |
74780 | 66 |
| t => [t]) |
67 |
in XML.content_of o document_latex end; |
|
67194
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
68 |
|
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
69 |
fun enclose_text bg en body = string bg @ body @ string en; |
67462 | 70 |
|
67194
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
71 |
|
67145 | 72 |
(* output name for LaTeX macros *) |
73 |
||
74 |
val output_name = |
|
75 |
translate_string |
|
76 |
(fn "_" => "UNDERSCORE" |
|
77 |
| "'" => "PRIME" |
|
78 |
| "0" => "ZERO" |
|
79 |
| "1" => "ONE" |
|
80 |
| "2" => "TWO" |
|
81 |
| "3" => "THREE" |
|
82 |
| "4" => "FOUR" |
|
83 |
| "5" => "FIVE" |
|
84 |
| "6" => "SIX" |
|
85 |
| "7" => "SEVEN" |
|
86 |
| "8" => "EIGHT" |
|
87 |
| "9" => "NINE" |
|
88 |
| s => s); |
|
89 |
||
90 |
fun enclose_name bg en = enclose bg en o output_name; |
|
91 |
||
92 |
||
61455 | 93 |
(* output verbatim ASCII *) |
58716
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
94 |
|
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
95 |
val output_ascii = |
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
96 |
translate_string |
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
97 |
(fn " " => "\\ " |
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
98 |
| "\t" => "\\ " |
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
99 |
| "\n" => "\\isanewline\n" |
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
100 |
| s => |
72315
8162ca81ea8a
suppress ligatures more robustly, notably for lualatex;
wenzelm
parents:
71899
diff
changeset
|
101 |
s |
8162ca81ea8a
suppress ligatures more robustly, notably for lualatex;
wenzelm
parents:
71899
diff
changeset
|
102 |
|> exists_string (fn s' => s = s') "\"#$%&',-<>\\^_`{}~" ? enclose "{\\char`\\" "}" |
8162ca81ea8a
suppress ligatures more robustly, notably for lualatex;
wenzelm
parents:
71899
diff
changeset
|
103 |
|> suffix "{\\kern0pt}"); |
58716
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
104 |
|
71899 | 105 |
fun output_ascii_breakable sep = |
106 |
space_explode sep |
|
107 |
#> map output_ascii |
|
108 |
#> space_implode (output_ascii sep ^ "\\discretionary{}{}{}"); |
|
109 |
||
58716
23a380cc45f4
official support for "tt" style variants, avoid fragile \verb in LaTeX;
wenzelm
parents:
55828
diff
changeset
|
110 |
|
61455 | 111 |
(* output symbols *) |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
112 |
|
7900 | 113 |
local |
114 |
||
40402
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
115 |
val char_table = |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
116 |
Symtab.make |
63590
4854f7ee0987
proper latex rendering of abbrevs templates (e.g. src/HOL/Nonstandard_Analysis/HLim.thy);
wenzelm
parents:
61595
diff
changeset
|
117 |
[("\007", "{\\isacharbell}"), |
4854f7ee0987
proper latex rendering of abbrevs templates (e.g. src/HOL/Nonstandard_Analysis/HLim.thy);
wenzelm
parents:
61595
diff
changeset
|
118 |
("!", "{\\isacharbang}"), |
40402
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
119 |
("\"", "{\\isachardoublequote}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
120 |
("#", "{\\isacharhash}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
121 |
("$", "{\\isachardollar}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
122 |
("%", "{\\isacharpercent}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
123 |
("&", "{\\isacharampersand}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
124 |
("'", "{\\isacharprime}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
125 |
("(", "{\\isacharparenleft}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
126 |
(")", "{\\isacharparenright}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
127 |
("*", "{\\isacharasterisk}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
128 |
("+", "{\\isacharplus}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
129 |
(",", "{\\isacharcomma}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
130 |
("-", "{\\isacharminus}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
131 |
(".", "{\\isachardot}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
132 |
("/", "{\\isacharslash}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
133 |
(":", "{\\isacharcolon}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
134 |
(";", "{\\isacharsemicolon}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
135 |
("<", "{\\isacharless}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
136 |
("=", "{\\isacharequal}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
137 |
(">", "{\\isachargreater}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
138 |
("?", "{\\isacharquery}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
139 |
("@", "{\\isacharat}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
140 |
("[", "{\\isacharbrackleft}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
141 |
("\\", "{\\isacharbackslash}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
142 |
("]", "{\\isacharbrackright}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
143 |
("^", "{\\isacharcircum}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
144 |
("_", "{\\isacharunderscore}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
145 |
("`", "{\\isacharbackquote}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
146 |
("{", "{\\isacharbraceleft}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
147 |
("|", "{\\isacharbar}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
148 |
("}", "{\\isacharbraceright}"), |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
149 |
("~", "{\\isachartilde}")]; |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
150 |
|
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
151 |
fun output_chr " " = "\\ " |
43709
717e96cf9527
discontinued special treatment of hard tabulators;
wenzelm
parents:
43485
diff
changeset
|
152 |
| output_chr "\t" = "\\ " |
40402
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
153 |
| output_chr "\n" = "\\isanewline\n" |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
154 |
| output_chr c = |
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
155 |
(case Symtab.lookup char_table c of |
72315
8162ca81ea8a
suppress ligatures more robustly, notably for lualatex;
wenzelm
parents:
71899
diff
changeset
|
156 |
SOME s => s ^ "{\\kern0pt}" |
40402
b646316f8b3c
basic setup for literal replacement text in PDF, to support copy/paste of Isabelle symbols;
wenzelm
parents:
39666
diff
changeset
|
157 |
| NONE => if Symbol.is_ascii_digit c then enclose "{\\isadigit{" "}}" c else c); |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
158 |
|
67263 | 159 |
fun output_sym sym = |
14874 | 160 |
(case Symbol.decode sym of |
161 |
Symbol.Char s => output_chr s |
|
37533
d775bd70f571
explicit treatment of UTF8 character sequences as Isabelle symbols;
wenzelm
parents:
36959
diff
changeset
|
162 |
| Symbol.UTF8 s => s |
67263 | 163 |
| Symbol.Sym s => enclose_name "{\\isasym" "}" s |
164 |
| Symbol.Control s => enclose_name "\\isactrl" " " s |
|
43485 | 165 |
| Symbol.Malformed s => error (Symbol.malformed_msg s) |
166 |
| Symbol.EOF => error "Bad EOF symbol"); |
|
7900 | 167 |
|
67428 | 168 |
open Basic_Symbol_Pos; |
169 |
||
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
170 |
val scan_latex_length = |
67428 | 171 |
Scan.many1 (fn (s, _) => s <> Symbol.latex andalso Symbol.not_eof s) |
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
172 |
>> (Symbol.length o map Symbol_Pos.symbol) || |
67428 | 173 |
$$ Symbol.latex -- Scan.option (Scan.permissive Symbol_Pos.scan_cartouche "") >> K 0; |
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
174 |
|
67263 | 175 |
val scan_latex = |
67428 | 176 |
$$ Symbol.latex |-- Symbol_Pos.scan_cartouche_content "Embedded LaTeX: " |
177 |
>> (implode o map Symbol_Pos.symbol) || |
|
67263 | 178 |
Scan.one (Symbol.not_eof o Symbol_Pos.symbol) >> (output_sym o Symbol_Pos.symbol); |
63935
aa1fe1103ab8
raw control symbols are superseded by Latex.embed_raw;
wenzelm
parents:
63590
diff
changeset
|
179 |
|
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
180 |
fun read scan syms = |
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
181 |
Scan.read Symbol_Pos.stopper (Scan.repeat scan) (map (rpair Position.none) syms); |
63935
aa1fe1103ab8
raw control symbols are superseded by Latex.embed_raw;
wenzelm
parents:
63590
diff
changeset
|
182 |
|
7900 | 183 |
in |
184 |
||
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
185 |
fun length_symbols syms = |
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
186 |
fold Integer.add (these (read scan_latex_length syms)) 0; |
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
187 |
|
67263 | 188 |
fun output_symbols syms = |
67428 | 189 |
if member (op =) syms Symbol.latex then |
67263 | 190 |
(case read scan_latex syms of |
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
191 |
SOME ss => implode ss |
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
192 |
| NONE => error ("Malformed embedded LaTeX: " ^ quote (Symbol.beginning 10 syms))) |
67263 | 193 |
else implode (map output_sym syms); |
63935
aa1fe1103ab8
raw control symbols are superseded by Latex.embed_raw;
wenzelm
parents:
63590
diff
changeset
|
194 |
|
8192 | 195 |
val output_syms = output_symbols o Symbol.explode; |
7900 | 196 |
|
197 |
end; |
|
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
198 |
|
67461 | 199 |
fun symbols syms = text (Symbol_Pos.content syms, #1 (Symbol_Pos.range syms)); |
200 |
fun symbols_output syms = |
|
201 |
text (output_symbols (map Symbol_Pos.symbol syms), #1 (Symbol_Pos.range syms)); |
|
202 |
||
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
203 |
|
61455 | 204 |
(* tags *) |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
205 |
|
67145 | 206 |
val begin_delim = enclose_name "%\n\\isadelim" "\n"; |
207 |
val end_delim = enclose_name "%\n\\endisadelim" "\n"; |
|
208 |
val begin_tag = enclose_name "%\n\\isatag" "\n"; |
|
209 |
fun end_tag tg = enclose_name "%\n\\endisatag" "\n" tg ^ enclose "{\\isafold" "}%\n" tg; |
|
11860 | 210 |
|
211 |
||
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
212 |
(* theory presentation *) |
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
213 |
|
74781 | 214 |
fun environment_text name = |
215 |
enclose_text |
|
216 |
("%\n\\begin{" ^ output_name name ^ "}%\n") |
|
217 |
("%\n\\end{" ^ output_name name ^ "}"); |
|
67194
1c0a6a957114
positions as postlude: avoid intrusion of odd %-forms into main tex source;
wenzelm
parents:
67189
diff
changeset
|
218 |
|
67263 | 219 |
fun isabelle_body name = |
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
220 |
enclose_text |
67263 | 221 |
("%\n\\begin{isabellebody}%\n\\setisabellecontext{" ^ output_syms name ^ "}%\n") |
222 |
"%\n\\end{isabellebody}%\n"; |
|
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
223 |
|
9038
63d20536971f
session.tex: nsert blank lines in order to guarantee new paragraphs
wenzelm
parents:
8965
diff
changeset
|
224 |
fun theory_entry name = "\\input{" ^ name ^ ".tex}\n\n"; |
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
225 |
|
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
226 |
|
73754 | 227 |
(* index entries *) |
228 |
||
229 |
type index_item = {text: text, like: string}; |
|
230 |
type index_entry = {items: index_item list, def: bool}; |
|
231 |
||
232 |
val index_escape = |
|
233 |
translate_string (fn s => |
|
73763
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
234 |
if member_string "!\"@|" s then "\\char" ^ string_of_int (ord s) |
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
235 |
else if member_string "\\{}#" s then "\"" ^ s else s); |
73754 | 236 |
|
237 |
fun index_item (item: index_item) = |
|
238 |
let |
|
239 |
val like_text = |
|
73779
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
240 |
if #like item = "" then "" |
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
241 |
else index_escape (#like item) ^ "@"; |
73780
466fae6bf22e
compose Latex text as XML, output exported YXML in Isabelle/Scala;
wenzelm
parents:
73779
diff
changeset
|
242 |
val item_text = index_escape (output_text (#text item)); |
73779
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
243 |
in like_text ^ item_text end; |
73754 | 244 |
|
245 |
fun index_entry (entry: index_entry) = |
|
73779
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
246 |
(space_implode "!" (map index_item (#items entry)) ^ |
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
247 |
"|" ^ index_escape (if #def entry then "isaindexdef" else "isaindexref")) |
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
248 |
|> enclose "\\index{" "}" |
546e1e591635
more direct index_entry: no positions required -- text is eventually moved to .ind file;
wenzelm
parents:
73763
diff
changeset
|
249 |
|> string; |
73754 | 250 |
|
73763
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
251 |
fun index_binding NONE = I |
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
252 |
| index_binding (SOME def) = Binding.map_name (suffix (if def then "_def" else "_ref")); |
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
253 |
|
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
254 |
fun index_variants setup binding = |
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
255 |
fold (fn index => setup (index_binding index binding) index) [NONE, SOME true, SOME false]; |
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
256 |
|
eccc4a13216d
clarified index antiquotation for ML: more ambitious type-setting, more accurate syntax;
wenzelm
parents:
73754
diff
changeset
|
257 |
|
8460 | 258 |
(* print mode *) |
259 |
||
8965 | 260 |
val latexN = "latex"; |
261 |
||
8460 | 262 |
fun latex_output str = |
263 |
let val syms = Symbol.explode str |
|
64526
01920e390645
embedded latex has 0 length -- imitating \<^raw> before aa1fe1103ab8;
wenzelm
parents:
63936
diff
changeset
|
264 |
in (output_symbols syms, length_symbols syms) end; |
19265 | 265 |
|
69346
3c29edccf739
expose latex mode operations, to facilitate adhoc changes to it;
wenzelm
parents:
67462
diff
changeset
|
266 |
fun latex_markup (s, _: Properties.T) = |
59123
e68e44836d04
imitate command markup and rendering of Isabelle/jEdit in HTML output;
wenzelm
parents:
59081
diff
changeset
|
267 |
if s = Markup.commandN orelse s = Markup.keyword1N orelse s = Markup.keyword3N |
e68e44836d04
imitate command markup and rendering of Isabelle/jEdit in HTML output;
wenzelm
parents:
59081
diff
changeset
|
268 |
then ("\\isacommand{", "}") |
e68e44836d04
imitate command markup and rendering of Isabelle/jEdit in HTML output;
wenzelm
parents:
59081
diff
changeset
|
269 |
else if s = Markup.keyword2N |
e68e44836d04
imitate command markup and rendering of Isabelle/jEdit in HTML output;
wenzelm
parents:
59081
diff
changeset
|
270 |
then ("\\isakeyword{", "}") |
29325 | 271 |
else Markup.no_output; |
10955 | 272 |
|
23621 | 273 |
fun latex_indent "" _ = "" |
274 |
| latex_indent s _ = enclose "\\isaindent{" "}" s; |
|
275 |
||
67428 | 276 |
val _ = Output.add_mode latexN latex_output (prefix Symbol.latex o cartouche); |
23703 | 277 |
val _ = Markup.add_mode latexN latex_markup; |
278 |
val _ = Pretty.add_mode latexN latex_indent; |
|
8460 | 279 |
|
7726
2c7fc0ba1e12
Simple LaTeX presentation primitives (based on outer lexical syntax).
wenzelm
parents:
diff
changeset
|
280 |
end; |