1 files changed, 113 insertions, 0 deletions
diff --git a/AuLock.c b/AuLock.c
new file mode 100644
index 0000000..6c9aa8d
--- /dev/null
+++ b/AuLock.c
@@ -0,0 +1,113 @@
+/* $Xorg: AuLock.c,v 1.4 2001/02/09 02:03:42 xorgcvs Exp $ */
+
+/*
+
+Copyright 1988, 1998  The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+
+*/
+
+#include <X11/Xauth.h>
+#include <X11/Xos.h>
+#include <sys/stat.h>
+#include <errno.h>
+#ifdef X_NOT_STDC_ENV
+extern int errno;
+#define Time_t long
+extern Time_t time ();
+#else
+#include <time.h>
+#define Time_t time_t
+#endif
+#ifndef X_NOT_POSIX
+#include <unistd.h>
+#else
+#ifndef WIN32
+extern unsigned	sleep ();
+#else
+#define link rename
+#endif
+#endif
+
+#if NeedFunctionPrototypes
+int
+XauLockAuth (
+_Xconst char *file_name,
+int	retries,
+int	timeout,
+long	dead)
+#else
+int
+XauLockAuth (file_name, retries, timeout, dead)
+char	*file_name;
+int	retries;
+int	timeout;
+long	dead;
+#endif
+{
+    char	creat_name[1025], link_name[1025];
+    struct stat	statb;
+    Time_t	now;
+    int		creat_fd = -1;
+
+    if (strlen (file_name) > 1022)
+	return LOCK_ERROR;
+    (void) strcpy (creat_name, file_name);
+    (void) strcat (creat_name, "-c");
+    (void) strcpy (link_name, file_name);
+    (void) strcat (link_name, "-l");
+    if (stat (creat_name, &statb) != -1) {
+	now = time ((Time_t *) 0);
+	/*
+	 * NFS may cause ctime to be before now, special
+	 * case a 0 deadtime to force lock removal
+	 */
+	if (dead == 0 || now - statb.st_ctime > dead) {
+	    (void) unlink (creat_name);
+	    (void) unlink (link_name);
+	}
+    }
+    
+    while (retries > 0) {
+	if (creat_fd == -1) {
+	    creat_fd = creat (creat_name, 0666);
+	    if (creat_fd == -1) {
+		if (errno != EACCES)
+		    return LOCK_ERROR;
+	    } else
+		(void) close (creat_fd);
+	}
+	if (creat_fd != -1) {
+	    if (link (creat_name, link_name) != -1)
+		return LOCK_SUCCESS;
+	    if (errno == ENOENT) {
+		creat_fd = -1;	/* force re-creat next time around */
+		continue;
+	    }
+	    if (errno != EEXIST)
+		return LOCK_ERROR;
+	}
+	(void) sleep ((unsigned) timeout);
+	--retries;
+    }
+    return LOCK_TIMEOUT;
+}