Return to path.c CVS log

Up to [Research Unix] / researchv10no / cmd / asd

Annotation of researchv10no/cmd/asd/path.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     getpath (file) - read a path name
                      3:  *     putpath (file, path) - write a path name
                      4:  *
                      5:  *     These subroutines cater to the possibility of unprintable
                      6:  *     characters in the path names being read or written, by
                      7:  *     using the same sort of \ conventions commonly found in
                      8:  *     C character constants.  The result of getpath is a pointer
                      9:  *     to a static buffer whose contents will stay around no longer
                     10:  *     than the next call to getpath.  When getpath is called, the
                     11:  *     character about to be read from the input file must be the
                     12:  *     first character of the path name.
                     13:  *
                     14:  *     There are a few problems, mostly relating to bugs and language
                     15:  *     changes, to watch out for in these routines.  First of all,
                     16:  *     we assume that \v is known by the C compiler, even though
                     17:  *     it is not mentioned in Kernighan and Ritchie.  The reason for
                     18:  *     this is that if we do not make this assumption, we run into
                     19:  *     a common bug in the handling of iscntrl().  Although the
                     20:  *     manuals all say that if c is a white-space character that is
                     21:  *     not a blank, then iscntrl(c) is true, several versions of the
                     22:  *     C library disagree with the documentation.  Thus we try to
                     23:  *     list all the white-space characters explicitly.
                     24:  */
                     25: 
                     26: #include <stdio.h>
                     27: #include <ctype.h>
                     28: #include "asd.h"
                     29: 
                     30: #define CHUNK 64
                     31: 
                     32: static char *r;
                     33: static unsigned size;
                     34: 
                     35: char *
                     36: getpath (file)
                     37:        register FILE *file;
                     38: {
                     39:        register int c;
                     40:        register int len = 0;
                     41: 
                     42:        c = getc (file);
                     43: 
                     44:        while (!isspace(c) && c != EOF) {
                     45:                register int i = 0, n = 0;
                     46: 
                     47:                /* determine the next input character */
                     48:                if (c == '\\') {
                     49:                        c = getc (file);
                     50:                        switch (c) {
                     51: 
                     52:                        case '\\':
                     53:                                break;
                     54:                        
                     55:                        case 'n':
                     56:                                c = '\n';
                     57:                                break;
                     58: 
                     59:                        case 'r':
                     60:                                c = '\r';
                     61:                                break;
                     62: 
                     63:                        case 't':
                     64:                                c = '\t';
                     65:                                break;
                     66: 
                     67:                        case 'b':
                     68:                                c = '\b';
                     69:                                break;
                     70:                        
                     71:                        case 'f':
                     72:                                c = '\f';
                     73:                                break;
                     74:                        
                     75:                        case 'v':
                     76:                                c = '\v';
                     77:                                break;
                     78:                        
                     79:                        case ' ':
                     80:                             /* c = ' '; */
                     81:                                break;
                     82: 
                     83:                        default:
                     84:                                while (c >= '0' && c <= '7' && i < 3) {
                     85:                                        n = (n << 3) + c - '0';
                     86:                                        i++;
                     87:                                        c = getc (file);
                     88:                                }
                     89:                                ungetc (c, file);
                     90:                                c = n;
                     91:                                break;
                     92:                        }
                     93:                }
                     94: 
                     95:                /* ensure there's room in the buffer */
                     96:                if (len >= size)
                     97:                        r = ralloc (r, size += CHUNK);
                     98: 
                     99:                /* put the character in the buffer */
                    100:                r[len++] = c;
                    101: 
                    102:                /* read the next character */
                    103:                c = getc (file);
                    104:        }
                    105: 
                    106:        /* unless we hit eof, we read one character too far. */
                    107:        if (c != EOF)
                    108:                ungetc (c, file);
                    109:        
                    110:        /* put a final null into the buffer */
                    111:        if (len >= size)
                    112:                r = ralloc (r, size += CHUNK);
                    113:        r[len] = '\0';
                    114: 
                    115:        return r;
                    116: }
                    117: 
                    118: void
                    119: putpath (file, path)
                    120:        register FILE *file;
                    121:        char *path;
                    122: {
                    123:        register char *p = path;
                    124:        register int c;
                    125:        
                    126:        while ((c = *p++) != NULL) {
                    127:                switch (c) {
                    128: 
                    129:                case '\n':
                    130:                        fprintf (file, "\\n");
                    131:                        break;
                    132: 
                    133:                case '\r':
                    134:                        fprintf (file, "\\r");
                    135:                        break;
                    136: 
                    137:                case '\b':
                    138:                        fprintf (file, "\\b");
                    139:                        break;
                    140: 
                    141:                case '\t':
                    142:                        fprintf (file, "\\t");
                    143:                        break;
                    144: 
                    145:                case '\f':
                    146:                        fprintf (file, "\\f");
                    147:                        break;
                    148:                
                    149:                case '\v':
                    150:                        fprintf (file, "\\v");
                    151:                        break;
                    152:                
                    153:                case '\\':
                    154:                        fprintf (file, "\\\\");
                    155:                        break;
                    156:                
                    157:                case ' ':
                    158:                        fprintf (file, "\\ ");
                    159:                        break;
                    160:                
                    161:                default:
                    162:                        if (iscntrl (c))
                    163:                                fprintf (file,
                    164:                                    *p >= '0' && *p <= '7'? "\\%.3o": "\\%o",
                    165:                                    c);
                    166:                        else
                    167:                                putc (c, file);
                    168:                        break;
                    169:                }
                    170:        }
                    171: }

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