generic Swap

[Mathias]

Ist so etwas in dieser Art möglich ?

Code: Alles auswählen

program Project1;
 
  procedure generic Swap(var a, b:<T>);
  var
    d: T;
  begin
    d := a;
    a := b;
    b := d;
  end;
 
var
  a: integer = 1;
  b: integer = 2;
 
begin
  Swap(a, b);
  Writeln(a);
  Writeln(b);
  Readln;
end.       

[theo]

Ich glaube so nicht. Das geht offenbar nur mit Klassen. Aber ich bin kein Experte für Generics.
http://www.freepascal.org/docs-html/ref ... -1110008.1

Mit Varianten geht sowas ähnliches:

Code: Alles auswählen

 
procedure VariantSwap(var a, b:Variant);
var
  d: Variant;
begin
  d := a;
  a := b;
  b := d;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b:Variant;
begin
  a:='eins';
  b:='zwei';
  VariantSwap(a,b);
  Caption:=a;
end;   

[mschnell]

Im Thread "Wieso immer Java" wurde doch nach Nachteilen von (fpc-) Pascal gegenüber anderen Programmiersprachen gesucht

in GNU C machst Du einfach

Code: Alles auswählen

#define VariantSwap(a,b) ({typeof(a) x=a; a=b; b=x;})
 
void myintswap(int *ai, int *bi) {
	VariantSwap(*ai, *bi);
}
 
void mycharswap(char *ac, char *bc) {
	VariantSwap(*ac, *bc);
}

"Generischer" geht nicht

-Michael

[m.fuchs]

"Generischer" geht nicht

Unleserlicher auch nicht.

[mschnell]

Unleserlicher auch nicht.

Genau ! In Punkto Leserlichkeit ist Pascal ungeschlagen.

Vermutlich gibt es deshalb keine Generics außerhalb von Objekten.

-Michael

[Socke]

Vermutlich gibt es deshalb keine Generics außerhalb von Objekten.

Außerhalb von Klassen gibt es Compiler Magic.

Man könnte auch einen Mechanismus in der Sprache einfügen um statische Klassen-Methoden ohne Klassennamen aufzurufen. So etwas gibt es in Java um Standardfunktionen (z.B. mathematische Funktionen) wie Methoden der aktuellen Klasse aufrufen zu können. Mit so einem Konstrukt könnte man auch in Pascal die Generics wie normale Funktionen verwenden.

[Mathias]

Mit template kann man es in C++ auch lösen.

Code: Alles auswählen

#include <iostream>
 
template <typename T>
void Swap(T& a, T& b)
{
    T c = a;
    a = b;
    b = c;
}
 
int main()
{
    int i1 = 3;
    int i2 = 4;
    Swap(i1, i2);
    std::cout << i1 << ' ' << i2 << std::endl;
    float f1 = 3.3f;
    float f2 = 4.4f;
    Swap(f1, f2);
    std::cout << f1 << ' ' << f2 << std::endl;
}

[mschnell]

Mit template kann man es in C++ auch lösen.

Mit nur 50 Zeichen und nur "typeof" als zusätzliche Syntax, um ein Generic zu ermöglichen bleibt das GNU #define Macro ungeschlagen (geht natürlich auch in GNU c++)
-Michael