URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [go32/] [fixpath.c] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log


/*
  (c) Copyright 1992 Eric Backus
 
  This software may be used freely so long as this copyright notice is
  left intact.  There is no warrantee on this software.
*/
 
#include "dos.h"                /* For intdos() */
#include <errno.h>              /* For errno */
#include <string.h>             /* For strlen() */
 
int
_get_default_drive(void)
{
    union REGS  regs;
 
    regs.h.ah = 0x19;           /* DOS Get Default Drive call */
    regs.h.al = 0;
    (void) intdos(&regs, &regs);
    return regs.h.al;
}
 
static char *
get_current_directory(char *out, int drive_number)
{
    union REGS  regs;
 
    regs.h.ah = 0x47;
    regs.h.dl = drive_number + 1;
    regs.x.si = (unsigned long) (out + 1);
    (void) intdos(&regs, &regs);
    if (regs.x.cflag != 0)
    {
        errno = regs.x.ax;
        return out;
    }
    else
    {
        /* Root path, don't insert "/", it'll be added later */
        if (*(out + 1) != '\0')
            *out = '/';
        else
            *out = '\0';
        return out + strlen(out);
    }
}
 
static int
is_slash(int c)
{
    return c == '/' || c == '\\';
}
 
static int
is_term(int c)
{
    return c == '/' || c == '\\' || c == '\0';
}
 
/* Takes as input an arbitrary path.  Fixes up the path by:
   1. Removing consecutive slashes
   2. Removing trailing slashes
   3. Making the path absolute if it wasn't already
   4. Removing "." in the path
   5. Removing ".." entries in the path (and the directory above them)
   6. Adding a drive specification if one wasn't there
   7. Converting all slashes to '/'
 */
void
_fixpath(const char *in, char *out)
{
    int         drive_number;
    const char  *ip = in;
    char        *op = out;
 
    /* Add drive specification to output string */
    if (*(ip + 1) == ':' && ((*ip >= 'a' && *ip <= 'z') ||
                             (*ip >= 'A' && *ip <= 'Z')))
    {
        if (*ip >= 'a' && *ip <= 'z')
            drive_number = *ip - 'a';
        else
            drive_number = *ip - 'A';
        *op++ = *ip++;
        *op++ = *ip++;
    }
    else
    {
        drive_number = _get_default_drive();
        *op++ = drive_number + 'a';
        *op++ = ':';
    }
 
    /* Convert relative path to absolute */
    if (!is_slash(*ip))
        op = get_current_directory(op, drive_number);
 
    /* Step through the input path */
    while (*ip)
    {
        /* Skip input slashes */
        if (is_slash(*ip))
        {
            ip++;
            continue;
        }
 
        /* Skip "." and output nothing */
        if (*ip == '.' && is_term(*(ip + 1)))
        {
            ip++;
            continue;
        }
 
        /* Skip ".." and remove previous output directory */
        if (*ip == '.' && *(ip + 1) == '.' && is_term(*(ip + 2)))
        {
            ip += 2;
            /* Don't back up over drive spec */
            if (op > out + 2)
                /* This requires "/" to follow drive spec */
                while (!is_slash(*--op));
            continue;
        }
 
        /* Copy path component from in to out */
        *op++ = '/';
        while (!is_term(*ip)) *op++ = *ip++;
    }
 
    /* If root directory, insert trailing slash */
    if (op == out + 2) *op++ = '/';
 
    /* Null terminate the output */
    *op = '\0';
}
 
#ifdef  TEST
#include <stdio.h>
 
int
main(int argc, char **argv)
{
    char        path[90];
    int         i;
 
    for (i = 1; i < argc; i++)
    {
        _fixpath(argv[i], path);
        (void) printf("'%s' -> '%s'\n", argv[i], path);
    }
 
    return 0;
}
#endif

