1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-30 05:30:41 +00:00
cc65/test/ref/struct.c
2019-02-12 22:50:49 +01:00

264 lines
6.0 KiB
C

/*
!!DESCRIPTION!! structs
!!ORIGIN!! LCC 4.1 Testsuite
!!LICENCE!! own, freely distributeable for non-profit. read CPYRIGHT.LCC
*/
#include "common.h"
typedef struct point { int x,y; } point;
typedef struct rect { point pt1, pt2; } rect;
#define min(a, b) ((a) < (b) ? (a) : (b))
#define max(a, b) ((a) > (b) ? (a) : (b))
#ifdef NO_FUNCS_RETURN_STRUCTS
# ifdef NO_FUNCS_TAKE_STRUCTS
/* canonicalize rectangle coordinates */
void canonrect(rect *d,rect *r) {
d->pt1.x = min(r->pt1.x, r->pt2.x);
d->pt1.y = min(r->pt1.y, r->pt2.y);
d->pt2.x = max(r->pt1.x, r->pt2.x);
d->pt2.y = max(r->pt1.y, r->pt2.y);
}
/* add two points */
void addpoint(point *p, point *p1, point *p2) {
p->x= p1->x + p2->x;
p->y= p1->y + p2->y;
}
/* make a point from x and y components */
void makepoint(point *p,int x, int y) {
p->x = x;
p->y = y;
}
/* make a rectangle from two points */
void makerect(rect *d,point *p1, point *p2) {
rect r;
r.pt1.x = p1->x;
r.pt1.y = p1->y;
r.pt2.x = p2->x;
r.pt2.y = p2->y;
canonrect(d,&r);
}
#ifdef NO_SLOPPY_STRUCT_INIT
struct odd {char a[3]; } y = {{'a', 'b', 0 }};
#else
struct odd {char a[3]; } y = {'a', 'b', 0};
#endif
odd(struct odd *y) {
struct odd *x = y;
printf("%s\n\r", x->a);
}
# else /* FUNCS_TAKE_STRUCTS */
/* canonicalize rectangle coordinates */
void canonrect(rect *d,rect r) {
d->pt1.x = min(r.pt1.x, r.pt2.x);
d->pt1.y = min(r.pt1.y, r.pt2.y);
d->pt2.x = max(r.pt1.x, r.pt2.x);
d->pt2.y = max(r.pt1.y, r.pt2.y);
}
/* add two points */
void addpoint(point *p, point p1, point p2) {
p->x= p1.x + p2.x;
p->y= p1.y + p2.y;
}
/* make a point from x and y components */
void makepoint(point *p,int x, int y) {
p->x = x;
p->y = y;
}
/* make a rectangle from two points */
void makerect(rect *d,point p1, point p2) {
rect r;
r.pt1 = p1;
r.pt2 = p2;
canonrect(d,r);
}
#ifdef NO_SLOPPY_STRUCT_INIT
struct odd {char a[3]; } y = {{'a', 'b', 0}};
#else
struct odd {char a[3]; } y = {'a', 'b', 0};
#endif
odd(struct odd y) {
struct odd x = y;
printf("%s\n\r", x.a);
}
# endif /* FUNCS_TAKE_STRUCTS */
#else /* FUNCS_RETURN_STRUCTS */
/* add two points */
point addpoint(point p1, point p2) {
p1.x += p2.x;
p1.y += p2.y;
return p1;
}
/* canonicalize rectangle coordinates */
rect canonrect(rect r) {
rect temp;
temp.pt1.x = min(r.pt1.x, r.pt2.x);
temp.pt1.y = min(r.pt1.y, r.pt2.y);
temp.pt2.x = max(r.pt1.x, r.pt2.x);
temp.pt2.y = max(r.pt1.y, r.pt2.y);
return temp;
}
/* make a point from x and y components */
point makepoint(int x, int y) {
point p;
p.x = x;
p.y = y;
return p;
}
/* make a rectangle from two points */
rect makerect(point p1, point p2) {
rect r;
r.pt1 = p1;
r.pt2 = p2;
return canonrect(r);
}
struct odd {char a[3]; } y =
{
#ifdef NO_SLOPPY_STRUCT_INIT
{
#endif
'a', 'b', 0
#ifdef NO_SLOPPY_STRUCT_INIT
}
#endif
};
odd(struct odd y)
{
struct odd x
= y;
printf("%s\n\r", x.a);
}
#endif
/* is p in r? */
# ifdef NO_FUNCS_TAKE_STRUCTS
int ptinrect(point *p, rect *r) {
return p->x >= r->pt1.x && p->x < r->pt2.x
&& p->y >= r->pt1.y && p->y < r->pt2.y;
}
#else
int ptinrect(point p, rect r) {
return p.x >= r.pt1.x && p.x < r.pt2.x
&& p.y >= r.pt1.y && p.y < r.pt2.y;
}
#endif
#ifdef NO_FUNCS_RETURN_STRUCTS
#ifdef NO_LOCAL_STRUCT_INIT
#ifdef NO_SLOPPY_STRUCT_INIT
point pts[] = { {-1, -1},{ 1, 1},{ 20, 300},{ 500, 400 } };
#else
point pts[] = { -1, -1, 1, 1, 20, 300, 500, 400 };
#endif
point origin = { 0, 0 };
point maxpt = { 320, 320 };
#endif
main() {
int i;
point x;
rect screen;
#ifndef NO_LOCAL_STRUCT_INIT
point origin = { 0, 0 };
point maxpt = { 320, 320 };
#ifdef NO_SLOPPY_STRUCT_INIT
point pts[] = { {-1, -1},{ 1, 1},{ 20, 300},{ 500, 400 } };
#else
point pts[] = { -1, -1, 1, 1, 20, 300, 500, 400 };
#endif
#endif
makepoint ( &x, -10, -10);
#ifdef NO_FUNCS_TAKE_STRUCTS
addpoint ( &maxpt, &maxpt, &x);
#else
addpoint ( &maxpt, maxpt, x);
#endif
makepoint ( &x, 10, 10);
#ifdef NO_FUNCS_TAKE_STRUCTS
addpoint (&origin,&origin, &x);
makerect (&screen, &maxpt,&origin);
#else
addpoint (&origin,origin, x);
makerect (&screen, maxpt,origin);
#endif
for (i = 0; i < sizeof pts/sizeof pts[0]; i++) {
makepoint(&x,pts[i].x, pts[i].y);
printf("(%d,%d) is ", pts[i].x, x.y);
#ifdef NO_FUNCS_TAKE_STRUCTS
if (ptinrect(&x, &screen) == 0)
#else
if (ptinrect(x, screen) == 0)
#endif
{
printf("not ");
}
printf("within (%d,%d; %d,%d)\n\r", screen.pt1.x, screen.pt1.y,
screen.pt2.x, screen.pt2.y);
}
#ifdef NO_FUNCS_TAKE_STRUCTS
odd(&y);
#else
odd(y);
#endif
return 0;
}
#else /* FUNCS_RETURN_STRUCTS */
main() {
int i;
point x, origin = { 0, 0 }, maxpt = { 320, 320 };
#ifdef NO_SLOPPY_STRUCT_INIT
point pts[] = { {-1, -1}, {1, 1}, {20, 300}, {500, 400} };
#else
point pts[] = { -1, -1, 1, 1, 20, 300, 500, 400 };
#endif
rect screen =
makerect(
addpoint(maxpt, makepoint(-10, -10)),
addpoint(origin, makepoint(10, 10))
);
test1();
for (i = 0; i < sizeof pts/sizeof pts[0]; i++) {
printf("(%d,%d) is ", pts[i].x,
(x = makepoint(pts[i].x, pts[i].y)).y);
if (ptinrect(x, screen) == 0)
printf("not ");
printf("within (%d,%d; %d,%d)\n\r", screen.pt1.x, screen.pt1.y,
screen.pt2.x, screen.pt2.y);
}
odd(y);
return 0;
}
#endif /* FUNCS_RETURN_STRUCTS */