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

/* 
 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
 *
 * $Id: progargs.c,v 1.5 2001/05/18 16:54:06 simonmar Exp $
 *
 * System.getArgs Runtime Support
 */

#include "Rts.h"

HsAddr
get_prog_argv(void)
{ 
  return prog_argv;
}

HsInt
get_prog_argc()
{
  return prog_argc;
}