diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 16:57:07 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 16:57:07 +1000 |
commit | 8b6cc411cceb51b26579f8fcf94424b4842ef0bf (patch) | |
tree | 779ae4f76df38e6c6cd745bd63a5f44a9a169191 /src/stv.adb | |
parent | 18b2b85a28c4e8d59cd564612bb7f60019c53051 (diff) |
Changed build from makefile to gpr file
Diffstat (limited to 'src/stv.adb')
-rw-r--r-- | src/stv.adb | 12 |
1 files changed, 8 insertions, 4 deletions
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); |