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.10 1998/08/10 21:39:38 per Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.11 1998/09/11 22:20:19 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:168:    [ fun, types ] = a;    }   }      mapping environments;   mapping(string:object) lisp_code;   object boot_code;      void start()   { -  werror("Lisp: starting...\n"); + // werror("Lisp: starting...\n");    boot_code = Parser( query("bootcode") )->read(); -  werror(sprintf("Read boot_code: %s\n", -  boot_code ? boot_code->print(1) : "<error>")); + // werror(sprintf("Read boot_code: %s\n", + // boot_code ? boot_code->print(1) : "<error>"));    environments = ([]);    lisp_code = ([]);   }      void init_environment(object e, object conf)   {    init_specials(e);    init_functions(e);       init_roxen_functions(e, conf);
Roxen.git/server/modules/tags/lisp.pike:295:    if (!globals->lisp_result)    return 0;    return String(arglist->car->print(1) + "\n");    return Lfalse;   }         object f_get(object arglist, object env, object globals)   {    object id = globals->roxen_id; -  werror(sprintf("lisp.pike->f_get %s\n", arglist->print(1))); + // werror(sprintf("lisp.pike->f_get %s\n", arglist->print(1)));    if (!id)    return 0; -  werror("lisp.pike->f_get: id ok\n"); + // werror("lisp.pike->f_get: id ok\n");       if (!arglist->car->to_string)    return 0;       string name = arglist->car->to_string();       if (!name)    return 0;    -  werror(sprintf("lisp.pike->f_get: name '%s'\n", name)); + // werror(sprintf("lisp.pike->f_get: name '%s'\n", name));       string res = id->variables[name];    if (res)    { -  werror(sprintf("lisp.pike->f_get: variable = '%s'\n", res)); + // werror(sprintf("lisp.pike->f_get: variable = '%s'\n", res));    return String(res);    }       res = id->misc->defines[name];    if (res)    { -  werror(sprintf("lisp.pike->f_get: define = '%s'\n", res)); + // werror(sprintf("lisp.pike->f_get: define = '%s'\n", res));    return String(res);    }       return Lfalse;   }      object f_getint(object arglist, object env, object globals)   {    object id = globals->roxen_id;    if (!id)