public static Function[] Parse(string Code)
{
if (Code == "")
{
return(null);
}
RPGLexer lexer;
List <RPGToken> Tokens;
List <Function> Procedures = new List <Function>();
RPGToken token;
int line = -1;
string[] data;
string CurrentLine, Type, Lib = "*LIBL", Spf = "QRPGLESRC", Mbr = "";
Function CurrentProcedure = new Function("Globals", 0);
Variable CurrentStruct = null;
CurrentProcedure.SetReturnType("");
foreach (string Line in Code.Split(new string[] { Environment.NewLine }, StringSplitOptions.None))
{
line++;
CurrentLine = Line.Trim();
if (CurrentLine == "")
{
continue;
}
lexer = new RPGLexer();
lexer.Lex(CurrentLine);
Tokens = lexer.GetTokens();
if (Tokens.Count == 0)
{
continue;
}
token = Tokens[0];
switch (token.Type)
{
case RPGLexer.Type.DIRECTIVE:
switch (token.Value)
{
case "/INCLUDE":
case "/COPY":
Lib = "*LIBL"; Spf = "QRPGLESRC"; Mbr = "";
Type = Tokens[1].Value.ToUpper();
if (Type.StartsWith("'") && Type.EndsWith("'"))
{
//IFS
//TODO: When saving local IFS files is done, implement this
Type = Tokens[1].Value.Trim('\'');
}
else
{
//QSYS
if (Type.Contains("/"))
{
data = Type.Split('/');
Lib = data[0];
data = data[1].Split(',');
Spf = data[0];
Mbr = data[1];
}
else if (Type.Contains(","))
{
data = Type.Split(',');
Spf = data[0];
Mbr = data[1];
}
else
{
Mbr = Type;
}
Console.WriteLine(Lib + "/" + Spf + "," + Mbr);
Function[] funcs = Parse(IBMiUtils.GetLocalSource(Lib, Spf, Mbr));
if (funcs != null)
{
foreach (Function func in funcs)
{
if (func != null)
{
foreach (Variable var in func.GetVariables())
{
var.SetLine(line);
foreach (Variable member in var.GetMembers())
{
member.SetLine(line);
}
CurrentProcedure.AddVariable(var);
}
}
}
}
}
break;
}
break;
case RPGLexer.Type.OPERATION:
switch (token.Value)
{
case "DCL-F":
if (Tokens.Count < 2)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, "File", StorageType.File, line));
break;
case "DCL-S":
if (Tokens.Count < 3)
{
break;
}
Type = GetTypeFromToken(Tokens[2]);
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, Type, StorageType.Normal, line));
break;
case "DCL-C":
if (Tokens.Count < 3)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, Tokens[2].Value, StorageType.Const, line));
break;
case "DCL-DS":
if (Tokens.Count < 2)
{
break;
}
CurrentStruct = new Variable(Tokens[1].Value, "Data-Structure", StorageType.Struct, line);
if (Tokens.Count < 3)
{
break;
}
for (int x = 2; x < Tokens.Count; x++)
{
if (DSEnders.Contains(Tokens[x].Value))
{
CurrentProcedure.AddVariable(CurrentStruct);
CurrentStruct = null;
break;
}
}
break;
case "DCL-PR":
case "DCL-PI":
if (Tokens.Count < 2)
{
break;
}
if (Tokens[1].Value == "*N")
{
Tokens[1].Value = "";
}
switch (token.Value)
{
case "DCL-PR":
CurrentStruct = new Variable(Tokens[1].Value, "Prototype", StorageType.Prototype, line);
break;
case "DCL-PI":
CurrentStruct = new Variable(Tokens[1].Value, "Parameters", StorageType.Interface, line);
break;
}
if (Tokens.Count < 3)
{
break;
}
if (Tokens[2].Value == ";")
{
break;
}
if (Tokens[2].Value.StartsWith("END"))
{
CurrentStruct = null;
}
else
{
Type = GetTypeFromToken(Tokens[2]);
if (CurrentStruct.GetStorageType() != StorageType.Prototype)
{
CurrentProcedure.SetReturnType(Type);
}
else
{
if (CurrentStruct.GetStorageType() == StorageType.Prototype)
{
CurrentStruct.SetType(Type);
}
}
}
if (Tokens.Count < 4)
{
break;
}
if (Tokens[3].Value == ";")
{
break;
}
if (Tokens[2].Value.StartsWith("END"))
{
CurrentStruct = null;
}
break;
case "DCL-SUBF":
case "DCL-PARM":
if (Tokens.Count < 3)
{
break;
}
Type = GetTypeFromToken(Tokens[2]);
CurrentStruct.AddMember(new Variable(Tokens[1].Value, Type, StorageType.Normal, line));
break;
case "END-PR":
case "END-DS":
CurrentProcedure.AddVariable(CurrentStruct);
CurrentStruct = null;
break;
case "END-PI":
if (CurrentStruct.GetMembers().Count() > 0)
{
CurrentProcedure.AddVariable(CurrentStruct);
}
CurrentStruct = null;
break;
case "BEGSR":
if (Tokens.Count < 2)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, "Subroutine", StorageType.Subroutine, line));
break;
case "DCL-PROC":
if (Tokens.Count < 2)
{
break;
}
Procedures.Add(CurrentProcedure);
CurrentProcedure = new Function(Tokens[1].Value, line);
break;
}
break;
default:
if (CurrentStruct != null)
{
if (Tokens.Count < 2)
{
break;
}
Type = GetTypeFromToken(Tokens[1]);
CurrentStruct.AddMember(new Variable(Tokens[0].Value, Type, StorageType.Normal, line));
}
break;
}
}
Procedures.Add(CurrentProcedure);
return(Procedures.ToArray());
}
public static Function[] Parse(string Code)
{
RPGLexer lexer;
List <RPGToken> Tokens;
List <Function> Procedures = new List <Function>();
RPGToken token;
int line = -1;
string CurrentLine;
Function CurrentProcedure = new Function("Globals", 0);
foreach (string Line in Code.Split(new string[] { Environment.NewLine }, StringSplitOptions.None))
{
line++;
CurrentLine = Line.Trim();
if (CurrentLine == "")
{
continue;
}
lexer = new RPGLexer();
lexer.Lex(CurrentLine);
Tokens = lexer.GetTokens();
if (Tokens.Count == 0)
{
continue;
}
token = Tokens[0];
switch (token.Type)
{
case RPGLexer.Type.OPERATION:
switch (token.Value)
{
case "DCL-F":
if (Tokens.Count < 2)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, "File", StorageType.File, line));
break;
case "DCL-S":
if (Tokens.Count < 3)
{
break;
}
if (Tokens[2].Value == "LIKE")
{
if (Tokens[2].Block != null)
{
if (Tokens[2].Block.Count > 0)
{
Tokens[2].Value = Tokens[2].Block[0].Value;
}
}
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, Tokens[2].Value, StorageType.Normal, line));
break;
case "DCL-C":
if (Tokens.Count < 3)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, Tokens[2].Value, StorageType.Const, line));
break;
case "DCL-DS":
if (Tokens.Count < 2)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, "Data-Structure", StorageType.Struct, line));
break;
case "BEGSR":
if (Tokens.Count < 2)
{
break;
}
CurrentProcedure.AddVariable(new Variable(Tokens[1].Value, "Subroutine", StorageType.Subroutine, line));
break;
case "DCL-PROC":
if (Tokens.Count < 2)
{
break;
}
Procedures.Add(CurrentProcedure);
CurrentProcedure = new Function(Tokens[1].Value, line);
break;
}
break;
}
}
Procedures.Add(CurrentProcedure);
return(Procedures.ToArray());
}
