unxovl.inc 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library.
  4. Copyright (c) 2002 by Marco van de Voort
  5. Some generic overloads for stringfunctions in the unix unit.
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. Function StatFS(Path:ansistring;Var Info:Tstatfs):cint;
  13. {
  14. Get all information on a fileSystem, and return it in Info.
  15. Path is the name of a file/directory on the fileSystem you wish to
  16. investigate.
  17. }
  18. begin
  19. statfs:=statfs(pchar(path),info);
  20. end;
  21. {
  22. $Log$
  23. Revision 1.4 2004-11-14 12:21:08 marco
  24. * moved some calls from unix to baseunix. Darwin untested.
  25. Revision 1.3 2004/11/03 15:00:43 marco
  26. * Pathstr eliminated
  27. Revision 1.2 2004/01/01 16:10:23 marco
  28. * fpreadlink(pathstr) moved to unxovl (since not platform specific),
  29. small fixes for "make all OPT='-dFPC_USE_LIBC'
  30. Revision 1.1 2003/12/30 12:27:44 marco
  31. * FPC_USE_LIBC
  32. }