Roxen.git / server / modules / scripting / piketag.pike

version» Context lines:

Roxen.git/server/modules/scripting/piketag.pike:1:   // This is a roxen module. Copyright © 1996 - 2000, Roxen IS.   //   // Adds support for inline pike in documents.   //   // Example:   // <pike>   // return "Hello world!\n";   // </pike>    - constant cvs_version = "$Id: piketag.pike,v 2.17 2000/08/14 18:53:49 mast Exp $"; + constant cvs_version = "$Id: piketag.pike,v 2.18 2000/08/16 03:00:40 per Exp $";   constant thread_safe=1;         #if constant(Parser.C)   #define PARSER_C Parser.C   #else   #define PARSER_C Roxen._Parser.C   #endif      
Roxen.git/server/modules/scripting/piketag.pike:475:    // Zap somewhere between 25 & 50% of the cache.    for(i = query("program_cache_limit")/2; i > 0; i--)    m_delete(program_cache, a[random(sizeof(a))]);    }    program_cache[s] = p;    }    })    {    master()->set_inhibit_compile_errors(0);    if (e->get()) +  {    RXML.parse_error ("Error compiling Pike code:\n%s", e->get()); -  else throw (err); +     } -  +  else +  throw (err); +  }    master()->set_inhibit_compile_errors(0);       if(err = catch{    res = (o=p())->parse(request_id, defs, file, m);    })    RXML.run_error ("Error in Pike code: %s\n", describe_error (err));       res = (res || "") + (o && o->flush() || "");       if(o)    destruct(o);       return res;   }