chiark / gitweb /
Update manual style.
[fwd] / scan.c
diff --git a/scan.c b/scan.c
index 506f98c7f8ca985f4563c1e6e51f456a260a5ca7..84260ed25d6577637cb948e39604d6bd9b0ae565 100644 (file)
--- a/scan.c
+++ b/scan.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: scan.c,v 1.2 1999/07/26 23:24:33 mdw Exp $
+ * $Id: scan.c,v 1.4 2001/02/03 20:30:03 mdw Exp $
  *
  * Character scanners
  *
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: scan.c,v $
+ * 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.
@@ -101,7 +107,7 @@ static scansrc_ops fscan_ops = { fscan_scan, fscan_destroy };
 
 scansrc *scan_file(FILE *fp, char *name, unsigned f)
 {
-  fscan *fs = CREATE(fs);
+  fscan *fs = CREATE(fscan);
   fs->ss.ops = &fscan_ops;
   fs->ss.src = name;
   fs->ss.line = 1;
@@ -128,7 +134,7 @@ static int avscan_scan(scansrc *ss)
   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';