Lines Matching refs:sym
544 register Exid_t* sym = (Exid_t*)object;
546 if (sym->lex == DYNAMIC)
547 sfprintf(cc->ccdisc->text, "static %s %s;\n", extype(sym->type), sym->name);
607 * generate the program for name or sym coerced to type
611 excc(Excc_t* cc, const char* name, Exid_t* sym, int type)
617 if (!sym)
618 sym = name ? (Exid_t*)dtmatch(cc->expr->symbols, name) : &cc->expr->main;
619 if (sym && sym->lex == PROCEDURE && sym->value)
622 sfprintf(cc->ccdisc->text, "\n%s %s%s(data) char** data; {\n%s _%svalue = 0;\n", t, cc->id, sym->name, t, cc->id);
623 gen(cc, sym->value->data.procedure.body);
642 Exid_t* sym;
652 for (sym = (Exid_t*)dtfirst(expr->symbols); sym; sym = (Exid_t*)dtnext(expr->symbols, sym))
653 if (sym->lex == PROCEDURE && sym->value)
655 sfprintf(sp, "%s:\n", sym->name);
656 gen(cc, sym->value->data.procedure.body);