campo-sirio/cb/source/a4functs.c

#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)
{
}