fill_hook_table ()
{
  set_pointers (ulong access_key)
  {
    set_hook_table (access_key, &cmd),
    {
      cmd = {
              alloc : create_tree_node,
              free  : destroy_tree_node
            }
    };
  }

  ...

}

