From 20b921b451118aae9cb978acbf178a15376c79b5 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 20 Nov 2008 15:11:26 +0000 Subject: 2008-11-20 Joel Sherrill PR 1339/Ada * user/io.t: Re-add IO Manager to Ada binding. --- doc/ChangeLog | 5 +++++ doc/user/io.t | 67 ++++++++++++++++++++++++++++++++++++++++++++++++----------- 2 files changed, 60 insertions(+), 12 deletions(-) (limited to 'doc') diff --git a/doc/ChangeLog b/doc/ChangeLog index 2d5944db39..00f45167e3 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,3 +1,8 @@ +2008-11-20 Joel Sherrill + + PR 1339/Ada + * user/io.t: Re-add IO Manager to Ada binding. + 2008-11-13 Joel Sherrill PR 1336/cpukit diff --git a/doc/user/io.t b/doc/user/io.t index 722bdc9691..5fc91fe858 100644 --- a/doc/user/io.t +++ b/doc/user/io.t @@ -1,5 +1,5 @@ @c -@c COPYRIGHT (c) 1988-2007. +@c COPYRIGHT (c) 1988-2008. @c On-Line Applications Research Corporation (OAR). @c All rights reserved. @c @@ -169,7 +169,11 @@ rtems_device_driver io_entry( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +function IO_Entry ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Major_Number; + Argument_Block : in RTEMS.Address +) return RTEMS.Status_Code; @end example @end ifset @@ -266,7 +270,7 @@ rtems_status_code rtems_io_register_driver( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +No Ada implementation. @end example @end ifset @@ -323,7 +327,7 @@ rtems_status_code rtems_io_unregister_driver( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +No Ada implementation. @end example @end ifset @@ -363,7 +367,12 @@ rtems_status_code rtems_io_initialize( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Initialize ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -413,7 +422,12 @@ rtems_status_code rtems_io_register_name( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Register_Name ( + Name : in String; + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -453,7 +467,11 @@ rtems_status_code rtems_io_lookup_name( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Lookup_Name ( + Name : in String; + Device_Info : out RTEMS.Driver_Name_t_Pointer; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -494,7 +512,12 @@ rtems_status_code rtems_io_open( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Open ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -538,7 +561,12 @@ rtems_status_code rtems_io_close( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Close ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -582,7 +610,12 @@ rtems_status_code rtems_io_read( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Read ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -627,7 +660,12 @@ rtems_status_code rtems_io_write( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Write ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Result : out RTEMS.Status_Codes +); @end example @end ifset @@ -673,7 +711,12 @@ rtems_status_code rtems_io_control( @ifset is-Ada @example -NOT SUPPORTED FROM Ada BINDING +procedure IO_Control ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Result : out RTEMS.Status_Codes +); @end example @end ifset -- cgit v1.2.3