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

   1 /* @(#) pf_win32.h 98/01/26 1.2 */
   2 #ifndef _pf_win32_h
   3 #define _pf_win32_h
   4
   5 #include <conio.h>
   6
   7 /***************************************************************
   8 ** WIN32 dependant include file for PForth, a Forth based on 'C'
   9 **
  10 ** Author: Phil Burk
  11 ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
  12 **
  13 ** Permission to use, copy, modify, and/or distribute this
  14 ** software for any purpose with or without fee is hereby granted.
  15 **
  16 ** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
  17 ** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
  18 ** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
  19 ** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
  20 ** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
  21 ** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  22 ** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  23 ** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  24 **
  25 ***************************************************************/
  26
  27 /* Include as PF_USER_INC2 for PCs */
  28
  29 /* Modify some existing defines. */
  30
  31 /*
  32 ** The PC will insert LF characters into the dictionary files unless
  33 ** we use "b" mode!
  34 */
  35 #undef PF_FAM_CREATE
  36 #define PF_FAM_CREATE  ("wb+")
  37
  38 #undef PF_FAM_OPEN_RO
  39 #define PF_FAM_OPEN_RO  ("rb")
  40
  41 #undef PF_FAM_OPEN_RW
  42 #define PF_FAM_OPEN_RW  ("rb+")
  43
  44 #endif /* _pf_win32_h */