Better redefining my problem:
I have a first union. But on records we do not end case with "end". and
beneath the union, I have to place another union, or another fields that is
not part of the union.
How can I do that ?
Thanks,
Ido
On Mon, Dec 26, 2011 at 16:41, ik <ido...@gmail.com> wrote:
> Hello,
>
> I'm trying to translate the following to Pascal:
> ------------
> struct xt_option_call {
> const char *arg, *ext_name;
> const struct xt_option_entry *entry;
> void *data;
> unsigned int xflags;
> bool invert;
> uint8_t nvals;
> union {
> uint8_t u8, u8_range[2], syslog_level, protocol;
> uint16_t u16, u16_range[2], port, port_range[2];
> uint32_t u32, u32_range[2];
> uint64_t u64, u64_range[2];
> double dbl;
> struct {
> union nf_inet_addr haddr, hmask;
> uint8_t hlen;
> };
> struct {
> uint8_t tos_value, tos_mask;
> };
> struct {
> uint32_t mark, mask;
> };
> uint8_t ethermac[6];
> } val;
> /* Wished for a world where the ones below were gone: */
> union {
> struct xt_entry_match **match;
> struct xt_entry_target **target;
> };
> void *xt_entry;
> void *udata;
> };
>
> ------
> h2pas does not capable of translating it, and I'm not sure that I know to
> make the "case" statement that will be equivalent for this complex union.
> How can I translate it ?
>
> Thanks,
> Ido
>
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
