From 20c6134aa5dbf1fffa985555acf47c74fa067e52 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 9 Dec 1998 17:09:50 +0000
Subject: [PATCH] [project @ 1998-12-09 17:09:50 by sof] Stubs for
 implementing System.getArgs

---
 ghc/lib/std/cbits/progargs.c |   26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 ghc/lib/std/cbits/progargs.c

diff --git a/ghc/lib/std/cbits/progargs.c b/ghc/lib/std/cbits/progargs.c
new file mode 100644
index 0000000..d4aaf27
--- /dev/null
+++ b/ghc/lib/std/cbits/progargs.c
@@ -0,0 +1,26 @@
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: progargs.c,v 1.1 1998/12/09 17:09:50 sof Exp $
+ *
+ * System.getArgs Runtime Support
+ */
+
+#include "Rts.h"
+#include "stgio.h"
+
+extern char** prog_argv;
+extern int prog_argc;
+
+StgAddr
+get_prog_argv(void)
+{ 
+  return prog_argv;
+}
+
+StgInt
+get_prog_argc()
+{
+  return prog_argc;
+}
+
-- 
1.7.10.4