| /ast/src/lib/libexpr/ |
| H A D | exrewind.c | 31 exrewind(Expr_t* ex) argument
35 if (ex->linewrap)
40 if (!ex->input->pushback && !(ex->input->pushback = oldof(0, char, sizeof(ex->line), 3)))
45 if (n = ex->linep - ex->line)
46 memcpy(ex->input->pushback, ex->line, n);
47 if (ex
61 exstatement(Expr_t* ex) argument
[all...] |
| H A D | exexpr.c | 35 exexpr(Expr_t* ex, const char* name, Exid_t* sym, int type) argument
37 if (ex)
40 sym = name ? (Exid_t*)dtmatch(ex->symbols, name) : &ex->main;
44 return excast(ex, sym->value->data.procedure.body, type, NiL, 0);
45 exfreenode(ex, sym->value);
|
| H A D | extoken.c | 41 trace(Expr_t* ex, int lev, char* op, int c) argument
193 error(TRACE_lex + lev, "%s: [%d] %04d%s%s", op, ex->input->nesting, c, s, t);
203 extoken(Expr_t* ex) argument
209 c = extoken(ex);
210 trace(ex, 0, "exlex", c);
225 lex(register Expr_t* ex) argument
231 if (c = ex->input->peek)
232 ex->input->peek = 0;
233 else if (ex->input->pp)
235 if (!(c = *ex
283 extoken(register Expr_t* ex) argument
[all...] |
| H A D | exeval.c | 76 getdyn(Expr_t* ex, register Exnode_t* expr, void* env, Exassoc_t** assoc) argument
85 v = eval(ex, expr->data.variable.index, env);
296 print(Expr_t* ex, Exnode_t* expr, void* env, Sfio_t* sp) argument
304 v = eval(ex, expr->data.print.descriptor, env);
305 if (v.integer < 0 || v.integer >= elementsof(ex->file) || !(sp = ex->file[v.integer]) && !(sp = ex->file[v.integer] = sfnew(NiL, NiL, SF_UNBOUND, v.integer, SF_READ|SF_WRITE)))
314 fmt.expr = ex;
331 v = eval(ex, x->arg->data.operand.left, env);
402 scan(Expr_t* ex, Exnode_ argument
445 str_add(Expr_t* ex, register char* l, register char* r) argument
456 str_ior(Expr_t* ex, register char* l, register char* r) argument
475 str_and(Expr_t* ex, register char* l, register char* r) argument
490 str_xor(Expr_t* ex, register char* l, register char* r) argument
509 str_mod(Expr_t* ex, register char* l, register char* r) argument
524 str_mpy(Expr_t* ex, register char* l, register char* r) 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...] |
| /ast/src/lib/libcoshell/ |
| H A D | coexport.c | 37 Coexport_t* ex; local
53 if (!(ex = (Coexport_t*)dtmatch(co->export, name)))
57 if (!(ex = vmnewof(co->vm, 0, Coexport_t, 1, strlen(name))))
59 strcpy(ex->name, name);
60 dtinsert(co->export, ex);
62 if (ex->value)
64 vmfree(co->vm, ex->value);
65 ex->value = 0;
71 ex->value = v;
75 dtdelete(co->export, ex);
[all...] |
| H A D | coinit.c | 73 Coexport_t* ex; local
98 for (ex = (Coexport_t*)dtfirst(co->export); ex; ex = (Coexport_t*)dtnext(co->export, ex))
100 sfprintf(sp, "%s%s", v, ex->name);
101 exid(sp, v, ex->name, "");
126 Coexport_t* ex; local
253 for (ex = (Coexport_t*)dtfirst(co->export); ex; e
[all...] |
| /ast/src/lib/libast/sfio/ |
| H A D | sfclose.c | 36 reg int local, ex, rv; local
74 if(f->disc && (ex = SFRAISE(f,local ? SF_NEW : SF_CLOSING,NIL(Void_t*))) != 0)
75 SFMTXRETURN(f,ex);
160 { if(f->disc && (ex = SFRAISE(f,SF_FINAL,NIL(Void_t*))) != 0 )
161 { rv = ex;
|
| /ast/src/lib/libast/string/ |
| H A D | strexpr.c | 43 #define getchr(ex) (*(ex)->nextchr++)
44 #define peekchr(ex) (*(ex)->nextchr)
45 #define ungetchr(ex) ((ex)->nextchr--)
47 #define error(ex,msg) return(seterror(ex,msg))
63 seterror(register Expr_t* ex, char* msg) argument
65 if (!ex
76 expr(register Expr_t* ex, register int precedence) argument
277 Expr_t ex; local
[all...] |
| /ast/src/lib/libcs/ |
| H A D | cspoll.c | 57 fd_set ex; local
58 register fd_set* ep = &ex;
|
| /ast/src/cmd/dsslib/num_t/ |
| H A D | num_t.c | 771 register unsigned int ex; local
800 ex = lo + ((hi - lo) >> 1);
801 if (ibm_exp[ex] < f)
802 lo = ex + 1;
804 hi = ex - 1;
806 if (ibm_exp[ex] < f)
807 ex++;
814 f /= ibm_exp[ex];
830 ex++;
832 if (ex >
[all...] |