🚀 go-pugleaf

[ciach]
> potraktował stat() żeby sie dowiedzieć czym dokładnie są ;).
> 
> W fpc to jest hm, albo fstat() albo fpfstat albo coś takiego,
[ciach]
> http://ptm.linux.pl/man_HTML/man2/stat.2.html i okolice ;).
> A później zerżnać z libc makro S_ISLNK() i fru ;).

Hej, zrobione z Twoją pomocą.
Publikuję, bo może komuś się przyda.

uses oldlinux;

//Sprawdza, czy plik jest poprawny
//(czy nie jest to np. link symboliczny do pliku)
function IsFileRegular(const FName: string): Boolean;
var info: stat;
begin
   Result := false;
   if LStat(FName, info) then
     if S_ISREG(info.mode) then
       if not S_ISLNK(info.mode) then
         Result := true;
end;

//Sprawdza, czy katalog jest poprawny
//(czy nie jest to np. link symboliczny do katalogu)
function IsDirRegular(const Dir: string): Boolean;
var info: stat;
begin
   Result := false;
   if LStat(Dir, info) then
     if S_ISDIR(info.mode) then
       if not S_ISLNK(info.mode) then
         Result := true;
end;

A może ktoś zrobiłby te funkcje jeszcze lepiej?

Pozdrawiam,
   Sławek