diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-05-29 21:53:58 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-05-29 21:53:58 +0000 |
commit | 61389eac9fc90cefeff329fa5e692616f22aa219 (patch) | |
tree | 67e9f20995d80ebd1912501286876f0405b1a4bb /doc/user/io.t | |
parent | updated version number (diff) | |
download | rtems-61389eac9fc90cefeff329fa5e692616f22aa219.tar.bz2 |
first cut at Ada bindings manual
Diffstat (limited to 'doc/user/io.t')
-rw-r--r-- | doc/user/io.t | 122 |
1 files changed, 120 insertions, 2 deletions
diff --git a/doc/user/io.t b/doc/user/io.t index 5176b89224..8b899e7d8f 100644 --- a/doc/user/io.t +++ b/doc/user/io.t @@ -149,6 +149,7 @@ then passed to the correct device driver entry point. RTEMS will invoke each device driver entry point assuming it is compatible with the following prototype: +@ifset is-C @example rtems_device_driver io_entry( rtems_device_major_number major, @@ -156,8 +157,17 @@ rtems_device_driver io_entry( void *argument_block ); @end example +@end ifset - +@ifset is-Ada +@example +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 The format and contents of the parameter block are device driver and entry point dependent. @@ -263,6 +273,7 @@ status codes. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_initialize( rtems_device_major_number major, @@ -270,6 +281,19 @@ rtems_status_code rtems_io_initialize( void *argument ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Initialize ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Return_Value : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -302,6 +326,7 @@ initialized. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_register_name( char *name, @@ -309,6 +334,18 @@ rtems_status_code rtems_io_register_name( rtems_device_minor_number minor ); @end example +@end ifset + +@ifset is-Ada +@example +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 @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -332,12 +369,23 @@ preempted. @subheading CALLING SEQUENCE: +@ifset is-C @example -rtems_status_code rtems_io_lookup( +rtems_status_code rtems_io_lookup_name( const char *name, rtems_driver_name_t **device_info ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Lookup_Name ( + Name : in String; + Device_Info : out RTEMS.Driver_Name_t; +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -361,6 +409,7 @@ preempted. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_open( rtems_device_major_number major, @@ -368,6 +417,19 @@ rtems_status_code rtems_io_open( void *argument ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Open ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Return_Value : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -394,6 +456,7 @@ invoked. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_close( rtems_device_major_number major, @@ -401,6 +464,19 @@ rtems_status_code rtems_io_close( void *argument ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Close ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Return_Value : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -427,6 +503,7 @@ invoked. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_read( rtems_device_major_number major, @@ -434,6 +511,19 @@ rtems_status_code rtems_io_read( void *argument ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Read ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Return_Value : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -461,6 +551,7 @@ invoked. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_write( rtems_device_major_number major, @@ -468,6 +559,19 @@ rtems_status_code rtems_io_write( void *argument ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Write ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Return_Value : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* @@ -495,6 +599,7 @@ invoked. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_io_control( rtems_device_major_number major, @@ -502,6 +607,19 @@ rtems_status_code rtems_io_control( void *argument ); @end example +@end ifset + +@ifset is-Ada +@example +procedure IO_Control ( + Major : in RTEMS.Device_Major_Number; + Minor : in RTEMS.Device_Minor_Number; + Argument : in RTEMS.Address; + Return_Value : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - successfully initialized@* |