mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-13 08:27:39 +00:00
256630c84d
Runtime errors and support for line number reporting with the error.
33 lines
557 B
Objective-C
33 lines
557 B
Objective-C
#ifndef __SchemeObject_h
|
|
#define __SchemeObject_h
|
|
#include "Object.h"
|
|
#define true YES
|
|
#define false NO
|
|
|
|
//#define DEBUG
|
|
#ifdef DEBUG
|
|
#define dprintf printf
|
|
#else
|
|
#define dprintf(x, ...)
|
|
#endif
|
|
|
|
|
|
@interface SchemeObject: Object
|
|
{
|
|
@public SchemeObject prev, next;
|
|
BOOL marked, root;
|
|
integer line;
|
|
string source;
|
|
}
|
|
- (void) mark;
|
|
- (void) markReachable;
|
|
- (void) makeRootCell;
|
|
- (string) printForm;
|
|
- (string) source;
|
|
- (void) source: (string) s;
|
|
- (integer) line;
|
|
- (void) line: (integer) l;
|
|
- (BOOL) isError;
|
|
@end
|
|
|
|
#endif //__SchemeObject_h
|