/usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cGetArgs.c

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cGetArgs.c


#include <string.h>
#include "haskell2c.h"


char *
cGetArg (void)
{
  static int i=1;
  if (i<Argc) return Argv[i++];
  else return (char*)0;
}