Back to index

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

Go to the source code of this file.

Defines

#define SCHEME_EXPAND_OBSERVE_ENABLE
#define _SCHEME_EXPOBS(observer, signal, argument)   if (observer) { scheme_call_expand_observe(observer, signal, argument); } else {}
#define SCHEME_EXPAND_OBSERVE_VISIT(observer, stx)   _SCHEME_EXPOBS(observer,0,stx)
#define SCHEME_EXPAND_OBSERVE_RESOLVE(observer, stx)   _SCHEME_EXPOBS(observer,1,stx)
#define SCHEME_EXPAND_OBSERVE_RETURN(observer, stx)   _SCHEME_EXPOBS(observer,2,stx)
#define SCHEME_EXPAND_OBSERVE_NEXT(observer)   _SCHEME_EXPOBS(observer,3,NULL)
#define SCHEME_EXPAND_OBSERVE_ENTER_LIST(observer, stx)   _SCHEME_EXPOBS(observer,4,stx)
#define SCHEME_EXPAND_OBSERVE_EXIT_LIST(observer, stx)   _SCHEME_EXPOBS(observer,5,stx)
#define SCHEME_EXPAND_OBSERVE_ENTER_PRIM(observer, stx)   _SCHEME_EXPOBS(observer,6,stx)
#define SCHEME_EXPAND_OBSERVE_EXIT_PRIM(observer, stx)   _SCHEME_EXPOBS(observer,7,stx)
#define SCHEME_EXPAND_OBSERVE_ENTER_MACRO(observer, stx)   _SCHEME_EXPOBS(observer,8,stx)
#define SCHEME_EXPAND_OBSERVE_EXIT_MACRO(observer, stx)   _SCHEME_EXPOBS(observer,9,stx)
#define SCHEME_EXPAND_OBSERVE_ENTER_BLOCK(observer, stx)   _SCHEME_EXPOBS(observer,10,stx)
#define SCHEME_EXPAND_OBSERVE_SPLICE(observer, stx)   _SCHEME_EXPOBS(observer,11,stx)
#define SCHEME_EXPAND_OBSERVE_BLOCK_TO_LIST(observer, stx)   _SCHEME_EXPOBS(observer,12,stx)
#define SCHEME_EXPAND_OBSERVE_NEXT_GROUP(observer)   _SCHEME_EXPOBS(observer,13,NULL)
#define SCHEME_EXPAND_OBSERVE_BLOCK_TO_LETREC(observer, stx)   _SCHEME_EXPOBS(observer,14,stx)
#define SCHEME_EXPAND_OBSERVE_LET_RENAMES(observer, vars, body)   _SCHEME_EXPOBS(observer,16, scheme_make_pair(vars, body))
#define SCHEME_EXPAND_OBSERVE_LAMBDA_RENAMES(observer, vars, body)   _SCHEME_EXPOBS(observer,17, scheme_make_pair(vars, body))
#define SCHEME_EXPAND_OBSERVE_CASE_LAMBDA_RENAMES(observer, vars, body)   _SCHEME_EXPOBS(observer,18, scheme_make_pair(vars, body))
#define SCHEME_EXPAND_OBSERVE_LETREC_SYNTAXES_RENAMES(observer, sbinds, vbinds, body)   _SCHEME_EXPOBS(observer,19, scheme_make_pair(sbinds, scheme_make_pair(vbinds, body)))
#define SCHEME_EXPAND_OBSERVE_PHASE_UP(observer)   _SCHEME_EXPOBS(observer,20,NULL)
#define SCHEME_EXPAND_OBSERVE_MACRO_PRE_X(observer, stx)   _SCHEME_EXPOBS(observer,21,stx)
#define SCHEME_EXPAND_OBSERVE_MACRO_POST_X(observer, stx)   _SCHEME_EXPOBS(observer,22,stx)
#define SCHEME_EXPAND_OBSERVE_MODULE_BODY(observer, list)   _SCHEME_EXPOBS(observer,23,list)
#define SCHEME_EXPAND_OBSERVE_BLOCK_RENAMES(observer, old, new)   _SCHEME_EXPOBS(observer,24, scheme_make_pair(old, new))
#define SCHEME_EXPAND_OBSERVE_PRIM_STOP(observer)   _SCHEME_EXPOBS(observer,100,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_MODULE(observer)   _SCHEME_EXPOBS(observer,101,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_MODULE_BEGIN(observer)   _SCHEME_EXPOBS(observer,102,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_DEFINE_SYNTAXES(observer)   _SCHEME_EXPOBS(observer,103,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_DEFINE_VALUES(observer)   _SCHEME_EXPOBS(observer,104,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_IF(observer)   _SCHEME_EXPOBS(observer,105,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_WCM(observer)   _SCHEME_EXPOBS(observer,106,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_BEGIN(observer)   _SCHEME_EXPOBS(observer,107,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_BEGIN0(observer)   _SCHEME_EXPOBS(observer,108,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_APP(observer)   _SCHEME_EXPOBS(observer,109,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_LAMBDA(observer)   _SCHEME_EXPOBS(observer,110,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_CASE_LAMBDA(observer)   _SCHEME_EXPOBS(observer,111,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_LET_VALUES(observer)   _SCHEME_EXPOBS(observer,112,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_LETREC_VALUES(observer)   _SCHEME_EXPOBS(observer,113,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_LETREC_SYNTAXES_VALUES(observer)   _SCHEME_EXPOBS(observer,114,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_DATUM(observer)   _SCHEME_EXPOBS(observer,115,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_TOP(observer)   _SCHEME_EXPOBS(observer,116,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_QUOTE(observer)   _SCHEME_EXPOBS(observer,117,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_QUOTE_SYNTAX(observer)   _SCHEME_EXPOBS(observer,118,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_REQUIRE(observer)   _SCHEME_EXPOBS(observer,119,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_REQUIRE_FOR_SYNTAX(observer)   _SCHEME_EXPOBS(observer,120,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_REQUIRE_FOR_TEMPLATE(observer)   _SCHEME_EXPOBS(observer,121,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_PROVIDE(observer)   _SCHEME_EXPOBS(observer,122,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_SET(observer)   _SCHEME_EXPOBS(observer,123,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_LETSTAR_VALUES(observer)   _SCHEME_EXPOBS(observer,124,NULL)
#define SCHEME_EXPAND_OBSERVE_PRIM_EXPRESSION(obs)   _SCHEME_EXPOBS(obs,138,scheme_false)
#define SCHEME_EXPAND_OBSERVE_PRIM_VARREF(obs)   _SCHEME_EXPOBS(obs,149,scheme_false)
#define SCHEME_EXPAND_OBSERVE_VARIABLE(observer, e1, e2)   _SCHEME_EXPOBS(observer,125,scheme_make_pair(e1, e2))
#define SCHEME_EXPAND_OBSERVE_ENTER_CHECK(observer, stx)   _SCHEME_EXPOBS(observer,126,stx)
#define SCHEME_EXPAND_OBSERVE_EXIT_CHECK(observer, stx)   _SCHEME_EXPOBS(observer,127,stx)
#define SCHEME_EXPAND_OBSERVE_LIFT_LOOP(observer, stx)   _SCHEME_EXPOBS(observer,128,stx)
#define SCHEME_EXPAND_OBSERVE_LETLIFT_LOOP(observer, stx)   _SCHEME_EXPOBS(observer,136,stx)
#define SCHEME_EXPAND_OBSERVE_MODULE_LIFT_LOOP(observe, stxs)   _SCHEME_EXPOBS(observer,137,stxs)
#define SCHEME_EXPAND_OBSERVE_MODULE_LIFT_END_LOOP(observer, stx)   _SCHEME_EXPOBS(observer,135,stx)
#define SCHEME_EXPAND_OBSERVE_LOCAL_LIFT(obs, id, stx)   _SCHEME_EXPOBS(obs,129,scheme_make_pair(id,stx))
#define SCHEME_EXPAND_OBSERVE_LIFT_STATEMENT(obs, stx)   _SCHEME_EXPOBS(obs,134,stx)
#define SCHEME_EXPAND_OBSERVE_ENTER_LOCAL(obs, stx)   _SCHEME_EXPOBS(obs,130,stx)
#define SCHEME_EXPAND_OBSERVE_EXIT_LOCAL(obs, stx)   _SCHEME_EXPOBS(obs,131,stx)
#define SCHEME_EXPAND_OBSERVE_LOCAL_PRE(obs, stx)   _SCHEME_EXPOBS(obs,132,stx)
#define SCHEME_EXPAND_OBSERVE_LOCAL_POST(obs, stx)   _SCHEME_EXPOBS(obs,133,stx)
#define SCHEME_EXPAND_OBSERVE_ENTER_LOCAL_EXPR(obs, stx)   _SCHEME_EXPOBS(obs,139,stx)
#define SCHEME_EXPAND_OBSERVE_EXIT_LOCAL_EXPR(obs, stx, opaque)   _SCHEME_EXPOBS(obs,140,scheme_make_pair(stx,opaque))
#define SCHEME_EXPAND_OBSERVE_START_EXPAND(obs)   _SCHEME_EXPOBS(obs,141,scheme_false)
#define SCHEME_EXPAND_OBSERVE_TAG(obs, stx)   _SCHEME_EXPOBS(obs,142,stx)
#define SCHEME_EXPAND_OBSERVE_LOCAL_BIND(obs, ids)   _SCHEME_EXPOBS(obs,143,ids)
#define SCHEME_EXPAND_OBSERVE_ENTER_BIND(obs)   _SCHEME_EXPOBS(obs,144,scheme_false)
#define SCHEME_EXPAND_OBSERVE_EXIT_BIND(obs)   _SCHEME_EXPOBS(obs,145,scheme_false)
#define SCHEME_EXPAND_OBSERVE_OPAQUE_EXPR(obs, val)   _SCHEME_EXPOBS(obs,146,val)
#define SCHEME_EXPAND_OBSERVE_RENAME_LIST(obs, vals)   _SCHEME_EXPOBS(obs,147,vals)
#define SCHEME_EXPAND_OBSERVE_RENAME_ONE(obs, val)   _SCHEME_EXPOBS(obs,148,val)

