Exemplo n.º 1
0
globle void AtomicValuesToCode(
    char *fileName)
{
    int version;

    SetAtomicValueIndices(TRUE);

    HashTablesToCode(fileName);

#if FUZZY_DEFTEMPLATES
    /* would have been easier to change if HashTablesToCode returned
       the next free version to use
    */
    version = SymbolHashNodesToCode(fileName,6);
#else
    version = SymbolHashNodesToCode(fileName,5);
#endif
    version = FloatHashNodesToCode(fileName,version);
    version = IntegerHashNodesToCode(fileName,version);
    version = BitMapHashNodesToCode(fileName,version);

#if FUZZY_DEFTEMPLATES
    version = BitMapValuesToCode(fileName,version);
    version = FuzzyValueHashNodesToCode(fileName,version);
    version = FuzzyValuesToCode(fileName,version);
    version = FuzzyValueArraysToCode(fileName,version);
#else
    BitMapValuesToCode(fileName,version);
#endif
}
Exemplo n.º 2
0
void AtomicValuesToCode(
  void *theEnv,
  const char *fileName,
  const char *pathName,
  char *fileNameBuffer)
  {
   int version; // TBD Necessary?

   SetAtomicValueIndices(theEnv,true);

   HashTablesToCode(theEnv,fileName,pathName,fileNameBuffer);

   version = SymbolHashNodesToCode(theEnv,fileName,pathName,fileNameBuffer,5);
   version = FloatHashNodesToCode(theEnv,fileName,pathName,fileNameBuffer,version);
   version = IntegerHashNodesToCode(theEnv,fileName,pathName,fileNameBuffer,version);
   version = BitMapHashNodesToCode(theEnv,fileName,pathName,fileNameBuffer,version);
   BitMapValuesToCode(theEnv,fileName,pathName,fileNameBuffer,version);
  }
Exemplo n.º 3
0
globle void AtomicValuesToCode(
  void *theEnv,
  EXEC_STATUS,
  char *fileName,
  char *pathName,
  char *fileNameBuffer)
  {
   int version;

   SetAtomicValueIndices(theEnv,execStatus,TRUE);

   HashTablesToCode(theEnv,execStatus,fileName,pathName,fileNameBuffer);

   version = SymbolHashNodesToCode(theEnv,execStatus,fileName,pathName,fileNameBuffer,5);
   version = FloatHashNodesToCode(theEnv,execStatus,fileName,pathName,fileNameBuffer,version);
   version = IntegerHashNodesToCode(theEnv,execStatus,fileName,pathName,fileNameBuffer,version);
   version = BitMapHashNodesToCode(theEnv,execStatus,fileName,pathName,fileNameBuffer,version);
   BitMapValuesToCode(theEnv,execStatus,fileName,pathName,fileNameBuffer,version);
  }