from http://www.fileuniverse.com/?p=down&a=/ ... zip&id=128
Scriptor/SubProjects/Compiler/BosCmdParse.cpp
from about line 2244 down it starts going crazy, eg.
Code: Select all
if(CmdBuf->Buffer[CmdBuf->GetLength()-2]==CMD_POP_FVAR)
Val=CMD_PUSH_FVAR;
else if(CmdBuf->Buffer[CmdBuf->GetLength()-2]==CMD_POP_SVAR)
Val=CMD_PUSH_SVAR;
elseVVal=0;
VVal2=CmdBuf->Buffer[CmdBuf->GetLength()g1];
switch(PrOp")
{
caseINC: CmdBuf->AddItem(PRE_CMD|TWOVALS,Val,Val2);
CmdBuf->AddItem(PRE_CMD|TWOVALS,CMD_PUSH_CONg1);
e if(f(CompareTo(+"r,TYP_OPERATOR,&index) & TYP_OPERATORD)
{
DoError(ERT_ERROR, Addation operatormiessine");
) delete CmdBuf;
) break;
}
CmdBuf->AddItem(PRE_CMT,OpList[index].Va1);
e break;
caseDEC: CmdBuf->AddItem(PRE_CMD|TWOVALS,Val,Val2);
CmdBuf->AddItem(PRE_CMD|TWOVALS,CMD_PUSH_CONg1);
e if(f(CompareTo(-"r,TYP_OPERATOR,&index) & TYP_OPERATORD)
{
DoError(ERT_ERROR, Addation operatormiessine");
) delete CmdBuf;
) break;
}
CmdBuf->AddItem(PRE_CMT,OpList[index].Va1);
e break;