Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je n'ai jamais joué avec cela et je n'arrive pas à trouver de documentation pertinente à ce sujet.

Je sais qu'en Pascal, on peut définir des variables non typées. Si par exemple, je déclare :

Code :

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

1
2
3
procedure Echange(a, b: Integer; var S, T {pas de type});
begin
end;

Cela se compile sans problème.

Mais dès que j'essaie d'établir dans la procédure "Echange" une relation entre ces diverses variables, du genre S:= T; je me fait jeter avec une message du genre :

Error: Assignments to formal parameters and open arrays are not possible

Alors, comment faire, que faire de ces variables non typées ?

Pour aller plus loin, mon but est d'avoir une procédure "générique" de tri rapide dans laquelle la variable à trier peut avoir des types différents. Voilà ce que cela donnerait :

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
18
19
20
21
22
procedure Echange(Lo, Hi: Integer; var ALo, AHi);
begin
  {Extraction dans les variables ALo et AHi de la partie sur laquelle peut se faire un tri}
  {Opération d'échange du genre échange de valeur et action sur les indices Lo et Hi}
end;
 
procedure QuickSort(var A {c'est un tableau non typé}; iLo, iHi: Integer);
var
  Lo, Hi, Mid, T: Integer;
begin
  Lo := iLo;
  Hi := iHi;
  Mid := A[(Lo + Hi) div 2];
  repeat
    while A[Lo] < Mid do Inc(Lo);
    while A[Hi] > Mid do Dec(Hi);
    if Lo <= Hi then
      Echange(Lo, Hi, A[Lo], A[Hi]);
  until Lo > Hi;
  if Hi > iLo then QuickSort(A, iLo, Hi);
  if Lo < iHi then QuickSort(A, Lo, iHi);
end;

Est-ce c'est possible ? Si oui, comment faire ou avez-vous des liens expliquant cela ?

Merci de votre aide.

Pierre

[batyann811]

Tout ce que tu peux faire avec les variables non typées c'est en récupérer l'adresse. Il me semble avoir vu une page de documentation la dessus sur le site de freepascal mais pas moyen de remettre la main dessus. L'intérêt de ce type de paramètre est de pouvoir écrire des fonctions et des procédures comme Move ,par exemple, qui permet de déplacer des blocs de données sans en connaître le type.

Pour la généricité en pascal, à ma connaissance, tu as 3 solutions :

• Utiliser les generics qui existent en freepascal mais portent uniquement sur les classes http://www.freepascal.org/docs-html/ref/refch8.html
• Utiliser le macroprocesseur interne :
  • http://wiki.freepascal.org/Templates
  • http://edn.embarcadero.com/article/27603
• Utiliser un macroprocesseur externe. L'idée est la même que pour le macroprocesseur interne. Il m'arrive d'utiliser m4 par exemple. Ce type de macroprocesseur est plus puissant que le macroprocesseur interne mais avant de compiler il faut faire subir un traitement au fichier source.

[ChPr]

Merci beaucoup "batyann811" pour ces liens et infos sur la généricité en Pascal. Je vais voir cela de plus près.

Cordialement.

Pierre