equal
deleted
inserted
replaced
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\ |