[PATCH] svn_fs__dag_txn_root

[Yoshiki Hayashi <yo...@xemacs.org>]

Implementing this function was easy.  It's almost same as
svn_fs__dag_revision_root.

* dag.c (svn_fs__dag_txn_root): New function.

Index: subversion/libsvn_fs/dag.c
===================================================================
RCS file: /cvs/subversion/subversion/libsvn_fs/dag.c,v
retrieving revision 1.40
diff -u -r1.40 dag.c
--- subversion/libsvn_fs/dag.c	2001/02/24 22:39:11	1.40
+++ subversion/libsvn_fs/dag.c	2001/02/26 08:58:30
@@ -246,7 +246,7 @@
   /* The property list is the 2nd item in the header skel. */
   skel_t *props = header->children->next;
 
-  /* Return a copy dup'd in TRAIL's pool, to fufill this routine's
+  /* Return a copy dup'd in TRAIL's pool, to fulfill this routine's
      promise about lifetimes.  This is instead of doing fancier
      cache-y things. */
   *proplist_p = svn_fs__copy_skel (props, trail->pool);
@@ -346,6 +346,29 @@
   return SVN_NO_ERROR;
 }
 
+
+svn_error_t *
+svn_fs__dag_txn_root (dag_node_t **node_p,
+                      svn_fs_t *fs,
+                      const char *txn,
+                      trail_t *trail)
+{
+  svn_fs_id_t *root_id, *ignored;
+  skel_t *root_contents;
+  dag_node_t *root_node;
+
+  SVN_ERR (svn_fs__get_txn (&root_id, &ignored, fs, txn, trail));
+  SVN_ERR (svn_fs__get_node_revision (&root_contents, fs, root_id, trail));
+
+  root_node = apr_pcalloc (trail->pool, sizeof (*root_node));
+  root_node->fs = fs;
+  root_node->id = root_id;
+  root_node->contents = root_contents;
+  root_node->pool = trail->pool;
+
+  *node_p = root_node;
+  return SVN_NO_ERROR;
+}
 
 
 svn_error_t *

-- 
Yoshiki Hayashi