doc-src/antiquote_setup.ML
changeset 37216 3165bc303f66
parent 37198 3af985b10550
child 37982 111ce9651564
     1.1 --- a/doc-src/antiquote_setup.ML	Mon May 31 19:36:13 2010 +0200
     1.2 +++ b/doc-src/antiquote_setup.ML	Mon May 31 21:06:57 2010 +0200
     1.3 @@ -35,7 +35,7 @@
     1.4  
     1.5  val verbatim = space_implode "\\verb,|," o map (enclose "\\verb|" "|") o space_explode "|";
     1.6  
     1.7 -val _ = ThyOutput.antiquotation "verbatim" (Scan.lift Args.name)
     1.8 +val _ = Thy_Output.antiquotation "verbatim" (Scan.lift Args.name)
     1.9    (K (split_lines #> map verbatim #> space_implode "\\isasep\\isanewline%\n"));
    1.10  
    1.11  
    1.12 @@ -56,7 +56,7 @@
    1.13  
    1.14  fun ml_functor (txt, _) = "ML_Env.check_functor " ^ ML_Syntax.print_string txt;
    1.15  
    1.16 -fun index_ml name kind ml = ThyOutput.antiquotation name
    1.17 +fun index_ml name kind ml = Thy_Output.antiquotation name
    1.18    (Scan.lift (Args.name -- Scan.optional (Args.colon |-- Args.name) ""))
    1.19    (fn {context = ctxt, ...} => fn (txt1, txt2) =>
    1.20      let
    1.21 @@ -71,8 +71,8 @@
    1.22      in
    1.23        "\\indexdef{}{" ^ kind' ^ "}{" ^ clean_string txt1 ^ "}" ^
    1.24        (txt'
    1.25 -      |> (if ! ThyOutput.quotes then quote else I)
    1.26 -      |> (if ! ThyOutput.display then enclose "\\begin{verbatim}\n" "\n\\end{verbatim}"
    1.27 +      |> (if ! Thy_Output.quotes then quote else I)
    1.28 +      |> (if ! Thy_Output.display then enclose "\\begin{verbatim}\n" "\n\\end{verbatim}"
    1.29            else split_lines #> map verbatim #> space_implode "\\isasep\\isanewline%\n"))
    1.30      end);
    1.31  
    1.32 @@ -89,30 +89,30 @@
    1.33  
    1.34  (* named theorems *)
    1.35  
    1.36 -val _ = ThyOutput.antiquotation "named_thms"
    1.37 +val _ = Thy_Output.antiquotation "named_thms"
    1.38    (Scan.repeat (Attrib.thm -- Scan.lift (Args.parens Args.name)))
    1.39    (fn {context = ctxt, ...} =>
    1.40 -    map (apfst (ThyOutput.pretty_thm ctxt))
    1.41 -    #> (if ! ThyOutput.quotes then map (apfst Pretty.quote) else I)
    1.42 -    #> (if ! ThyOutput.display
    1.43 +    map (apfst (Thy_Output.pretty_thm ctxt))
    1.44 +    #> (if ! Thy_Output.quotes then map (apfst Pretty.quote) else I)
    1.45 +    #> (if ! Thy_Output.display
    1.46          then
    1.47            map (fn (p, name) =>
    1.48 -            Output.output (Pretty.string_of (Pretty.indent (! ThyOutput.indent) p)) ^
    1.49 -            "\\rulename{" ^ Output.output (Pretty.str_of (ThyOutput.pretty_text name)) ^ "}")
    1.50 +            Output.output (Pretty.string_of (Pretty.indent (! Thy_Output.indent) p)) ^
    1.51 +            "\\rulename{" ^ Output.output (Pretty.str_of (Thy_Output.pretty_text name)) ^ "}")
    1.52            #> space_implode "\\par\\smallskip%\n"
    1.53            #> enclose "\\begin{isabelle}%\n" "%\n\\end{isabelle}"
    1.54          else
    1.55            map (fn (p, name) =>
    1.56              Output.output (Pretty.str_of p) ^
    1.57 -            "\\rulename{" ^ Output.output (Pretty.str_of (ThyOutput.pretty_text name)) ^ "}")
    1.58 +            "\\rulename{" ^ Output.output (Pretty.str_of (Thy_Output.pretty_text name)) ^ "}")
    1.59            #> space_implode "\\par\\smallskip%\n"
    1.60            #> enclose "\\isa{" "}"));
    1.61  
    1.62  
    1.63  (* theory file *)
    1.64  
    1.65 -val _ = ThyOutput.antiquotation "thy_file" (Scan.lift Args.name)
    1.66 -  (fn _ => fn name => (ThyLoad.check_thy Path.current name; ThyOutput.output [Pretty.str name]));
    1.67 +val _ = Thy_Output.antiquotation "thy_file" (Scan.lift Args.name)
    1.68 +  (fn _ => fn name => (Thy_Load.check_thy Path.current name; Thy_Output.output [Pretty.str name]));
    1.69  
    1.70  
    1.71  (* Isabelle/Isar entities (with index) *)
    1.72 @@ -131,7 +131,7 @@
    1.73  val arg = enclose "{" "}" o clean_string;
    1.74  
    1.75  fun entity check markup kind index =
    1.76 -  ThyOutput.antiquotation
    1.77 +  Thy_Output.antiquotation
    1.78      (translate (fn " " => "_" | c => c) kind ^
    1.79        (case index of NONE => "" | SOME true => "_def" | SOME false => "_ref"))
    1.80      (Scan.lift (Scan.optional (Args.parens Args.name) "" -- Args.name))
    1.81 @@ -152,8 +152,8 @@
    1.82            idx ^
    1.83            (Output.output name
    1.84              |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")
    1.85 -            |> (if ! ThyOutput.quotes then quote else I)
    1.86 -            |> (if ! ThyOutput.display then enclose "\\begin{isabelle}%\n" "%\n\\end{isabelle}"
    1.87 +            |> (if ! Thy_Output.quotes then quote else I)
    1.88 +            |> (if ! Thy_Output.display then enclose "\\begin{isabelle}%\n" "%\n\\end{isabelle}"
    1.89                  else hyper o enclose "\\mbox{\\isa{" "}}"))
    1.90          else error ("Bad " ^ kind ^ " " ^ quote name)
    1.91        end);
    1.92 @@ -174,14 +174,14 @@
    1.93  val _ = entity_antiqs no_check "" "fact";
    1.94  val _ = entity_antiqs no_check "" "variable";
    1.95  val _ = entity_antiqs no_check "" "case";
    1.96 -val _ = entity_antiqs (K ThyOutput.defined_command) "" "antiquotation";
    1.97 -val _ = entity_antiqs (K ThyOutput.defined_option) "" "antiquotation option";
    1.98 +val _ = entity_antiqs (K Thy_Output.defined_command) "" "antiquotation";
    1.99 +val _ = entity_antiqs (K Thy_Output.defined_option) "" "antiquotation option";
   1.100  val _ = entity_antiqs (fn _ => fn name => is_some (OS.Process.getEnv name)) "isatt" "setting";
   1.101  val _ = entity_antiqs no_check "" "inference";
   1.102  val _ = entity_antiqs no_check "isatt" "executable";
   1.103  val _ = entity_antiqs (K check_tool) "isatt" "tool";
   1.104  val _ = entity_antiqs (K (File.exists o Path.explode)) "isatt" "file";
   1.105 -val _ = entity_antiqs (K ThyInfo.known_thy) "" "theory";
   1.106 +val _ = entity_antiqs (K Thy_Info.known_thy) "" "theory";
   1.107  
   1.108  end;
   1.109