[DEVELOPMENT ENVIRONMENT]
* BUG: Add "ReportBrush[" to the complex string properties list. * BUG: Handle class names with one letter only in automatic completion. * BUG: Do not automatically expand project tree view parent items when we have just collapsed it. * BUG: Adding an added form to the subversion repository now adds its class file too. * NEW: Update compiler error message list. git-svn-id: svn://localhost/gambas/trunk@3462 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini
parent
9bd5694c34
commit
86c281809a
11 changed files with 5805 additions and 5889 deletions
File diff suppressed because it is too large
Load diff
Binary file not shown.
File diff suppressed because it is too large
Load diff
|
|
@ -756,6 +756,7 @@ Static Private Sub ScanClass(hModule As Object, cSymbol As Collection, bModule A
|
|||
Dim sKind As String
|
||||
Dim iInd As Integer
|
||||
Dim hSymbol As CSymbolInfo
|
||||
Dim aSymbol As CSymbolInfo[]
|
||||
Dim iStart As Integer
|
||||
Dim iEnd As Integer
|
||||
Dim iSign As Integer
|
||||
|
|
@ -916,6 +917,8 @@ Static Private Sub ScanClass(hModule As Object, cSymbol As Collection, bModule A
|
|||
If Not sKind Then Continue
|
||||
If iInd >= aSym.Count Then Continue
|
||||
|
||||
'ANOTHER_SYMBOL:
|
||||
|
||||
sName = aSym[iInd]
|
||||
If Left(sName) = "{" Then
|
||||
If iInd + 2 > aSym.Max Then Continue
|
||||
|
|
@ -962,7 +965,22 @@ Static Private Sub ScanClass(hModule As Object, cSymbol As Collection, bModule A
|
|||
|
||||
Else
|
||||
Inc iInd
|
||||
|
||||
' If iInd <= aSym.Max And If aSym[iInd] = "," Then
|
||||
' If Not aSymbol Then aSymbol = New CSymbolInfo[]
|
||||
' aSymbol.Add(hSymbol)
|
||||
' Inc iInd
|
||||
' Goto ANOTHER_SYMBOL
|
||||
' Endif
|
||||
|
||||
.Type = FEditor.ReadSymbolType(aSym, iInd)
|
||||
|
||||
If aSymbol Then
|
||||
For Each hSymbol In aSymbol
|
||||
hSymbol.Type = .Type
|
||||
Next
|
||||
Endif
|
||||
|
||||
Endif
|
||||
|
||||
If bStatic Then .Kind = UCase(.Kind)
|
||||
|
|
@ -1102,7 +1120,7 @@ Static Public Function GetClassSymbols(sClass As String) As Collection
|
|||
Dim sFamily As String
|
||||
|
||||
If Len(sClass) <= 1 Then
|
||||
If sClass <> "." Then Return
|
||||
If sClass <> "." And If Not IsLetter(sClass) Then Return
|
||||
Endif
|
||||
|
||||
'Debug sClass
|
||||
|
|
|
|||
|
|
@ -6,7 +6,7 @@ Static Private PAN_W As Integer
|
|||
|
||||
Static Public WasDefaultValue As Boolean
|
||||
|
||||
Static Public COMPLEX_STRING_PROPERTIES As String[] = ["Font[", "Picture[", "Image.Load(", "Connections[", "ReportBorder["]
|
||||
Static Public COMPLEX_STRING_PROPERTIES As String[] = ["Font[", "Picture[", "Image.Load(", "Connections[", "ReportBorder[", "ReportBrush["]
|
||||
|
||||
Public Name As String
|
||||
Public Parent As CControl
|
||||
|
|
|
|||
|
|
@ -298,7 +298,7 @@ Private Sub FromString(sData As String, Optional hParent As CControl)
|
|||
|
||||
Inc iLevel
|
||||
|
||||
Else If Left$(sLine, 1) = "}" Then
|
||||
Else If Left$(sLine) = "}" Then
|
||||
|
||||
'IF hCtrl = hParent THEN RETURN
|
||||
Dec iLevel
|
||||
|
|
|
|||
|
|
@ -14,6 +14,7 @@ Private $bInTreeView As Boolean
|
|||
Private $bInRename As Boolean
|
||||
Private $sKeyInfo As String
|
||||
Private $bNoSelect As String
|
||||
Private $bHasJustCollapsed As Boolean
|
||||
Private $bExpandOnMouseUp As Boolean
|
||||
|
||||
Public Sub _new()
|
||||
|
|
@ -449,7 +450,7 @@ Public Sub UpdateRecentMenu()
|
|||
Inc Application.Busy
|
||||
|
||||
bSort = Settings["/FWelcome/SortRecent", False]
|
||||
|
||||
|
||||
mnuOpenRecent.Children.Clear
|
||||
mnuOpenRecent.Enabled = CRecentFile.All.Count > 0
|
||||
|
||||
|
|
@ -475,7 +476,7 @@ Public Sub UpdateRecentMenu()
|
|||
Until sPath = "/"
|
||||
|
||||
Next
|
||||
|
||||
|
||||
For Each iVal In cParent
|
||||
If iVal >= 2 Then aMenu.Add(cParent.Key)
|
||||
Next
|
||||
|
|
@ -518,7 +519,7 @@ Public Sub UpdateRecentMenu()
|
|||
Next
|
||||
|
||||
Else
|
||||
|
||||
|
||||
For Each hRecentFile In aList
|
||||
|
||||
sPath = hRecentFile.Path
|
||||
|
|
@ -555,7 +556,7 @@ Public Sub UpdateRecentMenu()
|
|||
hMenu = New Menu(mnuOpenRecent) As "mnuClearRecent"
|
||||
hMenu.Text = ("&Clear history")
|
||||
hMenu.Picture = Picture["icon:/small/trash"]
|
||||
|
||||
|
||||
Endif
|
||||
|
||||
Dec Application.Busy
|
||||
|
|
@ -912,17 +913,21 @@ Public Sub tvwProject_Select()
|
|||
RefreshMenu
|
||||
|
||||
If tvwProject.Current.Children Then
|
||||
$bExpandOnMouseUp = True
|
||||
' Print Mouse.X ;; Mouse.Y ' generates crashes on random places, strange...
|
||||
'If Not tvwProject.Find(Mouse.X, Mouse.Y) Then
|
||||
$bExpandOnMouseUp = True
|
||||
'Endif
|
||||
Endif
|
||||
|
||||
End
|
||||
|
||||
Public Sub tvwProject_MouseUp()
|
||||
|
||||
If $bExpandOnMouseUp Then
|
||||
If $bExpandOnMouseUp And If Not $bHasJustCollapsed Then
|
||||
Try tvwProject.Current.Expanded = True
|
||||
$bExpandOnMouseUp = False
|
||||
Endif
|
||||
$bExpandOnMouseUp = False
|
||||
$bHasJustCollapsed = False
|
||||
|
||||
End
|
||||
|
||||
|
|
@ -1192,7 +1197,7 @@ Public Sub Action_Activate(Key As String) As Boolean
|
|||
FSearch.FindNext
|
||||
Case "find-previous"
|
||||
FSearch.FindPrevious
|
||||
'Case "find-project"
|
||||
'Case "find-project"
|
||||
'cmbFind_Activate
|
||||
|
||||
Case "console"
|
||||
|
|
@ -1338,7 +1343,7 @@ Public Sub tvwProject_DragMove()
|
|||
End
|
||||
|
||||
Private Sub AddDataFiles(aFile As String[], bLink As Boolean)
|
||||
|
||||
|
||||
Dim sPath As String
|
||||
Dim sDir As String
|
||||
Dim sName As String
|
||||
|
|
@ -1356,7 +1361,7 @@ Private Sub AddDataFiles(aFile As String[], bLink As Boolean)
|
|||
|
||||
sName = Project.GetUniqueName(sDir, File.Name(sPath))
|
||||
Project.InsertFile(sName, sDir, sPath, True, bLink)
|
||||
|
||||
|
||||
Next
|
||||
|
||||
Project.SelectKey(sDir &/ sName)
|
||||
|
|
@ -1370,7 +1375,6 @@ Catch
|
|||
|
||||
End
|
||||
|
||||
|
||||
Public Sub tvwProject_Drop()
|
||||
|
||||
Dim aFile As String[]
|
||||
|
|
@ -1388,7 +1392,7 @@ Public Sub tvwProject_Drop()
|
|||
Endif
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If Drag.Action = Drag.Move Then
|
||||
Project.MoveFile(sSrc, GetCurrentDir($sKey) &/ File.Name(sSrc), Drag.Format = MMime.CLASS)
|
||||
Else If Drag.Action = Drag.Copy Then
|
||||
|
|
@ -1468,7 +1472,7 @@ End
|
|||
Public Sub tvwProject_Expand()
|
||||
|
||||
Dim sKey As String = tvwProject.Item.Key
|
||||
|
||||
|
||||
If Not sKey Then Return
|
||||
If Left(sKey) = "$" Then Return
|
||||
Project.FillDir(sKey)
|
||||
|
|
@ -1478,7 +1482,8 @@ End
|
|||
Public Sub tvwProject_Collapse()
|
||||
|
||||
Dim sKey As String = tvwProject.Item.Key
|
||||
|
||||
|
||||
$bHasJustCollapsed = True
|
||||
If Not sKey Then Return
|
||||
If File.Dir(sKey) = Project.Dir And If Not IsDir(sKey) Then tvwProject[sKey].Expanded = True
|
||||
|
||||
|
|
@ -1779,6 +1784,7 @@ Public Sub mnuAddVersion_Click()
|
|||
If Message.Question(("Do you really want to add this file to the repository?"), ("Add"), ("Cancel")) = 2 Then Return
|
||||
|
||||
VersionControl.AddFile($sKey)
|
||||
If Project.IsFormPath($sKey) Then VersionControl.AddFile(File.SetExt($sKey, "class"))
|
||||
Project.Refresh
|
||||
|
||||
End
|
||||
|
|
@ -1886,24 +1892,24 @@ End
|
|||
' End
|
||||
|
||||
Public Sub txtSearch_Click()
|
||||
|
||||
|
||||
'Project.StoreCombo(cmbFind)
|
||||
FSearch.FindProject(txtSearch.Text)
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub txtSearch_Activate()
|
||||
|
||||
|
||||
txtSearch_Click
|
||||
|
||||
|
||||
End
|
||||
|
||||
Public Sub btnSearchAdd_Click()
|
||||
|
||||
|
||||
txtSearchProject.Clear
|
||||
Project.ProjectFilter = Project.FILTER_ADDED
|
||||
timSearchProject_Timer
|
||||
|
||||
|
||||
End
|
||||
|
||||
' Public Sub tabProperty_Click()
|
||||
|
|
|
|||
|
|
@ -27,183 +27,184 @@ Private Const ERR_023 As String = ("Alias name must be a string")
|
|||
Private Const ERR_024 As String = ("Ambiguous expression. Please use brackets")
|
||||
Private Const ERR_025 As String = ("Argument cannot be passed by reference")
|
||||
Private Const ERR_026 As String = ("Array declaration is forbidden with typed collection")
|
||||
Private Const ERR_027 As String = ("Bad archive: &1: &2")
|
||||
Private Const ERR_028 As String = ("Bad argument")
|
||||
Private Const ERR_029 As String = ("Bad character constant in string")
|
||||
Private Const ERR_030 As String = ("Bad constant type")
|
||||
Private Const ERR_031 As String = ("Bad event handler in &1.&2(): &3")
|
||||
Private Const ERR_032 As String = ("Bad expression: &1")
|
||||
Private Const ERR_033 As String = ("Bad form file version")
|
||||
Private Const ERR_034 As String = ("Bad format string")
|
||||
Private Const ERR_035 As String = ("Bad number of dimensions")
|
||||
Private Const ERR_036 As String = ("Bad project file: line &1: &2")
|
||||
Private Const ERR_037 As String = ("Bad regular expression: &1")
|
||||
Private Const ERR_038 As String = ("Bad string conversion")
|
||||
Private Const ERR_039 As String = ("Bad subscript range")
|
||||
Private Const ERR_040 As String = ("Bad use of virtual class")
|
||||
Private Const ERR_041 As String = ("Bad version string")
|
||||
Private Const ERR_042 As String = ("Cannot create .startup file")
|
||||
Private Const ERR_043 As String = ("Cannot create action file: &1")
|
||||
Private Const ERR_044 As String = ("Cannot create callback: &1")
|
||||
Private Const ERR_045 As String = ("Cannot create class information: &1: &2")
|
||||
Private Const ERR_046 As String = ("Cannot create file: &1")
|
||||
Private Const ERR_047 As String = ("Cannot create temporary archive file: &1")
|
||||
Private Const ERR_048 As String = ("Cannot find dynamic library '&1': &2")
|
||||
Private Const ERR_049 As String = ("Cannot find symbol '&2' in dynamic library '&1'")
|
||||
Private Const ERR_050 As String = ("Cannot inherit twice")
|
||||
Private Const ERR_051 As String = ("Cannot instanciate native types")
|
||||
Private Const ERR_052 As String = ("Cannot load class '&1': &2&3")
|
||||
Private Const ERR_053 As String = ("Cannot load component '&1': &2")
|
||||
Private Const ERR_054 As String = ("Cannot make executable: &1: &2")
|
||||
Private Const ERR_055 As String = ("Cannot mix NEW and embedded array")
|
||||
Private Const ERR_056 As String = ("Cannot mix NEW and embedded structure")
|
||||
Private Const ERR_057 As String = ("Cannot open file '&1': &2")
|
||||
Private Const ERR_058 As String = ("Cannot open file: &1")
|
||||
Private Const ERR_059 As String = ("Cannot raise events in static function")
|
||||
Private Const ERR_060 As String = ("Cannot read file: &1")
|
||||
Private Const ERR_061 As String = ("Cannot read file: &1: &2")
|
||||
Private Const ERR_062 As String = ("Cannot register class '&1'")
|
||||
Private Const ERR_063 As String = ("Cannot set file owner: &1: &2")
|
||||
Private Const ERR_064 As String = ("Cannot use NEW operator there")
|
||||
Private Const ERR_065 As String = ("Cannot use TRY twice")
|
||||
Private Const ERR_066 As String = ("Class '&1' is not creatable")
|
||||
Private Const ERR_067 As String = ("Comparison operator expected")
|
||||
Private Const ERR_068 As String = ("Component not found: &1")
|
||||
Private Const ERR_069 As String = ("Device is full")
|
||||
Private Const ERR_070 As String = ("Division by zero")
|
||||
Private Const ERR_071 As String = ("Dynamic symbols cannot be used in static function")
|
||||
Private Const ERR_072 As String = ("Embedded array")
|
||||
Private Const ERR_073 As String = ("End of file")
|
||||
Private Const ERR_074 As String = ("Equality or inequality operator expected")
|
||||
Private Const ERR_075 As String = ("Expression too complex")
|
||||
Private Const ERR_076 As String = ("Expression too complex. Too many operands")
|
||||
Private Const ERR_077 As String = ("File already exists")
|
||||
Private Const ERR_078 As String = ("File is a directory")
|
||||
Private Const ERR_079 As String = ("File is locked")
|
||||
Private Const ERR_080 As String = ("File name is too long")
|
||||
Private Const ERR_081 As String = ("File or directory does not exist")
|
||||
Private Const ERR_082 As String = ("Forbidden GOTO")
|
||||
Private Const ERR_083 As String = ("Illegal instruction")
|
||||
Private Const ERR_084 As String = ("Invalid assignment")
|
||||
Private Const ERR_085 As String = ("Invalid date")
|
||||
Private Const ERR_086 As String = ("Invalid object")
|
||||
Private Const ERR_087 As String = ("Invalid path")
|
||||
Private Const ERR_088 As String = ("Label '&1' not declared")
|
||||
Private Const ERR_089 As String = ("Library name must be a string")
|
||||
Private Const ERR_090 As String = ("Loop variable already in use")
|
||||
Private Const ERR_091 As String = ("Loop variable must be local")
|
||||
Private Const ERR_092 As String = ("ME cannot be used in a static function")
|
||||
Private Const ERR_093 As String = ("Mathematic error")
|
||||
Private Const ERR_094 As String = ("Missing #Endif")
|
||||
Private Const ERR_095 As String = ("Missing &1")
|
||||
Private Const ERR_096 As String = ("Missing operator")
|
||||
Private Const ERR_097 As String = ("Missing right brace")
|
||||
Private Const ERR_098 As String = ("NEW cannot have arguments passed by reference")
|
||||
Private Const ERR_099 As String = ("No instanciation method")
|
||||
Private Const ERR_100 As String = ("No parent class")
|
||||
Private Const ERR_101 As String = ("No return value")
|
||||
Private Const ERR_102 As String = ("No startup method")
|
||||
Private Const ERR_103 As String = ("Non terminated string")
|
||||
Private Const ERR_104 As String = ("Not a directory: &1")
|
||||
Private Const ERR_105 As String = ("Not a function")
|
||||
Private Const ERR_106 As String = ("Not an array")
|
||||
Private Const ERR_107 As String = ("Not an enumeration")
|
||||
Private Const ERR_108 As String = ("Not an object")
|
||||
Private Const ERR_109 As String = ("Not enough argument to New()")
|
||||
Private Const ERR_110 As String = ("Not enough arguments")
|
||||
Private Const ERR_111 As String = ("Not enough arguments to &1()")
|
||||
Private Const ERR_112 As String = ("Null object")
|
||||
Private Const ERR_113 As String = ("Out of bounds")
|
||||
Private Const ERR_114 As String = ("Out of memory")
|
||||
Private Const ERR_115 As String = ("Out of range")
|
||||
Private Const ERR_116 As String = ("Overflow")
|
||||
Private Const ERR_117 As String = ("Read error")
|
||||
Private Const ERR_118 As String = ("Return value datatype not specified in function declaration")
|
||||
Private Const ERR_119 As String = ("STOP instruction encountered")
|
||||
Private Const ERR_120 As String = ("SUPER cannot be used alone")
|
||||
Private Const ERR_121 As String = ("Serialization error")
|
||||
Private Const ERR_122 As String = ("Stack overflow")
|
||||
Private Const ERR_123 As String = ("Static arrays are forbidden here")
|
||||
Private Const ERR_124 As String = ("Stream is closed")
|
||||
Private Const ERR_125 As String = ("String expected")
|
||||
Private Const ERR_126 As String = ("Structures must be public")
|
||||
Private Const ERR_127 As String = ("Subroutine arguments cannot be passed by reference")
|
||||
Private Const ERR_128 As String = ("Syntax error")
|
||||
Private Const ERR_129 As String = ("Syntax error at function declaration")
|
||||
Private Const ERR_130 As String = ("Syntax error in event name")
|
||||
Private Const ERR_131 As String = ("Syntax error in file open mode")
|
||||
Private Const ERR_132 As String = ("Syntax error in return type")
|
||||
Private Const ERR_133 As String = ("Syntax error. &1 expected")
|
||||
Private Const ERR_134 As String = ("Syntax error. '...' must be the last argument")
|
||||
Private Const ERR_135 As String = ("Syntax error. Bad property type")
|
||||
Private Const ERR_136 As String = ("Syntax error. CASE or DEFAULT expected after SELECT")
|
||||
Private Const ERR_137 As String = ("Syntax error. CLASS needs an identifier")
|
||||
Private Const ERR_138 As String = ("Syntax error. Cannot use this syntax in assignment")
|
||||
Private Const ERR_139 As String = ("Syntax error. INHERITS needs a class name")
|
||||
Private Const ERR_140 As String = ("Syntax error. Identifier expected.")
|
||||
Private Const ERR_141 As String = ("Syntax error. Invalid identifier in function name")
|
||||
Private Const ERR_142 As String = ("Syntax error. Invalid identifier in property name")
|
||||
Private Const ERR_143 As String = ("Syntax error. Invalid optional parameter")
|
||||
Private Const ERR_144 As String = ("Syntax error. Invalid return type")
|
||||
Private Const ERR_145 As String = ("Syntax error. Invalid type description of &1 argument")
|
||||
Private Const ERR_146 As String = ("Syntax error. Invalid type description of &1 field")
|
||||
Private Const ERR_147 As String = ("Syntax error. Missing &1")
|
||||
Private Const ERR_148 As String = ("Syntax error. Needless arguments")
|
||||
Private Const ERR_149 As String = ("Syntax error. Point syntax used outside of WITH / END WITH")
|
||||
Private Const ERR_150 As String = ("Syntax error. STRUCT needs an identifier")
|
||||
Private Const ERR_151 As String = ("Syntax error. The &1 argument is not a valid identifier")
|
||||
Private Const ERR_152 As String = ("Syntax error. The &1 field is not a valid identifier")
|
||||
Private Const ERR_153 As String = ("Syntax error. VarPtr() takes only one identifier")
|
||||
Private Const ERR_154 As String = ("System error #&1: &2")
|
||||
Private Const ERR_155 As String = ("The '!' operator must be followed by an identifier")
|
||||
Private Const ERR_156 As String = ("The '.' operator must be followed by an identifier")
|
||||
Private Const ERR_157 As String = ("The special method &1 cannot be a function")
|
||||
Private Const ERR_158 As String = ("The special method &1 cannot be implemented")
|
||||
Private Const ERR_159 As String = ("The special method &1 cannot be static")
|
||||
Private Const ERR_160 As String = ("The special method &1 must be a function")
|
||||
Private Const ERR_161 As String = ("The special method &1 must be public")
|
||||
Private Const ERR_162 As String = ("The special method &1 must be static")
|
||||
Private Const ERR_163 As String = ("The special method &1 must take a variable number of arguments only")
|
||||
Private Const ERR_164 As String = ("The special method &1 must take at least one argument")
|
||||
Private Const ERR_165 As String = ("The special method &1 takes no arguments")
|
||||
Private Const ERR_166 As String = ("The special method must return an integer")
|
||||
Private Const ERR_167 As String = ("The special method must take exactly one argument")
|
||||
Private Const ERR_168 As String = ("The special method must take exactly two arguments")
|
||||
Private Const ERR_169 As String = ("The special method signature is incorrect")
|
||||
Private Const ERR_170 As String = ("This expression cannot be a statement")
|
||||
Private Const ERR_171 As String = ("This expression cannot be passed by reference")
|
||||
Private Const ERR_172 As String = ("Too many arguments")
|
||||
Private Const ERR_173 As String = ("Too many arguments to &1()")
|
||||
Private Const ERR_174 As String = ("Too many array declarations")
|
||||
Private Const ERR_175 As String = ("Too many constants")
|
||||
Private Const ERR_176 As String = ("Too many different classes used")
|
||||
Private Const ERR_177 As String = ("Too many dimensions")
|
||||
Private Const ERR_178 As String = ("Too many dynamic variables")
|
||||
Private Const ERR_179 As String = ("Too many events")
|
||||
Private Const ERR_180 As String = ("Too many expressions in CASE")
|
||||
Private Const ERR_181 As String = ("Too many external functions")
|
||||
Private Const ERR_182 As String = ("Too many functions")
|
||||
Private Const ERR_183 As String = ("Too many imbricated #If...#Endif")
|
||||
Private Const ERR_184 As String = ("Too many nested control structures.")
|
||||
Private Const ERR_185 As String = ("Too many simultaneous new strings")
|
||||
Private Const ERR_186 As String = ("Too many static variables")
|
||||
Private Const ERR_187 As String = ("Too many unknown symbols")
|
||||
Private Const ERR_188 As String = ("Type mismatch")
|
||||
Private Const ERR_189 As String = ("Type mismatch: wanted &1, got &2 instead")
|
||||
Private Const ERR_190 As String = ("Unexpected &1")
|
||||
Private Const ERR_191 As String = ("Unexpected end of line")
|
||||
Private Const ERR_192 As String = ("Unexpected string")
|
||||
Private Const ERR_193 As String = ("Unknown error")
|
||||
Private Const ERR_194 As String = ("Unknown event")
|
||||
Private Const ERR_195 As String = ("Unknown file extension")
|
||||
Private Const ERR_196 As String = ("Unknown identifier: &1")
|
||||
Private Const ERR_197 As String = ("Unknown operator")
|
||||
Private Const ERR_198 As String = ("Unknown symbol '&1' in class '&2'")
|
||||
Private Const ERR_199 As String = ("Unsupported string conversion")
|
||||
Private Const ERR_200 As String = ("Useless LOCK")
|
||||
Private Const ERR_201 As String = ("VarPtr() argument must be a dynamic, a static or a local variable")
|
||||
Private Const ERR_202 As String = ("Void key")
|
||||
Private Const ERR_203 As String = ("Write error")
|
||||
Private Const ERR_027 As String = ("Arrays of structure are not supported")
|
||||
Private Const ERR_028 As String = ("Bad archive: &1: &2")
|
||||
Private Const ERR_029 As String = ("Bad argument")
|
||||
Private Const ERR_030 As String = ("Bad character constant in string")
|
||||
Private Const ERR_031 As String = ("Bad constant type")
|
||||
Private Const ERR_032 As String = ("Bad event handler in &1.&2(): &3")
|
||||
Private Const ERR_033 As String = ("Bad expression: &1")
|
||||
Private Const ERR_034 As String = ("Bad form file version")
|
||||
Private Const ERR_035 As String = ("Bad format string")
|
||||
Private Const ERR_036 As String = ("Bad number of dimensions")
|
||||
Private Const ERR_037 As String = ("Bad project file: line &1: &2")
|
||||
Private Const ERR_038 As String = ("Bad regular expression: &1")
|
||||
Private Const ERR_039 As String = ("Bad string conversion")
|
||||
Private Const ERR_040 As String = ("Bad subscript range")
|
||||
Private Const ERR_041 As String = ("Bad use of virtual class")
|
||||
Private Const ERR_042 As String = ("Bad version string")
|
||||
Private Const ERR_043 As String = ("Cannot create .startup file")
|
||||
Private Const ERR_044 As String = ("Cannot create action file: &1")
|
||||
Private Const ERR_045 As String = ("Cannot create callback: &1")
|
||||
Private Const ERR_046 As String = ("Cannot create class information: &1: &2")
|
||||
Private Const ERR_047 As String = ("Cannot create file: &1")
|
||||
Private Const ERR_048 As String = ("Cannot create temporary archive file: &1")
|
||||
Private Const ERR_049 As String = ("Cannot find dynamic library '&1': &2")
|
||||
Private Const ERR_050 As String = ("Cannot find symbol '&2' in dynamic library '&1'")
|
||||
Private Const ERR_051 As String = ("Cannot inherit twice")
|
||||
Private Const ERR_052 As String = ("Cannot instanciate native types")
|
||||
Private Const ERR_053 As String = ("Cannot load class '&1': &2&3")
|
||||
Private Const ERR_054 As String = ("Cannot load component '&1': &2")
|
||||
Private Const ERR_055 As String = ("Cannot make executable: &1: &2")
|
||||
Private Const ERR_056 As String = ("Cannot mix NEW and embedded array")
|
||||
Private Const ERR_057 As String = ("Cannot mix NEW and embedded structure")
|
||||
Private Const ERR_058 As String = ("Cannot open file '&1': &2")
|
||||
Private Const ERR_059 As String = ("Cannot open file: &1")
|
||||
Private Const ERR_060 As String = ("Cannot raise events in static function")
|
||||
Private Const ERR_061 As String = ("Cannot read file: &1")
|
||||
Private Const ERR_062 As String = ("Cannot read file: &1: &2")
|
||||
Private Const ERR_063 As String = ("Cannot register class '&1'")
|
||||
Private Const ERR_064 As String = ("Cannot set file owner: &1: &2")
|
||||
Private Const ERR_065 As String = ("Cannot use NEW operator there")
|
||||
Private Const ERR_066 As String = ("Cannot use TRY twice")
|
||||
Private Const ERR_067 As String = ("Class '&1' is not creatable")
|
||||
Private Const ERR_068 As String = ("Comparison operator expected")
|
||||
Private Const ERR_069 As String = ("Component not found: &1")
|
||||
Private Const ERR_070 As String = ("Device is full")
|
||||
Private Const ERR_071 As String = ("Division by zero")
|
||||
Private Const ERR_072 As String = ("Dynamic symbols cannot be used in static function")
|
||||
Private Const ERR_073 As String = ("Embedded array")
|
||||
Private Const ERR_074 As String = ("Embedded arrays are forbidden here")
|
||||
Private Const ERR_075 As String = ("End of file")
|
||||
Private Const ERR_076 As String = ("Equality or inequality operator expected")
|
||||
Private Const ERR_077 As String = ("Expression too complex")
|
||||
Private Const ERR_078 As String = ("Expression too complex. Too many operands")
|
||||
Private Const ERR_079 As String = ("File already exists")
|
||||
Private Const ERR_080 As String = ("File is a directory")
|
||||
Private Const ERR_081 As String = ("File is locked")
|
||||
Private Const ERR_082 As String = ("File name is too long")
|
||||
Private Const ERR_083 As String = ("File or directory does not exist")
|
||||
Private Const ERR_084 As String = ("Forbidden GOTO")
|
||||
Private Const ERR_085 As String = ("Illegal instruction")
|
||||
Private Const ERR_086 As String = ("Invalid assignment")
|
||||
Private Const ERR_087 As String = ("Invalid date")
|
||||
Private Const ERR_088 As String = ("Invalid object")
|
||||
Private Const ERR_089 As String = ("Invalid path")
|
||||
Private Const ERR_090 As String = ("Label '&1' not declared")
|
||||
Private Const ERR_091 As String = ("Library name must be a string")
|
||||
Private Const ERR_092 As String = ("Loop variable already in use")
|
||||
Private Const ERR_093 As String = ("Loop variable must be local")
|
||||
Private Const ERR_094 As String = ("ME cannot be used in a static function")
|
||||
Private Const ERR_095 As String = ("Mathematic error")
|
||||
Private Const ERR_096 As String = ("Missing #Endif")
|
||||
Private Const ERR_097 As String = ("Missing &1")
|
||||
Private Const ERR_098 As String = ("Missing operator")
|
||||
Private Const ERR_099 As String = ("Missing right brace")
|
||||
Private Const ERR_100 As String = ("NEW cannot have arguments passed by reference")
|
||||
Private Const ERR_101 As String = ("No instanciation method")
|
||||
Private Const ERR_102 As String = ("No parent class")
|
||||
Private Const ERR_103 As String = ("No return value")
|
||||
Private Const ERR_104 As String = ("No startup method")
|
||||
Private Const ERR_105 As String = ("Non terminated string")
|
||||
Private Const ERR_106 As String = ("Not a directory: &1")
|
||||
Private Const ERR_107 As String = ("Not a function")
|
||||
Private Const ERR_108 As String = ("Not an array")
|
||||
Private Const ERR_109 As String = ("Not an enumeration")
|
||||
Private Const ERR_110 As String = ("Not an object")
|
||||
Private Const ERR_111 As String = ("Not enough argument to New()")
|
||||
Private Const ERR_112 As String = ("Not enough arguments")
|
||||
Private Const ERR_113 As String = ("Not enough arguments to &1()")
|
||||
Private Const ERR_114 As String = ("Null object")
|
||||
Private Const ERR_115 As String = ("Out of bounds")
|
||||
Private Const ERR_116 As String = ("Out of memory")
|
||||
Private Const ERR_117 As String = ("Out of range")
|
||||
Private Const ERR_118 As String = ("Overflow")
|
||||
Private Const ERR_119 As String = ("Read error")
|
||||
Private Const ERR_120 As String = ("Return value datatype not specified in function declaration")
|
||||
Private Const ERR_121 As String = ("STOP instruction encountered")
|
||||
Private Const ERR_122 As String = ("SUPER cannot be used alone")
|
||||
Private Const ERR_123 As String = ("Serialization error")
|
||||
Private Const ERR_124 As String = ("Stack overflow")
|
||||
Private Const ERR_125 As String = ("Stream is closed")
|
||||
Private Const ERR_126 As String = ("String expected")
|
||||
Private Const ERR_127 As String = ("Structures must be public")
|
||||
Private Const ERR_128 As String = ("Subroutine arguments cannot be passed by reference")
|
||||
Private Const ERR_129 As String = ("Syntax error")
|
||||
Private Const ERR_130 As String = ("Syntax error at function declaration")
|
||||
Private Const ERR_131 As String = ("Syntax error in event name")
|
||||
Private Const ERR_132 As String = ("Syntax error in file open mode")
|
||||
Private Const ERR_133 As String = ("Syntax error in return type")
|
||||
Private Const ERR_134 As String = ("Syntax error. &1 expected")
|
||||
Private Const ERR_135 As String = ("Syntax error. '...' must be the last argument")
|
||||
Private Const ERR_136 As String = ("Syntax error. Bad property type")
|
||||
Private Const ERR_137 As String = ("Syntax error. CASE or DEFAULT expected after SELECT")
|
||||
Private Const ERR_138 As String = ("Syntax error. CLASS needs an identifier")
|
||||
Private Const ERR_139 As String = ("Syntax error. Cannot use this syntax in assignment")
|
||||
Private Const ERR_140 As String = ("Syntax error. INHERITS needs a class name")
|
||||
Private Const ERR_141 As String = ("Syntax error. Identifier expected.")
|
||||
Private Const ERR_142 As String = ("Syntax error. Invalid identifier in function name")
|
||||
Private Const ERR_143 As String = ("Syntax error. Invalid identifier in property name")
|
||||
Private Const ERR_144 As String = ("Syntax error. Invalid optional parameter")
|
||||
Private Const ERR_145 As String = ("Syntax error. Invalid return type")
|
||||
Private Const ERR_146 As String = ("Syntax error. Invalid type description of &1 argument")
|
||||
Private Const ERR_147 As String = ("Syntax error. Invalid type description of &1 field")
|
||||
Private Const ERR_148 As String = ("Syntax error. Missing &1")
|
||||
Private Const ERR_149 As String = ("Syntax error. Needless arguments")
|
||||
Private Const ERR_150 As String = ("Syntax error. Point syntax used outside of WITH / END WITH")
|
||||
Private Const ERR_151 As String = ("Syntax error. STRUCT needs an identifier")
|
||||
Private Const ERR_152 As String = ("Syntax error. The &1 argument is not a valid identifier")
|
||||
Private Const ERR_153 As String = ("Syntax error. The &1 field is not a valid identifier")
|
||||
Private Const ERR_154 As String = ("Syntax error. VarPtr() takes only one identifier")
|
||||
Private Const ERR_155 As String = ("System error #&1: &2")
|
||||
Private Const ERR_156 As String = ("The '!' operator must be followed by an identifier")
|
||||
Private Const ERR_157 As String = ("The '.' operator must be followed by an identifier")
|
||||
Private Const ERR_158 As String = ("The special method &1 cannot be a function")
|
||||
Private Const ERR_159 As String = ("The special method &1 cannot be implemented")
|
||||
Private Const ERR_160 As String = ("The special method &1 cannot be static")
|
||||
Private Const ERR_161 As String = ("The special method &1 must be a function")
|
||||
Private Const ERR_162 As String = ("The special method &1 must be public")
|
||||
Private Const ERR_163 As String = ("The special method &1 must be static")
|
||||
Private Const ERR_164 As String = ("The special method &1 must take a variable number of arguments only")
|
||||
Private Const ERR_165 As String = ("The special method &1 must take at least one argument")
|
||||
Private Const ERR_166 As String = ("The special method &1 takes no arguments")
|
||||
Private Const ERR_167 As String = ("The special method must return an integer")
|
||||
Private Const ERR_168 As String = ("The special method must take exactly one argument")
|
||||
Private Const ERR_169 As String = ("The special method must take exactly two arguments")
|
||||
Private Const ERR_170 As String = ("The special method signature is incorrect")
|
||||
Private Const ERR_171 As String = ("This expression cannot be a statement")
|
||||
Private Const ERR_172 As String = ("This expression cannot be passed by reference")
|
||||
Private Const ERR_173 As String = ("Too many arguments")
|
||||
Private Const ERR_174 As String = ("Too many arguments to &1()")
|
||||
Private Const ERR_175 As String = ("Too many array declarations")
|
||||
Private Const ERR_176 As String = ("Too many constants")
|
||||
Private Const ERR_177 As String = ("Too many different classes used")
|
||||
Private Const ERR_178 As String = ("Too many dimensions")
|
||||
Private Const ERR_179 As String = ("Too many dynamic variables")
|
||||
Private Const ERR_180 As String = ("Too many events")
|
||||
Private Const ERR_181 As String = ("Too many expressions in CASE")
|
||||
Private Const ERR_182 As String = ("Too many external functions")
|
||||
Private Const ERR_183 As String = ("Too many functions")
|
||||
Private Const ERR_184 As String = ("Too many imbricated #If...#Endif")
|
||||
Private Const ERR_185 As String = ("Too many nested control structures.")
|
||||
Private Const ERR_186 As String = ("Too many simultaneous new strings")
|
||||
Private Const ERR_187 As String = ("Too many static variables")
|
||||
Private Const ERR_188 As String = ("Too many unknown symbols")
|
||||
Private Const ERR_189 As String = ("Type mismatch")
|
||||
Private Const ERR_190 As String = ("Type mismatch: wanted &1, got &2 instead")
|
||||
Private Const ERR_191 As String = ("Unexpected &1")
|
||||
Private Const ERR_192 As String = ("Unexpected end of line")
|
||||
Private Const ERR_193 As String = ("Unexpected string")
|
||||
Private Const ERR_194 As String = ("Unknown error")
|
||||
Private Const ERR_195 As String = ("Unknown event")
|
||||
Private Const ERR_196 As String = ("Unknown file extension")
|
||||
Private Const ERR_197 As String = ("Unknown identifier: &1")
|
||||
Private Const ERR_198 As String = ("Unknown operator")
|
||||
Private Const ERR_199 As String = ("Unknown symbol '&1' in class '&2'")
|
||||
Private Const ERR_200 As String = ("Unsupported string conversion")
|
||||
Private Const ERR_201 As String = ("Useless LOCK")
|
||||
Private Const ERR_202 As String = ("VarPtr() argument must be a dynamic, a static or a local variable")
|
||||
Private Const ERR_203 As String = ("Void key")
|
||||
Private Const ERR_204 As String = ("Write error")
|
||||
'}
|
||||
|
||||
Public Sub Main()
|
||||
|
|
|
|||
|
|
@ -4903,6 +4903,7 @@ End
|
|||
Public Sub IsAdded(sPath As String, Optional bNoRec As Boolean) As Boolean
|
||||
|
||||
If AddedPaths.Exist(sPath) Then Return True
|
||||
'If IsSourcePath(sPath) And If File.Ext(sPath) = "form" And If AddedPaths.Exist(File.SetExt(sPath, "class")) Then Return True
|
||||
If bNoRec Then Return False
|
||||
If sPath = "" Or sPath = "/" Then Return False
|
||||
Return IsAdded(File.Dir(sPath))
|
||||
|
|
|
|||
|
|
@ -145,20 +145,30 @@ Private Sub UpdatePathFromStatus(sStatus As String)
|
|||
|
||||
Dim sFile As String
|
||||
Dim sExt As String
|
||||
Dim sPath As String
|
||||
Dim sForm As String
|
||||
|
||||
For Each sStatus In Split(sStatus, "\n")
|
||||
|
||||
sFile = Mid$(sStatus, 9)
|
||||
sPath = Project.Dir &/ sFile
|
||||
|
||||
If Left(sStatus) = "D" Then
|
||||
Project.LockedPaths[Project.Dir &/ sFile] = True
|
||||
Project.LockedPaths[sPath] = True
|
||||
Else If Left(sStatus) = "?" Then
|
||||
If Left(File.Name(sFile)) = "." Then Continue
|
||||
If sFile Begins ".lang/" Then Continue
|
||||
If sFile = Project.Name & ".gambas" Then Continue
|
||||
sExt = File.Ext(sFile)
|
||||
If Left(sExt) = "r" And IsDigit(Mid$(sExt, 2)) And If Exist(Project.Dir &/ File.Dir(sFile) &/ File.BaseName(sFile)) Then Continue
|
||||
Project.AddedPaths[Project.Dir &/ sFile] = True
|
||||
Project.AddedPaths[sPath] = True
|
||||
|
||||
' If Project.IsSourcePath(sPath) And If sExt = "class" Then
|
||||
' For Each sForm In Dir(Project.Dir &/ File.Dir(sFile), File.BaseName(sFile) & ".*")
|
||||
' Project.AddedPaths[Project.Dir &/ File.Dir(sFile) &/ sForm] = True
|
||||
' Next
|
||||
' Endif
|
||||
|
||||
Endif
|
||||
|
||||
Next
|
||||
|
|
|
|||
|
|
@ -45,6 +45,7 @@
|
|||
5 Peter Lang
|
||||
5 Amos Bilardo
|
||||
5 Gianni Piccini
|
||||
5 Enrico Righetto
|
||||
4 James Skagg
|
||||
4 Frank Berg
|
||||
4 Allen Murphy
|
||||
|
|
@ -69,6 +70,7 @@
|
|||
2 Reza Salari
|
||||
2 Vincenzo Domenico Femia
|
||||
2 Yannick Butin
|
||||
2 Sergio Caparrós
|
||||
2 Brice Vidal
|
||||
2 Mathew Rule
|
||||
2 Daniel Reumerman
|
||||
|
|
|
|||
Loading…
Reference in a new issue