src/Tools/Code/code_target.ML
changeset 56201 dd2df97b379b
parent 56002 2028467b4df4
child 56208 06cc31dff138
equal deleted inserted replaced
56200:1f9951be72b5 56201:dd2df97b379b
   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) ""