Skip to main content

B.3 Interfacing with C and C++

danger

This Reference Manual output has not been verified, and may contain omissions or errors. Report any problems on the tracking issue

1/4

{8652/0059} The facilities relevant to interfacing with the C language and the corresponding subset of the C++ language are the package Interfaces.C and its children, and support for specifying the Convention aspect with convention_identifiers C, C_Pass_By_Copy, and any of the C_Variadic_n conventions described below.

2/3

The package Interfaces.C contains the basic types, constants, and subprograms that allow an Ada program to pass scalars and strings to C and C++ functions. When this subclause mentions a C entity, the reference also applies to the corresponding entity in C++.

Static Semantics

3

The library package Interfaces.C has the following declaration:

4/5

package Interfaces.C with Pure is 5 -- Declarations based on C's <limits.h> 6 CHAR_BIT : constant := implementation-defined; -- typically 8 SCHAR_MIN : constant := implementation-defined; -- typically –128 SCHAR_MAX : constant := implementation-defined; -- typically 127 UCHAR_MAX : constant := implementation-defined; -- typically 255 7 -- Signed and Unsigned Integers type int is range implementation-defined; type short is range implementation-defined; type long is range implementation-defined; 8 type signed_char is range SCHAR_MIN .. SCHAR_MAX; for signed_char'Size use CHAR_BIT; 9 type unsigned is mod implementation-defined; type unsigned_short is mod implementation-defined; type unsigned_long is mod implementation-defined; 10 type unsigned_char is mod (UCHAR_MAX+1); for unsigned_char'Size use CHAR_BIT; 11 subtype plain_char is implementation-defined; 12 type ptrdiff_t is range implementation-defined; 13 type size_t is mod implementation-defined; 13.1/5

-- Boolean Type type C_bool is new Boolean; 14 -- Floating Point 15 type C_float is digits implementation-defined; 16 type double is digits implementation-defined; 17 type long_double is digits implementation-defined; 18 -- Characters and Strings 19 type char is <implementation-defined character type>; 20/1

{8652/0060} nul : constant char := implementation-defined; 21 function To_C (Item : in Character) return char; 22 function To_Ada (Item : in char) return Character; 23/3

type char_array is array (size_t range <>) of aliased char with Pack; for char_array'Component_Size use CHAR_BIT; 24 function Is_Nul_Terminated (Item : in char_array) return Boolean; 25 function To_C (Item : in String; Append_Nul : in Boolean := True) return char_array; 26 function To_Ada (Item : in char_array; Trim_Nul : in Boolean := True) return String; 27 procedure To_C (Item : in String; Target : out char_array; Count : out size_t; Append_Nul : in Boolean := True); 28 procedure To_Ada (Item : in char_array; Target : out String; Count : out Natural; Trim_Nul : in Boolean := True); 29 -- Wide Character and Wide String 30/1

{8652/0060} type wchar_t is <implementation-defined character type>; 31/1

{8652/0060} wide_nul : constant wchar_t := implementation-defined; 32 function To_C (Item : in Wide_Character) return wchar_t; function To_Ada (Item : in wchar_t ) return Wide_Character; 33/3

type wchar_array is array (size_t range <>) of aliased wchar_t with Pack; 34/3

This paragraph was deleted. 35 function Is_Nul_Terminated (Item : in wchar_array) return Boolean; 36 function To_C (Item : in Wide_String; Append_Nul : in Boolean := True) return wchar_array; 37 function To_Ada (Item : in wchar_array; Trim_Nul : in Boolean := True) return Wide_String; 38 procedure To_C (Item : in Wide_String; Target : out wchar_array; Count : out size_t; Append_Nul : in Boolean := True); 39 procedure To_Ada (Item : in wchar_array; Target : out Wide_String; Count : out Natural; Trim_Nul : in Boolean := True); 39.1/5

-- ISO/IEC 10646 compatible types. 39.2/2

type char16_t is <implementation-defined character type>; 39.3/2 char16_nul : constant char16_t := implementation-defined; 39.4/2 function To_C (Item : in Wide_Character) return char16_t; function To_Ada (Item : in char16_t) return Wide_Character; 39.5/3

type char16_array is array (size_t range <>) of aliased char16_t with Pack; 39.6/3

This paragraph was deleted. 39.7/2 function Is_Nul_Terminated (Item : in char16_array) return Boolean; function To_C (Item : in Wide_String; Append_Nul : in Boolean := True) return char16_array; 39.8/2 function To_Ada (Item : in char16_array; Trim_Nul : in Boolean := True) return Wide_String; 39.9/2 procedure To_C (Item : in Wide_String; Target : out char16_array; Count : out size_t; Append_Nul : in Boolean := True); 39.10/2 procedure To_Ada (Item : in char16_array; Target : out Wide_String; Count : out Natural; Trim_Nul : in Boolean := True); 39.11/2

type char32_t is <implementation-defined character type>; 39.12/2 char32_nul : constant char32_t := implementation-defined; 39.13/2 function To_C (Item : in Wide_Wide_Character) return char32_t; function To_Ada (Item : in char32_t) return Wide_Wide_Character; 39.14/3

type char32_array is array (size_t range <>) of aliased char32_t with Pack; 39.15/3

This paragraph was deleted. 39.16/2 function Is_Nul_Terminated (Item : in char32_array) return Boolean; function To_C (Item : in Wide_Wide_String; Append_Nul : in Boolean := True) return char32_array; 39.17/2 function To_Ada (Item : in char32_array; Trim_Nul : in Boolean := True) return Wide_Wide_String; 39.18/2 procedure To_C (Item : in Wide_Wide_String; Target : out char32_array; Count : out size_t; Append_Nul : in Boolean := True); 39.19/2 procedure To_Ada (Item : in char32_array; Target : out Wide_Wide_String; Count : out Natural; Trim_Nul : in Boolean := True); 40 Terminator_Error : exception; 41 end Interfaces.C;

