Override write and werror in hilfe

The overriden version uses readline->write to actually print the data.

This is rather convenient when writing asyncronous code in hilfe,
newlines are handled correctly and it interacts fairly well with the
input system.

The overriding is intentionally using add_constant to also override
debug output in modules that are loaded after hilfe is started.

lib/modules/Tools.pmod/Hilfe.pmod

@@ -2516,6 +2516,14 @@ class StdinHilfe
     exit(1);
   }
 
+  protected int do_write(string a, mixed ... args )
+  {
+    if( sizeof( args ) )
+      a = sprintf(a,@args);
+    write(a);
+    return strlen(a);
+  }
+
   //! Any hilfe statements given in the init array will be executed
   //! once .hilferc has been executed.
   protected void create(void|array(string) init)
@@ -2524,6 +2532,9 @@ class StdinHilfe
     write = readline->write;
     ::create();
     
+    add_constant("werror",do_write);
+    add_constant("write",do_write);
+
     load_hilferc();
     if(init) map(init, add_buffer);