on1 construct

[David W. Donald]

> One contruct that I've always wanted to have is:
> function ()
> {
>     on1  {
> 	bla, bla, bla...
>     };
>     etc...
> }

Try:

#define on1	static char x = 1; if (  x ? (--x,1) : 0 )
f()
{
	on1 {
		printf( "first time only\n" );
		printf( "even more\n" );
	}
	printf( "first and subsequent times\n" );
}

On a VAX with 4.2BSD I get unbeatable code with cc -O.

				Dave Donald