New ACC version.

committer: mfx <mfx> 1059739715 +0000
2003-08-01 12:08:35 +00:00
parent 20ddd8590d
commit ab37b5ea0c
17 changed files with 1199 additions and 860 deletions
@@ -0,0 +1,254 @@
+/* ACC -- Automatic Compiler Configuration
+
+   Copyright (C) 1996-2003 Markus Franz Xaver Johannes Oberhumer
+   All Rights Reserved.
+
+   This software is a copyrighted work licensed under the terms of
+   the GNU General Public License. Please consult the file "ACC_LICENSE"
+   for details.
+
+   Markus F.X.J. Oberhumer
+   <markus@oberhumer.com>
+   http://www.oberhumer.com/
+ */
+
+
+#if !defined(ACCLIB_PUBLIC)
+#  define ACCLIB_PUBLIC(r,f)    r __ACCLIB_FUNCNAME(f)
+#endif
+
+
+/*************************************************************************
+// wrap <dirent.h>
+**************************************************************************/
+
+#if !defined(__ACCLIB_USE_OPENDIR)
+#if (ACC_OS_DOS16 || ACC_OS_DOS32 || ACC_OS_OS2 || ACC_OS_OS216 || ACC_OS_TOS || ACC_OS_WIN16 || ACC_OS_WIN32 || ACC_OS_WIN64)
+
+static int __ACCLIB_FUNCNAME(acc_opendir_init)(acc_dir_t* f, const char* path, char* buf, size_t bufsize)
+{
+    size_t l; char* p;
+    f->f_name[0] = 0; buf[0] = 0;
+    l = strlen(path);
+    if (l == 0 || bufsize <= 4 || l >= bufsize - 4)
+        return -1;
+    strcpy(buf, path); p = buf + l;
+    if (p[-1] == ':' || p[-1] == '\\' || p[-1] == '/')
+        strcpy(p, "*.*");
+    else
+        strcpy(p, "\\*.*");
+    return 0;
+}
+
+#endif
+#endif
+
+
+#if defined(__ACCLIB_USE_OPENDIR)
+
+ACCLIB_PUBLIC(int, acc_opendir) (acc_dir_t* f, const char* path)
+{
+    f->u_dirp = opendir(path);
+    if (!f->u_dirp)
+        return -2;
+    return __ACCLIB_FUNCNAME(acc_readdir)(f);
+}
+
+ACCLIB_PUBLIC(int, acc_readdir) (acc_dir_t* f)
+{
+    const struct dirent* dp;
+    f->f_name[0] = 0;
+    if (!f->u_dirp)
+        return -1;
+    dp = (const struct dirent*) readdir((DIR*) f->u_dirp);
+    if (!dp)
+        return -1;
+    if (!dp->d_name[0] || strlen(dp->d_name) >= sizeof(f->f_name))
+        return -1;
+    strcpy(f->f_name, dp->d_name);
+#if (ACC_CC_WATCOMC)
+    ACC_COMPILE_TIME_ASSERT(sizeof(f->f_name) >= sizeof(dp->d_name))
+    f->f_time = dp->d_time;
+    f->f_date = dp->d_date;
+    f->f_size = dp->d_size;
+#endif
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_closedir) (acc_dir_t* f)
+{
+    int r = -1;
+    if (f->u_dirp)
+        r = closedir((DIR*) f->u_dirp);
+    f->u_dirp = 0;
+    return r;
+}
+
+
+#elif (ACC_OS_WIN32 || ACC_OS_WIN64)
+
+ACCLIB_PUBLIC(int, acc_opendir) (acc_dir_t* f, const char* path)
+{
+    WIN32_FIND_DATAA d;
+    HANDLE h;
+    if (__ACCLIB_FUNCNAME(acc_opendir_init)(f, path, f->f_name, sizeof(f->f_name)) != 0)
+        return -1;
+    h = FindFirstFileA(f->f_name, &d);
+    f->f_name[0] = 0;
+    if ((f->u_handle = (acclib_handle_t) h) == -1)
+        return -1;
+    if (!d.cFileName[0] || strlen(d.cFileName) >= sizeof(f->f_name))
+        return -1;
+    strcpy(f->f_name, d.cFileName);
+    f->f_attr = d.dwFileAttributes;
+    f->f_size_high = d.nFileSizeHigh;
+    f->f_size_low = d.nFileSizeLow;
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_readdir) (acc_dir_t* f)
+{
+    WIN32_FIND_DATAA d;
+    f->f_name[0] = 0;
+    if (f->u_handle == -1 || FindNextFileA((HANDLE) f->u_handle, &d) == 0)
+        return -1;
+    if (!d.cFileName[0] || strlen(d.cFileName) >= sizeof(f->f_name))
+        return -1;
+    strcpy(f->f_name, d.cFileName);
+    f->f_attr = d.dwFileAttributes;
+    f->f_size_high = d.nFileSizeHigh;
+    f->f_size_low = d.nFileSizeLow;
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_closedir) (acc_dir_t* f)
+{
+    int r = -1;
+    if (f->u_handle != -1)
+        r = FindClose((HANDLE) f->u_handle);
+    f->u_handle = -1;
+    return r;
+}
+
+
+#elif (ACC_OS_DOS16 || ACC_OS_DOS32 || ACC_OS_WIN16)
+
+ACCLIB_PUBLIC(int, acc_opendir) (acc_dir_t* f, const char* path)
+{
+    char tmp[ACC_FN_PATH_MAX+1];
+    int r;
+    f->u_dirp = 0;
+    if (__ACCLIB_FUNCNAME(acc_opendir_init)(f, path, tmp, sizeof(tmp)) != 0)
+        return -1;
+#if (ACC_CC_AZTECC || ACC_CC_PACIFICC)
+    r = -1;
+#elif (ACC_CC_BORLANDC || ACC_CC_TURBOC)
+    r = findfirst(tmp, (struct ffblk*) f->u_dta, FA_HIDDEN|FA_SYSTEM|FA_RDONLY|FA_DIREC);
+#else
+    r = _dos_findfirst(tmp, _A_HIDDEN|_A_SYSTEM|_A_RDONLY|_A_SUBDIR, (struct find_t*) f->u_dta);
+#endif
+    if (r != 0) f->f_name[0] = 0;
+    if (!f->f_name[0]) return -1;
+    f->u_dirp = 1;
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_readdir) (acc_dir_t* f)
+{
+    int r;
+    f->f_name[0] = 0;
+    if (!f->u_dirp)
+        return -1;
+#if (ACC_CC_AZTECC || ACC_CC_PACIFICC)
+    r = -1;
+#elif (ACC_CC_BORLANDC || ACC_CC_TURBOC)
+    r = findnext((struct ffblk*) f->u_dta);
+#else
+    r = _dos_findnext((struct find_t*) f->u_dta);
+#endif
+    if (r != 0) f->f_name[0] = 0;
+    if (!f->f_name[0]) return -1;
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_closedir) (acc_dir_t* f)
+{
+    ACC_COMPILE_TIME_ASSERT(sizeof(*f) == 44);
+    f->f_name[0] = 0;
+    f->u_dirp = 0;
+    return 0;
+}
+
+
+#elif (ACC_OS_TOS)
+
+ACCLIB_PUBLIC(int, acc_opendir) (acc_dir_t* f, const char* path)
+{
+    char tmp[ACC_FN_PATH_MAX+1];
+    int r;
+    DTA* olddta;
+    f->u_dirp = 0;
+    if (__ACCLIB_FUNCNAME(acc_opendir_init)(f, path, tmp, sizeof(tmp)) != 0)
+        return -1;
+    olddta = Fgetdta();
+    Fsetdta((DTA*) f->u_dta);
+    r = Fsfirst(tmp, FA_HIDDEN|FA_SYSTEM|FA_READONLY|FA_SUBDIR);
+    Fsetdta(olddta);
+    if (r != 0) f->f_name[0] = 0;
+    if (!f->f_name[0]) return -1;
+    f->u_dirp = 1;
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_readdir) (acc_dir_t* f)
+{
+    int r;
+    DTA* olddta;
+    f->f_name[0] = 0;
+    if (!f->u_dirp)
+        return -1;
+    olddta = Fgetdta();
+    Fsetdta((DTA*) f->u_dta);
+    r = Fsnext();
+    Fsetdta(olddta);
+    if (r != 0) f->f_name[0] = 0;
+    if (!f->f_name[0]) return -1;
+    return 0;
+}
+
+ACCLIB_PUBLIC(int, acc_closedir) (acc_dir_t* f)
+{
+    ACC_COMPILE_TIME_ASSERT(sizeof(*f) == 44);
+    f->f_name[0] = 0;
+    f->u_dirp = 0;
+    return 0;
+}
+
+
+#else
+
+ACCLIB_PUBLIC(int, acc_opendir) (acc_dir_t* f, const char* path)
+{
+    ACC_UNUSED(path);
+    f->f_name[0] = 0;
+    return -3;
+}
+
+ACCLIB_PUBLIC(int, acc_readdir) (acc_dir_t* f)
+{
+    f->f_name[0] = 0;
+    return -1;
+}
+
+ACCLIB_PUBLIC(int, acc_closedir) (acc_dir_t* f)
+{
+    f->u_dirp = 0;
+    return -1;
+}
+
+#endif
+
+
+/*
+vi:ts=4:et
+*/