---

zpunt.vtc

Go to the documentation of this file.

/* -*- C -*- */
punted ?:= make_tree(.stricmp);
punted_instances ?:= make_tree(.cmp2);

func Zpunt(a / b)
{
  if (b)
    insert_tree(punted_instances, table(a, b), 1);
  else
    insert_tree(punted, a, 1);
}

func Zunpunt(a / b)
{
  if (b)
    delete_tree(punted_instances, table(a, b));
  else
    delete_tree(punted, a);
}

func save_punts(fp)
{
  traverse_tree(punted, .save_punts_internal, fp);
  traverse_tree(punted_instances, .save_punt_instances_internal, fp);
}

func save_punts_internal(name, foo, fp)
{
  fprintf(fp, "Zpunt(%s);\n", stringconst(name));
}

func save_punt_instances_internal(pi, foo, fp)
{
  fprintf(fp, "Zpunt(%s,%s);\n", stringconst(pi[0]), stringconst(pi[1]));
}

func is_zpunted(z) 
{
  /* If we've explicitly punted the class/instance pair, return 1. */
  if (find_tree(punted_instances, table(z->class, z->instance)))
    return 1;
  
  /* Check to see if we're on class message and we've punted the instance. */
  if (stricmp(z->class, "message") == 0 &&
      find_tree(punted, z->instance))
    return 1;
  
  /* Otherwise, we haven't punted. */
  return 0;
}

add_to_hook(save_hook, .save_punts);

add_cmd("zpunt", 1, .Zpunt, "/zpunt <instance>");
add_cmd("zpunti", 2, .Zpunt, "/zpunti <class> <instance>");
add_cmd("zunpunt", 1, .Zunpunt, "/zunpunt <instance>");
add_cmd("zunpunti", 2, .Zunpunt, "/zunpunti <class> <instance>");

---