mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-23 04:42:32 +00:00
6d494bfcdf
-Wall still isn't used yet due to a missing method in Array, and overzealous warnings in qfcc, but this covers the necessary fixes.
32 lines
755 B
Objective-C
32 lines
755 B
Objective-C
#ifndef __Machine_h
|
|
#define __Machine_h
|
|
#include "Symbol.h"
|
|
#include "CompiledCode.h"
|
|
#include "Frame.h"
|
|
#include "Continuation.h"
|
|
#include "hash.h"
|
|
#include "state.h"
|
|
|
|
@interface Machine: SchemeObject
|
|
{
|
|
state_t state;
|
|
SchemeObject value;
|
|
hashtab_t globals;
|
|
SchemeObject all_globals;
|
|
}
|
|
- (void) loadCode: (CompiledCode) code;
|
|
- (SchemeObject) run;
|
|
- (void) addGlobal: (Symbol) sym value: (SchemeObject) val;
|
|
- (void) environment: (Frame) e;
|
|
- (void) continuation: (Continuation) c;
|
|
- (Continuation) continuation;
|
|
- (void) value: (SchemeObject) o;
|
|
- (SchemeObject) stack;
|
|
- (void) stack: (SchemeObject) o;
|
|
- (state_t []) state;
|
|
- (void) state: (state_t []) st;
|
|
- (void) reset;
|
|
- (void) procedure: (Procedure) pr;
|
|
@end
|
|
|
|
#endif //__Machine_h
|