File: pathfile

package info (click to toggle)
simrisc 16.06.00-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,568 kB
  • sloc: cpp: 6,889; fortran: 669; makefile: 112; ansic: 112; sh: 107
file content (19 lines) | stat: -rw-r--r-- 355 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
list path_file(string path)
{
    list ret;
    int len;
    int idx;

    for (len = strlen(path), idx = len; idx--; )
    {
        if (path[idx] == "/")
        {
            ret =
                (list)substr(path, 0, idx) + (list)substr(path, idx + 1, len);
            return ret;
        }
    }

    ret = (list)"" + (list)path;
    return ret;
}