Return to pbmtofax.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / others / quipu / photo

Annotation of 43BSDReno/contrib/isode-beta/others/quipu/photo/pbmtofax.c, revision 1.1.1.1

1.1       root        1: /* pbmtofax.c - pbm to FAX filter */
                      2: 
                      3: #ifndef        lint
                      4: static char *rcsid = "$Header: /f/osi/others/quipu/photo/RCS/pbmtofax.c,v 7.1 90/07/09 14:40:29 mrose Exp $";
                      5: #endif
                      6: 
                      7: /* 
                      8:  * $Header: /f/osi/others/quipu/photo/RCS/pbmtofax.c,v 7.1 90/07/09 14:40:29 mrose Exp $
                      9:  *
                     10:  *
                     11:  * $Log:       pbmtofax.c,v $
                     12:  * Revision 7.1  90/07/09  14:40:29  mrose
                     13:  * sync
                     14:  * 
                     15:  * Revision 7.0  89/11/23  22:01:46  mrose
                     16:  * Release 6.0
                     17:  * 
                     18:  */
                     19: 
                     20: /*
                     21:  *                               NOTICE
                     22:  *
                     23:  *    Acquisition, use, and distribution of this module and related
                     24:  *    materials are subject to the restrictions of a license agreement.
                     25:  *    Consult the Preface in the User's Manual for the full terms of
                     26:  *    this agreement.
                     27:  *
                     28:  */
                     29: 
                     30: 
                     31: #include <stdio.h>
                     32: #include "quipu/photo.h"
                     33: #include "pbm/pbm.h"
                     34: 
                     35: /*    DATA */
                     36: 
                     37: int    PIC_LINESIZE, STOP, NUMLINES;
                     38: 
                     39: extern int     optlen;
                     40: 
                     41: 
                     42: char   *encode_t4 ();
                     43: 
                     44: 
                     45: char   *malloc ();
                     46: 
                     47: /*    MAIN */
                     48: 
                     49: /* ARGSUSED */
                     50: 
                     51: main (argc, argv, envp)
                     52: int    argc;
                     53: char  **argv,
                     54:       **envp;
                     55: {
                     56:     int            cols,
                     57:            format,
                     58:            rows,
                     59:            skip;
                     60:     char   *cp,
                     61:           *data,
                     62:           *file,
                     63:           *optbuf;
                     64:     bit            black;
                     65:     FILE   *fp;
                     66:     
                     67:     black = PBM_BLACK;
                     68: 
                     69:     file = NULL, fp = stdin;
                     70:     for (argv++; cp = *argv; argv++)
                     71:        if (*cp == '-') {
                     72:            if (cp[1] == NULL)
                     73:                goto usage;
                     74: 
                     75:            if (strncmp (cp, "-reversebits", strlen (cp)) == 0) {
                     76:                black = PBM_WHITE;
                     77:                continue;
                     78:            }
                     79:            goto usage;
                     80:        }
                     81:        else
                     82:            if (file) {
                     83: usage: ;
                     84:                fprintf (stderr, "usage: pbmtofax [file]\n");
                     85:                exit (1);
                     86:            }
                     87:            else
                     88:                if ((fp = pm_openr (file = cp)) == NULL)
                     89:                    perror (file), exit (1);
                     90: 
                     91:     {
                     92:        int     bitcount;
                     93:        register int    i,
                     94:                        j;
                     95:        unsigned char *byteP;
                     96:        bit    *bitrow;
                     97:        register bit *bP;
                     98: 
                     99:        pbm_readpbminit (fp, &cols, &rows, &format);
                    100:        bitrow = pbm_allocrow (cols);
                    101: 
                    102:        data = malloc ((unsigned) (cols * rows));
                    103:        byteP = (unsigned char *) data;
                    104: 
                    105:        for (i = rows; i-- > 0; ) {
                    106:            pbm_readpbmrow (fp, bP = bitrow, cols, format);
                    107:            *byteP = NULL, bitcount = 7;
                    108: 
                    109:            for (j = cols; j-- > 0; ) {
                    110:                unsigned char mask = 1 << bitcount;
                    111: 
                    112:                if (*bP++ == black)
                    113:                    *byteP |= mask;
                    114:                else
                    115:                    *byteP &= ~mask;
                    116:                if (--bitcount < 0)
                    117:                    *++byteP = NULL, bitcount = 7;
                    118:            }
                    119:            if (bitcount != 7)
                    120:                byteP++;
                    121:        }
                    122: 
                    123:        pm_close (fp);
                    124:     }
                    125:     
                    126:     STOP = (PIC_LINESIZE = cols) + 1;
                    127:     NUMLINES = rows;
                    128:     if ((skip = 8 - (PIC_LINESIZE % 8)) == 8)
                    129:        skip = 0;
                    130: 
                    131:     optbuf = encode_t4 (4, data, skip);
                    132:     *(optbuf + optlen) = NULL;
                    133: 
                    134:     (void) fwrite (optbuf, optlen + 1, sizeof *optbuf, stdout);
                    135: 
                    136:     exit (0);
                    137: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.