Subversion Repositories QNX 8.QNX8 IFS tool

#include <stdarg.h>

#include <io.h>

#include <direct.h>

static inline int vasprintf (char **out_string, const char *fmt, va_list va_args) { int retval; va_list ap; va_copy (ap, va_args); retval = _vsnprintf_s (NULL, 0, 0, fmt, ap); va_end (ap); if (retval == -1) return (-1); *out_string = malloc ((size_t) retval + 1); if (*out_string == NULL) return (-1); va_copy (ap, va_args); retval = _vsnprintf_s (*out_string, (size_t) retval + 1, (size_t) retval + 1, fmt, va_args); va_end (ap); return (retval); } // vasprintf() implementation for Windows

static inline int asprintf (char **out_string, const char *fmt, ...) { int r; va_list ap; va_start (ap, fmt); r = vasprintf (out_string, fmt, ap); va_end (ap); return (r); } // asprintf() implementation for Windows

#define strcasecmp(s1,s2) _stricmp ((s1), (s2))

#define __builtin_bswap16(x) _byteswap_ushort ((unsigned short) (x))

#define __builtin_bswap32(x) _byteswap_ulong ((unsigned long) (x))

#define __ORDER_LITTLE_ENDIAN__ 1234

#define __BYTE_ORDER__ __ORDER_LITTLE_ENDIAN__ // all Windows machines are little-endian

#define major(rdev) ((int) (((rdev) >> 10) & 0x3f)) // on Windows assume a QNX-compatible makedev(). Node is zero (local host).

#define minor(rdev) ((int) (((rdev) >> 0) & 0x3ff)) // on Windows assume a QNX-compatible makedev(). Node is zero (local host).

#define makedev(maj,min) ((dev_t) (((maj) << 10) | (min))) // on Windows assume a QNX-compatible makedev(). Node is zero (local host).

#define unlink(pathname) _unlink ((pathname))

#define ftello(fp) _ftelli64 ((fp))

#define fileno(fp) _fileno ((fp))

#define ftruncate(fd,size) _chsize_s ((fd), (size))

#define readlink(pathname,buf,maxsize) ((*_errno () = 129 /*ENOTSUP*/), -1) // readlink() not supported on Windows

#define stat _stat64

#define getcwd(buf,maxsize) _getcwd ((buf), (maxsize))

#define chdir(pathname) _chdir ((pathname))

#define putenv(v) _putenv ((v))

struct dirent { unsigned char d_namlen; char *d_name; }; // bring struct dirent/opendir() support to Windows

typedef struct DIR { intptr_t handle; struct __finddata64_t info; struct dirent result; char *pathname; char *search_pattern; } DIR;

static inline DIR *opendir (const char *name) // UNIX-like opendir() implementation for Windows

{

   DIR *dir; size_t base_length, all_length; const char *suffix;

   dir = (DIR *) malloc (sizeof (DIR)); if (dir == NULL) { /*errno already set*/ return (NULL); }

   dir->pathname = _fullpath (NULL, name, 0); // system will mallocate, caller frees

   if (dir->pathname == NULL) { free (dir); *_errno () = 12 /*ENOMEM*/; return (NULL); }

   base_length = strlen (name);

   suffix = ((name[base_length - 1] == '\\') || (name[base_length - 1] == '/') ? "*" : "/*"); // search pattern must end with suitable wildcard

   all_length = base_length + strlen (suffix) + 1;

   dir->search_pattern = (char *) malloc (all_length); if (dir->search_pattern == NULL) { free (dir->pathname); free (dir); *_errno () = 12 /*ENOMEM*/; return (NULL); }

   strcpy_s (dir->search_pattern, all_length, name); strcat_s (dir->search_pattern, all_length, suffix);

   dir->handle = _findfirst64 (dir->search_pattern, &dir->info); if (dir->handle == -1) { free (dir->search_pattern); free (dir->pathname); free (dir); return (NULL); }

   dir->result.d_namlen = 0; dir->result.d_name = NULL; // first-time initialization

   return (dir);

}

static inline int closedir (DIR *dir) // UNIX-like closedir() implementation for Windows

{

   int result = -1;

   if (dir == NULL) { *_errno () = 9 /*EBADF*/; return (-1); }

   if (dir->handle != -1) result = _findclose (dir->handle);

   if (dir->search_pattern != NULL) free (dir->search_pattern);

   if (dir->pathname != NULL) free (dir->pathname);

   free (dir);

   if (result == -1) *_errno () = 9 /*EBADF*/; // map all errors to EBADF

   return (result);

}

static inline struct dirent *readdir (DIR *dir) // UNIX-like readdir() implementation for Windows

{

   struct dirent *result = NULL;

   if ((dir == NULL) || (dir->handle == -1)) { *_errno () = 9 /*EBADF*/; return (NULL); }

   if ((dir->result.d_name == NULL) || (_findnext64 (dir->handle, &dir->info) != -1)) {

      result = &dir->result;

      result->d_name = dir->info.name;

      result->d_namlen = (unsigned char) strlen (dir->info.name);

   }

   return (result);

}

static inline void rewinddir (DIR *dir) // UNIX-like rewinddir() implementation for Windows

{

   if ((dir == NULL) || (dir->handle == -1)) { *_errno () = 9 /*EBADF*/; return; }

   _findclose (dir->handle);

   dir->handle = (long) _findfirst64 (dir->search_pattern, &dir->info);

   dir->result.d_namlen = 0; dir->result.d_name = NULL; // first-time initialization

}