Show warning message and dont remove debugger placeholders

Author: Timocop

BasicPawn/Controls and Forms/FormMain.resx

@@ -549,47 +549,47 @@
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
-        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABE
-        CQAAAk1TRnQBSQFMAgEBAgEAAQgBEAEIAhABAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABQAMA
-        ARADAAEBAQABIAYAARASAAMuAUgDPAFoAxMBGvQAAaYBoQGkAf8DAAH/Az4BbAMGAQgYAAGqAgAB/9QA
-        A1gBvAHnAeUB5wH/A1oB5AMtAUUDAAEBFAABqgIAAf8BsgIAAf8QAAOEAf8DgwH/A4IB/wOBAf8DgAH/
-        AwAB/wMAAf8DAAH/AwAB/wMAAf8DAAH/AwAB/wMAAf8DAAH/AwAB/wMAAf+AAAMMARADXAHPAeUB4wHl
-        Af8DVwHCAx0BKQQAAl8BTAHzAaoCAAH/AaoCAAH/AaoCAAH/Ab4CAAH/AcUBgAEAAf8BsgIAAf8MAAOF
-        Af8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8B+gHfAcEB/wH6
-        Ad8BwQH/AfsB4wHJAf8B/AHrAdkB/wH8Ae8B4AH/AfwB7wHgAf8B/AHrAdkB/wH7AeMByQH/AwAB/4QA
-        AxwBJwNkAecB3wHdAd8B/wNMAZEDCwEPAaoCAAH/AesBpgEAAf8B5wGiAQAB/wHjAZ0BAAH/Ad8BmQEA
-        Af8B2wGUAQAB/wHFAYABAAH/AbICAAH/CAADhgL/AfwB+QL/AfwB+QH/AfoB3wHBAv8B/AH5Av8B/AH5
-        Af8B+gHfAcEC/wH8AfkC/wH8AfkB/wH8AesB2QH/AQABmgEAAf8BAAGaAQAB/wEAAZoBAAH/AQABmgEA
-        Av8B/QH7Af8DAAH/iAADJgE4A2oB+QNAAf0DNQFYAaoCAAH/Ae8BqgEAAf8B6wGmAQAB/wHnAaIBAAH/
-        AeMBnQEAAf8B3wGZAQAB/wHbAZQBAAH/AcUBgAEAAf8BqgIAAf8EAAKHAYgC/wH8AfkC/wH8AfkB/wH6
-        Ad8BwQL/AfwB+QL/AfwB+QH/AfoB3wHBAv8B/AH5Av8B/AH5Af8B/AHvAeAB/wEAAZoBAAH/AQAB5gEA
-        Af8BAAHmAQAB/wEAAZoBAAL/Af0B/AH/AwAB/4wAAy0BRgNZAfUDXwHzAaoCAAH/AfMBrgEAAf8B7wGq
-        AQAB/wHrAaYBAAH/AecBogEAAf8B4wGdAQAB/wHKAYYBAAH/AbMCAAH/CAACiAGJAf8B+gHfAcEB/wH6
-        Ad8BwQH/AfoB3wHBAf8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8B+wHlAc4B/wH8Ae0B3gH/Af0B9gHu
-        Af8BAAHIAQAB/wEAAesBgAH/AQAB5gEAAf8BAAGaAQAB/wH8Ae8B4AH/AwAB/5AAA08BmwNXAbcCWQFC
-        AfUBqgIAAf8BqgIAAf8BqgIAAf8BxAGCAQAB/wHPAYsBAAH/AbUCAAH/AwMBBAgAA4oC/wH8AfkB/wIA
-        Ad8B/wIAAd8B/wIAAd8B/wIAAd8B/wH6Ad8BwQL/Af0B/AH/AcwCAAH/AcwCAAH/AcwCAAH/AQAByAEA
-        Af8BAAGaAQAB/wEAAZoBAAL/Af0B+wH/AwAB/4wAAxkBIwNUAa8DOwFjAzYBWQNEAXoDTgGUA04BmQGq
-        AgAB/wG2AgAB/wNbAcYDFgEeCAACiwGMAv8B/AH5Af8CAAHfAf8BqwGtAfQB/wGsAa4B9AH/AgAB3AH/
-        AfsB4gHIAv8B/QH8Af8B5QGwAQAB/wHMAgAB/wHMAgAC/wH+Af0B/wH8Ae8B4AL/Af0B+wL/AfwB+gH/
-        AwAB/4wAA0QBegNRAZ8DIAEuAy8BSQNHAYIDSAGDA1YBsQGqAgAB/wNYAcEDXQHKAzYBWQgAAowBjQH/
-        AfoB3wHBAf8CAAHfAf8BqwGtAfQB/wGrAa0B9AH/AgAB3wH/AfwB7QHeAf8B4wGlAQAB/wHMAgAB/wHj
-        AaUBAAH/AcwCAAH/AfwB7QHeAf8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8DAAH/jAADTAGSA0oBiQMr
-        AUIDQAFvA1IBowNRAZ8DVgGxA1sBwwNUAa8DVgGzA0gBhQgAA44C/wH8AfkB/wIAAd8B/wIAAd8B/wIA
-        Ad8B/wHMAgAB/wHMAgAB/wHMAgAB/wHlAbABAAH/AfwB7QHeAv8B/QH8Av8B/QH6Af8B+gHfAcEC/wH8
-        AfkC/wH8AfkB/wMAAf+MAANMAY8DTAGSAzgBXQNFAX0DRwGBA04BmANTAaoDVgG0A1YBswNZAb4DRwGB
-        CAACjwGQAv8B/AH5Av8B/AH5Af8B+gHfAcEC/wH8AfkC/wH9AfwB/wH8Ae0B3gL/Af0B/AL/Af0B+wH/
-        AfsB4gHIAv8B/AH5Av8B/AH5Af8B+gHfAcEC/wH8AfkC/wH8AfkB/wOAAf+MAANKAY0DVQGyAz8BbANZ
-        Ab4DVQG1A04BmANMAZMDUAGeA1MBpQNbAcMDMQFOCAACkAGRAf8BngIAAf8BnAIAAf8BmgIAAf8BlwIA
-        Af8BlAIAAf8BkAIAAf8BjQIAAf8BiwIAAf8BiQIAAf8BiAIAAf8BiAIAAf8BiAIAAf8BiAIAAf8BiAIA
-        Af8DgQH/jAADMwFSA18B2wNKAY0DVgG0A18B2wNdAdMDXAHMA1kBvgNbAcsDUwGlAwcBCQgAA5IB/wHS
-        As8B/wHSAs8B/wHQAs0B/wHOAsoB/wHLAsUB/wHHAsEB/wHDAr0B/wHAAbkBugH/Ab0BtQG2Af8BuwGz
-        AbQB/wG6AbIBswH/AboBsgGzAf8BugGyAbMB/wG6AbIBswH/AoEBggH/kAADQAFxA18B4wNbAcgDYAHe
-        A2AB3gNcAd8DXAHqA1sBywMcASgMAAKTAZQB/wKSAZMB/wORAf8DkAH/Ao4BjwH/Ao0BjgH/AowBjQH/
-        A4sB/wOKAf8DiQH/A4gB/wOHAf8ChQGGAf8ChAGFAf8CgwGEAf8CggGDAf+UAAMzAVMDVgG2A18B4wNh
-        Ae4DXgHYA04BlAMVAR3QAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQABHwP/
-        BAABDwHfAv8EAAEHAc8GAAEEAQcGAAGAAQMGAAHAAQEGAAHgAQMGAAHwAQMGAAHgAQMGAAHgAQMGAAHg
-        AQMGAAHgAQMGAAHgAQMGAAHgAQMGAAHwAQcGAAH4AQ8C/wQACw==
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA+
+        CQAAAk1TRnQBSQFMAgEBAgEABRABAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABQAMAARADAAEB
+        AQABIAYAARASAAMuAUgDPAFoAxMBGvQAAaYBoQGkAf8DAAH/Az4BbAMGAQgYAAGqAgAB/9QAA1gBvAHn
+        AeUB5wH/A1oB5AMtAUUDAAEBFAABqgIAAf8BsgIAAf8QAAOEAf8DgwH/A4IB/wOBAf8DgAH/AwAB/wMA
+        Af8DAAH/AwAB/wMAAf8DAAH/AwAB/wMAAf8DAAH/AwAB/wMAAf+AAAMMARADXAHPAeUB4wHlAf8DVwHC
+        Ax0BKQQAAl8BTAHzAaoCAAH/AaoCAAH/AaoCAAH/Ab4CAAH/AcUBgAEAAf8BsgIAAf8MAAOFAf8B+gHf
+        AcEB/wH6Ad8BwQH/AfoB3wHBAf8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8B+gHfAcEB/wH6Ad8BwQH/
+        AfsB4wHJAf8B/AHrAdkB/wH8Ae8B4AH/AfwB7wHgAf8B/AHrAdkB/wH7AeMByQH/AwAB/4QAAxwBJwNk
+        AecB3wHdAd8B/wNMAZEDCwEPAaoCAAH/AesBpgEAAf8B5wGiAQAB/wHjAZ0BAAH/Ad8BmQEAAf8B2wGU
+        AQAB/wHFAYABAAH/AbICAAH/CAADhgL/AfwB+QL/AfwB+QH/AfoB3wHBAv8B/AH5Av8B/AH5Af8B+gHf
+        AcEC/wH8AfkC/wH8AfkB/wH8AesB2QH/AQABmgEAAf8BAAGaAQAB/wEAAZoBAAH/AQABmgEAAv8B/QH7
+        Af8DAAH/iAADJgE4A2oB+QNAAf0DNQFYAaoCAAH/Ae8BqgEAAf8B6wGmAQAB/wHnAaIBAAH/AeMBnQEA
+        Af8B3wGZAQAB/wHbAZQBAAH/AcUBgAEAAf8BqgIAAf8EAAKHAYgC/wH8AfkC/wH8AfkB/wH6Ad8BwQL/
+        AfwB+QL/AfwB+QH/AfoB3wHBAv8B/AH5Av8B/AH5Af8B/AHvAeAB/wEAAZoBAAH/AQAB5gEAAf8BAAHm
+        AQAB/wEAAZoBAAL/Af0B/AH/AwAB/4wAAy0BRgNZAfUDXwHzAaoCAAH/AfMBrgEAAf8B7wGqAQAB/wHr
+        AaYBAAH/AecBogEAAf8B4wGdAQAB/wHKAYYBAAH/AbMCAAH/CAACiAGJAf8B+gHfAcEB/wH6Ad8BwQH/
+        AfoB3wHBAf8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8B+wHlAc4B/wH8Ae0B3gH/Af0B9gHuAf8BAAHI
+        AQAB/wEAAesBgAH/AQAB5gEAAf8BAAGaAQAB/wH8Ae8B4AH/AwAB/5AAA08BmwNXAbcCWQFCAfUBqgIA
+        Af8BqgIAAf8BqgIAAf8BxAGCAQAB/wHPAYsBAAH/AbUCAAH/AwMBBAgAA4oC/wH8AfkB/wIAAd8B/wIA
+        Ad8B/wIAAd8B/wIAAd8B/wH6Ad8BwQL/Af0B/AH/AcwCAAH/AcwCAAH/AcwCAAH/AQAByAEAAf8BAAGa
+        AQAB/wEAAZoBAAL/Af0B+wH/AwAB/4wAAxkBIwNUAa8DOwFjAzYBWQNEAXoDTgGUA04BmQGqAgAB/wG2
+        AgAB/wNbAcYDFgEeCAACiwGMAv8B/AH5Af8CAAHfAf8BqwGtAfQB/wGsAa4B9AH/AgAB3AH/AfsB4gHI
+        Av8B/QH8Af8B5QGwAQAB/wHMAgAB/wHMAgAC/wH+Af0B/wH8Ae8B4AL/Af0B+wL/AfwB+gH/AwAB/4wA
+        A0QBegNRAZ8DIAEuAy8BSQNHAYIDSAGDA1YBsQGqAgAB/wNYAcEDXQHKAzYBWQgAAowBjQH/AfoB3wHB
+        Af8CAAHfAf8BqwGtAfQB/wGrAa0B9AH/AgAB3wH/AfwB7QHeAf8B4wGlAQAB/wHMAgAB/wHjAaUBAAH/
+        AcwCAAH/AfwB7QHeAf8B+gHfAcEB/wH6Ad8BwQH/AfoB3wHBAf8DAAH/jAADTAGSA0oBiQMrAUIDQAFv
+        A1IBowNRAZ8DVgGxA1sBwwNUAa8DVgGzA0gBhQgAA44C/wH8AfkB/wIAAd8B/wIAAd8B/wIAAd8B/wHM
+        AgAB/wHMAgAB/wHMAgAB/wHlAbABAAH/AfwB7QHeAv8B/QH8Av8B/QH6Af8B+gHfAcEC/wH8AfkC/wH8
+        AfkB/wMAAf+MAANMAY8DTAGSAzgBXQNFAX0DRwGBA04BmANTAaoDVgG0A1YBswNZAb4DRwGBCAACjwGQ
+        Av8B/AH5Av8B/AH5Af8B+gHfAcEC/wH8AfkC/wH9AfwB/wH8Ae0B3gL/Af0B/AL/Af0B+wH/AfsB4gHI
+        Av8B/AH5Av8B/AH5Af8B+gHfAcEC/wH8AfkC/wH8AfkB/wOAAf+MAANKAY0DVQGyAz8BbANZAb4DVQG1
+        A04BmANMAZMDUAGeA1MBpQNbAcMDMQFOCAACkAGRAf8BngIAAf8BnAIAAf8BmgIAAf8BlwIAAf8BlAIA
+        Af8BkAIAAf8BjQIAAf8BiwIAAf8BiQIAAf8BiAIAAf8BiAIAAf8BiAIAAf8BiAIAAf8BiAIAAf8DgQH/
+        jAADMwFSA18B2wNKAY0DVgG0A18B2wNdAdMDXAHMA1kBvgNbAcsDUwGlAwcBCQgAA5IB/wHSAs8B/wHS
+        As8B/wHQAs0B/wHOAsoB/wHLAsUB/wHHAsEB/wHDAr0B/wHAAbkBugH/Ab0BtQG2Af8BuwGzAbQB/wG6
+        AbIBswH/AboBsgGzAf8BugGyAbMB/wG6AbIBswH/AoEBggH/kAADQAFxA18B4wNbAcgDYAHeA2AB3gNc
+        Ad8DXAHqA1sBywMcASgMAAKTAZQB/wKSAZMB/wORAf8DkAH/Ao4BjwH/Ao0BjgH/AowBjQH/A4sB/wOK
+        Af8DiQH/A4gB/wOHAf8ChQGGAf8ChAGFAf8CgwGEAf8CggGDAf+UAAMzAVMDVgG2A18B4wNhAe4DXgHY
+        A04BlAMVAR3QAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQABHwP/BAABDwHf
+        Av8EAAEHAc8GAAEEAQcGAAGAAQMGAAHAAQEGAAHgAQMGAAHwAQMGAAHgAQMGAAHgAQMGAAHgAQMGAAHg
+        AQMGAAHgAQMGAAHgAQMGAAHwAQcGAAH4AQ8C/wQACw==
 </value>
   </data>
   <metadata name="StatusStrip_BasicPawn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

