Roxen.git / server / base_server / module.pike

version» Context lines:

Roxen.git/server/base_server/module.pike:1:   // This file is part of Roxen Webserver.   // Copyright © 1996 - 2000, Roxen IS. - // $Id: module.pike,v 1.93 2000/07/18 15:55:53 jhs Exp $ + // $Id: module.pike,v 1.94 2000/08/05 22:01:45 mast Exp $      #include <module_constants.h>   #include <module.h>   #include <request_trace.h>      inherit "basic_defvar";   mapping(string:array(int)) error_log=([]);      constant is_module = 1;   constant module_type = MODULE_ZERO;
Roxen.git/server/base_server/module.pike:424:   void add_api_function( string name, function f, void|array(string) types)   {    _api_functions[name] = ({ f, types });   }      mapping api_functions()   {    return _api_functions;   }    - mapping query_tag_callers() + mapping(string:function) query_tag_callers()   //! Compat   { -  mapping m = ([]); +  mapping(string:function) m = ([]);    foreach(glob("tag_*", indices( this_object())), string q)    if(functionp( this_object()[q] ))    m[replace(q[4..], "_", "-")] = this_object()[q];    return m;   }    - mapping query_container_callers() + mapping(string:function) query_container_callers() + //! Compat   { -  mapping m = ([]); +  mapping(string:function) m = ([]);    foreach(glob("container_*", indices( this_object())), string q)    if(functionp( this_object()[q] ))    m[replace(q[10..], "_", "-")] = this_object()[q];    return m;   }    - mapping query_simpletag_callers() + mapping(string:array(int|function)) query_simpletag_callers()   { -  mapping m = ([]); +  mapping(string:array(int|function)) m = ([]);    foreach(glob("simpletag_*", indices(this_object())), string q)    if(functionp(this_object()[q]))    m[replace(q[10..],"_","-")] =    ({ intp (this_object()[q + "_flags"]) && this_object()[q + "_flags"],    this_object()[q] });    return m;   }    -  + mapping(string:array(int|function)) query_simple_pi_tag_callers() + { +  mapping(string:array(int|function)) m = ([]); +  foreach (glob ("simple_pi_tag_*", indices (this_object())), string q) +  if (functionp (this_object()[q])) +  m[replace (q[sizeof ("simple_pi_tag_")..], "_", "-")] = +  ({(intp (this_object()[q + "_flags"]) && this_object()[q + "_flags"]) | +  RXML.FLAG_PROC_INSTR, this_object()[q]}); +  return m; + } +    RXML.TagSet query_tag_set()   {    if (!module_tag_set) {    array(function|program|object) tags =    filter (rows (this_object(),    glob ("Tag*", indices (this_object()))),    functionp);    for (int i = 0; i < sizeof (tags); i++)    if (programp (tags[i]))    if (!tags[i]->is_RXML_Tag) tags[i] = 0;