File: pathfile

package info (click to toggle)
stealth 4.04.00-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,540 kB
  • sloc: cpp: 2,759; sh: 151; makefile: 111; ansic: 52
file content (21 lines) | stat: -rw-r--r-- 362 bytes parent folder | download | duplicates (47) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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;
}