Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume36/uqwk/part01/misc.c

C/C++ Source or Header | 1993-03-11 | 4.6 KB | 241 lines

#include <stdio.h>
#include <string.h>
#include "uqwk.h"

/*
 *  Miscellaneous uqwk routines
 */

NewConference (name)
char *name;
{
    struct conf_ent *cp, *tmp_cp;
    char *c, ndx_fname[PATH_LEN];

    /* Get space for new conference */
    if (NULL == (tmp_cp = (struct conf_ent *) malloc
                    (sizeof (struct conf_ent))))
    {
        fprintf (stderr, "%s: out of memory\n", progname);
        exit (0);
    }

    /* Get space for name */
    if (NULL == (c = (char *) malloc (1+strlen(name))))
    {
        fprintf (stderr, "%s: out of memory\n", progname);
        exit (0);
    }

    /* Fill in conference name */
    tmp_cp->name = c;
    strcpy (tmp_cp->name, name);

    /* Fill in conference number */
    tmp_cp->number = conf_cnt;

    /* Add to end of conference list */
    if (last_conf == NULL)
    {
        /* This is first conference */
        conf_list = tmp_cp;
    }
    else
    {
        last_conf->next = tmp_cp;
    }
    tmp_cp->next = NULL;
    last_conf = tmp_cp;

    /* Open new index file */
    if (!strcmp (name, MAIL_CONF_NAME))
    {
        strcpy (ndx_fname, home_dir);
        strcat (ndx_fname, "/");
        strcat (ndx_fname, "personal.ndx");
    }
    else
    {
        sprintf (ndx_fname, "%s/%03d.ndx", home_dir, conf_cnt);
    }

    if (NULL == (ndx_fd = fopen (ndx_fname, "w")))
    {
        fprintf (stderr, "%s: can't open %s\n", progname, ndx_fname);
        exit (0);
    }

    conf_cnt++;
}

PadString (s, c, n)
char *s, *c;
int n;
/*
 *  Take a null-terminated string s and copy it, space-padded or
 *  truncated if necessary, into field c of n characters
 */
{
    int len, i;
    len = strlen (s);
    if (len >= n)
    {
        strncpy (c, s, n);
    }
    else
    {
        strcpy (c, s);
        Spaces (&c[len], n-len);
    }
}

Spaces (c, n)
char *c;
int n;
/*
 *  Fill field of n characters with spaces
 */
{
    int i;
    for (i=0; i<n; i++) c[i]=' ';
}

PadNum (i, c, n)
int i, n;
char *c;
/*
 *  Format an integer i and place it, space filled, in
 *  field c of n characters
 */
{
    sprintf (buf, "%d", i);
    PadString (buf, c, n);
}

IntNum (i, c)
int i;
char c[2];
/*
 *  Put binary integer i into two bytes
 */
{
    c[0] = i % 256;
    c[1] = (i / 256) % 256;
}

char *Fgets (c, n, fd)
char *c;
int n;
FILE *fd;
/*
 *  Same as fgets, but changes trailing linefeed to a null
 */
{
    int i;

    if (NULL == fgets (c, n, fd)) return (NULL);
    i = strlen (c);
    if ( (i > 0) && (c[i-1]=='\n') ) c[i-1] = 0;

    return (c);
}

inttoms (i, c)
int i;
char c[4];
/*
 *  Convert an integer into the Microsoft Basic floating format.
 *  This is the dumbest thing in the whole QWK standard.  Why in
 *  the world store block offsets as floating point numbers?
 *  Stupid!
 */
{
    int m, e;

    if (i == 0)
    {
        c[0] = c[1] = c[2] = 0;
        c[3] = 0x80;
        return;
    }

    e = 152;
    m = 0x7fffff & i;

    while (!(0x800000 & m))
    {
        m <<= 1;
        e--;
    }
    c[0] = 0xff & m;
    c[1] = 0xff & (m >> 8);
    c[2] = 0x7f & (m >> 16);
    c[3] = 0xff & e;
}

int LastInt (line)
char *line;
/*
 * Find last integer on line
 */
{
        int i, last_delim, n;
        n = strlen (line);

        /* Find last delimiter */
        for (i=0; i<n; i++)
        {
                if ( (line[i] == ' ') || (line[i] == '-') ||
                     (line[i] == ',') || (line[i] == ':') )
                        last_delim = i;
        }

        i = atoi (&line[last_delim+1]);
        return (i);
}

ParseDate (c, hp)
char *c;
struct qwk_hdr *hp;
{
        char s[PATH_LEN];
        int day, mon, year, hour, minute;
        char month[4];

        /* Dates come in two flavors:  with the weekday, and without.
           we simply look for the comma which follows the weekday */
        if (c[3] == ',')
        {
                sscanf (&c[4], "%d %s %d %d:%d", &day, month, &year,
                                                &hour, &minute);
        }
        else
        {
                sscanf (c, "%d %s %d %d:%d", &day, month, &year,
                                                &hour, &minute);
        }

        /* Convert alphabetic month name to integer */
        if (!strncmp (month, "Jan", 3)) mon = 1;
        if (!strncmp (month, "Feb", 3)) mon = 2;
        if (!strncmp (month, "Mar", 3)) mon = 3;
        if (!strncmp (month, "Apr", 3)) mon = 4;
        if (!strncmp (month, "May", 3)) mon = 5;
        if (!strncmp (month, "Jun", 3)) mon = 6;
        if (!strncmp (month, "Jul", 3)) mon = 7;
        if (!strncmp (month, "Aug", 3)) mon = 8;
        if (!strncmp (month, "Sep", 3)) mon = 9;
        if (!strncmp (month, "Oct", 3)) mon = 10;
        if (!strncmp (month, "Nov", 3)) mon = 11;
        if (!strncmp (month, "Dec", 3)) mon = 12;

        /* Convert date */
        sprintf (s, "%02d-%02d-%02d", mon, day, year);
        PadString (s, hp->date, 8);

        /* Time */
        sprintf (s, "%02d:%02d", hour, minute);
        PadString (s, hp->time, 5);
}