src/Pure/install_pp.ML
author paulson
Fri May 30 15:14:59 1997 +0200 (1997-05-30)
changeset 3365 86c0d1988622
parent 1528 608dd813b437
child 3509 db03a42120bf
permissions -rw-r--r--
flushOut ensures that no recent error message are lost (not certain this is
necessary)
     1 (*  Title:      Pure/install_pp.ML
     2     ID:         $Id$
     3 
     4 Set up automatic toplevel pretty printing.
     5 *)
     6 
     7 fun init_pps () =
     8   use_string
     9    ["install_pp (make_pp [\"Theory\", \"theory\"] pprint_theory);",
    10     "install_pp (make_pp [\"Thm\", \"thm\"] pprint_thm);",
    11     "install_pp (make_pp [\"Thm\", \"cterm\"] pprint_cterm);",
    12     "install_pp (make_pp [\"Thm\", \"ctyp\"] pprint_ctyp);",
    13     "install_pp (make_pp [\"Sign\", \"sg\"] Sign.pprint_sg);",
    14     "install_pp (make_pp [\"Syntax\", \"ast\"] Syntax.pprint_ast);",
    15     "install_pp (make_pp [\"typ\"] Syntax.simple_pprint_typ);"];
    16 
    17 init_pps ();
    18