head	2.10;
access;
symbols;
locks; strict;
comment	@ * @;


2.10
date	92.10.20.22.46.29;	author jromine;	state Exp;
branches;
next	2.9;

2.9
date	92.05.12.22.11.10;	author jromine;	state Exp;
branches;
next	2.8;

2.8
date	92.02.11.21.32.04;	author jromine;	state Exp;
branches;
next	2.7;

2.7
date	92.02.05.06.40.22;	author jromine;	state Exp;
branches;
next	2.6;

2.6
date	92.02.03.16.35.10;	author jromine;	state Exp;
branches;
next	2.5;

2.5
date	90.04.05.15.30.20;	author sources;	state Exp;
branches;
next	2.4;

2.4
date	90.04.05.14.43.48;	author sources;	state Exp;
branches;
next	2.3;

2.3
date	90.03.20.15.57.29;	author sources;	state Exp;
branches;
next	2.2;

2.2
date	90.02.06.13.08.58;	author sources;	state Exp;
branches;
next	2.1;

2.1
date	90.02.01.14.07.33;	author sources;	state Exp;
branches;
next	2.0;

2.0
date	89.11.17.15.57.24;	author sources;	state Exp;
branches;
next	1.1;

1.1
date	89.06.26.14.31.47;	author sources;	state Exp;
branches;
next	;


desc
@@


2.10
log
@NULL fix
@
text
@/* m_gmsg.c - read a folder */
#ifndef	lint
static char ident[] = "@@(#)$Id: m_gmsg.c,v 2.9 1992/05/12 22:11:10 jromine Exp jromine $";
#endif /* lint */

#include "../h/mh.h"
#include "../h/local.h"
#include <stdio.h>


#define	NINFO	(MAXFOLDER / 5)	/* PLEASE be non-trivial... */
struct info {
    int     msgno;
    int     stats;
};

static int  len=0;
static struct info *head;

static		m_getatr();
static int	m_setatr();
/*  */

