adding zephyr-im master branch

zwgc/browser.c

@@ -0,0 +1,55 @@
+/* This file is part of the Project Athena Zephyr Notification System.
+ * It is one of the source files comprising zwgc, the Zephyr WindowGram
+ * client.
+ *
+ *      Created by:     Marc Horowitz <marc@athena.mit.edu>
+ *
+ *      $Id$
+ *
+ *      Copyright (c) 1989 by the Massachusetts Institute of Technology.
+ *      For copying and distribution information, see the file
+ *      "mit-copyright.h".
+ */
+
+#if (!defined(lint) && !defined(SABER))
+static char rcsid_browser_c[] = "$Id$";
+#endif
+
+#include <zephyr/mit-copyright.h>
+
+#include <sysdep.h>
+#include <sys/socket.h>
+#include <sys/un.h>
+#include "zwgc.h"
+
+static int browser_fd;
+struct sockaddr_un sun;
+
+int BOpenSocket()
+{
+   int fd,len;
+   char *temp;
+
+   if ((fd=socket(PF_UNIX,SOCK_STREAM,0)) == -1)
+      return(-1);
+
+   sun.sun_family=AF_UNIX;
+   if (temp=getenv("WGSOCK"))
+      strncpy(sun.sunpath,temp,sizeof(sun.sunpath));
+   else
+      sprintf(sun.sun_path,"/tmp/.zwgc.%d",getuid());
+   if (bind(fd,(struct sockaddr *) &sun,
+	    (len=strlen(sun.sunpath)) > sizeof(sun.sunpath)?
+	    sizeof(sun.sunpath):len) == -1) {
+      close(fd);
+      return(-1);
+   }
+
+   if (listen(fd,5) == -1) {
+      unlink(sun.sunpath);
+      close(fd);
+      return(-1);
+   }
+
+   return(fd);
+}