ghc/includes/RtsAPI.h

   1 /* ----------------------------------------------------------------------------
   2  * $Id: RtsAPI.h,v 1.18 2000/11/07 17:05:47 simonmar Exp $
   3  *
   4  * (c) The GHC Team, 1998-1999
   5  *
   6  * API for invoking Haskell functions via the RTS
   7  *
   8  * --------------------------------------------------------------------------*/
   9
  10 #ifndef RTSAPI_H
  11 #define RTSAPI_H
  12
  13 #include "HsFFI.h"
  14
  15 /*
  16  * Running the scheduler
  17  */
  18 typedef enum {
  19     NoStatus,    /* not finished yet */
  20     Success,     /* completed successfully */
  21     Killed,      /* uncaught exception */
  22     Interrupted, /* stopped in response to a call to interruptStgRts */
  23     Deadlock     /* no threads to run, but main thread hasn't finished */
  24 } SchedulerStatus;
  25
  26 typedef StgClosure *HaskellObj;
  27
  28 /* ----------------------------------------------------------------------------
  29    Starting up and shutting down the Haskell RTS.
  30    ------------------------------------------------------------------------- */
  31 extern void startupHaskell         ( int argc, char *argv[], void *init_root );
  32 extern void shutdownHaskell        ( void );
  33 extern void shutdownHaskellAndExit ( int exitCode );
  34 extern void setProgArgv            ( int argc, char *argv[] );
  35 extern void getProgArgv            ( int *argc, char **argv[] );
  36
  37 /* ----------------------------------------------------------------------------
  38    Building Haskell objects from C datatypes.
  39    ------------------------------------------------------------------------- */
  40 HaskellObj   rts_mkChar       ( HsChar   c );
  41 HaskellObj   rts_mkInt        ( HsInt    i );
  42 HaskellObj   rts_mkInt8       ( HsInt8   i );
  43 HaskellObj   rts_mkInt16      ( HsInt16  i );
  44 HaskellObj   rts_mkInt32      ( HsInt32  i );
  45 HaskellObj   rts_mkInt64      ( HsInt64  i );
  46 HaskellObj   rts_mkWord       ( HsWord   w );
  47 HaskellObj   rts_mkWord8      ( HsWord8  w );
  48 HaskellObj   rts_mkWord16     ( HsWord16 w );
  49 HaskellObj   rts_mkWord32     ( HsWord32 w );
  50 HaskellObj   rts_mkWord64     ( HsWord64 w );
  51 HaskellObj   rts_mkFloat      ( HsFloat  f );
  52 HaskellObj   rts_mkDouble     ( HsDouble f );
  53 HaskellObj   rts_mkStablePtr  ( HsStablePtr s );
  54 HaskellObj   rts_mkAddr       ( HsAddr   a );
  55 HaskellObj   rts_mkBool       ( HsBool   b );
  56 HaskellObj   rts_mkString     ( char    *s );
  57
  58 HaskellObj   rts_apply        ( HaskellObj, HaskellObj );
  59
  60 /* ----------------------------------------------------------------------------
  61    Deconstructing Haskell objects
  62    ------------------------------------------------------------------------- */
  63 HsChar       rts_getChar      ( HaskellObj );
  64 HsInt        rts_getInt       ( HaskellObj );
  65 HsInt32      rts_getInt32     ( HaskellObj );
  66 HsWord       rts_getWord      ( HaskellObj );
  67 HsWord32     rts_getWord32    ( HaskellObj );
  68 HsFloat      rts_getFloat     ( HaskellObj );
  69 HsDouble     rts_getDouble    ( HaskellObj );
  70 HsStablePtr  rts_getStablePtr ( HaskellObj );
  71 HsAddr       rts_getAddr      ( HaskellObj );
  72 HsBool       rts_getBool      ( HaskellObj );
  73
  74 /* ----------------------------------------------------------------------------
  75    Evaluating Haskell expressions
  76
  77    The versions ending in '_' allow you to specify an initial stack size.
  78    ------------------------------------------------------------------------- */
  79 SchedulerStatus
  80 rts_eval ( HaskellObj p, /*out*/HaskellObj *ret );
  81
  82 SchedulerStatus
  83 rts_eval_ ( HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret );
  84
  85 SchedulerStatus
  86 rts_evalIO ( HaskellObj p, /*out*/HaskellObj *ret );
  87
  88 SchedulerStatus
  89 rts_evalLazyIO ( HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret );
  90
  91 #if defined(PAR) || defined(SMP)
  92 SchedulerStatus
  93 rts_evalNothing(unsigned int stack_size);
  94 #endif
  95
  96 void
  97 rts_checkSchedStatus ( char* site, SchedulerStatus rc);
  98
  99 #endif /* RTSAPI_H */