version 1.184, 2004/09/09 14:43:24
|
version 1.185, 2004/11/03 15:37:53
|
Line 2417 char *MakeRelativeURL (char *aName,
|
Line 2417 char *MakeRelativeURL (char *aName,
|
---------------------------------------------------------------------*/ |
---------------------------------------------------------------------*/ |
ThotBool AM_GetFileSize (char *filename, unsigned long *file_size) |
ThotBool AM_GetFileSize (char *filename, unsigned long *file_size) |
{ |
{ |
ThotFileHandle handle = ThotFile_BADHANDLE; |
|
ThotFileInfo info; |
|
|
|
*file_size = 0L; |
|
if (!TtaFileExist (filename)) |
if (!TtaFileExist (filename)) |
return FALSE; |
return FALSE; |
|
*file_size = TtaGetFileSize (filename); |
handle = TtaFileOpen (filename, ThotFile_READWRITE); |
return TRUE; |
if (handle == ThotFile_BADHANDLE) |
|
/* ThotFile_BADHANDLE */ |
|
return FALSE; |
|
if (TtaFileStat (handle, &info) == 0) |
|
/* bad stat */ |
|
info.size = 0L; |
|
TtaFileClose (handle); |
|
*file_size = (unsigned long) info.size; |
|
return TRUE; |
|
} |
} |
|
|
/*---------------------------------------------------------------------- |
/*---------------------------------------------------------------------- |