git.gag.com Git - debian/yforth/blob - ycore.h

   1 /* yForth? - Written by Luca Padovani (C) 1996/97
   2  * ------------------------------------------------------------------------
   3  * This software is FreeWare as long as it comes with this header in each
   4  * source file, anyway you can use it or any part of it whatever
   5  * you want. It comes without any warranty, so use it at your own risk.
   6  * ------------------------------------------------------------------------
   7  * Module name: ycore.h
   8  * Abstract:    YCore word set (non-standard words specific to yForth?. Don't
   9  *              expect to find these words in other envionments).
  10  */
  11
  12 #ifdef DECLARE_WORDS
  13 #       ifdef PROTOTYPES
  14 #               undef PROTOTYPES
  15 #       endif
  16 #       undef __YCORE_H__
  17 #else
  18 #       ifndef PROTOTYPES
  19 #               define PROTOTYPES
  20 #       endif
  21 #endif
  22
  23 #ifndef __YCORE_H__
  24 #define __YCORE_H__
  25
  26 #include "yforth.h"
  27 #include "macro.h"
  28
  29 /**************************************************************************/
  30 /* PROTOTYPES *************************************************************/
  31 /**************************************************************************/
  32
  33 code(yforth_version,                            "ver",                                  0)
  34 code(save_image,                                        "save-image",                   0)
  35 code(system,                                            "system",                               0)
  36
  37 #ifdef PROTOTYPES
  38
  39 #endif
  40
  41 #endif