41.a.1/2
implementation defined

The definitions of certain types and constants in Interfaces.C.

42

Each of the types declared in Interfaces.C is C-compatible.

43/5

The types int, short, long, unsigned, ptrdiff_t, size_t, double, char, wchar_t, char16_t, and char32_t correspond respectively to the C types having the same names. The types signed_char, unsigned_short, unsigned_long, unsigned_char, C_bool, C_float, and long_double correspond respectively to the C types signed char, unsigned short, unsigned long, unsigned char, bool, float, and long double.

43.a/2
discussion

The C types wchar_t and char16_t seem to be the same. However, wchar_t has an implementation-defined size, whereas char16_t is guaranteed to be an unsigned type of at least 16 bits. Also, char16_t and char32_t are encouraged to have UTF-16 and UTF-32 representations; that means that they are not directly the same as the Ada types, which most likely don't use any UTF encoding.

44

The type of the subtype plain_char is either signed_char or unsigned_char, depending on the C implementation.

45

function To_C (Item : in Character) return char; function To_Ada (Item : in char ) return Character;

46

The functions To_C and To_Ada map between the Ada type Character and the C type char.

46.a.1/1
implementation note

{8652/0114} The To_C and To_Ada functions map between corresponding characters, not necessarily between characters with the same internal representation. Corresponding characters are characters defined by the same enumeration literal, if such exist; otherwise, the correspondence is unspecified.

46.a.2/1

The following definition is equivalent to the above summary:

46.a.3/1

To_C (Latin_1_Char) = char'Value(Character'Image(Latin_1_Char))
provided that char'Value does not raise an exception; otherwise the result is unspecified.

46.a.4/1

To_Ada (Native_C_Char) = Character'Value(char'Image(Native_C_Char))
provided that Character'Value does not raise an exception; otherwise the result is unspecified.

47

function Is_Nul_Terminated (Item : in char_array) return Boolean;

48

The result of Is_Nul_Terminated is True if Item contains nul, and is False otherwise.

49

function To_C (Item : in String; Append_Nul : in Boolean := True) return char_array; function To_Ada (Item : in char_array; Trim_Nul : in Boolean := True) return String;

50/2

The result of To_C is a char_array value of length Item'Length (if Append_Nul is False) or Item'Length+1 (if Append_Nul is True). The lower bound is 0. For each component Item(I), the corresponding component in the result is To_C applied to Item(I). The value nul is appended if Append_Nul is True. If Append_Nul is False and Item'Length is 0, then To_C propagates Constraint_Error.

51

The result of To_Ada is a String whose length is Item'Length (if Trim_Nul is False) or the length of the slice of Item preceding the first nul (if Trim_Nul is True). The lower bound of the result is 1. If Trim_Nul is False, then for each component Item(I) the corresponding component in the result is To_Ada applied to Item(I). If Trim_Nul is True, then for each component Item(I) before the first nul the corresponding component in the result is To_Ada applied to Item(I). The function propagates Terminator_Error if Trim_Nul is True and Item does not contain nul.

52

procedure To_C (Item : in String; Target : out char_array; Count : out size_t; Append_Nul : in Boolean := True); procedure To_Ada (Item : in char_array; Target : out String; Count : out Natural; Trim_Nul : in Boolean := True);

53

For procedure To_C, each element of Item is converted (via the To_C function) to a char, which is assigned to the corresponding element of Target. If Append_Nul is True, nul is then assigned to the next element of Target. In either case, Count is set to the number of Target elements assigned. If Target is not long enough, Constraint_Error is propagated.

54

For procedure To_Ada, each element of Item (if Trim_Nul is False) or each element of Item preceding the first nul (if Trim_Nul is True) is converted (via the To_Ada function) to a Character, which is assigned to the corresponding element of Target. Count is set to the number of Target elements assigned. If Target is not long enough, Constraint_Error is propagated. If Trim_Nul is True and Item does not contain nul, then Terminator_Error is propagated.

55

function Is_Nul_Terminated (Item : in wchar_array) return Boolean;

56

The result of Is_Nul_Terminated is True if Item contains wide_nul, and is False otherwise.

57

function To_C (Item : in Wide_Character) return wchar_t; function To_Ada (Item : in wchar_t ) return Wide_Character;

58

To_C and To_Ada provide the mappings between the Ada and C wide character types.

59

function To_C (Item : in Wide_String; Append_Nul : in Boolean := True) return wchar_array; function To_Ada (Item : in wchar_array; Trim_Nul : in Boolean := True) return Wide_String; procedure To_C (Item : in Wide_String; Target : out wchar_array; Count : out size_t; Append_Nul : in Boolean := True); procedure To_Ada (Item : in wchar_array; Target : out Wide_String; Count : out Natural; Trim_Nul : in Boolean := True);

60

The To_C and To_Ada subprograms that convert between Wide_String and wchar_array have analogous effects to the To_C and To_Ada subprograms that convert between String and char_array, except that wide_nul is used instead of nul.

60.1/2

function Is_Nul_Terminated (Item : in char16_array) return Boolean;

60.2/2

The result of Is_Nul_Terminated is True if Item contains char16_nul, and is False otherwise.

60.3/2

function To_C (Item : in Wide_Character) return char16_t; function To_Ada (Item : in char16_t ) return Wide_Character;

60.4/2

To_C and To_Ada provide mappings between the Ada and C 16-bit character types.

60.5/2

function To_C (Item : in Wide_String; Append_Nul : in Boolean := True) return char16_array; function To_Ada (Item : in char16_array; Trim_Nul : in Boolean := True) return Wide_String; procedure To_C (Item : in Wide_String; Target : out char16_array; Count : out size_t; Append_Nul : in Boolean := True); procedure To_Ada (Item : in char16_array; Target : out Wide_String; Count : out Natural; Trim_Nul : in Boolean := True);

