Comment lit-on des champs flags ?

Version imprimable

Bonjour,

Depuis un programme Pascal, j'appelle une fonction C (API Mac OS x) qui me renvoie une structure de ce type :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
struct GetVolParmsInfoBuffer {
   short vMVersion;
   long vMAttrib;
   Handle vMLocalHand;
   long vMServerAdr;
   long vMVolumeGrade;
   short vMForeignPrivID;
   long vMExtendedAttributes;
   void * vMDeviceID;
   UniCharCount vMMaxNameLength;
};
typedef struct GetVolParmsInfoBuffer GetVolParmsInfoBuffer;

L'info qui m'intéresse c'est le champ vMExtendedAttributes, décrit en C de cette façon:

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
Extended Volume Attributes
Describe a volume’s extended attributes.
enum {
   bIsEjectable = 0,
   bSupportsHFSPlusAPIs = 1,
   bSupportsFSCatalogSearch = 2,
   bSupportsFSExchangeObjects = 3,
   bSupports2TBFiles = 4,
   bSupportsLongNames = 5,
   bSupportsMultiScriptNames = 6,
   bSupportsNamedForks = 7,
   bSupportsSubtreeIterators = 8,
   bL2PCanMapFileBlocks = 9,
   bParentModDateChanges = 10,
   bAncestorModDateChanges = 11,
   bSupportsSymbolicLinks = 13,
   bIsAutoMounted = 14,
   bAllowCDiDataHandler = 17,
   bSupportsExclusiveLocks = 18,
   bSupportsJournaling = 19,
   bNoVolumeSizes = 20,
   bIsOnInternalBus = 21,
   bIsCaseSensitive = 22,
   bIsCasePreserving = 23,
   bDoNotDisplay = 24,
   bIsRemovable = 25,
   bNoRootTimes = 26,
   bIsOnExternalBus = 27,
   bSupportsExtendedFileSecurity = 28
};

Je récupère bien mon champ dans une variable Pascal de type longint.
Maintenant, comment faire pour connaître la valeur effective de chaque flag ? En C, je vois ce genre de code :

Code:

1
2
 
           if     (vMExtendedAttributes & (1L << bIsEjectable)) != 0 ...

Comment diable traduire ça en Pascal ??? 8O

André

Comme ça :

Code:

1
2
 
if   (vMExtendedAttributes and (1 shl bIsEjectable)) <> 0 then

10/06/2010, 15h36
sinfoni

J'ai vu que 1L signifiait que c'était 1 sur 32 bits. Dans ce cas, ne dois-je pas déclarer une variable de type LongInt et y mettre 1, plutôt que 1 directement ?

Quant à vMExtendedAttributes, ne faut-il pas utiliser Byte(vMExtendedAttributes) ? J'ai trouvé ce genre de chose sur un autre forum.

Merci.
10/06/2010, 16h18
batyann811

Ton vMExtendedAttributes est de type long en C. Si tu fais Byte(vMExtendedAttributes) tu perd tous les bits de poids fort au dessus du 8 eme donc tu ne peux plus tester que les bits 0 à 7.

En ce qui concerne le 1L je pense que tu peux le remplacer par un simple 1. Si vraiment tu veux montrer dans ton code que c'est une valeur 32 bits je pense que tu peux utiliser LongInt(1).

Dernière chose le type long en C ne fait pas forcement 32 bits. Si tu utilises FreePascal il existe un unité ctypes qui définit des types equivalents à ceux du C. Donc pour traduire le 'long' du C tu utilises le types 'clong' de l'unité ctypes.
10/06/2010, 16h51
sinfoni

Merci pour toutes ces infos ;)