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

   1 /* @(#) pfcompil.h 96/12/18 1.11 */
   2
   3 #ifndef _pforth_compile_h
   4 #define _pforth_compile_h
   5
   6 /***************************************************************
   7 ** Include file for PForth Compiler
   8 **
   9 ** Author: Phil Burk
  10 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
  11 **
  12 ** The pForth software code is dedicated to the public domain,
  13 ** and any third party may reproduce, distribute and modify
  14 ** the pForth software code or any derivative works thereof
  15 ** without any compensation or license.  The pForth software
  16 ** code is provided on an "as is" basis without any warranty
  17 ** of any kind, including, without limitation, the implied
  18 ** warranties of merchantability and fitness for a particular
  19 ** purpose and their equivalents under the laws of any jurisdiction.
  20 **
  21 ***************************************************************/
  22
  23 #ifdef __cplusplus
  24 extern "C" {
  25 #endif
  26
  27 Err   ffPushInputStream( FileStream *InputFile );
  28 ExecToken NameToToken( const ForthString *NFA );
  29 FileStream * ffConvertSourceIDToStream( cell id );
  30 FileStream *ffPopInputStream( void );
  31 cell  ffConvertStreamToSourceID( FileStream *Stream );
  32 cell  ffFind( const ForthString *WordName, ExecToken *pXT );
  33 cell  ffFindC( const char *WordName, ExecToken *pXT );
  34 cell  ffFindNFA( const ForthString *WordName, const ForthString **NFAPtr );
  35 cell  ffIncludeFile( FileStream *InputFile );
  36 cell  ffNumberQ( const char *FWord, cell *Num );
  37 cell  ffRefill( void );
  38 cell  ffTokenToName( ExecToken XT, const ForthString **NFAPtr );
  39 cell *NameToCode( ForthString *NFA );
  40 cfDictionary *pfBuildDictionary( int32 HeaderSize, int32 CodeSize );
  41 char *ffWord( char c );
  42 const ForthString *NameToPrevious( const ForthString *NFA );
  43 int32 FindSpecialCFAs( void );
  44 int32 FindSpecialXTs( void );
  45 int32 NotCompiled( const char *FunctionName );
  46 int32 ffInterpret( void );
  47 void  CreateDicEntry( ExecToken XT, const ForthStringPtr FName, uint32 Flags );
  48 void  CreateDicEntryC( ExecToken XT, const char *CName, uint32 Flags );
  49 void  ff2Literal( cell dHi, cell dLo );
  50 void  ffALiteral( cell Num );
  51 void  ffAbort( void );
  52 void  ffColon( void );
  53 void  ffCreate( void );
  54 void  ffCreateSecondaryHeader( const ForthStringPtr FName);
  55 void  ffDefer( void );
  56 void  ffFinishSecondary( void );
  57 void  ffLiteral( cell Num );
  58 void  ffOK( void );
  59 void  ffQuit( void );
  60 void  ffSemiColon( void );
  61 void  ffStringCreate( ForthStringPtr FName);
  62 void  ffStringDefer( const ForthStringPtr FName, ExecToken DefaultXT );
  63
  64 #ifdef PF_SUPPORT_FP
  65 void ffFPLiteral( PF_FLOAT fnum );
  66 #endif
  67
  68 #ifdef __cplusplus
  69 }
  70 #endif
  71
  72 #endif /* _pforth_compile_h */