Added fixes for Tcl Bug 999544 (ported from core-8-4-branch).

1 files changed, 28 insertions, 1 deletions

diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h
index 6ac24a5..52df636 100644
--- a/unix/tclUnixPort.h
+++ b/unix/tclUnixPort.h
@@ -19,7 +19,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixPort.h,v 1.51 2006/08/21 05:37:56 das Exp $
+ * RCS: @(#) $Id: tclUnixPort.h,v 1.52 2006/09/06 13:23:37 vasiljevic Exp $
  */
 
 #ifndef _TCLUNIXPORT
@@ -652,4 +652,31 @@ EXTERN int pthread_getattr_np _ANSI_ARGS_((pthread_t, pthread_attr_t *));
 #   endif /* HAVE_PTHREAD_ATTR_GET_NP */
 #endif /* TCL_THREADS */
 
+
+/*
+ * Compatibility calls 
+ */
+#include <pwd.h>
+#include <grp.h>
+EXTERN int
+TclpGetPwNam(const char *name, struct passwd *pwbuf, char *buf, size_t buflen, 
+             struct passwd **pwbufp);
+EXTERN int 
+TclpGetPwUid(uid_t uid, struct passwd *pwbuf, char  *buf, size_t buflen,
+             struct passwd **pwbufp);
+EXTERN int
+TclpGetGrNam(const char *name, struct group *gbuf, char *buf, size_t buflen, 
+             struct group **gbufp);
+EXTERN int
+TclpGetGrGid(gid_t gid, struct group *gbuf, char *buf, size_t buflen, 
+             struct group **gbufp);
+
+EXTERN struct hostent *
+TclpGetHostByName(const char *name, struct hostent *hbuf, char *buf,
+                  size_t buflen, int *h_errnop);
+
+EXTERN struct hostent *
+TclpGetHostByAddr(const char *addr, int length, int type, struct hostent *hbuf,
+                  char *buf, size_t buflen, int *h_errnop);
+
 #endif /* _TCLUNIXPORT */