New upstream version 2.20
[debian/cpmtools] / cpmrm.c
1 /* #includes */ /*{{{C}}}*//*{{{*/
2 #include "config.h"
3
4 #include <ctype.h>
5 #include <errno.h>
6 #include <stdio.h>
7 #include <string.h>
8 #include <stdlib.h>
9
10 #include "getopt_.h"
11 #include "cpmfs.h"
12
13 #ifdef USE_DMALLOC
14 #include <dmalloc.h>
15 #endif
16 /*}}}*/
17
18 const char cmd[]="cpmrm";
19
20 int main(int argc, char *argv[]) /*{{{*/
21 {
22   /* variables */ /*{{{*/
23   const char *err;
24   const char *image;
25   const char *format;
26   const char *devopts=NULL;
27   int c,i,usage=0,exitcode=0;
28   struct cpmSuperBlock drive;
29   struct cpmInode root;
30   int gargc;
31   char **gargv;
32   /*}}}*/
33
34   /* parse options */ /*{{{*/
35   if (!(format=getenv("CPMTOOLSFMT"))) format=FORMAT;
36   while ((c=getopt(argc,argv,"T:f:h?"))!=EOF) switch(c)
37   {
38     case 'T': devopts=optarg; break;
39     case 'f': format=optarg; break;
40     case 'h':
41     case '?': usage=1; break;
42   }
43
44   if (optind>=(argc-1)) usage=1;
45   else image=argv[optind++];
46
47   if (usage)
48   {
49     fprintf(stderr,"Usage: %s [-f format] [-T dsktype] image pattern ...\n",cmd);
50     exit(1);
51   }
52   /*}}}*/
53   /* open image */ /*{{{*/
54   if ((err=Device_open(&drive.dev, image, O_RDWR, devopts)))
55   {
56     fprintf(stderr,"%s: cannot open %s (%s)\n",cmd,image,err);
57     exit(1);
58   }
59   if (cpmReadSuper(&drive,&root,format)==-1)
60   {
61     fprintf(stderr,"%s: cannot read superblock (%s)\n",cmd,boo);
62     exit(1);
63   }
64   /*}}}*/
65   cpmglob(optind,argc,argv,&root,&gargc,&gargv);
66   for (i=0; i<gargc; ++i)
67   {
68     if (cpmUnlink(&root,gargv[i])==-1)
69     {
70       fprintf(stderr,"%s: can not erase %s: %s\n",cmd,gargv[i],boo);
71       exitcode=1;
72     }
73   }
74   cpmUmount(&drive);
75   exit(exitcode);
76 }
77 /*}}}*/