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

version» Context lines:

Roxen.git/server/modules/tags/lisp.pike:1:   // This is a roxen module. Copyright © 1998 - 2000, Roxen IS.   //      #if constant(Languages)   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.16 2000/02/24 05:20:11 nilsson Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.17 2000/03/17 00:54:52 nilsson Exp $";      #include <module.h>   inherit "module";      constant thread_safe=1;      constant module_type = MODULE_PARSER;   constant module_name = "Lisp tag module";   constant module_doc = "This module defines a new tag, "    "&lt;lisp [context=foo]&gt;&lt;/lisp&gt;";
Roxen.git/server/modules/tags/lisp.pike:210:   object lisp_compile(string s)   {    object o = lisp_code[s];    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, + string simpletag_lisp(string t, mapping m, string c,    object id, object f, mapping defines)   {   // NOCACHE();       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 "";   
Roxen.git/server/modules/tags/lisp.pike:235:    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)    return Number( (int)globals->id[arglist->car->value] );    else    return 0;   }