Functions

void scheme_call_expand_observe (Scheme_Object *obs, int signal, Scheme_Object *argument)
Scheme_Objectscheme_expand_observe_renames (Scheme_Object *env_pair)
void scheme_init_expand_observe (Scheme_Env *)
Scheme_Objectscheme_get_expand_observe ()

Define Documentation

#define _SCHEME_EXPOBS (   observer,
  signal,
  argument 
)    if (observer) { scheme_call_expand_observe(observer, signal, argument); } else {}

Definition at line 14 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_BLOCK_RENAMES (   observer,
  old,
  new 
)    _SCHEME_EXPOBS(observer,24, scheme_make_pair(old, new))

Definition at line 54 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_BLOCK_TO_LETREC (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,14,stx)

Definition at line 39 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_BLOCK_TO_LIST (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,12,stx)

Definition at line 37 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_CASE_LAMBDA_RENAMES (   observer,
  vars,
  body 
)    _SCHEME_EXPOBS(observer,18, scheme_make_pair(vars, body))

Definition at line 44 of file schexpobs.h.

Definition at line 5 of file schexpobs.h.

Definition at line 158 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_BLOCK (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,10,stx)

Definition at line 35 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_CHECK (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,126,stx)

Definition at line 118 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_LIST (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,4,stx)

