Signification de : "typedef void PortMidiStream;"

Version imprimable

Voir 40 message(s) de cette discussion en une page

11/08/2009, 01h33
Invité

Signification de : "typedef void PortMidiStream;"
Bonsoir, j'espère que vous allez bien,
je ne sais si je m'adresse à la bonne porte.
Voici, je souhaite importer un bibliothèque avec C++ depuis une code avec Ada.
Dans mon portmidi.h apparaît la description suivante :
Code:

1 2 typedef void PortMidiStream;
Je voudrai savoir ce qu'il faut que je traduise avec Ada.
S'il vous plaît ? Merci !
11/08/2009, 03h07
Mac LAK

Ce genre de déclaration est habituellement faite pour masquer une implémentation réelle, c'est à dire que tu vas passer des "PortMidiStream*" qui seront donc des "void*", le module utilisateur utilisant en général une structure interne (et privée) pour déréférencer le pointeur suivant le type correct.

De mémoire, en Ada, ton "void*" devra être traduit en "Address" (paquetage System)... Par contre, pour le type "void" lui-même, je ne crois pas que ce soit possible : en Ada, on fait la distinction entre les fonctions et les procédures, et un tel type n'a aucune raison d'exister...
11/08/2009, 03h09
koala01

Salut,

Le mot clé typedef ne sert en définitive qu'à donner un autre nom pour un type donné.

Ainsi, avec le typedef que tu présente, chaque utilisation de PortMidiStream revient strictement au même que si tu remplaçait le terme par void.

On peut donc se demander s'il y a un intérêt majeur à ce typedef, hormis s'il n'est jamais utilisé que sous la forme de pointeur, ce qui correspond à un void * nom_de_variable.

En effet, un pointeur sur void peut être utilisé, en C (parce qu'on préfère l'éviter en C++) pour représenter, en définitive, un pointeur sur n'importe quoi, et de donner son sens réel à coup de transtypage.

En C++ on préférera cependant souvent avoir recours au paradigme de programmation générique et à l'utilisation de fonctions et de classes template ;)

Quant à ta question de savoir comment traduire cela en Ada, je ne connais malheureusement pas assez ce langage pour t'orienter, mais les informations que je viens de te donner te fourniront peut être une piste de réflexion :question:
11/08/2009, 04h28
Invité

Merci Mac LAK, merci koala01,
je doit utiliser une bibliothèque C++ a priori, et j'ai un soucis à propos de la valeur que peut prendre un tel objet ; Une System.Address, donc éventuellement, si celle-ci est initialiser par la function qui est sensée initialiser les accès à cette address ou si elle utlise l'adresse courant, c'est à dire n'importe laquelle.
C'est une instruction tirée d'un portmidi.h sur un système Gnu/linux Debian.
Merci encore.

edit : Une question me préoccupe également, c'est si l'adresse n'est pas initialiser, comment je dois m'y prendre pour piocher la bonne case ?
11/08/2009, 05h03
Mac LAK

Citation:

Envoyé par jovalise

Une System.Address, donc éventuellement, si celle-ci est initialiser par la function qui est sensée initialiser les accès à cette address ou si elle utlise l'adresse courant, c'est à dire n'importe laquelle.

C'est ça : tu devrais normalement avoir des fonctions qui vont te retourner un "PortMidiStream*", que tu remplaceras par un System.Address. Je te conseille toutefois, pour des raisons de lisibilité, de déclarer un type explicite, par exemple :

Code:

Type PPortMidiStream is New System.Address ;

Ainsi, entre le code C et Ada, tu n'as que l'étoile qui dégage, remplacée par un préfixe "P" (pour "Pointer").
Si jamais tu vois passer un "PortMidiStream**" ou un "&PortMidiStream*" (passage par référence), tu devrais t'en sortir en mettant un "In Out" devant ton paramètre Ada.

Si jamais ton code C/C++ utilise directement un PortMidiStream sans son étoile, par contre, c'est mal barré car cela ne devrait jamais se produire (dans les interfaces publiques du moins)... Si jamais c'est le cas, tu posteras tes fichiers .H ici, que l'on jette un œil.

Citation:

Envoyé par jovalise

Une question me préoccupe également, c'est si l'adresse n'est pas initialiser, comment je dois m'y prendre pour piocher la bonne case ?

Par défaut, vu que l'implémentation est masquée, tu ne devrais jamais te retrouver avec ce cas : quand tu vas "ouvrir" un flux MIDI, soit la fonction C/C++ te retournera la bonne valeur (alors considérée comme un handle opaque, un peu dans le genre d'un FILE*), soit elle prendra en référence une variable du bon type qu'elle initialisera (cas d'un PortMidiStream** ou d'un &PortMidiStream*).

