mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 22:28:01 +02:00
57 lines
1.3 KiB
PHP
57 lines
1.3 KiB
PHP
{
|
|
This file is part of the Free Component Library (FCL)
|
|
Copyright (c) 1999-2002 by the Free Pascal development team
|
|
|
|
BIOS functions unit for Nintendo DS
|
|
Copyright (c) 2006 by Francesco Lombardi
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
*****************************************************************************}
|
|
|
|
function __errno: plongint; cdecl; export;
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
function S_ISBLK(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFBLK;
|
|
end;
|
|
|
|
function S_ISCHR(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFCHR;
|
|
end;
|
|
|
|
function S_ISDIR(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFDIR;
|
|
end;
|
|
|
|
function S_ISFIFO(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFIFO;
|
|
end;
|
|
|
|
function S_ISREG(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFREG;
|
|
end;
|
|
|
|
function S_ISLNK(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFLNK;
|
|
end;
|
|
|
|
function S_ISSOCK(m: longint): boolean; inline;
|
|
begin
|
|
result := (m and _IFMT) = _IFSOCK;
|
|
end;
|