Definition at line 29 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_LOCAL (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,130,stx)

Definition at line 136 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_LOCAL_EXPR (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,139,stx)

Definition at line 145 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_MACRO (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,8,stx)

Definition at line 33 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_ENTER_PRIM (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,6,stx)

Definition at line 31 of file schexpobs.h.

Definition at line 160 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_EXIT_CHECK (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,127,stx)

Definition at line 120 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_EXIT_LIST (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,5,stx)

Definition at line 30 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_EXIT_LOCAL (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,131,stx)

Definition at line 138 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_EXIT_LOCAL_EXPR (   obs,
  stx,
  opaque 
)    _SCHEME_EXPOBS(obs,140,scheme_make_pair(stx,opaque))

Definition at line 147 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_EXIT_MACRO (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,9,stx)

Definition at line 34 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_EXIT_PRIM (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,7,stx)

Definition at line 32 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LAMBDA_RENAMES (   observer,
  vars,
  body 
)    _SCHEME_EXPOBS(observer,17, scheme_make_pair(vars, body))

Definition at line 42 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LET_RENAMES (   observer,
  vars,
  body 
)    _SCHEME_EXPOBS(observer,16, scheme_make_pair(vars, body))

Definition at line 40 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LETLIFT_LOOP (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,136,stx)

