
[01;34mwith[m Ada[31m.[mCalendar[31m;[m                      [01;34muse[m Ada[31m.[mCalendar[31m;[m
[01;34mwith[m Ada[31m.[mUnchecked_Deallocation[31m;[m

[01;34mpackage[m Gmface[31m.[mGm_Common [01;34mis[m
   
   [01;34mtype[m String_Access [01;34mis[m [01;34maccess[m [01;34mall[m [32mString[m[31m;[m
   [01;34mprocedure[m Free [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m[31m([m[32mString[m[31m,[m String_Access[31m);[m
   
   
   Time_Unit_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m64[m[31m;[m
   
   Time_Number_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m32[m[31m;[m
   
   Time_Index_Max [31m:[m [01;34mconstant[m Positive [31m:=[m Time_Unit_Max [31m*[m Time_Number_Max[31m;[m
   
   [01;34msubtype[m Time_Index_Type [01;34mis[m
     Positive [01;34mrange[m Positive'First [31m..[m Time_Index_Max[31m;[m
   
   [01;34msubtype[m Extended_Time_Index_Type [01;34mis[m
     Natural [01;34mrange[m [35m0[m [31m..[m Time_Index_Max[31m;[m
      
   
   [01;34msubtype[m Time_Number_Type [01;34mis[m
     Time_Index_Type [01;34mrange[m Time_Index_Type'First[31m..[mTime_Number_Max[31m;[m
   
   Number_Default [31m:[m [01;34mconstant[m Time_Number_Type [31m:=[m Time_Number_Type'Last [31m/[m [35m2[m[31m;[m
   
   
   [01;34msubtype[m Time_Unit_Type [01;34mis[m
     Time_Index_Type [01;34mrange[m Time_Index_Type'First [31m..[m Time_Unit_Max[31m;[m
   
   Unit_Default [31m:[m [01;34mconstant[m Time_Unit_Type [31m:=[m Time_Unit_Type'Last [31m/[m [35m4[m[31m;[m
         
   [01;34mtype[m Time_Signature_Type [01;34mis[m
      [01;34mrecord[m
   	 Number   [31m:[m Time_Number_Type [31m:=[m Number_Default[31m;[m
   	 Unit     [31m:[m Time_Unit_Type   [31m:=[m Unit_Default[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Tempo_Type [01;34mis[m [01;34mdelta[m [35m0.1[m [01;34mdigits[m [35m4[m [01;34mrange[m [35m1.0[m[31m..[m[35m240.0[m[31m;[m
   
   [01;34mfunction[m [01;30mInteger_Image[m [31m([mValue [31m:[m [01;34min[m [32mInteger[m[31m)[m [01;34mreturn[m [32mString[m[31m;[m
      
   [01;34mprocedure[m [01;30mDifference_In_Years[m[31m([mTop_Date [31m:[m [01;34min[m Time[31m;[m
                                 Bot_Date [31m:[m [01;34min[m Time[31m;[m
                                 Years    [31m:[m [01;34mout[m Natural[31m;[m
                                 Months   [31m:[m [01;34mout[m Natural[31m;[m
                                 Days     [31m:[m [01;34mout[m Natural[31m;[m
                                 Houres   [31m:[m [01;34mout[m Natural[31m;[m
                                 Minutes  [31m:[m [01;34mout[m Natural[31m;[m
                                 Second   [31m:[m [01;34mout[m Natural[31m;[m
                                 Rest     [31m:[m [01;34mout[m [32mDuration[m[31m);[m
[01;34mend[m Gmface[31m.[mGm_Common[31m;[m
