src/Pure/install_pp.ML
changeset 619 a0342b27b38e
parent 254 b1fcd27fcac4
child 1528 608dd813b437
equal deleted inserted replaced
618:97b715e65f70 619:a0342b27b38e
     1 (*  Title:      Pure/install_pp.ML
     1 (*  Title:      Pure/install_pp.ML
     2     ID:         $Id$
     2     ID:         $Id$
     3 
     3 
     4 Set up automatic toplevel printing.
     4 Set up automatic toplevel pretty printing.
     5 *)
     5 *)
     6 
     6 
     7 install_pp (make_pp ["Thm", "thm"] pprint_thm);
     7 fun init_pps () =
     8 install_pp (make_pp ["Thm", "theory"] pprint_theory);
     8   use_string
     9 install_pp (make_pp ["Thm", "cterm"] pprint_cterm);
     9    ["install_pp (make_pp [\"Thm\", \"thm\"] pprint_thm);",
    10 install_pp (make_pp ["Thm", "ctyp"] pprint_ctyp);
    10     "install_pp (make_pp [\"Thm\", \"theory\"] pprint_theory);",
    11 install_pp (make_pp ["Sign", "sg"] Sign.pprint_sg);
    11     "install_pp (make_pp [\"Thm\", \"cterm\"] pprint_cterm);",
    12 install_pp (make_pp ["Syntax", "ast"] Syntax.pprint_ast);
    12     "install_pp (make_pp [\"Thm\", \"ctyp\"] pprint_ctyp);",
    13 install_pp (make_pp ["typ"] Syntax.simple_pprint_typ);
    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);"];
    14 
    16 
    15 (*
    17 init_pps ();
    16 install_pp (make_pp ["term"] pprint_term);
       
    17 install_pp (make_pp ["typ"] pprint_typ);
       
    18 *)
       
    19 
    18