Back to index

texmacs  1.0.7.15
Classes | Defines | Typedefs | Enumerations | Functions
scheme-private.h File Reference
#include "scheme.h"
#include "opdefines.h"
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes

struct  port
class  cell
struct  scheme
union  port.rep
struct  port.rep.stdio
struct  port.rep.string
union  cell._object
struct  cell._object._string
struct  cell._object._cons

Defines

#define CELL_SEGSIZE   5000 /* # of cells in one segment */
#define CELL_NSEGMENT   10 /* # of segments for cells */
#define MAXFIL   64
#define LINESIZE   1024
#define STRBUFFSIZE   256
#define _OP_DEF(A, B, C, D, E, OP)   OP,
#define cons(sc, a, b)   _cons(sc,a,b,0)
#define immutable_cons(sc, a, b)   _cons(sc,a,b,1)

Typedefs

typedef struct port port

Enumerations

enum  scheme_port_kind {
  port_free = 0, port_file = 1, port_string = 2, port_srfi6 = 4,
  port_input = 16, port_output = 32, port_saw_EOF = 64
}
enum  scheme_opcodes { OP_MAXDEFINED }

Functions

int is_string (cell_ptr p)
char * string_value (cell_ptr p)
int string_length (cell_ptr p)
int is_number (cell_ptr p)
num nvalue (cell_ptr p)
long ivalue (cell_ptr p)
double rvalue (cell_ptr p)
int is_integer (cell_ptr p)
int is_real (cell_ptr p)
int is_character (cell_ptr p)
long charvalue (cell_ptr p)
int is_vector (cell_ptr p)
int is_blackbox (cell_ptr p)
void * blackboxvalue (cell_ptr p)
int is_port (cell_ptr p)
int is_pair (cell_ptr p)
cell_ptr pair_car (cell_ptr p)
cell_ptr pair_cdr (cell_ptr p)
cell_ptr set_car (cell_ptr p, cell_ptr q)
cell_ptr set_cdr (cell_ptr p, cell_ptr q)
int is_symbol (cell_ptr p)
char * symname (cell_ptr p)
int symlen (cell_ptr p)
int hasprop (cell_ptr p)
int is_syntax (cell_ptr p)
int is_proc (cell_ptr p)
int is_foreign (cell_ptr p)
char * syntaxname (cell_ptr p)
int is_closure (cell_ptr p)
cell_ptr closure_code (cell_ptr p)
cell_ptr closure_env (cell_ptr p)
int is_continuation (cell_ptr p)
int is_promise (cell_ptr p)
int is_environment (cell_ptr p)
int is_immutable (cell_ptr p)
void setimmutable (cell_ptr p)

Class Documentation

struct port

Definition at line 24 of file scheme-private.h.

Class Members
unsigned char kind
union port rep
struct scheme

Definition at line 61 of file scheme-private.h.

Collaboration diagram for scheme:
Class Members
char * alloc_seg
cell_ptr args
cell_ptr c_nest
cell_ptr cell_seg
cell_ptr code
cell_ptr COLON_HOOK
cell_ptr COMPILE_HOOK
cell_ptr dump
void * dump_base
int dump_size
cell_ptr envir
cell_ptr EOF_OBJ
cell_ptr ERROR_HOOK
void * ext_data
cell_ptr F
long fcells
cell_ptr FEED_TO
int file_i
func_dealloc free
cell_ptr free_cell
char gc_verbose
long gensym_cnt
cell_ptr global_env
cell_ptr inport
int interactive_repl
cell_ptr LAMBDA
int last_cell_seg
char linebuff
port load_stack
cell_ptr loadport
func_alloc malloc
int nesting
int nesting_stack
cell_ptr NIL
char no_memory
cell_ptr oblist
int op
cell_ptr outport
int print_flag
cell_ptr QQUOTE
cell_ptr QUOTE
int retcode
cell_ptr save_inport
cell_ptr SHARP_HOOK
cell_ptr sink
char strbuff
cell_ptr T
FILE * tmpfp
int tok
int tracing
cell_ptr UNQUOTE
cell_ptr UNQUOTESP
cell_ptr value
struct scheme_interface * vptr
union port.rep

