Discussion :

[Invité]

Merci bien Médinoc,

J'ai rectifié le code.

je suis toujours planté par un Storage_Error ceci dis.

[Mac LAK]

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...

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.

[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.

[Médinoc]

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

[Invité]

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 !

[Invité]

Bonjour,

J'ai réussis à formater mon message.

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

Merci encore. @+

[Invité]

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 :

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

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

[Mac LAK]

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

[Invité]

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.

[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...

[Invité]

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

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 !

[Mac LAK]

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 Ada :

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

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...

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).

[Invité]

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

Code :

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

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

[Mac LAK]

Comme ça :

Code Ada :

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

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.

[Invité]

Comme ça :

Code Ada :

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

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 !

[Mac LAK]

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 ?

[Médinoc]

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.

[Invité]

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.

[Invité]

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 ?

Testé, marche pas plus.
@+

[Médinoc]

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).