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/dpmem.t | |
parent | updated version number (diff) | |
download | rtems-61389eac9fc90cefeff329fa5e692616f22aa219.tar.bz2 |
first cut at Ada bindings manual
Diffstat (limited to 'doc/user/dpmem.t')
-rw-r--r-- | doc/user/dpmem.t | 68 |
1 files changed, 64 insertions, 4 deletions
diff --git a/doc/user/dpmem.t b/doc/user/dpmem.t index 9432323b02..895294e215 100644 --- a/doc/user/dpmem.t +++ b/doc/user/dpmem.t @@ -147,6 +147,7 @@ constants, usage, and status codes. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_port_create( rtems_name name, @@ -156,6 +157,20 @@ rtems_status_code rtems_port_create( rtems_id *id ); @end example +@end ifset + +@ifset is-Ada +@example +procedure Port_Create ( + Name : in RTEMS.Name; + Internal_Start : in RTEMS.Address; + External_Start : in RTEMS.Address; + Length : in RTEMS.Unsigned32; + ID : out RTEMS.ID; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - port created successfully@* @@ -192,12 +207,24 @@ preempted. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_port_ident( rtems_name name, rtems_id *id ); @end example +@end ifset + +@ifset is-Ada +@example +procedure Port_Ident ( + Name : in RTEMS.Name; + ID : out RTEMS.ID; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - port identified successfully@* @@ -225,11 +252,22 @@ preempted. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_port_delete( rtems_id id ); @end example +@end ifset + +@ifset is-Ada +@example +procedure Port_Delete ( + ID : in RTEMS.ID; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - port deleted successfully@* @@ -258,6 +296,7 @@ delete the port. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_port_external_to_internal( rtems_id id, @@ -265,6 +304,18 @@ rtems_status_code rtems_port_external_to_internal( void **internal ); @end example +@end ifset + +@ifset is-Ada +@example +procedure Port_External_To_Internal ( + ID : in RTEMS.ID; + External : in RTEMS.Address; + Internal : out RTEMS.Address; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - always successful @@ -292,6 +343,7 @@ preempted. @subheading CALLING SEQUENCE: +@ifset is-C @example rtems_status_code rtems_port_internal_to_external( rtems_id id, @@ -299,6 +351,18 @@ rtems_status_code rtems_port_internal_to_external( void **external ); @end example +@end ifset + +@ifset is-Ada +@example +procedure Port_Internal_To_External ( + ID : in RTEMS.ID; + Internal : in RTEMS.Address; + External : out RTEMS.Address; + Result : out RTEMS.Status_Codes +); +@end example +@end ifset @subheading DIRECTIVE STATUS CODES: @code{SUCCESSFUL} - always successful @@ -318,7 +382,3 @@ This directive is callable from an ISR. This directive will not cause the calling task to be preempted. - - - - |