sys/src/cmd/iconv.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <draw.h>
   4 #include <memdraw.h>
   5
   6 void
   7 usage(void)
   8 {
   9         fprint(2, "usage: iconv [-u] [-c chanstr] [file]\n");
  10         exits("usage");
  11 }
  12
  13 void
  14 writeuncompressed(int fd, Memimage *m)
  15 {
  16         char chanstr[32];
  17         int bpl, y, j;
  18         uchar *buf;
  19
  20         if(chantostr(chanstr, m->chan) == nil)
  21                 sysfatal("can't convert channel descriptor: %r");
  22         fprint(fd, "%11s %11d %11d %11d %11d ",
  23                 chanstr, m->r.min.x, m->r.min.y, m->r.max.x, m->r.max.y);
  24
  25         bpl = bytesperline(m->r, m->depth);
  26         buf = malloc(bpl);
  27         if(buf == nil)
  28                 sysfatal("malloc failed: %r");
  29         for(y=m->r.min.y; y<m->r.max.y; y++){
  30                 j = unloadmemimage(m, Rect(m->r.min.x, y, m->r.max.x, y+1), buf, bpl);
  31                 if(j != bpl)
  32                         sysfatal("image unload failed: %r");
  33                 if(write(fd, buf, bpl) != bpl)
  34                         sysfatal("write failed: %r");
  35         }
  36         free(buf);
  37 }
  38
  39 void
  40 main(int argc, char *argv[])
  41 {
  42         char *tostr, *file;
  43         int fd, uncompressed;
  44         ulong tochan;
  45         Memimage *m, *n;
  46
  47         tostr = nil;
  48         uncompressed = 0;
  49         ARGBEGIN{
  50         case 'c':
  51                 tostr = EARGF(usage());
  52                 break;
  53         case 'u':
  54                 uncompressed = 1;
  55                 break;
  56         default:
  57                 usage();
  58         }ARGEND
  59
  60         memimageinit();
  61
  62         file = "<stdin>";
  63         m = nil;
  64
  65         switch(argc){
  66         case 0:
  67                 m = readmemimage(0);
  68                 break;
  69         case 1:
  70                 file = argv[0];
  71                 fd = open(file, OREAD);
  72                 if(fd < 0)
  73                         sysfatal("can't open %s: %r", file);
  74                 m = readmemimage(fd);
  75                 close(fd);
  76                 break;
  77         default:
  78                 usage();
  79         }
  80
  81         if(m == nil)
  82                 sysfatal("can't read %s: %r", file);
  83
  84         if(tostr == nil)
  85                 tochan = m->chan;
  86         else{
  87                 tochan = strtochan(tostr);
  88                 if(tochan == 0)
  89                         sysfatal("bad channel descriptor '%s'", tostr);
  90         }
  91
  92         n = allocmemimage(m->r, tochan);
  93         if(n == nil)
  94                 sysfatal("can't allocate new image: %r");
  95
  96         memimagedraw(n, n->r, m, m->r.min, nil, ZP, S);
  97         if(uncompressed)
  98                 writeuncompressed(1, n);
  99         else
 100                 writememimage(1, n);
 101         exits(nil);
 102 }