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