1{
2    This file is part of the Free Component Library (FCL)
3    Copyright (c) 1999-2002 by the Free Pascal development team
4
5    BIOS functions unit for Nintendo DS
6    Copyright (c) 2006 by Francesco Lombardi
7
8    See the file COPYING.FPC, included in this distribution,
9    for details about the copyright.
10
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
15 *****************************************************************************}
16
17function S_ISBLK(m: longint): boolean; inline;
18begin
19  result := (m and _IFMT) = _IFBLK;
20end;
21
22function S_ISCHR(m: longint): boolean; inline;
23begin
24  result := (m and _IFMT) = _IFCHR;
25end;
26
27function S_ISDIR(m: longint): boolean; inline;
28begin
29  result := (m and _IFMT) = _IFDIR;
30end;
31
32function S_ISFIFO(m: longint): boolean; inline;
33begin
34  result := (m and _IFMT) = _IFIFO;
35end;
36
37function S_ISREG(m: longint): boolean; inline;
38begin
39  result := (m and _IFMT) = _IFREG;
40end;
41
42function S_ISLNK(m: longint): boolean; inline;
43begin
44  result := (m and _IFMT) = _IFLNK;
45end;
46
47function S_ISSOCK(m: longint): boolean; inline;
48begin
49  result := (m and _IFMT) = _IFSOCK;
50end;
51