Return to bye_bye_message.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/System/bye_bye_message.adb, Revision 1.1

1.1     ! maekawa     1: with Ada.Calendar;    use Ada.Calendar;
        !             2:
        !             3: function Bye_Bye_Message return string is
        !             4:
        !             5:   date : time := Clock;
        !             6:
        !             7:   function Convert1 ( n : integer ) return character is
        !             8:   begin
        !             9:     case n is
        !            10:       when 1 => return '1';
        !            11:       when 2 => return '2';
        !            12:       when 3 => return '3';
        !            13:       when 4 => return '4';
        !            14:       when 5 => return '5';
        !            15:       when 6 => return '6';
        !            16:       when 7 => return '7';
        !            17:       when 8 => return '8';
        !            18:       when 9 => return '9';
        !            19:       when others => return '0';
        !            20:     end case;
        !            21:   end Convert1;
        !            22:
        !            23:   function Convert2 ( n : integer ) return string is
        !            24:   begin
        !            25:     if n < 10
        !            26:      then declare
        !            27:             res : string(1..1);
        !            28:           begin
        !            29:             res(1) := Convert1(n);
        !            30:             return res;
        !            31:           end;
        !            32:      else declare
        !            33:             n10 : integer := n/10;
        !            34:             n1 : integer := n mod 10;
        !            35:             last : string(1..1);
        !            36:             first : constant string := Convert2(n10);
        !            37:           begin
        !            38:             last(1) := Convert1(n1);
        !            39:             return first & last;
        !            40:           end;
        !            41:     end if;
        !            42:   end Convert2;
        !            43:
        !            44:   function Convert ( d : Time ) return string is
        !            45:
        !            46:     yr : Year_Number;
        !            47:     mo : Month_Number;
        !            48:     da : Day_Number;
        !            49:     se : Day_Duration;
        !            50:
        !            51:   begin
        !            52:     Split(d,yr,mo,da,se);
        !            53:     return Convert2(da) & "/" & Convert2(mo) & "/" & Convert2(yr);
        !            54:   end Convert;
        !            55:
        !            56: begin
        !            57:   return "PHC worked" & " on " & Convert(date) & ".";
        !            58: end Bye_Bye_Message;