src/lib/commands/cons.c File Reference

#include <config.h>
#include "commands.h"
#include "loan.h"
#include "news.h"
#include "optlist.h"
#include "treaty.h"

Include dependency graph for cons.c:

Go to the source code of this file.

Data Structures
struct	ltcomstr
Functions
static int	cons_choose (struct ltcomstr *ltcp)
static int	treaty_accept (struct ltcomstr *ltcp)
static int	treaty_decline (struct ltcomstr *ltcp)
static int	loan_accept (struct ltcomstr *ltcp)
static int	loan_decline (struct ltcomstr *ltcp)
static int	postpone (struct ltcomstr *ltcp)
static void	accpt (struct ltcomstr *ltcp)
static void	decline (struct ltcomstr *ltcp)
static void	late (struct ltcomstr *ltcp)
static void	prev_signed (struct ltcomstr *ltcp)
int	cons (void)

---

Function Documentation

static void accpt

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 391 of file cons.c.

References cname(), EF_LOAN, ltcomstr::mailee, N_MAKE_LOAN, N_SIGN_TRE, ltcomstr::Name, nreport(), ltcomstr::num, ltcomstr::proposer, ltcomstr::type, and wu().

Referenced by loan_accept(), and treaty_accept().

{
    if (ltcp->type == EF_LOAN)
        nreport(ltcp->proposer, N_MAKE_LOAN, player->cnum, 1);
    else
        nreport(player->cnum, N_SIGN_TRE, ltcp->mailee, 1);
    wu(0, ltcp->mailee, "%s #%d accepted by %s\n",
       ltcp->Name, ltcp->num, cname(player->cnum));
}

Here is the call graph for this function:

int cons

(

void

)

Definition at line 72 of file cons.c.

References cons_choose(), EF_TREATY, loan_accept(), loan_decline(), ltcomstr::op, postpone(), pr(), RET_OK, treaty_accept(), treaty_decline(), and ltcomstr::type.

Referenced by ring_from_file(), ring_peek(), and ring_to_file().

{
    int rv;
    struct ltcomstr ltc;

    rv = cons_choose(&ltc);
    if (rv != RET_OK)
        return rv;

    switch (ltc.op) {
    case 'a':
        rv = (ltc.type == EF_TREATY) ? treaty_accept(&ltc)
            : loan_accept(&ltc);
        break;
    case 'd':
        rv = (ltc.type == EF_TREATY) ? treaty_decline(&ltc)
            : loan_decline(&ltc);
        break;
    case 'p':
        rv = postpone(&ltc);
        break;
    default:
        pr("Bad operation %c from cons_choose; get help!\n", ltc.op);
        break;
    };

    return rv;
}

Here is the call graph for this function:

static int cons_choose

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 107 of file cons.c.

References disloan(), distrea(), EF_BAD, ef_byname_from(), EF_LOAN, ef_read(), EF_TREATY, getstarg(), lonstr::l_lonee, lonstr::l_loner, lonstr::l_status, LS_SIGNED, onearg(), opt_LOANS, opt_TREATIES, pr(), prompt(), RET_FAIL, RET_OK, RET_SYN, trtstr::trt_cna, trtstr::trt_cnb, trtstr::trt_status, and TS_SIGNED.

Referenced by cons().

{
    static int lon_or_trt[] = { EF_LOAN, EF_TREATY, EF_BAD };
    char *p;
    struct lonstr *lp;
    struct trtstr *tp;
    char prompt[128];
    char buf[1024];

    memset(ltcp, 0, sizeof(*ltcp));
    if (getstarg(player->argp[1], "loan or treaty? ", buf) == 0)
        return RET_SYN;
    ltcp->type = ef_byname_from(buf, lon_or_trt);
    switch (ltcp->type) {
    case EF_TREATY:
        if (!opt_TREATIES) {
            pr("Treaties are not enabled.\n");
            return RET_FAIL;
        }
        ltcp->name = "treaty";
        ltcp->Name = "Treaty";
        break;
    case EF_LOAN:
        if (!opt_LOANS) {
            pr("Loans are not enabled.\n");
            return RET_FAIL;
        }
        ltcp->name = "loan";
        ltcp->Name = "Loan";
        break;
    default:
        pr("You must specify \"loan\" or \"treaty\".\n");
        return RET_SYN;
    }
    sprintf(prompt, "%s number? ", ltcp->Name);
    if ((ltcp->num = onearg(player->argp[2], prompt)) < 0)
        return RET_SYN;
    if (!ef_read(ltcp->type, ltcp->num, &ltcp->u) ||
        !(ltcp->type == EF_TREATY
          ? distrea(ltcp->num, &ltcp->u.t)
          : disloan(ltcp->num, &ltcp->u.l))) {
        pr("%s #%d is not being offered to you!\n", ltcp->Name, ltcp->num);
        return RET_SYN;
    }
    switch (ltcp->type) {
    case EF_LOAN:
        lp = &ltcp->u.l;
        if (lp->l_status == LS_SIGNED) {
            pr("That loan has already been accepted!\n");
            return RET_FAIL;
        }
        ltcp->proposer = lp->l_loner;
        ltcp->proposee = lp->l_lonee;
        break;
    case EF_TREATY:
        tp = &ltcp->u.t;
        if (tp->trt_status == TS_SIGNED) {
            pr("That treaty has already been accepted!\n");
            return RET_FAIL;
        }
        ltcp->proposer = tp->trt_cna;
        ltcp->proposee = tp->trt_cnb;
        break;
    }
    ltcp->mailee = (ltcp->proposer == player->cnum)
        ? ltcp->proposee : ltcp->proposer;
    p = getstarg(player->argp[3], "Accept, decline or postpone? ", buf);
    if (!p || (*p != 'a' && *p != 'd' && *p != 'p'))
        return RET_SYN;
    ltcp->op = *p;
    return RET_OK;
}

