--- a/src/Pure/General/properties.ML Tue Jul 12 18:00:05 2011 +0200
+++ b/src/Pure/General/properties.ML Tue Jul 12 19:36:46 2011 +0200
@@ -6,27 +6,30 @@
signature PROPERTIES =
sig
- type property = string * string
- type T = property list
+ type entry = string * string
+ type T = entry list
val defined: T -> string -> bool
val get: T -> string -> string option
val get_int: T -> string -> int option
- val put: string * string -> T -> T
+ val put: entry -> T -> T
+ val put_int: string * int -> T -> T
val remove: string -> T -> T
end;
structure Properties: PROPERTIES =
struct
-type property = string * string;
-type T = property list;
+type entry = string * string;
+type T = entry list;
fun defined (props: T) name = AList.defined (op =) props name;
fun get (props: T) name = AList.lookup (op =) props name;
fun get_int props name = (case get props name of NONE => NONE | SOME s => Int.fromString s);
-fun put prop (props: T) = AList.update (op =) prop props;
+fun put entry (props: T) = AList.update (op =) entry props;
+fun put_int (name, i) = put (name, signed_string_of_int i);
+
fun remove name (props: T) = AList.delete (op =) name props;
end;