git.gag.com Git - debian/pforth/blob - csrc/pf_core.h

   1 /* @(#) pf_core.h 98/01/26 1.3 */
   2 #ifndef _pf_core_h
   3 #define _pf_core_h
   4
   5 /***************************************************************
   6 ** Include file for PForth 'C' Glue support
   7 **
   8 ** Author: Phil Burk
   9 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
  10 **
  11 ** The pForth software code is dedicated to the public domain,
  12 ** and any third party may reproduce, distribute and modify
  13 ** the pForth software code or any derivative works thereof
  14 ** without any compensation or license.  The pForth software
  15 ** code is provided on an "as is" basis without any warranty
  16 ** of any kind, including, without limitation, the implied
  17 ** warranties of merchantability and fitness for a particular
  18 ** purpose and their equivalents under the laws of any jurisdiction.
  19 **
  20 ***************************************************************/
  21
  22 #ifdef __cplusplus
  23 extern "C" {
  24 #endif
  25
  26 /* Main entry point fo pForth. */
  27 int32  pfDoForth( const char *DicName, const char *SourceName, int32 IfInit );
  28
  29 void   pfInitGlobals( void );
  30 cfTaskData *pfCreateTask( int32 UserStackDepth, int32 ReturnStackDepth );
  31 void   pfDeleteTask( cfTaskData *cftd );
  32 void   pfSetCurrentTask( cfTaskData *cftd );
  33
  34 cfDictionary *pfCreateDictionary( uint32 HeaderSize, uint32 CodeSize );
  35 void   pfDeleteDictionary( cfDictionary *dic );
  36
  37 void   pfSetQuiet( int32 IfQuiet );
  38 int32  pfQueryQuiet( void );
  39 int32  pfRunForth( void );
  40 int32  pfIncludeFile( const char *FileName );
  41 void   pfMessage( const char *CString );
  42 void   pfExecByName( const char *CString );
  43
  44 void   ResetForthTask( void );
  45
  46 #ifdef __cplusplus
  47 }
  48 #endif
  49
  50
  51 #endif /* _pf_core_h */