Here is the call graph for this function:

static void decline

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 371 of file cons.c.

References cname(), ltcomstr::Name, ltcomstr::num, pr(), ltcomstr::proposee, ltcomstr::proposer, and wu().

Referenced by loan_decline(), and treaty_decline().

{
    if (ltcp->proposee == player->cnum) {
        wu(0, ltcp->proposer, "%s %d refused by %s\n",
           ltcp->Name, ltcp->num, cname(player->cnum));
        pr("%s %d refused.\n", ltcp->Name, ltcp->num);
    } else {
        wu(0, ltcp->proposee,
           "%s offer %d retracted by %s\n",
           ltcp->Name, ltcp->num, cname(player->cnum));
        pr("%s offer %d retracted.\n", ltcp->Name, ltcp->num);
    }
}

Here is the call graph for this function:

static void late

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 350 of file cons.c.

References ltcomstr::name, ltcomstr::op, and pr().

Referenced by loan_accept(), loan_decline(), treaty_accept(), and treaty_decline().

{
    pr("Too late; that %s %s!\n", ltcp->name,
       (ltcp->op == 'a') ? "is no longer being offered"
       : "has already been accepted");
}

Here is the call graph for this function:

static int loan_accept

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 186 of file cons.c.

References accpt(), cname(), EF_LOAN, getloan, getnatp, ltcomstr::l, lonstr::l_lonee, lonstr::l_loner, lonstr::l_status, late(), LS_FREE, LS_SIGNED, ltcomstr::Name, natstr::nat_money, ltcomstr::num, nxtitem(), pr(), prev_signed(), ltcomstr::proposee, ltcomstr::proposer, putloan, putnat, RET_FAIL, RET_OK, RET_SYS, snxtitem_all(), and ltcomstr::u.

Referenced by cons().

{
    struct lonstr *lp;
    struct natstr *lender;
    struct nstr_item nstr;
    struct lonstr loan;

    lp = &ltcp->u.l;
    if (ltcp->proposee != player->cnum) {
        pr("%s %d is still pending.\n", ltcp->Name, ltcp->num);
        return RET_OK;
    }
    if (!getloan(ltcp->num, lp)) {
        pr("loan_accept: can't read loan; get help!\n");
        return RET_SYS;
    }
    if (lp->l_status == LS_FREE) {      /* other guy retratcted already */
        late(ltcp);
        return RET_OK;
    }
    if (lp->l_status == LS_SIGNED) {    /* already signed somehow */
        prev_signed(ltcp);
        return RET_OK;
    }
    /* check to see if a loan already exists */
    snxtitem_all(&nstr, EF_LOAN);
    while (nxtitem(&nstr, &loan)) {
        if (loan.l_status == LS_SIGNED && loan.l_lonee == lp->l_loner
            && (loan.l_loner == lp->l_lonee)) {
            pr("He already owes you money - make him repay his loan!\n");
            return RET_OK;
        }
    }
    lender = getnatp(ltcp->proposer);
    if (lender->nat_money < lp->l_amtdue) {     /* other guy is poor */
        lp->l_amtdue = lender->nat_money - 100;
        pr("%s no longer has the funds.\n", cname(ltcp->proposer));
        if (lp->l_amtdue <= 0)
            return RET_FAIL;
        pr("You may borrow $%ld at the same terms.\n", lp->l_amtdue);
    }
    lender->nat_money -= lp->l_amtdue;
    putnat(lender);
    player->dolcost -= lp->l_amtdue;
    lp->l_amtpaid = 0;
    (void)time(&lp->l_lastpay);
    lp->l_duedate = lp->l_ldur * 86400 + lp->l_lastpay;
    lp->l_status = LS_SIGNED;
    if (!putloan(ltcp->num, lp)) {
        pr("Problem writing lp->to disk; get help!\n");
        return RET_FAIL;
    }
    accpt(ltcp);
    pr("You are now $%ld richer (sort of).\n", lp->l_amtdue);
    return RET_OK;
}

