Union

[Chris_S]

Dann will ich mich dem "Wünsch dir was" auch mal anschließen

Ich fänd es klasse wenn du etwas vergleichbares wie Union einbauen könntest.

[Jac de Lad]

Was ist das? Ich tippe mal auf eine Art Datentyp?

[Frabbing]

Ich mochte gar nicht fragen...

[Chris_S]

Mit Union ist es möglich das sich mehrere Variablen/Strukturen den gleichen Speicherbereich teilen. Teilweise notwendig für Rückgabewerte von APIs. z.B.: in_addr Structure (Windows)

[AHT]

Dürfte ein Zusammenschluss mehrer Strukturen sein.

Edit: Sorry, liege da etwas daneben .
Siehe hier unter Union.

[RGH]

Zitat von Chris_S

Mit Union ist es möglich das sich mehrere Variablen/Strukturen den gleichen Speicherbereich teilen. Teilweise notwendig für Rückgabewerte von APIs. z.B.: in_addr Structure (Windows)

Korrekt!

Wobei das in XProfan schon jetzt recht einfach dargestellt werden kann:

Du deklarierst zwei unterschiedliche Strukturen gleicher Länge und erzeugst damit zwei Bereiche. Dann weist Du dem zweiten Bereich die Adresse de ersten Bereichs zu (B2# = Addr(B1#)). Schon belegen beide den gleichen Speicher. Beispiel:

Struct Struktur1 = LongWert&
Struct Struktur2 = loWord%, hiWord%

var B1# = new(Struktur1)
var B2# = new(Struktur2)

B2# = Addr(B1#)

B1#.LongWert& = 78015
Print B2#.loWord%
Print B2#.hiWord%
Print 65536 * B2#.hiWord% + B2#.loWord%

WaitInput
end

Der zweite Bereich könnte auch nur einem Teil des ersten entsprechen. Dann muss beim Zuweisen der Offset berücksichtigt werden (B2# = Addr(B1#) + Offs&).

Gruß
Roland

[AHT]

@Chris_S: Ich glaube, dir geht es hier um die Umsetzung von C Quelltexten nach XPProfan hin, sehe ich das richtig? Vielleicht hast du noch ein Beispiel parat, indem es etwas umständlich ist, mit XProfan die UNION auseinanderzutüfteln?

[Jac de Lad]

@Roland: Wie gebe ich b2# dann wieder frei? Kann ich das nicht auch ohne New/Dim-Zuweisung umleiten?

[Chris_S]

@AHT:

typedef struct in_addr {
  union {
    struct {
      u_char s_b1,s_b2,s_b3,s_b4;
    } S_un_b;
    struct {
      u_short s_w1,s_w2;
    } S_un_w;
    u_long S_addr;
  } S_un;
} IN_ADDR, *PIN_ADDR, FAR *LPIN_ADDR;

An verlinktem Beispiel bin ich unlängst verzweifelt.


@Roland: werde ich mir nochmal näher anschauen, klingt auf jeden Fall einleuchtend

[RGH]

Zitat von Jac de Lad

@Roland: Wie gebe ich b2# dann wieder frei? Kann ich das nicht auch ohne New/Dim-Zuweisung umleiten?

Die Freigabe erfolgt wie auch bei B1#. (XProfan merkt sich auch bei der "Umleitung" die ursprüngliche Adresse und kann daher den Bereich korrekt wieder freigeben.)

Eine Umleitung ohne New/Dim ist nicht möglich. Wie willst Du denn dann der Bereichsvariablen ihre Struktur beibringen? (Ok, man könnte sich eine neue Syntax ausdenken, bei der der zweite Bereich gleich auf den ersten gelegt wird ...)

Gruß
Roland

[Jac de Lad]

Oh, verstehe.

[RGH]

Zitat von Chris_S

An verlinktem Beispiel bin ich unlängst verzweifelt.

Dabei entspricht das doch schon nahezu exakt meinem Beispiel-Code, nur das noch eine dritte Struktur dazu kommt, bei der jedes Byte als Zeichen angesprochen werden kann. Kein Problem:

Struct In_Addr1 = s_b1$(1), s_b2$(1), s_b3$(1), s_b4$(1)
Struct In_Addr2 = s_w1%, s_w2%
Struct In_Addr3 = s_addr&

var s_un_b# = new(In_Addr1)
var s_un_w# = new(In_Addr2)
var s_un#   = new(In_Addr3)

s_un_w# = Addr(s_un_b#)
s_un#   = Addr(s_un_b#)

s_un_b#.s_b1$ = "T"
s_un_b#.s_b2$ = "e"
s_un_b#.s_b3$ = "r"
s_un_b#.s_b4$ = "t"


Print s_un_w#.s_w1%
Print s_un_w#.s_w2%

Print s_un#.s_addr&

WaitInput
Dispose s_un_b#, s_un_w#, s_un#
end

Gruß
Roland