44f737cd82
* BUG: Fixed - -e < working incorrectly * OPT: Updated execute from command line to do full processing after splitting with ':' * BUG: Updated unit test to function correctly with new process from cmdlineArgs
38 lines
No EOL
797 B
Text
38 lines
No EOL
797 B
Text
Class Testit
|
|
public a as integer = 3456
|
|
public sub _Call() as integer
|
|
return a
|
|
end
|
|
End Class
|
|
Class TestStatic
|
|
Static Public sIncludeString AS string = "This is Include Too"
|
|
Static Public sub _Call() as string
|
|
return sIncludeString
|
|
end
|
|
End Class
|
|
Project file {
|
|
# Gambas Project File 3.0
|
|
Title=Gambas Script
|
|
Startup=MMain
|
|
Vendor=Ordinary
|
|
Version=1.0.5
|
|
License=General Public License 2.0
|
|
Component=gb.image
|
|
Component=gb.gui
|
|
Component=gb.eval
|
|
Component=gb.eval.highlight
|
|
Component=gb.pcre
|
|
}
|
|
' Gambas module file
|
|
Public Sub main()
|
|
' #!/usr/bin/gbs3
|
|
'#SCRIPT Version="1.0.5"
|
|
Dim x as string = "hello"
|
|
dim cNew as new TestIt
|
|
print "From Include of class ",cNew();;"Static Class Include ";TestStatic()
|
|
'bogomips
|
|
for i as integer = 0 to 20
|
|
print x;;i
|
|
next
|
|
Print "Version Number :";;application.version
|
|
End |