ghc/lib/std/cbits/progargs.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

/* 
 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
 *
 * $Id: progargs.c,v 1.3 2000/03/14 01:52:25 sof Exp $
 *
 * System.getArgs Runtime Support
 */

#include "Rts.h"
#include "stgio.h"

StgAddr
get_prog_argv(void)
{ 
  return prog_argv;
}

StgInt
get_prog_argc()
{
  return prog_argc;
}