/* --------------------------------------------------------------------------
 * Definition of the Hugs server API
 *
 * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the
 * Yale Haskell Group, and the OGI School of Science & Engineering at OHSU,
 * 1994-2003, All rights reserved.  It is distributed as free software under
 * the license in the file "License", which is included in the distribution.
 *
 * $RCSfile: server.h,v $
 * $Revision: 1.1 $
 * $Date: 2008/11/30 09:11:37 $
 * ------------------------------------------------------------------------*/
#include "HugsAPI.h"

/* These have non-local scope, as they're used when creating 
 * extended/delegated versions of the server API (cf. the server
 * interface provided by the .NET extensions.)
 */
extern Void   setError        Args((String));
extern Void   startEval       Args((Void));
extern Bool   safeEval        Args((Cell));
extern String ClearError      Args((Void));
extern Cell   getTypeableDict Args((Type));
extern char*  lastError;

/* Get the API method table from the currently running interpreter.
 * => the interpreter / server is assumed to have already been initialized.
 */
extern HugsServerAPI* getHugsAPI Args((Void));
/* ------------------------------------------------------------------------*/