struct msgs *m_gmsg (name)
register char   *name;
{
#ifdef	COMPAT
    register int    cur,
		    fd;
#endif /* COMPAT */
    register int    i,
		    j;
    register struct info *rover,
			 *tail;
#ifdef	COMPAT
    register char  *cp;
    char    buffer[BUFSIZ];
#endif /* COMPAT */
    register struct msgs   *mp;
#ifdef SYS5DIR
    register struct dirent *dp;
		DIR * dd;
#else /* SYS5DIR */
    register struct direct *dp;
    register    DIR * dd;
#endif /* SYS5DIR */
    struct stat st;

    if ((dd = opendir (name = m_mailpath (name))) == NULL) {
	free (name);
	return NULL;
    }
    (void) fstat (dd -> dd_fd, &st);

    mp = (struct msgs  *) malloc (MHSIZE (mp, 0, 0));
    if (mp == NULL)
	adios (NULLCP, "unable to allocate folder storage");
    mp -> lowmsg = mp -> hghmsg = mp -> nummsg = 0;
    mp -> curmsg = 0;
    mp -> lowsel = mp -> hghsel = mp -> numsel = 0;
    mp -> foldpath = name;
    mp -> msgflags = 0;
    if (st.st_uid != getuid () || access (name, 02) == NOTOK)
	mp -> msgflags |= READONLY;
#ifdef	COMPAT
    cur = 0;
#endif /* COMPAT */
    j = strlen (SBACKUP);
    if (head == NULL)
	if ((head = (struct info *)
		malloc ((unsigned) ((len = NINFO) * sizeof *head))) == NULL)
	    adios (NULLCP, "unable to allocate info storage");
    tail = (rover = head) + len;

    while (dp = readdir (dd))
	if (i = m_atoi (dp -> d_name)) {
	    if (rover >= tail) {
		register int curlen = tail - head;

		if ((tail = (struct info *) realloc ((char *) head,
			     (unsigned) ((len += NINFO) * sizeof *head)))
			== NULL)
		    adios (NULLCP, "unable to allocate info storage");
		else
		    rover = tail + curlen, head = tail, tail += len;
	    }
	    if (i > mp -> hghmsg)
		mp -> hghmsg = i;
	    mp -> nummsg++;
	    if (mp -> lowmsg == 0 || i < mp -> lowmsg)
		mp -> lowmsg = i;
	    rover -> msgno = i;
	    rover -> stats = EXISTS;
#ifdef	notdef
	    rover -> stats &= ~DELETED;
#endif /* notdef */
	    rover++;
	}
	else
	    switch (dp -> d_name[0]) {
		case '.': 
		    continue;

		case ',': 
#ifdef	notdef
		    if ((i = m_atoi (dp -> d_name + 1)) {
			register struct info *l;

			for (l = head; l < rover; l++)
			    if (l -> msgno == i) {
				if (!(l -> stats & EXISTS))
				    l -> stats |= DELETED;
				break;
			    }
		    }
#endif /* notdef */
		    continue;

#ifdef	MHE
		case '+': 
		    continue;
#endif /* MHE */

#ifdef	UCI
		case '_': 
		case '#': 
		    continue;
#endif /* UCI */

		default: 
#ifdef	COMPAT
		    if (strcmp (dp -> d_name, current) == 0) {
			cur++;
			continue;
		    }
#endif /* COMPAT */
		    if (strcmp (dp -> d_name, LINK) == 0
			    || strncmp (dp -> d_name, SBACKUP, j) == 0)
			continue;
		    mp -> msgflags |= OTHERS;
		    continue;
	    }

    closedir (dd);

/*  */

#ifdef	COMPAT
    (void) sprintf (buffer, "%s-%s", current, name);
    if (cp = m_find (buffer)) {
	i = m_atoi (cp);
	(void) m_delete(buffer);
	if (i > 0)
	    mp -> curmsg = i;
    }
    if (mp -> curmsg == 0 && cur && (fd = open (current, 0)) != NOTOK) {
	    if ((i = read (fd, buffer, sizeof buffer)) > 0) {
		if (cp = index (buffer, '\n'))
		    *cp = 0;
		if ((i = m_atoi (buffer)) > 0)
		    mp -> curmsg = i;
	    }
	    (void) close (fd);
	}
    if (cur && !(mp -> msgflags & READONLY)){	/* sneaky... */
	(void) sprintf (buffer, "%s/%s", name, current);
	(void) unlink (buffer);
    }
#endif /* COMPAT */

#ifndef	MTR
    mp -> lowoff = 1;
#else /* MTR */
    mp -> lowoff = mp -> lowmsg;
#endif /* MTR */
    mp -> hghoff = mp -> hghmsg + 1;/* for "new" in m_convert */

    mp = (struct msgs  *)
		realloc ((char *) mp, MHSIZE (mp, mp -> lowoff, mp -> hghoff));
    if (mp == NULL)
	adios (NULLCP, "unable to allocate folder storage");
#ifndef	MTR
    for (i = mp -> lowmsg; i <= mp -> hghmsg; i++)
	mp -> msgstats[i] = 0;
#else /* MTR */
    mp -> msgstats = (int *)
		calloc ((unsigned) 1, MHSIZEX (mp, mp -> lowmsg, mp -> hghmsg));
    if (mp -> msgstats == NULL)
	adios (NULLCP, "unable to allocate messages storage");
    mp -> msgstats = (mp -> msgbase = mp -> msgstats) - mp -> lowoff;
    if (mp -> msgstats < (int *)0)	/* non portable */
	adios (NULLCP, "m_gmsg() botch -- you lose big");
#endif /* MTR */
    for (tail = head; tail < rover; tail++)
	mp -> msgstats[tail -> msgno] = tail -> stats;
    m_getatr (mp);

    return mp;
}

/*  */

static m_getatr (mp)
register struct msgs *mp;
{
    int     alen,
            bits,
            i,
            j,
            plen,
            state;
    register char  *cp;
    char    name[NAMESZ],
            field[BUFSIZ * 2];
    register struct node   *np;
    register    FILE * fp;

    bits = FFATTRSLOT;

    mp -> msgattrs[i = 0] = getcpy (current);
    mp -> msgattrs[++i] = '\0';
    mp -> attrstats = 0;	/* initially, all public */

    m_getdefs ();
    if (mh_seq == '\0' || *mh_seq == '\0')
	goto private_only;

    (void) sprintf (field, "%s/%s", mp -> foldpath, mh_seq);
    if (fp = fopen (field, "r")) {
	for (state = FLD;;) {
	    switch (state = m_getfld (state, name, field, sizeof field, fp)) {
		case FLD: 
		case FLDEOF: 
		    (void) m_setatr (mp, getcpy (name), trimcpy (field));
		    if (state == FLDEOF)
			break;
		    continue;

		case BODY: 
		case BODYEOF: 
		    adios (NULLCP,
			    "no blank lines are permitted in %s/%s",
			    mp -> foldpath, mh_seq);/* fall */

		case FILEEOF:
		    break;

		default: 
		    adios (NULLCP, "%s/%s is poorly formatted",
			    mp -> foldpath, mh_seq);
	    }
	    break;
	}
	(void) fclose (fp);
    }

private_only: ;
    alen = strlen ("atr-");
    plen = strlen (mp -> foldpath) + 1;

    for (np = m_defs; np; np = np -> n_next)
	if (ssequal ("atr-", np -> n_name)
		&& (j = strlen (np -> n_name) - plen) > alen
		&& *(np -> n_name + j) == '-'
		&& strcmp (mp -> foldpath, np -> n_name + j + 1) == 0) {
	    cp = getcpy (np -> n_name + alen);
	    *(cp + j - alen) = '\0';
	    if ((i = m_setatr (mp, cp, getcpy (np -> n_field))) != NOTOK)
		mp -> attrstats |= 1 << (bits + i);/* private */
	}
}

/*  */

static int  m_setatr (mp, name, field)
register struct msgs *mp;
register char   *name,
		*field;
{
    int     bits,
            hack;
    register int    i,
		    j,
		    k;
    register char  *cp,
                  **ap;

    bits = FFATTRSLOT;
    hack = strcmp (current, name) == 0;/* hack... */
    /* if we're going to use UNSEEN, it should be set here! */

    for (i = 0; mp -> msgattrs[i]; i++)
	if (strcmp (mp -> msgattrs[i], name) == 0) {
	    for (j = mp -> lowmsg; j <= mp -> hghmsg; j++)
		mp -> msgstats[j] &= ~(1 << (bits + i));
	    break;
	}
    if (i >= NATTRS) {
	free (name);
	free (field);
	return NOTOK;
    }

    if (mp -> msgattrs[i] == NULL) {
	mp -> msgattrs[i] = name;
	mp -> msgattrs[i + 1] = NULL;
    }
    else
	free (name);

    for (ap = brkstring (field, " ", "\n");
	    *ap;
	    ap++) {
	if (cp = index (*ap, '-'))
	    *cp++ = '\0';
	if ((j = m_atoi (*ap)) > 0) {
#ifdef	notdef
	    if (hack && j >= mp -> lowmsg && j <= mp -> hghmsg
		    && (mp -> msgstats[j] & EXISTS))
		mp -> curmsg = j;
#else /* not notdef */
	    if (hack)
		mp -> curmsg = j;
#endif /* not notdef */
	    for (k = cp ? m_atoi (cp) : j; j <= k; j++)
		if (j >= mp -> lowmsg && j <= mp -> hghmsg
			&& (mp -> msgstats[j] & EXISTS))
		    mp -> msgstats[j] |= 1 << (bits + i);
	}
    }
    free (field);

    return i;
}
@


2.9
log
@fix ifdefs
@
text
@d3 1
a3 1
static char ident[] = "@@(#)$Id: m_gmsg.c,v 2.8 1992/02/11 21:32:04 jromine Exp jromine $";
d159 1
a159 1
		    *cp = NULL;
@


2.8
log
@put sequences in an "int"
@
text
@d3 2
a4 2
static char ident[] = "@@(#)$Id: m_gmsg.c,v 2.7 1992/02/05 06:40:22 jromine Exp $";
#endif	lint
d30 1
a30 1
#endif	COMPAT
d38 1
a38 1
#endif	COMPAT
d43 1
a43 1
#else  SYS5DIR
d46 1
a46 1
#endif SYS5DIR
d62 1
a62 1
    mp -> msgflags = NULL;
d67 1
a67 1
#endif	COMPAT
d96 1
a96 1
#endif	notdef
d116 1
a116 1
#endif	notdef
d122 1
a122 1
#endif	MHE
d128 1
a128 1
#endif	UCI
d136 1
a136 1
#endif	COMPAT
d169 1
a169 1
#endif	COMPAT
d173 1
a173 1
#else	MTR
d175 1
a175 1
#endif	MTR
d185 1
a185 1
#else	MTR
d193 1
a193 1
#endif	MTR
d221 1
a221 1
    mp -> msgattrs[++i] = NULL;
d225 1
a225 1
    if (mh_seq == NULL || *mh_seq == NULL)
d267 1
a267 1
	    *(cp + j - alen) = NULL;
d315 1
a315 1
	    *cp++ = NULL;
d321 1
a321 1
#else	not notdef
d324 1
a324 1
#endif	not notdef
@


2.7
log
@comment
@
text
@d3 1
a3 1
static char ident[] = "@@(#)$Id: m_gmsg.c,v 2.6 1992/02/03 16:35:10 jromine Exp jromine $";
d14 1
a14 2
    short   stats;
    char    pad[sizeof (int) - sizeof (short)];
d186 1
a186 1
    mp -> msgstats = (short *)
d191 1
a191 1
    if (mp -> msgstats < (short *)0)	/* non portable */
@


2.6
log
@fix
@
text
@d3 1
a3 1
static char ident[] = "@@(#)$Id: m_gmsg.c,v 2.5 1990/04/05 15:30:20 sources Exp jromine $";
d291 1
@


2.5
log
@add ID
@
text
@d3 1
a3 1
static char ident[] = "@@(#)$Id:$";
d56 1
a56 1
    mp = (struct msgs  *) malloc (MSIZE (mp, 0, 0));
d180 1
a180 1
		realloc ((char *) mp, MSIZE (mp, mp -> lowoff, mp -> hghoff));
d188 1
a188 1
		calloc ((unsigned) 1, MSIZEX (mp, mp -> lowmsg, mp -> hghmsg));
@


2.4
log
@add ID
@
text
@d3 1
a3 1
static char ident[] = "$Id:";
@


2.3
log
@cast null pointer
@
text
@d2 3
@


2.2
log
@ANSI Compilance
@
text
@d189 1
a189 1
    if (mp -> msgstats < 0)
@


2.1
log
@increase message sequence buffer size by factor of 2.  I hope this
is worth it, since it'll make things bigger.
@
text
@d18 2
@


2.0
log
@changes for SUN40 shared libraries and NNTP under bbc
@
text
@d210 1
a210 1
            field[BUFSIZ];
@


1.1
log
@Initial revision
@
text
@d36 4
d42 1
@