Definition at line 125 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LETREC_SYNTAXES_RENAMES (   observer,
  sbinds,
  vbinds,
  body 
)    _SCHEME_EXPOBS(observer,19, scheme_make_pair(sbinds, scheme_make_pair(vbinds, body)))

Definition at line 46 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LIFT_LOOP (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,128,stx)

Definition at line 123 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LIFT_STATEMENT (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,134,stx)

Definition at line 134 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LOCAL_BIND (   obs,
  ids 
)    _SCHEME_EXPOBS(obs,143,ids)

Definition at line 156 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LOCAL_LIFT (   obs,
  id,
  stx 
)    _SCHEME_EXPOBS(obs,129,scheme_make_pair(id,stx))

Definition at line 132 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LOCAL_POST (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,133,stx)

Definition at line 142 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_LOCAL_PRE (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,132,stx)

Definition at line 140 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_MACRO_POST_X (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,22,stx)

Definition at line 51 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_MACRO_PRE_X (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,21,stx)

Definition at line 50 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_MODULE_BODY (   observer,
  list 
)    _SCHEME_EXPOBS(observer,23,list)

Definition at line 53 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_MODULE_LIFT_END_LOOP (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,135,stx)

Definition at line 129 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_MODULE_LIFT_LOOP (   observe,
  stxs 
)    _SCHEME_EXPOBS(observer,137,stxs)

Definition at line 127 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_NEXT (   observer)    _SCHEME_EXPOBS(observer,3,NULL)

Definition at line 28 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_NEXT_GROUP (   observer)    _SCHEME_EXPOBS(observer,13,NULL)

Definition at line 38 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_OPAQUE_EXPR (   obs,
  val 
)    _SCHEME_EXPOBS(obs,146,val)

Definition at line 163 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PHASE_UP (   observer)    _SCHEME_EXPOBS(observer,20,NULL)

Definition at line 48 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_APP (   observer)    _SCHEME_EXPOBS(observer,109,NULL)

Definition at line 76 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_BEGIN (   observer)    _SCHEME_EXPOBS(observer,107,NULL)

Definition at line 72 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_BEGIN0 (   observer)    _SCHEME_EXPOBS(observer,108,NULL)

Definition at line 74 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_CASE_LAMBDA (   observer)    _SCHEME_EXPOBS(observer,111,NULL)

Definition at line 80 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_DATUM (   observer)    _SCHEME_EXPOBS(observer,115,NULL)

Definition at line 88 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_DEFINE_SYNTAXES (   observer)    _SCHEME_EXPOBS(observer,103,NULL)

Definition at line 64 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_DEFINE_VALUES (   observer)    _SCHEME_EXPOBS(observer,104,NULL)

Definition at line 66 of file schexpobs.h.

Definition at line 109 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_IF (   observer)    _SCHEME_EXPOBS(observer,105,NULL)

Definition at line 68 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_LAMBDA (   observer)    _SCHEME_EXPOBS(observer,110,NULL)

Definition at line 78 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_LET_VALUES (   observer)    _SCHEME_EXPOBS(observer,112,NULL)

Definition at line 82 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_LETREC_SYNTAXES_VALUES (   observer)    _SCHEME_EXPOBS(observer,114,NULL)

Definition at line 86 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_LETREC_VALUES (   observer)    _SCHEME_EXPOBS(observer,113,NULL)

Definition at line 84 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_LETSTAR_VALUES (   observer)    _SCHEME_EXPOBS(observer,124,NULL)

Definition at line 107 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_MODULE (   observer)    _SCHEME_EXPOBS(observer,101,NULL)

Definition at line 60 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_MODULE_BEGIN (   observer)    _SCHEME_EXPOBS(observer,102,NULL)

Definition at line 62 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_PROVIDE (   observer)    _SCHEME_EXPOBS(observer,122,NULL)

Definition at line 102 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_QUOTE (   observer)    _SCHEME_EXPOBS(observer,117,NULL)

Definition at line 92 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_QUOTE_SYNTAX (   observer)    _SCHEME_EXPOBS(observer,118,NULL)

Definition at line 94 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_REQUIRE (   observer)    _SCHEME_EXPOBS(observer,119,NULL)

Definition at line 96 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_REQUIRE_FOR_SYNTAX (   observer)    _SCHEME_EXPOBS(observer,120,NULL)

Definition at line 98 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_REQUIRE_FOR_TEMPLATE (   observer)    _SCHEME_EXPOBS(observer,121,NULL)

Definition at line 100 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_SET (   observer)    _SCHEME_EXPOBS(observer,123,NULL)

Definition at line 105 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_STOP (   observer)    _SCHEME_EXPOBS(observer,100,NULL)

Definition at line 58 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_TOP (   observer)    _SCHEME_EXPOBS(observer,116,NULL)

Definition at line 90 of file schexpobs.h.

Definition at line 111 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_PRIM_WCM (   observer)    _SCHEME_EXPOBS(observer,106,NULL)

Definition at line 70 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_RENAME_LIST (   obs,
  vals 
)    _SCHEME_EXPOBS(obs,147,vals)

Definition at line 166 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_RENAME_ONE (   obs,
  val 
)    _SCHEME_EXPOBS(obs,148,val)

Definition at line 169 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_RESOLVE (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,1,stx)

Definition at line 26 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_RETURN (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,2,stx)

Definition at line 27 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_SPLICE (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,11,stx)

Definition at line 36 of file schexpobs.h.

Definition at line 150 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_TAG (   obs,
  stx 
)    _SCHEME_EXPOBS(obs,142,stx)

Definition at line 153 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_VARIABLE (   observer,
  e1,
  e2 
)    _SCHEME_EXPOBS(observer,125,scheme_make_pair(e1, e2))

Definition at line 115 of file schexpobs.h.

#define SCHEME_EXPAND_OBSERVE_VISIT (   observer,
  stx 
)    _SCHEME_EXPOBS(observer,0,stx)

Definition at line 25 of file schexpobs.h.


Function Documentation

void scheme_call_expand_observe ( Scheme_Object obs,
int  signal,
Scheme_Object argument 
)

Definition at line 6444 of file syntax.c.

{
  if (!SCHEME_PROCP(obs)) {
    scheme_signal_error("internal error: expand-observer should never be non-procedure");
  } else {
    Scheme_Object *buf[2];
    buf[0] = scheme_make_integer(tag);
    if (obj) {
      buf[1] = obj;
    } else {
      buf[1] = scheme_false;
    }
    scheme_apply(obs, 2, buf);
  }
}

Definition at line 6470 of file syntax.c.

{
  Scheme_Object *obs;
  obs = scheme_get_param(scheme_current_config(),
                         MZCONFIG_EXPAND_OBSERVE);
  if (SCHEME_PROCP(obs)) {
    return obs;
  } else {
    return NULL;
  }
}

Here is the caller graph for this function:

Definition at line 6482 of file syntax.c.

{
  Scheme_Env *newenv;
  Scheme_Object *modname;

  modname = scheme_intern_symbol("#%expobs");
  newenv = scheme_primitive_module(modname, env);

  scheme_add_global_constant
    ("current-expand-observe",
     scheme_register_parameter(current_expand_observe,
                               "current-expand-observe",
                               MZCONFIG_EXPAND_OBSERVE),
     newenv);
  scheme_finish_primitive_module(newenv);

}

Here is the call graph for this function:

Here is the caller graph for this function: