Return to path.c CVS log

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

Annotation of researchv10no/cmd/odist/ape/path.c, revision 1.1

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

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