Return to unexpand.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb

Annotation of 43BSD/ucb/unexpand.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  */
                      6: 
                      7: #ifndef lint
                      8: char copyright[] =
                      9: "@(#) Copyright (c) 1980 Regents of the University of California.\n\
                     10:  All rights reserved.\n";
                     11: #endif not lint
                     12: 
                     13: #ifndef lint
                     14: static char sccsid[] = "@(#)unexpand.c 5.1 (Berkeley) 5/31/85";
                     15: #endif not lint
                     16: 
                     17: /*
                     18:  * unexpand - put tabs into a file replacing blanks
                     19:  */
                     20: #include <stdio.h>
                     21: 
                     22: char   genbuf[BUFSIZ];
                     23: char   linebuf[BUFSIZ];
                     24: int    all;
                     25: 
                     26: main(argc, argv)
                     27:        int argc;
                     28:        char *argv[];
                     29: {
                     30:        register char *cp;
                     31: 
                     32:        argc--, argv++;
                     33:        if (argc > 0 && argv[0][0] == '-') {
                     34:                if (strcmp(argv[0], "-a") != 0) {
                     35:                        fprintf(stderr, "usage: unexpand [ -a ] file ...\n");
                     36:                        exit(1);
                     37:                }
                     38:                all++;
                     39:                argc--, argv++;
                     40:        }
                     41:        do {
                     42:                if (argc > 0) {
                     43:                        if (freopen(argv[0], "r", stdin) == NULL) {
                     44:                                perror(argv[0]);
                     45:                                exit(1);
                     46:                        }
                     47:                        argc--, argv++;
                     48:                }
                     49:                while (fgets(genbuf, BUFSIZ, stdin) != NULL) {
                     50:                        for (cp = linebuf; *cp; cp++)
                     51:                                continue;
                     52:                        if (cp > linebuf)
                     53:                                cp[-1] = 0;
                     54:                        tabify(all);
                     55:                        printf("%s", linebuf);
                     56:                }
                     57:        } while (argc > 0);
                     58:        exit(0);
                     59: }
                     60: 
                     61: tabify(c)
                     62:        char c;
                     63: {
                     64:        register char *cp, *dp;
                     65:        register int dcol;
                     66:        int ocol;
                     67: 
                     68:        ocol = 0;
                     69:        dcol = 0;
                     70:        cp = genbuf, dp = linebuf;
                     71:        for (;;) {
                     72:                switch (*cp) {
                     73: 
                     74:                case ' ':
                     75:                        dcol++;
                     76:                        break;
                     77: 
                     78:                case '\t':
                     79:                        dcol += 8;
                     80:                        dcol &= ~07;
                     81:                        break;
                     82: 
                     83:                default:
                     84:                        while (((ocol + 8) &~ 07) <= dcol) {
                     85:                                if (ocol + 1 == dcol)
                     86:                                        break;
                     87:                                *dp++ = '\t';
                     88:                                ocol += 8;
                     89:                                ocol &= ~07;
                     90:                        }
                     91:                        while (ocol < dcol) {
                     92:                                *dp++ = ' ';
                     93:                                ocol++;
                     94:                        }
                     95:                        if (*cp == 0 || c == 0) {
                     96:                                strcpy(dp, cp);
                     97:                                return;
                     98:                        }
                     99:                        *dp++ = *cp;
                    100:                        ocol++, dcol++;
                    101:                }
                    102:                cp++;
                    103:        }
                    104: }

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