src/Pure/Thy/thy_parse.ML
changeset 4787 90fc96d16df4
parent 4707 abe6f28a38c1
child 4852 58b5006d36cc
equal deleted inserted replaced
4786:9b6072bd71e4 4787:90fc96d16df4
   343   \ val parse_translation = [];\n\
   343   \ val parse_translation = [];\n\
   344   \ val print_translation = [];\n\
   344   \ val print_translation = [];\n\
   345   \ val typed_print_translation = [];\n\
   345   \ val typed_print_translation = [];\n\
   346   \ val print_ast_translation = [];\n\
   346   \ val print_ast_translation = [];\n\
   347   \ val token_translation = [];\n\
   347   \ val token_translation = [];\n\
   348   \ val thy_data = []";
   348   \ val thy_setup = []";
   349 
   349 
   350 val trfun_args =
   350 val trfun_args =
   351   "(parse_ast_translation, parse_translation, \
   351   "(parse_ast_translation, parse_translation, \
   352   \print_translation, print_ast_translation)";
   352   \print_translation, print_ast_translation)";
   353 
   353 
   501     \\n\
   501     \\n\
   502     \val thy = thy\n\
   502     \val thy = thy\n\
   503     \\n"
   503     \\n"
   504     ^ local_path ^
   504     ^ local_path ^
   505     "\n\
   505     "\n\
       
   506     \|> Theory.setup thy_setup\n\
   506     \|> Theory.add_trfuns\n"
   507     \|> Theory.add_trfuns\n"
   507     ^ trfun_args ^ "\n\
   508     ^ trfun_args ^ "\n\
   508     \|> Theory.add_trfunsT typed_print_translation\n\
   509     \|> Theory.add_trfunsT typed_print_translation\n\
   509     \|> Theory.add_tokentrfuns token_translation\n\
   510     \|> Theory.add_tokentrfuns token_translation\n\
   510     \|> Theory.init_data thy_data\n\
       
   511     \\n"
   511     \\n"
   512     ^ extxt ^ "\n\
   512     ^ extxt ^ "\n\
   513     \\n\
   513     \\n\
   514     \|> Theory.add_name " ^ quote thy_name ^ ";\n\
   514     \|> Theory.add_name " ^ quote thy_name ^ ";\n\
   515     \\n\
   515     \\n\