Structure d'un packed array

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:

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:

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.

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.

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

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:

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;

FAi,
Citation:
Envoyé par 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:

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:

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

Merci à tous pour vos réponses,

Citation:

Envoyé par 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.

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

Citation:

Envoyé par bredelet

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

Citation:

Envoyé par droggo

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.

Citation:

Envoyé par NeMo_O

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! :coucou:

J'attendais quelque chose comme ca:
Code:

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;

Citation:

Envoyé par bredelet

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

Ah :mrgreen: 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:

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  ;

Jie,
Citation:
Envoyé par NeMo_O
Ah :mrgreen: 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:

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 ;
Au risque de me répéter, je ne pense pas que la ligne

Code:

numarc : [key(0)] integer ; (* numero de l'arc *)

compile.
Je ne connais pas de compilateur Pascal acceptant cette syntaxe (ce qui, bien entendu, ne signifie qu'il n'en existe pas, mais aussi que de toute manière, s'il en existe un, il n'est pas courant).

Quant à

Code:

nomarc : packed array [1..40] of char ; (* nom de l'arc *)

Cela fait probablement 40 octets