src/Pure/install_pp.ML
author wenzelm
Mon Sep 26 17:36:10 1994 +0100 (1994-09-26)
changeset 619 a0342b27b38e
parent 254 b1fcd27fcac4
child 1528 608dd813b437
permissions -rw-r--r--
added init_pps;
wenzelm@19
     1
(*  Title:      Pure/install_pp.ML
clasohm@0
     2
    ID:         $Id$
clasohm@0
     3
wenzelm@619
     4
Set up automatic toplevel pretty printing.
clasohm@0
     5
*)
clasohm@0
     6
wenzelm@619
     7
fun init_pps () =
wenzelm@619
     8
  use_string
wenzelm@619
     9
   ["install_pp (make_pp [\"Thm\", \"thm\"] pprint_thm);",
wenzelm@619
    10
    "install_pp (make_pp [\"Thm\", \"theory\"] pprint_theory);",
wenzelm@619
    11
    "install_pp (make_pp [\"Thm\", \"cterm\"] pprint_cterm);",
wenzelm@619
    12
    "install_pp (make_pp [\"Thm\", \"ctyp\"] pprint_ctyp);",
wenzelm@619
    13
    "install_pp (make_pp [\"Sign\", \"sg\"] Sign.pprint_sg);",
wenzelm@619
    14
    "install_pp (make_pp [\"Syntax\", \"ast\"] Syntax.pprint_ast);",
wenzelm@619
    15
    "install_pp (make_pp [\"typ\"] Syntax.simple_pprint_typ);"];
clasohm@0
    16
wenzelm@619
    17
init_pps ();
wenzelm@254
    18