diff options
| -rw-r--r-- | src/deck_convert.adb | 21 | ||||
| -rw-r--r-- | src/deck_io.adb | 2 |
2 files changed, 17 insertions, 6 deletions
diff --git a/src/deck_convert.adb b/src/deck_convert.adb index 7037944..70c7abf 100644 --- a/src/deck_convert.adb +++ b/src/deck_convert.adb @@ -4,6 +4,7 @@ with Ada.Characters.Latin_1, Ada.Characters.Handling, + Ada.Exceptions, GNAT.Command_Line, GNAT.Strings, Ada.Command_Line, @@ -177,7 +178,8 @@ begin Deck_Format := +(Charhand.To_Lower (Format_Arg.all)); end if; if Deck_Format /= "csv" and Deck_Format /= "fmd" then - Put_Line (Standard_Error, "Output deck format required. Valid options are CSV or FMD." & + Put_Line (Standard_Error, + "ERROR: Output deck format required. Valid options are CSV or FMD." & Latin.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; @@ -185,14 +187,14 @@ begin if Input_Arg.all = "" then - Put_Line (Standard_Error, "File name of input deck was not provided." & + Put_Line (Standard_Error, "ERROR: File name of input deck was not provided." & Latin.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; end if; Input_Name := +(Input_Arg.all); if not FD.Exists (-Input_Name) then - Put_Line (Standard_Error, "Input deck does not exist." & + Put_Line (Standard_Error, "ERROR: Input deck does not exist." & Latin.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; @@ -200,14 +202,14 @@ begin if Output_Arg.all = "" then - Put_Line (Standard_Error, "Base file name for output deck was not provided." & + Put_Line (Standard_Error, "ERROR: Base file name for output deck was not provided." & Latin.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; end if; Output_Name := +(Output_Arg.all); if FD.Exists ((-Output_Name) & "." & (-Deck_Format)) and not Overwrite then - Put_Line (Standard_Error, "Output deck file name already exists." & + Put_Line (Standard_Error, "ERROR: Output deck file name already exists." & Latin.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; @@ -285,6 +287,15 @@ begin end; +exception + + + when Fail : FD.Name_Error => + Put_Line (Standard_Error, Latin.LF & "ERROR: " & Ada.Exceptions.Exception_Message (Fail) & + Latin.LF & Further_Help); + ACom.Set_Exit_Status (ACom.Failure); + + end Deck_Convert; diff --git a/src/deck_io.adb b/src/deck_io.adb index 2e2d1b4..9884cdc 100644 --- a/src/deck_io.adb +++ b/src/deck_io.adb @@ -473,7 +473,7 @@ package body Deck_IO is end if; end if; if FD.Exists (-Outdir) and not Overwrite then - raise FD.Name_Error with "output directory " & (-Outdir) & " already exists"; + raise FD.Name_Error with "media directory " & (-Outdir) & " already exists"; end if; TIO.Create (File_Handle, TIO.Out_File, -Outname); Entry_Size := Positive (Model_Maps.Element (C).Fields.Length); |