Citation:

Envoyé par Mac LAK

Je te conseille toutefois, pour des raisons de lisibilité, de déclarer un type explicite, par exemple :

Code:

Type PPortMidiStream is New System.Address ;

Ainsi, entre le code C et Ada, tu n'as que l'étoile qui dégage, remplacée par un préfixe "P" (pour "Pointer").

Reçu !

Citation:

Si jamais tu vois passer un "PortMidiStream**" ou un "&PortMidiStream*" (passage par référence), tu devrais t'en sortir en mettant un "In Out" devant ton paramètre Ada.

Comme dans cet appel :: ou midi est un PmStream kqui est un #define PMStream PortMidiStream...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 /* open output device -- since PortMidi avoids opening a timer when latency is zero, we will pass in a NULL timer pointer for that case. If PortMidi tries to access the time_proc, we will crash, so this test will tell us something. */ Pm_OpenOutput(&midi, i, DRIVER_INFO, OUTPUT_BUFFER_SIZE, (latency == 0 ? NULL : TIME_PROC), (latency == 0 ? NULL : TIME_INFO), latency);
Malheureusement, ou heureusement, c'est une fonction et tout les paramètre d'un fonction son en lecture seullement.

Citation:

Si jamais ton code C/C++ utilise directement un PortMidiStream sans son étoile, par contre, c'est mal barré car cela ne devrait jamais se produire (dans les interfaces publiques du moins)... Si jamais c'est le cas, tu posteras tes fichiers .H ici, que l'on jette un œil.

Je vais voir !

Citation:

Par défaut, vu que l'implémentation est masquée, tu ne devrais jamais te retrouver avec ce cas : quand tu vas "ouvrir" un flux MIDI, soit la fonction C/C++ te retournera la bonne valeur (alors considérée comme un handle opaque, un peu dans le genre d'un FILE*), soit elle prendra en référence une variable du bon type qu'elle initialisera (cas d'un PortMidiStream** ou d'un &PortMidiStream*).

[/quote]
Tout a l'air bon, ... mais ça coince à l'exécution.
Merci pour cette réponse en pleine nuit.

edit : sur l'appel

11/08/2009, 05h51
Invité

Pardon midi est un ptr sur un PmStream.
11/08/2009, 06h21
Mac LAK

Citation:

Envoyé par jovalise

Malheureusement, ou heureusement, c'est une fonction et tout les paramètre d'un fonction son en lecture seullement.

Oui, mais quand tu passes l'adresse d'une variable, l'adresse en question est certes en lecture seule... Mais pas son contenu, qui peut être modifié. Normalement, les modificateurs "In Out" de l'Ada devraient régler le problème.

Citation:

Envoyé par jovalise

Tout a l'air bon, ... mais ça coince à l'exécution.

Il faut aussi respecter les conventions d'appel, l'ordre des paramètres, etc.
Je n'ai jamais câblé du C/C++ sur de l'Ada, mais j'ai vu que tu avais déjà posté dans le forum ADA, où tu devrais trouver la bonne réponse.

Il faut surtout vérifier, pour chaque type C de base, à quel type Ada il correspond : il faut qu'il soit du même genre, bien sûr, mais surtout de la même taille (cf. "'Size"). Au pire, imprimes ces tailles en Ada, puis en C, et vérifie que ce sont bien les mêmes.
Il n'est pas toujours évident de faire les traductions, mais ça reste quelque chose de parfaitement faisable quand le langage permet l'importation de modules externes compilés dans d'autres langages.
11/08/2009, 07h13
Invité

j'ai fait un truc qui me semble un peu propre...

J'ai déclaré un type :

T_PortMidiStream is
record
null;
end record;

instancié System.Address_To_Access_Conversions.

Ca a l'air de fonctionner. je passe le Open() mais pas le Write().
11/08/2009, 07h35
Mac LAK

Citation:

Envoyé par jovalise

Ca a l'air de fonctionner. je passe le Open() mais pas le Write().

Faudrait voir aussi ce que ça vaut : t'as des fonctions pour convertir un "System.Address" en entier afin de pouvoir l'afficher, histoire de voir si c'est cohérent ou pas. A savoir aussi qu'il m'est arrivé, sur certaines importations de fonctions (en Delphi, d'ailleurs) de devoir écrire un petit bout de code C pour "sniffer" le résultat réel, et voir si j'avais bien la même valeur en Delphi... Ce n'étaient que de simples fonctions C ayant le même prototype que les "vraies", mais qui affichaient sur la sortie standard la valeur des paramètres avant/après appel de la "vraie" fonction.

Pour le write, faudrait voir le prototype de la fonction C aussi...
11/08/2009, 07h42
Invité
Yep ! Je vais regarder ce que je peu faire pour tracer un peu.

