compat / mingw.hon commit mingw: unset PERL5LIB by default (0e218f9)
   1#ifdef __MINGW64_VERSION_MAJOR
   2#include <stdint.h>
   3#include <wchar.h>
   4typedef _sigset_t sigset_t;
   5#endif
   6#include <winsock2.h>
   7#include <ws2tcpip.h>
   8
   9/* MinGW-w64 reports to have flockfile, but it does not actually have it. */
  10#ifdef __MINGW64_VERSION_MAJOR
  11#undef _POSIX_THREAD_SAFE_FUNCTIONS
  12#endif
  13
  14extern int mingw_core_config(const char *var, const char *value, void *cb);
  15#define platform_core_config mingw_core_config
  16
  17/*
  18 * things that are not available in header files
  19 */
  20
  21typedef int uid_t;
  22typedef int socklen_t;
  23#ifndef __MINGW64_VERSION_MAJOR
  24typedef int pid_t;
  25#define hstrerror strerror
  26#endif
  27
  28#define S_IFLNK    0120000 /* Symbolic link */
  29#define S_ISLNK(x) (((x) & S_IFMT) == S_IFLNK)
  30#define S_ISSOCK(x) 0
  31
  32#ifndef S_IRWXG
  33#define S_IRGRP 0
  34#define S_IWGRP 0
  35#define S_IXGRP 0
  36#define S_IRWXG (S_IRGRP | S_IWGRP | S_IXGRP)
  37#endif
  38#ifndef S_IRWXO
  39#define S_IROTH 0
  40#define S_IWOTH 0
  41#define S_IXOTH 0
  42#define S_IRWXO (S_IROTH | S_IWOTH | S_IXOTH)
  43#endif
  44
  45#define S_ISUID 0004000
  46#define S_ISGID 0002000
  47#define S_ISVTX 0001000
  48
  49#define WIFEXITED(x) 1
  50#define WIFSIGNALED(x) 0
  51#define WEXITSTATUS(x) ((x) & 0xff)
  52#define WTERMSIG(x) SIGTERM
  53
  54#ifndef EWOULDBLOCK
  55#define EWOULDBLOCK EAGAIN
  56#endif
  57#ifndef ELOOP
  58#define ELOOP EMLINK
  59#endif
  60#define SHUT_WR SD_SEND
  61
  62#define SIGHUP 1
  63#define SIGQUIT 3
  64#define SIGKILL 9
  65#define SIGPIPE 13
  66#define SIGALRM 14
  67#define SIGCHLD 17
  68
  69#define F_GETFD 1
  70#define F_SETFD 2
  71#define FD_CLOEXEC 0x1
  72
  73#if !defined O_CLOEXEC && defined O_NOINHERIT
  74#define O_CLOEXEC       O_NOINHERIT
  75#endif
  76
  77#ifndef EAFNOSUPPORT
  78#define EAFNOSUPPORT WSAEAFNOSUPPORT
  79#endif
  80#ifndef ECONNABORTED
  81#define ECONNABORTED WSAECONNABORTED
  82#endif
  83#ifndef ENOTSOCK
  84#define ENOTSOCK WSAENOTSOCK
  85#endif
  86
  87struct passwd {
  88        char *pw_name;
  89        char *pw_gecos;
  90        char *pw_dir;
  91};
  92
  93typedef void (__cdecl *sig_handler_t)(int);
  94struct sigaction {
  95        sig_handler_t sa_handler;
  96        unsigned sa_flags;
  97};
  98#define SA_RESTART 0
  99
 100struct itimerval {
 101        struct timeval it_value, it_interval;
 102};
 103#define ITIMER_REAL 0
 104
 105struct utsname {
 106        char sysname[16];
 107        char nodename[1];
 108        char release[16];
 109        char version[16];
 110        char machine[1];
 111};
 112
 113/*
 114 * sanitize preprocessor namespace polluted by Windows headers defining
 115 * macros which collide with git local versions
 116 */
 117#undef HELP_COMMAND /* from winuser.h */
 118
 119/*
 120 * trivial stubs
 121 */
 122
 123static inline int readlink(const char *path, char *buf, size_t bufsiz)
 124{ errno = ENOSYS; return -1; }
 125static inline int symlink(const char *oldpath, const char *newpath)
 126{ errno = ENOSYS; return -1; }
 127static inline int fchmod(int fildes, mode_t mode)
 128{ errno = ENOSYS; return -1; }
 129#ifndef __MINGW64_VERSION_MAJOR
 130static inline pid_t fork(void)
 131{ errno = ENOSYS; return -1; }
 132#endif
 133static inline unsigned int alarm(unsigned int seconds)
 134{ return 0; }
 135static inline int fsync(int fd)
 136{ return _commit(fd); }
 137static inline void sync(void)
 138{}
 139static inline uid_t getuid(void)
 140{ return 1; }
 141static inline struct passwd *getpwnam(const char *name)
 142{ return NULL; }
 143static inline int fcntl(int fd, int cmd, ...)
 144{
 145        if (cmd == F_GETFD || cmd == F_SETFD)
 146                return 0;
 147        errno = EINVAL;
 148        return -1;
 149}
 150/* bash cannot reliably detect negative return codes as failure */
 151#define exit(code) exit((code) & 0xff)
 152#define sigemptyset(x) (void)0
 153static inline int sigaddset(sigset_t *set, int signum)
 154{ return 0; }
 155#define SIG_BLOCK 0
 156#define SIG_UNBLOCK 0
 157static inline int sigprocmask(int how, const sigset_t *set, sigset_t *oldset)
 158{ return 0; }
 159static inline pid_t getppid(void)
 160{ return 1; }
 161static inline pid_t getpgid(pid_t pid)
 162{ return pid == 0 ? getpid() : pid; }
 163static inline pid_t tcgetpgrp(int fd)
 164{ return getpid(); }
 165
 166/*
 167 * simple adaptors
 168 */
 169
 170int mingw_mkdir(const char *path, int mode);
 171#define mkdir mingw_mkdir
 172
 173#define WNOHANG 1
 174pid_t waitpid(pid_t pid, int *status, int options);
 175
 176#define kill mingw_kill
 177int mingw_kill(pid_t pid, int sig);
 178
 179#ifndef NO_OPENSSL
 180#include <openssl/ssl.h>
 181static inline int mingw_SSL_set_fd(SSL *ssl, int fd)
 182{
 183        return SSL_set_fd(ssl, _get_osfhandle(fd));
 184}
 185#define SSL_set_fd mingw_SSL_set_fd
 186
 187static inline int mingw_SSL_set_rfd(SSL *ssl, int fd)
 188{
 189        return SSL_set_rfd(ssl, _get_osfhandle(fd));
 190}
 191#define SSL_set_rfd mingw_SSL_set_rfd
 192
 193static inline int mingw_SSL_set_wfd(SSL *ssl, int fd)
 194{
 195        return SSL_set_wfd(ssl, _get_osfhandle(fd));
 196}
 197#define SSL_set_wfd mingw_SSL_set_wfd
 198#endif
 199
 200/*
 201 * implementations of missing functions
 202 */
 203
 204int pipe(int filedes[2]);
 205unsigned int sleep (unsigned int seconds);
 206int mkstemp(char *template);
 207int gettimeofday(struct timeval *tv, void *tz);
 208#ifndef __MINGW64_VERSION_MAJOR
 209struct tm *gmtime_r(const time_t *timep, struct tm *result);
 210struct tm *localtime_r(const time_t *timep, struct tm *result);
 211#endif
 212int getpagesize(void);  /* defined in MinGW's libgcc.a */
 213struct passwd *getpwuid(uid_t uid);
 214int setitimer(int type, struct itimerval *in, struct itimerval *out);
 215int sigaction(int sig, struct sigaction *in, struct sigaction *out);
 216int link(const char *oldpath, const char *newpath);
 217int uname(struct utsname *buf);
 218
 219/*
 220 * replacements of existing functions
 221 */
 222
 223int mingw_unlink(const char *pathname);
 224#define unlink mingw_unlink
 225
 226int mingw_rmdir(const char *path);
 227#define rmdir mingw_rmdir
 228
 229int mingw_open (const char *filename, int oflags, ...);
 230#define open mingw_open
 231
 232int mingw_fgetc(FILE *stream);
 233#define fgetc mingw_fgetc
 234
 235FILE *mingw_fopen (const char *filename, const char *otype);
 236#define fopen mingw_fopen
 237
 238FILE *mingw_freopen (const char *filename, const char *otype, FILE *stream);
 239#define freopen mingw_freopen
 240
 241int mingw_fflush(FILE *stream);
 242#define fflush mingw_fflush
 243
 244ssize_t mingw_write(int fd, const void *buf, size_t len);
 245#define write mingw_write
 246
 247int mingw_access(const char *filename, int mode);
 248#undef access
 249#define access mingw_access
 250
 251int mingw_chdir(const char *dirname);
 252#define chdir mingw_chdir
 253
 254int mingw_chmod(const char *filename, int mode);
 255#define chmod mingw_chmod
 256
 257char *mingw_mktemp(char *template);
 258#define mktemp mingw_mktemp
 259
 260char *mingw_getcwd(char *pointer, int len);
 261#define getcwd mingw_getcwd
 262
 263char *mingw_getenv(const char *name);
 264#define getenv mingw_getenv
 265int mingw_putenv(const char *namevalue);
 266#define putenv mingw_putenv
 267#define unsetenv mingw_putenv
 268
 269int mingw_gethostname(char *host, int namelen);
 270#define gethostname mingw_gethostname
 271
 272struct hostent *mingw_gethostbyname(const char *host);
 273#define gethostbyname mingw_gethostbyname
 274
 275void mingw_freeaddrinfo(struct addrinfo *res);
 276#define freeaddrinfo mingw_freeaddrinfo
 277
 278int mingw_getaddrinfo(const char *node, const char *service,
 279                      const struct addrinfo *hints, struct addrinfo **res);
 280#define getaddrinfo mingw_getaddrinfo
 281
 282int mingw_getnameinfo(const struct sockaddr *sa, socklen_t salen,
 283                      char *host, DWORD hostlen, char *serv, DWORD servlen,
 284                      int flags);
 285#define getnameinfo mingw_getnameinfo
 286
 287int mingw_socket(int domain, int type, int protocol);
 288#define socket mingw_socket
 289
 290int mingw_connect(int sockfd, struct sockaddr *sa, size_t sz);
 291#define connect mingw_connect
 292
 293int mingw_bind(int sockfd, struct sockaddr *sa, size_t sz);
 294#define bind mingw_bind
 295
 296int mingw_setsockopt(int sockfd, int lvl, int optname, void *optval, int optlen);
 297#define setsockopt mingw_setsockopt
 298
 299int mingw_shutdown(int sockfd, int how);
 300#define shutdown mingw_shutdown
 301
 302int mingw_listen(int sockfd, int backlog);
 303#define listen mingw_listen
 304
 305int mingw_accept(int sockfd, struct sockaddr *sa, socklen_t *sz);
 306#define accept mingw_accept
 307
 308int mingw_rename(const char*, const char*);
 309#define rename mingw_rename
 310
 311#if defined(USE_WIN32_MMAP) || defined(_MSC_VER)
 312int mingw_getpagesize(void);
 313#define getpagesize mingw_getpagesize
 314#endif
 315
 316struct rlimit {
 317        unsigned int rlim_cur;
 318};
 319#define RLIMIT_NOFILE 0
 320
 321static inline int getrlimit(int resource, struct rlimit *rlp)
 322{
 323        if (resource != RLIMIT_NOFILE) {
 324                errno = EINVAL;
 325                return -1;
 326        }
 327
 328        rlp->rlim_cur = 2048;
 329        return 0;
 330}
 331
 332/*
 333 * Use mingw specific stat()/lstat()/fstat() implementations on Windows.
 334 */
 335#ifndef __MINGW64_VERSION_MAJOR
 336#define off_t off64_t
 337#define lseek _lseeki64
 338#endif
 339
 340/* use struct stat with 64 bit st_size */
 341#ifdef stat
 342#undef stat
 343#endif
 344#define stat _stati64
 345int mingw_lstat(const char *file_name, struct stat *buf);
 346int mingw_stat(const char *file_name, struct stat *buf);
 347int mingw_fstat(int fd, struct stat *buf);
 348#ifdef fstat
 349#undef fstat
 350#endif
 351#define fstat mingw_fstat
 352#ifdef lstat
 353#undef lstat
 354#endif
 355#define lstat mingw_lstat
 356
 357#ifndef _stati64
 358# define _stati64(x,y) mingw_stat(x,y)
 359#elif defined (_USE_32BIT_TIME_T)
 360# define _stat32i64(x,y) mingw_stat(x,y)
 361#else
 362# define _stat64(x,y) mingw_stat(x,y)
 363#endif
 364
 365int mingw_utime(const char *file_name, const struct utimbuf *times);
 366#define utime mingw_utime
 367size_t mingw_strftime(char *s, size_t max,
 368                   const char *format, const struct tm *tm);
 369#define strftime mingw_strftime
 370
 371pid_t mingw_spawnvpe(const char *cmd, const char **argv, char **env,
 372                     const char *dir,
 373                     int fhin, int fhout, int fherr);
 374int mingw_execvp(const char *cmd, char *const *argv);
 375#define execvp mingw_execvp
 376int mingw_execv(const char *cmd, char *const *argv);
 377#define execv mingw_execv
 378
 379static inline unsigned int git_ntohl(unsigned int x)
 380{ return (unsigned int)ntohl(x); }
 381#define ntohl git_ntohl
 382
 383sig_handler_t mingw_signal(int sig, sig_handler_t handler);
 384#define signal mingw_signal
 385
 386int mingw_raise(int sig);
 387#define raise mingw_raise
 388
 389/*
 390 * ANSI emulation wrappers
 391 */
 392
 393int winansi_isatty(int fd);
 394#define isatty winansi_isatty
 395
 396void winansi_init(void);
 397HANDLE winansi_get_osfhandle(int fd);
 398
 399/*
 400 * git specific compatibility
 401 */
 402
 403#define has_dos_drive_prefix(path) \
 404        (isalpha(*(path)) && (path)[1] == ':' ? 2 : 0)
 405int mingw_skip_dos_drive_prefix(char **path);
 406#define skip_dos_drive_prefix mingw_skip_dos_drive_prefix
 407static inline int mingw_is_dir_sep(int c)
 408{
 409        return c == '/' || c == '\\';
 410}
 411#define is_dir_sep mingw_is_dir_sep
 412static inline char *mingw_find_last_dir_sep(const char *path)
 413{
 414        char *ret = NULL;
 415        for (; *path; ++path)
 416                if (is_dir_sep(*path))
 417                        ret = (char *)path;
 418        return ret;
 419}
 420static inline void convert_slashes(char *path)
 421{
 422        for (; *path; path++)
 423                if (*path == '\\')
 424                        *path = '/';
 425}
 426#define find_last_dir_sep mingw_find_last_dir_sep
 427int mingw_offset_1st_component(const char *path);
 428#define offset_1st_component mingw_offset_1st_component
 429#define PATH_SEP ';'
 430extern char *mingw_query_user_email(void);
 431#define query_user_email mingw_query_user_email
 432#if !defined(__MINGW64_VERSION_MAJOR) && (!defined(_MSC_VER) || _MSC_VER < 1800)
 433#define PRIuMAX "I64u"
 434#define PRId64 "I64d"
 435#else
 436#include <inttypes.h>
 437#endif
 438
 439/**
 440 * Converts UTF-8 encoded string to UTF-16LE.
 441 *
 442 * To support repositories with legacy-encoded file names, invalid UTF-8 bytes
 443 * 0xa0 - 0xff are converted to corresponding printable Unicode chars \u00a0 -
 444 * \u00ff, and invalid UTF-8 bytes 0x80 - 0x9f (which would make non-printable
 445 * Unicode) are converted to hex-code.
 446 *
 447 * Lead-bytes not followed by an appropriate number of trail-bytes, over-long
 448 * encodings and 4-byte encodings > \u10ffff are detected as invalid UTF-8.
 449 *
 450 * Maximum space requirement for the target buffer is two wide chars per UTF-8
 451 * char (((strlen(utf) * 2) + 1) [* sizeof(wchar_t)]).
 452 *
 453 * The maximum space is needed only if the entire input string consists of
 454 * invalid UTF-8 bytes in range 0x80-0x9f, as per the following table:
 455 *
 456 *               |                   | UTF-8 | UTF-16 |
 457 *   Code point  |  UTF-8 sequence   | bytes | words  | ratio
 458 * --------------+-------------------+-------+--------+-------
 459 * 000000-00007f | 0-7f              |   1   |   1    |  1
 460 * 000080-0007ff | c2-df + 80-bf     |   2   |   1    |  0.5
 461 * 000800-00ffff | e0-ef + 2 * 80-bf |   3   |   1    |  0.33
 462 * 010000-10ffff | f0-f4 + 3 * 80-bf |   4   |  2 (a) |  0.5
 463 * invalid       | 80-9f             |   1   |  2 (b) |  2
 464 * invalid       | a0-ff             |   1   |   1    |  1
 465 *
 466 * (a) encoded as UTF-16 surrogate pair
 467 * (b) encoded as two hex digits
 468 *
 469 * Note that, while the UTF-8 encoding scheme can be extended to 5-byte, 6-byte
 470 * or even indefinite-byte sequences, the largest valid code point \u10ffff
 471 * encodes as only 4 UTF-8 bytes.
 472 *
 473 * Parameters:
 474 * wcs: wide char target buffer
 475 * utf: string to convert
 476 * wcslen: size of target buffer (in wchar_t's)
 477 * utflen: size of string to convert, or -1 if 0-terminated
 478 *
 479 * Returns:
 480 * length of converted string (_wcslen(wcs)), or -1 on failure
 481 *
 482 * Errors:
 483 * EINVAL: one of the input parameters is invalid (e.g. NULL)
 484 * ERANGE: the output buffer is too small
 485 */
 486int xutftowcsn(wchar_t *wcs, const char *utf, size_t wcslen, int utflen);
 487
 488/**
 489 * Simplified variant of xutftowcsn, assumes input string is \0-terminated.
 490 */
 491static inline int xutftowcs(wchar_t *wcs, const char *utf, size_t wcslen)
 492{
 493        return xutftowcsn(wcs, utf, wcslen, -1);
 494}
 495
 496/**
 497 * Simplified file system specific variant of xutftowcsn, assumes output
 498 * buffer size is MAX_PATH wide chars and input string is \0-terminated,
 499 * fails with ENAMETOOLONG if input string is too long.
 500 */
 501static inline int xutftowcs_path(wchar_t *wcs, const char *utf)
 502{
 503        int result = xutftowcsn(wcs, utf, MAX_PATH, -1);
 504        if (result < 0 && errno == ERANGE)
 505                errno = ENAMETOOLONG;
 506        return result;
 507}
 508
 509/**
 510 * Converts UTF-16LE encoded string to UTF-8.
 511 *
 512 * Maximum space requirement for the target buffer is three UTF-8 chars per
 513 * wide char ((_wcslen(wcs) * 3) + 1).
 514 *
 515 * The maximum space is needed only if the entire input string consists of
 516 * UTF-16 words in range 0x0800-0xd7ff or 0xe000-0xffff (i.e. \u0800-\uffff
 517 * modulo surrogate pairs), as per the following table:
 518 *
 519 *               |                       | UTF-16 | UTF-8 |
 520 *   Code point  |  UTF-16 sequence      | words  | bytes | ratio
 521 * --------------+-----------------------+--------+-------+-------
 522 * 000000-00007f | 0000-007f             |   1    |   1   |  1
 523 * 000080-0007ff | 0080-07ff             |   1    |   2   |  2
 524 * 000800-00ffff | 0800-d7ff / e000-ffff |   1    |   3   |  3
 525 * 010000-10ffff | d800-dbff + dc00-dfff |   2    |   4   |  2
 526 *
 527 * Note that invalid code points > 10ffff cannot be represented in UTF-16.
 528 *
 529 * Parameters:
 530 * utf: target buffer
 531 * wcs: wide string to convert
 532 * utflen: size of target buffer
 533 *
 534 * Returns:
 535 * length of converted string, or -1 on failure
 536 *
 537 * Errors:
 538 * EINVAL: one of the input parameters is invalid (e.g. NULL)
 539 * ERANGE: the output buffer is too small
 540 */
 541int xwcstoutf(char *utf, const wchar_t *wcs, size_t utflen);
 542
 543/*
 544 * A critical section used in the implementation of the spawn
 545 * functions (mingw_spawnv[p]e()) and waitpid(). Intialised in
 546 * the replacement main() macro below.
 547 */
 548extern CRITICAL_SECTION pinfo_cs;
 549
 550/*
 551 * A replacement of main() that adds win32 specific initialization.
 552 */
 553
 554void mingw_startup(void);
 555#define main(c,v) dummy_decl_mingw_main(void); \
 556static int mingw_main(c,v); \
 557int main(int argc, const char **argv) \
 558{ \
 559        mingw_startup(); \
 560        return mingw_main(__argc, (void *)__argv); \
 561} \
 562static int mingw_main(c,v)
 563
 564/*
 565 * Used by Pthread API implementation for Windows
 566 */
 567extern int err_win_to_posix(DWORD winerr);