Here is the call graph for this function:

static int loan_decline

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 247 of file cons.c.

References decline(), getloan, ltcomstr::l, lonstr::l_status, late(), LS_FREE, LS_SIGNED, ltcomstr::num, pr(), putloan, RET_OK, RET_SYS, and ltcomstr::u.

Referenced by cons().

{
    struct lonstr *lp;

    lp = &ltcp->u.l;
    if (!getloan(ltcp->num, lp)) {
        pr("Decline: can't read loan; get help!\n");
        return RET_SYS;
    }
    /* loan got accepted somehow between now and last time we checked */
    if (lp->l_status == LS_SIGNED) {
        late(ltcp);
        return RET_OK;
    }
    lp->l_status = LS_FREE;
    if (!putloan(ltcp->num, lp)) {
        pr("loan_decline: can't write loan; get help!\n");
        return RET_SYS;
    }
    decline(ltcp);
    return RET_OK;
}

Here is the call graph for this function:

static int postpone

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 336 of file cons.c.

References cname(), ltcomstr::name, ltcomstr::Name, ltcomstr::num, pr(), ltcomstr::proposee, ltcomstr::proposer, RET_OK, and wu().

Referenced by cons().

{
    pr("%s %d is still pending.\n", ltcp->Name, ltcp->num);
    if (ltcp->proposee == player->cnum)
        wu(0, ltcp->proposer, "%s %d considered by %s\n",
           ltcp->name, ltcp->num, cname(player->cnum));
    return RET_OK;
}

Here is the call graph for this function:

static void prev_signed

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 361 of file cons.c.

References ltcomstr::Name, ltcomstr::num, and pr().

Referenced by loan_accept(), and treaty_accept().

{
    pr("%s #%d is already in effect.\n", ltcp->Name, ltcp->num);
}

Here is the call graph for this function:

static int treaty_accept

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 274 of file cons.c.

References accpt(), gettre, late(), ltcomstr::Name, ltcomstr::num, pr(), prev_signed(), ltcomstr::proposee, puttre, RET_OK, RET_SYS, ltcomstr::t, trtstr::trt_exp, trtstr::trt_status, TS_FREE, TS_SIGNED, and ltcomstr::u.

Referenced by cons().

{
    struct trtstr *tp;

    tp = &ltcp->u.t;
    if (ltcp->proposee != player->cnum) {
        pr("%s %d is still pending.\n", ltcp->Name, ltcp->num);
        return RET_OK;
    }
    if (!gettre(ltcp->num, tp)) {
        pr("Accept: can't read treaty; get help!\n");
        return RET_SYS;
    }
    if (tp->trt_status == TS_FREE) {    /* treaty offer withdrawn */
        late(ltcp);
        return RET_OK;
    }
    if (tp->trt_status == TS_SIGNED) {  /* somehow got accepted */
        prev_signed(ltcp);
        return RET_OK;
    }
    tp->trt_status = TS_SIGNED;
    if (!puttre(ltcp->num, tp)) {
        pr("Problem saving treaty; get help!\n");
        return RET_SYS;
    }
    accpt(ltcp);
    pr("Treaty in effect until %s", ctime(&tp->trt_exp));
    return RET_OK;
}

Here is the call graph for this function:

static int treaty_decline

(

struct ltcomstr *

ltcp

)

[static]

Definition at line 309 of file cons.c.

References decline(), gettre, late(), ltcomstr::num, pr(), puttre, RET_OK, RET_SYS, ltcomstr::t, trtstr::trt_status, TS_FREE, TS_SIGNED, and ltcomstr::u.

Referenced by cons().

{
    struct trtstr *tp;

    tp = &ltcp->u.t;
    if (!gettre(ltcp->num, tp)) {
        pr("Decline: can't read treaty; get help!\n");
        return RET_SYS;
    }
    /* treaty got signed somehow between now and last time we read it */
    if (tp->trt_status == TS_SIGNED) {
        late(ltcp);
        return RET_OK;
    }
    tp->trt_status = TS_FREE;
    if (!puttre(ltcp->num, tp)) {
        pr("Problem saving treaty; get help!\n");
        return RET_SYS;
    }
    decline(ltcp);
    return RET_OK;
}

Here is the call graph for this function:

---