STR
fprintf(stderr, " %s", STR(list->name));
DPRINTF(1, (stderr, " (%s, %s)\n", STR(list->path),
STR(list->datfile)));
STR *Firstch; /* first chars of each string */
STR *fp;
STR *fp;
c1 = ((STR *)p1)->first;
c2 = ((STR *)p2)->first;
(void) fseek(Sort_1, ((STR *)p1)->pos, SEEK_SET);
(void) fseek(Sort_2, ((STR *)p2)->pos, SEEK_SET);
STR("OK"),
STR("unknown error"),
STR("malloc() failed"),
STR("first event not found"),
STR("last event not found"),
STR("empty list"),
STR("no next event"),
STR("no previous event"),
STR("current event is invalid"),
STR("event not found"),
STR("can't read history from file"),
STR("can't write history"),
STR("required parameter(s) not supplied"),
STR("history size negative"),
STR("function not allowed with other history-functions-set the default"),
STR("bad parameters")
ptr = STR("");
#define IFS STR("\t \n")
flags = str2flags(open_flags, STR(1));
rval = open(STR(0), flags, (mode_t)NUM(2));
rval = open(STR(0), flags);
rval = open(STR(0), O_CREAT | O_EXCL, NUM(1));
rval = unlink(STR(0));
rval = mkdir(STR(0), NUM(1));
rval = rmdir(STR(0));
rval = link(STR(0), STR(1));
rval = symlink(STR(0), STR(1));
rval = rename(STR(0), STR(1));
rval = mkfifo(STR(0), NUM(1));
rval = chmod(STR(0), NUM(1));
rval = chown(STR(0), NUM(1), NUM(2));
rval = lchown(STR(0), NUM(1), NUM(2));
ch_flags = str2flags(chflags_flags, STR(1));
rval = chflags(STR(0), ch_flags);
ch_flags = str2flags(chflags_flags, STR(1));
rval = chflagsat(AT_FDCWD, STR(0), ch_flags,
rval = truncate(STR(0), NUM(1));
rval = stat(STR(0), &sb);
show_stats(&sb, STR(1));
rval = lstat(STR(0), &sb);
show_stats(&sb, STR(1));
#define ATTRFIND(STR,ATTR4,LEN4,ATTR6,LEN6) do \
if ((sa = conf_get_address (id_string, STR)) != NULL) \
__asm volatile("mrs %x0, "STR(ICC_IAR1) : "=r" (irq));
__asm volatile("msr "STR(ICC_EOIR1)", %x0" :: "r" (eoi));
__asm volatile ("msr " STR(ICC_SGI1R)", %x0" ::"r"(sendmask));
__asm volatile("mrs %x0, "STR(ICC_CTLR_EL1) : "=r"(ctrl));
__asm volatile("mrs %x0, "STR(ICC_PMR) : "=r"(oldpmr));
__asm volatile("msr "STR(ICC_PMR)", %x0" :: "r"(0xbf));
__asm volatile("mrs %x0, "STR(ICC_PMR) : "=r"(pmr));
__asm volatile("msr "STR(ICC_PMR)", %x0" :: "r"(oldpmr));
__asm volatile("msr "STR(ICC_SRE_EL1)", %x0" : : "r" (ICC_SRE_EL1_EN));
__asm volatile("msr "STR(ICC_PMR)", %x0" :: "r"(0xff));
__asm volatile("msr "STR(ICC_BPR1)", %x0" :: "r"(0));
__asm volatile("msr "STR(ICC_IGRPEN1)", %x0" :: "r"(1));
__asm volatile("msr "STR(ICC_PMR)", %x0" :: "r"(0xff));
__asm volatile("msr "STR(ICC_BPR1)", %x0" :: "r"(0));
__asm volatile("msr "STR(ICC_IGRPEN1)", %x0" :: "r"(1));
__asm volatile("msr "STR(ICC_PMR)", %x0" : : "r" (prival));
#define MPP(id, func, val) { STR(mpp ## id), func, val, id }
case STR:
{"name", &rname.name, NULL, STR},
#define isstr(n) ((n)->tval & STR)
#define freeable(p) ( ((p)->tval & (STR|DONTFREE)) == STR )
yylval.cp = setsymtab(buf, cp, 0.0, STR, symtab);
yylval.cp = setsymtab(buf, "", 0.0, STR|NUM, symtab);
yylval.cp = setsymtab(buf, s, 0.0, CON|STR|DONTFREE, symtab);
yylval.cp = setsymtab(w, "", 0.0, STR|NUM|DONTFREE, symtab);
fldtab[0]->tval = REC | STR | DONTFREE;
x = setsymtab(temp, "", 0.0, STR, ap);
q = setsymtab(s, p, 0.0, STR, symtab);
fldtab[i]->tval = FLD | STR | DONTFREE;
fldtab[i]->tval = FLD | STR | DONTFREE;
fldtab[i]->tval = FLD | STR;
fldtab[i]->tval = FLD | STR | DONTFREE;
p->tval = FLD | STR | DONTFREE;
static Cell dollar0 = { OCELL, CFLD, NULL, EMPTY, 0.0, REC|STR|DONTFREE, NULL, NULL };
fldtab[i]->tval = FLD | STR | DONTFREE;
static Cell dollar1 = { OCELL, CFLD, NULL, EMPTY, 0.0, FLD|STR|DONTFREE, NULL, NULL };
fldtab[0]->tval = REC | STR | DONTFREE;
static Cell tempcell ={ OCELL, CTEMP, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL, NULL };
x->tval = STR;
else if ((y->tval & (STR|NUM)) == (STR|NUM)) {
z->tval = STR;
ap->tval &= ~STR;
setsymtab(num, s, result, STR|NUM, (Array *) ap->sval);
setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
setsymtab(num, "", 0.0, STR, (Array *) ap->sval);
setsymtab(num, s, result, STR|NUM, (Array *) ap->sval);
setsymtab(num, s, 0.0, STR, (Array *) ap->sval);
setsymtab(num, newt, result, STR|NUM, (Array *) ap->sval);
setsymtab(num, newt, 0.0, STR, (Array *) ap->sval);
setsymtab(num, t, result, STR|NUM, (Array *) ap->sval);
setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
setsymtab(num, buf, atof(buf), STR|NUM, (Array *) ap->sval);
setsymtab(num, buf, 0.0, STR, (Array *) ap->sval);
setsymtab(num, t, result, STR|NUM, (Array *) ap->sval);
setsymtab(num, t, 0.0, STR, (Array *) ap->sval);
static const Cell newcopycell = { OCELL, CCOPY, 0, EMPTY, 0.0, NUM|STR|DONTFREE, NULL, NULL };
oargs[i]->tval &= ~(STR|NUM|DONTFREE);
if ((y->tval & (STR|NUM)) == (STR|NUM)) {
else if (y->tval & STR)
x->tval &= ~(STR|NUM|DONTFREE);
z = setsymtab(buf, "", 0.0, STR|NUM, (Array *) x->sval);
x->tval &= ~STR;
ap->tval &= ~(STR|NUM|DONTFREE);
setsymtab(temp, *av, result, STR|NUM, ap);
setsymtab(temp, *av, 0.0, STR, ap);
setsymtab(*envp, p, result, STR|NUM, ap);
setsymtab(*envp, p, 0.0, STR, ap);
if ((vp->tval & (NUM | STR)) == 0)
vp->tval &= ~(STR|CONVC|CONVO); /* mark string invalid */
if ((vp->tval & (NUM | STR)) == 0)
vp->tval |= STR;
if ((vp->tval & (NUM | STR)) == 0)
if ((vp->tval & (NUM | STR)) == 0)
vp->tval |= STR; \
c = setsymtab(newbuf, p, 0.0, CON|STR|DONTFREE, symtab);
{ "STR", STR },
literal0 = setsymtab("0", "0", 0.0, NUM|STR|CON|DONTFREE, symtab);
nullloc = setsymtab("$zero&null", "", 0.0, NUM|STR|CON|DONTFREE, symtab);
fsloc = setsymtab("FS", " ", 0.0, STR|DONTFREE, symtab);
rsloc = setsymtab("RS", "\n", 0.0, STR|DONTFREE, symtab);
ofsloc = setsymtab("OFS", " ", 0.0, STR|DONTFREE, symtab);
orsloc = setsymtab("ORS", "\n", 0.0, STR|DONTFREE, symtab);
OFMT = &setsymtab("OFMT", "%.6g", 0.0, STR|DONTFREE, symtab)->sval;
CONVFMT = &setsymtab("CONVFMT", "%.6g", 0.0, STR|DONTFREE, symtab)->sval;
FILENAME = &setsymtab("FILENAME", "", 0.0, STR|DONTFREE, symtab)->sval;
subseploc = setsymtab("SUBSEP", "\034", 0.0, STR|DONTFREE, symtab);
#define TYPECLASSFMT "%" STR(TYPECLASSLEN) "[-0-9a-z]_%d"
int next(STR *);
bracket(STR *s)
genclass(STR *s)
genequiv(STR *s)
genrange(STR *s)
genseq(STR *s)
backslash(STR *s)
static int backslash(STR *);
static int bracket(STR *);
static void genclass(STR *);
static void genequiv(STR *);
static int genrange(STR *);
static void genseq(STR *);
next(STR *s)
setup(int *table, char *arg, STR *str, int cflag)
STR s1 = { STRING1, NORMAL, 0, OOBCH, { 0, OOBCH }, NULL, NULL };
STR s2 = { STRING2, NORMAL, 0, OOBCH, { 0, OOBCH }, NULL, NULL };
static void setup(int *, char *, STR *, int);
%token <v.i> BUILTIN BEGIN ELSE END IF STR
func : STR '(' PVAR ')' { $$ = ba_new($3, B_AT_FN_STR); }
| STR '(' PVAR ',' expr ')' { $$ = ba_op(B_AT_FN_STR, $3, $5); }
{ "str", STR, B_AT_FN_STR },
str: STR | QSTR;
unquoted_dotted_str: STR
| unquoted_dotted_str '.' STR
%token <data> QSTR STR PREV BITLAB