Commit | Line | Data |
---|---|---|
208e2cbc AC |
1 | signature MONEY = |
2 | sig | |
3 | type transaction = {id :int, descr : string, amount : real, d : string, stamp : Init.C.timestamp} | |
4 | ||
5 | val addTransaction : string * real * string -> int | |
6 | val lookupTransaction : int -> transaction | |
7 | val modTransaction : transaction -> unit | |
8 | val deleteTransaction : int -> unit | |
9 | val listTransactions : unit -> transaction list | |
10 | val listTransactionsLimit : int -> transaction list | |
11 | val listUserTransactions : int -> (real * transaction) list | |
12 | val listUserTransactionsLimit : int * int -> (real * transaction) list | |
13 | (* Returns list of (your part, overall) pairs *) | |
14 | val listUsers : int -> (bool * Init.user) list | |
15 | (* List users and indicate whether they participated in a transaction *) | |
16 | ||
e84acecc AC |
17 | val lookupHostingUsage : int -> string option |
18 | ||
208e2cbc AC |
19 | type charge = {trn : int, usr : int, amount : real} |
20 | ||
21 | val addCharge : charge -> unit | |
22 | val listCharges : int -> charge list | |
23 | val listChargesWithNames : int -> (string * charge) list | |
24 | ||
25 | val clearCharges : int -> unit | |
f49e1088 | 26 | val applyCharges : int -> unit |
208e2cbc AC |
27 | |
28 | val addEvenCharges : int * int list -> unit | |
29 | ||
30 | type hosting = {trn : int, cutoff : int, cost : real, usage : string} | |
31 | val addHostingCharges : hosting -> unit | |
2d795343 AC |
32 | |
33 | val equalizeBalances : unit -> unit | |
aaa50197 AC |
34 | |
35 | val costBase : real -> real | |
1b566e48 AC |
36 | |
37 | val delinquentPledgers : unit -> { id : int, name : string, shares : int, balance : real } list | |
38 | val resetPledges : int list -> unit | |
eafe3d52 AC |
39 | |
40 | val freezeworthyPledgers : unit -> { id : int, name : string, balance : real } list | |
41 | val bootworthyPledgers : unit -> { id : int, name : string, balance : real } list | |
5c705bcb AC |
42 | |
43 | val billDues : {descr : string, base : real, date : string} -> unit | |
e84acecc | 44 | end |