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

version» Context lines:

Roxen.git/server/modules/tags/lisp.pike:1: + #if constant(Languages)   #define error(X) throw( ({ (X), backtrace() }) ) - constant cvs_version = "$Id: lisp.pike,v 1.11 1998/09/11 22:20:19 per Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.12 1998/09/29 22:46:46 peter Exp $";      #include <module.h>   inherit "module";      constant thread_safe=1; -  + #endif // constant(Languages)      array register_module()   { -  + #if constant(Languages)    return ({ MODULE_PARSER, "Lisp tag module",    "This module defines a new tag, "    "&lt;lisp [context=foo]&gt;&lt;/lisp&gt;", 0, ({}) }); -  + #endif // constant(Languages)   }    -  + #if constant(Languages)   void create()   {    defvar("max-eval-time", 10000, "Max eval time", TYPE_INT);       defvar("bootcode", "(begin)",    "Lisp code executed to initialize the top-level environments.",    TYPE_TEXT);       defvar("enable_context", 1, "Enable the context attribute.",    TYPE_FLAG);
Roxen.git/server/modules/tags/lisp.pike:279: Inside #if 0
   if(m)    t = make_symbol( (string)val[i] );    else    t = stringp(val[i])?String(val[i]):Number((int)val[i]);    res = Cons( t , res );    }    return res;    }    return Nil;   } - #endif + #endif // 0      /* Returns a string, instead of outputting it directly.    * Usually, you want to html-quote it before output. */   object f_display(object arglist, object env, object globals)   {    if (!globals->lisp_result)    return 0;    return String(arglist->car->print(1) + "\n");    return Lfalse;   }
Roxen.git/server/modules/tags/lisp.pike:387: Inside #if 0
   string f = arglist->car->print();    int n = (arglist->cdr && (int)arglist->cdr->car->value) || 75;    string res = "";    while(strlen(f))    {    res += f[..n-1]+"\n";    f = f[n..];    }    return String( res );   } - #endif + #endif // 0      void init_roxen_functions(object environment, object conf)   {    environment->extend(make_symbol("format"), Builtin(f_format));       environment->extend(make_symbol("r-get-string"), Builtin(f_get));    environment->extend(make_symbol("r-get-int"), Builtin(f_getint));    environment->extend(make_symbol("write"), Builtin(f_write));    environment->extend(make_symbol("display"), Builtin(f_display));   
Roxen.git/server/modules/tags/lisp.pike:418:    // environment->extend(make_symbol("setcdr!"), Builtin(f_setcdr));    // environment->extend(make_symbol("cons"), Builtin(f_cons));    // environment->extend(make_symbol("list"), Builtin(f_list));       mapping m = conf->api_functions();    foreach(indices(m), string f)    environment->extend(make_symbol("r-" + replace(f, "_", "-")),    API_Function( m[f] ));   }    -  + #endif // constant(Languages)