ghc/lib/std/cbits/progargs.c

   1 /*
   2  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
   3  *
   4  * $Id: progargs.c,v 1.1 1998/12/09 17:09:50 sof Exp $
   5  *
   6  * System.getArgs Runtime Support
   7  */
   8
   9 #include "Rts.h"
  10 #include "stgio.h"
  11
  12 extern char** prog_argv;
  13 extern int prog_argc;
  14
  15 StgAddr
  16 get_prog_argv(void)
  17 {
  18   return prog_argv;
  19 }
  20
  21 StgInt
  22 get_prog_argc()
  23 {
  24   return prog_argc;
  25 }
  26