Roxen.git / server / base_server / module.pike

version» Context lines:

Roxen.git/server/base_server/module.pike:1: - /* $Id: module.pike,v 1.68 2000/01/18 14:56:20 mast Exp $ */ + /* $Id: module.pike,v 1.69 2000/01/18 15:15:03 mast Exp $ */   #include <module.h>   #include <request_trace.h>      mapping (string:mixed *) variables=([]);   RoxenModule this = this_object();   mapping(string:array(int)) error_log=([]);      constant is_module = 1;   constant module_type = MODULE_ZERO;   constant module_name = "Unnamed module";
Roxen.git/server/base_server/module.pike:648:      mapping query_if_callers()   {    mapping m = ([]);    foreach(glob("if_*", indices( this_object())), string q)    if(functionp( this_object()[q] ))    m[replace(q[3..], "_", "-")] = this_object()[q];    return m;   }    + private RXML.TagSet module_tag_set; +    RXML.TagSet query_tag_set()   { -  +  if (!module_tag_set) {    array(function|program|object) tags =    filter (rows (this_object(), -  glob ("Tag*", -  indices (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;    else tags[i] = tags[i]();    else {    tags[i] = tags[i]();    // Bogosity: The check is really a little too late here..    if (!tags[i]->is_RXML_Tag) tags[i] = 0;    }    tags -= ({0}); -  return -  my_configuration()->module_tag_sets[this_object()] || +  module_tag_set =    (this_object()->ModuleTagSet || RXML.TagSet) (module_identifier(), tags);    } -  +  return module_tag_set; + }      mixed get_value_from_file(string path, string index, void|string pre)   {    Stdio.File file=Stdio.File();    if(!file->open(path,"r")) return 0;    if(index[sizeof(index)-2..sizeof(index)-1]=="()") {    return compile_string((pre||"")+file->read())[index[..sizeof(index)-3]]();    }    return compile_string((pre||"")+file->read())[index];   }