|
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: 1237 (0x4d5)
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_Operand is
--** changed 11/20/85 by J. Margono
--** reason: to have more control over n2* for a package and
--** also to avoid massive recompilation when the
--** definition of n2* for a package changes
function Count_Of_Package return Count is
-- returns n2* of a PACKAGE_SPECIFICATION and PACKAGE_BODY
begin
-- Count_Of_Package
return 1; -- i.e., the package name
end Count_Of_Package;
function Count_Of_Subprogram
(Formal_Parameters_Count : in Natural) return Count is
begin
-- Count_Of_Subprogram
--** changed 11/20/85 by J. Margono
--** reason: subprogram name counts as one potential operand
return Count (Formal_Parameters_Count) + 1;
end Count_Of_Subprogram;
function Count_Of_Generic
(Formal_Parameters_Count : in Natural) return Count is
begin
-- Count_Of_Generic
--** changed 11/20/85 by J. Margono
--** reason: generic package or subprogram name counts
--** as one potential operand
return Count (Formal_Parameters_Count) + 1;
end Count_Of_Generic;
end Halstead_Potential_Operand;