Changeset 83 for trunk

Timestamp:

Aug 4, 2017, 9:11:00 AM (7 years ago)

Author:

chronos

Message:

• Added: Show meaningful error message if target compiler or executor doesn't exist.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (14 diffs)
• Forms/UFormMain.pas (modified) (3 diffs)
• Languages/LazFuck.cs.po (modified) (4 diffs)
• Languages/LazFuck.po (modified) (2 diffs)
• Languages/LazFuckIDE.po (modified) (2 diffs)
• UTarget.pas (modified) (4 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 860
   Caption = 'LazFuck'
-  ClientHeight = 554
+  ClientHeight = 561
   ClientWidth = 860
   Menu = MainMenu1
@@ -18 +18 @@
     Left = 0
     Height = 28
-    Top = 526
+    Top = 533
     Width = 860
     Panels = <    
@@ -131 +131 @@
   object PageControlRight: TPageControl
     Left = 467
-    Height = 500
+    Height = 507
     Top = 26
     Width = 393
@@ -141 +141 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 494
-      ClientWidth = 319
+      ClientHeight = 499
+      ClientWidth = 359
       object PanelInput: TPanel
         Left = 0
         Height = 64
         Top = 0
-        Width = 319
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -157 +157 @@
         Height = 5
         Top = 64
-        Width = 319
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -165 +165 @@
         Height = 259
         Top = 69
-        Width = 319
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -175 +175 @@
         Height = 5
         Top = 328
-        Width = 319
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -183 +183 @@
         Height = 86
         Top = 333
-        Width = 319
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -193 +193 @@
         Height = 5
         Top = 419
-        Width = 319
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -199 +199 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 70
+        Height = 75
         Top = 424
-        Width = 319
+        Width = 359
         Align = alClient
         BevelOuter = bvNone
@@ -210 +210 @@
   object Splitter1: TSplitter
     Left = 462
-    Height = 500
+    Height = 507
     Top = 26
     Width = 5
@@ -218 +218 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 500
+    Height = 507
     Top = 26
     Width = 462
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 500
+    ClientHeight = 507
     ClientWidth = 462
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 377
+      Height = 384
       Top = 0
       Width = 462
@@ -246 +246 @@
       Left = 0
       Height = 118
-      Top = 382
+      Top = 389
       Width = 462
       ActivePage = TabSheetMessages
@@ -261 +261 @@
       Left = 0
       Height = 5
-      Top = 377
+      Top = 384
       Width = 462
       Align = alBottom

trunk/Forms/UFormMain.pas

@@ -183 +183 @@
   SDoYouWantToSaveProject = 'There are unsaved changes in project. Do you want to save them?';
   SCloseProjectFirst = 'Project need to be closed before it can be openned';
+  SError = 'Error';
 
 { TFormMain }
@@ -482 +483 @@
 procedure TFormMain.AProgramCompileExecute(Sender: TObject);
 begin
-  with Core.CurrentTarget do begin
+  with Core.CurrentTarget do
+  try
     AProgramStop.Execute;
     SourceCode := FormSourceCode.MemoSource.Text;
@@ -492 +494 @@
     FormTargetCode.MemoTarget.Text := TargetCode;
     UpdateInterface;
+  except
+    on E: Exception do
+      MessageDlg(SError, E.Message, mtError, [mbOk], 0);
   end;
 end;

trunk/Languages/LazFuck.cs.po

@@ -9 +9 @@
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
-"X-Generator: Poedit 1.8.9\n"
+"X-Generator: Poedit 1.8.8\n"
 "Language: cs\n"
 
@@ -553 +553 @@
 msgstr "V projektu Jsou neuloÅŸené změny. Chcete je uloÅŸit?"
 
+#: uformmain.serror
+msgid "Error"
+msgstr "Chyba"
+
 #: uformmain.snewproject
 msgid "New project"
@@ -589 +593 @@
 msgstr "Nenalezen překladač \"%s\""
 
+#: utarget.sexecutornotfound
+msgid "Executor \"%s\" not found"
+msgstr "Spouštěč \"%s\" nenalezen"
+
 #: utargetinterpretter.sjumptablecolision
 msgctxt "utargetinterpretter.sjumptablecolision"
@@ -616 +624 @@
 msgid "Unsupported command"
 msgstr "NepodporovanÃœ příkaz"
-

trunk/Languages/LazFuck.po

@@ -504 +504 @@
 msgstr ""
 
+#: uformmain.serror
+msgid "Error"
+msgstr ""
+
 #: uformmain.snewproject
 msgid "New project"
@@ -536 +540 @@
 msgstr ""
 
+#: utarget.sexecutornotfound
+msgid "Executor \"%s\" not found"
+msgstr ""
+
 #: utargetinterpretter.sjumptablecolision
 msgid "Jump table colision"

trunk/Languages/LazFuckIDE.po

@@ -542 +542 @@
 msgstr ""
 
+#: uformmain.serror
+msgid "Error"
+msgstr ""
+
 #: uformmain.snewproject
 msgid "New project"
@@ -578 +582 @@
 msgstr ""
 
+#: utarget.sexecutornotfound
+msgid "Executor \"%s\" not found"
+msgstr ""
+
 #: utargetinterpretter.sjumptablecolision
 msgctxt "utargetinterpretter.sjumptablecolision"

trunk/UTarget.pas

@@ -144 +144 @@
 resourcestring
   SCompilerNotFound = 'Compiler "%s" not found';
+  SExecutorNotFound = 'Executor "%s" not found';
   SCompiledFileNotFound = 'Program compiled file "%s" not found';
 
@@ -420 +421 @@
     Free;
   end;
-  if CompilerPath <> '' then begin
-    if FileExistsUTF8(CompilerPath) then
+  if FileExistsUTF8(CompilerPath) then
     try
       Process := TProcess.Create(nil);
@@ -441 +441 @@
       Process.Free;
     end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
-  end;
 end;
 
@@ -456 +455 @@
     'compiled' + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + RunExtension;
+  if not FileExistsUTF8(ExecutorPath) then
+    raise Exception.Create(Format(SExecutorNotFound, [ExecutorPath]));
   if FileExistsUTF8(CompiledFile) then
   try