home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tcltk805.zip / tcl805s.zip / tcl8.0.5 / os2 / tclOS2Int.h < prev    next >
C/C++ Source or Header  |  2001-07-28  |  2KB  |  57 lines
  1. /*
  2.  * tclOS2Int.h --
  3.  *
  4.  *    Declarations of OS2-specific shared variables and procedures.
  5.  *
  6.  * Copyright (c) 1994-1996 Sun Microsystems, Inc.
  7.  * Copyright (c) 1998 Sun Microsystems, Inc.
  8.  * Copyright (c) 1998-2001 Illya Vaes
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  *
  13.  */
  14.  
  15. #ifndef _TCLOS2INT
  16. #define _TCLOS2INT
  17.  
  18. #ifndef _TCLINT
  19. #include "tclInt.h"
  20. #endif
  21. #ifndef _TCLPORT
  22. #include "tclPort.h"
  23. #endif
  24.  
  25. #ifdef BUILD_tcl
  26. # undef TCL_STORAGE_CLASS
  27. # define TCL_STORAGE_CLASS EXPENTRY
  28. #endif
  29.  
  30. #define FS_CASE_SENSITIVE    1
  31. #define FS_CASE_IS_PRESERVED 2
  32.  
  33. #define NEW_HANDLE    0xFFFFFFFF    /* DosDuphandle: return new handle */
  34. #define HF_STDIN    0    /* Standard input handle */
  35. #define HF_STDOUT    1    /* Standard output handle */
  36. #define HF_STDERR    2    /* Standard error handle */
  37.  
  38. extern HAB tclHab;    /* Anchor block */
  39. extern LONG rc;    /* Variable for checking return codes */
  40. extern ULONG maxPath;    /* Maximum path length */
  41. extern BOOL usePm;    /* Make use of PM calls from Tcl? */
  42. extern ULONG sysInfo[QSV_MAX];    /* Information about OS/2 and the system */
  43. #ifdef VERBOSE
  44. extern int openedFiles;    /* How many files opened (DosOpen/DosDuphandle) */
  45. #endif
  46.  
  47. /*
  48.  * Use PM events? TRUE if PM version; set to FALSE by tclOS2Main if that is
  49.  * compiled with CLI_VERSION defined.
  50.  */
  51. EXTERN EXPENTRY BOOL TclOS2GetUsePm _ANSI_ARGS_((void));
  52. EXTERN EXPENTRY void TclOS2SetUsePm _ANSI_ARGS_((BOOL value));
  53. EXTERN EXPENTRY HAB  TclOS2GetHAB _ANSI_ARGS_((void));
  54. EXTERN EXPENTRY HMQ  TclOS2GetHMQ _ANSI_ARGS_((HAB hab));
  55.  
  56. #endif    /* _TCLOS2INT */
  57.