Re: Wrapping / Interfacing to C macros

[Dale Stanbrough <dstanbro@bigpond.net.au>]

In article <ec0cf315.0208221356.7356d38a@posting.google.com>,
 le_snelson@juno.com (Le Snelson) wrote:

> I'm hoping someone has seen a dialect or pattern for interfacing to C
> macros.  I need to use the ioctl() mechanisms of VxWorks to control
> some low level features of a couple of serial cards.  I've never seen
> any Ada applications wrapping up linguistic attributes such as the
> following from Tornado/target/h/sys/ioctl.h :
> 
> #define	_IO(x,y)	(IOC_VOID|((x)<<8)|y)
> #define	_IOR(x,y,t)	(IOC_OUT|((sizeof(t)&IOCPARM_MASK)<<16)|((x)<<8)|y)
> #define	_IOW(x,y,t)	(IOC_IN|((sizeof(t)&IOCPARM_MASK)<<16)|((x)<<8)|y)
> /* this should be _IORW, but stdio got there first */
> #define	_IOWR(x,y,t)	(IOC_INOUT|((sizeof(t)&IOCPARM_MASK)<<16)|((x)<<8)|y)
> 
> 
> #define	SIOCSHIWAT	_IOW('s',  0, int)		/* set high watermark */
> #define	SIOCGHIWAT	_IOR('s',  1, int)		/* get high watermark */
> #define	SIOCSLOWAT	_IOW('s',  2, int)		/* set low watermark */
> #define	SIOCGLOWAT	_IOR('s',  3, int)		/* get low watermark */
> #define	SIOCATMARK	_IOR('s',  7, int)		/* at oob mark? */



Given the fact that you have a type parameter, a generic would
seem the only solution for doing it in Ada.

The rest can be done in standard (type safe!) Ada.

Dale