60.6/2

The To_C and To_Ada subprograms that convert between Wide_String and char16_array have analogous effects to the To_C and To_Ada subprograms that convert between String and char_array, except that char16_nul is used instead of nul.

60.7/2

function Is_Nul_Terminated (Item : in char32_array) return Boolean;

60.8/5

The result of Is_Nul_Terminated is True if Item contains char32_nul, and is False otherwise.

60.9/2

function To_C (Item : in Wide_Wide_Character) return char32_t; function To_Ada (Item : in char32_t ) return Wide_Wide_Character;

60.10/2

To_C and To_Ada provide mappings between the Ada and C 32-bit character types.

60.11/2

function To_C (Item : in Wide_Wide_String; Append_Nul : in Boolean := True) return char32_array; function To_Ada (Item : in char32_array; Trim_Nul : in Boolean := True) return Wide_Wide_String; procedure To_C (Item : in Wide_Wide_String; Target : out char32_array; Count : out size_t; Append_Nul : in Boolean := True); procedure To_Ada (Item : in char32_array; Target : out Wide_Wide_String; Count : out Natural; Trim_Nul : in Boolean := True);

60.12/2

The To_C and To_Ada subprograms that convert between Wide_Wide_String and char32_array have analogous effects to the To_C and To_Ada subprograms that convert between String and char_array, except that char32_nul is used instead of nul.

60.a
discussion

The Interfaces.C package provides an implementation-defined character type, char, designed to model the C run-time character set, and mappings between the types char and Character.

60.b

One application of the C interface package is to compose a C string and pass it to a C function. One way to do this is for the programmer to declare an object that will hold the C array, and then pass this array to the C function. This is realized via the type char_array:

60.c

type char_array is array (size_t range <>) of Char;

60.d

The programmer can declare an Ada String, convert it to a char_array, and pass the char_array as actual parameter to the C function that is expecting a char *.

60.e

An alternative approach is for the programmer to obtain a C char pointer from an Ada String (or from a char_array) by invoking an allocation function. The package Interfaces.C.Strings (see below) supplies the needed facilities, including a private type chars_ptr that corresponds to C's char *, and two allocation functions. To avoid storage leakage, a Free procedure releases the storage that was allocated by one of these allocate functions.

60.f

It is typical for a C function that deals with strings to adopt the convention that the string is delimited by a nul char. The C interface packages support this convention. A constant nul of type Char is declared, and the function Value(Chars_Ptr) in Interfaces.C.Strings returns a char_array up to and including the first nul in the array that the chars_ptr points to. The Allocate_Chars function allocates an array that is nul terminated.

60.g

Some C functions that deal with strings take an explicit length as a parameter, thus allowing strings to be passed that contain nul as a data element. Other C functions take an explicit length that is an upper bound: the prefix of the string up to the char before nul, or the prefix of the given length, is used by the function, whichever is shorter. The C Interface packages support calling such functions.

60.13/3

{8652/0059} The Convention aspect with convention_identifier C_Pass_By_Copy shall only be specified for a type.

60.14/2

{8652/0059} The eligibility rules in B.1 do not apply to convention C_Pass_By_Copy. Instead, a type T is eligible for convention C_Pass_By_Copy if T is an unchecked union type or if T is a record type that has no discriminants and that only has components with statically constrained subtypes, and each component is C-compatible.

60.15/3

{8652/0059} If a type is C_Pass_By_Copy-compatible, then it is also C-compatible.

60.16/4

The identifiers C_Variadic_0, C_Variadic_1, C_Variadic_2, and so on are convention_identifiers. These conventions are said to be C_Variadic. The convention C_Variadic_n is the calling convention for a variadic C function taking n fixed parameters and then a variable number of additional parameters. The C_Variadic_n convention shall only be specified as the convention aspect for a subprogram, or for an access-to-subprogram type, having at least n parameters. A type is compatible with a C_Variadic convention if and only if the type is C-compatible.

60.h/4

To be honest: It is implementation defined what the largest n in C_Variadic_n is supported. We don't say this because it complicates the wording and it is true for almost any convention_identifier (only Ada is required to be supported by the language, all others need to be documented in order for programmers to know that they are available).

Implementation Requirements

61/3

{8652/0059} An implementation shall support specifying aspect Convention with a C convention_identifier for a C-eligible type (see B.1). An implementation shall support specifying aspect Convention with a C_Pass_By_Copy convention_identifier for a C_Pass_By_Copy-eligible type.

Implementation Permissions

62

An implementation may provide additional declarations in the C interface packages.

62.1/5

An implementation is not required to support specifying the Convention aspect with convention_identifier C in the following cases:

62.2/3
  • for a subprogram that has a parameter of an unconstrained array subtype, unless the Import aspect has the value True for the subprogram;
  • 62.3/3
  • for a function with an unconstrained array result subtype;
  • 62.4/3
  • for an object whose nominal subtype is an unconstrained array subtype.
62.a/3
implementation note

These rules ensure that an implementation never needs to create bounds for an unconstrained array that originates in C (and thus does not have bounds). An implementation can do so if it wishes, of course. Note that these permissions do not extend to passing an unconstrained array as a parameter to a C function; in this case, the bounds can simply be dropped and thus support is required.

Implementation Advice

62.5/3

{8652/0060} The constants nul, wide_nul, char16_nul, and char32_nul should have a representation of zero.

62.b/2
implementation advice

The constants nul, wide_nul, char16_nul, and char32_nul in package Interfaces.C should have a representation of zero.

63

An implementation should support the following interface correspondences between Ada and C.

64
  • An Ada procedure corresponds to a void-returning C function.
64.a
discussion

