view CbC-examples/rectype/struct.cbc @ 109:78d3881f2882

add CbC-example/rectype
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Thu, 14 Jun 2012 20:43:12 +0900
parents
children
line wrap: on
line source

#include <stdio.h>
#include <stdlib.h>
struct interface {
	__code (*next)(struct interface);
};

__code print(struct interface p)
{
	printf("print\n");
	exit(0);
}
__code csA(struct interface p)
{
	struct interface ds;
	ds.next = csA;
	goto p.next(ds);
}

void main1()
{
	struct interface ds;
	ds.next = print;
	goto csA(ds);
}

int main()
{
	main1();
	return 0;
}