11. Anlagen
 
Fenster schliessen
with system; use system;
with interfaces.c;
with text_io; use text_io;
procedure Interface_C_Test is
-- Uebergabe eines Skalars Moeglichkeit 1
-- Moeglichkeit 2 in Kommentar
package int_io is new integer_io (interfaces.c.int); use int_io;
procedure Plus (a: access interfaces.c.int);
-- procedure Plus (a: in out interfaces.c.int);
pragma import (C,Plus,"Plus");
a : interfaces.c.int := 10;
-- a : aliased interfaces.c.int := 10;
begin
put ("Anfangswert: ");
int_io.put (a); new_line;
Plus (a);
-- Plus (a’access);
put ("Endwert: ");
int_io.put (a);
end Interface_C_Test;


Fenster schliessen
 
zurück
  Ada Tour - Dokumentation  
© 2003 Förderverein Ada Deutschland e.V.