Re: C++ to Ada95, help please

[skj@rb.icl.co.uk (Simon Johnston)]

Hi, thanks everyone for helping with my last query. I have a new C nasty for
you. I am converting some C headers into packages for use with GNAT and 
have come accross the old chestnut:

typedef struct _STRUCT_NAME {.....type struct_STRUCT_NAME is
....................................record
  int item1;..........................item1  : int;
  union {                             :
    int  u_item1;                     :
    long u_item2;                     :
  } u_name;                           :
  int item2;..........................item2  : int;
....................................end record;
} STRUCT_NAME;....................type STRUCT_NAME is new struct_STRUCT_NAME;

this I know is a contrived example but it does show the problem, how do I
describe the C struct on the left as an Ada record on the right. (The code
I have put on the right is lifted from the windows.ads package spec provided
in the GNAT examples directory for Windows NT.

Thanks.


MODULE Sig;
FROM ICL IMPORT StdDisclaimer;
FROM Interests IMPORT Modula2, Modula3, Linux, OS2;

BEGIN
(* ------------------------------------------------------------------------.
|Simon K. Johnston - Development Engineer (C/C++)      |ICL Retail Systems |
|------------------------------------------------------|3/4 Willoughby Road|
|Unix Mail : S.K.Johnston@bra0801.wins.icl.co.uk       |Bracknell, Berks   |
|Telephone : +44 (0)344 476320   Fax: +44 (0)344 476302|United Kingdom     |
|Internal  : 7261 6320    OP Mail: S.K.Johnston@BRA0801|RG12 8TJ           |
`------------------------------------------------------------------------ *)
END Sig.