Return to path.c CVS log

Up to [Research Unix] / researchv10no / cmd / odist / opkg

Annotation of researchv10no/cmd/odist/opkg/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 "asd.h"
                     27: #include <ctype.h>
                     28: #include <stdio.h>
                     29: 
                     30: #define CHUNK 64
                     31: 
                     32: static char *r;
                     33: static unsigned size;
                     34: 
                     35: char *
                     36: getpath (FILE *file)
                     37: {
                     38:        register int c;
                     39:        register int len = 0;
                     40: 
                     41:        c = getc (file);
                     42: 
                     43:        while (!isspace(c) && c != EOF) {
                     44:                register int i = 0, n = 0;
                     45: 
                     46:                /* determine the next input character */
                     47:                if (c == '\\') {
                     48:                        c = getc (file);
                     49:                        switch (c) {
                     50: 
                     51:                        case '\\':
                     52:                                break;
                     53:                        
                     54:                        case 'n':
                     55:                                c = '\n';
                     56:                                break;
                     57: 
                     58:                        case 'r':
                     59:                                c = '\r';
                     60:                                break;
                     61: 
                     62:                        case 't':
                     63:                                c = '\t';
                     64:                                break;
                     65: 
                     66:                        case 'b':
                     67:                                c = '\b';
                     68:                                break;
                     69:                        
                     70:                        case 'f':
                     71:                                c = '\f';
                     72:                                break;
                     73:                        
                     74:                        case 'v':
                     75:                                c = '\v';
                     76:                                break;
                     77:                        
                     78:                        case ' ':
                     79:                             /* c = ' '; */
                     80:                                break;
                     81: 
                     82:                        default:
                     83:                                while (c >= '0' && c <= '7' && i < 3) {
                     84:                                        n = (n << 3) + c - '0';
                     85:                                        i++;
                     86:                                        c = getc (file);
                     87:                                }
                     88:                                ungetc (c, file);
                     89:                                c = n;
                     90:                                break;
                     91:                        }
                     92:                }
                     93: 
                     94:                /* ensure there's room in the buffer */
                     95:                if (len >= size)
                     96:                        r = ralloc (r, size += CHUNK);
                     97: 
                     98:                /* put the character in the buffer */
                     99:                r[len++] = c;
                    100: 
                    101:                /* read the next character */
                    102:                c = getc (file);
                    103:        }
                    104: 
                    105:        /* unless we hit eof, we read one character too far. */
                    106:        if (c != EOF)
                    107:                ungetc (c, file);
                    108:        
                    109:        /* put a final null into the buffer */
                    110:        if (len >= size)
                    111:                r = ralloc (r, size += CHUNK);
                    112:        r[len] = '\0';
                    113: 
                    114:        return r;
                    115: }
                    116: 
                    117: void
                    118: putpath (FILE *file, char *path)
                    119: {
                    120:        register char *p = path;
                    121:        register int c;
                    122:        
                    123:        while ((c = *p++) != NULL) {
                    124:                switch (c) {
                    125: 
                    126:                case '\n':
                    127:                        fprintf (file, "\\n");
                    128:                        break;
                    129: 
                    130:                case '\r':
                    131:                        fprintf (file, "\\r");
                    132:                        break;
                    133: 
                    134:                case '\b':
                    135:                        fprintf (file, "\\b");
                    136:                        break;
                    137: 
                    138:                case '\t':
                    139:                        fprintf (file, "\\t");
                    140:                        break;
                    141: 
                    142:                case '\f':
                    143:                        fprintf (file, "\\f");
                    144:                        break;
                    145:                
                    146:                case '\v':
                    147:                        fprintf (file, "\\v");
                    148:                        break;
                    149:                
                    150:                case '\\':
                    151:                        fprintf (file, "\\\\");
                    152:                        break;
                    153:                
                    154:                case ' ':
                    155:                        fprintf (file, "\\ ");
                    156:                        break;
                    157:                
                    158:                default:
                    159:                        if (iscntrl (c))
                    160:                                fprintf (file,
                    161:                                    *p >= '0' && *p <= '7'? "\\%.3o": "\\%o",
                    162:                                    c);
                    163:                        else
                    164:                                putc (c, file);
                    165:                        break;
                    166:                }
                    167:        }
                    168: }

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