File: dbf\filenames.ads
1 --::::::::::
2 --filename.ads
3 --::::::::::
4 -- Developed by (C) Wasiliy W. Molostoff 1994, 1995.
5 -- Moscow, Russia,
6 -- Voice: 7 (095) 398-23-38
7 -- e-mail: edv@edv.msk.ru
8 -- This is free software; you can freely redistribute it and/or
9 -- modify it without any restrictions. Please report any errors.
10 -- All corrections will be made as soon as possible.
11 package filenames is
12
13 function fullname (name: in string) return string; -- "l:/d/f.e"
14 function volumename (name: in string) return string; -- "l:"
15 function pathname (name: in string) return string; -- "/d/"
16 function filename (name: in string) return string; -- "f"
17 function typename (name: in string) return string; -- ".e"
18 function existent (name: in string) return boolean;
19
20 end;
21