paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stat macro fixes voor BSD

Browse Source
This commit is contained in:
marco 2003-09-17 11:52:05 +00:00
parent 35cd7e61c9
commit fd77009ae5
2 changed files with 42 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/bsd/bunxmacr.inc
View File

@ -20,33 +20,44 @@
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
****************************************************************************}
function FPISDIR(m : TMode): boolean;
begin
FPISDIR:=((m and %001111000000000000) = %100000000000000);
FPISDIR:=((m and S_IFMT) = S_IFDIR);
end;
function FPISCHR(m : TMode): boolean;
begin
FPISCHR:=((m and %001111000000000000) = %10000000000000);
FPISCHR:=((m and S_IFMT) = S_IFCHR);
end;
function FPISBLK(m : TMode): boolean;
begin
FPISBLK:=((m and %001111000000000000) = %110000000000000);
FPISBLK:=((m and S_IFMT) = S_IFBLK);
end;
function FPISREG(m : TMode): boolean;
begin
FPISREG:=((m and %001111000000000000) = %1000000000000000);
FPISREG:=((m and S_IFMT) = S_IFREG);
end;
function FPISFIFO(m : TMode): boolean;
begin
FPISFIFO:=((m and %001111000000000000) = %1000000000000);
FPISFIFO:=((m and S_IFMT) = S_IFIFO);
end;
Function FPISLNK(m:TMode):boolean;
begin
FPISLNK:=((m and S_IFMT) = S_IFLNK);
end;
Function FPISSOCK(m:TMode):boolean;
begin
FPISSOCK:=((m and S_IFMT) = S_IFSOCK);
end;
function wifexited(status : cint): cint;
@ -79,7 +90,10 @@ end;
{
$Log$
Revision 1.3 2003-09-14 20:15:01 marco
Revision 1.4 2003-09-17 11:52:05 marco
* stat macro fixes voor BSD
Revision 1.3 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.2 2003/01/21 15:34:59 marco

22
rtl/bsd/ostypes.inc
View File

@ -22,11 +22,11 @@
}
Type
timespec = packed record
tv_sec : time_t;
tv_nsec : clong;
end;
ptimespec= ^timespec;
timezone = packed record
@ -57,9 +57,27 @@ Type
// #define ru_last ru_nivcsw
// #define ru_first ru_ixrss
{ auto generated by a c prog, statmacr.c}
Const
S_IFMT = 61440;
S_IFIFO = 4096;
S_IFCHR = 8192;
S_IFDIR = 16384;
S_IFBLK = 24576;
S_IFREG = 32768;
S_IFLNK = 40960;
S_IFSOCK= 49152;
S_IFWHT = 57344;
S_ISVTX = 512;
{
$Log$
Revision 1.3 2003-09-15 07:23:51 marco
Revision 1.4 2003-09-17 11:52:05 marco
* stat macro fixes voor BSD
Revision 1.3 2003/09/15 07:23:51 marco
* fix
Revision 1.2 2003/09/14 20:15:01 marco