BasicPawn/Controls and Forms/FormMultiCompiler.vb

@@ -15,18 +15,22 @@
 'along with this program. If Not, see < http: //www.gnu.org/licenses/>.
 
 
+Imports System.Text.RegularExpressions
+
 Public Class FormMultiCompiler
     Private g_mMainForm As FormMain
 
     Private g_sSourceFiles As String()
     Private g_bTestingOnly As Boolean = False
+    Private g_bCleanDebuggerPlaceholder As Boolean = False
 
     Private g_tMainThread As Threading.Thread
 
-    Public Sub New(f As FormMain, sSourceFiles As String(), bTestingOnly As Boolean)
+    Public Sub New(f As FormMain, sSourceFiles As String(), bTestingOnly As Boolean, bCleanDebuggerPlaceholder As Boolean)
         g_mMainForm = f
         g_sSourceFiles = sSourceFiles
         g_bTestingOnly = bTestingOnly
+        g_bCleanDebuggerPlaceholder = bCleanDebuggerPlaceholder
 
         ' This call is required by the designer.
         InitializeComponent()
@@ -68,18 +72,23 @@ Public Class FormMultiCompiler
             For i = 0 To g_sSourceFiles.Length - 1
                 Dim sSourceFile As String = g_sSourceFiles(i)
                 Dim sSource As String = IO.File.ReadAllText(g_sSourceFiles(i))
