admin/tyranid-DotNetToJScript
1
0
Fork 0
mirror of https://github.com/tyranid/DotNetToJScript synced 2026-06-08 17:59:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor changes to debug output handling.

Browse Source
This commit is contained in:
James Forshaw
2017-05-19 10:12:12 +01:00
parent f708ab889d
commit aa2e5a2054
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DotNetToJScript/VBScriptGenerator.cs
+5 -5
View File
@@ -22,14 +22,13 @@ namespace DotNetToJScript
{
static class VBShared
{
public static string GetScriptHeader(RuntimeVersion version, bool enable_debug, string script_name)
public static string GetScriptHeader(RuntimeVersion version, string debug_statement)
{
StringBuilder builder = new StringBuilder();
builder.AppendLine("Sub DebugPrint(s)");
if (enable_debug)
if (!String.IsNullOrEmpty(debug_statement))
{
if (script_name == "VBScript") builder.AppendLine("Wscript.Echo s");
else if (script_name == "VBA") builder.AppendLine("Debug.Print s");
builder.AppendLine("{0} s");
}
builder.AppendLine("End Sub");
builder.AppendLine();
@@ -57,6 +56,7 @@ namespace DotNetToJScript
return builder.ToString();
}
}
class VBScriptGenerator : IScriptGenerator
{
public string ScriptName
@@ -79,7 +79,7 @@ namespace DotNetToJScript
{
string[] lines = JScriptGenerator.BinToBase64Lines(serialized_object);
return VBShared.GetScriptHeader(version, enable_debug, ScriptName) + Properties.Resources.vbs_template.Replace("%SERIALIZED%",
return VBShared.GetScriptHeader(version, enable_debug ? "WScript.Echo" : String.Empty) + Properties.Resources.vbs_template.Replace("%SERIALIZED%",
String.Join(Environment.NewLine + "s = s & ", lines)).Replace("%CLASS%", entry_class_name).Replace("%ADDEDSCRIPT%", additional_script);
}
}