From 8b6cc411cceb51b26579f8fcf94424b4842ef0bf Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 3 Jul 2017 16:57:07 +1000 Subject: Changed build from makefile to gpr file --- src/stv.adb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/stv.adb') diff --git a/src/stv.adb b/src/stv.adb index a83689f..2facffa 100644 --- a/src/stv.adb +++ b/src/stv.adb @@ -154,7 +154,8 @@ begin return; end if; if File.Kind (Candidate_File.all) /= File.Ordinary_File then - Put_Line ("Candidate data file name appears to refer to a directory or special file." & ASCII.LF & Further_Help); + Put_Line ("Candidate data file name appears to refer to a directory or special file." & + ASCII.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; end if; @@ -172,7 +173,8 @@ begin return; end if; if File.Kind (Preference_File.all) /= File.Ordinary_File then - Put_Line ("Preference data file name appears to refer to a directory or special file." & ASCII.LF & Further_Help); + Put_Line ("Preference data file name appears to refer to a directory or special file." & + ASCII.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; end if; @@ -204,7 +206,8 @@ begin State := Candidates.State_Name'Value (State_String.all); exception when Constraint_Error => - Put_Line ("Invalid State/Territory or State/Territory not provided." & ASCII.LF & Further_Help); + Put_Line ("Invalid State/Territory or State/Territory not provided." & + ASCII.LF & Further_Help); ACom.Set_Exit_Status (ACom.Failure); return; end; @@ -214,7 +217,8 @@ begin File.Create_Directory (Output_Dir.all); Start_Time := Simple_Time.Now; Main_Log := SU.To_Unbounded_String (Output_Dir.all & "/" & "log.txt"); - Log_Msg := SU.To_Unbounded_String ("Started election count at " & Simple_Time.To_String (Start_Time)); + Log_Msg := SU.To_Unbounded_String ("Started election count at " & + Simple_Time.To_String (Start_Time)); Create (Log_File, Append_File, SU.To_String (Main_Log)); Put_Line (Log_File, SU.To_String (Log_Msg)); Close (Log_File); -- cgit