src/Tools/code/code_target.ML
changeset 25985 8d69087f6a4b
parent 25969 d3f8ab2726ed
child 26010 a741416574e1
equal deleted inserted replaced
25984:da0399c9ffcb 25985:8d69087f6a4b
  2130 
  2130 
  2131 val _ =
  2131 val _ =
  2132   OuterSyntax.command "code_class" "define code syntax for class" K.thy_decl (
  2132   OuterSyntax.command "code_class" "define code syntax for class" K.thy_decl (
  2133     parse_multi_syntax P.xname
  2133     parse_multi_syntax P.xname
  2134       (Scan.option (P.string -- Scan.optional (P.$$$ "where" |-- Scan.repeat1
  2134       (Scan.option (P.string -- Scan.optional (P.$$$ "where" |-- Scan.repeat1
  2135         (P.term --| (P.$$$ "\\<equiv>" || P.$$$ "==") -- P.string)) []))
  2135         (P.term --| (P.$$$ "\<equiv>" || P.$$$ "==") -- P.string)) []))
  2136     >> (Toplevel.theory oo fold) (fn (target, syns) =>
  2136     >> (Toplevel.theory oo fold) (fn (target, syns) =>
  2137           fold (fn (raw_class, syn) => add_syntax_class_cmd target raw_class syn) syns)
  2137           fold (fn (raw_class, syn) => add_syntax_class_cmd target raw_class syn) syns)
  2138   );
  2138   );
  2139 
  2139 
  2140 val _ =
  2140 val _ =