Discussion :

[NeMo_O]

Bonjour,

mon souci est le suivant :
j'ai des fichiers .dat provenants d'un programme écrit en pascal. Mon but est d'arriver à récupérer les données contenues dans le fichier .dat avec un programme écrit dans un autre langage (Matlab).

Je connais la structure des données, par exemple :

Code :

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

1
2
3
4
5
6
 
     tarc = record             (* enregistrement d'un arc  *)  
         numarc : [key(0)] integer ;    (* numero de l'arc *)
         pkdebarc,pkfinarc : real ;     (* pk de debut et de fin de l`arc *)
         pol    : integer  ;            (* polarisation de l'arc *)
         end  ;

Donc là pas de souci je vais dire à mon programme d'ouvrir le fichier en lecture binaire, puis de lire successivement un entier sur 8 bits, 2 réels sur 32 bits, puis un entier sur 8 bits et recommencer ainsi de suite.

Code :

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

1
2
3
4
5
 
        numarc(i) = fread(fid, 1, 'uint32');
        pkdeb(i) = fread(fid,1,'float32');
        pkfin(i) = fread(fid,1,'float32');
        pol(i) = fread(fid,1,'uint32');

Là où je bloque c'est pour arriver à lire ce qui est contenu dans un "packed array". Si j'ai bien compris le fonctionnement des packed arrays, 4 mots de 8 bits se trouvant dans 4 cases de 32 bits vont être regroupés dans une seule case de 32 bits.

Comment puis-je faire pour connaître la façon dont les données ont été organisées ?
Si je dis à ma fonction de lire par blocs de 32 bits je vais non pas me retrouver avec une seule valeur mais 4 :s

Merci pour votre aide.

[droggo]

Hie,

Si ton Packed Array vient de Matlab, c'est la doc de ce logiciel qu'il faut consulter, ça ne dépend pas de Pascal.

[bredelet]

Peux-tu nous montrer la definition Pascal de ta packed array.

[Alcatîz]

Bonjour !

La directive packed n'est pas traitée de manière identique par tous les compilateurs Pascal : http://pascal.developpez.com/faq/?pa...rective-packed

Par exemple, s'il s'agit de Turbo Pascal :

Code :

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

1
2
3
4
5
tarc = packed record
         numarc : [key(0)] integer ;  // --> 2 bytes
         pkdebarc,pkfinarc : real ;   // --> 2 * 6 = 12 bytes
         pol    : integer  ;          // --> 2 bytes
       end;

[droggo]

FAi,

Bonjour !

La directive packed n'est pas traitée de manière identique par tous les compilateurs Pascal : http://pascal.developpez.com/faq/?pa...rective-packed

Par exemple, s'il s'agit de Turbo Pascal :

Code :

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

1
2
3
4
5
tarc = packed record
         numarc : [key(0)] integer ;  // --> 2 bytes
         pkdebarc,pkfinarc : real ;   // --> 2 * 6 = 12 bytes
         pol    : integer  ;          // --> 2 bytes
       end;

Je doute que la ligne

Code :

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

         numarc : [key(0)] integer ;  // --> 2 bytes

compile avec TP.

On a affaire là à un programme qui permet d'utiliser des fonctions écrites avec à peu près la syntaxe du Pascal, mais pour savoir ce qu'il en est précisément, il faut regarder sa doc ou son aide (comme ce devrait toujours être le cas ).

[NeMo_O]

Merci à tous pour vos réponses,

Hie,

Si ton Packed Array vient de Matlab, c'est la doc de ce logiciel qu'il faut consulter, ça ne dépend pas de Pascal.

Malheuresement il vient bien de Pascal et je n'ai pas la doc associée :/
On m'a juste filé les sources du programme écrit en Pascal avant le portage et je n'ai accès à rien d'autre (ni compilateur, ni doc,...).

Peux-tu nous montrer la definition Pascal de ta packed array.

En recherchant sur le net j'ai trouvé cette déf qui me semble la plus adaptée :

" Quand Pascal a été créé, la plupart des ordinateurs utilisaient des mots très grands (typiquement 60 bits). Les tableaux Pascal étaient inefficaces car une seule variable était stockée dans un mot. C'est pour cela que les packed array, dans lesquels plusieurs variables peuvent être stockées dans un seul mot, ont été créés. "

On a affaire là à un programme qui permet d'utiliser des fonctions écrites avec à peu près la syntaxe du Pascal, mais pour savoir ce qu'il en est précisément, il faut regarder sa doc ou son aide (comme ce devrait toujours être le cas ).

Existe-t-il un site officiel sur le net qui fournisse de la doc complète ?
J'ai recherché sur google en trouvant simplement quelques tutoriels.



C'est sur qu'avec la doc, je comprendrais mieux comment les données sont regroupées et compactées, pour ensuite les extraire.
Mais je croyais que c'était fait de la même façon pour tous les programmes Pascal.

[bredelet]

En recherchant sur le net j'ai trouvé cette déf qui me semble la plus adaptée :

" Quand Pascal a été créé, la plupart des ordinateurs utilisaient des mots très grands (typiquement 60 bits). Les tableaux Pascal étaient inefficaces car une seule variable était stockée dans un mot. C'est pour cela que les packed array, dans lesquels plusieurs variables peuvent être stockées dans un seul mot, ont été créés. "

Merci bien, mais ce n'est pas ce que j'attendais!

J'attendais quelque chose comme ca:

Code :

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

1
2
3
4
5
tarc = packed record
         numarc : [key(0)] integer ;  // --> 2 bytes
         pkdebarc,pkfinarc : real ;   // --> 2 * 6 = 12 bytes
         pol    : integer  ;          // --> 2 bytes
       end;

[NeMo_O]

Merci bien, mais ce n'est pas ce que j'attendais!

Ah au temps pour moi lol.

Dans le code je rencontre les packed array non pas sur toute la structure mais juste sur certaines variables ; par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
     tarc = record             (* enregistrement d'un arc  *)  
         numarc : [key(0)] integer ;    (* numero de l'arc *)
         nomarc : packed array [1..40] of char  ;   (* nom de l'arc *)
         pkdebarc,pkfinarc : real ;     (* pk de debut et de fin de l`arc *)
         larc   : real ;                (* longueur de l'arc *)
         pol    : integer  ;            (* polarisation de l'arc *)
         end  ;