equal
deleted
inserted
replaced
644 |
644 |
645 fun parse_symbol_pragmas parse_const parse_tyco parse_class parse_classrel parse_inst parse_module = |
645 fun parse_symbol_pragmas parse_const parse_tyco parse_class parse_classrel parse_inst parse_module = |
646 Parse.enum1 "|" (Parse.group (fn () => "code symbol pragma") |
646 Parse.enum1 "|" (Parse.group (fn () => "code symbol pragma") |
647 (parse_symbol_pragma parse_const parse_tyco parse_class parse_classrel parse_inst parse_module)); |
647 (parse_symbol_pragma parse_const parse_tyco parse_class parse_classrel parse_inst parse_module)); |
648 |
648 |
649 val code_expr_argsP = Scan.optional (@{keyword "("} |-- Args.parse --| @{keyword ")"}) []; |
649 val code_expr_argsP = Scan.optional (@{keyword "("} |-- Parse.args --| @{keyword ")"}) []; |
650 |
650 |
651 fun code_expr_inP all_public raw_cs = |
651 fun code_expr_inP all_public raw_cs = |
652 Scan.repeat (@{keyword "in"} |-- Parse.!!! (Parse.name |
652 Scan.repeat (@{keyword "in"} |-- Parse.!!! (Parse.name |
653 -- Scan.optional (@{keyword "module_name"} |-- Parse.name) "" |
653 -- Scan.optional (@{keyword "module_name"} |-- Parse.name) "" |
654 -- Scan.optional (@{keyword "file"} |-- Parse.name) "" |
654 -- Scan.optional (@{keyword "file"} |-- Parse.name) "" |