///////////////////////////////////////////////////////////////////////////////////
// REAL TIME STRATEGY ADVENTURE - Kit
// FILE: rtsa_headers
// NAME: STACK FUNCTIONS AND DATA TYPES
// SCRIPTED BY: Deva Bryson Winblood
// DATE: 4/16/2003
///////////////////////////////////////////////////////////////////////////////////
#include "rtsa_headere" // error and debug
//////////////////////////////////////////
// STACK FUNCTIONS  - These stack functions support multiple data types
//////////////////////////////////////////
// fnInitializeStack(),fnPush(),fnPop<dt>(),fnSizeS(),fnFlushS(),fnReverseS()

void fnInitializeStack(string sPrefix,int nType=0)
{ // Setup stack variable on Controller
  fnDebug("fnInitializeStack("+sPrefix+","+IntToString(nType)+")");
  SetLocalInt(OBJECT_SELF,sPrefix+"TOP",0);
  SetLocalInt(OBJECT_SELF,sPrefix+"TYPE",nType);
  // Types supported  0 = multi-data  1=string 2=int 3=object 4=float
} // fnInitializeStack()

int fnPush(string sPrefix, string sSt="",int nInt=0,object oOb=OBJECT_INVALID, float fFl=0.0,int nIncrement=TRUE)
{ // Push item onto stack return -1 if invalid data type
  object oMe=OBJECT_SELF;
  int nTop=GetLocalInt(oMe,sPrefix+"TOP");
  int nType=GetLocalInt(oMe,sPrefix+"TYPE");
  int nNewTop=nTop;
  int nRet=1;
  fnDebug("fnPush("+sPrefix+",'"+sSt+"',"+IntToString(nInt)+","+GetTag(oOb)+","+FloatToString(fFl)+",INCREMENT:"+IntToString(nIncrement)+")");
  //SendMessageToPC(GetFirstPC(),"Type of stack:"+IntToString(nType));
  if (sSt!=""&&(nType!=0&&nType!=1)){
    fnDebug("Strings not allowed on stack");
    return -1;
  }
  if (nInt!=0&&(nType!=0&&nType!=2)) {
    fnDebug("Integer not allowed on stack");
    return -1;
  }
  if (oOb!=OBJECT_INVALID&&(nType!=0&&nType!=3)){
    fnDebug("Objects not allowed on stack");
    return -1;
  }
  if (fFl!=0.0&&(nType!=0&&nType!=4)){
    fnDebug("Floating Point not allowed on stack");
    return -1;
  }
  //SendMessageToPC(GetFirstPC(),"Stack types not invalid");
  if (sSt!=""||nType==1)
  {
    fnDebug("   STRING TYPE");
    if (nIncrement==TRUE) nNewTop=nTop+1;
    SetLocalString(oMe,sPrefix+"STR"+IntToString(nNewTop),sSt);
  }
  if (nInt!=0||nType==2)
  {
    fnDebug("   INTEGER TYPE");
    if (nIncrement==TRUE) nNewTop=nTop+1;
    SetLocalInt(oMe,sPrefix+"INT"+IntToString(nNewTop),nInt);
  }
  if (oOb!=OBJECT_INVALID||nType==3)
  {
    fnDebug("   OBJECT TYPE:"+GetName(oOb)+"/"+GetTag(oOb)+"/"+GetResRef(oOb));
    if (nIncrement==TRUE) nNewTop=nTop+1;
    SetLocalObject(oMe,sPrefix+"OB"+IntToString(nNewTop),oOb);
  }
  if (fFl!=0.0||nType==4)
  {
    fnDebug("   FLOAT TYPE");
    if (nIncrement==TRUE) nNewTop=nTop+1;
    SetLocalFloat(oMe,sPrefix+"FL"+IntToString(nNewTop),fFl);
  }
  SetLocalInt(oMe,sPrefix+"TOP",nNewTop);
  //SendMessageToPC(GetFirstPC(),"fnPush() Top="+IntToString(nNewTop));
  fnDebug("   EXIT PUSH");
  return nRet;
} // fnPush()

