write_pm_most (infile, netflag);
if (mtflag & timerflag) f_print (fout, "\tmutex_init (&_svcstate_lock, USYNC_THREAD, NULL);\n");  write_pm_most (infile, netflag);
write_most (const char *infile /* our name */ , int netflag, int nomain){  if (inetdflag || pmflag)    {      const char *var_type;#ifdef __GNU_LIBRARY__      /* WHY? */      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 out dispatcher and stubs */  write_programs (nomain ? NULL : "static");  if (nomain)    return;#ifdef __GNU_LIBRARY__  if (Cflag)    f_print (fout, "\nint\nmain(int argc, char **argv)\n");  else    {      f_print (fout, "\nint\nmain(argc, argv)\n");      f_print (fout, "\tint argc;\n");      f_print (fout, "\tchar **argv;\n");    }#else  f_print (fout, "\nmain()\n");#endif  f_print (fout, "{\n");  if (inetdflag)    {      write_inetmost (infile);	/* Includes call to write_rpc_svc_fg() */    }  else    {      if (tirpcflag)	{	  if (netflag)	    {	      f_print (fout, "\tregister SVCXPRT *%s;\n", TRANSP);	      f_print (fout, "\tstruct netconfig *nconf = NULL;\n");	    }	  f_print (fout, "\tpid_t pid;\n");	  f_print (fout, "\tint i;\n");	  f_print (fout, "\tchar mname[FMNAMESZ + 1];\n\n");	  write_pm_most (infile, netflag);	  f_print (fout, "\telse {\n");	  write_rpc_svc_fg (infile, "\t\t");	  f_print (fout, "\t}\n");	}      else	{	  f_print (fout, "\tregister SVCXPRT *%s;\n", TRANSP);	  f_print (fout, "\n");	  print_pmapunset ("\t");	}    }  if (logflag && !inetdflag)    {      open_log_file (infile, "\t");    }}