quakeforge/ruamoko/scheme/Cons.h

#ifndef __Cons_h
#define __Cons_h
#include "SchemeObject.h"

@interface Cons: SchemeObject
{
    SchemeObject []car, cdr;
}
+ (id) newWithCar: (SchemeObject []) a cdr: (SchemeObject []) d;
- (id) initWithCar: (SchemeObject []) a cdr: (SchemeObject []) d;
- (SchemeObject []) car;
- (void) car: (SchemeObject []) a;
- (SchemeObject []) cdr;
- (void) cdr: (SchemeObject []) d;
@end

@extern Cons []cons (SchemeObject []car, SchemeObject []cdr);
@extern BOOL isList (SchemeObject []ls);
@extern integer length (SchemeObject []foo);

#endif //__Cons_h
Initial commit of a future partial implementation of the R5RS Scheme standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs. 2005-05-01 11:48:36 +00:00			`#ifndef __Cons_h`
			`#define __Cons_h`
			`#include "SchemeObject.h"`

			`@interface Cons: SchemeObject`
			`{`
Clean out some unnecessary types from the progs engine and clean up the mess. This is a nasty commit, sorry, but 99% of the commit is interdependent. 2011-01-09 10:41:24 +00:00			`SchemeObject []car, cdr;`
Initial commit of a future partial implementation of the R5RS Scheme standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs. 2005-05-01 11:48:36 +00:00			`}`
Clean out some unnecessary types from the progs engine and clean up the mess. This is a nasty commit, sorry, but 99% of the commit is interdependent. 2011-01-09 10:41:24 +00:00			`+ (id) newWithCar: (SchemeObject []) a cdr: (SchemeObject []) d;`
			`- (id) initWithCar: (SchemeObject []) a cdr: (SchemeObject []) d;`
			`- (SchemeObject []) car;`
			`- (void) car: (SchemeObject []) a;`
			`- (SchemeObject []) cdr;`
			`- (void) cdr: (SchemeObject []) d;`
Initial commit of a future partial implementation of the R5RS Scheme standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs. 2005-05-01 11:48:36 +00:00			`@end`

Clean out some unnecessary types from the progs engine and clean up the mess. This is a nasty commit, sorry, but 99% of the commit is interdependent. 2011-01-09 10:41:24 +00:00			`@extern Cons []cons (SchemeObject []car, SchemeObject []cdr);`
			`@extern BOOL isList (SchemeObject []ls);`
			`@extern integer length (SchemeObject []foo);`
Initial commit of a future partial implementation of the R5RS Scheme standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs. 2005-05-01 11:48:36 +00:00
			`#endif //__Cons_h`