public ParsedDefine(string name, Token token, ParsedAsLike asLike, string left, ParseDefineType type, string tempPrimitiveType, string viewAs)
: base(name, token)
{
AsLike = asLike;
Left = left;
Type = type;
TempPrimitiveType = tempPrimitiveType;
ViewAs = viewAs;
}
public ParsedField(string name, string lcTempPrimitiveType, string format, int order, ParseFlag flags, string initialValue, string description, ParsedAsLike asLike) : base(name)
{
TempPrimitiveType = lcTempPrimitiveType;
Format = format;
Order = order;
Flags = flags;
InitialValue = initialValue;
Description = description;
AsLike = asLike;
}
public ParsedField(string name, string lcTempType, string format, int order, ParsedFieldFlag flag, string initialValue, string description, ParsedAsLike asLike)
{
Name = name;
TempType = lcTempType;
Format = format;
Order = order;
Flag = flag;
InitialValue = initialValue;
Description = description;
AsLike = asLike;
}
public ParsedDefine(string name, Token token, string lcFlagString, ParsedAsLike asLike, string left, ParseDefineType type, string tempPrimitiveType, string viewAs, string bufferFor, bool isExtended, bool isDynamic)
: base(name, token)
{
LcFlagString = lcFlagString;
AsLike = asLike;
Left = left;
Type = type;
TempPrimitiveType = tempPrimitiveType;
ViewAs = viewAs;
BufferFor = bufferFor;
IsExtended = isExtended;
IsDynamic = isDynamic;
}
public ParsedBuffer(string name, Token token, ParsedAsLike asLike, string left, ParseDefineType type, string tempPrimitiveType, string viewAs, string bufferFor) : base(name, token, asLike, left, type, tempPrimitiveType, viewAs, 0)
{
BufferFor = bufferFor;
}
/// <summary>
/// Create a new parsed define item according to its type
/// </summary>
private ParsedDefine NewParsedDefined(string name, ParseFlag flags, Token defineToken, Token endToken, ParsedAsLike asLike, string left, ParseDefineType type, string tempPrimitiveType, string viewAs, string bufferFor, int extent)
{
// set flags
flags |= GetCurrentBlock <ParsedScopeBlock>() is ParsedFile ? ParseFlag.FileScope : ParseFlag.LocalScope;
if (type == ParseDefineType.Parameter)
{
flags |= ParseFlag.Parameter;
}
if (tempPrimitiveType.Equals("buffer"))
{
flags |= ParseFlag.Buffer;
return(new ParsedBuffer(name, defineToken, asLike, left, type, null, viewAs, bufferFor)
{
Flags = flags,
EndPosition = endToken.EndPosition,
PrimitiveType = ParsedPrimitiveType.Buffer
});
}
var newDefine = new ParsedDefine(name, defineToken, asLike, left, type, tempPrimitiveType, viewAs, extent)
{
Flags = flags,
EndPosition = endToken.EndPosition
};
return(newDefine);
}
/// <summary>
/// Matches a new definition
/// </summary>
private void CreateParsedDefine(Token defineToken, bool isDynamic)
{
/*
* all DEFINE and CREATE statement
*/
// info we will extract from the current statement :
string name = "";
ParseFlag flags = isDynamic ? ParseFlag.Dynamic : 0;
ParsedAsLike asLike = ParsedAsLike.None;
ParseDefineType type = ParseDefineType.None;
string tempPrimitiveType = "";
string viewAs = "";
string bufferFor = "";
int extent = 0;
_lastTokenWasSpace = true;
StringBuilder left = new StringBuilder();
// for temp tables:
string likeTable = "";
bool isTempTable = false;
var fields = new List <ParsedField>();
ParsedField currentField = new ParsedField("", "", "", 0, 0, "", "", ParsedAsLike.None);
StringBuilder useIndex = new StringBuilder();
// for tt indexes
var indexList = new List <ParsedIndex>();
string indexName = "";
var indexFields = new List <string>();
ParsedIndexFlag indexFlags = ParsedIndexFlag.None;
var indexSort = "+"; // + for ascending, - for descending
Token token;
int state = 0;
do
{
token = PeekAt(1); // next token
if (token is TokenEos)
{
break;
}
if (token is TokenComment)
{
continue;
}
string lowerToken;
bool matchedLikeTable = false;
switch (state)
{
case 0:
// matching until type of define is found
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
switch (lowerToken)
{
case "buffer":
case "browse":
case "stream":
case "button":
case "dataset":
case "frame":
case "query":
case "event":
case "image":
case "menu":
case "rectangle":
case "property":
case "sub-menu":
case "parameter":
if (!Enum.TryParse(lowerToken, true, out type))
{
type = ParseDefineType.None;
}
state++;
break;
case "data-source":
type = ParseDefineType.DataSource;
state++;
break;
case "var":
case "variable":
type = ParseDefineType.Variable;
state++;
break;
case "temp-table":
case "work-table":
case "workfile":
isTempTable = true;
state++;
break;
case "new":
flags |= ParseFlag.New;
break;
case "global":
flags |= ParseFlag.Global;
break;
case "shared":
flags |= ParseFlag.Shared;
break;
case "private":
flags |= ParseFlag.Private;
break;
case "protected":
flags |= ParseFlag.Protected;
break;
case "public":
flags |= ParseFlag.Public;
break;
case "static":
flags |= ParseFlag.Static;
break;
case "abstract":
flags |= ParseFlag.Abstract;
break;
case "override":
flags |= ParseFlag.Override;
break;
case "serializable":
flags |= ParseFlag.Serializable;
break;
case "input":
flags |= ParseFlag.Input;
break;
case "return":
flags |= ParseFlag.Return;
break;
case "output":
flags |= ParseFlag.Output;
break;
case "input-output":
flags |= ParseFlag.InputOutput;
break;
/*default:
* ParseFlag parsedFlag;
* if (Enum.TryParse(lowerToken, true, out parsedFlag))
* flags |= parsedFlag;
* break;*/
}
break;
case 1:
// matching the name
if (!(token is TokenWord))
{
break;
}
name = token.Value;
if (type == ParseDefineType.Variable)
{
state = 10;
}
if (type == ParseDefineType.Buffer)
{
tempPrimitiveType = "buffer";
state = 81;
}
if (type == ParseDefineType.Parameter)
{
lowerToken = token.Value.ToLower();
switch (lowerToken)
{
case "buffer":
tempPrimitiveType = lowerToken;
type = ParseDefineType.Buffer;
flags |= ParseFlag.Parameter;
state = 80;
break;
case "table":
case "table-handle":
case "dataset":
case "dataset-handle":
tempPrimitiveType = lowerToken;
state = 80;
break;
default:
state = 10;
break;
}
}
if (isTempTable)
{
state = 20;
}
if (state != 1)
{
break;
}
state = 99;
break;
case 10:
// define variable : match as or like
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
if (lowerToken.Equals("as"))
{
asLike = ParsedAsLike.As;
}
else if (lowerToken.Equals("like"))
{
asLike = ParsedAsLike.Like;
}
if (asLike != ParsedAsLike.None)
{
state = 11;
}
break;
case 11:
// define variable : match a primitive type or a field in db
if (!(token is TokenWord))
{
break;
}
tempPrimitiveType = token.Value;
state = 12;
break;
case 12:
// define variable : match a view-as (or extent)
AddTokenToStringBuilder(left, token);
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
if (lowerToken.Equals("view-as"))
{
state = 13;
}
if (lowerToken.Equals("extent"))
{
extent = GetExtentNumber(2);
}
break;
case 13:
// define variable : match a view-as
AddTokenToStringBuilder(left, token);
if (!(token is TokenWord))
{
break;
}
viewAs = token.Value;
state = 99;
break;
case 20:
// define temp-table
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
switch (lowerToken)
{
case "field":
// matches FIELD
state = 22;
break;
case "index":
// matches INDEX
state = 25;
break;
case "use-index":
// matches USE-INDEX (after a like/like-sequential, we can have this keyword)
state = 26;
break;
case "help":
// a field has a help text:
state = 27;
break;
case "initial":
// a field has an initial value
state = 29;
break;
case "format":
// a field has a format
state = 30;
break;
case "extent":
// a field is extent:
currentField.Extent = GetExtentNumber(2);
break;
default:
// matches a LIKE table
// ReSharper disable once ConditionIsAlwaysTrueOrFalse, resharper doesn't get this one
if ((lowerToken.Equals("like") || lowerToken.Equals("like-sequential")) && !matchedLikeTable)
{
state = 21;
}
// After a USE-UNDEX and the index name, we can match a AS PRIMARY for the previously defined index
if (lowerToken.Equals("primary") && useIndex.Length > 0)
{
useIndex.Append("!");
}
break;
}
break;
case 21:
// define temp-table : match a LIKE table, get the table name in asLike
// ReSharper disable once RedundantAssignment
matchedLikeTable = true;
if (!(token is TokenWord))
{
break;
}
likeTable = token.Value.ToLower();
state = 20;
break;
case 22:
// define temp-table : matches a FIELD name
if (!(token is TokenWord))
{
break;
}
currentField = new ParsedField(token.Value, "", "", 0, 0, "", "", ParsedAsLike.None);
state = 23;
break;
case 23:
// define temp-table : matches a FIELD AS or LIKE
if (!(token is TokenWord))
{
break;
}
currentField.AsLike = token.Value.EqualsCi("like") ? ParsedAsLike.Like : ParsedAsLike.As;
state = 24;
break;
case 24:
// define temp-table : match a primitive type or a field in db
if (!(token is TokenWord))
{
break;
}
currentField.TempPrimitiveType = token.Value;
// push the field to the fields list
fields.Add(currentField);
state = 20;
break;
case 25:
// define temp-table : match an index name
if (!(token is TokenWord))
{
break;
}
indexName = token.Value;
state = 28;
break;
case 28:
// define temp-table : match the definition of the index
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
if (lowerToken.Equals("unique"))
{
indexFlags = indexFlags | ParsedIndexFlag.Unique;
}
else if (lowerToken.Equals("primary"))
{
indexFlags = indexFlags | ParsedIndexFlag.Primary;
}
else if (lowerToken.Equals("word-index"))
{
indexFlags = indexFlags | ParsedIndexFlag.WordIndex;
}
else if (lowerToken.Equals("ascending"))
{
// match a sort order for a field
indexSort = "+";
var lastField = indexFields.LastOrDefault();
if (lastField != null)
{
indexFields.RemoveAt(indexFields.Count - 1);
indexFields.Add(lastField.Replace("-", "+"));
}
}
else if (lowerToken.Equals("descending"))
{
// match a sort order for a field
indexSort = "-";
var lastField = indexFields.LastOrDefault();
if (lastField != null)
{
indexFields.RemoveAt(indexFields.Count - 1);
indexFields.Add(lastField.Replace("+", "-"));
}
}
else if (lowerToken.Equals("index"))
{
// matching a new index
if (!String.IsNullOrEmpty(indexName))
{
indexList.Add(new ParsedIndex(indexName, indexFlags, indexFields.ToList()));
}
indexName = "";
indexFields.Clear();
indexFlags = ParsedIndexFlag.None;
indexSort = "+";
state = 25;
}
else
{
// Otherwise, it's a field name
indexFields.Add(token.Value + indexSort);
}
break;
case 26:
// define temp-table : match a USE-INDEX name
if (!(token is TokenWord))
{
break;
}
useIndex.Append(",");
useIndex.Append(token.Value);
state = 20;
break;
case 27:
// define temp-table : match HELP for a field
if (!(token is TokenString))
{
break;
}
currentField.Description = GetTokenStrippedValue(token);
state = 20;
break;
case 29:
// define temp-table : match INITIAL for a field
if (!(token is TokenWhiteSpace))
{
currentField.InitialValue = GetTokenStrippedValue(token);
state = 20;
}
break;
case 30:
// define temp-table : match FORMAT for a field
if (!(token is TokenWhiteSpace))
{
currentField.Format = GetTokenStrippedValue(token);
state = 20;
}
break;
case 80:
// define parameter : match a temptable, table, dataset or buffer name
if (!(token is TokenWord))
{
break;
}
if (token.Value.ToLower().Equals("for"))
{
break;
}
name = token.Value;
state++;
break;
case 81:
// match the table/dataset name that the buffer or handle is FOR
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
if (lowerToken.Equals("for") || lowerToken.Equals("temp-table"))
{
break;
}
bufferFor = lowerToken;
state = 99;
break;
case 99:
// matching the rest of the define
AddTokenToStringBuilder(left, token);
break;
}
} while (MoveNext());
if (state <= 1)
{
return;
}
if (!string.IsNullOrEmpty(indexName))
{
indexList.Add(new ParsedIndex(indexName, indexFlags, indexFields));
}
if (isTempTable)
{
// TEMP-TABLE
var newTable = new ParsedTable(name, defineToken, ParsedTableType.TT, null, null, name, null, likeTable, fields, indexList, new List <ParsedTrigger>(), useIndex.ToString(), false, false)
{
// = end position of the EOS of the statement
EndPosition = token.EndPosition,
Flags = flags
};
AddParsedItem(newTable, defineToken.OwnerNumber);
}
else
{
// other DEFINE
var newDefine = NewParsedDefined(name, flags, defineToken, token, asLike, left.ToString(), type, tempPrimitiveType, viewAs, bufferFor, extent);
AddParsedItem(newDefine, defineToken.OwnerNumber);
// case of a parameters, add it to the current scope (if procedure)
var currentScope = GetCurrentBlock <ParsedScopeBlock>() as ParsedProcedure;
if (type == ParseDefineType.Parameter && currentScope != null)
{
if (currentScope.Parameters == null)
{
currentScope.Parameters = new List <ParsedDefine>();
}
currentScope.Parameters.Add(newDefine);
}
}
}
/// <summary>
/// Create a new parsed define item according to its type
/// </summary>
private ParsedDefine NewParsedDefined(string name, ParseFlag flags, Token token, ParsedAsLike asLike, string left, ParseDefineType type, string tempPrimitiveType, string viewAs, string bufferFor)
{
// set flags
flags |= _context.Scope is ParsedFile ? ParseFlag.FileScope : ParseFlag.LocalScope;
switch (type)
{
case ParseDefineType.Parameter:
flags |= ParseFlag.Parameter;
break;
case ParseDefineType.Buffer:
flags |= ParseFlag.Buffer;
var newBuffer = new ParsedBuffer(name, token, asLike, left, type, tempPrimitiveType, viewAs, bufferFor, ConvertStringToParsedPrimitiveType(tempPrimitiveType, asLike == ParsedAsLike.Like))
{
TargetTable = FindAnyTableByName(bufferFor)
};
flags |= !bufferFor.Contains(".") && newBuffer.TargetTable != null && !newBuffer.TargetTable.IsTempTable ? ParseFlag.MissingDbName : 0;
newBuffer.Flags = flags;
return(newBuffer);
}
var newDefine = new ParsedDefine(name, token, asLike, left, type, tempPrimitiveType, viewAs, ConvertStringToParsedPrimitiveType(tempPrimitiveType, asLike == ParsedAsLike.Like))
{
Flags = flags
};
return(newDefine);
}
/// <summary>
/// Parses a parameter definition (used in function, class method, class event)
/// Returns a list of define parsed items representing the parameters of the function
/// </summary>
private List <ParsedDefine> GetParsedParameters(Token functionToken, StringBuilder parameters)
{
/*
* ( parameter [ , parameter ] ... )
*
* { INPUT | OUTPUT | INPUT-OUTPUT }
* { parameter-name AS {primitive-type-name|[ CLASS ]object-type-name}
| { LIKE field }
| [ EXTENT [ constant ] ]
| TABLE temp-table-name [ APPEND ] [ BIND ] [ BY-VALUE ]
| TABLE-HANDLE temp-table-handle [ APPEND ] [ BIND ] [ BY-VALUE ]
| DATASET dataset-name [ APPEND ] [ BIND ] [ BY-VALUE ]
| DATASET-HANDLE dataset-handle [ APPEND ] [ BIND ] [ BY-VALUE ]
| }
|
| BUFFER buffer-name FOR table-name[ PRESELECT ]
*/
// info the parameters
string paramName = "";
ParseFlag flags = 0;
ParsedAsLike paramAsLike = ParsedAsLike.None;
string paramPrimitiveType = "";
string parameterFor = "";
var parametersList = new List <ParsedDefine>();
int state = 0;
do
{
var token = PeekAt(1); // next token
if (token is TokenEos)
{
break;
}
if (token is TokenSymbol && token.Value.Equals(")"))
{
state = 99;
}
if (token is TokenComment)
{
continue;
}
switch (state)
{
case 0:
// matching parameters type
if (!(token is TokenWord))
{
break;
}
var lwToken = token.Value.ToLower();
switch (lwToken)
{
case "buffer":
paramPrimitiveType = lwToken;
state = 10;
break;
case "table":
case "table-handle":
case "dataset":
case "dataset-handle":
paramPrimitiveType = lwToken;
state = 20;
break;
case "input":
flags |= ParseFlag.Input;
break;
case "return":
flags |= ParseFlag.Return;
break;
case "output":
flags |= ParseFlag.Output;
break;
case "input-output":
flags |= ParseFlag.InputOutput;
break;
default:
paramName = token.Value;
state = 2;
break;
}
break;
case 2:
// matching parameters as or like
if (!(token is TokenWord))
{
break;
}
var lowerToken = token.Value.ToLower();
if (lowerToken.Equals("as"))
{
paramAsLike = ParsedAsLike.As;
}
else if (lowerToken.Equals("like"))
{
paramAsLike = ParsedAsLike.Like;
}
if (paramAsLike != ParsedAsLike.None)
{
state++;
}
break;
case 3:
// matching parameters primitive type or a field in db
if (!(token is TokenWord))
{
break;
}
paramPrimitiveType = token.Value;
state = 99;
break;
case 10:
// match a buffer name
if (!(token is TokenWord))
{
break;
}
paramName = token.Value;
state++;
break;
case 11:
// match the table/dataset name that the buffer is FOR
if (!(token is TokenWord))
{
break;
}
lowerToken = token.Value.ToLower();
if (lowerToken.Equals("for"))
{
break;
}
parameterFor = lowerToken;
state = 99;
break;
case 20:
// match a table/dataset name
if (!(token is TokenWord))
{
break;
}
paramName = token.Value;
state = 99;
break;
case 99:
// matching parameters "," that indicates a next param
if (token is TokenWord && token.Value.EqualsCi("extent"))
{
flags |= ParseFlag.Extent;
}
else if (token is TokenSymbol && (token.Value.Equals(")") || token.Value.Equals(",")))
{
// create a variable for this function scope
if (!string.IsNullOrEmpty(paramName))
{
parametersList.Add(NewParsedDefined(paramName, flags, functionToken, token, paramAsLike, "", ParseDefineType.Parameter, paramPrimitiveType, "", parameterFor));
}
paramName = "";
paramAsLike = ParsedAsLike.None;
paramPrimitiveType = "";
parameterFor = "";
flags = 0;
if (token.Value.Equals(","))
{
state = 0;
}
else
{
return(parametersList);
}
}
break;
}
AddTokenToStringBuilder(parameters, token);
} while (MoveNext());
return(parametersList);
}
public ParsedField(string name, string lcTempType, string format, int order, ParsedFieldFlag flag, string initialValue, string description, ParsedAsLike asLike)
{
Name = name;
TempType = lcTempType;
Format = format;
Order = order;
Flag = flag;
InitialValue = initialValue;
Description = description;
AsLike = asLike;
}
public ParsedDefine(string name, Token token, string lcFlagString, ParsedAsLike asLike, string left, ParseDefineType type, string tempPrimitiveType, string viewAs, string bufferFor, bool isExtended, bool isDynamic)
: base(name, token)
{
LcFlagString = lcFlagString;
AsLike = asLike;
Left = left;
Type = type;
TempPrimitiveType = tempPrimitiveType;
ViewAs = viewAs;
BufferFor = bufferFor;
IsExtended = isExtended;
IsDynamic = isDynamic;
}