|
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: 1376 (0x560)
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⟧
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;