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;