(get_couval, get_outstand): Remove. Unused since automatic loans were

removed (buy.c rev. 1.18, trad.c rev. 1.15), should have been removed
then.

diff --git a/include/loan.h b/include/loan.h
index 48447c19999fb917a305d06e7bacbafc339c14e0..79f2df5e349e8a83cf39e0b3a80f09f3e2fe1469 100644 (file)
--- a/include/loan.h
+++ b/include/loan.h
@@ -56,7 +56,6 @@ struct lonstr {
 #define LS_PROPOSED    AGREE_PROPOSED
 #define LS_SIGNED      AGREE_SIGNED
 
-extern long get_outstand(int);
 extern double loan_owed(struct lonstr *loan, time_t paytime);
 
 #define getloan(n, p) ef_read(EF_LOAN, (n), (p))

diff --git a/include/trade.h b/include/trade.h
index 63e8d272fbd37216268688a1669b1d4940d000a8..1fb0e5a1b2db740f99d6e2913453fe4ef87424d8 100644 (file)
--- a/include/trade.h
+++ b/include/trade.h
@@ -69,7 +69,6 @@ extern int trade_check_item_ok(union trdgenstr *);
 extern char *trade_nameof(struct trdstr *, union trdgenstr *);
 extern int trade_desc(struct trdstr *, union trdgenstr *);
 extern int trade_getitem(struct trdstr *, union trdgenstr *);
-extern long get_couval(int);
 
 #define gettrade(n, p) ef_read(EF_TRADE, (n), (p))
 #define puttrade(n, p) ef_write(EF_TRADE, (n), (p))

diff --git a/src/lib/subs/trdsub.c b/src/lib/subs/trdsub.c
index 55aede7c65e788cb448de17a9ac06c044e55d0a5..15d392037c235e79d09cf0568f137137a6373b7c 100644 (file)
--- a/src/lib/subs/trdsub.c
+++ b/src/lib/subs/trdsub.c
@@ -240,44 +240,6 @@ trade_getitem(struct trdstr *tp, union trdgenstr *tgp)
     return 1;
 }
 
-long
-get_couval(int cnum)
-{
-    struct sctstr *sp;
-    int j, k, val;
-    long secttot = 0;
-
-    for (j = 0; NULL != (sp = getsectid(j)); j++) {
-       if (sp->sct_own != cnum)
-           continue;
-       secttot += (long)(dchr[sp->sct_type].d_value *
-                         ((float)sp->sct_effic + 100.0));
-       for (k = 0; ichr[k].i_name; k++) {
-           if (ichr[k].i_value == 0 || ichr[k].i_uid == I_NONE)
-               continue;
-           val = sp->sct_item[ichr[k].i_uid];
-           secttot += val * ichr[k].i_value;
-       }
-    }
-    return secttot;
-}
-
-long
-get_outstand(int cnum)
-{
-    struct lonstr loan;
-    int j;
-    long loantot = 0;
-
-    for (j = 0; getloan(j, &loan); j++) {
-       if (loan.l_status == LS_FREE)
-           continue;
-       if (loan.l_lonee == cnum)
-           loantot += loan.l_amtdue;
-    }
-    return loantot;
-}
-
 /*
  * Return amount due for LOAN at time PAYTIME.
  */