new: append_file

Rev: lib/modules/Stdio.pmod/module.pmod:1.43

lib/modules/Stdio.pmod/module.pmod

-// $Id: module.pmod,v 1.42 1999/04/01 18:32:37 grubba Exp $
+// $Id: module.pmod,v 1.43 1999/04/07 23:04:08 hubbe Exp $
 
 import String;
 
@@ -601,6 +601,19 @@ int write_file(string filename,string what)
   return ret;
 }
 
+int append_file(string filename,string what)
+{
+  int ret;
+  object(File) f = File();
+
+  if(!f->open(filename,"awc"))
+    error("Couldn't open file "+filename+".\n");
+  
+  ret=f->write(what);
+  f->close();
+  return ret;
+}
+
 int file_size(string s)
 {
   int *stat;