[31m-- aish is another attempt of A. i. written with Ada.[m
[31m-- Aish is Copyright (C) 2024 Manuel De Girardi ; [m
[31m--[m
[31m--   This program is free software; you can redistribute it and/or modify[m
[31m--   it under the terms of the GNU General Public License as published by[m
[31m--   the Free Software Foundation; either version 2 of the License, or[m
[31m--   (at your option) any later version.[m
[31m--[m
[31m--   This program is distributed in the hope that it will be useful,[m
[31m--   but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--   GNU General Public License for more details.[m
[31m--[m
[31m--   You should have received a copy of the GNU General Public License[m
[31m--   along with this program; if not, write to the Free Software[m
[31m--   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA[m
[31m--[m
[31m-- Date := "2024-04-29 20:25:34"[m
[31m-- Version := "1.1.0r"[m
[01;34mwith[m Ai[31m.[mParameters [31m;[m
[01;34mwith[m Ai[31m.[mOptions [31m;[m


[01;34mpackage[m Ai[31m.[mInterfaces [01;34mis[m
   
   [01;34mtype[m Interface_Record [01;34mis[m [01;34mtagged[m [01;34mlimited[m
      [01;34mrecord[m
	 Kit_Options [31m:[m Options[31m.[mOptions_Kit[31m;[m
	 Kit_Parameters [31m:[m Parameters[31m.[mParameters_Kit[31m;[m
     [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mfunction[m Get_Parameter
     [31m([mFrom [31m:[m [01;34min[m Interface_Record[31m;[m
      Flag [31m:[m [01;34min[m Flag_Enum[31m)[m
     [01;34mreturn[m Parameters[31m.[mParameter_Record[31m;[m   
   
   
   [01;34mprocedure[m Parameters_Descriptions
     [31m([mFrom [31m:[m [01;34min[m Interface_Record[31m);[m

   [01;34mprocedure[m [01;30mInitialize[m [31m([mMain_Interface [31m:[m [01;34min[m [01;34mout[m Interface_Record'Class[31m);[m
   
   [01;34mprocedure[m [01;30mPrint_Parameters[m [31m([mInterf [31m:[m [01;34min[m Interface_Record'class[31m);[m
[01;34mprivate[m   
   [01;34mprocedure[m Set_Parameters
     [31m([mKit_Parameters [31m:[m [01;34mout[m Parameters[31m.[mParameters_Kit[31m;[m			    
      Kit_Options [31m:[m [01;34min[m Options[31m.[mOptions_Kit[31m);[m
   
   [01;34mfunction[m Set_Parameters_From
     
     [31m([mFilename [31m:[m [01;34min[m [32mWide_String[m[31m)[m 
     
     [01;34mreturn[m [01;34maccess[m Parameters[31m.[mParameters_Kit[31m;[m      

[01;34mend[m Ai[31m.[mInterfaces [31m;[m 
