Back to index

plt-scheme  4.2.1
Defines | Functions
builtin.c File Reference
#include "schpriv.h"
#include "schminc.h"
#include ""

Go to the source code of this file.


#define EVAL_ONE_STR(str)   scheme_eval_module_string(str, env)
#define EVAL_ONE_SIZED_STR(str, len)   scheme_eval_compiled_sized_string(str, len, env)


Scheme_Objectscheme_eval_compiled_sized_string_with_magic (const char *str, int len, Scheme_Env *env, Scheme_Object *magic_sym, Scheme_Object *magic_val, int multi_ok)
Scheme_Objectscheme_eval_compiled_sized_string (const char *str, int len, Scheme_Env *env)
void scheme_add_embedded_builtins (Scheme_Env *env)

Define Documentation

#define EVAL_ONE_SIZED_STR (   str,
)    scheme_eval_compiled_sized_string(str, len, env)
#define EVAL_ONE_STR (   str)    scheme_eval_module_string(str, env)

Function Documentation

Definition at line 65 of file builtin.c.

#define EVAL_ONE_STR(str) scheme_eval_module_string(str, env)
#define EVAL_ONE_SIZED_STR(str, len) scheme_eval_compiled_sized_string(str, len, env)

# include ""
# include ""

Here is the caller graph for this function:

Definition at line 60 of file builtin.c.

Scheme_Object* scheme_eval_compiled_sized_string_with_magic ( const char *  str,
int  len,
Scheme_Env env,
Scheme_Object magic_sym,
Scheme_Object magic_val,
int  multi_ok 

Definition at line 36 of file builtin.c.

  Scheme_Object *port, *expr;
  Scheme_Config *config;

  config = scheme_current_config();

  port = scheme_make_sized_byte_string_input_port(str, -len); /* negative means it's constant */

  if (!env)
    env = scheme_get_env(NULL);
  expr = scheme_internal_read(port, NULL, 1, 1, 0, 0, 0, -1, NULL, 
                              magic_sym, magic_val,

  if (multi_ok)
    return _scheme_eval_compiled_multi(expr, env);
    return _scheme_eval_compiled(expr, env);

Here is the call graph for this function: