git.gag.com Git - debian/cpmtools/blob - cpmchattr.c

   1 /* #includes */ /*{{{C}}}*//*{{{*/
   2 #include <ctype.h>
   3 #include <stdio.h>
   4 #include <string.h>
   5 #include <stdlib.h>
   6 #include "config.h"
   7
   8 #include "getopt.h"
   9 #include "cpmfs.h"
  10 /*}}}*/
  11
  12 const char cmd[]="cpmchattr";
  13
  14 int main(int argc, char *argv[]) /*{{{*/
  15 {
  16   /* variables */ /*{{{*/
  17   const char *err;
  18   const char *image;
  19   const char *format=FORMAT;
  20   const char *devopts=NULL;
  21   int c,i,usage=0,exitcode=0;
  22   struct cpmSuperBlock drive;
  23   struct cpmInode root;
  24   int gargc;
  25   char **gargv;
  26   const char *attrs;
  27   /*}}}*/
  28
  29   /* parse options */ /*{{{*/
  30   while ((c=getopt(argc,argv,"T:f:h?"))!=EOF) switch(c)
  31   {
  32     case 'T': devopts=optarg; break;
  33     case 'f': format=optarg; break;
  34     case 'h':
  35     case '?': usage=1; break;
  36   }
  37
  38   if (optind>=(argc-2)) usage=1;
  39   else
  40   {
  41     image=argv[optind];
  42     attrs = argv[optind+1];
  43   }
  44
  45   if (usage)
  46   {
  47     fprintf(stderr,"Usage: %s [-f format] [-T dsktype] image [NMrsa1234] pattern ...\n",cmd);
  48     exit(1);
  49   }
  50   /*}}}*/
  51   /* open image */ /*{{{*/
  52   if ((err=Device_open(&drive.dev, image, O_RDWR, devopts)))
  53   {
  54     fprintf(stderr,"%s: can not open %s (%s)\n",cmd,image,err);
  55     exit(1);
  56   }
  57   cpmReadSuper(&drive,&root,format);
  58   /*}}}*/
  59   cpmglob(optind,argc,argv,&root,&gargc,&gargv);
  60   for (i=0; i<gargc; ++i)
  61   {
  62     struct cpmInode ino;
  63     int rc;
  64     cpm_attr_t attrib;
  65
  66     rc = cpmNamei(&root,gargv[i], &ino)==-1;
  67     if (!rc) rc = cpmAttrGet(&ino, &attrib);
  68     if (!rc)
  69     {
  70         int n, m;
  71         m = 0;
  72         for (n = 0; n < strlen(attrs); n++)
  73         {
  74           int mask = 0;
  75           switch (attrs[n])
  76           {
  77             case 'n':
  78             case 'N': mask = 0; attrib = 0; break;
  79             case 'm':
  80             case 'M': mask = 0; m = !m;   break;
  81             case '1': mask = CPM_ATTR_F1; break;
  82             case '2': mask = CPM_ATTR_F2; break;
  83             case '3': mask = CPM_ATTR_F3; break;
  84             case '4': mask = CPM_ATTR_F4; break;
  85             case 'r':
  86             case 'R': mask = CPM_ATTR_RO; break;
  87             case 's':
  88             case 'S': mask = CPM_ATTR_SYS; break;
  89             case 'a':
  90             case 'A': mask = CPM_ATTR_ARCV; break;
  91             default: fprintf(stderr, "%s: Unknown attribute %c\n", cmd, attrs[n]);
  92                      exit(1);
  93           }
  94           if (m) attrib &= ~mask; else attrib |= mask;
  95         }
  96         rc = cpmAttrSet(&ino, attrib);
  97     }
  98     if (rc)
  99     {
 100       fprintf(stderr,"%s: can not set attributes for %s: %s\n",cmd,gargv[i],boo);
 101       exitcode=1;
 102     }
 103   }
 104   exit(exitcode);
 105 }
 106 /*}}}*/