Definition at line 26 of file scheme-private.h.

Class Members
rep stdio
rep string
struct port.rep.stdio

Definition at line 27 of file scheme-private.h.

Class Members
int closeit
int curr_line
FILE * file
char * filename
struct port.rep.string

Definition at line 35 of file scheme-private.h.

Class Members
char * curr
char * past_the_end
char * start
union cell._object

Definition at line 46 of file scheme-private.h.

Class Members
_object _cons
foreign_func _ff
num _number
port * _port
_object _string
struct cell._object._string

Definition at line 47 of file scheme-private.h.

Class Members
int _length
char * _svalue
struct cell._object._cons

Definition at line 54 of file scheme-private.h.

Class Members
struct cell * _car
struct cell * _cdr

Define Documentation

#define _OP_DEF (   A,
  B,
  C,
  D,
  E,
  OP 
)    OP,

Definition at line 150 of file scheme-private.h.

#define CELL_NSEGMENT   10 /* # of segments for cells */

Definition at line 72 of file scheme-private.h.

#define CELL_SEGSIZE   5000 /* # of cells in one segment */

Definition at line 71 of file scheme-private.h.

#define cons (   sc,
  a,
 
)    _cons(sc,a,b,0)

Definition at line 156 of file scheme-private.h.

#define immutable_cons (   sc,
  a,
 
)    _cons(sc,a,b,1)

Definition at line 157 of file scheme-private.h.

#define LINESIZE   1024

Definition at line 129 of file scheme-private.h.

#define MAXFIL   64

Definition at line 120 of file scheme-private.h.

#define STRBUFFSIZE   256

Definition at line 131 of file scheme-private.h.


Typedef Documentation

typedef struct port port

Enumeration Type Documentation

Enumerator:
OP_MAXDEFINED 

Definition at line 149 of file scheme-private.h.

                    {
#define _OP_DEF(A,B,C,D,E,OP) OP,
#include "opdefines.h"
  OP_MAXDEFINED
};
Enumerator:
port_free 
port_file 
port_string 
port_srfi6 
port_input 
port_output 
port_saw_EOF 

Definition at line 14 of file scheme-private.h.


Function Documentation

void* blackboxvalue ( cell_ptr  p)

Definition at line 215 of file scheme.c.

{ return car(p); }

Here is the caller graph for this function:

long charvalue ( cell_ptr  p)

Definition at line 199 of file scheme.c.

{ return ivalue_unchecked(p); }

Here is the caller graph for this function:

Definition at line 234 of file scheme.c.

{ return car(p); }

Here is the caller graph for this function:

Definition at line 235 of file scheme.c.

{ return cdr(p); }

Here is the caller graph for this function:

int hasprop ( cell_ptr  p)

Here is the caller graph for this function:

int is_blackbox ( cell_ptr  p)

Definition at line 206 of file scheme.c.

{ return (type(p)==T_BLACKBOX); }

Here is the caller graph for this function:

int is_character ( cell_ptr  p)

Definition at line 189 of file scheme.c.

{ return (type(p)==T_CHARACTER); }

Here is the caller graph for this function:

int is_closure ( cell_ptr  p)

Definition at line 232 of file scheme.c.

{ return (type(p)==T_CLOSURE); }

Here is the caller graph for this function:

Definition at line 237 of file scheme.c.

{ return (type(p)==T_CONTINUATION); }

Here is the caller graph for this function:

Definition at line 243 of file scheme.c.

{ return (type(p)==T_ENVIRONMENT); }

Here is the caller graph for this function:

int is_foreign ( cell_ptr  p)

Definition at line 227 of file scheme.c.

