Signification de : "typedef void PortMidiStream;"

Version imprimable

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

11/08/2009, 12h30
Invité

Merci bien Médinoc,

J'ai rectifié le code.

je suis toujours planté par un Storage_Error ceci dis.
12/08/2009, 02h23
Mac LAK

Citation:

Envoyé par Médinoc

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

Arf oui, tiens, c'est seulement sur 24 bits, j'avais lu trop vite...

Citation:

Envoyé par Médinoc

De plus, en passant par un record, tu t'exposes à des problèmes d'endianness, non?

Oui, c'est toujours une possibilité... Personnellement, je ferais l'opération "comme en C", c'est à dire sur un entier 32 bits en utilisant des décalages.
12/08/2009, 09h17
Invité

Bonjour,

N'étant pas une flèche en math, j'ai opté pour une autre solution afin de formater le long.

Mai par contre je ne sais si je doit me retrouver pour un message "(0x90, 60, 100)" avec 100060144 ou 144060100.
Merci pour vos réponses.
12/08/2009, 10h44
Médinoc

Pm_Message(0x90, 60, 100) équivaut à Pm_Message(0x90, 0x3C, 0x64), qui doit donner 0x00643C90 (ou 6569104 en décimal)
12/08/2009, 11h28
Invité

Citation:

Envoyé par Médinoc

Pm_Message(0x90, 60, 100) équivaut à Pm_Message(0x90, 0x3C, 0x64), qui doit donner 0x00643C90 (ou 6569104 en décimal)

Ok ! Merci bien Médinoc !
12/08/2009, 15h53
Invité

Bonjour,

J'ai réussis à formater mon message.

Mais a priori, j'ai toujours un problème avec l'objet PortMidiStream.

Merci encore. @+

Bonjour,

Comme j'en avez l'intuition, la fonction OpenOutput modifie le paramètre PortMidiStream.
Comme avec Ada il est impossible de le faire, j'ai contourné le problème avec un petit code C que voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#include <stdio.h>
#include <portmidi.h>
#include <porttime.h>
 
#define DRIVER_INFO NULL
#define OUTPUT_BUFFER_SIZE 0
#define TIME_PROC ((long (*)(void *)) Pt_Time)
#define TIME_INFO NULL
#define TIME_START Pt_Start(1, 0, 0) /* timer started w/millisecond accuracy */
 
long latency = 0;
 
PmStream * midi;
 
int Open_Handler (int device) {
 
 
 
  TIME_START;
 
  Pm_OpenOutput(&midi, 
                device, 
                DRIVER_INFO,
                OUTPUT_BUFFER_SIZE, 
                (latency == 0 ? NULL : TIME_PROC),
                (latency == 0 ? NULL : TIME_INFO), 
                latency);
  return midi;
}

Je récupère mon adresse et le tour est joué.

Merci pour votre aide :ccool:

12/08/2009, 21h12
Mac LAK

Heu... Comment ça, impossible en Ada ??? Et les modificateurs "In Out", alors, ils servent à décorer le sapin de Noël ? ;)
13/08/2009, 07h48
Invité

Citation:

Envoyé par Mac LAK

Heu... Comment ça, impossible en Ada ??? Et les modificateurs "In Out", alors, ils servent à décorer le sapin de Noël ? ;)

Dans une fonction avec Ada, tous les paramètre en entrée ne peuvent être modifié, c'est que des in. C'est d'ailleurs la distinction qui est faite avec Ada entre procédure et fonction.
Un fonction ne modifie pas les donnée, alors qu'un procédure si.
13/08/2009, 09h17
Médinoc

Donc, tout comme dans les mauvais langages, il est impossible d'avoir un élément de programme qui peut à la fois modifier des trucs et retourner une valeur?

Enfin au moins dans ton cas, tu devrais toujours pouvoir remplacer la fonction par une procédure et sa valeur de retour par un autre paramètre in/out...
13/08/2009, 23h05
Invité

Citation:

Envoyé par Médinoc

Donc, tout comme dans les mauvais langages, il est impossible d'avoir un élément de programme qui peut à la fois modifier des trucs et retourner une valeur?

Si tu pense être plus intelligent que les ingé du DoD des USA... Soit

Citation:

Envoyé par Médinoc

Enfin au moins dans ton cas, tu devrais toujours pouvoir remplacer la fonction par une procédure et sa valeur de retour par un autre paramètre in/out...

Non, le prototype des fonctions ou procédures importées doit refléter la fonction ou procédure importer... Tu penses bien.. Vois !
14/08/2009, 01h05
Mac LAK
Citation:

Envoyé par jovalise

