/*
* RMBIN -- Delete all binary files in a directory tree or trees.
*
* rmbin [-dinrv] [-o extns] [-e extns] dir1 dir2 ... dirN
*
* -d disable recursive descent
* -e exclude files with the following extensions
* -i verify before deleting files without extensions
* -n no execute; do not delete files
* -o delete only files with the following extensions
* -r enable recursive descent
* -v print names of files as they are deleted
*
* Note that flags may be inserted between directory name arguments to change
* switches for different directories.
*
*/
int
main (int argc, char *argv[])
{
char path[SZ_PATHNAME+1];
char *argp;
int argno, i;
ZZSTRT();
if (argc < 2)
goto help_;
only[0] = NULL;
excl[0] = NULL;
path[0] = EOS;
interactive = 0;
recurse = 0;
verbose = 0;
execute = 1;
for (argno=1; (argp = argv[argno]) != NULL; argno++)
if (*argp == '-') {
for (argp++; *argp; argp++)
switch (*argp) {
case 'd': /* disable recursion */
recurse = 0;
break;
case 'i': /* verify deletions */
interactive = 1;
break;
case 'r': /* enable recursion */
recurse = 1;
break;
case 'n': /* no execute */
execute = 0;
/* fall through */
case 'v': /* set verbose mode */
verbose = 1;
break;
case 'e': /* exclude listed files */
i = 0;
argno++;
while (argv[argno] != NULL && *(argv[argno]) == '.' &&
*(argv[argno]+1) != EOS)
excl[i++] = argv[argno++];
--argno;
break;
case 'o': /* only the listed files */
i = 0;
argno++;
while (argv[argno] != NULL && *(argv[argno]) == '.' &&
*(argv[argno]+1) != EOS)
only[i++] = argv[argno++];
--argno;
break;
default:
goto help_;
}
} else
rmbin (argp, recurse, path);
ZZSTOP();
exit (OSOK);
help_:
fprintf (stderr, "rmbin [-dinrv] [-o extns] [-e extns] dir dir ...\n");
ZZSTOP();
exit (OSOK+1);
}
/* MAIN -- UNIX Main routine for IRAF processes. The process is a C process
* to UNIX, even though nearly all the code is Fortran. The process main
* determines whether the process is a connected subprocess, a detached
* process, or a process spawned by the host system. We must set up the
* process standard i/o channels then call the IRAF Main to complete process
* initialization. Control returns when the IRAF Main shuts down the process
* in response to a BYE request. The only other way a process can exit is
* if a panic abort occurs.
*
* The following switches are recognized:
* -C debug -c (IPC) protocol from a terminal
* -c connected subprocess
* -d bkgfile detached subprocess
* -h host process (default)
* -w permit writing into shared image (debugging)
*/
int
main (int argc, char *argv[])
{
XINT inchan=0, outchan=1; /* process stdin, stdout */
XINT errchan=2; /* process std error output */
XINT driver; /* EPA i/o chan device driver */
XINT devtype; /* device type (text or binary) */
XINT jobcode; /* bkg jobcode, if detached pr */
int errstat, len_irafcmd, nchars;
XCHAR *irafcmd;
char *ip;
int arg = 1;
extern int ZGETTX(), ZGETTY(), ZARDPR(), SYSRUK(), ONENTRY();
extern int ZZSTRT(), ZLOCPR(), ZZSETK(), IRAF_MAIN();
/* The following flag must be set before calling ZZSTRT. */
if (argc > 1 && strcmp (argv[arg], "-w") == 0) {
sh_debug++;
arg++;
}
ZZSTRT();
strcpy (os_process_name, argv[0]);
strcpy ((char *)osfn_bkgfile, "");
/* Determine process type. If we were spawned by the host the TTY
* driver is used regardless of whether the standard i/o device is
* a tty or a file. Otherwise the IPC driver is used. If we are a
* detached process the standard input is connected to /dev/null,
* which will cause the IPC driver to return EOF if a task tries to
* read from stdin.
*/
/* Default if no arguments (same as -h, or host process). */
prtype = PR_HOST;
ZLOCPR (ZGETTY, &driver);
devtype = TEXT_FILE;
if (arg < argc) {
if (strcmp (argv[arg], "-C") == 0) {
ipc_isatty = 1;
arg++;
goto ipc_;
} else if (strcmp (argv[arg], "-c") == 0) {
/* Disable SIGINT so that child process does not die when the
* parent process is interrupted. Parent sends SIGTERM to
* interrupt a child process.
*/
signal (SIGINT, SIG_IGN);
arg++;
/* Check if we want IPC debug logging. */
if (getenv (LOGIPC)) {
char fname[SZ_FNAME];
sprintf (fname, "%d.in", getpid());
ipc_in = creat (fname, 0644);
sprintf (fname, "%d.out", getpid());
ipc_out = creat (fname, 0644);
}
ipc_:
prtype = PR_CONNECTED;
ZLOCPR (ZARDPR, &driver);
devtype = BINARY_FILE;
} else if (strcmp (argv[arg], "-d") == 0) {
signal (SIGINT, SIG_IGN);
signal (SIGTSTP, SIG_IGN);
arg++;
/* Put this background process in its own process group,
* so that it will be unaffected by signals sent to the
* parent's process group, and to prevent the detached process
* from trying to read from the parent's terminal.
* [Sun/IRAF Note - this is necessary to prevent SunView from
* axeing bkg jobs when "Exit Suntools" is selected from the
* root menu].
*/
jobcode = getpid();
#if defined(SYSV) || (defined(MACH64) && defined(MACOSX) || defined(IPAD))
setpgrp ();
#else
setpgrp (0, jobcode);
#endif
freopen ("/dev/null", "r", stdin);
prtype = PR_DETACHED;
ZLOCPR (ZGETTX, &driver);
devtype = TEXT_FILE;
/* Copy the bkgfile to PKCHAR buffer to avoid the possibility
* that argv[2] is not PKCHAR aligned.
*/
strcpy ((char *)osfn_bkgfile, argv[arg]);
arg++;
} else if (strcmp (argv[arg], "-h") == 0) {
/* Default case. */
arg++;
}
}
len_irafcmd = SZ_LINE;
irafcmd = (XCHAR *) malloc (len_irafcmd * sizeof(XCHAR));
/* If there are any additional arguments on the command line pass
* these on to the IRAF main as the IRAF command to be executed.
*/
if (arg < argc) {
for (nchars=0; arg < argc; arg++) {
while (nchars + strlen(argv[arg]) > len_irafcmd) {
len_irafcmd += 1024;
irafcmd = (XCHAR *) realloc ((char *)irafcmd,
len_irafcmd * sizeof(XCHAR));
}
for (ip=argv[arg]; (irafcmd[nchars] = *ip++); nchars++)
;
irafcmd[nchars++] = ' ';
}
irafcmd[nchars?nchars-1:0] = XEOS;
} else
irafcmd[0] = XEOS;
/* Pass some parameters into the kernel; avoid a global reference to
* the actual external parmeters (which may be in a shared library
* and hence inaccessible).
*/
ZZSETK (os_process_name, osfn_bkgfile, prtype,
ipc_isatty, ipc_in, ipc_out);
/* Call the IRAF Main, which does all the real work. Return status
* OK when the main returns. The process can return an error status
* code only in the event of a panic.
*/
errstat = IRAF_MAIN (irafcmd, &inchan, &outchan, &errchan,
&driver, &devtype, &prtype, osfn_bkgfile, &jobcode, SYSRUK,ONENTRY);
/* Normal process shutdown. Our only action is to delete the bkgfile
* if run as a detached process (see also zpanic).
*/
if (prtype == PR_DETACHED)
unlink ((char *)osfn_bkgfile);
exit (errstat);
return (0);
}
