mirror of
https://github.com/Gator96100/ProxSpace.git
synced 2025-07-30 03:28:35 -07:00
Updated msys2
This commit is contained in:
parent
6a85995508
commit
f0dc1ea8b0
13308 changed files with 689276 additions and 46605 deletions
|
@ -3,7 +3,7 @@
|
|||
*/
|
||||
|
||||
/*
|
||||
* Copyright (C) 2012-2017 the Free Software Foundation, Inc.
|
||||
* Copyright (C) 2012-2018 the Free Software Foundation, Inc.
|
||||
*
|
||||
* This file is part of GAWK, the GNU implementation of the
|
||||
* AWK Programming Language.
|
||||
|
@ -323,13 +323,15 @@ typedef struct awk_string {
|
|||
size_t len; /* length thereof, in chars */
|
||||
} awk_string_t;
|
||||
|
||||
enum AWK_NUMBER_TYPE {
|
||||
AWK_NUMBER_TYPE_DOUBLE,
|
||||
AWK_NUMBER_TYPE_MPFR,
|
||||
AWK_NUMBER_TYPE_MPZ
|
||||
};
|
||||
|
||||
typedef struct awk_number {
|
||||
double d; /* always populated in data received from gawk */
|
||||
enum AWK_NUMBER_TYPE {
|
||||
AWK_NUMBER_TYPE_DOUBLE,
|
||||
AWK_NUMBER_TYPE_MPFR,
|
||||
AWK_NUMBER_TYPE_MPZ
|
||||
} type;
|
||||
enum AWK_NUMBER_TYPE type;
|
||||
void *ptr; /* either NULL or mpfr_ptr or mpz_ptr */
|
||||
} awk_number_t;
|
||||
|
||||
|
@ -621,6 +623,7 @@ typedef struct gawk_api {
|
|||
* }
|
||||
*/
|
||||
awk_bool_t (*api_sym_lookup)(awk_ext_id_t id,
|
||||
const char *name_space,
|
||||
const char *name,
|
||||
awk_valtype_t wanted,
|
||||
awk_value_t *result);
|
||||
|
@ -632,6 +635,7 @@ typedef struct gawk_api {
|
|||
* Such an attempt returns false.
|
||||
*/
|
||||
awk_bool_t (*api_sym_update)(awk_ext_id_t id,
|
||||
const char *name_space,
|
||||
const char *name,
|
||||
awk_value_t *value);
|
||||
|
||||
|
@ -865,11 +869,17 @@ typedef struct gawk_api {
|
|||
#define awk_atexit(funcp, arg0) (api->api_awk_atexit(ext_id, funcp, arg0))
|
||||
|
||||
#define sym_lookup(name, wanted, result) \
|
||||
(api->api_sym_lookup(ext_id, name, wanted, result))
|
||||
sym_lookup_ns("", name, wanted, result)
|
||||
#define sym_update(name, value) \
|
||||
sym_update_ns("", name, value)
|
||||
|
||||
#define sym_lookup_ns(name_space, name, wanted, result) \
|
||||
(api->api_sym_lookup(ext_id, name_space, name, wanted, result))
|
||||
#define sym_update_ns(name_space, name, value) \
|
||||
(api->api_sym_update(ext_id, name_space, name, value))
|
||||
|
||||
#define sym_lookup_scalar(scalar_cookie, wanted, result) \
|
||||
(api->api_sym_lookup_scalar(ext_id, scalar_cookie, wanted, result))
|
||||
#define sym_update(name, value) \
|
||||
(api->api_sym_update(ext_id, name, value))
|
||||
#define sym_update_scalar(scalar_cookie, value) \
|
||||
(api->api_sym_update_scalar)(ext_id, scalar_cookie, value)
|
||||
|
||||
|
@ -924,19 +934,19 @@ typedef struct gawk_api {
|
|||
#define emalloc(pointer, type, size, message) \
|
||||
do { \
|
||||
if ((pointer = (type) gawk_malloc(size)) == 0) \
|
||||
fatal(ext_id, "%s: malloc of %d bytes failed\n", message, size); \
|
||||
fatal(ext_id, "%s: malloc of %d bytes failed", message, size); \
|
||||
} while(0)
|
||||
|
||||
#define ezalloc(pointer, type, size, message) \
|
||||
do { \
|
||||
if ((pointer = (type) gawk_calloc(1, size)) == 0) \
|
||||
fatal(ext_id, "%s: calloc of %d bytes failed\n", message, size); \
|
||||
fatal(ext_id, "%s: calloc of %d bytes failed", message, size); \
|
||||
} while(0)
|
||||
|
||||
#define erealloc(pointer, type, size, message) \
|
||||
do { \
|
||||
if ((pointer = (type) gawk_realloc(pointer, size)) == 0) \
|
||||
fatal(ext_id, "%s: realloc of %d bytes failed\n", message, size); \
|
||||
fatal(ext_id, "%s: realloc of %d bytes failed", message, size); \
|
||||
} while(0)
|
||||
|
||||
/* Constructor functions */
|
||||
|
@ -945,7 +955,7 @@ typedef struct gawk_api {
|
|||
|
||||
static inline awk_value_t *
|
||||
r_make_string_type(const gawk_api_t *api, /* needed for emalloc */
|
||||
awk_ext_id_t *ext_id, /* ditto */
|
||||
awk_ext_id_t ext_id, /* ditto */
|
||||
const char *string,
|
||||
size_t length,
|
||||
awk_bool_t duplicate,
|
||||
|
@ -975,7 +985,7 @@ r_make_string_type(const gawk_api_t *api, /* needed for emalloc */
|
|||
|
||||
static inline awk_value_t *
|
||||
r_make_string(const gawk_api_t *api, /* needed for emalloc */
|
||||
awk_ext_id_t *ext_id, /* ditto */
|
||||
awk_ext_id_t ext_id, /* ditto */
|
||||
const char *string,
|
||||
size_t length,
|
||||
awk_bool_t duplicate,
|
||||
|
@ -1109,7 +1119,7 @@ int dl_load(const gawk_api_t *const api_p, awk_ext_id_t id) \
|
|||
if (api->major_version != GAWK_API_MAJOR_VERSION \
|
||||
|| api->minor_version < GAWK_API_MINOR_VERSION) { \
|
||||
fprintf(stderr, #extension ": version mismatch with gawk!\n"); \
|
||||
fprintf(stderr, "\tmy version (%d, %d), gawk version (%d, %d)\n", \
|
||||
fprintf(stderr, "\tmy version (API %d.%d), gawk version (API %d.%d)\n", \
|
||||
GAWK_API_MAJOR_VERSION, GAWK_API_MINOR_VERSION, \
|
||||
api->major_version, api->minor_version); \
|
||||
exit(1); \
|
||||
|
@ -1122,7 +1132,7 @@ int dl_load(const gawk_api_t *const api_p, awk_ext_id_t id) \
|
|||
if (func_table[i].name == NULL) \
|
||||
break; \
|
||||
if (! add_ext_func(name_space, & func_table[i])) { \
|
||||
warning(ext_id, #extension ": could not add %s\n", \
|
||||
warning(ext_id, #extension ": could not add %s", \
|
||||
func_table[i].name); \
|
||||
errors++; \
|
||||
} \
|
||||
|
@ -1130,7 +1140,7 @@ int dl_load(const gawk_api_t *const api_p, awk_ext_id_t id) \
|
|||
\
|
||||
if (init_func != NULL) { \
|
||||
if (! init_func()) { \
|
||||
warning(ext_id, #extension ": initialization function failed\n"); \
|
||||
warning(ext_id, #extension ": initialization function failed"); \
|
||||
errors++; \
|
||||
} \
|
||||
} \
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue