Roxen.git / server / modules / tags / lisp.pike

version» Context lines:

Roxen.git/server/modules/tags/lisp.pike:1: Inside #if constant(Languages)
  #if constant(Languages)   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.12 1998/09/29 22:46:46 peter Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.13 1999/05/20 03:26:20 neotron Exp $";      #include <module.h>   inherit "module";      constant thread_safe=1;   #endif // constant(Languages)      array register_module()   {   #if constant(Languages)
Roxen.git/server/modules/tags/lisp.pike:241: Inside #if constant(Languages)
   object globals = RoxenId(e, id, defines);       globals->limit = query("max-eval-time");    lisp->eval( e, globals );       if (m->once)    e->once_done = 1;    return globals->lisp_result;   }    + mapping query_tag_callers() { return ([]); } +    mapping query_container_callers()   {    return ([ "lisp":tag_lisp, ]);   }      #if 0   object f_get_id_int(object arglist, object env, object globals)   {    object id = globals->roxen_id;    if (id && arglist->car->is_string)