Branch: Tag:

1999-05-18

1999-05-18 03:54:38 by Per Hedbor <ph@opera.com>

added smart query_tag_callers, query_container_callers and query_if_callers.

Rev: server/base_server/module.pike:1.40

1: - /* $Id: module.pike,v 1.39 1999/04/24 17:55:02 grubba Exp $ */ + /* $Id: module.pike,v 1.40 1999/05/18 03:54:38 per Exp $ */      #include <module.h>   
651:    }    return get_font(query(base+"_font"), 32, weight, slant, "left", 0, 0);   } +  +  + mapping query_tag_callers() + { +  mapping 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 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_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; + }