Dans une fonction avec Ada, tous les paramètre en entrée ne peuvent être modifié, c'est que des in. C'est d'ailleurs la distinction qui est faite avec Ada entre procédure et fonction.
Un fonction ne modifie pas les donnée, alors qu'un procédure si.

Désolé si je parais désagréable, mais vouloir m'expliquer l'Ada ou le Pascal, c'est peut-être "un peu" gonflé... Si je te dis que "In Out" règle ton problème, c'est parce que c'est le cas.

Essaie ce code, tu verras bien :
Code:

1 2 3 4 Procedure Inc ( B : In Out Integer ) is Begin B:=B+1; End Inc ;
Quand je te dis que les passages par référence existent en Ada, ce n'est pas une supposition, c'est une certitude...

Citation:

Envoyé par Médinoc

Donc, tout comme dans les mauvais langages, il est impossible d'avoir un élément de programme qui peut à la fois modifier des trucs et retourner une valeur?

Bien sûr que non. De ce point de vue, Ada fonctionne à l'identique de Pascal et C : le passage par défaut est fait par valeur, et il faut expliciter les passages par référence (modificateur "Var" en Pascal, et "*"+"&" en C).

Ok !
je suis près à prendre une leçon ...
Comment importes tu cette fonction :

Code:

1
2
3
4
5
6
7
 
PmError Pm_OpenInput( PortMidiStream** stream,
                PmDeviceID inputDevice,
                void *inputDriverInfo,
                long bufferSize,
                PmTimeProcPtr time_proc,
                void *time_info );

Comme ça :

Code:

1
2
3
4
5
6
7
Function Pm_OpenInput ( stream : In Out PortMidiStream ;
            inputDevice : PmDeviceID ;
            inputDriverInfo : In Out System.Address ;
            bufferSize : Long_Integer ;
            time_proc : System.Address ; -- Est en fait un pointeur de fonction, attention...
            time_info : In Out System.Address )
            Return PmError ;

Bien sûr, il faut adapter les types composés (PmError, PmDeviceID, PortMidiStream) en conséquence.

Citation:
Envoyé par Mac LAK
Comme ça :
Code:

1 2 3 4 5 6 7 Function Pm_OpenInput ( stream : In Out PortMidiStream ; inputDevice : PmDeviceID ; inputDriverInfo : In Out System.Address ; bufferSize : Long_Integer ; time_proc : System.Address ; -- Est en fait un pointeur de fonction, attention... time_info : In Out System.Address ) Return PmError ;
Bien sûr, il faut adapter les types composés (PmError, PmDeviceID, PortMidiStream) en conséquence.
Avec tout mon respect hein !

Une fonction ne peu contenir que des paramètre en in ...
Compile un truc, tu te fais un hello world, avec une fonction et des parametre en in out essayes ! Sérieux !

14/08/2009, 05h07
Mac LAK

Citation:

Envoyé par jovalise

Compile un truc, tu te fais un hello world, avec une fonction et des parametre en in out essayes ! Sérieux !

Ah oui, autant pour moi : c'est le modificateur Access qu'il faut mettre dans une fonction, et non pas "In Out".

Ce qui ne change pas le fait qu'une fonction peut modifier ses arguments, n'est-ce pas ? :twisted:
14/08/2009, 10h25
Médinoc

Citation:

Envoyé par Mac LAK

Bien sûr que non. De ce point de vue, Ada fonctionne à l'identique de Pascal et C : le passage par défaut est fait par valeur, et il faut expliciter les passages par référence (modificateur "Var" en Pascal, et "*"+"&" en C).

Désolé d'avoir cru jovalise quand il a dit que le passage par référence était réservé aux procédures et interdit aux fonctions...

Ce que je considère comme absurde quel que soit le langage, DoD ou pas.
14/08/2009, 10h45
Invité

Citation:

Envoyé par Médinoc

Désolé d'avoir cru jovalise quand il a dit que le passage par référence était réservé aux procédures et interdit aux fonctions...

Ce que je considère comme absurde quel que soit le langage, DoD ou pas.

J'ai jamais parlé de passage par référence.
14/08/2009, 11h03
Invité

Citation:

Envoyé par Mac LAK

Ah oui, autant pour moi : c'est le modificateur Access qu'il faut mettre dans une fonction, et non pas "In Out".

Ce qui ne change pas le fait qu'une fonction peut modifier ses arguments, n'est-ce pas ? :twisted:

Testé, marche pas plus.
@+
14/08/2009, 11h11
Médinoc

Citation:

Envoyé par jovalise

J'ai jamais parlé de passage par référence.

Pardon, passage de paramètre en lecture et écriture, ce qui implique un passage par référence ou pointeur (les pointeurs n'étant pas vraiment les bienvenus dans un langage "safe" comme Ada). :roll:

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