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

version» Context lines:

Roxen.git/server/modules/tags/lisp.pike:1:   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.7 1998/02/11 01:31:30 nisse Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.8 1998/03/08 13:48:55 per Exp $";      #include <module.h>   inherit "module";      constant thread_safe=1;      array register_module()   {    return ({ MODULE_PARSER, "Lisp tag module",    "This module defines a new tag, "
Roxen.git/server/modules/tags/lisp.pike:211:    if (o)    return o;    o = Parser("(begin\n" + s + " )")->read();    lisp_code[s] = o;    return o;   }      string tag_lisp(string t, mapping m, string c,    object id, object f, mapping defines)   { +  if(m->help) +  return register_module()[2]; +     string context = (query("enable_context") && m->context)    || id->not_query;    object e = find_environment(context, id->conf);    // werror(sprintf("Environment: %s\n", e->print(1)));    if(m->once && e->once_done) return "";       object lisp = lisp_compile(c);    if (!lisp)    return "<!-- syntax error in lisp code -->\n";