CVS difference for arm/progs/arm_text.ads
--- arm/progs/arm_text.ads 2005/08/21 18:02:01 1.5
+++ arm/progs/arm_text.ads 2006/01/13 01:36:05 1.6
@@ -11,7 +11,7 @@
-- a particular format.
--
-- ---------------------------------------
- -- Copyright 2000, 2002, 2004 AXE Consultants.
+ -- Copyright 2000, 2002, 2004, 2005, 2006 AXE Consultants.
-- P.O. Box 1512, Madison WI 53701
-- E-Mail: rbrukardt@bix.com
--
@@ -73,26 +73,18 @@
-- replacement of changed text.
-- 9/14/04 - RLB - Moved Change_Version_Type to ARM_Contents.
-- 5/27/05 - RLB - Added arbitrary Unicode characters.
+ -- 1/11/06 - RLB - Eliminated dispatching Create in favor of tailored
+ -- versions.
type Text_Output_Type is new ARM_Output.Output_Type with private;
procedure Create (Output_Object : in out Text_Output_Type;
- Page_Size : in ARM_Output.Page_Size;
- Includes_Changes : in Boolean;
- Big_Files : in Boolean;
- For_ISO : in Boolean := False;
File_Prefix : in String;
- Header_Prefix : in String := "";
Title : in String := "");
- -- Create an Output_Object for a document with the specified page
- -- size. Changes from the base standard are included if
- -- Includes_Changes is True. Generate a few large output files if
- -- Big_Files is True; otherwise generate smaller output files.
+ -- Create an Output_Object for a document.
-- The prefix of the output file names is File_Prefix - this
-- should be no more then 4 characters allowed in file names.
-- The title of the document is Title.
- -- The header prefix appears in the header (if any) before the title,
- -- separated by a dash.
procedure Close (Output_Object : in out Text_Output_Type);
-- Close an Output_Object. No further output to the object is
Questions? Ask the ACAA Technical Agent