public CToken(CToken token)
{
m_Type = token.m_Type;
m_SubType = token.m_SubType;
m_pszLexeme = token.m_pszLexeme;
m_pszDDItemName = null;
//Anil August 26 2005 For handling DD variable and Expression
if (token.m_pszDDItemName != null)
{
m_pszDDItemName = token.m_pszDDItemName;
}
m_nSymbolTableIndex = token.m_nSymbolTableIndex;
m_i32constant_pool_idx = token.m_i32constant_pool_idx;
m_i32LineNo = token.m_i32LineNo;
m_bIsGlobal = token.m_bIsGlobal; //Vibhor 070705: Added
m_bIsRoutineToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_bIsReturnToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_nSymbolTableScopeIndex = 0; //SCR26200 Felix for handling Nested Depth of Symbol
if (token.m_pCompound != null)
{
m_pCompound = new COMPOUND_DATA();
m_pCompound = token.m_pCompound;
}
}
public CToken(string szLexeme)
{
m_pszLexeme = szLexeme;
m_pszDDItemName = null;//Added By Anil August 22 2005
m_pCompound = null;
m_Type = RUL_TOKEN_TYPE.RUL_TYPE_NONE;
m_SubType = RUL_TOKEN_SUBTYPE.RUL_SUBTYPE_NONE;
m_nSymbolTableIndex = -1;
m_i32constant_pool_idx = -1;
m_i32LineNo = -1;
m_bIsGlobal = false; //Vibhor 070705: Added
m_bIsRoutineToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_bIsReturnToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_nSymbolTableScopeIndex = 0; //SCR26200 Felix for handling Nested Depth of Symbol
}
int m_nSymbolTableScopeIndex; //SCR26200 Felix for handling Nested Depth of Symbol
public CToken()
{
m_pszLexeme = null;
m_pszDDItemName = null;//Anil August 26 2005 For handling DD variable and Expression
////m_pCompound = null;
m_Type = RUL_TOKEN_TYPE.RUL_TYPE_NONE;
m_SubType = RUL_TOKEN_SUBTYPE.RUL_SUBTYPE_NONE;
m_nSymbolTableIndex = -1;
m_i32constant_pool_idx = -1;
m_i32LineNo = -1;
m_bIsGlobal = false; //Vibhor 070705: Added
m_bIsRoutineToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_bIsReturnToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_nSymbolTableScopeIndex = 0; ///SCR26200 /Felix for handling Nested Depth of Symbol
m_pCompound = new COMPOUND_DATA();
}
public void TokenType_to_VariantType(RUL_TOKEN_TYPE token, RUL_TOKEN_SUBTYPE subtoken, ref VARIANT_TYPE vt)
{
switch (subtoken)
{
case RUL_TOKEN_SUBTYPE.RUL_CHAR_CONSTANT:
case RUL_TOKEN_SUBTYPE.RUL_CHAR_DECL:
vt = VARIANT_TYPE.RUL_CHAR;
break;
case RUL_TOKEN_SUBTYPE.RUL_LONG_LONG_DECL:
vt = VARIANT_TYPE.RUL_LONGLONG;
break;
// Walt EPM 08sep08 - added
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_SHORT_INTEGER_DECL:
vt = VARIANT_TYPE.RUL_USHORT;
break;
case RUL_TOKEN_SUBTYPE.RUL_SHORT_INTEGER_DECL:
vt = VARIANT_TYPE.RUL_SHORT;
break;
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_INTEGER_DECL:
vt = VARIANT_TYPE.RUL_UINT;
break;
// end add Walt EPM 08sep08
case RUL_TOKEN_SUBTYPE.RUL_INT_CONSTANT:
case RUL_TOKEN_SUBTYPE.RUL_INTEGER_DECL:
case RUL_TOKEN_SUBTYPE.RUL_LONG_DECL:
vt = VARIANT_TYPE.RUL_INT;
break;
case RUL_TOKEN_SUBTYPE.RUL_REAL_CONSTANT:
case RUL_TOKEN_SUBTYPE.RUL_REAL_DECL:
vt = VARIANT_TYPE.RUL_FLOAT;
break;
case RUL_TOKEN_SUBTYPE.RUL_DOUBLE_DECL:
vt = VARIANT_TYPE.RUL_DOUBLE;
break;
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_CHAR_DECL:
vt = VARIANT_TYPE.RUL_UNSIGNED_CHAR;
break;
}
}
public CToken(string szLexeme, RUL_TOKEN_TYPE Type, RUL_TOKEN_SUBTYPE SubType, COMPOUND_DATA cmpData, int i32LineNo)
{
m_pszLexeme = szLexeme;
m_pszDDItemName = null;//Added By Anil August 22 2005
m_Type = Type;
m_SubType = SubType;
m_nSymbolTableIndex = -1;
m_i32constant_pool_idx = -1;
m_i32LineNo = i32LineNo;
m_bIsGlobal = false; //Vibhor 070705: Added
m_pCompound = new COMPOUND_DATA();
m_pCompound.m_szName = cmpData.m_szName;
m_pCompound.m_szAttribute = cmpData.m_szAttribute;
m_bIsReturnToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_bIsRoutineToken = false; //Anil Octobet 5 2005 for handling Method Calling Method
m_nSymbolTableScopeIndex = 0; //SCR26200 Felix for handling Nested Depth of Symbol
}
public void SetType(RUL_TOKEN_TYPE type)
{
m_Type = type;
}
void SetVarType(RUL_TOKEN_TYPE Type, RUL_TOKEN_SUBTYPE SubType)//Added By Anil August 5 2005 For handling DD variable and Expression
{
byte[] data;
if (Type == RUL_TOKEN_TYPE.RUL_SIMPLE_VARIABLE)
{
switch (SubType)
{
case RUL_TOKEN_SUBTYPE.RUL_CHAR_DECL:
data = BitConverter.GetBytes(' ');
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_CHAR); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_LONG_LONG_DECL:
//m_Value = (INT64)0;
data = BitConverter.GetBytes((Int64)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_LONGLONG); // = (char)' ';
break;
// Walt EPM 08sep08 - added
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_SHORT_INTEGER_DECL:
//m_Value = (unsigned short)0;
data = BitConverter.GetBytes((ushort)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_USHORT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_SHORT_INTEGER_DECL:
//m_Value = (short)0;
data = BitConverter.GetBytes((short)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_SHORT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_INTEGER_DECL:
data = BitConverter.GetBytes((uint)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_UINT); // = (char)' ';
break;
// Walt EPM 08sep08 - end added
case RUL_TOKEN_SUBTYPE.RUL_INTEGER_DECL:
case RUL_TOKEN_SUBTYPE.RUL_LONG_DECL:
data = BitConverter.GetBytes((int)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_INT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_BOOLEAN_DECL:
data = BitConverter.GetBytes(false);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_BOOL); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_REAL_DECL:
data = BitConverter.GetBytes((float)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_FLOAT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_DOUBLE_DECL:
data = BitConverter.GetBytes((double)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_DOUBLE); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_STRING_DECL:
case RUL_TOKEN_SUBTYPE.RUL_DD_STRING_DECL: //Added By Anil July 07 2005
data = System.Text.Encoding.Default.GetBytes("");
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_DD_STRING); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_CHAR_DECL:
data = BitConverter.GetBytes((byte)' ');
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_UNSIGNED_CHAR); // = (char)' ';
break;
}
}
}
public CVariable(string szLexeme, RUL_TOKEN_TYPE Type, RUL_TOKEN_SUBTYPE SubType)
{
;
}
public void setCVariable(CToken pToken)
{
Token = pToken;
m_Value = new INTER_VARIANT();
RUL_TOKEN_TYPE Type = pToken.GetType();
RUL_TOKEN_SUBTYPE SubType = pToken.GetSubType();
if (Type == RUL_TOKEN_TYPE.RUL_SIMPLE_VARIABLE)
{
byte[] data;
switch (SubType)
{
case RUL_TOKEN_SUBTYPE.RUL_CHAR_DECL:
data = BitConverter.GetBytes(' ');
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_CHAR); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_LONG_LONG_DECL:
//m_Value = (Int64)0;
data = BitConverter.GetBytes((Int64)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_LONGLONG); // = (char)' ';
break;
// Walt EPM 08sep08 - added
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_SHORT_INTEGER_DECL:
//m_Value = (ushort)0;
data = BitConverter.GetBytes((ushort)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_USHORT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_SHORT_INTEGER_DECL:
//m_Value = (short)0;
data = BitConverter.GetBytes((short)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_SHORT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_INTEGER_DECL:
//m_Value = (uint)0;
data = BitConverter.GetBytes((uint)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_UINT); // = (char)' ';
break;
// Walt EPM 08sep08 - end added
case RUL_TOKEN_SUBTYPE.RUL_INTEGER_DECL:
case RUL_TOKEN_SUBTYPE.RUL_LONG_DECL:
//m_Value = (long)0;
data = BitConverter.GetBytes((int)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_INT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_BOOLEAN_DECL:
//m_Value = (bool)false;
data = BitConverter.GetBytes(false);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_BOOL); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_REAL_DECL:
//m_Value = (float)0.0;
data = BitConverter.GetBytes((float)0.0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_FLOAT); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_DOUBLE_DECL:
//m_Value = (double)0.0;//WS:EPM 10aug07
data = BitConverter.GetBytes((double)0);
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_DOUBLE); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_STRING_DECL:
case RUL_TOKEN_SUBTYPE.RUL_DD_STRING_DECL: //Added By Anil July 07 2005
//m_Value = (string)"";
data = System.Text.Encoding.Default.GetBytes("");
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_DD_STRING); // = (char)' ';
break;
case RUL_TOKEN_SUBTYPE.RUL_UNSIGNED_CHAR_DECL:
//m_Value = (byte)' ';//WHS EP June17-2008 have changed this to make sure that it works for all data types
data = BitConverter.GetBytes(' ');
m_Value.SetValue(data, 0, VARIANT_TYPE.RUL_UNSIGNED_CHAR); // = (char)' ';
break;
}
}
}
