CVS difference for arm/source/infosys.mss

Differences between 1.17 and version 1.18
Log of other versions for file arm/source/infosys.mss

--- arm/source/infosys.mss	2000/08/03 05:37:42	1.17
+++ arm/source/infosys.mss	2000/08/08 22:56:19	1.18
@@ -1,8 +1,8 @@
 @comment{ $Source: e:\\cvsroot/ARM/Source/infosys.mss,v $ }
-@comment{ $Revision: 1.17 $ $Date: 2000/08/03 05:37:42 $ $Author: Randy $ }
+@comment{ $Revision: 1.18 $ $Date: 2000/08/08 22:56:19 $ $Author: Randy $ }
 @Part(infosys, Root="ada.mss")
 
-@Comment{$Date: 2000/08/03 05:37:42 $}
+@Comment{$Date: 2000/08/08 22:56:19 $}
 @LabeledNormativeAnnex{Information Systems}
 
 @begin{Intro}
@@ -111,20 +111,20 @@
 @key(package) Ada.Decimal @key(is)
    @key(pragma) Pure(Decimal);
 
-   Max_Scale : @key(constant) := @RI{implementation-defined};
-   Min_Scale : @key(constant) := @RI{implementation-defined};
+   @AdaDefn{Max_Scale} : @key(constant) := @RI{implementation-defined};
+   @AdaDefn{Min_Scale} : @key(constant) := @RI{implementation-defined};
 
-   Min_Delta : @key(constant) := 10.0**(-Max_Scale);
-   Max_Delta : @key(constant) := 10.0**(-Min_Scale);
+   @AdaDefn{Min_Delta} : @key(constant) := 10.0**(-Max_Scale);
+   @AdaDefn{Max_Delta} : @key(constant) := 10.0**(-Min_Scale);
 
-   Max_Decimal_Digits : @key(constant) := @RI{implementation-defined};
+   @AdaDefn{Max_Decimal_Digits} : @key(constant) := @RI{implementation-defined};
 
    @key(generic)
       @key(type) Dividend_Type  @key(is) @key(delta) <> @key(digits) <>;
       @key(type) Divisor_Type   @key(is) @key(delta) <> @key(digits) <>;
       @key(type) Quotient_Type  @key(is) @key(delta) <> @key(digits) <>;
       @key(type) Remainder_Type @key(is) @key(delta) <> @key(digits) <>;
-   @key(procedure) Divide (Dividend  : @key(in) Dividend_Type;
+   @key(procedure) @AdaSubDefn{Divide} (Dividend  : @key(in) Dividend_Type;
                      Divisor   : @key(in) Divisor_Type;
                      Quotient  : @key(out) Quotient_Type;
                      Remainder : @key(out) Remainder_Type);
@@ -926,24 +926,24 @@
 @LangDefType{Package=[Ada.Text_IO.Editing],
              Type=[Picture]}
 
-   @key(function) Valid (Pic_String      : @key(in) String;
+   @key(function) @AdaSubDefn{Valid} (Pic_String      : @key(in) String;
                    Blank_When_Zero : @key(in) Boolean := False) @key(return) Boolean;
 
-   @key(function) To_Picture (Pic_String      : @key(in) String;
+   @key(function) @AdaSubDefn{To_Picture} (Pic_String      : @key(in) String;
                         Blank_When_Zero : @key(in) Boolean := False)
       @key(return) Picture;
 
-   @key(function) Pic_String      (Pic : @key(in) Picture) @key(return) String;
-   @key(function) Blank_When_Zero (Pic : @key(in) Picture) @key(return) Boolean;
+   @key(function) @AdaSubDefn{Pic_String}      (Pic : @key(in) Picture) @key(return) String;
+   @key(function) @AdaSubDefn{Blank_When_Zero} (Pic : @key(in) Picture) @key(return) Boolean;
 
-   Max_Picture_Length  : @key(constant) := @RI{implementation_defined};
+   @AdaDefn{Max_Picture_Length}  : @key(constant) := @RI{implementation_defined};
 
-   Picture_Error       : @key(exception);
+   @AdaDefn{Picture_Error}       : @key(exception);
 
-   Default_Currency    : @key(constant) String    := "$";
-   Default_Fill        : @key(constant) Character := '*';
-   Default_Separator   : @key(constant) Character := ',';
-   Default_Radix_Mark  : @key(constant) Character := '.';
+   @AdaDefn{Default_Currency}    : @key(constant) String    := "$";
+   @AdaDefn{Default_Fill}        : @key(constant) Character := '*';
+   @AdaDefn{Default_Separator}   : @key(constant) Character := ',';
+   @AdaDefn{Default_Radix_Mark}  : @key(constant) Character := '.';
 
    @key(generic)
       @key(type) Num @key(is) @key(delta) <> @key(digits) <>;
@@ -951,17 +951,17 @@
       Default_Fill       : @key(in) Character :=  Text_IO.Editing.Default_Fill;
       Default_Separator  : @key(in) Character :=  Text_IO.Editing.Default_Separator;
       Default_Radix_Mark : @key(in) Character :=  Text_IO.Editing.Default_Radix_Mark;
-   @key(package) Decimal_Output @key(is)
-      @key(function) Length (Pic      : @key(in) Picture;
+   @key(package) @AdaDefn{Decimal_Output} @key(is)
+      @key(function) @AdaSubDefn{Length} (Pic      : @key(in) Picture;
                        Currency : @key(in) String := Default_Currency)
          @key(return) Natural;
 
-      @key(function) Valid (Item     : @key(in) Num;
+      @key(function) @AdaSubDefn{Valid} (Item     : @key(in) Num;
                       Pic      : @key(in) Picture;
                       Currency : @key(in) String := Default_Currency)
          @key(return) Boolean;
 
-      @key(function) Image (Item       : @key(in) Num;
+      @key(function) @AdaSubDefn{Image} (Item       : @key(in) Num;
                       Pic        : @key(in) Picture;
                       Currency   : @key(in) String    := Default_Currency;
                       Fill       : @key(in) Character := Default_Fill;
@@ -969,7 +969,7 @@
                       Radix_Mark : @key(in) Character := Default_Radix_Mark)
          @key(return) String;
 
-      @key(procedure) Put (File       : @key(in) File_Type;
+      @key(procedure) @AdaSubDefn{Put} (File       : @key(in) File_Type;
                      Item       : @key(in) Num;
                      Pic        : @key(in) Picture;
                      Currency   : @key(in) String    := Default_Currency;
@@ -977,14 +977,14 @@
                      Separator  : @key(in) Character := Default_Separator;
                      Radix_Mark : @key(in) Character := Default_Radix_Mark);
 
-      @key(procedure) Put (Item       : @key(in) Num;
+      @key(procedure) @AdaSubDefn{Put} (Item       : @key(in) Num;
                      Pic        : @key(in) Picture;
                      Currency   : @key(in) String    := Default_Currency;
                      Fill       : @key(in) Character := Default_Fill;
                      Separator  : @key(in) Character := Default_Separator;
                      Radix_Mark : @key(in) Character := Default_Radix_Mark);
 
-      @key(procedure) Put (To         : @key(out) String;
+      @key(procedure) @AdaSubDefn{Put} (To         : @key(out) String;
                      Item       : @key(in) Num;
                      Pic        : @key(in) Picture;
                      Currency   : @key(in) String    := Default_Currency;

Questions? Ask the ACAA Technical Agent