Return to bye_bye_message.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Import the second public release of PHCpack.

OKed by Jan Verschelde.

with Ada.Calendar;    use Ada.Calendar;

function Bye_Bye_Message return string is

  date : time := Clock;

  function Convert1 ( n : integer ) return character is
  begin
    case n is
      when 1 => return '1';
      when 2 => return '2';
      when 3 => return '3';
      when 4 => return '4';
      when 5 => return '5';
      when 6 => return '6';
      when 7 => return '7';
      when 8 => return '8';
      when 9 => return '9';
      when others => return '0';
    end case;
  end Convert1;

  function Convert2 ( n : integer ) return string is
  begin
    if n < 10
     then declare
            res : string(1..1);
          begin
            res(1) := Convert1(n);
            return res;
          end;
     else declare
            n10 : integer := n/10;
            n1 : integer := n mod 10;
            last : string(1..1);
            first : constant string := Convert2(n10);
          begin
            last(1) := Convert1(n1);
            return first & last;
          end;
    end if;
  end Convert2;

  function Convert ( d : Time ) return string is

    yr : Year_Number;
    mo : Month_Number;
    da : Day_Number;
    se : Day_Duration;

  begin
    Split(d,yr,mo,da,se);
    return Convert2(da) & "/" & Convert2(mo) & "/" & Convert2(yr);
  end Convert;

begin
  return "PHC worked" & " on " & Convert(date) & ".";
end Bye_Bye_Message;