src/Pure/Isar/parse_spec.ML
changeset 47067 4ef29b0c568f
parent 46922 3717f3878714
child 49754 acafcac41690
equal deleted inserted replaced
47066:8a6124d09ff5 47067:4ef29b0c568f
    17   val xthm: (Facts.ref * Attrib.src list) parser
    17   val xthm: (Facts.ref * Attrib.src list) parser
    18   val xthms1: (Facts.ref * Attrib.src list) list parser
    18   val xthms1: (Facts.ref * Attrib.src list) list parser
    19   val name_facts: (Attrib.binding * (Facts.ref * Attrib.src list) list) list parser
    19   val name_facts: (Attrib.binding * (Facts.ref * Attrib.src list) list) list parser
    20   val constdecl: (binding * string option * mixfix) parser
    20   val constdecl: (binding * string option * mixfix) parser
    21   val constdef: ((binding * string option * mixfix) option * (Attrib.binding * string)) parser
    21   val constdef: ((binding * string option * mixfix) option * (Attrib.binding * string)) parser
       
    22   val includes: (xstring * Position.T) list parser
    22   val locale_mixfix: mixfix parser
    23   val locale_mixfix: mixfix parser
    23   val locale_fixes: (binding * string option * mixfix) list parser
    24   val locale_fixes: (binding * string option * mixfix) list parser
    24   val locale_insts: (string option list * (Attrib.binding * string) list) parser
    25   val locale_insts: (string option list * (Attrib.binding * string) list) parser
    25   val class_expression: string list parser
    26   val class_expression: string list parser
    26   val locale_expression: bool -> Expression.expression parser
    27   val locale_expression: bool -> Expression.expression parser
    76 
    77 
    77 val constdef = Scan.option constdecl -- (opt_thm_name ":" -- Parse.prop);
    78 val constdef = Scan.option constdecl -- (opt_thm_name ":" -- Parse.prop);
    78 
    79 
    79 
    80 
    80 (* locale and context elements *)
    81 (* locale and context elements *)
       
    82 
       
    83 val includes = Parse.$$$ "includes" |-- Parse.!!! (Scan.repeat1 (Parse.position Parse.xname));
    81 
    84 
    82 val locale_mixfix =
    85 val locale_mixfix =
    83   Parse.$$$ "(" -- Parse.$$$ "structure" -- Parse.!!! (Parse.$$$ ")") >> K Structure ||
    86   Parse.$$$ "(" -- Parse.$$$ "structure" -- Parse.!!! (Parse.$$$ ")") >> K Structure ||
    84   Parse.mixfix;
    87   Parse.mixfix;
    85 
    88