Imported Upstream version 2.10
[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=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   while ((c=getopt(argc,argv,"T:f:h?"))!=EOF) switch(c)
36   {
37     case 'T': devopts=optarg; break;
38     case 'f': format=optarg; break;
39     case 'h':
40     case '?': usage=1; break;
41   }
42
43   if (optind>=(argc-1)) usage=1;
44   else image=argv[optind++];
45
46   if (usage)
47   {
48     fprintf(stderr,"Usage: %s [-f format] [-T dsktype] image pattern ...\n",cmd);
49     exit(1);
50   }
51   /*}}}*/
52   /* open image */ /*{{{*/
53   if ((err=Device_open(&drive.dev, image, O_RDWR, devopts)))
54   {
55     fprintf(stderr,"%s: can not open %s (%s)\n",cmd,image,err);
56     exit(1);
57   }
58   cpmReadSuper(&drive,&root,format);
59   /*}}}*/
60   cpmglob(optind,argc,argv,&root,&gargc,&gargv);
61   for (i=0; i<gargc; ++i)
62   {
63     if (cpmUnlink(&root,gargv[i])==-1)
64     {
65       fprintf(stderr,"%s: can not erase %s: %s\n",cmd,gargv[i],boo);
66       exitcode=1;
67     }
68   }
69   exit(exitcode);
70 }
71 /*}}}*/