43 lines
870 B
C
43 lines
870 B
C
#include "factor.h"
|
|
|
|
HANDLE* untag_handle(CELL type, CELL tagged)
|
|
{
|
|
HANDLE* h;
|
|
type_check(HANDLE_TYPE,tagged);
|
|
h = (HANDLE*)UNTAG(tagged);
|
|
/* after image load & save, handles are no longer valid */
|
|
if(h->object == -1)
|
|
general_error(ERROR_HANDLE_EXPIRED,tagged);
|
|
if(h->type != type)
|
|
general_error(ERROR_HANDLE_INCOMPAT,tagged);
|
|
return h;
|
|
}
|
|
|
|
CELL handle(CELL type, CELL object)
|
|
{
|
|
HANDLE* handle = (HANDLE*)allot_object(HANDLE_TYPE,sizeof(HANDLE));
|
|
handle->type = type;
|
|
handle->object = object;
|
|
handle->buffer = F;
|
|
handle->buf_fill = 0;
|
|
handle->buf_pos = 0;
|
|
return tag_object(handle);
|
|
}
|
|
|
|
void primitive_handlep(void)
|
|
{
|
|
check_non_empty(env.dt);
|
|
env.dt = tag_boolean(typep(HANDLE_TYPE,env.dt));
|
|
}
|
|
|
|
void fixup_handle(HANDLE* handle)
|
|
{
|
|
handle->object = -1;
|
|
fixup(&handle->buffer);
|
|
}
|
|
|
|
void collect_handle(HANDLE* handle)
|
|
{
|
|
copy_object(&handle->buffer);
|
|
}
|