+                Dim sCompilerOutput As String = ""
 
                 Dim sOutputFile As String = IO.Path.Combine(ClassConfigs.m_ActiveConfig.g_sOutputFolder, String.Format("{0}.unk", IO.Path.GetFileNameWithoutExtension(sSourceFile)))
                 Dim bSuccess As Boolean = CBool(Me.Invoke(Function()
-                                                              With New ClassDebuggerParser(g_mMainForm)
-                                                                  If (.HasDebugPlaceholder(sSource)) Then
-                                                                      .CleanupDebugPlaceholder(sSource)
-                                                                  End If
-                                                              End With
-
-                                                              Return g_mMainForm.g_ClassTextEditorTools.CompileSource(g_bTestingOnly, sSource, sOutputFile, IO.Path.GetDirectoryName(sSourceFile), ClassConfigs.m_ActiveConfig.g_sCompilerPath, ClassConfigs.m_ActiveConfig.g_sIncludeFolders, sSourceFile)
+                                                              If (g_bCleanDebuggerPlaceholder) Then
+                                                                  With New ClassDebuggerParser(g_mMainForm)
+                                                                      If (.HasDebugPlaceholder(sSource)) Then
+                                                                          .CleanupDebugPlaceholder(sSource)
+                                                                      End If
+                                                                  End With
+                                                              End If
+
+                                                              Return g_mMainForm.g_ClassTextEditorTools.CompileSource(g_bTestingOnly, sSource, sOutputFile, IO.Path.GetDirectoryName(sSourceFile), ClassConfigs.m_ActiveConfig.g_sCompilerPath, ClassConfigs.m_ActiveConfig.g_sIncludeFolders, sSourceFile, sCompilerOutput)
                                                           End Function))
 
