Searched defs:expr (Results 1 - 25 of 42) sorted by relevance

12

/ast/src/lib/libdss/
H A Ddss-compress.h50 compress_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
74 if (expr->pass || expr->fail || expr->parent->pass != expr)
80 expr->parent->pass = 0;
81 if (expr->parent->op != expr->op)
83 if (expr->parent->op != sfstdout)
84 sfclose(expr
[all...]
H A Ddss-count.h38 count_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
61 if ((expr->data = *argv++) && *argv)
71 count_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
73 if (expr->data)
74 sfprintf(expr->op, "%s: ", (char*)expr->data);
75 sfprintf(expr->op, "%I*u/%I*u\n", sizeof(expr->parent->selected), expr == expr
[all...]
H A Ddss-null.h35 null_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
H A Ddss-print.h57 print_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
85 expr->data = 0;
86 else if (!(expr->data = *argv++))
89 if (!(expr->data = (char*)DSS(cx)->meth->print))
102 return cx->referencef ? dssprintf(DSS(cx), cx, 0, (char*)expr->data, NiL) : 0;
106 print_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
108 return dssprintf(DSS(cx), cx, expr->op, (char*)expr->data, data);
112 print_ref(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
H A Ddss-return.h41 return_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
74 return_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
79 if (!(s = expr->argv[1]) || streq(s, "skip"))
H A Ddss-scan.h38 scan_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
42 char** files = expr->files;
77 expr = expr->pass;
103 if (dssbeg(dss, expr))
109 if (dsseval(dss, expr, record) < 0)
H A Ddss-write.h39 write_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
63 if (expr->data = *argv++)
71 if (!(format = dssformat(expr->data, disc, DSS(cx)->meth)))
74 (*disc->errorf)(NiL, disc, 2, "%s: unknown format", (char*)expr->data);
80 if (!(expr->data = dssfopen(DSS(cx), expr->file, expr->op, DSS_FILE_WRITE, format)))
86 write_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
88 return dssfwrite((Dssfile_t*)expr->data, data);
92 write_end(Cx_t* cx, Cxexpr_t* expr, voi argument
98 write_ref(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
[all...]
H A Dcxeval.c36 cxbeg(Cx_t* cx, register Cxexpr_t* expr, const char* method) argument
44 if (expr->begun)
46 expr->begun = 1;
47 if (expr->query->head)
51 expr->queried = expr->selected = 0;
52 if (expr->pass && cxbeg(cx, expr->pass, method))
54 if (expr->fail && cxbeg(cx, expr
96 cxend(Cx_t* cx, register Cxexpr_t* expr) argument
127 execute(Cx_t* cx, Cxexpr_t* expr, register Cxinstruction_t* pc, void* data, Cxoperand_t* rv, Cxdisc_t* disc) argument
180 eval(Cx_t* cx, register Cxexpr_t* expr, void* data, Cxoperand_t* rv) argument
214 cxeval(Cx_t* cx, register Cxexpr_t* expr, void* data, Cxoperand_t* rv) argument
[all...]
H A Ddssmisc.c35 Cxexpr_t* expr; local
55 expr = cxcomp(dss->cx);
57 return expr;
61 * called once before the first dsseval(expr)
65 dssbeg(Dss_t* dss, Dssexpr_t* expr) argument
67 return cxbeg(dss->cx, expr, dss->meth->name);
71 * evaluate expr
75 dsseval(Dss_t* dss, Dssexpr_t* expr, Dssrecord_t* record) argument
79 if (!expr->begun && dssbeg(dss, expr))
90 dssend(Dss_t* dss, Dssexpr_t* expr) argument
100 dsslist(Dss_t* dss, Dssexpr_t* expr, Sfio_t* sp) argument
110 dssfree(Dss_t* dss, Dssexpr_t* expr) argument
[all...]
H A Ddssprintf.c34 Cxexpr_t* expr; member in struct:Arg_s
94 if (ap->expr && cxeval(fp->cx, ap->expr, fp->data, &ret) < 0 || cxcast(fp->cx, &ret, ap->variable, ap->cast, fp->data, ap->details))
351 ap->expr = cxcomp(cx);
353 if (!ap->expr)
442 if (!ap->variable && !ap->expr)
/ast/src/lib/libast/string/
H A Dstrperm.c27 * apply file permission expression expr to perm
35 * if non-null, e points to the first unrecognized char in expr
45 register char* expr = (char*)aexpr; local
67 switch (c = *expr++)
88 expr--;
104 switch (c = *expr++)
129 *e = expr - 1;
238 *e = expr - 1;
253 if (*expr < '0' || *expr > '
[all...]
H A Dstrexpr.c76 expr(register Expr_t* ex, register int precedence) function
92 n = -expr(ex, 13);
95 n = expr(ex, 13);
98 n = !expr(ex, 13);
101 n = ~expr(ex, 13);
119 n = expr(ex, 1);
134 x = expr(ex, 2);
139 x = expr(ex, 2);
148 expr(ex, 2);
150 else n = expr(e
[all...]
/ast/src/cmd/dsslib/lookup/
H A Dlookup.c52 lookup_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
127 expr->data = state;
135 lookup_sel(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
137 register State_t* state = (State_t*)expr->data;
146 lookup_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
148 register State_t* state = (State_t*)expr->data;
/ast/src/cmd/dsslib/tests/
H A Dtest.c40 even_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
53 expr->data = state;
82 even_sel(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
84 State_t* state = (State_t*)expr->data;
86 if (!(expr->queried & 1))
89 sfprintf(sfstdout, "even_sel %I*u\n", sizeof(expr->queried), expr->queried);
96 even_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
98 sfprintf(sfstdout, "even_act %I*u\n", sizeof(expr->queried), expr
103 even_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
120 odd_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
162 odd_sel(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
176 odd_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
183 odd_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
[all...]
/ast/src/lib/libexpr/
H A Dexcc.c113 print(Excc_t* cc, Exnode_t* expr) argument
118 if (x = expr->data.print.args)
120 sfprintf(cc->ccdisc->text, "sfprintf(%s, \"%s", expr->data.print.descriptor->op == CONSTANT && expr->data.print.descriptor->data.constant.value.integer == 2 ? "sfstderr" : "sfstdout", fmtesq(x->format, quote));
124 for (x = expr->data.print.args; x; x = x->next)
148 scan(Excc_t* cc, Exnode_t* expr) argument
153 if (x = expr->data.print.args)
159 for (x = expr->data.print.args; x; x = x->next)
183 gen(Excc_t* cc, register Exnode_t* expr) argument
194 if (!expr)
556 exccopen(Expr_t* expr, Exccdisc_t* disc) argument
638 exdump(Expr_t* expr, Exnode_t* node, Sfio_t* sp) argument
[all...]
H A Dexparse.y37 struct Exnode_s*expr;
125 %type <expr> statement statement_list arg_list
126 %type <expr> else_opt expr_opt expr
127 %type <expr> args variable assign
128 %type <expr> dcl_list dcl_item index
129 %type <expr> initialize switch_item constant
130 %type <expr> formals formal_list formal_item
157 if ($1 && !(expr.program->disc->flags & EX_STRICT))
159 if (expr
536 expr : '(' expr ')' label
[all...]
H A Dexeval.c76 getdyn(Expr_t* ex, register Exnode_t* expr, void* env, Exassoc_t** assoc) argument
81 if (expr->data.variable.index)
85 v = eval(ex, expr->data.variable.index, env);
86 if (expr->data.variable.index->type != STRING)
91 if (!(b = (Exassoc_t*)dtmatch((Dt_t*)expr->data.variable.symbol->local.pointer, v.string)))
96 dtinsert((Dt_t*)expr->data.variable.symbol->local.pointer, b);
101 if (expr->data.variable.symbol->type == STRING && !b->value.string)
102 b->value = exzero(expr->data.variable.symbol->type);
105 v = exzero(expr->data.variable.symbol->type);
109 return expr
115 Expr_t* expr; member in struct:__anon352
296 print(Expr_t* ex, Exnode_t* expr, void* env, Sfio_t* sp) argument
402 scan(Expr_t* ex, Exnode_t* expr, void* env, Sfio_t* sp) argument
539 eval(Expr_t* ex, register Exnode_t* expr, void* env) argument
1301 exeval(Expr_t* ex, Exnode_t* expr, void* env) argument
[all...]
H A Dexgram.h38 #define exlex() extoken(expr.program)
41 #define QUALIFY(r,s) ((r)&&(expr.program->disc->flags&EX_QUALIFY)?qualify(r,s):(s))
46 Exstate_t expr; variable
319 sfprintf(expr.program->tmp, "%s.%s", ref->symbol->name, sym->name);
320 s = exstash(expr.program->tmp, NiL);
321 if (!(x = (Exid_t*)dtmatch(expr.program->symbols, s)))
327 dtinsert(expr.program->symbols, x);
351 x = exnewnode(expr.program, ID, 0, 0, NiL, NiL);
366 args->data.operand.left = excast(expr.program, args->data.operand.left, type, NiL, num);
397 x = ALLOCATE(expr
[all...]
H A DOexparse.h100 struct Exnode_s*expr; member in union:__anon351
/ast/src/cmd/dsslib/merge/
H A Dmerge.c128 merge_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
133 char** files = expr->files;
264 expr = expr->pass;
265 if (dssbeg(dss, expr))
269 if (dsseval(dss, expr, file->record) < 0)
/ast/src/cmd/dsslib/sort/
H A Dsort.c137 sort_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
287 state->op = expr->op;
288 expr->data = state;
312 sort_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
314 State_t* state = (State_t*)expr->data;
334 sort_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
336 State_t* state = (State_t*)expr->data;
340 if (rswrite(state->sort, expr->op, RS_OTEXT))
361 if (rswrite(state->uniq, expr->op, RS_OTEXT))
/ast/src/cmd/dsslib/validate/
H A Dvalidate.c129 validate_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
229 sfprintf(expr->op, "%16s", field->variable->name);
231 sfprintf(expr->op, " map");
235 sfprintf(expr->op, " name=%s", constraint->name);
237 sfprintf(expr->op, " external");
241 number(expr->op, "default", constraint->def->number, &field->variable->format);
243 number(expr->op, "min", constraint->min->number, &field->variable->format);
245 number(expr->op, "max", constraint->max->number, &field->variable->format);
248 sfprintf(expr->op, " default=\"%-.*s\"", constraint->def->string.size, constraint->def->string.data);
250 sfprintf(expr
282 validate_sel(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
390 validate_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
[all...]
/ast/src/cmd/dsslib/fix/
H A Dfix.c81 fix_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
177 expr->data = state;
185 fix_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
187 register State_t* state = (State_t*)expr->data;
215 fix_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc) argument
217 register State_t* state = (State_t*)expr->data;
272 sfprintf(expr->op, "<METHOD>flat</>\n");
273 sfprintf(expr->op, "<FLAT>\n");
274 sfprintf(expr->op, " <NAME>%s</>\n", DSS(cx)->meth->name);
278 sfprintf(expr
[all...]
/ast/src/cmd/ksh93/bltins/
H A Dtest.c82 static int expr(struct test*,int);
188 return(!expr(&tdata,0));
197 static int expr(struct test *tp,register int flag) function
220 r |= expr(tp,3);
225 r &= expr(tp,2);
261 op = expr(tp,1);
/ast/src/cmd/coshell/
H A Dmisc.c508 int expr; local
516 expr = 0;
558 if (!expr)
560 expr = 2;
881 if (n > 0 && u + n + expr < p->misc + sizeof(p->misc) - 1)
883 if (expr)
885 if (expr == 4)
890 else expr = 4;
896 if (expr) *u++ = ')';

Completed in 36 milliseconds

12