From 90b12bd71bb9fc79a4640b9112c13ef529d0196a Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Fri, 5 Dec 2014 22:26:11 +0000
Subject: Initial commit

---
 src/libs6/ftrig1_free.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/libs6/ftrig1_free.c

(limited to 'src/libs6/ftrig1_free.c')

diff --git a/src/libs6/ftrig1_free.c b/src/libs6/ftrig1_free.c
new file mode 100644
index 0000000..091dc87
--- /dev/null
+++ b/src/libs6/ftrig1_free.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <unistd.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/djbunix.h>
+#include "ftrig1.h"
+
+void ftrig1_free (ftrig1_t *p)
+{
+  if (p->name.s)
+  {
+    unlink(p->name.s) ;
+    stralloc_free(&p->name) ;
+  }
+  if (p->fd >= 0)
+  {
+    fd_close(p->fd) ;
+    p->fd = -1 ;
+  }
+  if (p->fdw >= 0)
+  {
+    fd_close(p->fdw) ;
+    p->fdw = -1 ;
+  }
+}
-- 
cgit v1.2.3