move tlperl.straw to tlperl

git-svn-id: svn://tug.org/texlive/trunk@18210 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 49 insertions, 0 deletions

diff --git a/Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h
new file mode 100755
index 00000000000..273c8f71e2a
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Tk/pTk/tkPort.h
@@ -0,0 +1,49 @@
+/*
+ * tkPort.h --
+ *
+ *	This header file handles porting issues that occur because of
+ *	differences between systems.  It reads in platform specific
+ *	portability files.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * RCS: @(#) $Id: tkPort.h,v 1.3 2002/08/31 06:12:26 das Exp $
+ */
+
+#ifndef _TKPORT
+#define _TKPORT
+
+#if defined(__WIN32__) || defined(_WIN32)
+#define NEED_REAL_STDIO
+#endif
+
+#ifndef _Lang
+#include "Lang.h"
+#endif
+
+#if defined(__WIN32__) || defined(_WIN32)
+#   include "tkWinPort.h"
+#   ifndef strcasecmp
+#       define strcasecmp(a,b) stricmp(a,b)
+#   endif
+#   ifdef __CYGWIN__
+#       undef strcasecmp
+#   endif
+#else
+#   if defined(MAC_TCL)
+#	include "tkMacPort.h"
+#   elif defined(MAC_OSX_TK)
+#	include "../macosx/tkMacOSXPort.h"
+#   else
+#       ifdef __PM__
+#           include "tkOS2Port.h"
+#       else
+#           include "tkUnixPort.h"
+#       endif
+#   endif
+#endif
+
+#endif /* _TKPORT */