Changeset View

Standalone View

	/* scheme-private.h */			/* scheme-private.h */

	#ifndef _SCHEME_PRIVATE_H			#ifndef _SCHEME_PRIVATE_H
	#define _SCHEME_PRIVATE_H			#define _SCHEME_PRIVATE_H

				#include <stdint.h>
	#include "scheme.h"			#include "scheme.h"
	/------------------ Ugly internals -----------------------------------/			/------------------ Ugly internals -----------------------------------/
	/------------------ Of interest only to FFI users --------------------/			/------------------ Of interest only to FFI users --------------------/

	#ifdef __cplusplus			#ifdef __cplusplus
	extern "C" {			extern "C" {
	#endif			#endif

	Show All 23 Lines
	#if SHOW_ERROR_LINE			#if SHOW_ERROR_LINE
	pointer curr_line;			pointer curr_line;
	pointer filename;			pointer filename;
	#endif			#endif
	} port;			} port;

	/* cell structure */			/* cell structure */
	struct cell {			struct cell {
	unsigned int _flag;			uintptr_t _flag;
	union {			union {
	struct {			struct {
	char *_svalue;			char *_svalue;
	int _length;			int _length;
	} _string;			} _string;
	num _number;			num _number;
	port *_port;			port *_port;
	foreign_func _ff;			foreign_func _ff;
	▲ Show 20 Lines • Show All 224 Lines • Show Last 20 Lines