mirror of
https://github.com/sfall-team/int2ssl.git
synced 2026-07-27 16:52:42 -07:00
115 lines
3.5 KiB
C++
115 lines
3.5 KiB
C++
#ifndef FALLOUT_SCRIPT_H
|
|
#define FALLOUT_SCRIPT_H
|
|
|
|
#include "StartupCode.h"
|
|
#include "ProcTable.h"
|
|
#include "Namespace.h"
|
|
#include "Node.h"
|
|
|
|
class CFalloutScript
|
|
{
|
|
public:
|
|
CFalloutScript();
|
|
virtual ~CFalloutScript();
|
|
|
|
public:
|
|
virtual void Serialize(CArchive& ar);
|
|
|
|
void Dump(CArchive& ar);
|
|
|
|
void InitDefinitions();
|
|
void ProcessCode();
|
|
|
|
void StoreSource(CArchive& ar);
|
|
void StoreTree(CArchive& ar);
|
|
|
|
private:
|
|
enum Assoc {
|
|
NON_ASSOC,
|
|
LEFT_ASSOC,
|
|
RIGHT_ASSOC,
|
|
};
|
|
|
|
private:
|
|
void ExtractCodeElements(COpcodeArray& Source, COpcodeArray& Destination, WORD wDelimeter, int nSizeOfCodeItem, LPCTSTR lpszErrorMessage, BOOL (CFalloutScript::*pCheckFunc)(WORD, INT_PTR));
|
|
BOOL CheckExportVarCode(WORD wOperator, INT_PTR nIndex);
|
|
BOOL CheckSetExportedVarValueCode(WORD wOperator, INT_PTR nIndex);
|
|
BOOL CheckExportProcCode(WORD wOperator, INT_PTR nIndex);
|
|
|
|
INT_PTR GetIndexOfProc(const char* lpszName);
|
|
INT_PTR GetIndexOfProc(ULONG ulNameOffset);
|
|
INT_PTR GetIndexOfExportedVariable(ULONG ulNameOffset);
|
|
|
|
void SetExternalVariable(ULONG ulNameOffset);
|
|
void TryRenameGlobalVariables();
|
|
void TryRenameImportedVariables();
|
|
|
|
INT_PTR NextNodeIndex( CNodeArray& NodeArray, INT_PTR nCurrentIndex, INT_PTR nSteep);
|
|
BOOL CheckSequenceOfNodes(CNodeArray& NodeArray, INT_PTR nStartIndex, const WORD wSequence[], INT_PTR nSequenceLen);
|
|
BOOL RemoveSequenceOfNodes(CNodeArray& NodeArray,INT_PTR nStartIndex, INT_PTR nCount, const WORD wSequence[], INT_PTR nSequenceLen);
|
|
|
|
void InitialReduce();
|
|
void BuildTree(CNodeArray& NodeArray);
|
|
void ExtractAndReduceCondition(CNodeArray& Source, CNodeArray& Destination, INT_PTR nStartIndex);
|
|
void SetBordersOfBlocks(CNodeArray& NodeArray);
|
|
ULONG BuildTreeBranch(CNodeArray& NodeArray, ULONG nStartIndex, ULONG ulEndOffset);
|
|
void ReduceConditionalExpressions(CNodeArray& NodeArray);
|
|
BOOL IsOmittetArgsAllowed(WORD wOpcode);
|
|
|
|
void StoreDefinitions(CArchive& ar);
|
|
void StoreDeclarations(CArchive& ar);
|
|
|
|
CString GetSource( CNode& node, BOOL bLabel, ULONG ulNumArgs);
|
|
CString GetSource( CNode& node, BOOL bLabel, ULONG ulNumArgs, ULONG aulProcArg[], ULONG ulProcArgCount);
|
|
bool ArgNeedParens(const CNode& node, const CNode& argument, CFalloutScript::Assoc assoc = CFalloutScript::NON_ASSOC);
|
|
CString GetIndentString(INT_PTR nLevel);
|
|
|
|
int GetPriority(WORD wOperator);
|
|
Assoc GetAssociation(WORD wOperator);
|
|
|
|
private:
|
|
|
|
class CDefObject
|
|
{
|
|
public:
|
|
enum ObjectType {
|
|
OBJECT_VARIABLE,
|
|
OBJECT_PROCEDURE
|
|
};
|
|
|
|
public:
|
|
CDefObject(ObjectType type = OBJECT_VARIABLE, ULONG ulAttributes = 0, ULONG ulObjectData = 0);
|
|
|
|
public:
|
|
ObjectType m_ObjectType;
|
|
ULONG m_ulAttributes;
|
|
|
|
union {
|
|
ULONG m_ulVarValue;
|
|
ULONG m_ulProcIndex;
|
|
};
|
|
};
|
|
|
|
private:
|
|
// CMapULongToDefObject
|
|
typedef CMap<ULONG, ULONG, CDefObject, CDefObject&> CMapULongToDefObject;
|
|
|
|
CStartupCode m_StartupCode;
|
|
CProcTable m_ProcTable;
|
|
CNamespace m_Namespace;
|
|
CNamespace m_Stringspace;
|
|
|
|
COpcodeArray m_GlobalVar;
|
|
COpcodeArray m_ExportedVar;
|
|
COpcodeArray m_ExportedVarValue;
|
|
COpcodeArray m_ExportedProc;
|
|
|
|
CArrayOfNodeArray m_ProcBodies;
|
|
CArrayOfNodeArray m_Conditions;
|
|
|
|
CMapULongToDefObject m_Definitions;
|
|
CStringArray m_GlobalVarsNames;
|
|
};
|
|
|
|
#endif
|