|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1267 (0x4f3)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
package body Halstead_Potential_Operator is
--** changed 11/20/85 by J. Margono
--** reason: to have more control over n1* for a package and
--** also to avoid massive recompilation when the
--** definition of n1* for a package changes
function Count_Of_Package return Count is
-- returns n1* of a PACKAGE_SPECIFICATION and PACKAGE_BODY
begin
-- Count_Of_Package
return 2;
end Count_Of_Package;
function Count_Of_Subprogram
(Formal_Parameters_Count : in Natural) return Count is
begin
-- Count_Of_Subprogram
case Formal_Parameters_Count is
when 0 =>
return 1;
when 1 =>
return 2;
when others =>
return 3;
end case;
end Count_Of_Subprogram;
function Count_Of_Generic
(Formal_Parameters_Count : in Natural) return Count is
begin
-- Count_Of_Generic
case Formal_Parameters_Count is
when 0 =>
return 4;
when 1 =>
return 5;
when others =>
return 6;
end case;
end Count_Of_Generic;
end Halstead_Potential_Operator;