string fnPopString(string sPrefix,int nDecrement=TRUE)
{ // pop a string off the stack
  string sRet="";
  object oMe=OBJECT_SELF;
  int nTop=GetLocalInt(oMe,sPrefix+"TOP");
  fnDebug("      POP STRING");
  sRet=GetLocalString(oMe,sPrefix+"STR"+IntToString(nTop));
  if (nDecrement==TRUE)
  { // decrement stack
    DeleteLocalString(oMe,sPrefix+"STR"+IntToString(nTop));
    DeleteLocalInt(oMe,sPrefix+"INT"+IntToString(nTop));
    DeleteLocalObject(oMe,sPrefix+"OB"+IntToString(nTop));
    DeleteLocalFloat(oMe,sPrefix+"FL"+IntToString(nTop));
    SetLocalInt(oMe,sPrefix+"TOP",nTop-1);
  } // decrement stack
  return sRet;
} // fnPopString()

int fnPopInt(string sPrefix,int nDecrement=TRUE)
{ // pop an integer off the stack
  int nRet=0;
  object oMe=OBJECT_SELF;
  int nTop=GetLocalInt(oMe,sPrefix+"TOP");
  fnDebug("      POP INT");
  nRet=GetLocalInt(oMe,sPrefix+"INT"+IntToString(nTop));
  if (nDecrement==TRUE)
  { // decrement stack
    DeleteLocalString(oMe,sPrefix+"STR"+IntToString(nTop));
    DeleteLocalInt(oMe,sPrefix+"INT"+IntToString(nTop));
    DeleteLocalObject(oMe,sPrefix+"OB"+IntToString(nTop));
    DeleteLocalFloat(oMe,sPrefix+"FL"+IntToString(nTop));
    SetLocalInt(oMe,sPrefix+"TOP",nTop-1);
  } // decrement stack
  return nRet;
} // fnPopInt()

object fnPopObject(string sPrefix,int nDecrement=TRUE)
{ // pop an object off the stack
  object oRet=OBJECT_INVALID;
  object oMe=OBJECT_SELF;
  int nTop=GetLocalInt(oMe,sPrefix+"TOP");
  fnDebug("      POP OBJECT");
  oRet=GetLocalObject(oMe,sPrefix+"OB"+IntToString(nTop));
  if (nDecrement==TRUE)
  { // decrement stack
    DeleteLocalString(oMe,sPrefix+"STR"+IntToString(nTop));
    DeleteLocalInt(oMe,sPrefix+"INT"+IntToString(nTop));
    DeleteLocalObject(oMe,sPrefix+"OB"+IntToString(nTop));
    DeleteLocalFloat(oMe,sPrefix+"FL"+IntToString(nTop));
    SetLocalInt(oMe,sPrefix+"TOP",nTop-1);
  } // decrement stack
  return oRet;
} // fnPopObject()

float fnPopFloat(string sPrefix,int nDecrement=TRUE)
{ // pop a float off the stack
  float fRet=0.0;
  object oMe=OBJECT_SELF;
  int nTop=GetLocalInt(oMe,sPrefix+"TOP");
  fnDebug("      POP FLOAT");
  fRet=GetLocalFloat(oMe,sPrefix+"FL"+IntToString(nTop));
  if (nDecrement==TRUE)
  { // decrement stack
    DeleteLocalString(oMe,sPrefix+"STR"+IntToString(nTop));
    DeleteLocalInt(oMe,sPrefix+"INT"+IntToString(nTop));
    DeleteLocalObject(oMe,sPrefix+"OB"+IntToString(nTop));
    DeleteLocalFloat(oMe,sPrefix+"FL"+IntToString(nTop));
    SetLocalInt(oMe,sPrefix+"TOP",nTop-1);
  } // decrement stack
  return fRet;
} // fnPopFloat()

