Commits (2)
* Sun Aug 08 2021 benoit <benoit@localhost> 3.16.90
* Sun Aug 08 2021 benoit <benoit@localhost> 3.16.90
* Sun Aug 08 2021 benoit <benoit@localhost> 3.16.90
* Tue Apr 20 2021 benoit <benoit@localhost> 3.15.90
* Thu Mar 18 2021 benoit <benoit@localhost> 3.15.90
......
......@@ -8,8 +8,8 @@ Component=gb.eval
Component=gb.pcre
Description="Gambas Script"
Authors="Fabien Bodard, Benoit Minisini, Brian G"
Arguments=[["--help"],["--use","'gb.notify,gb.web'","-e","For i as Integer = 0 To 10:Print \"Hello World\":Next"],["~/bin/who"],["-c","-T","~/bin/mytest"],["-v","TestApp"],["--verbose","TestAppWithMain"],["--verbose","TestLazyApp"],["-c","~/testerror.gbs"],["~/Scripts/TestQuoteAtEnd"],["-c","~/Scripts/AForm"],["-c","-v","-w","~/Scripts/GambasHelpSearch"],["-c","-v","-w","~/Scripts/AMain"],["-c","-v","-w","~/Scripts/gshoutput"],["-c","-v","-w","~/Scripts/TestSets/TestWebApp.gbs"],["--convert-project","~/Projects/TestPrograms/testerror"],["--convert-project","~/Projects/TestPrograms/testusingtxthighlight","~/Scripts/TestSets"],["-c","-v","~/Scripts/TestSets/testusingtxthighlight.gbs"],["-l","library"],["-c","-v","-w","~/Scripts/TestScripterNoMain"],["-c","-v","-w","~/Scripts/TestGUI.gbs"],["-c","-v","-w","~/Scripts/TestSets/CPU_Test.gbs"],["-c","-v","-w","~/Scripts/TestSets/TestWebPage.gbs"],["-c","-v","-w","--convert-script","~/Scripts/TestSets/CPU_Test.gbs","~/Scripts"],["-c","-v","-w","~/Scripts/CPU_Test"],["-c","-v","-w","-p","~/Scripts/TestPlugin","~/myplugins"],["-c","-v","-w","~/Scripts/RunComponent"],["-c","-v","-w","~/Scripts/TestTestAppIncludes"],["-v","~/Projects/TestTimer"],["-c","-v","-w","~/gbs3testwithclass.gbs"],["-c","-v","-w","/home/brian/Scripts/testLocalStatic.gbs"],["-c","-v","-w","TestExternStructNoMain.gbs"],["-c","-v","-w","TestExternStructWithMain.gbs"]]
CurrentArgumentList=["-c","-v","-w","~/Scripts/TestTestAppIncludes"]
Arguments=[["--help"],["--use","'gb.notify,gb.web'","-e","For i as Integer = 0 To 10:Print \"Hello World\":Next"],["~/bin/who"],["-c","-T","~/bin/mytest"],["-v","TestApp"],["--verbose","TestAppWithMain"],["--verbose","TestLazyApp"],["-c","~/testerror.gbs"],["~/Scripts/TestQuoteAtEnd"],["-c","~/Scripts/AForm"],["-c","-v","-w","~/Scripts/GambasHelpSearch"],["-c","-v","-w","~/Scripts/AMain"],["-c","-v","-w","~/Scripts/gshoutput"],["-c","-v","-w","~/Scripts/TestSets/TestWebApp.gbs"],["--convert-project","~/Projects/TestPrograms/testerror"],["-v","--convert-project","~/Projects/TestPrograms/testusingtxthighlight","~/Scripts/TestSets2"],["-c","-v","~/Scripts/TestSets/testusingtxthighlight.gbs"],["-l","library"],["-c","-v","-w","~/Scripts/TestScripterNoMain"],["-c","-v","-w","~/Scripts/TestGUI.gbs"],["-c","-v","-w","~/Scripts/TestSets/CPU_Test.gbs"],["-c","-v","-w","~/Scripts/TestSets/TestWebPage.gbs"],["-c","-v","-w","--convert-script","~/Scripts/TestSets/CPU_Test.gbs","~/Scripts"],["-c","-v","-w","~/Scripts/CPU_Test"],["-c","-v","-w","-p","~/Scripts/TestPlugin","~/myplugins"],["-c","-v","-w","~/Scripts/RunComponent"],["-c","-v","-w","~/Scripts/TestTestAppIncludes"],["-v","~/Projects/TestTimer"],["-c","-v","-w","~/gbs3testwithclass.gbs"],["-c","-v","-w","/home/brian/Scripts/testLocalStatic.gbs"],["-c","-v","-w","TestExternStructNoMain.gbs"],["-c","-v","-w","TestExternStructWithMain.gbs"]]
CurrentArgumentList=["-v","--convert-project","~/Projects/TestPrograms/testusingtxthighlight","~/Scripts/TestSets2"]
TabSize=2
Translate=1
Language=en_US
......@@ -19,7 +19,7 @@ Vendor=Princeton
Address=benoit@localhost
Url=http://gambas.sourceforge.net/en/main.html
License=General Public Licence
PackageName=gbs3-3.15.90
PackageName=gbs3-3.16.90
PackageVersion=10
CreateEachDirectory=1
Packager=1
......
......@@ -30,8 +30,8 @@ Public Sub _call(sInputProjectDir As String, Optional sOutputScriptDir As String
Endif
Dim ScriptFile As String = "#!/usr/bin/env gbs3 \n'Auto Generated Script " & CStr(Now) & " Version (" & Application.version & ")\n"
Dim ScriptName As String = Split(sourceProject, "/").last
Dim ScriptName As String = Split(sourceProject, "/", "\"\"", True).last
Verbose("Create Script : " & ScriptName & ".gbs")
If DestPath <> "" Then ' we have the destination directory
If Not Exist(DestPath) Then
......@@ -42,7 +42,8 @@ Public Sub _call(sInputProjectDir As String, Optional sOutputScriptDir As String
Else
DestPath = Env["PWD"] &/ ScriptName & ".gbs"
Endif
Verbose("Full output path : " & DestPath)
Dim aProjectFile As String[]
Try aProjectFile = Split(File.Load(sourceProject &/ ".project"), "\n", "\"\"", True, True)
If Error Then
......@@ -75,6 +76,8 @@ Public Sub _call(sInputProjectDir As String, Optional sOutputScriptDir As String
Endif
Next
Verbose("Project Information :\n_____________________________________________\n" & ScriptFile & "____________________________________\n")
For Each sourceDir As String In cSources
sPath = SourceProject &/ sourceDir
If Not Exist(sPath) Then
......@@ -86,7 +89,7 @@ Public Sub _call(sInputProjectDir As String, Optional sOutputScriptDir As String
Dim Program As String
Try Program = File.Load(sPath &/ s)
If Error Then
Warning("Unable to generate Script using file:" & Error.text & " : " & sPath &/ s, True)
Warning("Unable to generate Script using file:" & Error.text & " : " & sPath &/ s, True)
Return
Endif
......