link.sig

   1 signature LINK =
   2 sig
   3     type link = {id : int, usr : int, title : string, url : string, descr : string}
   4
   5     val lookupLink : int -> link
   6     val listLinks : unit -> (string * link) list
   7     val listUserLinks : int -> link list
   8     val addLink : int * string * string * string -> int
   9     val modLink : link -> unit
  10     val deleteLink : int -> unit
  11 end