Simon Brooke
1133a07752
try a read-eval-print loop. Read still isn't correctly reading UTF characters, but so long as I don't use UTF characters it's OK (bug needs fixing, but).
37 lines
1.2 KiB
C
37 lines
1.2 KiB
C
/**
|
|
* stack.h
|
|
*
|
|
* The Lisp evaluation stack.
|
|
*
|
|
* Stack frames could be implemented in cons space; indeed, the stack
|
|
* could simply be an assoc list consed onto the front of the environment.
|
|
* But such a stack would be costly to search. The design sketched here,
|
|
* with stack frames as special objects, SHOULD be substantially more
|
|
* efficient, but does imply we need to generalise the idea of cons pages
|
|
* with freelists to a more general 'equal sized object pages', so that
|
|
* allocating/freeing stack frames can be more efficient.
|
|
*
|
|
* Stack frames are not yet a first class object; they have no VECP pointer
|
|
* in cons space.
|
|
*
|
|
* (c) 2017 Simon Brooke <simon@journeyman.cc>
|
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
|
*/
|
|
|
|
#include "consspaceobject.h"
|
|
#include "conspage.h"
|
|
|
|
#ifndef __stack_h
|
|
#define __stack_h
|
|
|
|
struct stack_frame* make_stack_frame( struct stack_frame* previous,
|
|
struct cons_pointer args,
|
|
struct cons_pointer env);
|
|
void free_stack_frame( struct stack_frame* frame);
|
|
struct cons_pointer fetch_arg( struct stack_frame* frame, unsigned int n);
|
|
|
|
/* struct stack_frame is defined in consspaceobject.h to break circularity
|
|
* TODO: refactor. */
|
|
|
|
#endif
|