void CObjectInfoDlg::OnChangeACE()
{
int acenum = m_AceType.GetCurSel();
int acetype = 0;
int table = 0;
if (acenum == 0) table = 0;
if (acenum == 1) table = 1;
if (acenum == 2) table = 2;
m_AceList.DeleteAllItems();
int numaces;
OINFO *oInfo;
POSITION pos = g_dlls->GetStartPosition();
DWORD nKey;
// Find the DLL
while (pos != NULL)
{
g_dlls->GetNextAssoc(pos, nKey, oInfo);
// Got it
if (oInfo->extName == objname)
{
// Get the number of table entries
numaces = oInfo->GetTable(table)->size();
// Loop each ACE entry
for (int i = 0; i < numaces; i++)
{
// Get the pointer to current ACE
ACESEntry2* pACE = oInfo->GetACEEntry(table, i);
if(pACE == NULL || pACE->aceListName == "")
continue; // Ignore null entries
// Add name
// Check for * (new)
int item = -1;
if (pACE->aceListName.Left(1) == "*")
item = m_AceList.InsertItem(i, pACE->aceListName.Right(pACE->aceListName.GetLength() - 1), 0);
else
item = m_AceList.InsertItem(i, pACE->aceListName, 0);
// Add number of parameters
CString numberOfParameters;
numberOfParameters.Format("%d", pACE->params.size());
m_AceList.SetItemText(item, 1, numberOfParameters);
// Add description
m_AceList.SetItemText(item, 2, pACE->aceDisplayText);
}
break;
}
}
}
bool CTypeChecker::ParamValid(CString objName, CString expName, int paramNum, int numParams, ExpType type)
{
// Impossible to tell if this parameter is correct using an undefined type
if (type == EXPTYPE_NULL)
return true;
objName.MakeLower();
expName.MakeLower();
CString movementName;
ParseBehaviorExpression(objName, objName, movementName);
CObjType* oT = LookupObjectType(objName, objMap);
int DLLIndex;
// Couldn't find object type: try family
if (oT == NULL) {
list<Family>::iterator f = find(pApp->families.begin(), pApp->families.end(), objName);
// Not found
if (f == pApp->families.end() || !f->is_in_use)
return false;
else
DLLIndex = f->DLLIndex;
}
else DLLIndex = oT->DLLIndex;
// Default value, eg. ObjectName(5)
if (expName == "<default>") {
// Default value is private variable flag requires one private variable parameter
if (GetOINFO(DLLIndex)->ideFlags & OF_DEFAULTVALUE_PRIVATEVAR)
return type == EXPTYPE_VARIABLENAME;
// No other way of defining default value parameters
else
return true;
}
vector<ACESEntry2>* pTable;
if (movementName != "") {
CBehavior* m = LookupBehavior(oT, movementName);
if (m == NULL) return false;
OINFO* oInfo = GetOINFO(m->BehaviorDLLIndex);
pTable = oInfo->GetTable(2);
}
else
pTable = GetOINFO(DLLIndex)->GetTable(2);
// Lookup the entry, and get its param type.
int Count = pTable->size();
for (int i = 0; i < Count; i++)
{
CString Exp = pTable->at(i).aceDisplayText;
Exp.MakeLower();
if (Exp == expName)
{
switch (pTable->at(i).params[paramNum].type)
{
case 1: // Value
return (type == EXPTYPE_INTEGER || type == EXPTYPE_FLOAT);
case 2: // String
return (type == EXPTYPE_STRING);
case 14: // Private variable
return (type == EXPTYPE_VARIABLENAME);
}
}
}
// Not found - undefined expression - allow
return true;
}
bool CTypeChecker::ObjectExpressionExists(CString objName, CString expName)
{
objName.MakeLower();
expName.MakeLower();
CString movementName;
ParseBehaviorExpression(objName, objName, movementName);
CObjType* oT = LookupObjectType(objName, objMap);
int DLLIndex;
// Couldn't find object type: try family
if (oT == NULL) {
list<Family>::iterator f = find(pApp->families.begin(), pApp->families.end(), objName);
// Not found
if (f == pApp->families.end() || !f->is_in_use)
return false;
else {
DLLIndex = f->DLLIndex;
oT = pApp->FindObjTypeFromNumber(f->identifier);
}
}
else DLLIndex = oT->DLLIndex;
// Behavior under object: objName[movementName]
if (movementName != "") {
CBehavior* m = LookupBehavior(oT, movementName);
if (m == NULL) return false;
OINFO* oInfo = GetOINFO(m->BehaviorDLLIndex);
int Count = oInfo->GetTable(2)->size();
for (int i = 0; i < Count; i++) {
CString Exp = oInfo->GetACEEntry(2, i)->aceDisplayText;
Exp.MakeLower();
if (Exp == expName)
return true;
}
return false;
}
OINFO* oInfo = GetOINFO(DLLIndex);
if (oInfo == NULL)
return false;
// get count
int Count = oInfo->GetTable(2)->size();
for (int i = 0; i < Count; i++)
{
CString Exp = oInfo->GetACEEntry(2, i)->aceDisplayText;
Exp.MakeLower();
if (Exp == expName)
return true;
}
// Expression name not found: allow if OF_UNDEFINEDEXPRESSIONS set
return (oInfo->ideFlags & OF_UNDEFINEDEXPRESSIONS)!=0;
}
bool CTypeChecker::CheckParamCount(CString objName, CString expName, int numParams)
{
objName.MakeLower();
expName.MakeLower();
CString movementName;
ParseBehaviorExpression(objName, objName, movementName);
CObjType* oT = LookupObjectType(objName, objMap);
int DLLIndex;
// Couldn't find object type: try family
if (oT == NULL) {
list<Family>::iterator f = find(pApp->families.begin(), pApp->families.end(), objName);
// Not found
if (f == pApp->families.end() || !f->is_in_use)
return false;
else {
DLLIndex = f->DLLIndex;
oT = pApp->FindObjTypeFromNumber(f->identifier);
}
}
else DLLIndex = oT->DLLIndex;
// Default value, eg. ObjectName(5)
if (expName == "<default>") {
// The default value is private variable flag requires 1 parameter for default value.
if (GetOINFO(DLLIndex)->ideFlags & OF_DEFAULTVALUE_PRIVATEVAR)
return numParams == 1;
// There is no other way of defining the default value parameters
else
return true;
}
vector<ACESEntry2>* pTable;
if (movementName != "") {
CBehavior* m = LookupBehavior(oT, movementName);
if (m == NULL) return false;
OINFO* oInfo = GetOINFO(m->BehaviorDLLIndex);
pTable = oInfo->GetTable(2);
}
else
pTable = GetOINFO(DLLIndex)->GetTable(2);
// get count
int Count = pTable->size();
for (int i = 0; i < Count; i++)
{
CString Exp = pTable->at(i).aceDisplayText;
Exp.MakeLower();
if (Exp == expName)
{
return pTable->at(i).params.size() == numParams;
}
}
// Not found - undefined expression - allow.
return true;
}
ExpType CTypeChecker::GetExpressionType(CString objName, CString expName)
{
objName.MakeLower();
expName.MakeLower();
// No ACE system for default params yet. Return any.
if (expName == "<default>")
return EXPTYPE_NULL;
CString movementName;
ParseBehaviorExpression(objName, objName, movementName);
CObjType* oT = LookupObjectType(objName, objMap);
int DLLIndex;
// Couldn't find object type: try family
if (oT == NULL) {
list<Family>::iterator f = find(pApp->families.begin(), pApp->families.end(), objName);
// Not found
if (f == pApp->families.end() || !f->is_in_use)
return EXPTYPE_NULL;
else
DLLIndex = f->DLLIndex;
}
else DLLIndex = oT->DLLIndex;
vector<ACESEntry2>* pTable;
if (movementName != "") {
CBehavior* m = LookupBehavior(oT, movementName);
if (m == NULL) return EXPTYPE_NULL;
OINFO* oInfo = GetOINFO(m->BehaviorDLLIndex);
pTable = oInfo->GetTable(2);
}
else
pTable = GetOINFO(DLLIndex)->GetTable(2);
// Find expression and get type
int Count = pTable->size();
for (int i = 0; i < Count; i++)
{
CString Exp = pTable->at(i).aceDisplayText;
Exp.MakeLower();
if (Exp == expName)
{
switch (pTable->at(i).retrn)
{
case 0:
return EXPTYPE_NULL;
case RETURN_INTEGER:
return EXPTYPE_INTEGER;
case RETURN_FLOAT:
return EXPTYPE_FLOAT;
case RETURN_STRING:
return EXPTYPE_STRING;
case RETURN_ARRAY:
return EXPTYPE_ARRAY;
}
}
}
// Return type is 'any' if not found
return EXPTYPE_NULL;
}