public TcDeclaration Tokenize()
{
string variable_pattern = @"^\s*(\w+)\s*";
string address_pattern = @"(?:AT\s+)?([\w+%.*]*)?\s*";
string array_pattern = @"ARRAY\[.*\]\s+OF\s+[\w.]+";
string unit_pattern =
$@"({array_pattern}\(.*\)|{array_pattern}\[.*\]|{array_pattern}"
+ @"|\w+\(.*\)|\w+\[.*\]|[^;:]*)\s*";
string initialization = $@"(?::=)?(?s)\s*(.*?)?";
string comment = $@"\s*(\/\/[^\n]+|\(\*.*?\*\))?";
string pattern =
$@"{variable_pattern}{address_pattern}:\s*"
+ $@"{unit_pattern}{initialization};{comment}";
MatchCollection matches = Regex.Matches(_unformattedCode, pattern);
TcDeclaration variable;
if (matches.Count > 0)
{
Match match = matches[0];
variable = new TcDeclaration(
name: RemoveWhiteSpaceIfPossible(match.Groups[1].Value),
allocation: RemoveWhiteSpaceIfPossible(match.Groups[2].Value),
dataType: RemoveWhiteSpaceIfPossible(match.Groups[3].Value),
initialization: RemoveWhiteSpaceIfPossible(match.Groups[4].Value),
comment: match.Groups[5].Value.Trim()
);
}
else
{
variable = new TcDeclaration("", "", "", "", "");
}
return(variable);
}
public TcDeclaration Tokenize()
{
string variable_pattern = @"^\s*(\w+)\s*";
string address_pattern = @"(?:AT\s+)?([\w+%.*]*)?\s*";
string array_pattern = @"ARRAY\[.*\]\s+OF\s+[\w.]+";
string unit_pattern =
$@"({array_pattern}\(.*\)|{array_pattern}\[.*\]|{array_pattern}"
+ @"|\w+\(.*\)|\w+\[.*\]|[^;:]*)\s*";
string initialization = $@"(?::=)?(?s)\s*(.*?)?";
string comment = $@"\s*(\/\/[^\n]+|\(\*.*?\*\))?";
string pattern =
$@"{variable_pattern}{address_pattern}:\s*"
+ $@"{unit_pattern}{initialization};{comment}";
string strInitRegex = $@"([""'])(?:(?=(\$?))\2.)*?\1(?=\s*;)";
Match match = Regex.Match(_unformattedCode, strInitRegex);
string strInit = "";
if (match.Length > 0)
{
strInit = match.Groups[0].Value;
_unformattedCode = Regex.Replace(_unformattedCode, strInitRegex, "");
}
MatchCollection matches = Regex.Matches(
_unformattedCode,
pattern,
RegexOptions.IgnoreCase
);
TcDeclaration variable;
if (matches.Count > 0)
{
match = matches[0];
if (strInit.Length == 0)
{
strInit = Keywords.Upper(
RemoveWhiteSpaceIfPossible(match.Groups[4].Value)
);
}
variable = new TcDeclaration(
name: RemoveWhiteSpaceIfPossible(match.Groups[1].Value),
allocation: RemoveWhiteSpaceIfPossible(match.Groups[2].Value),
dataType: Keywords.Upper(
RemoveWhiteSpaceIfPossible(match.Groups[3].Value)
),
initialization: strInit,
comment: match.Groups[5].Value.Trim()
);
}
else
{
variable = new TcDeclaration("", "", "", "", "");
}
return(variable);
}
public override string Format(ref uint indents)
{
TcDeclaration tokens = Tokenize();
string formattedDatatype = (
InsertSpacesAroundOperators(tokens.DataType)
.Replace(",", ", ")
);
string formattedCode = (
Global.indentation.Repeat(indents)
+ tokens.Name
+ (tokens.Allocation.Length > 0 ? $" AT {tokens.Allocation}" : "")
+ $" : {formattedDatatype}"
+ (tokens.Initialization.Length > 0 ?
$" := {tokens.Initialization.Replace(",", ", ")}" : ""
)
+ ";"
+ (tokens.Comment.Length > 0 ? $" {tokens.Comment}" : "")
);
return(formattedCode);
}
