private void GenerateCode()
{
LogTextBox.Text = "";
var dfm = _dfmTextArea.Text;
_codeTextArea.ClearAll();
Logger.WriteLn("Code generation beginning..." + Environment.NewLine);
if (string.IsNullOrWhiteSpace(dfm))
{
Logger.WriteLn("Dfm is empty, nothing to do.");
return;
}
try
{
var tokens = Tokenizer.Execute(dfm);
var dfmObject = DfmParser.Execute(tokens);
var code = CodeGen.Execute(dfmObject);
_codeTextArea.Text = code;
}
catch (Exception e)
{
Logger.OnLog($"Error occured during processing:{Environment.NewLine}{e}");
}
}
public void Given_Dfm_Should_Produce_Code()
{
var tokens = Tokenizer.Execute(Dfm);
var dfmObject = DfmParser.Execute(tokens);
var code = CodeGen.Execute(dfmObject);
Assert.AreEqual(ExpectedCode.Trim(), code.Trim());
}
public void Given_Tokens_Should_Build_DfmObjects()
{
var tokens = Tokenizer.Execute(Dfm.Trim());
var dfmObject = DfmParser.Execute(tokens);
Assert.AreEqual("Rectangle1", dfmObject.Name);
Assert.AreEqual("TRectangle", dfmObject.Type);
Assert.IsTrue(dfmObject.HasProperties);
Assert.AreEqual(recProps.Count, dfmObject.PropertyCount);
for (var i = 0; i < recProps.Count; ++i)
{
var recProp = recProps[i];
var dfmProp = dfmObject.Properties[i];
Assert.AreEqual(recProp.Name, dfmProp.Name);
Assert.AreEqual(recProp.Value, dfmProp.Value);
Assert.AreEqual(recProp.LineNumber, dfmProp.LineNumber);
}
Assert.IsTrue(dfmObject.HasObjects);
Assert.AreEqual(1, dfmObject.ObjectCount);
dfmObject = dfmObject.Objects[0];
Assert.AreEqual("Text2", dfmObject.Name);
Assert.AreEqual("TText", dfmObject.Type);
Assert.IsTrue(dfmObject.HasProperties);
Assert.AreEqual(txtProps.Count, dfmObject.PropertyCount);
for (var i = 0; i < txtProps.Count; ++i)
{
var txtProp = txtProps[i];
var dfmProp = dfmObject.Properties[i];
Assert.AreEqual(txtProp.Name, dfmProp.Name);
Assert.AreEqual(txtProp.Value, dfmProp.Value);
Assert.AreEqual(txtProp.LineNumber, dfmProp.LineNumber);
}
}
public void Execute()
{
var defaultEx = @"C:\CCare\Development\3rdPartyComponents;C:\CCare\Development\.git;C:\CCare\Development\Components;C:\CCare\Development\DotNet\bin";
var inputDirectory = ConfigurationManager.AppSettings.GetSetting("InputPath", @"C:\CCare\Development");
var outputDirectory = ConfigurationManager.AppSettings.GetSetting("OutputPath", @"C:\CCare\Development\Schema");
var exclusions = ConfigurationManager.AppSettings.GetSetting("Exclude", defaultEx);
var dfmPath = Path.Combine(outputDirectory, "Dfm");
if (!Directory.Exists(dfmPath))
{
Directory.CreateDirectory(dfmPath);
}
var existingFileSet = Directory.GetFiles(dfmPath)
.ToHashSet(a => a, StringComparer.CurrentCultureIgnoreCase);
var existingDirectorySet = Directory.GetDirectories(dfmPath)
.ToHashSet(a => a, StringComparer.CurrentCultureIgnoreCase);
var exclusionSet = exclusions
.Split(new[] { ";" }, StringSplitOptions.RemoveEmptyEntries)
.ToHashSet(a => a, StringComparer.InvariantCultureIgnoreCase);
var fileNames = new Dictionary <string, string>(StringComparer.InvariantCultureIgnoreCase);
foreach (var sourceFile in Directory.GetFiles(inputDirectory, "*.dfm", SearchOption.AllDirectories))
{
var ignore = false;
foreach (var excludeDirectory in exclusionSet)
{
if (sourceFile.StartsWith(excludeDirectory))
{
ignore = true;
break;
}
}
if (!ignore)
{
//// NOTE: The symbolic link needs to be excluded at this level.
//var baseDirectory = Path.GetDirectoryName(sourceFile);
//if (baseDirectory == @"C:\CCare\Development\DotNet\bin")
// continue;
var relativePath = Path.GetDirectoryName(sourceFile)?
.Replace(inputDirectory, string.Empty)
.TrimStart('\\').TrimStart('\\') ?? string.Empty;
var destinationPath = Path.Combine(dfmPath, relativePath);
var fileNoExtension = Path.GetFileNameWithoutExtension(sourceFile);
var fileName = Path.Combine(destinationPath, fileNoExtension + ".sql");
if (fileNames.ContainsKey(fileName))
{
throw new ApplicationException($"File '{sourceFile}' exists from source '{fileNames[fileName]}'.");
}
fileNames.Add(fileName, sourceFile);
var builder = new StringBuilder();
var lexer = new DfmLexer(File.OpenText(sourceFile));
var parser = new DfmParser(lexer);
var form = parser.ReadObject();
var objects = form.Children
.Flatten(a => a.Children)
.ToArray();
var firstFile = false;
foreach (var component in objects.OrderBy(a => a.ObjectName))
{
var firstComponent = false;
foreach (var property in component.Properties.OrderBy(a => a.Name))
{
if (property.Name.Contains("SQL") && !string.IsNullOrWhiteSpace(property.Value))
{
if (!firstFile)
{
firstFile = true;
existingFileSet.Remove(fileName);
builder.AppendLine("/* Automatically generated - do not change */");
builder.AppendLine($"/* Source File: {sourceFile} */");
builder.AppendLine();
builder.AppendLine();
}
if (!firstComponent)
{
firstComponent = true;
builder.AppendLine("/*");
builder.AppendLine($" Name: {fileNoExtension}.{component.ObjectName}: {component.ClassName}");
builder.AppendLine("*/");
builder.AppendLine();
}
builder.AppendLine($"/* Property: {property.Name} */");
builder.AppendLine(property.Value.Trim());
builder.AppendLine();
}
}
}
if (builder.Length > 0)
{
if (!Directory.Exists(destinationPath))
{
Directory.CreateDirectory(destinationPath);
}
File.WriteAllText(fileName, builder.ToString(), Encoding.UTF8);
}
}
}
foreach (var file in existingFileSet)
{
File.Delete(file);
}
foreach (var directory in existingDirectorySet.OrderByDescending(a => a))
{
if (Directory.GetFiles(directory).Length == 0)
{
Directory.Delete(directory, true);
}
}
}
