ghc/lib/std/cbits/progargs.c

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