int fnSizeS(string sPrefix)
{ // returns TOP of stack #
  return GetLocalInt(OBJECT_SELF,sPrefix+"TOP");
} // fnSizeS()

void fnFlushS(string sPrefix)
{ // Flush the stack
  string sVal;
  int nTop=fnSizeS(sPrefix);
  fnDebug("      fnFlushS("+sPrefix+")");
  while(nTop!=0)
  { // flush stack
    sVal=fnPopString(sPrefix);
    nTop=fnSizeS(sPrefix);
  } // flush stack
} // fnFlushS()

void fnReverseS(string sPrefix)
{ // Reverse stack order
  string sReverse=sPrefix+"R";
  object oMe=OBJECT_SELF;
  int nTop=fnSizeS(sPrefix);
  int nType=GetLocalInt(oMe,sPrefix+"TYPE");
  string sStr;
  int nInt;
  object oOb;
  float fFl;
  int nRP;
  fnInitializeStack(sReverse,0);
  SetLocalInt(oMe,sReverse+"TOP",nTop);
  while(nTop>0)
  { // reverse stack
    if (nType==0)
    { // multi-type
      sStr=fnPopString(sPrefix,FALSE);
      nInt=fnPopInt(sPrefix,FALSE);
      oOb=fnPopObject(sPrefix,FALSE);
      fFl=fnPopFloat(sPrefix);
      fnPush(sReverse,sStr,nInt,oOb,fFl);
    } // multi-type
    else if (nType==1)
    { // string
      sStr=fnPopString(sPrefix);
      fnPush(sReverse,sStr);
    } // string
    else if (nType==2)
    { // int
      nInt=fnPopInt(sPrefix);
      fnPush(sReverse,"",nInt);
    } // int
    else if (nType==3)
    { // object
      oOb=fnPopObject(sPrefix);
      fnPush(sReverse,"",0,oOb);
    } // object
    else if (nType==4)
    { // float
      fFl=fnPopFloat(sPrefix);
      fnPush(sReverse,"",0,OBJECT_INVALID,fFl);
    } // float
    nTop=fnSizeS(sPrefix);
  } // reverse stack
  nTop=fnSizeS(sReverse);
  nRP=nTop;
  while(nTop>0)
  { // copy stack
    if (nType==0)
    { // multi-type
      sStr=fnPopString(sPrefix,FALSE);
      SetLocalString(oMe,sReverse+"STR"+IntToString(nTop),sStr);
      nInt=fnPopInt(sPrefix,FALSE);
      SetLocalInt(oMe,sReverse+"INT"+IntToString(nTop),nInt);
      oOb=fnPopObject(sPrefix,FALSE);
      SetLocalObject(oMe,sReverse+"OB"+IntToString(nTop),oOb);
      fFl=fnPopFloat(sPrefix);
      SetLocalFloat(oMe,sReverse+"FL"+IntToString(nTop),fFl);
    } // multi-type
    else if (nType==1)
    { // string
      sStr=fnPopString(sPrefix);
      SetLocalString(oMe,sReverse+"STR"+IntToString(nTop),sStr);
    } // string
    else if (nType==2)
    { // int
      nInt=fnPopInt(sPrefix);
      SetLocalInt(oMe,sReverse+"INT"+IntToString(nTop),nInt);
    } // int
    else if (nType==3)
    { // object
      oOb=fnPopObject(sPrefix);
      SetLocalObject(oMe,sReverse+"OB"+IntToString(nTop),oOb);
    } // object
    else if (nType==4)
    { // float
      fFl=fnPopFloat(sPrefix);
      SetLocalFloat(oMe,sReverse+"FL"+IntToString(nTop),fFl);
    } // float
    nTop=fnSizeS(sReverse);
  } // copy stack
  SetLocalInt(oMe,sPrefix+"TOP",nRP);
} // fnReverseS()