HAT
f->curstat = cgoto(f, 2, HAT);
return (unary(op2(CHAR, NIL, itonp(HAT))));
assert(c == HAT || c < NCHARS);
(k == DOT && c != 0 && c != HAT) ||
c != 0 && c != HAT)) {
case HAT:
diacrit : HAT { $$ = HAT; }
%right DOT DOTDOT HAT TILDE BAR UNDER VEC DYAD
"hat", HAT,
| '^' { $$ = op2(CHAR, (NODE *) 0, HAT); }
hat = HAT;
ce = HAT - 1;
cs = HAT + 1;
cs = HAT;
if ((ns != hatcn || p->cc_cs != HAT) &&
if ((ns != hatcn || cs != HAT) &&
ce = HAT - 1;
cs = HAT + 1;
cs = HAT;
if ((p->cc_ns != hatcn || p->cc_cs != HAT) &&
if ((ns != hatcn || cs != HAT) && ! ccln_member(ns, cs,
if (pfa->cc.s.cc_ns == hatcn && pfa->cc.s.cc_cs == HAT) {