Initial commit

1 files changed, 184 insertions, 0 deletions

diff --git a/support/dktools/dk4fne08.c b/support/dktools/dk4fne08.c
new file mode 100644
index 0000000000..379fb0ab28
--- /dev/null
+++ b/support/dktools/dk4fne08.c
@@ -0,0 +1,184 @@
+/*
+	WARNING: This file was generated by dkct.
+	Changes you make here will be lost if dkct is run again!
+	You should modify the original source and run dkct on it.
+	Original source: dk4fne08.ctr
+*/
+
+/*
+Copyright (C) 2015-2017, Dirk Krause
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice,
+  this list of conditions and the following disclaimer.
+* Redistributions in binary form must reproduce the above opyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+* Neither the name of the author nor the names of contributors may be used
+  to endorse or promote products derived from this software without specific
+  prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED.
+IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY
+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
+/**	@file dk4fne08.c The dk4fne08 module.
+*/
+
+
+#line 64 "dk4fne08.ctr"
+
+
+#include "dk4conf.h"
+
+#if DK4_ON_WINDOWS
+#ifndef WINDOWS_H_INCLUDED
+#include <windows.h>
+#define	WINDOWS_H_INCLUDED 1
+#endif
+#endif
+
+#include "dk4fne08.h"
+#include "dk4str8.h"
+#include "dk4mem.h"
+
+
+
+
+
+#line 82 "dk4fne08.ctr"
+
+
+
+/**	Constant texts used by the module.
+*/
+static const char * const dk4fne_c8_kw[] = {
+/* 0 */
+".",
+
+/* 1 */
+"..",
+
+NULL
+
+
+#line 92 "dk4fne08.ctr"
+};
+
+
+#if DK4_ON_WINDOWS
+static
+int
+dk4fne_c8_fill_directory(dk4_dir_c8_t *ptr, const char *fn, dk4_er_t *erp)
+{
+  WIN32_FIND_DATAA		 ffdata;
+  char				*nn;
+  HANDLE			 ffres;
+  int				 back = 0;
+
+  ffres = FindFirstFileA(fn, &ffdata);
+  if (INVALID_HANDLE_VALUE != ffres) {
+    back = 1;
+    do {
+      if (0 != dk4str8_cmp(dk4fne_c8_kw[0], ffdata.cFileName)) {
+        if (0 != dk4str8_cmp(dk4fne_c8_kw[1], ffdata.cFileName)) {
+	  nn = dk4str8_dup(ffdata.cFileName, erp);
+	  if (NULL != nn) {
+	    if (0 != (FILE_ATTRIBUTE_DIRECTORY & (ffdata.dwFileAttributes))) {
+	      if (0 == dk4sto_add(ptr->s_dir, (void *)nn, erp)) {
+	        back = 0;
+		dk4mem_free(nn);
+	      }
+	    } else {
+	      if (0 == dk4sto_add(ptr->s_file, (void *)nn, erp)) {
+	        back = 0;
+		dk4mem_free(nn);
+	      }
+	    }
+	  } else {
+	    back = 0;
+	  }
+	}
+      }
+    } while (FindNextFileA(ffres, &ffdata));
+    FindClose(ffres);
+  } else {
+    /* ERROR: FindFirstFile failed */
+    dk4error_set_ldetails(
+      erp, DK4_E_FINDFIRSTFILE_FAILED,
+      (long)((unsigned long)GetLastError())
+    );
+  }
+  return back;
+}
+#endif
+
+
+
+dk4_dir_c8_t *
+dk4fne_open_c8(const char *fn, dk4_er_t *erp)
+{
+#if DK4_ON_WINDOWS
+  dk4_dir_c8_t	*back	= NULL;
+  char		*p1	= NULL;
+  int		 ok	= 0;
+  if (NULL != fn) {
+
+    back = dk4mem_new(dk4_dir_c8_t, 1, erp);
+    if (NULL != back) {
+      back->path = NULL;
+      back->s_dir = NULL;
+      back->i_dir = NULL;
+      back->s_file = NULL;
+      back->i_file = NULL;
+      back->path = dk4str8_dup(fn, erp);
+      if (NULL != back->path) {
+        p1 = dk4str8_rchr(back->path, '\\');
+	if (NULL != p1) {
+	  *p1 = '\0';
+	} else {
+	  dk4mem_free(back->path);
+	  back->path = NULL;
+	}
+        back->s_dir = dk4sto_open(erp);
+	if (NULL != back->s_dir) {
+	  dk4sto_set_comp(back->s_dir, dk4dir_c8_compare, 0);
+	  back->i_dir = dk4sto_it_open(back->s_dir, erp);
+	  if (NULL != back->i_dir) {
+	    back->s_file = dk4sto_open(erp);
+	    if (NULL != back->s_file) {
+	      dk4sto_set_comp(back->s_file, dk4dir_c8_compare, 0);
+	      back->i_file = dk4sto_it_open(back->s_file, erp);
+	      if (NULL != back->i_file) {
+	        ok = dk4fne_c8_fill_directory(back, fn, erp);
+	      }
+	    }
+	  }
+	}
+      }
+      if (0 == ok) {
+        dk4dir_c8_close(back);
+	back = NULL;
+      }
+    }
+  } else {
+    dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
+  }
+  return back;
+#else
+  dk4error_set_simple_error_code(erp, DK4_E_NOT_SUPPORTED);
+  return 0;
+#endif
+}
+