Back to index

plt-scheme  4.2.1
Defines | Functions
escheme.h File Reference
#include "scheme.h"
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines

#define SCHEME_DIRECT_EMBEDDED   0

Functions

Scheme_Objectscheme_initialize (Scheme_Env *global_env)
Scheme_Objectscheme_reload (Scheme_Env *global_env)
Scheme_Objectscheme_module_name (void)

Define Documentation

#define SCHEME_DIRECT_EMBEDDED   0

Definition at line 20 of file escheme.h.


Function Documentation

Definition at line 296 of file bitmatrix.c.

{
  bitmatrix_type = scheme_make_type("<bit-matrix>");

#ifdef MZ_PRECISE_GC
  /* Register traversal procedures: */
  GC_register_traversers(bitmatrix_type, bm_size, bm_mark, bm_fixup, 1, 0);
#endif

  /* Get some Scheme primitives. Conservative garbage collection sees
     any local variables we use within a function, but we have to register
     static variables: */

  scheme_register_extension_global(&mult, sizeof(Scheme_Object*));
  mult = scheme_builtin_value("*");

  scheme_register_extension_global(&add, sizeof(Scheme_Object*));
  add = scheme_builtin_value("+");

  scheme_register_extension_global(&sub, sizeof(Scheme_Object*));
  sub = scheme_builtin_value("-");

  scheme_register_extension_global(&modulo, sizeof(Scheme_Object*));
  modulo = scheme_builtin_value("modulo");

  scheme_register_extension_global(&neg, sizeof(Scheme_Object*));
  neg = scheme_builtin_value("negative?");

  return scheme_reload(env);
}

Here is the call graph for this function:

Definition at line 328 of file bitmatrix.c.

{
  /* This extension doesn't define a module: */
  return scheme_false;
}

Definition at line 259 of file bitmatrix.c.

{
  /* Define our new primitives: */

  scheme_add_global("make-bit-matrix",
                  scheme_make_prim_w_arity(make_bit_matrix,
                                        "make-bit-matrix",
                                        2, 2),
                  env);

  scheme_add_global("bit-matrix-get",
                  scheme_make_prim_w_arity(bit_matrix_get,
                                        "bit-matrix-get",
                                        3, 3),
                  env);

  scheme_add_global("bit-matrix-set!",
                  scheme_make_prim_w_arity(bit_matrix_set,
                                        "bit-matrix-set!",
                                        4, 4),
                  env);

  scheme_add_global("bit-matrix-invert!",
                  scheme_make_prim_w_arity(bit_matrix_invert,
                                        "bit-matrix-invert!",
                                        1, 1),
                  env);

  scheme_add_global("bit-matrix-clear!",
                  scheme_make_prim_w_arity(bit_matrix_clear,
                                        "bit-matrix-clear!",
                                        1, 1),
                  env);

  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function: