public void WriteUnitWithAliasAndImports() { // Arrange string expectedTdilFileContent = new StringBuilder() .AppendLine("// Compiler generated file") .AppendLine("// Buddy Compiler version 0.1") .AppendLine("// Generated on {date}") .AppendLine() .AppendLine("#include \"Helper.tdil\"") .AppendLine("#include \"Math.tdil\"") .AppendLine() .AppendLine("#alias \"ListBox:Name\"") .AppendLine("#alias \"ListBox:Pinr\"") .AppendLine("#alias \"ListBox:Passwort\"") .AppendLine() .AppendLine("Unit untitled ($prgName, $prgPath)") .AppendLine() .AppendLine("Main:") .AppendLine("close(_Application, , default)") .AppendLine("End") .AppendLine() .AppendLine("End") .AppendLine() .ToString(); // Act DateTime now = DateTime.Now; TdilFileWriter tdilFileWriter = new TdilFileWriter("0.1"); // Imports tdilFileWriter.AddImport(new[] { "Helper.tdil", "Math.tdil" }); // Alias tdilFileWriter.AddAlias(new[] { "ListBox:Name", "ListBox:Pinr", "ListBox:Passwort" }); using (TdilUnitWriter unitWriter = tdilFileWriter.CreateUnit("untitled", new[] { "$prgName", "$prgPath" })) { // Main section using (TdilSectionWriter sectionWriter = unitWriter.CreateSection("Main")) { sectionWriter.AppendLine("close(_Application, , default)"); } } string tdilFileContent = tdilFileWriter.WriteToString(); // Assert // Insert date before expectedTdilFileContent = expectedTdilFileContent.Replace("{date}", now.ToString()); Assert.AreEqual(expectedTdilFileContent, tdilFileContent, "expecedTdilFileContent != tdilFileContent"); }
/// <summary> /// Compiles the given <paramref name="buddyText"/> into a TDIL file as string. /// </summary> /// <param name="buddyText">Buddy language text to compile</param> /// <returns>Compiled buddy text</returns> /// <exception cref="ArgumentNullException">If the given <paramref name="buddyText"/> is NULL or empty</exception> /// <exception cref="BuddyCompilerException">If something went wrong during the compilation process</exception> public virtual string Compile(string buddyText) { if (string.IsNullOrEmpty(buddyText)) { throw new ArgumentNullException(nameof(buddyText)); } StopwatchLog compilerStopwatch = StopwatchLog.StartNew(LogCompilerPerformance); TdilFileWriter tdilFileWriter = new TdilFileWriter("0.1.2"); try { // TODO Remove workaround add 'Vorbedingung' if (!buddyText.Contains("Vorbedingung: -") && buddyText.Contains("Anwendung: ")) { int insertPoint = buddyText.IndexOf("Schritte:"); buddyText = buddyText.Insert(insertPoint, "Vorbedingung: -\r\n\r\n"); } // TODO Remove workaround add final linefeeds if (!buddyText.EndsWith("\r\n")) { buddyText += "\r\n"; } // Process text StopwatchLog textProcessorStopwatch = StopwatchLog.StartNew(LogBuddyTextProcessorPerformance); BuddyTextInfo buddyTextInfo = _buddyTextProcessor.ProcessText(buddyText); textProcessorStopwatch.Dispose(buddyTextInfo); // In the case of an short form, create standard names if (buddyTextInfo.IsShortForm) { buddyTextInfo.ApplicationText = "untitled"; buddyTextInfo.UseCaseText = "untitled"; buddyTextInfo.ScenarioText = "untitled"; } // TODO Check if this is a workaround and remove it if (string.IsNullOrEmpty(buddyTextInfo.VersionText)) { buddyTextInfo.VersionText = "*"; } // Little verification ushort expectedNoOfSteps = CalculateNoOfSteps(buddyText); if (expectedNoOfSteps != buddyTextInfo.Steps.Length) { ThrowUncompilableDirectiveException(buddyText, expectedNoOfSteps, buddyTextInfo.Steps.Length); } string[] buddyTextSteps = buddyTextInfo.Steps; // Normalize directives string[] normalizedBuddyTextSteps; using (StopwatchLog.StartNew(LogNormalizingPerformance)) { normalizedBuddyTextSteps = NormalizeSteps(buddyTextSteps, buddyTextInfo.Parameters); } // Create unit name UnitName unitName = new UnitName(buddyTextInfo.ApplicationText, buddyTextInfo.VersionText, buddyTextInfo.UseCaseText, buddyTextInfo.ScenarioText); string qualifiedUnitName = unitName.ToQualifiedString(); using (CompilingContext compilingContext = new CompilingContext()) { // Compile directives string[] directiveSet = new string[1000]; int pr = 0; using (StopwatchLog.StartNew(LogInstructionTranslationPerformance)) { for (int i = -1; ++i != normalizedBuddyTextSteps.Length;) { string actionLine = normalizedBuddyTextSteps[i]; string directive = _instructionTranslator.ToDirective(actionLine); directiveSet[pr++] = directive; } Array.Resize(ref directiveSet, pr); } // Add alias references string[] aliasReferenceSet = compilingContext.AliasReferenceSet; tdilFileWriter.AddAlias(aliasReferenceSet); // Add unit references string[] unitReferenceSet = compilingContext.UnitReferenceSet; string[] qualifiedUnitNames = ToQualifiedUnitNames(unitReferenceSet); tdilFileWriter.AddImport(qualifiedUnitNames); // Write unit using (StopwatchLog.StartNew(LogTdilUnitWritingPerformance)) { using (TdilUnitWriter tdilUnitWriter = tdilFileWriter.CreateUnit(qualifiedUnitName)) { string executeSectionName = unitName.GetEncodedScenarioName(); BuddyTextParameter[] unitParameters = buddyTextInfo.Parameters; string[] parameterNames = new string[unitParameters.Length]; for (int l = -1; ++l != parameterNames.Length;) { parameterNames[l] = unitParameters[l].Name; } // Write main section using (TdilSectionWriter tdilSectionWriter = tdilUnitWriter.CreateSection("Main")) { // Declare parameters for (int i = -1; ++i != unitParameters.Length;) { BuddyTextParameter unitParameter = unitParameters[i]; tdilSectionWriter.AppendLine("{0} = {1}", unitParameter.Name, unitParameter.DefaultValue); } // Add start statement tdilSectionWriter.AppendLine("start(,, \"{{{0}}}\")", buddyTextInfo.ApplicationText); // Add argument invocation line if there are some string argInvLine = null; if (parameterNames.Length != 0) { string argSetLine = string.Join(", ", parameterNames); argInvLine = $"({argSetLine})"; } tdilSectionWriter.AppendLine("gosub {0}:{1}", executeSectionName, argInvLine); // Add close statement tdilSectionWriter.AppendLine("close(_Application,, Default)"); tdilSectionWriter.AppendLine("kill(_Application,, 3000)"); tdilSectionWriter.AppendLine("close(\"AcroRd32\",, Default)"); tdilSectionWriter.AppendLine("kill(\"AcroRd32\",, 3000)"); } // Write execute section using (TdilSectionWriter tdilSectionWriter = tdilUnitWriter.CreateSection(executeSectionName, parameterNames)) { for (int l = -1; ++l != directiveSet.Length;) { tdilSectionWriter.AppendLine(directiveSet[l]); } } } } } } catch (BuddyCompilerException) { throw; } catch (Exception ex) { throw new BuddyCompilerException("Error on compiling buddy language unit.", ex); } string tdilFileContent = tdilFileWriter.WriteToString(); compilerStopwatch.Dispose(); return(tdilFileContent); }