/* -*-c-*-
*
- * $Id: scan.c,v 1.2 1999/07/26 23:24:33 mdw Exp $
+ * $Id: scan.c,v 1.6 2002/02/22 23:44:16 mdw Exp $
*
* Character scanners
*
/*----- Revision history --------------------------------------------------*
*
* $Log: scan.c,v $
+ * Revision 1.6 2002/02/22 23:44:16 mdw
+ * Miscellaneous tidying up, to make this code independent of `fw'. It
+ * might end up in a library somewhere.
+ *
+ * Revision 1.5 2002/01/30 09:29:34 mdw
+ * Initialize scanner properly.
+ *
+ * Revision 1.4 2001/02/03 20:30:03 mdw
+ * Support re-reading config files on SIGHUP.
+ *
+ * Revision 1.3 2000/08/01 17:58:10 mdw
+ * Fix subtleties with <ctype.h> functions.
+ *
* Revision 1.2 1999/07/26 23:24:33 mdw
* Complete rewrite. Allow a list of character sources to enable changes
* during parsing of syntactic constructs.
/*----- Header files ------------------------------------------------------*/
-#include "config.h"
-
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
fscan *fs = (fscan *)ss;
if (!(fs->f & SCF_NOCLOSE))
fclose(fs->fp);
- if (fs->f & SCF_FREENAME)
- free(fs->ss.src);
+ xfree(fs->ss.src);
DESTROY(fs);
}
/* --- @scan_file@ --- *
*
* Arguments: @FILE *fp@ = pointer to file descriptor
- * @char *name@ = pointer to source file name
+ * @const char *name@ = pointer to source file name
* @unsigned f@ = flags
*
* Returns: A scanner source.
* Use: Creates a new scanner source for reading from a file.
*/
-scansrc *scan_file(FILE *fp, char *name, unsigned f)
+scansrc *scan_file(FILE *fp, const char *name, unsigned f)
{
- fscan *fs = CREATE(fs);
+ fscan *fs = CREATE(fscan);
fs->ss.ops = &fscan_ops;
- fs->ss.src = name;
+ fs->ss.src = xstrdup(name);
fs->ss.line = 1;
fs->fp = fp;
fs->f = f;
int ch;
if (!as->p)
ch = EOF;
- else if ((ch = *as->p++) == 0) {
+ else if ((ch = (unsigned char)*as->p++) == 0) {
as->ss.line++;
as->p = *as->av++;
ch = '\n';
/* --- The end of file marker --- */
-static scansrc scan_eof = { &scan_eof, &eof_ops, "<eof>", 0, EOF };
+static scansrc scan_eof = { &scan_eof, &eof_ops, "<eof>", 0, DSTR_INIT };
/*----- General scanner handling ------------------------------------------*/
int scan(scanner *sc)
{
int ch;
- if (sc->head->pushback != EOF) {
- ch = sc->head->pushback;
- sc->head->pushback = EOF;
- } else {
+ if (sc->head->pushback.len)
+ ch = sc->head->pushback.buf[--sc->head->pushback.len];
+ else {
scansrc *ss = sc->head;
if (ss == &scan_eof)
ch = EOF;
void unscan(scanner *sc, int ch)
{
- sc->head->pushback = ch;
+ DPUTC(&sc->head->pushback, ch);
}
/* --- @scan_push@ --- *
if (sc->head == &scan_eof)
sc->tail = &ss->next;
sc->head = ss;
- ss->pushback = EOF;
+ dstr_create(&ss->pushback);
ss->tok = 0;
ss->t = 0;
}
ss->next = &scan_eof;
*sc->tail = ss;
sc->tail = &ss->next;
- ss->pushback = EOF;
+ dstr_create(&ss->pushback);
ss->tok = 0;
ss->t = 0;
}
sc->head = &scan_eof;
sc->tail = &sc->head;
dstr_create(&sc->d);
+ sc->wbegin = sc->wcont = 0;
}
/* --- @scan_destroy@ --- *
scansrc *sss = ss;
ss = ss->next;
if (sss->tok)
- free(sss->tok);
+ xfree(sss->tok);
+ dstr_destroy(&sss->pushback);
sss->ops->destroy(sss);
}
dstr_destroy(&sc->d);
if (scan_eof.tok)
- free(scan_eof.tok);
+ xfree(scan_eof.tok);
scan_eof.tok = 0;
sc->head = &scan_eof;
sc->tail = &sc->head;