decl
char decl[2 * BUFLEN];
sprintf(decl, "union node *%s", name);
sprintf(decl, "struct nodelist *%s", name);
sprintf(decl, "char *%s", name);
sprintf(decl, "int %s", name);
fp->decl = savestr(linep);
fp->decl = savestr(decl);
fprintf(hfile, " %s;\n", fp->decl);
char *decl; /* declaration of field */
if (ps.p_stack[ps.tos] == decl && !ps.block_init) /* semicolons can be
case decl: /* we have a declaration type (int, etc.) */
parse(decl); /* let parser worry about indentation */
return (decl);
return (decl);
return decl;
if (state->last_token == decl) /* if this is a declared variable,
if (ps.p_stack[ps.tos] == stmt || ps.p_stack[ps.tos] == decl
case decl: /* finish of a declaration */
case decl: /* scanned a declaration word */
if (ps.p_stack[ps.tos] != decl) { /* only put one declaration
ps.p_stack[++ps.tos] = decl;
if (ps.p_stack[i] == decl)
ptype(proc->args.decls->decl.prefix,
proc->args.decls->decl.type, 1);
} else if (streq(proc->args.decls->decl.type, "void")) {
pdeclaration(proc->args.argname, &l->decl, 0, ", ");
(streq(proc->args.decls->decl.type, "void"))) {
l->decl.name, l->decl.name);
stringfix(proc->args.decls->decl.type),
(newstyle) ? proc->args.decls->decl.name : "argp",
stringfix(proc->args.decls->decl.type),
(newstyle) ? proc->args.decls->decl.name : "argp",
print_stat(1, &dl->decl);
if ((dl->decl.prefix == NULL) &&
((ptr = find_type(dl->decl.type)) != NULL) &&
((dl->decl.rel == REL_ALIAS) ||
(dl->decl.rel == REL_VECTOR))){
if (dl->decl.rel == REL_ALIAS) {
plus, dl->decl.array_max,
dl->decl.array_max);
&cur->decl);
print_stat(indent + 2, &cur->decl);
emit_inline(indent + 2, &cur->decl, flag);
print_stat(indent + 1, &dl->decl);
print_stat(indent + 1, &cur->decl);
print_stat(indent + 2, &cur->decl);
emit_inline(indent + 2, &cur->decl, flag);
print_stat(1, &dl->decl);
if (dl->decl.rel == REL_VECTOR){
if ((dl->decl.prefix == NULL) &&
((ptr = find_type(dl->decl.type)) != NULL) &&
((dl->decl.rel == REL_ALIAS)||
(dl->decl.rel == REL_VECTOR))) {
if (dl->decl.rel == REL_ALIAS)
print_stat(1, &dl->decl);
print_stat(1, &dl->decl);
emit_inline(int indent, declaration *decl, int flag)
switch (decl->rel) {
emit_single_in_line(indent, decl, flag, REL_ALIAS);
f_print(fout, "%s *genp;\n\n", decl->type);
f_print(fout, "for (i = 0, genp = objp->%s;\n", decl->name);
f_print(fout, "i < %s; i++) {\n", decl->array_max);
emit_single_in_line(indent + 2, decl, flag, REL_VECTOR);
emit_single_in_line(int indent, declaration *decl, int flag, relation rel)
f_print(fout, "objp->%s = IXDR_GET_", decl->name);
upp_case = upcase(decl->type);
decl->name);
pdeclaration(name, &l->decl, 1, ";\n");
pdeclaration(name, &l->decl, 1, ";\n");
declaration *decl;
decl = &def->def.un.enum_decl;
if (streq(decl->type, "bool"))
f_print(fout, "\tbool_t %s;\n", decl->name);
f_print(fout, "\t%s %s;\n", decl->type, decl->name);
decl = def->def.un.default_decl;
if (decl && !streq(decl->type, "void")) {
pdeclaration(name, decl, 2, ";\n");
streq(proc->args.decls->decl.type, "void")) {
ptype(dl->decl.prefix, dl->decl.type, 1);
decls->decl = dec;
decls->decl = dec;
decls->decl = dec;
declaration decl;
if(!streq(proc->args.decls->decl.type, "void"))
ptype(proc->args.decls->decl.prefix,
proc->args.decls->decl.type, 1);
} else if (!streq(proc->args.decls->decl.type, "void")) {
ptype(l->decl.prefix, l->decl.type, 1);
if (strcmp(l->decl.type,"string") == 1)
f_print(fout, "_%s;\n", l->decl.name);
if(streq(proc->args.decls->decl.type, "void")) {
} else if (streq(proc->args.decls->decl.type, "void")) {
f_print(fout, "_%s, ", l->decl.name);
ptype(proc->args.decls->decl.prefix,
proc->args.decls->decl.type, 0);
if (!streq(proc->args.decls->decl.type, "void"))
l->decl.name);
if (streq(proc->args.decls->decl.type, "void"))
ptype(proc->args.decls->decl.prefix,
proc->args.decls->decl.type, 0);
p_xdrfunc(ARG, proc->args.decls->decl.type);
printit(proc->args.decls->decl.prefix,
proc->args.decls->decl.type);