separate (Compilation_Unit.Produce_Metrics)
procedure Name_Prefix (Current_Compilation_Unit : in out Ada_Compilation_Unit;
                       Program_Unit : in Program_Unit_State_Machine;
                       Halstead : in Halstead_State_Machine;
                       Loc : in Loc_State_Machine;
                       Mccabe : in Mccabe_State_Machine) is

    --=========================================
    -- Name_Prefix ::=
    --     <IDENTIFIER>
    --   | <CHARACTER_LITERAL>
    --   | <STANDARD_STRING_LITERAL>
    --   | <ALTERNATE_STRING_LITERAL>
    --=========================================

    Current_Token : Token_Package.Token;

begin
    -- Name_Prefix

    Get_Next_Token (Out_Token => Current_Token,
                    From => Current_Compilation_Unit,
                    Current_Loc => Loc);

    --** changed 11/21/85 by J. Margono
    --** reason: changing Halstead operand or operator will be handled
    --**         by Name
    case Token_Package.Class_Of (Current_Token) is

        when Token_Package.Identifier =>
            null;

        when Token_Package.Character_Literal =>
            null;

        when Token_Package.Standard_String_Literal =>
            null;

        when Token_Package.Alternate_String_Literal =>
            null;

        when others =>
            raise Syntax_Error;

    end case;

end Name_Prefix;