Add support for compilation on Windows using VS or MinGW
This commit is contained in:
smlu
parent
0265dc9ec2
commit
a9047956a4
|
|
@ -0,0 +1,82 @@
|
|||
/*
|
||||
POSIX getopt for Windows
|
||||
|
||||
AT&T Public License
|
||||
|
||||
Code given out at the 1985 UNIFORUM conference in Dallas.
|
||||
*/
|
||||
|
||||
#ifndef __GNUC__
|
||||
|
||||
#include "wingetopt.h"
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
|
||||
#ifndef NULL
|
||||
#define NULL 0
|
||||
#endif
|
||||
#define EOF (-1)
|
||||
#define ERR(s, c) if(opterr){\
|
||||
char errbuf[2];\
|
||||
errbuf[0] = c; errbuf[1] = '\n';\
|
||||
fputs(argv[0], stderr);\
|
||||
fputs(s, stderr);\
|
||||
fputc(c, stderr);}
|
||||
//(void) write(2, argv[0], (unsigned)strlen(argv[0]));\
|
||||
//(void) write(2, s, (unsigned)strlen(s));\
|
||||
//(void) write(2, errbuf, 2);}
|
||||
|
||||
int opterr = 1;
|
||||
int optind = 1;
|
||||
int optopt;
|
||||
char *optarg;
|
||||
|
||||
int
|
||||
getopt(argc, argv, opts)
|
||||
int argc;
|
||||
char **argv, *opts;
|
||||
{
|
||||
static int sp = 1;
|
||||
register int c;
|
||||
register char *cp;
|
||||
|
||||
if (sp == 1)
|
||||
if (optind >= argc ||
|
||||
argv[optind][0] != '-' || argv[optind][1] == '\0')
|
||||
return(EOF);
|
||||
else if (strcmp(argv[optind], "--") == (int)NULL) {
|
||||
optind++;
|
||||
return(EOF);
|
||||
}
|
||||
optopt = c = argv[optind][sp];
|
||||
if (c == ':' || (cp = strchr(opts, c)) == NULL) {
|
||||
ERR(": illegal option -- ", c);
|
||||
if (argv[optind][++sp] == '\0') {
|
||||
optind++;
|
||||
sp = 1;
|
||||
}
|
||||
return('?');
|
||||
}
|
||||
if (*++cp == ':') {
|
||||
if (argv[optind][sp + 1] != '\0')
|
||||
optarg = &argv[optind++][sp + 1];
|
||||
else if (++optind >= argc) {
|
||||
ERR(": option requires an argument -- ", c);
|
||||
sp = 1;
|
||||
return('?');
|
||||
}
|
||||
else
|
||||
optarg = argv[optind++];
|
||||
sp = 1;
|
||||
}
|
||||
else {
|
||||
if (argv[optind][++sp] == '\0') {
|
||||
sp = 1;
|
||||
optind++;
|
||||
}
|
||||
optarg = NULL;
|
||||
}
|
||||
return(c);
|
||||
}
|
||||
|
||||
#endif /* __GNUC__ */
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
/*
|
||||
POSIX getopt for Windows
|
||||
|
||||
AT&T Public License
|
||||
|
||||
Code given out at the 1985 UNIFORUM conference in Dallas.
|
||||
*/
|
||||
|
||||
#ifdef __GNUC__
|
||||
#include <getopt.h>
|
||||
#endif
|
||||
#ifndef __GNUC__
|
||||
|
||||
#ifndef _WINGETOPT_H_
|
||||
#define _WINGETOPT_H_
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
extern int opterr;
|
||||
extern int optind;
|
||||
extern int optopt;
|
||||
extern char *optarg;
|
||||
extern int getopt(int argc, char **argv, char *opts);
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
|
||||
#endif /* _GETOPT_H_ */
|
||||
#endif /* __GNUC__ */
|
||||
|
|
@ -65,7 +65,9 @@
|
|||
#elif defined(__WINDOWS__)
|
||||
|
||||
# include <winsock2.h>
|
||||
# ifdef __MINGW32__
|
||||
# include <sys/param.h>
|
||||
# endif
|
||||
|
||||
# if BYTE_ORDER == LITTLE_ENDIAN
|
||||
|
||||
|
|
|
|||
125
tl-parser.c
125
tl-parser.c
|
|
@ -25,7 +25,13 @@
|
|||
#define _FILE_OFFSET_BITS 64
|
||||
#include "config.h"
|
||||
|
||||
#if defined(_MSC_VER)
|
||||
#include <io.h>
|
||||
#include <stdint.h>
|
||||
#include <string.h>
|
||||
#else
|
||||
#include <unistd.h>
|
||||
#endif
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <fcntl.h>
|
||||
|
|
@ -241,8 +247,58 @@ char *parse_lex (void) {
|
|||
parse.lex.len = 1;
|
||||
parse.lex.type = lex_char;
|
||||
return (parse.lex.ptr = p);
|
||||
case 'a'...'z':
|
||||
case 'A'...'Z':
|
||||
case 'a':
|
||||
case 'b':
|
||||
case 'c':
|
||||
case 'd':
|
||||
case 'e':
|
||||
case 'f':
|
||||
case 'g':
|
||||
case 'h':
|
||||
case 'i':
|
||||
case 'j':
|
||||
case 'k':
|
||||
case 'l':
|
||||
case 'm':
|
||||
case 'n':
|
||||
case 'o':
|
||||
case 'p':
|
||||
case 'q':
|
||||
case 'r':
|
||||
case 's':
|
||||
case 't':
|
||||
case 'u':
|
||||
case 'v':
|
||||
case 'w':
|
||||
case 'x':
|
||||
case 'y':
|
||||
case 'z':
|
||||
case 'A':
|
||||
case 'B':
|
||||
case 'C':
|
||||
case 'D':
|
||||
case 'E':
|
||||
case 'F':
|
||||
case 'G':
|
||||
case 'H':
|
||||
case 'I':
|
||||
case 'J':
|
||||
case 'K':
|
||||
case 'L':
|
||||
case 'M':
|
||||
case 'N':
|
||||
case 'O':
|
||||
case 'P':
|
||||
case 'Q':
|
||||
case 'R':
|
||||
case 'S':
|
||||
case 'T':
|
||||
case 'U':
|
||||
case 'V':
|
||||
case 'W':
|
||||
case 'X':
|
||||
case 'Y':
|
||||
case 'Z':
|
||||
parse.lex.flags = 0;
|
||||
if (is_uletter (curch)) {
|
||||
while (is_ident_char (nextch ()));
|
||||
|
|
@ -305,7 +361,16 @@ char *parse_lex (void) {
|
|||
parse.lex.len = parse.text + parse.pos - p;
|
||||
parse.lex.type = lex_lc_ident;
|
||||
return (parse.lex.ptr = p);
|
||||
case '0'...'9':
|
||||
case '0':
|
||||
case '1':
|
||||
case '2':
|
||||
case '3':
|
||||
case '4':
|
||||
case '5':
|
||||
case '6':
|
||||
case '7':
|
||||
case '8':
|
||||
case '9':
|
||||
while (is_digit (nextch ()));
|
||||
parse.lex.len = parse.text + parse.pos - p;
|
||||
parse.lex.type = lex_num;
|
||||
|
|
@ -321,7 +386,11 @@ char *parse_lex (void) {
|
|||
int expect (char *s) {
|
||||
if (!parse.lex.ptr || parse.lex.ptr == (void *)-1 || parse.lex.type == lex_error || parse.lex.type == lex_none || parse.lex.len != (int)strlen (s) || memcmp (s, parse.lex.ptr, parse.lex.len)) {
|
||||
static char buf[1000];
|
||||
sprintf (buf, "Expected %s", s);
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
sprintf_s(buf, 1000, "Expected %s", s);
|
||||
#else
|
||||
sprintf(buf, "Expected %s", s);
|
||||
#endif
|
||||
parse_error (buf);
|
||||
return -1;
|
||||
} else {
|
||||
|
|
@ -331,15 +400,27 @@ int expect (char *s) {
|
|||
}
|
||||
|
||||
struct parse *tl_init_parse_file (const char *fname) {
|
||||
int fd = open (fname, O_RDONLY);
|
||||
if (fd < 0) {
|
||||
fprintf (stderr, "Error %m\n");
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
int fd = 0;
|
||||
if (_sopen_s(&fd, fname, _O_RDONLY | _O_BINARY, _SH_DENYNO, _S_IREAD | _S_IWRITE) != 0) {
|
||||
char errorStr[256] = { 0 };
|
||||
strerror_s(errorStr, 256, errno);
|
||||
fprintf(stderr, "Error %s\n", errorStr);
|
||||
#elif defined(WIN32) || defined(_WIN32)
|
||||
int fd = open(fname, O_RDONLY | O_BINARY);
|
||||
if (fd < 0) {
|
||||
fprintf(stderr, "Error %s\n", strerror(errno));
|
||||
#else
|
||||
int fd = open(fname, O_RDONLY);
|
||||
if (fd < 0) {
|
||||
fprintf(stderr, "Error %m\n");
|
||||
#endif
|
||||
assert (0);
|
||||
return 0;
|
||||
}
|
||||
long long size = lseek (fd, 0, SEEK_END);
|
||||
if (size <= 0) {
|
||||
fprintf (stderr, "size is %lld. Too small.\n", size);
|
||||
fprintf (stderr, "size is %"_PRINTF_INT64_"d. Too small.\n", size);
|
||||
return 0;
|
||||
}
|
||||
static struct parse save;
|
||||
|
|
@ -1352,7 +1433,11 @@ void tl_buf_add_tree (struct tl_combinator_tree *T, int x) {
|
|||
tl_buf_add_string_q ((char *)v->data, -1, x);
|
||||
if (T->type == type_num && T->type_flags) {
|
||||
static char _buf[30];
|
||||
sprintf (_buf, "+%lld", T->type_flags);
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
sprintf_s(_buf, 30, "+%"_PRINTF_INT64_"d", T->type_flags);
|
||||
#else
|
||||
sprintf(_buf, "+%"_PRINTF_INT64_"d", T->type_flags);
|
||||
#endif
|
||||
tl_buf_add_string_q (_buf, -1, 0);
|
||||
}
|
||||
}
|
||||
|
|
@ -1379,7 +1464,7 @@ void tl_buf_add_tree (struct tl_combinator_tree *T, int x) {
|
|||
case act_nat_const:
|
||||
{
|
||||
static char _buf[30];
|
||||
snprintf (_buf, 29, "%lld", T->type_flags);
|
||||
snprintf (_buf, 29, "%"_PRINTF_INT64_"d", T->type_flags);
|
||||
tl_buf_add_string_q (_buf, -1, x);
|
||||
return;
|
||||
}
|
||||
|
|
@ -1389,7 +1474,11 @@ void tl_buf_add_tree (struct tl_combinator_tree *T, int x) {
|
|||
tl_buf_add_string_q ((char *)v->data, -1, x);
|
||||
tl_buf_add_string_q (".", -1, 0);
|
||||
static char _buf[30];
|
||||
sprintf (_buf, "%lld", T->left->type_flags);
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
sprintf_s(_buf, 30, "%"_PRINTF_INT64_"d", T->left->type_flags);
|
||||
#else
|
||||
sprintf(_buf, "%"_PRINTF_INT64_"d", T->left->type_flags);
|
||||
#endif
|
||||
tl_buf_add_string_q (_buf, -1, 0);
|
||||
tl_buf_add_string_q ("?", -1, 0);
|
||||
tl_buf_add_tree (T->right, 0);
|
||||
|
|
@ -1421,7 +1510,11 @@ int tl_print_combinator (struct tl_constructor *c) {
|
|||
tl_buf_reset ();
|
||||
tl_buf_add_string_nospace (c->real_id ? c->real_id : c->id, -1);
|
||||
static char _buf[10];
|
||||
sprintf (_buf, "#%08x", c->name);
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
sprintf_s(_buf, 10, "#%08x", c->name);
|
||||
#else
|
||||
sprintf(_buf, "#%08x", c->name);
|
||||
#endif
|
||||
tl_buf_add_string_nospace (_buf, -1);
|
||||
tl_buf_add_tree (c->left, 1);
|
||||
tl_buf_add_string ("=", -1);
|
||||
|
|
@ -1517,7 +1610,7 @@ struct tl_combinator_tree *tl_union (struct tl_combinator_tree *L, struct tl_com
|
|||
return 0;
|
||||
}
|
||||
if (L->type_len > 0 && ((L->type_flags & 1) != (R->type == type_num || R->type == type_num_value))) {
|
||||
TL_ERROR ("Argument types mistmatch: L->type_flags = %lld, R->type = %s\n", L->flags, TL_TYPE (R->type));
|
||||
TL_ERROR ("Argument types mistmatch: L->type_flags = %"_PRINTF_INT64_"d, R->type = %s\n", L->flags, TL_TYPE (R->type));
|
||||
return 0;
|
||||
}
|
||||
v->type = type_type;
|
||||
|
|
@ -1904,7 +1997,11 @@ struct tl_combinator_tree *tl_parse_args134 (struct tree *T) {
|
|||
char *name = S->data;
|
||||
if (!name) {
|
||||
static char s[20];
|
||||
sprintf (s, "%lld", lrand48 () * (1ll << 32) + lrand48 ());
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
sprintf_s(s, 20, "%"_PRINTF_INT64_"d", lrand48() * (1ll << 32) + lrand48());
|
||||
#else
|
||||
sprintf(s, "%"_PRINTF_INT64_"d", lrand48() * (1ll << 32) + lrand48());
|
||||
#endif
|
||||
name = s;
|
||||
}
|
||||
struct tl_var *v = tl_add_var (name, S, tt);
|
||||
|
|
|
|||
15
tl-parser.h
15
tl-parser.h
|
|
@ -24,6 +24,21 @@
|
|||
|
||||
#ifndef __TL_PARSER_NEW_H__
|
||||
#define __TL_PARSER_NEW_H__
|
||||
#if defined(WIN32) || defined(_WIN32)
|
||||
#define lrand48() rand()
|
||||
#define _PRINTF_INT64_ "I64"
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
#define read _read
|
||||
#define write _write
|
||||
#define close _close
|
||||
#define lseek _lseek
|
||||
#define strdup _strdup
|
||||
#define __attribute__(x)
|
||||
#endif
|
||||
#else
|
||||
#define _PRINTF_INT64_ "ll"
|
||||
#endif
|
||||
|
||||
enum lex_type {
|
||||
lex_error,
|
||||
lex_char,
|
||||
|
|
|
|||
18
tlc.c
18
tlc.c
|
|
@ -28,9 +28,15 @@
|
|||
#include <stdlib.h>
|
||||
#include <assert.h>
|
||||
|
||||
#include "tl-parser.h"
|
||||
|
||||
#if defined(_MSC_VER)
|
||||
#include <io.h>
|
||||
#include <stdint.h>
|
||||
#include <string.h>
|
||||
#include "wingetopt.h"
|
||||
#else
|
||||
#include <unistd.h>
|
||||
#endif
|
||||
#include "tl-parser.h"
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <fcntl.h>
|
||||
|
|
@ -56,8 +62,16 @@ void usage (void) {
|
|||
}
|
||||
|
||||
int vkext_write (const char *filename) {
|
||||
#if defined(_MSC_VER) && _MSC_VER >= 1400
|
||||
int f = 0;
|
||||
assert(_sopen_s(&f, filename, _O_CREAT | _O_WRONLY | _O_TRUNC | _O_BINARY, _SH_DENYNO, _S_IREAD | _S_IWRITE) == 0);
|
||||
#elif defined(WIN32) || defined(_WIN32)
|
||||
int f = open(filename, O_CREAT | O_WRONLY | O_TRUNC | O_BINARY, 0640);
|
||||
assert(f >= 0);
|
||||
#else
|
||||
int f = open (filename, O_CREAT | O_WRONLY | O_TRUNC, 0640);
|
||||
assert (f >= 0);
|
||||
#endif
|
||||
write_types (f);
|
||||
close (f);
|
||||
return 0;
|
||||
|
|
|
|||
Loading…
Reference in New Issue