factor/native/complex.h

typedef struct {
	CELL real;
	CELL imaginary;
} F_COMPLEX;

INLINE CELL tag_complex(F_COMPLEX* complex)
{
	return RETAG(complex,COMPLEX_TYPE);
}

void primitive_from_rect(void);
Factor jEdit plugin! 2004-08-06 02:51:32 -04:00			`typedef struct {`
			`CELL real;`
			`CELL imaginary;`
renaming types to avoid clashing with win32 2004-12-10 21:46:42 -05:00			`} F_COMPLEX;`
Factor jEdit plugin! 2004-08-06 02:51:32 -04:00
renaming types to avoid clashing with win32 2004-12-10 21:46:42 -05:00			`INLINE CELL tag_complex(F_COMPLEX* complex)`
Factor jEdit plugin! 2004-08-06 02:51:32 -04:00			`{`
complex numbers in native factor, all of test suite except html and httpd tests runs in native factor 2004-08-06 18:40:44 -04:00			`return RETAG(complex,COMPLEX_TYPE);`
Factor jEdit plugin! 2004-08-06 02:51:32 -04:00			`}`

			`void primitive_from_rect(void);`