[project @ 1999-04-27 10:06:47 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / nHandle.c

diff --git a/ghc/interpreter/nHandle.c b/ghc/interpreter/nHandle.c
index 1e601b9..063bc79 100644 (file)
--- a/ghc/interpreter/nHandle.c
+++ b/ghc/interpreter/nHandle.c
@@ -7,6 +7,7 @@
 #include <errno.h>
 #include <assert.h>
 #include <malloc.h>
+#include <stdlib.h>
 
 int nh_stdin ( void )
 {
@@ -20,6 +21,12 @@ int nh_stdout ( void )
    return (int)stdout;
 }
 
+int nh_stderr ( void )
+{
+   errno = 0;
+   return (int)stderr;
+}
+
 int nh_open ( char* fname, int wr )
 {
    FILE* f;
@@ -35,6 +42,12 @@ void nh_close ( FILE* f )
    fclose ( f );
 }
 
+void nh_flush ( FILE* f )
+{
+   errno = 0;
+   fflush ( f );
+}
+
 void nh_write ( FILE* f, int c )
 {
    errno = 0;
@@ -65,7 +78,30 @@ void nh_free ( int n )
    free ( (char*)n );
 }
 
-void nh_assign ( int p, int offset, int ch )
+void nh_store ( int p, int ch )
+{
+   *(char*)p = (char)ch;
+}
+
+int nh_load ( int p )
+{
+   return (int)(*(char*)p);
+}
+
+int nh_getenv ( int p )
+{
+   return (int)getenv ( (const char *)p );
+}
+
+extern int prog_argc;
+extern char** prog_argv;
+
+int nh_argc ( void )
+{
+   return prog_argc;
+}
+
+int nh_argvb ( int argno, int offset )
 {
-   ((char*)p)[offset] = (char)ch;
+   return (int)(prog_argv[argno][offset]);
 }