-- WORDS, a Latin dictionary, by Colonel William Whitaker (USAF, Retired)
--
-- Copyright William A. Whitaker (1936-2010)
--
-- This is a free program, which means it is proper to copy it and pass
-- it on to your friends. Consider it a developmental item for which
-- there is no charge. However, just for form, it is Copyrighted
-- (c). Permission is hereby freely given for any and all use of program
-- and data. You can sell it as your own, but at least tell me.
--
-- This version is distributed without obligation, but the developer
-- would appreciate comments and suggestions.
--
-- All parts of the WORDS system, source code and data files, are made freely
-- available to anyone who wishes to use them, for whatever purpose.
with Ada.Integer_Text_IO;
with Latin_Utils.Config;
use Latin_Utils;
package body Latin_Utils.Preface is
---------------------------------------------------------------------------
procedure Put (Item : String) is
begin
if not Config.Suppress_Preface then
Ada.Text_IO.Put (Ada.Text_IO.Current_Output, Item);
end if;
end Put;
---------------------------------------------------------------------------
procedure Set_Col (To : Ada.Text_IO.Positive_Count) is
begin
if not Config.Suppress_Preface then
Ada.Text_IO.Set_Col (Ada.Text_IO.Current_Output, To);
end if;
end Set_Col;
---------------------------------------------------------------------------
procedure Put_Line (Item : String) is
begin
if not Config.Suppress_Preface then
Ada.Text_IO.Put_Line (Ada.Text_IO.Current_Output, Item);
end if;
end Put_Line;
---------------------------------------------------------------------------
procedure New_Line (Spacing : Ada.Text_IO.Positive_Count := 1) is
begin
if not Config.Suppress_Preface then
Ada.Text_IO.New_Line (Ada.Text_IO.Current_Output, Spacing);
end if;
end New_Line;
---------------------------------------------------------------------------
procedure Put (Item : Integer; Width : Ada.Text_IO.Field := Integer'Width) is
begin
if not Config.Suppress_Preface then
Ada.Integer_Text_IO.Put (Ada.Text_IO.Current_Output, Item, Width);
end if;
end Put;
---------------------------------------------------------------------------
end Latin_Utils.Preface;