The programmer can also choose an Ada procedure when the C function returns an int that is to be discarded.

65
  • An Ada function corresponds to a non-void C function.
  • 65.1/4
  • An Ada enumeration type corresponds to a C enumeration type with corresponding enumeration literals having the same internal codes, provided the internal codes fall within the range of the C int type.
  • 66
  • An Ada in scalar parameter is passed as a scalar argument to a C function.
  • 67
  • An Ada in parameter of an access-to-object type with designated type T is passed as a t* argument to a C function, where t is the C type corresponding to the Ada type T.
  • 68
  • An Ada access T parameter, or an Ada out or in out parameter of an elementary type T, is passed as a t* argument to a C function, where t is the C type corresponding to the Ada type T. In the case of an elementary out or in out parameter, a pointer to a temporary copy is used to preserve by-copy semantics.
  • 68.1/2
  • {8652/0059} An Ada parameter of a (record) type T of convention C_Pass_By_Copy, of mode in, is passed as a t argument to a C function, where t is the C struct corresponding to the Ada type T.
  • 69/5
  • {8652/0059} An Ada parameter of a record type T, other than an in parameter of a type of convention C_Pass_By_Copy, is passed as a t* argument to a C function, with the const modifier if the Ada mode is in, where t is the C struct corresponding to the Ada type T.
  • 70/5
  • An Ada parameter of an array type with component type T is passed as a t* argument to a C function, with the const modifier if the Ada mode is in, where t is the C type corresponding to the Ada type T.
  • 71
  • An Ada parameter of an access-to-subprogram type is passed as a pointer to a C function whose prototype corresponds to the designated subprogram's specification.
  • 71.1/3
  • An Ada parameter of a private type is passed as specified for the full view of the type.
  • 71.2/3
  • The rules of correspondence given above for parameters of mode in also apply to the return object of a function.
71.3/5

An implementation should provide unsigned_long_long and long_long as 64-bit modular and signed integer types (respectively) in package Interfaces.C if the C implementation supports unsigned long long and long long as 64-bit types.

71.a/2
implementation advice

If C interfacing is supported, the interface correspondences between Ada and C should be supported.

71.a.1/5
implementation advice

If the C implementation supports unsigned long long and long long, unsigned_long_long and long_long should be supported.

72

NOTE 1 Values of type char_array are not implicitly terminated with nul. If a char_array is to be passed as a parameter to an imported C function requiring nul termination, it is the programmer's responsibility to obtain this effect.

73

NOTE 2 To obtain the effect of C's sizeof(item_type), where Item_Type is the corresponding Ada type, evaluate the expression: size_t(Item_Type'Size/CHAR_BIT).

74/2
This paragraph was deleted.
75/4

NOTE 3 A variadic C function can correspond to several Ada subprograms, taking various specific numbers and types of parameters.

Examples

76

Example of using the Interfaces.C package:

77/5

--Calling the C Library Functions strcpy and printf with Interfaces.C; procedure Test is package C renames Interfaces.C; use type C.char_array; -- Call <string.h>strcpy: -- C definition of strcpy: char *strcpy(char *s1, const char *s2); -- This function copies the string pointed to by s2 (including the terminating null character) -- into the array pointed to by s1. If copying takes place between objects that overlap, -- the behavior is undefined. The strcpy function returns the value of s1. 78/3

-- procedure Strcpy (Target : out C.char_array; Source : in C.char_array) with Import => True, Convention => C, External_Name => "strcpy"; 79/5

-- Call <sdtio.h>printf: -- C definition of printf: int printf ( const char * format, ... ); -- This function writes the C string pointed by format to the standard output (stdout). -- If format includes format specifiers (subsequences beginning with %), the additional -- arguments following format are formatted and inserted in the resulting string -- replacing their respective specifiers. If the number of arguments does not match -- the number of format specifiers, or if the types of the arguments do not match -- the corresponding format specifier, the behaviour is undefined. On success, the -- printf function returns the total number of characters written to the standard output. -- If a writing error occurs, a negative number is returned. 79.1/5

-- procedure Printf (Format : in C.char_array; Param1 : in C.char_array; Param2 : in C.int) with Import => True, Convention => C_Variadic_1, External_Name => "printf"; 80 Chars1 : C.char_array(1..20); Chars2 : C.char_array(1..20); 81 begin Chars2(1..6) := "qwert" & C.nul; 82 Strcpy(Chars1, Chars2); 83 -- Now Chars1(1..6) = "qwert" & C.Nul 83.1/5

