2003-03-06 10:29:19 +00:00
|
|
|
-----------------------------------------------------------------------
|
|
|
|
|
-- G P S --
|
|
|
|
|
-- --
|
|
|
|
|
-- Copyright (C) 2003 --
|
|
|
|
|
-- ACT-Europe --
|
|
|
|
|
-- --
|
|
|
|
|
-- GPS is free software; you can redistribute it and/or modify it --
|
|
|
|
|
-- under the terms of the GNU General Public License as published by --
|
|
|
|
|
-- the Free Software Foundation; either version 2 of the License, or --
|
|
|
|
|
-- (at your option) any later version. --
|
|
|
|
|
-- --
|
|
|
|
|
-- This program is distributed in the hope that it will be useful, --
|
|
|
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
|
|
|
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
|
|
|
|
|
-- General Public License for more details. You should have received --
|
|
|
|
|
-- a copy of the GNU General Public License along with this program; --
|
|
|
|
|
-- if not, write to the Free Software Foundation, Inc., 59 Temple --
|
|
|
|
|
-- Place - Suite 330, Boston, MA 02111-1307, USA. --
|
|
|
|
|
-----------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
with Glide_Kernel; use Glide_Kernel;
|
|
|
|
|
|
|
|
|
|
package body Python_Module is
|
|
|
|
|
|
2004-10-14 09:02:43 +00:00
|
|
|
-------------------
|
|
|
|
|
-- Initialize_IO --
|
|
|
|
|
-------------------
|
|
|
|
|
|
|
|
|
|
procedure Initialize_IO is
|
|
|
|
|
begin
|
|
|
|
|
null;
|
|
|
|
|
end Initialize_IO;
|
|
|
|
|
|
2003-03-06 10:29:19 +00:00
|
|
|
---------------------
|
|
|
|
|
-- Register_Module --
|
|
|
|
|
---------------------
|
|
|
|
|
|
|
|
|
|
procedure Register_Module
|
|
|
|
|
(Kernel : access Glide_Kernel.Kernel_Handle_Record'Class)
|
|
|
|
|
is
|
|
|
|
|
pragma Unreferenced (Kernel);
|
|
|
|
|
begin
|
|
|
|
|
null;
|
|
|
|
|
end Register_Module;
|
|
|
|
|
|
2003-04-18 12:27:22 +00:00
|
|
|
-------------------------------
|
|
|
|
|
-- Load_Python_Startup_Files --
|
|
|
|
|
-------------------------------
|
|
|
|
|
|
|
|
|
|
procedure Load_Python_Startup_Files
|
|
|
|
|
(Kernel : access Glide_Kernel.Kernel_Handle_Record'Class)
|
|
|
|
|
is
|
|
|
|
|
pragma Unreferenced (Kernel);
|
|
|
|
|
begin
|
|
|
|
|
null;
|
|
|
|
|
end Load_Python_Startup_Files;
|
|
|
|
|
|
2003-03-06 10:29:19 +00:00
|
|
|
end Python_Module;
|
|
|
|
|
|