Bell 32V development

Work on file usr/src/cmd/rm.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v

diff --git a/usr/src/cmd/rm.c b/usr/src/cmd/rm.c
new file mode 100644 (file)
index 0000000..fcab28c
--- /dev/null
+++ b/usr/src/cmd/rm.c
@@ -0,0 +1,162 @@
+int    errcode;
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/dir.h>
+
+char   *sprintf();
+
+main(argc, argv)
+char *argv[];
+{
+       register char *arg;
+       int fflg, iflg, rflg;
+
+       fflg = 0;
+       if (isatty(0) == 0)
+               fflg++;
+       iflg = 0;
+       rflg = 0;
+       if(argc>1 && argv[1][0]=='-') {
+               arg = *++argv;
+               argc--;
+               while(*++arg != '\0')
+                       switch(*arg) {
+                       case 'f':
+                               fflg++;
+                               break;
+                       case 'i':
+                               iflg++;
+                               break;
+                       case 'r':
+                               rflg++;
+                               break;
+                       default:
+                               printf("rm: unknown option %s\n", *argv);
+                               exit(1);
+                       }
+       }
+       while(--argc > 0) {
+               if(!strcmp(*++argv, "..")) {
+                       fprintf(stderr, "rm: cannot remove `..'\n");
+                       continue;
+               }
+               rm(*argv, fflg, rflg, iflg, 0);
+       }
+
+       exit(errcode);
+}
+
+rm(arg, fflg, rflg, iflg, level)
+char arg[];
+{
+       struct stat buf;
+       struct direct direct;
+       char name[100];
+       int d;
+
+       if(stat(arg, &buf)) {
+               if (fflg==0) {
+                       printf("rm: %s nonexistent\n", arg);
+                       ++errcode;
+               }
+               return;
+       }
+       if ((buf.st_mode&S_IFMT) == S_IFDIR) {
+               if(rflg) {
+                       if (access(arg, 02) < 0) {
+                               if (fflg==0)
+                                       printf("%s not changed\n", arg);
+                               errcode++;
+                               return;
+                       }
+                       if(iflg && level!=0) {
+                               printf("directory %s: ", arg);
+                               if(!yes())
+                                       return;
+                       }
+                       if((d=open(arg, 0)) < 0) {
+                               printf("rm: %s: cannot read\n", arg);
+                               exit(1);
+                       }
+                       while(read(d, (char *)&direct, sizeof(direct)) == sizeof(direct)) {
+                               if(direct.d_ino != 0 && !dotname(direct.d_name)) {
+                                       sprintf(name, "%s/%.14s", arg, direct.d_name);
+                                       rm(name, fflg, rflg, iflg, level+1);
+                               }
+                       }
+                       close(d);
+                       errcode += rmdir(arg, iflg);
+                       return;
+               }
+               printf("rm: %s directory\n", arg);
+               ++errcode;
+               return;
+       }
+
+       if(iflg) {
+               printf("%s: ", arg);
+               if(!yes())
+                       return;
+       }
+       else if(!fflg) {
+               if (access(arg, 02)<0) {
+                       printf("rm: %s %o mode ", arg, buf.st_mode&0777);
+                       if(!yes())
+                               return;
+               }
+       }
+       if(unlink(arg) && (fflg==0 || iflg)) {
+               printf("rm: %s not removed\n", arg);
+               ++errcode;
+       }
+}
+
+dotname(s)
+char *s;
+{
+       if(s[0] == '.')
+               if(s[1] == '.')
+                       if(s[2] == '\0')
+                               return(1);
+                       else
+                               return(0);
+               else if(s[1] == '\0')
+                       return(1);
+       return(0);
+}
+
+rmdir(f, iflg)
+char *f;
+{
+       int status, i;
+
+       if(dotname(f))
+               return(0);
+       if(iflg) {
+               printf("%s: ", f);
+               if(!yes())
+                       return(0);
+       }
+       while((i=fork()) == -1)
+               sleep(3);
+       if(i) {
+               wait(&status);
+               return(status);
+       }
+       execl("/bin/rmdir", "rmdir", f, 0);
+       execl("/usr/bin/rmdir", "rmdir", f, 0);
+       printf("rm: can't find rmdir\n");
+       exit(1);
+}
+
+yes()
+{
+       int i, b;
+
+       i = b = getchar();
+       while(b != '\n' && b != EOF)
+               b = getchar();
+       return(i == 'y');
+}