void check_status( distribution* d )
{
event* e;
unsigned int i;
if ( ( d->queue_size && (!d->head || !d->tail) ) ||
( !d->queue_size && ( d->head || d->tail ) ) )
dist_error("check_empty", "wrong internal status");
/* scan the list */
e = d->head;
for( i = 0; i < d->queue_size; i++ )
{
if ( !e )
dist_error("check_status", "the list is too short");
else
e = e->next;
}
if ( e )
dist_error("check_status", "the list is too long");
}
/* create a new event */
event* create_event( unsigned int value, unsigned int count )
{
event* e;
/* malloc the data structure */
if ( !( e = (event*) malloc( sizeof( event) ) ) )
dist_error( "create_event", "unable to malloc event" );
e->value = value;
e->count = count;
e->next = 0;
/* return the event */
return e;
}
/* small permutation on the newmacro code... this takes a pointer to
** a distress structure and a pointer to a macro syntax string,
** and converts it into a line of text.
** 9/1/93 - jn
*/
int makedistress (struct distress *dist, /* the info */
char *cry, /* the call for help! (output) -
should be array */
char *pm) /* macro to parse, used for distress and
macro */
{
char buf1[10 * MAXMACLEN];
char *pbuf1;
char buf2[10 * MAXMACLEN];
char buf3[10 * MAXMACLEN];
char tmp[10 * MAXMACLEN];
int index = 0;
int index2 = 0;
int index3 = 0;
int cap = 0;
struct player *sender;
struct player *j;
struct planet *l;
char c;
char *macro;
sender = &players[dist->sender];
if (!(*pm))
{
cry[0] = '\0';
return (0);
}
buf1[0] = '\0';
pbuf1 = buf1;
macro = pm;
/* first step is to substitute variables */
while (*pm)
{
if (*pm == '%')
{
pm++;
if (!pm)
continue;
switch (c = *(pm++))
{
case ' ':
APPEND (pbuf1, " \0");
break;
case 'O': /* push a 3 character team name into buf */
cap = 1;
case 'o': /* push a 3 character team name into buf */
if (sender->p_team != ALLTEAM)
APPEND_CAP (pbuf1, cap, teamshort[sender->p_team]);
cap = 0;
break;
case 'a': /* push army number into buf */
APPEND_INT(pbuf1, dist->arms);
break;
case 'd': /* push damage into buf */
APPEND_INT (pbuf1, dist->dam);
break;
case 's': /* push shields into buf */
APPEND_INT (pbuf1, dist->shld);
break;
case 'f': /* push fuel into buf */
APPEND_INT (pbuf1, dist->fuelp);
break;
case 'w': /* push wtemp into buf */
APPEND_INT (pbuf1, dist->wtmp);
break;
case 'e': /* push etemp into buf */
APPEND_INT (pbuf1, dist->etmp);
break;
case 'P': /* push player id into buf */
case 'G': /* push friendly player id into buf */
case 'H': /* push enemy target player id into buf */
case 'p': /* push player id into buf */
case 'g': /* push friendly player id into buf */
case 'h': /* push enemy target player id into buf */
switch (c)
{
case 'p':
j = &players[dist->tclose_j];
break;
case 'g':
j = &players[dist->tclose_fr];
break;
case 'h':
j = &players[dist->tclose_en];
break;
case 'P':
j = &players[dist->close_j];
break;
case 'G':
j = &players[dist->close_fr];
break;
default:
j = &players[dist->close_en];
break;
}
tmp[0] = j->p_mapchars[1];
tmp[1] = '\0';
APPEND (pbuf1, tmp);
break;
case 'n': /* push planet armies into buf */
l = &planets[dist->tclose_pl];
APPEND_INT (pbuf1,
((l->pl_info & sender->p_team) ? l->pl_armies : -1));
break;
case 'B':
cap = 1;
case 'b': /* push planet into buf */
l = &planets[dist->close_pl];
tmp[0] = l->pl_name[0] - 'A' + 'a';
tmp[1] = l->pl_name[1];
tmp[2] = l->pl_name[2];
tmp[3] = '\0';
APPEND_CAP (pbuf1, cap, tmp);
cap = 0;
break;
case 'L':
cap = 1;
case 'l': /* push planet into buf */
l = &planets[dist->tclose_pl];
tmp[0] = l->pl_name[0] - 'A' + 'a';
tmp[1] = l->pl_name[1];
tmp[2] = l->pl_name[2];
tmp[3] = '\0';
APPEND_CAP (pbuf1, cap, tmp);
cap = 0;
break;
case 'Z': /* push a 3 character team name into buf */
cap = 1;
case 'z': /* push a 3 character team name into buf */
l = &planets[dist->tclose_pl];
APPEND_CAP (pbuf1, cap, teamshort[l->pl_owner]);
cap = 0;
break;
case 't': /* push a team character into buf */
l = &planets[dist->tclose_pl];
tmp[0] = teamlet[l->pl_owner];
tmp[1] = '\0';
APPEND (pbuf1, tmp);
break;
case 'T': /* push my team into buf */
tmp[0] = teamlet[sender->p_team];
tmp[1] = '\0';
APPEND (pbuf1, tmp);
break;
case 'c': /* push my id char into buf */
tmp[0] = sender->p_mapchars[1];
tmp[1] = '\0';
APPEND (pbuf1, tmp);
break;
case 'W': /* push WTEMP flag into buf */
if (dist->wtmpflag)
tmp[0] = '1';
else
tmp[0] = '0';
tmp[1] = '\0';
APPEND (pbuf1, tmp);
break;
case 'E': /* push ETEMP flag into buf */
if (dist->etempflag)
tmp[0] = '1';
else
tmp[0] = '0';
tmp[1] = '\0';
APPEND (pbuf1, tmp);
break;
case 'K':
cap = 1;
case 'k':
if (cap)
j = &players[dist->tclose_en];
else
j = sender;
if (j->p_ship.s_type == STARBASE)
#ifdef LTD_STATS
sprintf (tmp, "%5.2f", (float) ltd_kills(j, LTD_SB));
#else
sprintf (tmp, "%5.2f", (float) j->p_stats.st_sbkills);
#endif
else
#ifdef LTD_STATS
sprintf (tmp, "%5.2f", (float) ltd_kills(j, LTD_TOTAL));
#else
sprintf (tmp, "%5.2f", (float) j->p_stats.st_kills +
j->p_stats.st_tkills);
#endif
APPEND (pbuf1, tmp);
break;
case 'U': /* push player name into buf */
cap = 1;
case 'u': /* push player name into buf */
j = &players[dist->tclose_en];
APPEND_CAP (pbuf1, cap, j->p_name);
cap = 0;
break;
case 'I': /* my player name into buf */
cap = 1;
case 'i': /* my player name into buf */
APPEND_CAP (pbuf1, cap, sender->p_name);
cap = 0;
break;
case 'S': /* push ship type into buf */
APPEND (pbuf1, shiptypes[sender->p_ship.s_type]);
break;
case 'v': /* push average ping round trip time into buf */
case 'V': /* push ping stdev into buf */
case 'y': /* push packet loss into buf */
APPEND (pbuf1, "0\0");
case 'M': /* push capitalized lastMessage into buf */
case 'm': /* push lastMessage into buf */
break;
case '*': /* push %} into buf */
APPEND (pbuf1, "%*\0");
break;
case '}': /* push %} into buf */
APPEND (pbuf1, "%}\0");
break;
case '{': /* push %{ into buf */
APPEND (pbuf1, "%{\0");
break;
case '!': /* push %! into buf */
APPEND (pbuf1, "%!\0");
break;
case '?': /* push %? into buf */
APPEND (pbuf1, "%?\0");
break;
case '%': /* push %% into buf */
APPEND (pbuf1, "%%\0");
break;
default:
/* try to continue
** bad macro character is skipped entirely,
** the message will be parsed without whatever %. has occurred. - jn
*/
dist_error("Pass 1",macro,*pm-1);
break;
}
}
void check_empty( distribution* d )
{
if ( !d->queue_size )
dist_error( "check_empty", "the queue is empty" );
}
