fill_hook_table ()
{
  set_pointers (ulong access_key)
  {
    set_hook_table (access_key, &cmd),
    {
      cmd = {
              free : destroy_tree_node,
              move : move_tree_node,
              copy : {
                       create  : create_tree_node_copy,
                       receive : receive_tree_node_copy
                     }
            }
    };
  }

  ...

}

