Changeset View
Changeset View
Standalone View
Standalone View
tests/gpgscm/scheme-private.h
/* 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 |