Line No.	Rev	Author	Line
1	39	lampret	`/*`
2			`(c) Copyright 1992 Eric Backus`
3
4			`This software may be used freely so long as this copyright notice is`
5			`left intact. There is no warrantee on this software.`
6			`*/`
7
8			`#include "dos.h" /* For intdos() */`
9			`#include <errno.h> /* For errno */`
10			`#include <string.h> /* For strlen() */`
11
12			`int`
13			`_get_default_drive(void)`
14			`{`
15			`union REGS regs;`
16
17			`regs.h.ah = 0x19; /* DOS Get Default Drive call */`
18			`regs.h.al = 0;`
19			`(void) intdos(&regs, &regs);`
20			`return regs.h.al;`
21			`}`
22
23			`static char *`
24			`get_current_directory(char *out, int drive_number)`
25			`{`
26			`union REGS regs;`
27
28			`regs.h.ah = 0x47;`
29			`regs.h.dl = drive_number + 1;`
30			`regs.x.si = (unsigned long) (out + 1);`
31			`(void) intdos(&regs, &regs);`
32			`if (regs.x.cflag != 0)`
33			`{`
34			`errno = regs.x.ax;`
35			`return out;`
36			`}`
37			`else`
38			`{`
39			`/* Root path, don't insert "/", it'll be added later */`
40			`if (*(out + 1) != '\0')`
41			`*out = '/';`
42			`else`
43			`*out = '\0';`
44			`return out + strlen(out);`
45			`}`
46			`}`
47
48			`static int`
49			`is_slash(int c)`
50			`{`
51			`return c == '/' \|\| c == '\\';`
52			`}`
53
54			`static int`
55			`is_term(int c)`
56			`{`
57			`return c == '/' \|\| c == '\\' \|\| c == '\0';`
58			`}`
59
60			`/* Takes as input an arbitrary path. Fixes up the path by:`
61			`1. Removing consecutive slashes`
62			`2. Removing trailing slashes`
63			`3. Making the path absolute if it wasn't already`
64			`4. Removing "." in the path`
65			`5. Removing ".." entries in the path (and the directory above them)`
66			`6. Adding a drive specification if one wasn't there`
67			`7. Converting all slashes to '/'`
68			`*/`
69			`void`
70			`_fixpath(const char in, char out)`
71			`{`
72			`int drive_number;`
73			`const char *ip = in;`
74			`char *op = out;`
75
76			`/* Add drive specification to output string */`
77			`if ((ip + 1) == ':' && ((ip >= 'a' && *ip <= 'z') \|\|`
78			`(ip >= 'A' && ip <= 'Z')))`
79			`{`
80			`if (ip >= 'a' && ip <= 'z')`
81			`drive_number = *ip - 'a';`
82			`else`
83			`drive_number = *ip - 'A';`
84			`op++ = ip++;`
85			`op++ = ip++;`
86			`}`
87			`else`
88			`{`
89			`drive_number = _get_default_drive();`
90			`*op++ = drive_number + 'a';`
91			`*op++ = ':';`
92			`}`
93
94			`/* Convert relative path to absolute */`
95			`if (!is_slash(*ip))`
96			`op = get_current_directory(op, drive_number);`
97
98			`/* Step through the input path */`
99			`while (*ip)`
100			`{`
101			`/* Skip input slashes */`
102			`if (is_slash(*ip))`
103			`{`
104			`ip++;`
105			`continue;`
106			`}`
107
108			`/* Skip "." and output nothing */`
109			`if (ip == '.' && is_term((ip + 1)))`
110			`{`
111			`ip++;`
112			`continue;`
113			`}`
114
115			`/* Skip ".." and remove previous output directory */`
116			`if (ip == '.' && (ip + 1) == '.' && is_term(*(ip + 2)))`
117			`{`
118			`ip += 2;`
119			`/* Don't back up over drive spec */`
120			`if (op > out + 2)`
121			`/* This requires "/" to follow drive spec */`
122			`while (!is_slash(*--op));`
123			`continue;`
124			`}`
125
126			`/* Copy path component from in to out */`
127			`*op++ = '/';`
128			`while (!is_term(ip)) op++ = *ip++;`
129			`}`
130
131			`/* If root directory, insert trailing slash */`
132			`if (op == out + 2) *op++ = '/';`
133
134			`/* Null terminate the output */`
135			`*op = '\0';`
136			`}`
137
138			`#ifdef TEST`
139			`#include <stdio.h>`
140
141			`int`
142			`main(int argc, char **argv)`
143			`{`
144			`char path[90];`
145			`int i;`
146
147			`for (i = 1; i < argc; i++)`
148			`{`
149			`_fixpath(argv[i], path);`
150			`(void) printf("'%s' -> '%s'\n", argv[i], path);`
151			`}`
152
153			`return 0;`
154			`}`
155			`#endif`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [go32/] [fixpath.c] - Blame information for rev 1774