From edaac1755856d83307a53bd117aa9af660273262 Mon Sep 17 00:00:00 2001 From: Brian G Date: Thu, 17 Jun 2021 11:42:31 -0700 Subject: [PATCH] [Scripter] * OPT Text Doc change --- app/src/gbs3/.src/ScriptPreProcess.module | 5 +++-- app/src/gbs3/.test | 2 +- app/src/gbs3/TestPlugin2 | 2 +- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/app/src/gbs3/.src/ScriptPreProcess.module b/app/src/gbs3/.src/ScriptPreProcess.module index 1fc981daa..cee8abc6d 100644 --- a/app/src/gbs3/.src/ScriptPreProcess.module +++ b/app/src/gbs3/.src/ScriptPreProcess.module @@ -70,7 +70,7 @@ End '' #Script name="xxxx" '' #Script startup="MySub" '' #Script Version ="0.2.3" , ... -'' #Script .... +'' #Script Property=AppSet:"2.0.0.1" Public Sub _call(aSymbols As String[], aTypes As Integer[], LineNumber As Integer, sPath As String) @@ -81,13 +81,14 @@ Public Sub _call(aSymbols As String[], aTypes As Integer[], LineNumber As Intege ' If hasOptions Then ' options have already been defined ' ScriptMain.CompileError("Options", LineNumber, "Project Options already defined") ' Endif + If aSymbols.count < 2 Then Return For i = 1 To aSymbols.Max If aSymbols[i] = "," Then Continue - KeyIndex = KeyWords[Upper(aSymbols[i])] Inc i + If aSymbols[i] <> "=" Or If aTypes[i + 1] <> Highlight.string And aTypes[i + 1] <> Highlight.symbol Then CompileError(sPath, LineNumber, "Invalid #Script PreProcess Command Format :" & aSymbols.Join(" ")) Return diff --git a/app/src/gbs3/.test b/app/src/gbs3/.test index 09045a58d..667843bec 100644 --- a/app/src/gbs3/.test +++ b/app/src/gbs3/.test @@ -1,5 +1,5 @@ [TestSuites] Count=0 TestWith=0 -Default="TaMServerPages.RunWebPageGeneratedProgram;WebPageProgramCreation,TbCommandLinePrograms.CreateProgramFromCommandLineArgs;ExecuteACommandLineProgram,TcMMainFunctions.CheckLibraryVersions;CheckProcessLibrary;Components;FullReadCompileCheck;FullReadCompileCheckWithMain;ValidFileRebuildCheck,TdGeneralCompile.LazyApps,TeAliases.CheckAlias,TfKeyWordFilter.DoFilters,TgPluginMode.DoAPlugin,ThPrePostProcessCallBacks.aLoadThePrePostProcessPlugin;bSetupPreAndPostTables;cProcessAProgram;dBuildTheGeneratedCode;eDoRealProcess" +Default="TgPluginMode.DoAPlugin" diff --git a/app/src/gbs3/TestPlugin2 b/app/src/gbs3/TestPlugin2 index ee57e8e6e..1dcab9745 100644 --- a/app/src/gbs3/TestPlugin2 +++ b/app/src/gbs3/TestPlugin2 @@ -1,6 +1,6 @@ #Script Version="5.9.3" #Script Name="AnotherTest" -#Script Title="Plugin tester Too" +#Script Title="Plugin tester Too{str(now)}" #Script Description="This plugin is a test for the scripter too" #Script Property=MyProp:"Added Plugin Special prop"