forked from KolibriOS/kolibrios
48 lines
1.3 KiB
C
48 lines
1.3 KiB
C
|
/** \file deffile.h deffiles, which speed up loading.
|
||
|
|
* This module adds support for loading files which specify
|
||
|
|
* which script file to look for when trying to use a specific
|
||
|
|
* function.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef __deffile_h__
|
||
|
|
#define __deffile_h__
|
||
|
|
|
||
|
|
#include "yacasbase.h"
|
||
|
|
#include "lisphash.h"
|
||
|
|
|
||
|
|
/** LispDefFile represents one file that can be loaded just-in-time.
|
||
|
|
*/
|
||
|
|
class LispDefFile : public YacasBase
|
||
|
|
{
|
||
|
|
public:
|
||
|
|
LispDefFile(LispString * aFile);
|
||
|
|
LispDefFile(const LispDefFile& aOther);
|
||
|
|
~LispDefFile();
|
||
|
|
void SetLoaded();
|
||
|
|
inline LispBoolean IsLoaded();
|
||
|
|
inline LispString * FileName();
|
||
|
|
|
||
|
|
LispStringSmartPtr iFileName;
|
||
|
|
LispBoolean iIsLoaded;
|
||
|
|
};
|
||
|
|
|
||
|
|
/** LispDefFiles maintains an array of files that can be defloaded.
|
||
|
|
* When the user invokes a DefLoad on a file, an entry is added to the
|
||
|
|
* array of deffiles in the LispEnvironment class. When the function
|
||
|
|
* is called, and there is no body of rules defined for this function,
|
||
|
|
* the engine looks up the correct file to load from this associated
|
||
|
|
* has class.
|
||
|
|
*/
|
||
|
|
class LispEnvironment;
|
||
|
|
class LispDefFiles : public LispAssociatedHash<LispDefFile>
|
||
|
|
{
|
||
|
|
public:
|
||
|
|
LispDefFile* File(LispString * aFileName);
|
||
|
|
};
|
||
|
|
|
||
|
|
void LoadDefFile(LispEnvironment& aEnvironment, LispString * aFileName);
|
||
|
|
|
||
|
|
#include "deffile.inl"
|
||
|
|
|
||
|
|
#endif
|