Tcl Source Code

Check-in [c5df3bc724]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:forgot 3 stub macros for cygwin: TclpCreateProcess, TclpMakefile and TclpOpenFile
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: c5df3bc724a10142a37932ed19bedc10885d47d1
User & Date: jan.nijtmans 2012-03-26 07:20:37
Context
2012-03-26
14:29
fix gcc warning signed<->unsigned warning for cygwin check-in: eff5ac7172 user: jan.nijtmans tags: core-8-4-branch
08:06
3 missing stub macros for cygwin fix merge problem from Tcl 8.4 (old mac stub table got accidently b... check-in: 990925c563 user: jan.nijtmans tags: core-8-5-branch
07:20
forgot 3 stub macros for cygwin: TclpCreateProcess, TclpMakefile and TclpOpenFile check-in: c5df3bc724 user: jan.nijtmans tags: core-8-4-branch
2012-03-24
06:43
[Bug 3508771] load tclreg.dll in cygwin tclsh Implement TclWinConvertError, TclWinConvertWSAError, a... check-in: c503d14bcf user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIntPlatDecls.h.

705
706
707
708
709
710
711
712

713




714
715
716

717
718
719
720
721
722
723
724
725


726




727
728
729
730
731

732
733
734
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

/* !END!: Do not edit above this line. */

#undef TclpLocaltime_unix
#undef TclpGmtime_unix

#if !defined(__WIN32__) && !defined(MAC_TCL) && !defined(__CYGWIN__) && defined(USE_TCL_STUBS)

#undef TclpCreateTempFile




#define TclpCreateTempFile ((TclFile (*) _ANSI_ARGS_((CONST char *))) \
	tclIntPlatStubsPtr->tclWinGetPlatformId)
#undef TclpCreateProcess

#define TclpCreateProcess ((int (*) _ANSI_ARGS_((Tcl_Interp *, int, \
	CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *))) \
	tclIntPlatStubsPtr->tclWinGetTclInstance)
#undef TclpMakeFile
#define TclpMakeFile ((TclFile (*) _ANSI_ARGS_((Tcl_Channel channel, \
	int direction))) tclIntPlatStubsPtr->tclWinNToHS)
#undef TclpOpenFile
#define TclpOpenFile ((TclFile (*) _ANSI_ARGS_((CONST char *, int))) \
	tclIntPlatStubsPtr->tclWinNToHS)


#undef TclGetAndDetachPids




#define TclGetAndDetachPids ((void (*) _ANSI_ARGS_((Tcl_Interp *, Tcl_Channel))) \
	tclIntPlatStubsPtr->tclWinConvertError)
#undef TclpCloseFile
#define TclpCloseFile ((int (*) _ANSI_ARGS_((TclFile))) \
	tclIntPlatStubsPtr->tclWinConvertWSAError)

#endif

#endif /* _TCLINTPLATDECLS */







|
>
|
>
>
>
>
|
|
<
>
|
|
|
<
|
|
<
|
|
>
>
|
>
>
>
>
|
|
<
|
|
>



705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720

721
722
723
724

725
726

727
728
729
730
731
732
733
734
735
736
737

738
739
740
741
742
743
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

/* !END!: Do not edit above this line. */

#undef TclpLocaltime_unix
#undef TclpGmtime_unix

#if !defined(__WIN32__) && !defined(MAC_TCL) && defined(USE_TCL_STUBS)
#   ifdef __CYGWIN__
#	define TclpCreateProcess ((int (*) _ANSI_ARGS_((Tcl_Interp *, int, \
		CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *))) \
		tclIntPlatStubsPtr->tclMacOSXGetFileAttribute)
#	define TclpMakeFile ((TclFile (*) _ANSI_ARGS_((Tcl_Channel channel, \
	    int direction))) tclIntPlatStubsPtr->tclMacOSXMatchType)
#	define TclpOpenFile ((TclFile (*) _ANSI_ARGS_((CONST char *, int))) \
	    tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode)

#   else
#	define TclpCreateProcess ((int (*) _ANSI_ARGS_((Tcl_Interp *, int, \
		CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *))) \
		tclIntPlatStubsPtr->tclWinGetTclInstance)

#	define TclpMakeFile ((TclFile (*) _ANSI_ARGS_((Tcl_Channel channel, \
	    int direction))) tclIntPlatStubsPtr->tclWinNToHS)

#	define TclpOpenFile ((TclFile (*) _ANSI_ARGS_((CONST char *, int))) \
	    tclIntPlatStubsPtr->tclWinNToHS)

#	undef TclpCreateTempFile
#	undef TclGetAndDetachPids
#	undef TclpCloseFile

#	define TclpCreateTempFile ((TclFile (*) _ANSI_ARGS_((CONST char *))) \
		tclIntPlatStubsPtr->tclWinGetPlatformId)
#	define TclGetAndDetachPids ((void (*) _ANSI_ARGS_((Tcl_Interp *, Tcl_Channel))) \
	    tclIntPlatStubsPtr->tclWinConvertError)

#	define TclpCloseFile ((int (*) _ANSI_ARGS_((TclFile))) \
	    tclIntPlatStubsPtr->tclWinConvertWSAError)
#   endif
#endif

#endif /* _TCLINTPLATDECLS */