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.13 1999/05/20 03:26:20 neotron Exp $"; + constant cvs_version = "$Id: lisp.pike,v 1.14 2000/01/23 21:41:26 nilsson 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:122: Inside #if constant(Languages)
      object apply(object arglist, object env, object globals)    {    object id;       if (!globals->roxen_id)    return 0;       array args = ({ });    int i = 0; -  int optional; +  int opt;       while(arglist != Lempty)    {    if (i == sizeof(types))    { -  if (!optional) +  if (!opt)    return 0;    else    break;    }       switch(types[i])    {    case 0: /* Any arguments left are optional */ -  optional = 1; +  opt = 1;    i++;    break;    case "string":    if (!arglist->car->is_string)    return 0;    args += ({ arglist->car->value });    arglist = arglist->cdr;    break;    case "int":    if (!arglist->car->is_number)