X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_actions.ml;h=1ccacdb86e05995154c17eb9128e8f2c5a2780c7;hp=ebde9c9d78ba12c1bb36fb10d53859768f7eae37;hb=bb6a1b4cdc3fc441bb10ff4b9670895c199c6206;hpb=617e7f6bafa7de2303c08e1715004aae3141c389

diff --git a/generator/generator_actions.ml b/generator/generator_actions.ml
index ebde9c9..1ccacdb 100644
--- a/generator/generator_actions.ml
+++ b/generator/generator_actions.ml
@@ -5414,7 +5414,9 @@ to ensure the length of the file is exactly C<len> bytes.");
    "create a new file",
    "\
 This call creates a file called C<path>.  The content of the
-file is the string C<content> (which can contain any 8 bit data).");
+file is the string C<content> (which can contain any 8 bit data).
+
+See also C<guestfs_write_append>.");
 
   ("pwrite", (RInt "nbytes", [Pathname "path"; BufferIn "content"; Int64 "offset"], []), 247, [ProtocolLimitWarning],
    [InitScratchFS, Always, TestOutput (
@@ -6066,6 +6068,20 @@ is resized to the maximum size.
 
 See also L<btrfs(8)>.");
 
+  ("write_append", (RErr, [Pathname "path"; BufferIn "content"], []), 290, [ProtocolLimitWarning],
+   [InitScratchFS, Always, TestOutput (
+      [["write"; "/write_append"; "line1\n"];
+       ["write_append"; "/write_append"; "line2\n"];
+       ["write_append"; "/write_append"; "line3a"];
+       ["write_append"; "/write_append"; "line3b\n"];
+       ["cat"; "/write_append"]], "line1\nline2\nline3aline3b\n")],
+   "append content to end of file",
+   "\
+This call appends C<content> to the end of file C<path>.  If
+C<path> does not exist, then a new file is created.
+
+See also C<guestfs_write>.");
+
 ]
 
 let all_functions = non_daemon_functions @ daemon_functions