[Modula-2] Structure CASE BOOLEAN

Bonjour à tous,

Je n'arrive pas à comprendre cette structure :weird:
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:

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

Bonjour,

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

salut

est tu sur de ta structure ?

1°)

Code:

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:

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:

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:

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;

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

Merci à tous

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 :roll:
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! :mrgreen: