forked from msteveb/jimtcl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
jimiocompat.h
126 lines (106 loc) · 3.17 KB
/
jimiocompat.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
#ifndef JIMIOCOMPAT_H
#define JIMIOCOMPAT_H
/*
* Cross-platform compatibility functions and types for I/O.
* Currently used by jim-aio.c and jim-exec.c
*/
#include <stdio.h>
#include <errno.h>
#include <sys/stat.h>
#include "jimautoconf.h"
#include <jim.h>
#include <jim-win32compat.h>
/**
* Set an error result based on errno and the given message.
*/
void Jim_SetResultErrno(Jim_Interp *interp, const char *msg);
/**
* Opens the file for writing (and appending if append is true).
* Returns the file descriptor, or -1 on failure.
*/
int Jim_OpenForWrite(const char *filename, int append);
/**
* Opens the file for reading.
* Returns the file descriptor, or -1 on failure.
*/
int Jim_OpenForRead(const char *filename);
#if defined(__MINGW32__)
#ifndef STRICT
#define STRICT
#endif
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <fcntl.h>
#include <io.h>
#include <process.h>
typedef HANDLE phandle_t;
#define JIM_BAD_PHANDLE INVALID_HANDLE_VALUE
/* These seem to accord with the conventions used by msys/mingw32 */
#define WIFEXITED(STATUS) (((STATUS) & 0xff00) == 0)
#define WEXITSTATUS(STATUS) ((STATUS) & 0x00ff)
#define WIFSIGNALED(STATUS) (((STATUS) & 0xff00) != 0)
#define WTERMSIG(STATUS) (((STATUS) >> 8) & 0xff)
#define WNOHANG 1
/**
* Unix-compatible errno
*/
int Jim_Errno(void);
long waitpid(phandle_t phandle, int *status, int nohang);
/* Like waitpid() but takes a pid and returns a phandle */
phandle_t JimWaitPid(long processid, int *status, int nohang);
/* Return pid for a phandle */
long JimProcessPid(phandle_t phandle);
#define HAVE_PIPE
#define pipe(P) _pipe((P), 0, O_NOINHERIT)
typedef struct __stat64 jim_stat_t;
#define Jim_Stat _stat64
#define Jim_FileStat _fstat64
#define Jim_Lseek _lseeki64
#else
#if defined(HAVE_STAT64)
typedef struct stat64 jim_stat_t;
#define Jim_Stat stat64
#if defined(HAVE_FSTAT64)
#define Jim_FileStat fstat64
#endif
#if defined(HAVE_LSTAT64)
#define Jim_LinkStat lstat64
#endif
#else
typedef struct stat jim_stat_t;
#define Jim_Stat stat
#if defined(HAVE_FSTAT)
#define Jim_FileStat fstat
#endif
#if defined(HAVE_LSTAT)
#define Jim_LinkStat lstat
#endif
#endif
#if defined(HAVE_LSEEK64)
#define Jim_Lseek lseek64
#else
#define Jim_Lseek lseek
#endif
#if defined(HAVE_UNISTD_H)
#include <unistd.h>
#include <fcntl.h>
#include <sys/wait.h>
typedef int phandle_t;
#define Jim_Errno() errno
#define JIM_BAD_PHANDLE -1
#define JimProcessPid(PIDTYPE) (PIDTYPE)
#define JimWaitPid waitpid
#ifndef HAVE_EXECVPE
#define execvpe(ARG0, ARGV, ENV) execvp(ARG0, ARGV)
#endif
#endif
#endif
#ifndef O_TEXT
#define O_TEXT 0
#endif
/* jim-file.c */
/* Note that this is currently an internal function only.
* It does not form part of the public Jim API
*/
int Jim_FileStoreStatData(Jim_Interp *interp, Jim_Obj *varName, const jim_stat_t *sb);
#endif