|
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: T V
Length: 1094 (0x446)
Types: TextFile
Names: »V«
└─⟦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 Halstead_Potential_Operand is
--========================================================================
-- Halstead n2*
--========================================================================
type Count is new Natural;
--** 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;
-- returns n2* of a PACKAGE_SPECIFICATION and PACKAGE_BODY
function Count_Of_Subprogram
(Formal_Parameters_Count : in Natural) return Count;
-- returns n2* of a SUBPROGRAM, ENTRYLESS TASK, BLOCK, or
-- TASK ENTRY. TASK ENTRIES are treated like SUBPROGRAMS.
-- BLOCKS and ENTRYLESS TASKS are treated like PARAMETERLESS
-- SUBPROGRAMS.
function Count_Of_Generic
(Formal_Parameters_Count : in Natural) return Count;
-- returns n2* of GENERIC_SPECIFICATION or GENERIC_INSTANTIATION
end Halstead_Potential_Operand;