changeset 25273 | 189db9ef803f |
parent 23935 | 2a4e42ec9a54 |
25272:2dbc2bbe237a | 25273:189db9ef803f |
---|---|
16 (** print mode **) |
16 (** print mode **) |
17 |
17 |
18 val pgmlN = "PGML"; |
18 val pgmlN = "PGML"; |
19 fun pgml_mode f x = PrintMode.with_modes [pgmlN] f x; |
19 fun pgml_mode f x = PrintMode.with_modes [pgmlN] f x; |
20 |
20 |
21 val _ = Output.add_mode pgmlN Output.default_output Output.default_escape; |
|
21 val _ = Markup.add_mode pgmlN (fn markup as (name, _) => ("", "")); |
22 val _ = Markup.add_mode pgmlN (fn markup as (name, _) => ("", "")); |
22 |
23 |
23 end; |
24 end; |