Discussion :

[Poisson_Pilote]

Bonjour,

Est-il possible de faire des appels systèmes en ADA (comme par exemple system("PAUSE"); en C) ?

En fait, j'essaye de coder une fonction qui effacerait le texte de la console. Or sur mon mac, la commande TEXT_IO.PUT (ASCII.ESC & "[2J"); ne marche pas - j'aimerais donc la remplacer par un équivalent tel que system("CLEAR"); .

Merci d'avance

[PRomu@ld]

Tu peux toujours importer la fonction C system dans ada :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
function System (Cmd : Interfaces.C.Char_Array) return Interfaces.C.int;
pragma Import (C, System, "system");

[HRS]

avec Windows, tout compilateur est livré avec les API Win32
pour interfacer un programme utilisateur avec les fonctions système

Je pensais que MAC offrait le même service

[kOrt3x]

avec Windows, tout compilateur est livré avec les API Win32
pour interfacer un programme utilisateur avec les fonctions système

Je pensais que MAC offrait le même service

Jeter un oeil là dessus.

http://aurelien-gaymay.developpez.com/

[PRomu@ld]

Je ne comprend pas pourquoi tu nous donnes ce lien.

La question n'est pas de savoir si on peut faire de l'ADA sous Mac mais si on a accès directement aux appels systèmes via le compilateur.

Or ceci n'a rien de normalisé et quand bien même GNAT le fournirait, il faudrait recommencer de façon différente sur un autre compilateur. D'où ma solution d'utiliser une interface ADA <-> C, puisque l'appel C est standard.

[scriptoff]

Bonjour,

Est-il possible de faire des appels systèmes en ADA (comme par exemple system("PAUSE"); en C) ?

Chère collègue , je te propose une autre solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Gnat.Os_Lib;Use Gnat.Os_Lib;
 
 
Procedure clear    is
Arguments : Argument_List( 1.. 2) ;
Clear : constant string := "/bin/sh";--chemin vers sh
WasSpawned: boolean;
Arg1 : aliased String  := "-c";
Arg2 : aliased String  := "clear";
begin
Arguments(1) := Arg1'unchecked_access;
Arguments(2) := Arg2'unchecked_access;
Spawn( Clear, Arguments, WasSpawned );
end Clear;

[PRomu@ld]

Ta solution nécéssite à la fois sh et gnat. Néanmoins, elle est intéressante.

[Poisson_Pilote]

Beuh, c'est pas élégant cette dernière solution...l'import de fonction C est crade aussi, mais beaucoup plus portable