head 1.2;A access ; symbols ; locks ; strict; comment @ * @; 1.2 date 85.03.03.22.29.34; author root; state Exp; branches ; next 1.1; 1.1 date 85.02.24.17.32.50; author bbanerje; state Exp; branches ; next ; desc @This is the distribution of the text editor SCAME as received over net.sources. Two minor bugs were fixed prior to placing it under RCS. @ 1.2 log @Some further bug fixes. Correspond to bugfix.3 in this directory. @ text @/* SCAME scame-reaper.c */ /* Revision 1.0.2 1985-02-19 */ static char *cpyrid = "@@(#)Copyright (C) 1985 by Leif Samuelsson"; #include #include #include #include "config.h" #define MAXPIDS 200 #define min(a,b) ((a)<(b)?(a):(b)) int nentries= 0; int nunlinked= 0; struct direct dirent, *dp = &dirent; extern FILE *popen(); char tempdir[] = TMPFILE; extern char *rindex(); main(argc,argv) int argc; char **argv; { int trace = (argc > 1); int pids[MAXPIDS], i,n,pid; #ifdef DIRBLKSIZ DIR *d; #endif FILE *f; char line[80]; long t; char *ctime(); char *s, *cp; if ((cp = rindex(tempdir, '/')) != (char *)0) *cp = '\0'; chdir(tempdir); if (trace) { printf("Scame-Reaper:\n"); system("date"); system("pwd"); } #ifdef S5 if ((f = popen("ps -el", "r")) == NULL) #else if ((f = popen("ps -ax", "r")) == NULL) #endif fatal("Can't do ps"); i = 0; fscanf(f, "%*[^\n]"); do fscanf(f, "%d%*[^\n]", &pids[i]); while ((pids[i] != 0 || i == 0) && ++i < MAXPIDS); n=i; pclose(f); #ifdef DIRBLKSIZ if ((d=opendir(".")) == NULL) fatal("Can't open directory file"); while ((dp = readdir(d)) != 0) { #else if ((f=fopen(".", "r")) == NULL) fatal("Can't open directory file"); while (fread(dp, sizeof dirent, 1, f) != 0) { #endif if (dp->d_ino == 0 || dp->d_name[0] != 'S') continue; for (i=1; i <= 10; i++) if (dp->d_name[i] < '0' || dp->d_name[i] > '9') goto loop; nentries++; sscanf(dp->d_name, "%*[^0123456789]%5d", &pid); for (i=0; id_name) != 0) printf("Can't remove %s\n", dp->d_name); else nunlinked++; loop: continue; } pclose(f); if (trace) printf("Done. %d files, %d removed\n", nentries, nunlinked); } fatal(s) char *s; { printf("%s, ", s); perror(); exit(1); } @ 1.1 log @Initial revision @ text @d3 1 a3 1 /* Revision 1.0.1 1985-02-15 */ d73 1 a73 1 if (dp->d_name[i] < '0' || dp->d_name[1] > '9') @