list *l; definition *def; version_list *vp;
if (inetdflag || pmflag) { const char *var_type; #ifdef __GNU_LIBRARY__  var_type = (nomain? "extern" : ""); #else var_type = (nomain? "extern" : "static"); #endif f_print(fout, "%s int _rpcpmstart;", var_type ); f_print(fout, "\t\t/* Started by a port monitor ? */\n"); f_print(fout, "%s int _rpcfdtype;", var_type ); f_print(fout, "\t\t/* Whether Stream or Datagram ? */\n"); if (timerflag) { f_print(fout, "%s int _rpcsvcdirty;", var_type ); f_print(fout, "\t/* Still serving ? */\n"); } write_svc_aux( nomain ); }  write_programs(nomain ? NULL : "static");
write_most(){	list *l;	definition *def;	version_list *vp;	for (l = defined; l != NULL; l = l->next) {		def = (definition *) l->val;		if (def->def_kind == DEF_PROGRAM) {			for (vp = def->def.pr.versions; vp != NULL; vp = vp->next) {				f_print(fout, "\nstatic void ");				pvname(def->def_name, vp->vers_num);				f_print(fout, "();");			}		}	}	f_print(fout, "\n\n");	f_print(fout, "main()\n");	f_print(fout, "{\n");	f_print(fout, "\tSVCXPRT *%s;\n", TRANSP);	f_print(fout, "\n");	for (l = defined; l != NULL; l = l->next) {		def = (definition *) l->val;		if (def->def_kind != DEF_PROGRAM) {			continue;		}		for (vp = def->def.pr.versions; vp != NULL; vp = vp->next) { 			f_print(fout, "\t(void)pmap_unset(%s, %s);\n", def->def_name, vp->vers_name);		}	}}