C nach Pascal

[totti14]

Hallo,
ich versuche gerade ein kleine C Beispiel nach Pascal zu übersetzten hänge aber leider an folgenden Konstrukt:


Stack.h

Code:

#define MAX_APP_ENTRY  5

typedef struct
{
 unsigned int port;                // Port
 void(*fp)(unsigned char);   // Zeiger auf auszuführende Funktion
} TCP_PORT_ITEM;


TCP_PORT_ITEM TCP_PORT_TABLE[MAX_APP_ENTRY];

Stack.c

Code:

TCP_PORT_ITEM TCP_PORT_TABLE[MAX_APP_ENTRY] = // Port-Tabelle
{
 {0,0},
 {0,0},
 {0,0} 
};

Hätte da jemand einen Tip.

Danke
Thorsten

[edit=Matze][c]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[Cyf]

Zitat:

Zitat von totti14

#define MAX_APP_ENTRY 5

Kannst du als Konstante ansehen.

Zitat:

typedef struct
{
unsigned int port; // Port
void(*fp)(unsigned char); // Zeiger auf auszuführende Funktion
} TCP_PORT_ITEM;

Ein record.

Zitat:

TCP_PORT_ITEM TCP_PORT_TABLE[MAX_APP_ENTRY];

Ein Array dieses records, von 0 bis MAX_APP_ENTRY.

Zitat:

TCP_PORT_ITEM TCP_PORT_TABLE[MAX_APP_ENTRY] = // Port-Tabelle
{
{0,0},
{0,0},
{0,0}
};

Die ersten 3 Indexe auf 0 initialisieren.

[totti14]

Hallo Cyf,
dann sollte es doch so aussehen:

Delphi-Quellcode:

Type
  TCP_PORT_ITEM  = Record
                     port           : Word;  // Port
                     fp             : Pointer;   // Zeiger auf auszuführende Funktion
                   end;
var
  TCP_PORT_TABLE : array[0..MAX_APP_ENTRY-1] of TCP_PORT_ITEM;


initialization
  for i:=0 to 2 do
   TCP_PORT_TABLE[i]:=(0,0);

Aber wo bleibt das Byte(Char) aus void(*fp)(unsigned char); // Zeiger auf auszuführende Funktion

Gruß
Thorsten

[DeddyH]

Nicht, dass ich da Ahnung davon hätte, aber kann es sein, dass die auszuführende Funktion über ihren Namen angesprochen werden soll?

[SirTwist]

Zitat:

Zitat von totti14

Aber wo bleibt das Byte(Char) aus void(*fp)(unsigned char); // Zeiger auf auszuführende Funktion

Du musst Dir zuerst einen Typ definieren:

Delphi-Quellcode:

type
  TCallProc = procedure(c: Char);

Und dann ist 'fp' im Record 'TCP_PORT_ITEM' kein Pointer, sondern ein TCallProc.

Wobei ich grad nicht auswendig weiß, was der richtige Delphi-Datentyp für 'unsigned char' ist.

Gruß,
SirTwist

[totti14]

Danke funzt

Delphi-Quellcode:

type
  TCallProc = procedure(c: Char);

  TCP_PORT_ITEM  = Record
                     port           : Word;  // Port
                     fp             : TCallProc;   // Zeiger auf auszuführende Funktion
                   end;

initialization 

for i:=0 to MAX_APP_ENTRY-1 do
    TCP_PORT_TABLE[i].Port:=0;
    TCP_PORT_TABLE[i].fp:=nil;
   endfor;

dann sollte das doch eine Variable sein
struct arp_table arp_entry[MAX_ARP_ENTRY];

Delphi-Quellcode:

Var
  arp_entry : Array[0-MAX_ARP_ENTRY-1] of arp_table;

Nur wofür steht das struct davor ? Ist ja kein Record.
Sieht alles anders aus als in den Tutorials

Thorsten

[Cyf]

Zitat:

Zitat von SirTwist

Wobei ich grad nicht auswendig weiß, was der richtige Delphi-Datentyp für 'unsigned char' ist.

Byte :!: Ansonsten stimmts bei Unicode-Chars nicht mehr. In C ist ein Char immer genau 1 Byte groß.

Zitat:

Nur wofür steht das struct davor ? Ist ja kein Record.

Ist in C so üblich, wenn die struct nicht nochmal durch ein typedef benannt ist.
Wenn arp_table bei dir der Typ der struct ist, stimmt das schon.
Nur hast du wahrscheinlich eher

Delphi-Quellcode:

array[0 .. MAX_ARP_ENTRY-1]

gemeint.

[totti14]

Zitat:

Nur hast du wahrscheinlich eher
Delphi-Quellcode: markieren
array[0 .. MAX_ARP_ENTRY-1]
gemeint.

Ups Tippfehler.

Mal schauen wie weit ich jetzt komme.

Danke alle

Thorsten

[Christian Seehase]

Moin Thorsten,

den Record würde ich allerdings so beginnen:

Delphi-Quellcode:

Type
  TCP_PORT_ITEM  = packed record
                     port           : cardinal;  // Port

unsigned int entspricht in Delphi dem cardinal, da es er 4 Byte gross ist, und nicht 2.

[totti14]

Zitat:

unsigned int entspricht in Delphi dem cardinal, da es er 4 Byte gross ist, und nicht 2.

Jups, habe ich übersehen. Ist jetzt ein Longword, da für einen 8 Bit Controller und AVRco Pascal.
Word sind ja hier 16 Bit und das würde für den Portrange nicht reichen.

Danke
Thorsten

[jbg]

Zitat:

Zitat von Christian Seehase

packed record

Bist du dir da sicher, dass da ein "packed" hin kommt? Steht im C code etwa ein "#pragra pack(push,1)" oder ähnliches?

Zudem würde ich bei dem Funktionszeiger noch "cdecl" anhängen, wenn man nicht sein blaues Wunder erleben will.

[totti14]

Zitat:

Bist du dir da sicher, dass da ein "packed" hin kommt? Steht im C code etwa ein "#pragra pack(push,1)" oder ähnliches?

Zudem würde ich bei dem Funktionszeiger noch "cdecl" anhängen, wenn man nicht sein blaues Wunder erleben will.

Steht dort nicht und den Rest gibt es im Emded Pascal nicht.

Gruß
Thorsten