tokid_t
static tokid_t sc_tokid;/* scanner - token id */
static void expect(tokid_t);
static tokid_t parse_token(char *);
static void plonk(tokid_t) __dead;
static tokid_t token(void);
static tokid_t
static tokid_t
plonk(tokid_t tok)
expect(tokid_t desired)
tokid_t sep;
tokid_t value; /* token id */