Bonjour.
J'écris avec Ada,
--
-- je travail sur mon compositeur. Comme d'habitude je recommence l'implémentation.
--
-- je voudrais ici simplement spécifier un paquetage avec Ada qui permet d'initialiser ouvrir, fermer et écrire un périphérique
-- On écrit des interfaces.C.long
-- j'ai fait :
Code :
package Midi.Device is type Device_Type is private; procedure Initialize (Device : in out Device_Type); procedure Open (Device : in out Device_Type); procedure Write (Device : in Device_Type; Message : in C.Long); procedure Close (Device : in out Device_Type); Status_Error : exception; -- raised when write is call when device is initialized but close. Not_Initialized : exception; -- raised when Open, Close or Write are call when device is not initialized. private ... end Midi.Device;
|
-- Penser vous que ce soit une bonne spécification pour le mode d'exploitation d'un périphérique MIDI pour les sortie uniquement ?
-- Merci.
