1------------------------------------------------------------------------------ 2-- -- 3-- GNAT2XML COMPONENTS -- 4-- AVATOX COMPONENTS -- 5-- -- 6-- VATOX (Via Asis To Xml) -- 7-- -- 8-- -- 9-- Copyright (C) 2006, McKae Technologies. -- 10-- Copyright (C) 2012-2013, AdaCore, Inc. -- 11-- -- 12-- Avatox is free software; you can redistribute it and/or modify it -- 13-- under terms of the GNU General Public License as published by the Free -- 14-- Software Foundation; either version 2, or (at your option) any later -- 15-- version. Avatox is distributed in the hope that it will be useful, -- 16-- but WITHOUT ANY WARRANTY; without even the implied warranty of MER- -- 17-- CHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General -- 18-- Public License for more details. You should have received a copy of the -- 19-- GNU General Public License distributed with GNAT; see file COPYING. If -- 20-- not, write to the Free Software Foundation, 59 Temple Place Suite 330, -- 21-- Boston, MA 02111-1307, USA. -- 22-- -- 23-- Avatox is based off the Display_Source software distributed as part of -- 24-- the ASIS implementation for GNAT, and therefore inherits its GPL -- 25-- licensing. Ada Core Technologies maintains the Display_Source program -- 26-- and its copyright is held by the Free Software Foundation. -- 27-- -- 28-- Avatox is now maintained by McKae Technologies (http://www.mckae.com) -- 29-- The gnat2xml tool was derived from the Avatox sources. -- 30------------------------------------------------------------------------------ 31 32pragma Ada_2012; 33 34with Asis; use Asis; 35with Text_IO; 36 37package Gnat2xml.Xml is 38 39 type Info_Node is record 40 XML_File : Text_IO.File_Access; 41 Krunch : Boolean := False; 42 Xml_Style : Boolean := False; 43 Verbose : Boolean := False; 44 end record; 45 46 procedure Start_Representation (State : Info_Node); 47 48 procedure Process_Unit 49 (The_Unit : Asis.Compilation_Unit; 50 State : Info_Node); 51 52end Gnat2xml.Xml; 53