aboutsummaryrefslogtreecommitdiff
path: root/Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4
diff options
context:
space:
mode:
authorEd Schouten <ed@FreeBSD.org>2011-04-30 10:59:17 +0000
committerEd Schouten <ed@FreeBSD.org>2011-04-30 10:59:17 +0000
commite07762606a5bf651a501cb095c98cba90e4a8fe2 (patch)
treecfae23e686b177255a6fb3304d166f1ce5cd7ca1 /Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4
parent0294a182a1629b1d854b84906e73487d6cb75fba (diff)
downloadsrc-e07762606a5bf651a501cb095c98cba90e4a8fe2.tar.gz
src-e07762606a5bf651a501cb095c98cba90e4a8fe2.zip
Import ncurses 5.9.vendor/ncurses/5.9-20110405
Notes
Notes: svn path=/vendor/ncurses/dist/; revision=221245 svn path=/vendor/ncurses/5.9-20110405/; revision=221246; tag=vendor/ncurses/5.9-20110405
Diffstat (limited to 'Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4')
-rw-r--r--Ada95/gen/terminal_interface-curses-forms-field_types.ads.m422
1 files changed, 11 insertions, 11 deletions
diff --git a/Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4 b/Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4
index 36314012ed9b..b8481d59714d 100644
--- a/Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4
+++ b/Ada95/gen/terminal_interface-curses-forms-field_types.ads.m4
@@ -10,7 +10,7 @@ include(M4MACRO)dnl
-- S P E C --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2009,2011 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 --
@@ -38,7 +38,7 @@ include(M4MACRO)dnl
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- $Revision: 1.15 $
+-- $Revision: 1.16 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Interfaces.C;
@@ -101,15 +101,15 @@ private
pragma Convention (C, Freearg_Function);
type Field_Check_Function is access
- function (Fld : Field; Usr : System.Address) return C_Int;
+ function (Fld : Field; Usr : System.Address) return Curses_Bool;
pragma Convention (C, Field_Check_Function);
type Char_Check_Function is access
- function (Ch : C_Int; Usr : System.Address) return C_Int;
+ function (Ch : C_Int; Usr : System.Address) return Curses_Bool;
pragma Convention (C, Char_Check_Function);
type Choice_Function is access
- function (Fld : Field; Usr : System.Address) return C_Int;
+ function (Fld : Field; Usr : System.Address) return Curses_Bool;
pragma Convention (C, Choice_Function);
-- +----------------------------------------------------------------------
@@ -117,7 +117,7 @@ private
-- |
type Low_Level_Field_Type is
record
- Status : Interfaces.C.short;
+ Status : Interfaces.C.unsigned_short;
Ref_Count : Interfaces.C.long;
Left, Right : System.Address;
Makearg : Makearg_Function;
@@ -159,7 +159,7 @@ private
-- Any other value will raise a Form_Exception.
function Make_Arg (Args : System.Address) return System.Address;
- pragma Convention (C, Make_Arg);
+ pragma Import (C, Make_Arg, "void_star_make_arg");
-- This is the Makearg_Function for the internal low-level types
-- introduced by this binding.
@@ -174,7 +174,7 @@ private
-- introduced by this binding.
function Field_Check_Router (Fld : Field;
- Usr : System.Address) return C_Int;
+ Usr : System.Address) return Curses_Bool;
pragma Convention (C, Field_Check_Router);
-- This is the Field_Check_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
@@ -182,7 +182,7 @@ private
-- function.
function Char_Check_Router (Ch : C_Int;
- Usr : System.Address) return C_Int;
+ Usr : System.Address) return Curses_Bool;
pragma Convention (C, Char_Check_Router);
-- This is the Char_Check_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
@@ -190,7 +190,7 @@ private
-- function.
function Next_Router (Fld : Field;
- Usr : System.Address) return C_Int;
+ Usr : System.Address) return Curses_Bool;
pragma Convention (C, Next_Router);
-- This is the Choice_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
@@ -198,7 +198,7 @@ private
-- function.
function Prev_Router (Fld : Field;
- Usr : System.Address) return C_Int;
+ Usr : System.Address) return Curses_Bool;
pragma Convention (C, Prev_Router);
-- This is the Choice_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived