1 files changed, 41 insertions, 0 deletions
diff --git a/gnu/libexec/uucp/libunix/lcksys.c b/gnu/libexec/uucp/libunix/lcksys.c
new file mode 100644
index 000000000000..4ece16afe7b5
--- /dev/null
+++ b/gnu/libexec/uucp/libunix/lcksys.c
@@ -0,0 +1,41 @@
+/* lcksys.c
+   Lock and unlock a remote system.  */
+
+#include "uucp.h"
+
+#include "uudefs.h"
+#include "uuconf.h"
+#include "sysdep.h"
+#include "system.h"
+
+/* Lock a remote system.  */
+
+boolean
+fsysdep_lock_system (qsys)
+     const struct uuconf_system *qsys;
+{
+  char *z;
+  boolean fret;
+
+  z = zbufalc (strlen (qsys->uuconf_zname) + sizeof "LCK..");
+  sprintf (z, "LCK..%.8s", qsys->uuconf_zname);
+  fret = fsdo_lock (z, FALSE, (boolean *) NULL);
+  ubuffree (z);
+  return fret;
+}
+
+/* Unlock a remote system.  */
+
+boolean
+fsysdep_unlock_system (qsys)
+     const struct uuconf_system *qsys;
+{
+  char *z;
+  boolean fret;
+
+  z = zbufalc (strlen (qsys->uuconf_zname) + sizeof "LCK..");
+  sprintf (z, "LCK..%.8s", qsys->uuconf_zname);
+  fret = fsdo_unlock (z, FALSE);
+  ubuffree (z);
+  return fret;
+}