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

   1 /* @(#) pf_win32.h 98/01/26 1.2 */\r
   2 #ifndef _pf_win32_h\r
   3 #define _pf_win32_h\r
   4 \r
   5 #include <conio.h>\r
   6 \r
   7 /***************************************************************\r
   8 ** WIN32 dependant include file for PForth, a Forth based on 'C'\r
   9 **\r
  10 ** Author: Phil Burk\r
  11 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom\r
  12 **\r
  13 ** The pForth software code is dedicated to the public domain,\r
  14 ** and any third party may reproduce, distribute and modify\r
  15 ** the pForth software code or any derivative works thereof\r
  16 ** without any compensation or license.  The pForth software\r
  17 ** code is provided on an "as is" basis without any warranty\r
  18 ** of any kind, including, without limitation, the implied\r
  19 ** warranties of merchantability and fitness for a particular\r
  20 ** purpose and their equivalents under the laws of any jurisdiction.\r
  21 **\r
  22 ***************************************************************/\r
  23 \r
  24 /* Include as PF_USER_INC2 for PCs */\r
  25 \r
  26 /* Modify some existing defines. */\r
  27 \r
  28 /*\r
  29 ** The PC will insert LF characters into the dictionary files unless\r
  30 ** we use "b" mode!\r
  31 */\r
  32 #undef PF_FAM_CREATE\r
  33 #define PF_FAM_CREATE  ("wb+")\r
  34 \r
  35 #undef PF_FAM_OPEN_RO\r
  36 #define PF_FAM_OPEN_RO  ("rb")\r
  37 \r
  38 #undef PF_FAM_OPEN_RW\r
  39 #define PF_FAM_OPEN_RW  ("rb+")\r
  40 \r
  41 #endif /* _pf_win32_h */\r