Subversion Repositories Kolibri OS

(root)/programs/cmm/lib/file_system.h – Rev 3444 → 3467



 
char isdir(dword fpath)
{
	BDVK fpath_atr;
	GetFileInfo(fpath, #fpath_atr);
	if ( $test fpath_atr.attr, 4 ) return 1; else return 0;
}
:int GetFile(dword buf, filesize, read_path)
{
	BDVK ReadFile_atr;

Rev 3444	Rev 3467
Line 165...	Line 165...
165		165
166	char isdir(dword fpath)	166	char isdir(dword fpath)
167	{	167	{
168	BDVK fpath_atr;	168	BDVK fpath_atr;
169	GetFileInfo(fpath, #fpath_atr);	169	GetFileInfo(fpath, #fpath_atr);
170	if (TestBit(fpath_atr.attr, 4)==1) return 1; else return 0;	170	if ( $test fpath_atr.attr, 4 ) return 1; else return 0;
171	}	171	}
172	:int GetFile(dword buf, filesize, read_path)	172	:int GetFile(dword buf, filesize, read_path)
173	{	173	{
174	BDVK ReadFile_atr;	174	BDVK ReadFile_atr;