home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Unix / text / texttotiff.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-23  |  2.5 KB  |  109 lines
  1. /* Produce "no alpha" .tiff files from text file input */
  2. /* Eric P. Scott, San Francisco State University, July 1989 */
  3. /* cc -bsd -O -o texttotiff -s texttotiff.c */
  4. #include <stdio.h>
  5. struct {
  6.     long tiff_magic, tiff_firstifd;
  7.     short tiff_ifdents;
  8.     struct ifdent {
  9.         short ifd_tag, ifd_type;
  10.         long ifd_len, ifd_off;
  11.     } tiff_ifd[8];
  12.     long tiff_ifdchain;
  13. } header={    /* warning: nonportable */
  14.     0x4d4d002aL, 8L, 8, {
  15.         { 255, 3, 1L, 1L<<16 },
  16.         { 256, 3, 1L, 0L<<16 },    /* ImageWidth */
  17.         { 257, 3, 1L, 0L<<16 }, /* ImageLength */
  18.         { 262, 3, 1L, 1L<<16 },
  19.         { 277, 3, 1L, 1L<<16 },
  20.         { 284, 3, 1L, 2L<<16 },
  21.         { 258, 3, 1L, 2L<<16 },
  22.         { 273, 4, 1L, 110L }
  23.     }, 0L
  24. }; /* "just like Icon" */
  25. char lex[]="#*+.";    /* these characters represent gray levels */
  26.  
  27. main(argc, argv)
  28. int argc;
  29. char *argv[];
  30. {
  31.     char *index(), *malloc();
  32.     register char *q, *p;
  33.     register unsigned char *o;
  34.     register int n;
  35.     register char *a, *w;
  36.     char line[1122];
  37.  
  38.     if (argc!=3) {
  39.         fprintf(stderr, "Usage: %s text-file tiff-file\n", *argv);
  40.         exit(1);
  41.     }
  42.     if (strcmp(argv[1], "-")&&!freopen(argv[1], "r", stdin)) {
  43.         perror(argv[1]);
  44.         exit(1);
  45.     }
  46.     if (strcmp(argv[2], "-")&&!freopen(argv[2], "w", stdout)) {
  47.         perror(argv[2]);
  48.         exit(1);
  49.     }
  50.     if (!fgets(line, sizeof line, stdin)) {
  51.         fprintf(stderr, "%s: empty file?!?\n", *argv);
  52.         exit(1);
  53.     }
  54.     if (p=index(line, '\n')) *p='\0';
  55.     else {
  56.         fprintf(stderr, "%s: internal buffer overflow\n",
  57.             *argv);
  58.         exit(1);
  59.     }
  60.     if (p==line) {
  61.         fprintf(stderr, "%s: blank line?!?\n", *argv);
  62.         exit(1);
  63.     }
  64.     if (!(a=malloc((p-line)*208))) {
  65.         fprintf(stderr, "%s: malloc failure\n", *argv);
  66.         exit(1);
  67.     }
  68.     header.tiff_ifd[1].ifd_off=(p-line)<<16;
  69.     w=p; o=(unsigned char *)a;
  70.     for (n=1;;) {
  71.         p=line; do {
  72.             if (!(q=index(lex, *p++))) {
  73.             bad:
  74.                 fprintf(stderr,
  75. "%s: illegal character on line %d col %d\n", *argv, n, p-line);
  76.                 exit(1);
  77.             }
  78.             *o=(q-lex)<<6;
  79.             if (!*p) { o++; break; }
  80.             if (!(q=index(lex, *p++))) goto bad;
  81.             *o|=(q-lex)<<4;
  82.             if (!*p) { o++; break; }
  83.             if (!(q=index(lex, *p++))) goto bad;
  84.             *o|=(q-lex)<<2;
  85.             if (!*p) { o++; break; }
  86.             if (!(q=index(lex, *p++))) goto bad;
  87.             *o++|=(q-lex);
  88.         } while (*p);
  89.         if (!fgets(line, sizeof line, stdin)) break;
  90.         if (++n>832||(p=index(line, '\n'))) *p='\0';
  91.         else {
  92.             fprintf(stderr,
  93.                 "%s: internal buffer overflow on line %d\n",
  94.                 *argv, n);
  95.             exit(1);
  96.         }
  97.         if (p!=w) {
  98.             fprintf(stderr,
  99. "%s: image not rectangular on line %d\n", *argv, n);
  100.             exit(1);
  101.         }
  102.     }
  103.     header.tiff_ifd[2].ifd_off=n<<16;
  104.     fwrite((char *)&header, sizeof header, 1, stdout);
  105.     fwrite(a, (char *)o-a, 1, stdout);
  106.     fflush(stdout);
  107.     exit(0);
  108. }
  109.