switch(decl->rel) { case  REL_ALIAS : emit_single_in_line(decl,flag,REL_ALIAS); break; case REL_VECTOR : f_print(fout,"\t\t{ register %s *genp; \n",decl->type); f_print(fout,"\t\t  for ( i = 0,genp=objp->%s;\n \t\t\ti < %s; i++){\n\t\t", decl->name,decl->array_max); emit_single_in_line(decl,flag,REL_VECTOR); f_print(fout,"\t\t   }\n\t\t };\n");  default:  }
switch (decl->rel) { case REL_ALIAS: emit_single_in_line (indent, decl, flag, REL_ALIAS); break; case REL_VECTOR: tabify (fout, indent); f_print (fout, "{\n"); tabify (fout, indent + 1); f_print (fout, "register %s *genp;\n\n", decl->type); tabify (fout, indent + 1); f_print (fout, "for (i = 0, genp = objp->%s;\n", decl->name); tabify (fout, indent + 2); f_print (fout, "i < %s; ++i) {\n", decl->array_max); emit_single_in_line (indent + 2, decl, flag, REL_VECTOR); tabify (fout, indent + 1); f_print (fout, "}\n"); tabify (fout, indent); f_print (fout, "}\n"); break; default:  }
emit_inline(declaration *decl, int flag){/*check whether an array or not */switch(decl->rel)  { case  REL_ALIAS :  emit_single_in_line(decl,flag,REL_ALIAS);  break; case REL_VECTOR :   f_print(fout,"\t\t{ register %s *genp; \n",decl->type);   f_print(fout,"\t\t  for ( i = 0,genp=objp->%s;\n \t\t\ti < %s; i++){\n\t\t",	   decl->name,decl->array_max);  emit_single_in_line(decl,flag,REL_VECTOR);    f_print(fout,"\t\t   }\n\t\t };\n");  default:    /* ?... do nothing I guess */  }}