Return to path.c CVS log

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

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

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