Repatch (from linux) of OSX IRAF

1 files changed, 23 insertions, 0 deletions

diff --git a/unix/os/net/gsocknm.c b/unix/os/net/gsocknm.c
new file mode 100644
index 00000000..453fdb70
--- /dev/null
+++ b/unix/os/net/gsocknm.c
@@ -0,0 +1,23 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include "types.h"
+
+extern	int errno;
+extern	int tcperrno;
+
+/* TCP_GSOCKNAME -- Get socket name.  Return the current network name for the
+ * indicated socket.
+ */
+tcp_gsockname (s, name, namelen)
+u_sock	s;			/* the socket			*/
+struct	sockaddr *name;		/* endpoint of communications	*/
+int	namelen;		/* maxlen in; actual len out	*/
+{
+	int	status;
+
+	/* MACHDEP */
+	status = getsockname (s, name, namelen);
+	tcperrno = errno;
+	return (status);
+}