[hcoop/zz_old/portal.git] / balance.sig

signature BALANCE =
sig
    type balance = {id :int, name : string, amount : real}

    val addBalance : string -> int
    val lookupBalance : int -> balance
    val modBalance : balance -> unit
    val deleteBalance : int -> unit
    val listBalances : unit -> balance list
    val listOwnedBalances : unit -> balance list
    val listUnownedBalances : unit -> balance list
    val listBalanceUsers : int -> Init.user list
    val listNegativeOwnedBalances : unit -> balance list

    val validBalanceName : string -> bool
    val balanceNameToId : string -> int option

    val sumOwnedBalances : unit -> real
    val isNegative : balance -> bool
end
Commit	Line	Data
8d347a33	1	signature BALANCE =
	2	sig
	3	type balance = {id :int, name : string, amount : real}
	4
	5	val addBalance : string -> int
	6	val lookupBalance : int -> balance
	7	val modBalance : balance -> unit
	8	val deleteBalance : int -> unit
	9	val listBalances : unit -> balance list
a90420b4	10	val listOwnedBalances : unit -> balance list
b49e2370	11	val listUnownedBalances : unit -> balance list
8d347a33	12	val listBalanceUsers : int -> Init.user list
bde01dd3	13	val listNegativeOwnedBalances : unit -> balance list
8d347a33	14
	15	val validBalanceName : string -> bool
	16	val balanceNameToId : string -> int option
b49e2370	17
b49e2370	18	val sumOwnedBalances : unit -> real
270da709	19	val isNegative : balance -> bool
a90420b4	20	end