Implement primitive to map socket port numbers from host to network

order.

diff --git a/v7/src/microcode/os2sock.c b/v7/src/microcode/os2sock.c
index 72ba016d10657e65324df3dbb1ef3f2f46a47fa9..a133884e695f9eea40d2dc8062c9939c4e756e2f 100644 (file)
--- a/v7/src/microcode/os2sock.c
+++ b/v7/src/microcode/os2sock.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: os2sock.c,v 1.6 1997/11/12 22:14:09 cph Exp $
+$Id: os2sock.c,v 1.7 1998/08/31 03:57:49 cph Exp $
 
-Copyright (c) 1990-97 Massachusetts Institute of Technology
+Copyright (c) 1990-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -137,6 +137,12 @@ OS_get_service_by_name (const char * service_name, const char * protocol_name)
   return ((entry == 0) ? (-1) : (entry -> s_port));
 }
 
+unsigned short
+OS_get_service_by_number (const unsigned short port_number)
+{
+  return (htons (port_number));
+}
+
 unsigned int
 OS_host_address_length (void)
 {