36 lines
806 B
C
Executable File
36 lines
806 B
C
Executable File
#include "d4all.h"
|
|
|
|
|
|
S4EXPORT long S4FUNCTION a4indexVersion(DATA4 * data)
|
|
{
|
|
//#ifdef S4FOX
|
|
// return((long)i4->indexFile->tagIndex->header.version);
|
|
//#else
|
|
const TAG4 * t4 = d4tagNext(data, NULL);
|
|
|
|
return t4->index->indexFile->tagIndex->header.version;
|
|
//#endif
|
|
}
|
|
|
|
S4EXPORT int S4FUNCTION a4tagKeyLen(DATA4 * data)
|
|
{
|
|
const TAG4 * t4 = d4tagDefault(data);
|
|
|
|
return t4->tagFile->expr->len;
|
|
}
|
|
|
|
S4EXPORT const char * S4FUNCTION a4tagKey(DATA4 * data)
|
|
{
|
|
const TAG4 * t4 = d4tagDefault(data);
|
|
|
|
return tfile4key(t4->tagFile);
|
|
}
|
|
|
|
S4EXPORT int S4FUNCTION a4lockTest(DATA4 * data)
|
|
{
|
|
return d4lockTestFile(data);
|
|
}
|
|
|
|
S4EXPORT void S4FUNCTION error4hook( CODE4 S4PTR * codebase, int errCode1, long errCode2, const char S4PTR * desc1, const char S4PTR * desc2, const char S4PTR * desc3)
|
|
{
|
|
} |