X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/afc975d0463c554c5dd404851f151ba0e63c1353..466c59448d7bb1abee78e7f3f231be194e73b5ea:/balance.sig diff --git a/balance.sig b/balance.sig index 6eb3349..7d47b90 100644 --- a/balance.sig +++ b/balance.sig @@ -1,6 +1,6 @@ signature BALANCE = sig - type balance = {id :int, name : string, amount : real} + type balance = {id : int, name : string, amount : real} val addBalance : string -> int val lookupBalance : int -> balance @@ -8,8 +8,15 @@ sig 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 + + val depositAmount : int -> real end