lpc4/lib/
lpc4/lib/doc/efun/
lpc4/lib/doc/lfun/
lpc4/lib/doc/operators/
lpc4/lib/doc/simul_efuns/
lpc4/lib/doc/types/
lpc4/lib/etc/
lpc4/lib/include/
lpc4/lib/include/arpa/
lpc4/lib/obj/d/
lpc4/lib/save/
lpc4/lib/secure/
lpc4/lib/std/
lpc4/lib/std/living/
mapping properties=([]);

mixed get_property(string property)
{
  return properties[property];
}

mixed query_property(string property)
{
  mixed res;
  res=get_property(property);
  if(functionp(res))
    res=res(property);

  return res;
}

void set_property(string property,mixed value)
{
  if(value)
  {
    properties[property]=value;
  }else{
    properties=m_delete(properties,property);
  }
}

void add_property(string property)
{
  set_property(property,1);
}