model_server/gala/dis_gala/gala_interp.cxx
//builds list of discover directories which ought to be deleted.
//usage is dis_build_dead_dirs [-n]
// returns a TCL list of dead dirs or (-n) the number of dead dirs
builds list of discover directories which ought to be deleted.
usage is dis_build_dead_dirs [-n]
returns a TCL list of dead dirs or (-n) the number of dead dirs
builds list of discover directories which ought to be deleted . usage is dis_build_dead_dirs [ - n ] returns a TCL list of dead dirs or ( - n ) the number of dead dirs
int dis_build_dead_dirs(ClientData, Tcl_Interp *interp, int argc, char *argv[])
{
	int nRet=TCL_ERROR;
	if (argc <3)
	{
		char * t=NULL;
		int x=0;
		x=build_dead_dirs(t);
		nRet=TCL_OK;
		if (argc==2 && !strcmp(argv[1],"-n"))
		{
		  char  pszResult [4];
		  sprintf(pszResult, "%d%",x);
		  Tcl_SetResult(interp, pszResult, TCL_STATIC);
		}
		else {
		Tcl_SetResult(interp, t, TCL_VOLATILE);
		}
		if (t)
		FREE_MEMORY(t);
	}
	else
		TCL_EXECERR("syntax: dis_build_dead_dirs [-n]")
	return nRet;
}
int dis_build_dead_dirs ( ClientData , Tcl_Interp * interp , int argc , char * argv [ ] ) { int nRet = TCL_ERROR ; if ( argc < 3 ) { char * t = NULL ; int x = 0 ; x = build_dead_dirs ( t ) ; nRet = TCL_OK ; if ( argc == 2 && ! strcmp ( argv [ 1 ] , " " ) ) { char pszResult [ 4 ] ; sprintf ( pszResult , " " , x ) ; Tcl_SetResult ( interp , pszResult , TCL_STATIC ) ; } else { Tcl_SetResult ( interp , t , TCL_VOLATILE ) ; } if ( t ) FREE_MEMORY ( t ) ; } else TCL_EXECERR ( " " ) return nRet ; }
builds list of discover directories which ought to be deleted.
builds list of discover directories which ought to be deleted .