|
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: 1975 (0x7b7)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Scanner, Text_Io;
package body Msg_Report is
Tracing : Boolean := False;
procedure Lexical_Error (Message : String; More_Info : Boolean := True) is
begin
Text_Io.Put (">> LEXICAL ERROR, ");
if More_Info then
Text_Io.Put ("line ");
Text_Io.Put (Integer'Image (Scanner.Line_Number));
end if;
Text_Io.Put (" " & Message & " ");
if More_Info then
Text_Io.Put (Scanner.Value);
end if;
Text_Io.New_Line;
end Lexical_Error;
procedure Syntax_Error (Message : String; More_Info : Boolean := True) is
use Scanner;
begin
if Scanner.Symbol /= L_Unknown then
Text_Io.Put (">> SYNTAX ERROR, ");
if More_Info then
Text_Io.Put ("line ");
Text_Io.Put (Integer'Image (Scanner.Line_Number));
end if;
Text_Io.Put (" " & Message & " ");
if More_Info then
Text_Io.Put (Scanner.Value);
end if;
Text_Io.New_Line;
end if;
end Syntax_Error;
procedure Interpret_Error (Message : String) is
begin
Text_Io.Put (">> INTERPRET ERROR, ");
Text_Io.Put (Message);
Text_Io.New_Line;
end Interpret_Error;
procedure Information (Message : String) is
begin
if Tracing then
Text_Io.Put ("## INFORMATION MESSAGE, ");
Text_Io.Put (Message);
Text_Io.New_Line;
end if;
end Information;
procedure Continue (Message : String) is
begin
if Tracing then
Text_Io.Put (" ");
Text_Io.Put (Message);
Text_Io.New_Line;
end if;
end Continue;
procedure Tracing_On is
begin
Tracing := True;
end Tracing_On;
procedure Tracing_Off is
begin
Tracing := False;
end Tracing_Off;
end Msg_Report;