{ return (type(p)==T_FOREIGN); }

Here is the caller graph for this function:

int is_immutable ( cell_ptr  p)

Definition at line 254 of file scheme.c.

{ return (typeflag(p)&T_IMMUTABLE); }

Here is the caller graph for this function:

int is_integer ( cell_ptr  p)

Definition at line 181 of file scheme.c.

                                            {
  return is_number(p) && ((p)->_object._number.is_fixnum);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int is_number ( cell_ptr  p)

Definition at line 180 of file scheme.c.

{ return (type(p)==T_NUMBER); }

Here is the caller graph for this function:

int is_pair ( cell_ptr  p)

Definition at line 205 of file scheme.c.

{ return (type(p)==T_PAIR); }

Here is the caller graph for this function:

int is_port ( cell_ptr  p)

Definition at line 201 of file scheme.c.

{ return (type(p)==T_PORT); }

Here is the caller graph for this function:

int is_proc ( cell_ptr  p)

Definition at line 226 of file scheme.c.

{ return (type(p)==T_PROC); }

Here is the caller graph for this function:

int is_promise ( cell_ptr  p)

Definition at line 241 of file scheme.c.

{ return (type(p)==T_PROMISE); }

Here is the caller graph for this function:

int is_real ( cell_ptr  p)

Definition at line 185 of file scheme.c.

                                         {
  return is_number(p) && (!(p)->_object._number.is_fixnum);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int is_string ( cell_ptr  p)

Definition at line 171 of file scheme.c.

{ return (type(p)==T_STRING); }
int is_symbol ( cell_ptr  p)

Definition at line 217 of file scheme.c.

{ return (type(p)==T_SYMBOL); }
int is_syntax ( cell_ptr  p)

Definition at line 225 of file scheme.c.

{ return (typeflag(p)&T_SYNTAX); }

Here is the caller graph for this function:

int is_vector ( cell_ptr  p)

Definition at line 176 of file scheme.c.

{ return (type(p)==T_VECTOR); }

Here is the caller graph for this function:

long ivalue ( cell_ptr  p)

Definition at line 193 of file scheme.c.

{ return (num_is_integer(p)?(p)->_object._number.value.ivalue:(long)(p)->_object._number.value.rvalue); }

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 192 of file scheme.c.

{ return ((p)->_object._number); }

Here is the caller graph for this function:

Definition at line 210 of file scheme.c.

{ return car(p); }

Here is the caller graph for this function:

Definition at line 211 of file scheme.c.

{ return cdr(p); }

Here is the caller graph for this function:

double rvalue ( cell_ptr  p)

Definition at line 194 of file scheme.c.

{ return (!num_is_integer(p)?(p)->_object._number.value.rvalue:(double)(p)->_object._number.value.ivalue); }

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 212 of file scheme.c.

{ return car(p)=q; }

Here is the caller graph for this function:

Definition at line 213 of file scheme.c.

{ return cdr(p)=q; }

Here is the caller graph for this function:

void setimmutable ( cell_ptr  p)

Definition at line 256 of file scheme.c.

{ typeflag(p) |= T_IMMUTABLE; }

Here is the caller graph for this function:

int string_length ( cell_ptr  p)

Definition at line 191 of file scheme.c.

{ return strlength(p); }

Here is the caller graph for this function:

char* string_value ( cell_ptr  p)

Definition at line 190 of file scheme.c.

{ return strvalue(p); }

Here is the caller graph for this function:

int symlen ( cell_ptr  p)

Definition at line 219 of file scheme.c.

{ return strlength(car(p)); }

Here is the caller graph for this function:

char* symname ( cell_ptr  p)

Definition at line 218 of file scheme.c.

{ return strvalue(car(p)); }

Here is the caller graph for this function:

char* syntaxname ( cell_ptr  p)

Definition at line 228 of file scheme.c.

{ return strvalue(car(p)); }