Return to fullname.c CVS log

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

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

1.1       root        1: /*
                      2:  *     fullname -- return the full pathname corresponding to the
                      3:  *     abbreviated pathname given as argument.  Returned value
                      4:  *     is in a buffer that will stay around no longer than its
                      5:  *     argument or the next call to fullname, whichever is earlier.
                      6:  */
                      7: 
                      8: #include "asd.h"
                      9: 
                     10: char *
                     11: fullname (s)
                     12:        register char *s;
                     13: {
                     14:        register char *t;
                     15:        static char *r;
                     16:        static int size;
                     17:        register unsigned n;
                     18: 
                     19:        /* if first char is slash, absolute path */
                     20:        if (s[0] == '/')
                     21:                return s;
                     22:        
                     23:        /* strip leading './' */
                     24:        while (s[0] == '.' && s[1] == '/')
                     25:                s += 2;
                     26:        
                     27:        t = pwd();
                     28: 
                     29:        /* null string or "." means current directory */
                     30:        if (s[0] == '\0' || strcmp (s, ".") == 0)
                     31:                return t;
                     32:        
                     33:        n = strlen (s) + strlen (t) + 2;
                     34:        if (n > size) {
                     35:                r = ralloc (r, n);
                     36:                size = n;
                     37:        }
                     38: 
                     39:        strcpy (r, t);
                     40:        strcat (r, "/");
                     41:        strcat (r, s);
                     42: 
                     43:        return r;
                     44: }

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