int2ssl/FalloutScript.h

#pragma once

#ifndef FALLOUT_SCRIPT_H
#define FALLOUT_SCRIPT_H

#include "StartupCode.h"
#include "ProcTable.h"
#include "Namespace.h"
#include "Node.h"


// Constants

// CFalloutScript
class CFalloutScript : public CObject {
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(LPCTSTR 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:
	// CDefObject
	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