]> git.pond.sub.org Git - empserver/blobdiff - src/lib/commands/fina.c
Fix trailing whitespace
[empserver] / src / lib / commands / fina.c
index c41af4f7daf408c365a5873045cc087eab10b405..a6add313382285270db77866c27399e5f0ef323f 100644 (file)
@@ -1,6 +1,6 @@
 /*
  *  Empire - A multi-player, client/server Internet based war game.
- *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ *  Copyright (C) 1986-2008, Dave Pare, Jeff Bailey, Thomas Ruschak,
  *                           Ken Stevens, Steve McClure
  *
  *  This program is free software; you can redistribute it and/or modify
  *
  *  ---
  *
- *  See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- *  related information and legal notices. It is expected that any future
- *  projects/authors will amend these files as needed.
+ *  See files README, COPYING and CREDITS in the root of the source
+ *  tree for related information and legal notices.  It is expected
+ *  that future projects/authors will amend these files as needed.
  *
  *  ---
  *
  *  fina.c: Financial report on current status of loans to countries
- * 
+ *
  *  Known contributors to this file:
  *     Dave Pare, 1986
  *     Steve McClure, 1996
  */
 
+#include <config.h>
+
 #include <math.h>
-#include "misc.h"
-#include "player.h"
-#include "loan.h"
-#include "file.h"
-#include "xy.h"
-#include "nsc.h"
-#include "nat.h"
 #include "commands.h"
+#include "loan.h"
 #include "optlist.h"
 
 /*
@@ -57,22 +53,23 @@ fina(void)
        pr("Loans are not enabled.\n");
        return RET_FAIL;
     }
+    if (!snxtitem(&ni, EF_LOAN, "*", NULL))
+       return RET_SYN;
     (void)time(&now);
     pr("\n");
     pr("             -= Empire Financial Status Report =- \n");
     pr("                  ");
     prdate();
     pr("Loan       From            To        Rate   Dur     Paid      Total\n");
-    snxtitem(&ni, EF_LOAN, "*");
-    while (nxtitem(&ni, (s_char *)&loan)) {
+    while (nxtitem(&ni, &loan)) {
        if (loan.l_status != LS_SIGNED)
            continue;
        pr(" %-2d  (%3d) %-8.8s  (%3d) %-8.8s  ", ni.cur,
           loan.l_loner, cname(loan.l_loner),
           loan.l_lonee, cname(loan.l_lonee));
-       pr("%3d%%   %3d    %5ld    %7ld",
+       pr("%3d%%   %3d    %5ld    %7.0f",
           loan.l_irate, loan.l_ldur, loan.l_amtpaid,
-          (long)loan_owed(&loan, now));
+          ceil(loan_owed(&loan, now)));
        if (now > loan.l_duedate)
            pr(" (in arrears)\n");
        else