X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/46b0c2df0510b11fcc81dc98cdcf14477bc82db9..d6e189f0fcedbb040189379c7cc67d7eeefc0315:/contact.sig

diff --git a/contact.sig b/contact.sig
index 8d7a2eb..1c11d72 100644
--- a/contact.sig
+++ b/contact.sig
@@ -7,4 +7,22 @@ sig
     val modKind : kind -> unit
     val deleteKind : int -> unit
     val listKinds : unit -> kind list
+
+    datatype priv =
+	     PUBLIC
+	   | MEMBERS
+	   | ADMINS
+    val privToInt : priv -> int
+    val privFromInt : int -> priv
+
+    type contact = {id :int, usr : int, knd : int, v : string, priv : priv}
+
+    val addContact : int * int * string * priv -> int
+    val lookupContact : int -> contact
+    val modContact : contact -> unit
+    val deleteContact : int -> unit
+    val listUserContacts : int * priv -> (kind * contact) list
+    val listContactsByKind : int * priv -> (string * contact) list
+
+    val format : kind * contact -> string
 end
\ No newline at end of file