+                Dim bWarning As Boolean = Regex.Match(sCompilerOutput, "\s+[0-9]+\s+\b(Warning|Warnings)\b\.").Success
+
                 Dim bCancel As Boolean = False
 
                 If (Not bSuccess) Then
@@ -96,6 +105,25 @@ Public Class FormMultiCompiler
                                               mTab.OpenFileTab(sSourceFile)
                                               mTab.SelectTab()
 
+                                          Case DialogResult.Cancel
+                                              bCancel = True
+                                      End Select
+                                  End With
+                              End Sub)
+                ElseIf (bWarning) Then
+                    Me.Invoke(Sub()
+                                  With New Text.StringBuilder
+                                      .AppendLine(String.Format("'{0}' has compiler warnings!", sSourceFile))
+                                      .AppendLine("See information tab for more information.")
+                                      .AppendLine()
+                                      .AppendLine("Do you want to open the file now?")
+
+                                      Select Case (MessageBox.Show(Me, .ToString, "Compiler warning", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation))
+                                          Case DialogResult.Yes
+                                              Dim mTab = g_mMainForm.g_ClassTabControl.AddTab()
+                                              mTab.OpenFileTab(sSourceFile)
+                                              mTab.SelectTab()
+
                                           Case DialogResult.Cancel
                                               bCancel = True
                                       End Select

BasicPawn/Controls and Forms/UCProjectBrowser.vb

@@ -520,7 +520,7 @@ Public Class UCProjectBrowser
                 lFiles.Add(mListViewItem.SubItems(1).Text)
             Next
 
-            Using i As New FormMultiCompiler(g_mFormMain, lFiles.ToArray, False)
+            Using i As New FormMultiCompiler(g_mFormMain, lFiles.ToArray, False, False)
                 i.ShowDialog(g_mFormMain)
             End Using
         Catch ex As Exception
@@ -540,7 +540,7 @@ Public Class UCProjectBrowser
                 lFiles.Add(mListViewItem.SubItems(1).Text)
             Next
 
-            Using i As New FormMultiCompiler(g_mFormMain, lFiles.ToArray, True)
+            Using i As New FormMultiCompiler(g_mFormMain, lFiles.ToArray, True, False)
                 i.ShowDialog(g_mFormMain)
             End Using
         Catch ex As Exception