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