Printf("The String=%s, Length=%d", Chars1, Chars1'Length); 84 end Test;

Incompatibilities With Ada 95

84.a/3

Types char16_t and char32_t and their related types and operations are added to Interfaces.C. If Interfaces.C is referenced in a use_clause, and an entity E with the same defining_identifier as a new entity in Interfaces.C is defined in a package that is also referenced in a use_clause, the entity E may no longer be use-visible, resulting in errors. This should be rare and is easily fixed if it does occur.

Extensions to Ada 95

84.b/2

{8652/0059} Corrigendum: Convention C_Pass_By_Copy is new.

Wording Changes from Ada 95

84.c/2

{8652/0060} Corrigendum: Clarified the intent for Nul and Wide_Nul.

84.d/2

Specified that an unchecked union type (see B.3.3) is eligible for convention C_Pass_By_Copy.

84.e/2

Specified what happens if the To_C function tries to return a null string.

84.f/2

Clarified that the interface correspondences also apply to private types whose full types have the specified characteristics.

84.g/2

Clarified that a type must have convention C_Pass_By_Copy in order to be passed by copy (not just a type that could have that convention).

84.h/2

Added wording to make it clear that these facilities can also be used with C++.

Incompatibilities With Ada 2005

84.i/3
correction

Added a definition of correspondences for function results. Also added wording to make it clear that we do not expect the implementation to conjure bounds for unconstrained arrays out of thin air. These changes allow (but don't require) compilers to reject unreasonable uses of array types. Such uses probably didn't work anyway (and probably were rejected, no matter what the language definition said), so little existing code should be impacted.

Incompatibilities With Ada 2012

84.j/5

Added type C_bool and (implicitly) the enumeration literals True and False to the Interfaces.C package. Therefore, a use clause conflict is possible; see the introduction of Annex A for more on this topic.

Extensions to Ada 2012

84.k/4

Corrigendum: The convention_identifiers C_Variadic_0, C_Variadic_1, and so on are new. These are classified as a correction as any implementation can add such identifiers and it is important that special conventions be available for variadic functions as typical x64 conventions are different for normal and variadic C functions.

84.l/4

Corrigendum: Defined the correspondence between an Ada enumeration type and a C enumeration type; implementations should support convention C for enumeration types.

Wording Changes from Ada 2012

84.m/5
implementation advice

Added that types be defined in Interfaces.C corresponding to long long and unsigned long long.

84.n/5
correction

Added advice that const t* map to Ada in parameters and vice versa.

84.o/5

Added advice about mapping type Boolean.

B.3.1 The Package Interfaces.C.Strings

1/3

The package Interfaces.C.Strings declares types and subprograms allowing an Ada program to allocate, reference, update, and free C-style strings. In particular, the private type chars_ptr corresponds to a common use of “char *” in C programs, and an object of this type can be passed to a subprogram to which with Import => True, Convention => C has been specified, and for which “char *” is the type of the argument of the C function.

Static Semantics

2

The library package Interfaces.C.Strings has the following declaration:

3/5

package Interfaces.C.Strings with Preelaborate, Nonblocking, Global => in out synchronized is 4 type char_array_access is access all char_array; 5/5

type chars_ptr is private with Preelaborable_Initialization; 6/2

type chars_ptr_array is array (size_t range <>) of aliased chars_ptr; 7 Null_Ptr : constant chars_ptr; 8 function To_Chars_Ptr (Item : in char_array_access; Nul_Check : in Boolean := False) return chars_ptr; 9 function New_Char_Array (Chars : in char_array) return chars_ptr; 10 function New_String (Str : in String) return chars_ptr; 11 procedure Free (Item : in out chars_ptr); 12 Dereference_Error : exception; 13 function Value (Item : in chars_ptr) return char_array; 14 function Value (Item : in chars_ptr; Length : in size_t) return char_array; 15 function Value (Item : in chars_ptr) return String; 16 function Value (Item : in chars_ptr; Length : in size_t) return String; 17 function Strlen (Item : in chars_ptr) return size_t; 18 procedure Update (Item : in chars_ptr; Offset : in size_t; Chars : in char_array; Check : in Boolean := True); 19 procedure Update (Item : in chars_ptr; Offset : in size_t; Str : in String; Check : in Boolean := True); 20 Update_Error : exception; 21 private ... -- not specified by the language end Interfaces.C.Strings;

21.a
discussion

The string manipulation types and subprograms appear in a child of Interfaces.C versus being there directly, since it is useful to have Interfaces.C specified as pragma Pure.

21.b

Differently named functions New_String and New_Char_Array are declared, since if there were a single overloaded function a call with a string literal as actual parameter would be ambiguous.

22

The type chars_ptr is C-compatible and corresponds to the use of C's “char *” for a pointer to the first char in a char array terminated by nul. When an object of type chars_ptr is declared, its value is by default set to Null_Ptr, unless the object is imported (see B.1).

22.a
discussion

The type char_array_access is not necessarily C-compatible, since an object of this type may carry “dope” information. The programmer should convert from char_array_access to chars_ptr for objects imported from, exported to, or passed to C.

23

function To_Chars_Ptr (Item : in char_array_access; Nul_Check : in Boolean := False) return chars_ptr;

24/3

{8652/0061} If Item is null, then To_Chars_Ptr returns Null_Ptr. If Item is not null, Nul_Check is True, and Item.all does not contain nul, then the function propagates Terminator_Error; otherwise, To_Chars_Ptr performs a pointer conversion with no allocation of memory.

25

function New_Char_Array (Chars : in char_array) return chars_ptr;

26

This function returns a pointer to an allocated object initialized to Chars(Chars'First .. Index) & nul, where

27
  • Index = Chars'Last if Chars does not contain nul, or
  • 28
  • Index is the smallest size_t value I such that Chars(I+1) = nul.
28.1

Storage_Error is propagated if the allocation fails.

29

function New_String (Str : in String) return chars_ptr;

30

This function is equivalent to New_Char_Array(To_C(Str)).

31

procedure Free (Item : in out chars_ptr);

32

If Item is Null_Ptr, then Free has no effect. Otherwise, Free releases the storage occupied by Value(Item), and resets Item to Null_Ptr.

33

function Value (Item : in chars_ptr) return char_array;

34/3

If Item = Null_Ptr, then Value propagates Dereference_Error. Otherwise, Value returns the prefix of the array of chars pointed to by Item, up to and including the first nul. The lower bound of the result is 0. If Item does not point to a nul-terminated string, then execution of Value is erroneous.

35

function Value (Item : in chars_ptr; Length : in size_t) return char_array;

36/3

{8652/0062} If Item = Null_Ptr, then Value propagates Dereference_Error. Otherwise, Value returns the shorter of two arrays, either the first Length chars pointed to by Item, or Value(Item). The lower bound of the result is 0. If Length is 0, then Value propagates Constraint_Error.

36.a
ramification

Value(New_Char_Array(Chars)) = Chars if Chars does not contain nul; else Value(New_Char_Array( Chars)) is the prefix of Chars up to and including the first nul.

37

function Value (Item : in chars_ptr) return String;

38

Equivalent to To_Ada(Value(Item), Trim_Nul=>True).

39

function Value (Item : in chars_ptr; Length : in size_t) return String;

40/1

{8652/0063} Equivalent to To_Ada(Value(Item, Length) & nul, Trim_Nul=>True).

41

function Strlen (Item : in chars_ptr) return size_t;

42

Returns Val'Length–1 where Val = Value(Item); propagates Dereference_Error if Item = Null_Ptr.

42.a
ramification

Strlen returns the number of chars in the array pointed to by Item, up to and including the char immediately before the first nul.

42.b

Strlen has the same possibility for erroneous execution as Value, in cases where the string has not been nul-terminated.

42.c

Strlen has the effect of C's strlen function.

43

procedure Update (Item : in chars_ptr; Offset : in size_t; Chars : in char_array; Check : Boolean := True);

44/1

{8652/0064} If Item = Null_Ptr, then Update propagates Dereference_Error. Otherwise, this procedure updates the value pointed to by Item, starting at position Offset, using Chars as the data to be copied into the array. Overwriting the nul terminator, and skipping with the Offset past the nul terminator, are both prevented if Check is True, as follows:

45
  • Let N = Strlen(Item). If Check is True, then:
46
  • If Offset+Chars'Length>N, propagate Update_Error.
  • 47
  • Otherwise, overwrite the data in the array pointed to by Item, starting at the char at position Offset, with the data in Chars.
48
  • If Check is False, then processing is as above, but with no check that Offset+Chars'Length>N.
48.a
ramification

If Chars contains nul, Update's effect may be to “shorten” the pointed-to char array.

49

procedure Update (Item : in chars_ptr; Offset : in size_t; Str : in String; Check : in Boolean := True);

50/2

Equivalent to Update(Item, Offset, To_C(Str, Append_Nul => False), Check).

50.a/2
discussion

To truncate the Item to the length of Str, use Update(Item, Offset, To_C(Str), Check) instead of Update(Item, Offset, Str, Check). Note that when truncating Item, Item must be longer than Str.

Erroneous Execution

51

Execution of any of the following is erroneous if the Item parameter is not null_ptr and Item does not point to a nul-terminated array of chars.

52
  • a Value function not taking a Length parameter,
  • 53
  • the Free procedure,
  • 54
  • the Strlen function.
55

Execution of Free(X) is also erroneous if the chars_ptr X was not returned by New_Char_Array or New_String.

56

Reading or updating a freed char_array is erroneous.

57

Execution of Update is erroneous if Check is False and a call with Check equal to True would have propagated Update_Error.

58/5

NOTE New_Char_Array and New_String can be implemented either through the allocation function from the C environment (“malloc”) or through Ada dynamic memory allocation (“new”). The key points are

59/5
  • the returned value (a chars_ptr) is represented as a C “char *” so that it can be passed to C functions;
  • 60/5
  • the allocated object can be freed by the programmer via a call of Free, rather than by calling a C function.

Inconsistencies With Ada 95

60.a/2
correction

Amendment Update for a String parameter is now defined to not add a nul character. It did add a nul in Ada 95. This means that programs that used this behavior of Update to truncate a string will no longer work (the string will not be truncated). This change makes Update for a string consistent with Update for a char_array (no implicit nul is added to the end of a char_array).

Extensions to Ada 95

60.b/2
correction

Amendment Added pragma Preelaborable_Initialization to type chars_ptr, so that it can be used in preelaborated units.

60.c/2
correction

Amendment The components of chars_ptr_array are aliased so that it can be used to instantiate Interfaces.C.Pointers (that is its intended purpose, which is otherwise mysterious as it has no operations).

Wording Changes from Ada 95

60.d/2

{8652/0061} Corrigendum: Fixed the missing semantics of To_Char_Ptr when Nul_Check is False.

60.e/2

{8652/0062} Corrigendum: Fixed the missing semantics of Value when the Length is 0.

60.f/2

{8652/0063} Corrigendum: Corrected the definition of Value to avoid raising Terminator_Error.

60.g/2

{8652/0064} Corrigendum: Fixed the missing semantics of Update when Item is Null_Ptr.

B.3.2 The Generic Package Interfaces.C.Pointers

1

The generic package Interfaces.C.Pointers allows the Ada programmer to perform C-style operations on pointers. It includes an access type Pointer, Value functions that dereference a Pointer and deliver the designated array, several pointer arithmetic operations, and “copy” procedures that copy the contents of a source pointer into the array designated by a destination pointer. As in C, it treats an object Ptr of type Pointer as a pointer to the first element of an array, so that for example, adding 1 to Ptr yields a pointer to the second element of the array.

2/5

The generic allows two styles of usage: one in which the array is terminated by a special terminator element; and another in which the programmer keeps track of the length.

Static Semantics

3

The generic library package Interfaces.C.Pointers has the following declaration:

4/5

generic type Index is (<>); type Element is private; type Element_Array is array (Index range <>) of aliased Element; Default_Terminator : Element; package Interfaces.C.Pointers with Preelaborate, Nonblocking, Global => in out synchronized is 5 type Pointer is access all Element; 6 function Value(Ref : in Pointer; Terminator : in Element := Default_Terminator) return Element_Array; 7 function Value(Ref : in Pointer; Length : in ptrdiff_t) return Element_Array; 8 Pointer_Error : exception; 9 -- C-style Pointer arithmetic 10/3

function "+" (Left : in Pointer; Right : in ptrdiff_t) return Pointer with Convention => Intrinsic; function "+" (Left : in ptrdiff_t; Right : in Pointer) return Pointer with Convention => Intrinsic; function "-" (Left : in Pointer; Right : in ptrdiff_t) return Pointer with Convention => Intrinsic; function "-" (Left : in Pointer; Right : in Pointer) return ptrdiff_t with Convention => Intrinsic; 11/3

procedure Increment (Ref : in out Pointer) with Convention => Intrinsic; procedure Decrement (Ref : in out Pointer) with Convention => Intrinsic; 12/3

This paragraph was deleted. 13 function Virtual_Length (Ref : in Pointer; Terminator : in Element := Default_Terminator) return ptrdiff_t; 14 procedure Copy_Terminated_Array (Source : in Pointer; Target : in Pointer; Limit : in ptrdiff_t := ptrdiff_t'Last; Terminator : in Element := Default_Terminator); 15 procedure Copy_Array (Source : in Pointer; Target : in Pointer; Length : in ptrdiff_t); 16 end Interfaces.C.Pointers;

17

The type Pointer is C-compatible and corresponds to one use of C's “Element *”. An object of type Pointer is interpreted as a pointer to the initial Element in an Element_Array. Two styles are supported:

18
  • Explicit termination of an array value with Default_Terminator (a special terminator value);
  • 19
  • Programmer-managed length, with Default_Terminator treated simply as a data element.
20

function Value(Ref : in Pointer; Terminator : in Element := Default_Terminator) return Element_Array;

21

This function returns an Element_Array whose value is the array pointed to by Ref, up to and including the first Terminator; the lower bound of the array is Index'First. Interfaces.C.Strings.Dereference_Error is propagated if Ref is null.

22

function Value(Ref : in Pointer; Length : in ptrdiff_t) return Element_Array;

23

This function returns an Element_Array comprising the first Length elements pointed to by Ref. The exception Interfaces.C.Strings.Dereference_Error is propagated if Ref is null.

24

The "+" and "–" functions perform arithmetic on Pointer values, based on the Size of the array elements. In each of these functions, Pointer_Error is propagated if a Pointer parameter is null.

25

procedure Increment (Ref : in out Pointer);

26

Equivalent to Ref := Ref+1.

27

procedure Decrement (Ref : in out Pointer);

28

Equivalent to Ref := Ref–1.

29

function Virtual_Length (Ref : in Pointer; Terminator : in Element := Default_Terminator) return ptrdiff_t;

30

Returns the number of Elements, up to the one just before the first Terminator, in Value(Ref, Terminator).

31

procedure Copy_Terminated_Array (Source : in Pointer; Target : in Pointer; Limit : in ptrdiff_t := ptrdiff_t'Last; Terminator : in Element := Default_Terminator);

32

This procedure copies Value(Source, Terminator) into the array pointed to by Target; it stops either after Terminator has been copied, or the number of elements copied is Limit, whichever occurs first. Dereference_Error is propagated if either Source or Target is null.

32.a
ramification

It is the programmer's responsibility to ensure that elements are not copied beyond the logical length of the target array.

32.b
implementation note

The implementation has to take care to check the Limit first.

33

procedure Copy_Array (Source : in Pointer; Target : in Pointer; Length : in ptrdiff_t);

34

This procedure copies the first Length elements from the array pointed to by Source, into the array pointed to by Target. Dereference_Error is propagated if either Source or Target is null.

Erroneous Execution

35

It is erroneous to dereference a Pointer that does not designate an aliased Element.

35.a
discussion

Such a Pointer could arise via "+", "–", Increment, or Decrement.

36

Execution of Value(Ref, Terminator) is erroneous if Ref does not designate an aliased Element in an Element_Array terminated by Terminator.

37

Execution of Value(Ref, Length) is erroneous if Ref does not designate an aliased Element in an Element_Array containing at least Length Elements between the designated Element and the end of the array, inclusive.

38

Execution of Virtual_Length(Ref, Terminator) is erroneous if Ref does not designate an aliased Element in an Element_Array terminated by Terminator.

39

Execution of Copy_Terminated_Array(Source, Target, Limit, Terminator) is erroneous in either of the following situations:

40
  • Execution of both Value(Source, Terminator) and Value(Source, Limit) are erroneous, or
  • 41
  • Copying writes past the end of the array containing the Element designated by Target.
42

Execution of Copy_Array(Source, Target, Length) is erroneous if either Value(Source, Length) is erroneous, or copying writes past the end of the array containing the Element designated by Target.

43

NOTE To compose a Pointer from an Element_Array, use 'Access on the first element. For example (assuming appropriate instantiations):

44

Some_Array : Element_Array(0..5) ; Some_Pointer : Pointer := Some_Array(0)'Access;

Examples

45

Example of Interfaces.C.Pointers:

46

with Interfaces.C.Pointers; with Interfaces.C.Strings; procedure Test_Pointers is package C renames Interfaces.C; package Char_Ptrs is new C.Pointers (Index => C.size_t, Element => C.char, Element_Array => C.char_array, Default_Terminator => C.nul); 47 use type Char_Ptrs.Pointer; subtype Char_Star is Char_Ptrs.Pointer; 48 procedure Strcpy (Target_Ptr, Source_Ptr : Char_Star) is Target_Temp_Ptr : Char_Star := Target_Ptr; Source_Temp_Ptr : Char_Star := Source_Ptr; Element : C.char; begin if Target_Temp_Ptr = null or Source_Temp_Ptr = null then raise C.Strings.Dereference_Error; end if; 49/1

{8652/0065} loop Element := Source_Temp_Ptr.all; Target_Temp_Ptr.all := Element; exit when C."="(Element, C.nul); Char_Ptrs.Increment(Target_Temp_Ptr); Char_Ptrs.Increment(Source_Temp_Ptr); end loop; end Strcpy; begin ... end Test_Pointers;

B.3.3 Unchecked Union Types

1/3

[Specifying aspect Unchecked_Union to have the value True defines an interface correspondence between a given discriminated type and some C union. The aspect requires that the associated type shall be given a representation that allocates no space for its discriminant(s).]

Paragraphs 2 through 3 were moved to Annex J, “Obsolescent Features”.

Static Semantics

3.1/3

For a discriminated record type having a variant_part, the following language-defined representation aspect may be specified:

3.2/3

Unchecked_Union
The type of aspect Unchecked_Union is Boolean. If directly specified, the aspect_definition shall be a static expression. If not specified (including by inheritance), the aspect is False.
3.a/3

Aspect Description for Unchecked_Union: Type is used to interface to a C union type.

Legality Rules

Paragraphs 4 and 5 were deleted.

6/3

A type for which aspect Unchecked_Union is True is called an unchecked union type. A subtype of an unchecked union type is defined to be an unchecked union subtype. An object of an unchecked union type is defined to be an unchecked union object.

7/2

All component subtypes of an unchecked union type shall be C-compatible.

8/2

If a component subtype of an unchecked union type is subject to a per-object constraint, then the component subtype shall be an unchecked union subtype.

9/5

Any name that denotes a discriminant of an object of an unchecked union type shall occur within the declarative region of the type or as the selector_name of an aggregate, and shall not occur within a record_representation_clause.

10/3

The type of a component declared in a variant_part of an unchecked union type shall not need finalization. In addition to the places where Legality Rules normally apply (see 12.3), this rule also applies in the private part of an instance of a generic unit. For an unchecked union type declared within the body of a generic unit, or within the body of any of its descendant library units, no part of the type of a component declared in a variant_part of the unchecked union type shall be of a formal private type or formal private extension declared within the formal part of the generic unit.

10.a/3
reason

The last part is a classic assume-the-worst rule that avoids dependence on the actuals in a generic body. We did not include this in the definition of “needs finalization” as it has a bad interaction with the use of that term for the No_Nested_Finalization restriction.

11/2

The completion of an incomplete or private type declaration having a known_discriminant_part shall not be an unchecked union type.

12/2

An unchecked union subtype shall only be passed as a generic actual parameter if the corresponding formal type has no known discriminants or is an unchecked union type.

12.a/2
ramification

This includes formal private types without a known_discriminant_part, formal derived types that do not inherit any discriminants (formal derived types do not have known_discriminant_parts), and formal derived types that are unchecked union types.

Static Semantics

13/2

An unchecked union type is eligible for convention C.

14/2

All objects of an unchecked union type have the same size.

15/2

Discriminants of objects of an unchecked union type are of size zero.

16/2

Any check which would require reading a discriminant of an unchecked union object is suppressed (see 11.5). These checks include:

17/5
  • The check performed when addressing a variant component (that is, a component that was declared in a variant part) of an unchecked union object that the object has this component (see 4.1.3).
  • 18/2
  • Any checks associated with a type or subtype conversion of a value of an unchecked union type (see 4.6). This includes, for example, the check associated with the implicit subtype conversion of an assignment statement.
  • 19/2
  • The subtype membership check associated with the evaluation of a qualified expression (see 4.7) or an uninitialized allocator (see 4.8).
19.a/2
discussion

If a suppressed check would have failed, execution is erroneous (see 11.5). An implementation is always allowed to make a suppressed check if it can somehow determine the discriminant value.

Dynamic Semantics

20/2

A view of an unchecked union object (including a type conversion or function call) has inferable discriminants if it has a constrained nominal subtype, unless the object is a component of an enclosing unchecked union object that is subject to a per-object constraint and the enclosing object lacks inferable discriminants.

21/2

An expression of an unchecked union type has inferable discriminants if it is either a name of an object with inferable discriminants or a qualified expression whose subtype_mark denotes a constrained subtype.

22/2

Program_Error is raised in the following cases:

23/2
  • Evaluation of the predefined equality operator for an unchecked union type if either of the operands lacks inferable discriminants.
  • 24/2
  • Evaluation of the predefined equality operator for a type which has a subcomponent of an unchecked union type whose nominal subtype is unconstrained.
  • 25/5
  • Evaluation of an individual membership test if the subtype_mark (if any) denotes a constrained unchecked union subtype and the tested_simple_expression lacks inferable discriminants.
  • 26/2
  • Conversion from a derived unchecked union type to an unconstrained non-unchecked-union type if the operand of the conversion lacks inferable discriminants.
  • 27/2
  • Execution of the default implementation of the Write or Read attribute of an unchecked union type.
  • 28/2
  • Execution of the default implementation of the Output or Input attribute of an unchecked union type if the type lacks default discriminant values.

Paragraph 29 was deleted.

30/2

NOTE The use of an unchecked union to obtain the effect of an unchecked conversion results in erroneous execution (see 11.5). Execution of the following example is erroneous even if Float'Size = Integer'Size:

31/3

type T (Flag : Boolean := False) is record case Flag is when False => F1 : Float := 0.0; when True => F2 : Integer := 0; end case; end record with Unchecked_Union; 32/2 X : T; Y : Integer := X.F2; -- erroneous

Extensions to Ada 95

32.a/2

Pragma Unchecked_Union is new.

Incompatibilities With Ada 2005

32.b/3
correction

The use of discriminants on Unchecked_Union types is now illegal in record_representation_clauses, as it makes no sense to specify a position for something that is not supposed to exist. It is very unlikely that this change will have any impact on existing code.

Extensions to Ada 2005

32.c/3

Aspect Unchecked_Union is new; pragma Unchecked_Union is now obsolescent.

Wording Changes from Ada 2005

32.d/3
correction

Revised the rules to use the “needs finalization” definition, and eliminated generic contract issues.

Wording Changes from Ada 2012

32.e/5
correction

Adjusted the wording to reflect that membership tests can have more than one expression or subtype_mark.

32.f/5
correction

Adjusted the wording to allow named aggregates of an unchecked union type; it is clearly madness to allow positional record components in an aggregate but not named component associations.