- * Copyright (c) 1982 Regents of the University of California
+ * Copyright (c) 1982 Regents of the University of California.
+ * All rights reserved. The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
-#define TOOLONG if(cp == &numbuf[NUMSIZE]){if (passno == 2)yywarning(toolong); goto process;}
-#define scanit(sign) *cpp = inbufptr; error |= scanint(sign, &cp, cpp); inbufptr = *cpp; ch = getchar(); TOOLONG;
+#define TOOLONG \
+ if (cp == &numbuf[NUMSIZE]){ \
+ if (passno == 2) \
+ yywarning(toolong); \
+ goto process; \
+ }
+#define scanit(sign) \
+ REGTOMEMBUF; \
+ error |= scanint(sign, &cp); \
+ MEMTOREGBUF; \
+ ch = getchar(); \
+ TOOLONG;
return(as_atof(numbuf, fltradix, &overflow));
}
/*
* Scan an optionally signed integer, putting back the lookahead
* character when finished scanning.
*/
return(as_atof(numbuf, fltradix, &overflow));
}
/*
* Scan an optionally signed integer, putting back the lookahead
* character when finished scanning.
*/