Select Code to Download

typedef struct ab_input {
    long lTrackId;
    char szDescription[80];
} AB_IN;

typedef struct {
/*  char fn[256]; */
...
/*  char *desc; */
    long size;
} cstype;

#ifdef __cplusplus
extern "C" {
...
    OUTPUT:
    RETVAL

package RFile;

...
}

1;

my $n = new RFile;

...
    $c = $n->dump($_);
    print $c, "\n";
}