le prototype de Pm_Write :
Code:

1 2 PmError Pm_WriteShort( PortMidiStream *stream, PmTimestamp when, long msg);
Merci encore Mal LAK, koala01 !

Pour le moment j'obtien un Storage_Error Ada tout classique au Pm_Write, si je peu m'exprimer ainsi.

Alors, j'ai des donnée à formater également et la .... Ca concerne cette partie de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
/*
    Pm_Message() encodes a short Midi message into a long word. If data1
    and/or data2 are not present, use zero.
 
    Pm_MessageStatus(), Pm_MessageData1(), and
    Pm_MessageData2() extract fields from a long-encoded midi message.
*/
#define Pm_Message(status, data1, data2) \
         ((((data2) << 16) & 0xFF0000) | \
          (((data1) << 8) & 0xFF00) | \
          ((status) & 0xFF))
#define Pm_MessageStatus(msg) ((msg) & 0xFF)
#define Pm_MessageData1(msg) (((msg) >> 8) & 0xFF)
#define Pm_MessageData2(msg) (((msg) >> 16) & 0xFF)

Tu y comprends quelque chose ?

11/08/2009, 08h03
Mac LAK

Citation:

Envoyé par jovalise

le prototype de Pm_Write :

Code:

PmError Pm_WriteShort( PortMidiStream *stream, PmTimestamp when, long msg);

Rien n'est passé en écriture, si ce n'est la structure interne (et masquée) du PortMidiStream*... Par contre, le timestamp, lui, peut poser des soucis, surtout si c'est tiré direct de la CLib côté formatage.

Citation:

Envoyé par jovalise

Alors, j'ai des donnée à formater également et la .... Ca concerne cette partie de code :
Tu y comprends quelque chose ?

Oui : cela transforme un triplet MIDI (Statut,Donnée1,Donnée2) en un seul entier de 32 bits.

Pour ceci, le statut (8 bits) occupe l'octet de poids faible, la donnée 1 (8 bits) le deuxième octet de poids faible, et enfin la donnée 2 occupe les 16 bits de poids fort. C'est le but de la première macro de "construire" ce mot de 32 bits, tandis que les trois dernières macros font l'opération inverse (conversion d'un entier 32 bits en trois champs unitaires, une macro pour chaque champ).

Tu dois pouvoir t'en sortir avec un Record compacté, il devra faire exactement 4 octets en taille. Sinon, tu peux faire l'équivalent en Ada, même si c'est un peu plus le bronx qu'en C à faire... Mais tu peux t'en sortir avec des additions / multiplications / modulos sans aucun problème.

Pour le record de 32 bits;
j'ai fait ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type T_Octet is range 0..255; for T_Octet'Size use 8; type T_D_Octet is range 0..32766; for T_D_Octet'Size use 16; type T_Message is record Status : T_Octet; data1 : T_Octet; Data2 : T_D_Octet; end record;
Et j'affecte simplement comme ça :: Pm_Event.Message := (16#90#, 60,100);

Le Timestamp est un long que je récupère de Pt_Time dans porttime.h qui va avec de portmidi.h. Ca devrait être bon là, mais toujours le Storage_Error.

11/08/2009, 08h30
Invité

Arrgg, j'ai pas tout retenu...
Dans ca doit être l'inverse en fait mon record ... C B A ? n'est-ce pas ?

Je passe devant...

J'ai fait ça finalement pour le type de message (exclu timestamp)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 type T_Message is
      record
         Status : T_Octet;
         Data1 : T_Octet;
         Data2 : T_D_Octet;
      end record;
 
   for T_Message'Alignment use 2;
 
   for T_Message use
      record
         Status at 0 range 0..7;
         Data1 at 0 range 8..15;
         Data2 at 1 range 16..31;
      end record;
 
   for T_Message'Bit_Order use System.Low_Order_first;

11/08/2009, 11h25
Médinoc

Attention, il s'agit en fait de trois octets, pas deux octets et un mot de 16 bits.

De plus, en passant par un record, tu t'exposes à des problèmes d'endianness, non?
11/08/2009, 11h52
Invité

Bonjour Médinoc,

Pourrais-tu être un poil plus précis, Tu parle de ce que j'ai fait avec Ada, ou de la def initialement en C ?

Pardon, il manque une partie du code :

Code:

1
2
3
4
5
 
type T_Octet is range 0..255;
   for T_Octet'Size use 8;
   type T_D_Octet is range 0..65535;
   for T_D_Octet'Size use 16;

11/08/2009, 12h07
Médinoc

Pour les 3 octets, je parle du C. Pour le record et les problèmes qu'il peut poser je parle de ce que tu as fait en Ada.

Voir 40 message(s) de cette discussion en une page