(loan_owed): New, factored out common code.

(coll, fina, repa, shark, disloan): Use it.

diff --git a/include/trade.h b/include/trade.h
index 9f4bab776a8c9f7d275665e8c0371872723595d9..2cb1d0ec3b237af4496eca0762f8f38081d98b8d 100644 (file)
--- a/include/trade.h
+++ b/include/trade.h
@@ -79,6 +79,7 @@ extern int trade_desc(struct trdstr *, union trdgenstr *);
 extern int trade_getitem(struct trdstr *, union trdgenstr *);
 extern long get_couval(int);
 extern long get_outstand(int);
+extern double loan_owed(struct lonstr *loan, time_t paytime);
 
 #define gettrade(n, p) \
        ef_read(EF_TRADE, n, (caddr_t)p)