Discussion :

[neophyte_ingé]

Bonjour à tous,

Je n'arrive pas à comprendre cette structure
Ce que je pense comprendre :
Mon buffer va prendre plein de valeurs à la suite, selon qu'on lui affecte la valeur TRUE ou FALSE.
MAIS ce qui m'embéte c'est le 2e test... que teste-t-on cette fois ? Une variable sans nom ? J'en doute fortement ! Peut-être que je fais fausse route depuis le début de mon raisonnement !

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
TIRecDCA2Buf  = POINTER TO RECORD
    CASE BOOLEAN OF
      TRUE : VRLengthMess,                                           
             VRBitErrorEcho, 
             VRTMR,                                         
             VRAnnNum : CHAR;                                        
             CASE BOOLEAN OF
               TRUE :  VRTransTrapNum,				     
	               VRContentsTrap,
	               VROrigineTrap : CHAR;              
             | FALSE : VRRecMessAr: TRTrapBuf   ; 
	       ELSE
	     END;
    | FALSE : VRRecepMessAr: TIRecBuffer;
     ELSE
    END;
  END;

Aidez-moi svp !

[droggo]

Bonjour,

Je ne vois pas ce qui te trouble dans le 2ème cas, alors que tu acceptes le 1er, qui exactement similaire ?

[anapurna]

salut

est tu sur de ta structure ?

1°)

Code :

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

1
2
3
4
 
   TIRecDCA2Buf  = POINTER TO RECORD
    ...
   END;

jamais vu comme définition

ne serais ce pas plutot cela que tu veut ecrire ?

Code :

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

1
2
3
4
5
6
 
TIRecDCA2Buf  = RECORD 
... 
END; 
 
PTIRecDCA2Buf =^TIRecDCA2Buf

2°) Les case imbriqué dans un record ne sont pas admis si je me souvient bien
le case doit être la dernière instruction du record
Par contre tu peut faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
TIRecDCA2Buf  = RECORD
    CASE BOOLEAN OF
      TRUE : VRLengthMess,                                           
                 VRBitErrorEcho, 
                 VRTMR,                                         
                 VRAnnNum : CHAR;                                        
                 TRAP : RECORD  CASE BOOLEAN OF
                          TRUE  :  VRTransTrapNum,VRContentsTrap,VROrigineTrap : CHAR;              
                          FALSE : VRRecMessAr: TRTrapBuf   ;
	         END;
      FALSE : VRRecepMessAr: TIRecBuffer;
     END;
  END;

ce qui revient a faire

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
 
 TTRAP : RECORD  CASE BOOLEAN OF
    TRUE  :  VRTransTrapNum,VRContentsTrap,VROrigineTrap : CHAR;              
     FALSE : VRRecMessAr: TRTrapBuf   ;
 END;
 
TIRecDCA2Buf  = RECORD
    CASE BOOLEAN OF
      TRUE : VRLengthMess,                                           
                 VRBitErrorEcho, 
                 VRTMR,                                         
                 VRAnnNum : CHAR;                                        
                 TRAP : TTRAP;
      FALSE : VRRecepMessAr: TIRecBuffer;
     END;
  END;

[Paul TOTH]

la syntaxe de cette structure est étrange en effet, ça ressemble à du Pascal, mais rien que je connaisse.

je suppose que c'est donc un pointeur sur une structure qui fusionne plusieurs format (union en C)

la structure peux avoir trois formes différentes

1)
- VRRecepMessAr: TIRecBuffer

2)
- VRLengthMess : CHAR
- VRBitErrorEcho: CHAR
- VRTMR : CHAR
- VRAnnNum : CHAR
- VRTransTrapNum : CHAR
- VRContentsTrap : CHAR

3)
- VRLengthMess : CHAR
- VRBitErrorEcho: CHAR
- VRTMR : CHAR
- VRAnnNum : CHAR
- VRRecMessAr: TRTrapBuf


le CASE BOOLEAN OF permet simplement d'indiquer que le contenu de la structure est variable (au passage j'aime bien un "TRUE, FALSE, ELSE" sur un booléen )

[neophyte_ingé]

Merci à tous pour vos réponses, ça m'a grandement aide dans la comprehension du code (au passage, ce n'est pas exactement du pascal mais du modula 2, on m'avait dis qu'à mon niveau je ne verrai pas la difference).
Je vous assure que ce code compile même si sa logique est parfois obscure pour moi
Le faite que l'on me parle d'union (en reference au C pour moi) m'a fait un déclic!
J'en conclue que c'est un embriquement de données à longueur variable (avec donc 2 union) selon certaines valeurs!
Merci à tous pour votre aide!