3 * seq_read.c -- read the .mh_sequence file and
4 * -- initialize sequence information
14 static int seq_init (struct msgs *, char *, char *);
15 static void seq_public (struct msgs *);
16 static void seq_private (struct msgs *);
20 * Get the sequence information for this folder from
21 * .mh_sequence (or equivalent specified in .mh_profile)
22 * or context file (for private sequences).
26 seq_read (struct msgs *mp)
28 /* sanity check - check that context has been read */
30 adios (NULL, "oops, context hasn't been read yet");
33 * Initialize the list of sequence names. Go ahead and
34 * add the "cur" sequence to the list of sequences.
36 mp->msgattrs[0] = getcpy (current);
37 mp->msgattrs[1] = NULL;
38 make_all_public (mp); /* initially, make all public */
40 /* If folder is empty, don't scan for sequence information */
44 /* Initialize the public sequences */
47 /* Initialize the private sequences */
53 * read folder's sequences file for public sequences
57 seq_public (struct msgs *mp)
60 char *cp, seqfile[PATH_MAX];
61 char name[NAMESZ], field[BUFSIZ];
65 * If mh_seq == NULL (such as if nmh been compiled with
66 * NOPUBLICSEQ), or if *mh_seq == '\0' (the user has defined
67 * the "mh-sequences" profile entry, but left it empty),
68 * then just return, and do not initialize any public sequences.
70 if (mh_seq == NULL || *mh_seq == '\0')
73 /* get filename of sequence file */
74 snprintf (seqfile, sizeof(seqfile), "%s/%s", mp->foldpath, mh_seq);
76 if ((fp = fopen (seqfile, "r")) == NULL)
79 /* Use m_getfld to scan sequence file */
81 switch (state = m_getfld (state, name, field, sizeof(field), fp)) {
85 if (state == FLDPLUS) {
87 while (state == FLDPLUS) {
88 state = m_getfld (state, name, field, sizeof(field), fp);
91 seq_init (mp, getcpy (name), trimcpy (cp));
94 seq_init (mp, getcpy (name), trimcpy (field));
102 adios (NULL, "no blank lines are permitted in %s", seqfile);
109 adios (NULL, "%s is poorly formatted", seqfile);
111 break; /* break from for loop */
119 * Scan profile/context list for private sequences.
121 * We search the context list for all keys that look like
122 * "atr-seqname-folderpath", and add them as private sequences.
126 seq_private (struct msgs *mp)
128 int i, j, alen, plen;
132 alen = strlen ("atr-");
133 plen = strlen (mp->foldpath) + 1;
135 for (np = m_defs; np; np = np->n_next) {
136 if (ssequal ("atr-", np->n_name)
137 && (j = strlen (np->n_name) - plen) > alen
138 && *(np->n_name + j) == '-'
139 && strcmp (mp->foldpath, np->n_name + j + 1) == 0) {
140 cp = getcpy (np->n_name + alen);
141 *(cp + j - alen) = '\0';
142 if ((i = seq_init (mp, cp, getcpy (np->n_field))) != -1)
143 make_seq_private (mp, i);
150 * Add the name of sequence to the list of folder sequences.
151 * Then parse the list of message ranges for this
152 * sequence, and setup the various bit flags for each
153 * message in the sequence.
155 * Return internal index for the sequence if successful.
156 * Return -1 on error.
160 seq_init (struct msgs *mp, char *name, char *field)
162 int i, j, k, is_current;
166 * Check if this is "cur" sequence,
167 * so we can do some special things.
169 is_current = !strcmp (current, name);
172 * Search for this sequence name to see if we've seen
173 * it already. If we've seen this sequence before,
174 * then clear the bit for this sequence from all the
175 * mesages in this folder.
177 for (i = 0; mp->msgattrs[i]; i++) {
178 if (!strcmp (mp->msgattrs[i], name)) {
179 for (j = mp->lowmsg; j <= mp->hghmsg; j++)
180 clear_sequence (mp, i, j);
185 /* Return error, if too many sequences */
193 * If we've already seen this sequence name, just free the
194 * name string. Else add it to the list of sequence names.
196 if (mp->msgattrs[i]) {
199 mp->msgattrs[i] = name;
200 mp->msgattrs[i + 1] = NULL;
204 * Split up the different message ranges at whitespace
206 for (ap = brkstring (field, " ", "\n"); *ap; ap++) {
207 if ((cp = strchr(*ap, '-')))
209 if ((j = m_atoi (*ap)) > 0) {
210 k = cp ? m_atoi (cp) : j;
213 * Keep mp->curmsg and "cur" sequence in synch. Unlike
214 * other sequences, this message doesn't need to exist.
215 * Think about the series of command (rmm; next) to
216 * understand why this can be the case. But if it does
217 * exist, we will still set the bit flag for it like
223 * We iterate through messages in this range
224 * and flip on bit for this sequence.
226 for (; j <= k; j++) {
227 if (j >= mp->lowmsg && j <= mp->hghmsg && does_exist(mp, j))
228 add_sequence (mp, i, j);
233 free (field); /* free string containing message ranges */