src/Pure/Isar/attrib.ML
changeset 28084 a05ca48ef263
parent 28083 103d9282a946
child 28965 1de908189869
     1.1 --- a/src/Pure/Isar/attrib.ML	Tue Sep 02 14:10:45 2008 +0200
     1.2 +++ b/src/Pure/Isar/attrib.ML	Tue Sep 02 16:55:33 2008 +0200
     1.3 @@ -8,6 +8,8 @@
     1.4  signature ATTRIB =
     1.5  sig
     1.6    type src = Args.src
     1.7 +  type binding = Name.binding * src list
     1.8 +  val no_binding: binding
     1.9    val print_attributes: theory -> unit
    1.10    val intern: theory -> xstring -> string
    1.11    val intern_src: theory -> src -> src
    1.12 @@ -48,8 +50,15 @@
    1.13  structure T = OuterLex;
    1.14  structure P = OuterParse;
    1.15  
    1.16 +
    1.17 +(* source and bindings *)
    1.18 +
    1.19  type src = Args.src;
    1.20  
    1.21 +type binding = Name.binding * src list;
    1.22 +val no_binding: binding = (Name.no_binding, []);
    1.23 +
    1.24 +
    1.25  
    1.26  (** named attributes **)
    1.27