-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2004,2008 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
--- Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en
-- Version Control:
--- $Revision: 1.21 $
+-- $Revision: 1.26 $
+-- $Date: 2008/07/26 18:50:58 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Unchecked_Deallocation;
type Desc_String_Ptr is access Desc_String;
pragma Controlled (Desc_String_Ptr);
- Name_Str : Name_String_Ptr := new Name_String;
- Desc_Str : Desc_String_Ptr := new Desc_String;
+ Name_Str : constant Name_String_Ptr := new Name_String;
+ Desc_Str : constant Desc_String_Ptr := new Desc_String;
Name_Len, Desc_Len : size_t;
Result : Item;
begin
Opt : C_Int) return C_Int;
pragma Import (C, Set_Item_Opts, "set_item_opts");
- Opt : C_Int := IOS_2_CInt (Options);
+ Opt : constant C_Int := IOS_2_CInt (Options);
Res : Eti_Error;
begin
Res := Set_Item_Opts (Itm, Opt);
Opt : C_Int) return C_Int;
pragma Import (C, Item_Opts_Off, "item_opts_off");
- Opt : C_Int := IOS_2_CInt (Options);
+ Opt : constant C_Int := IOS_2_CInt (Options);
Err : Eti_Error;
begin
if On then
function Item_Opts (Itm : Item) return C_Int;
pragma Import (C, Item_Opts, "item_opts");
- Res : C_Int := Item_Opts (Itm);
+ Res : constant C_Int := Item_Opts (Itm);
begin
Options := CInt_2_IOS (Res);
end Get_Options;
Opt : C_Int) return C_Int;
pragma Import (C, Set_Menu_Opts, "set_menu_opts");
- Opt : C_Int := MOS_2_CInt (Options);
+ Opt : constant C_Int := MOS_2_CInt (Options);
Res : Eti_Error;
begin
Res := Set_Menu_Opts (Men, Opt);
Opt : C_Int) return C_Int;
pragma Import (C, Menu_Opts_Off, "menu_opts_off");
- Opt : C_Int := MOS_2_CInt (Options);
+ Opt : constant C_Int := MOS_2_CInt (Options);
Err : Eti_Error;
begin
if On then
function Menu_Opts (Men : Menu) return C_Int;
pragma Import (C, Menu_Opts, "menu_opts");
- Res : C_Int := Menu_Opts (Men);
+ Res : constant C_Int := Menu_Opts (Men);
begin
Options := CInt_2_MOS (Res);
end Get_Options;
P : Pointer := C_Mitems (Men);
begin
- if P = null or else Index not in 1 .. Item_Count (Men) then
+ if P = null or else Index > Item_Count (Men) then
raise Menu_Exception;
else
P := P + ptrdiff_t (C_Int (Index) - 1);
Key : C_Int) return C_Int;
pragma Import (C, Driver, "menu_driver");
- R : Eti_Error := Driver (Men, C_Int (Key));
+ R : constant Eti_Error := Driver (Men, C_Int (Key));
begin
if R /= E_Ok then
case R is
begin
if IA /= null and then Free_Items then
for I in IA'First .. (IA'Last - 1) loop
- if (IA (I) /= Null_Item) then
+ if IA (I) /= Null_Item then
Delete (IA (I));
end if;
end loop;