hyung-hwan/hawk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
db2651d811
hawk/lib/std.c

3500 lines
85 KiB
C
Raw Normal View History

starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/*
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
Copyright (c) 2006-2020 Chung, Hyung-Hwan. All rights reserved.
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions
are met:
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "hawk-prv.h"
removed std-prv.h
2022-06-11 01:26:08 +00:00
#include <hawk-std.h>
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#include <hawk-pio.h>
#include <hawk-sio.h>
some code refactoring
2019-12-16 08:57:43 +00:00
#include <stdio.h>
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#include <stdarg.h>
#include <stdlib.h>
#include <math.h>
#if defined(HAVE_QUADMATH_H)
# include <quadmath.h>
updated various build files
2023-10-20 13:59:09 +00:00
#elif defined(HAWK_USE_FLTMAX) && (HAWK_SIZEOF_FLT_T == 16) && defined(HAWK_FLTMAX_REQUIRE_QUADMATH)
/* the header file doesn't exist while the library is available */
extern __float128 powq (__float128, __float128);
extern __float128 fmodq (__float128, __float128);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
#if defined(_WIN32)
# include <windows.h>
# include <tchar.h>
refactoring
2019-12-18 08:16:34 +00:00
# if defined(HAWK_HAVE_CFG_H) && defined(HAWK_ENABLE_LIBLTDL)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
# include <ltdl.h>
# define USE_LTDL
# endif
refactoring
2019-12-18 08:16:34 +00:00
# include <io.h>
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(__OS2__)
# define INCL_DOSMODULEMGR
# define INCL_DOSPROCESS
# define INCL_DOSERRORS
# include <os2.h>
#elif defined(__DOS__)
/* nothing to include */
#else
# include "syscall.h"
# if defined(HAWK_ENABLE_LIBLTDL)
# include <ltdl.h>
# define USE_LTDL
# elif defined(HAVE_DLFCN_H)
# include <dlfcn.h>
# define USE_DLFCN
# else
# error UNSUPPORTED DYNAMIC LINKER
# endif
fixed the environ issue on macosx
2020-12-18 17:57:59 +00:00
# if defined(HAVE_CRT_EXTERNS_H)
# include <crt_externs.h> /* MacOSX/darwin. _NSGetEnviron() */
# endif
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
refactoring
2019-12-18 08:16:34 +00:00
#if !defined(HAWK_HAVE_CFG_H)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
# if defined(_WIN32) || defined(__OS2__) || defined(__DOS__)
# define HAVE_POW
# define HAVE_FMOD
# endif
#endif
added log writer
2019-12-14 16:05:10 +00:00
enum logfd_flag_t
{
LOGFD_TTY = (1 << 0),
LOGFD_OPENED_HERE = (1 << 1)
};
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
typedef struct xtn_t
{
struct
{
struct
{
hawk_parsestd_t* x;
hawk_oow_t xindex;
union
{
/* nothing to maintain here for file */
struct
{
const hawk_ooch_t* ptr;
const hawk_ooch_t* end;
} oocs;
struct
{
const hawk_bch_t* ptr;
const hawk_bch_t* end;
} bcs;
struct
{
const hawk_uch_t* ptr;
const hawk_uch_t* end;
} ucs;
} u;
} in;
struct
{
hawk_parsestd_t* x;
union
{
struct
{
hawk_sio_t* sio;
} file;
struct
{
hawk_ooecs_t* buf;
} oocs;
struct
{
hawk_becs_t* buf;
} bcs;
struct
{
hawk_uecs_t* buf;
} ucs;
} u;
} out;
} s; /* script/source handling */
int gbl_argc;
int gbl_argv;
int gbl_environ;
hawk_ecb_t ecb;
int stdmod_up;
added log writer
2019-12-14 16:05:10 +00:00
struct
{
int fd;
int fd_flag; /* bitwise OR'ed fo logfd_flag_t bits */
struct
{
hawk_bch_t buf[4096];
hawk_oow_t len;
} out;
} log;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
} xtn_t;
typedef struct rxtn_t
{
struct
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
struct
{
hawk_ooch_t** files;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_oow_t index;
renamed hawk_setgblbyname() to hawk_setgbltostrbyname()
2020-03-05 09:04:14 +00:00
hawk_oow_t count; /* number of files opened so far */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
} in;
struct
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t** files;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_oow_t index;
hawk_oow_t count;
} out;
hawk_cmgr_t* cmgr;
} c; /* console */
int cmgrtab_inited;
hawk_htb_t cmgrtab;
hawk_rtx_ecb_t ecb;
} rxtn_t;
typedef struct ioattr_t
{
hawk_cmgr_t* cmgr;
hawk_ooch_t cmgr_name[64]; /* i assume that the cmgr name never exceeds this length */
hawk_ntime_t tmout[4];
} ioattr_t;
#if defined(HAWK_HAVE_INLINE)
fixed wrong macros - hawk_tio_getxtn(), hawk_pio_getxtn(), hawk_sio_getxtn(), etc
2020-04-13 06:15:03 +00:00
static HAWK_INLINE xtn_t* GET_XTN(hawk_t* hawk) { return (xtn_t*)((hawk_uint8_t*)hawk_getxtn(hawk) - HAWK_SIZEOF(xtn_t)); }
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
static HAWK_INLINE rxtn_t* GET_RXTN(hawk_rtx_t* rtx) { return (rxtn_t*)((hawk_uint8_t*)hawk_rtx_getxtn(rtx) - HAWK_SIZEOF(rxtn_t)); }
#else
fixed wrong macros - hawk_tio_getxtn(), hawk_pio_getxtn(), hawk_sio_getxtn(), etc
2020-04-13 06:15:03 +00:00
#define GET_XTN(hawk) ((xtn_t*)((hawk_uint8_t*)hawk_getxtn(hawk) - HAWK_SIZEOF(xtn_t)))
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#define GET_RXTN(rtx) ((rxtn_t*)((hawk_uint8_t*)hawk_rtx_getxtn(rtx) - HAWK_SIZEOF(rxtn_t)))
#endif
/* ========================================================================= */
static void* sys_alloc (hawk_mmgr_t* mmgr, hawk_oow_t size)
{
return malloc(size);
}
static void* sys_realloc (hawk_mmgr_t* mmgr, void* ptr, hawk_oow_t size)
{
return realloc(ptr, size);
}
static void sys_free (hawk_mmgr_t* mmgr, void* ptr)
{
free (ptr);
}
static hawk_mmgr_t sys_mmgr =
{
sys_alloc,
sys_realloc,
sys_free,
HAWK_NULL
};
added the xma memory manager
2020-11-02 09:54:12 +00:00
hawk_mmgr_t* hawk_get_sys_mmgr (void)
{
return &sys_mmgr;
}
added log writer
2019-12-14 16:05:10 +00:00
/* ----------------------------------------------------------------------- */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_flt_t hawk_stdmathpow (hawk_t* hawk, hawk_flt_t x, hawk_flt_t y)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
fixed a wrong define
2020-12-02 18:52:33 +00:00
#if defined(HAWK_USE_FLTMAX) && defined(HAVE_POWQ)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return powq(x, y);
#elif defined(HAVE_POWL) && (HAWK_SIZEOF_LONG_DOUBLE > HAWK_SIZEOF_DOUBLE)
return powl(x, y);
#elif defined(HAVE_POW)
return pow(x, y);
#elif defined(HAVE_POWF)
return powf(x, y);
#else
#error ### no pow function available ###
#endif
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_flt_t hawk_stdmathmod (hawk_t* hawk, hawk_flt_t x, hawk_flt_t y)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
fixed a wrong define
2020-12-02 18:52:33 +00:00
#if defined(HAWK_USE_FLTMAX) && defined(HAVE_FMODQ)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return fmodq(x, y);
#elif defined(HAVE_FMODL) && (HAWK_SIZEOF_LONG_DOUBLE > HAWK_SIZEOF_DOUBLE)
return fmodl(x, y);
#elif defined(HAVE_FMOD)
return fmod(x, y);
#elif defined(HAVE_FMODF)
return fmodf(x, y);
#else
#error ### no fmod function available ###
#endif
}
/* [IMPORTANT]
* hawk_stdmodXXXX() functions must not access the extension
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
* area of 'hawk'. they are used in StdAwk.cpp which instantiates
* an hawk object with hawk_open() instead of hawk_openstd(). */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
int hawk_stdmodstartup (hawk_t* hawk)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
#if defined(USE_LTDL)
/* lt_dlinit() can be called more than once and
* lt_dlexit() shuts down libltdl if it's called as many times as
* corresponding lt_dlinit(). so it's safe to call lt_dlinit()
* and lt_dlexit() at the library level. */
return lt_dlinit() != 0? -1: 0;
#else
return 0;
#endif
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
void hawk_stdmodshutdown (hawk_t* hawk)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
#if defined(USE_LTDL)
lt_dlexit ();
#else
/* do nothing */
#endif
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static void* std_mod_open_checked (hawk_t* hawk, const hawk_mod_spec_t* spec)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn_t* xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (!xtn->stdmod_up)
{
/* hawk_stdmodstartup() must have failed upon start-up.
* return failure immediately */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_ENOIMPL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return HAWK_NULL;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
return hawk_stdmodopen(hawk, spec);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
void* hawk_stdmodopen (hawk_t* hawk, const hawk_mod_spec_t* spec)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
#if defined(USE_LTDL)
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (spec)
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
void* h;
lt_dladvise adv;
hawk_bch_t* modpath;
const hawk_ooch_t* tmp[6];
int count;
static hawk_ooch_t ds[] = { '/', '\0' };
count = 0;
if (spec->libdir)
{
hawk_oow_t len;
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
tmp[count++] = spec->libdir;
len = hawk_count_oocstr(spec->libdir);
if (len > 0 && spec->libdir[len - 1] != '/') tmp[count++] = ds;
}
if (spec->prefix) tmp[count++] = spec->prefix;
tmp[count++] = spec->name;
if (spec->postfix) tmp[count++] = spec->postfix;
tmp[count] = HAWK_NULL;
#if defined(HAWK_OOCH_IS_BCH)
modpath = hawk_dupbcstrarr(hawk, tmp, HAWK_NULL);
#else
modpath = hawk_dupucstrarrtobcstr(hawk, tmp, HAWK_NULL)
#endif
if (!modpath) return HAWK_NULL;
if (lt_dladvise_init(&adv) != 0)
{
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), lt_dlerror());
return HAWK_NULL;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
lt_dladvise_ext (&adv);
/*lt_dladvise_resident (&adv); useful for debugging with valgrind */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
h = lt_dlopenadvise(modpath, adv);
if (!h) hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), lt_dlerror());
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
lt_dladvise_destroy (&adv);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (modpath) hawk_freemem(hawk, modpath);
return h;
}
else
{
void* h;
fixed a potential issue by shared data access in mod-hawk.c
2020-12-28 17:23:33 +00:00
h = lt_dlopen(HAWK_NULL);
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (HAWK_UNLIKELY(!h)) hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), lt_dlerror());
return h;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(_WIN32)
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (spec)
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
HMODULE h;
hawk_ooch_t* modpath;
const hawk_ooch_t* tmp[6];
int count;
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
static hawk_ooch_t ds[][2] = { { '\\', '\0' }, { '/', '\0' } };
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
count = 0;
if (spec->libdir)
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
hawk_oow_t len;
tmp[count++] = spec->libdir;
len = hawk_count_oocstr(spec->libdir);
if (len > 0 && (spec->libdir[len - 1] != '/' && spec->libdir[len - 1] != '\\'))
{
tmp[count++] = ds[hawk_find_oochar_in_oocstr(spec->libdir, '/') != HAWK_NULL];
}
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
}
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (spec->prefix) tmp[count++] = spec->prefix;
tmp[count++] = spec->name;
if (spec->postfix) tmp[count++] = spec->postfix;
tmp[count] = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
modpath = hawk_dupoocstrarr(hawk, tmp, HAWK_NULL);
if (!modpath) return HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
h = LoadLibrary(modpath);
if (!h) hawk_seterrnum (hawk, HAWK_NULL, hawk_syserr_to_errnum(GetLastError());
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
hawk_freemem (hawk, modpath);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
HAWK_ASSERT (HAWK_SIZEOF(h) <= HAWK_SIZEOF(void*));
return h;
}
else
{
HMODULE h;
fixed a potential issue by shared data access in mod-hawk.c
2020-12-28 17:23:33 +00:00
h = GetModuleHandle(HAWK_NULL);
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (!h) hawk_seterrnum (hawk, HAWK_NULL, hawk_syserr_to_errnum(GetLastError());
return h;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(__OS2__)
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (spec)
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
HMODULE h;
hawk_bch_t* modpath;
const hawk_ooch_t* tmp[6];
int count;
char errbuf[CCHMAXPATH];
APIRET rc;
static hawk_ooch_t ds[] = { '\\', '\0' };
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
count = 0;
if (spec->libdir)
{
hawk_oow_t len;
tmp[count++] = spec->libdir;
len = hawk_count_oocstr(spec->libdir);
if (len > 0 && spec->libdir[len - 1] != '\\') tmp[count++] = ds;
}
if (spec->prefix) tmp[count++] = spec->prefix;
tmp[count++] = spec->name;
if (spec->postfix) tmp[count++] = spec->postfix;
tmp[count] = HAWK_NULL;
#if defined(HAWK_OOCH_IS_BCH)
modpath = hawk_dupbcstrarr(hawk, tmp, HAWK_NULL);
#else
modpath = hawk_dupucstrarrtobcstr(hawk, tmp, HAWK_NULL);
#endif
if (HAWK_UNLIKELY(!modpath)) return HAWK_NULL;
/* DosLoadModule() seems to have severe limitation on
* the file name it can load (max-8-letters.xxx) */
rc = DosLoadModule(errbuf, HAWK_COUNTOF(errbuf) - 1, modpath, &h);
if (rc != NO_ERROR)
{
h = HAWK_NULL;
hawk_seterrnum (hawk, HAWK_NULL, hawk_syserr_to_errnum(rc));
}
hawk_freemem (hawk, modpath);
HAWK_ASSERT (HAWK_SIZEOF(h) <= HAWK_SIZEOF(void*));
return h;
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
}
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
else
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_ENOIMPL);
return HAWK_NULL;
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(__DOS__) && defined(HAWK_ENABLE_DOS_DYNAMIC_MODULE)
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (spec)
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
/* the DOS code here is not generic enough. it's for a specific
* dos-extender only. the best is not to use dynamic loading
* when building for DOS. */
void* h;
hawk_bch_t* modpath;
const hawk_ooch_t* tmp[6];
int count;
static hawk_ooch_t ds[] = { '\\', '\0' };
count = 0;
if (spec->libdir)
{
hawk_oow_t len;
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
tmp[count++] = spec->libdir;
len = hawk_count_oocstr(spec->libdir);
if (len > 0 && spec->libdir[len - 1] != '/') tmp[count++] = ds;
}
if (spec->prefix) tmp[count++] = spec->prefix;
tmp[count++] = spec->name;
if (spec->postfix) tmp[count++] = spec->postfix;
tmp[count] = HAWK_NULL;
#if defined(HAWK_OOCH_IS_BCH)
modpath = hawk_dupbcstrarr(hawk, tmp, HAWK_NULL);
#else
modpath = hawk_dupucstrarrtobcstr(hawk, tmp, HAWK_NULL);
#endif
if (!modpath) return HAWK_NULL;
h = LoadModule(modpath);
if (!h) hawk_seterrnum (hawk, HAWK_NULL, HAWK_ESYSERR);
hawk_freemem (hawk, modpath);
HAWK_ASSERT (HAWK_SIZEOF(h) <= HAWK_SIZEOF(void*));
return h;
}
else
{
void* h;
fixed a potential issue by shared data access in mod-hawk.c
2020-12-28 17:23:33 +00:00
h = GetModuleHandle(HAWK_NULL);
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (!h) hawk_seterrnum (hawk, HAWK_NULL, HAWK_ESYSERR);
return h;
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(USE_DLFCN)
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
if (spec)
adding HAWK_MODLIBDIR
2020-04-15 08:35:07 +00:00
{
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
void* h;
hawk_bch_t* modpath;
const hawk_ooch_t* tmp[6];
int count;
static hawk_ooch_t ds[] = { '/', '\0' };
count = 0;
if (spec->libdir)
{
hawk_oow_t len;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
tmp[count++] = spec->libdir;
len = hawk_count_oocstr(spec->libdir);
if (len > 0 && spec->libdir[len - 1] != '/') tmp[count++] = ds;
}
if (spec->prefix) tmp[count++] = spec->prefix;
tmp[count++] = spec->name;
if (spec->postfix) tmp[count++] = spec->postfix;
tmp[count] = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
#if defined(HAWK_OOCH_IS_BCH)
modpath = hawk_dupbcstrarr(hawk, tmp, HAWK_NULL);
#else
modpath = hawk_dupucstrarrtobcstr(hawk, tmp, HAWK_NULL);
#endif
if (!modpath) return HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
h = dlopen(modpath, RTLD_NOW | RTLD_LOCAL);
if (!h) hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), dlerror());
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
hawk_freemem (hawk, modpath);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some improvements to the ffi module. changed hawk::function_exists() to check a module function
2020-12-28 07:10:17 +00:00
return h;
}
else
{
void* h;
h = dlopen(NULL, RTLD_NOW | RTLD_LOCAL);
if (!h) hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), dlerror());
return h;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_ENOIMPL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return HAWK_NULL;
#endif
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
void hawk_stdmodclose (hawk_t* hawk, void* handle)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
#if defined(USE_LTDL)
lt_dlclose (handle);
#elif defined(_WIN32)
fixed a potential issue by shared data access in mod-hawk.c
2020-12-28 17:23:33 +00:00
if (handle != GetModuleHandle(HAWK_NULL)) FreeLibrary ((HMODULE)handle);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(__OS2__)
DosFreeModule ((HMODULE)handle);
#elif defined(__DOS__) && defined(HAWK_ENABLE_DOS_DYNAMIC_MODULE)
fixed a potential issue by shared data access in mod-hawk.c
2020-12-28 17:23:33 +00:00
if (handle != GetModuleHandle(HAWK_NULL)) FreeModule (handle);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(USE_DLFCN)
dlclose (handle);
#else
/* nothing to do */
#endif
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
void* hawk_stdmodgetsym (hawk_t* hawk, void* handle, const hawk_ooch_t* name)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
void* s;
hawk_bch_t* mname;
#if defined(HAWK_OOCH_IS_BCH)
mname = (hawk_bch_t*)name;
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
mname = hawk_duputobcstr(hawk, name, HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (!mname) return HAWK_NULL;
#endif
#if defined(USE_LTDL)
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
s = lt_dlsym(handle, mname);
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (!s) hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), lt_dlerror());
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(_WIN32)
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
s = GetProcAddress((HMODULE)handle, mname);
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (!s) hawk_seterrnum (hawk, HAWK_NULL, hawk_syserr_to_errnum(GetLastError());
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(__OS2__)
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
{
APIRET rc;
rc = DosQueryProcAddr((HMODULE)handle, 0, mname, (PFN*)&s);
if (rc != NO_ERROR)
{
s = HAWK_NULL;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, hawk_syserr_to_errnum(rc));
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
}
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(__DOS__) && defined(HAWK_ENABLE_DOS_DYNAMIC_MODULE)
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
s = GetProcAddress(handle, mname);
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (!s) hawk_seterrnum (hawk, HAWK_NULL, HAWK_ESYSERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(USE_DLFCN)
fixed bugs in query_module() deleted unused files. added sys::resetdir().
2020-01-02 08:33:24 +00:00
s = dlsym(handle, mname);
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (!s) hawk_seterrfmt (hawk, HAWK_NULL, HAWK_ESYSERR, HAWK_T("%hs"), dlerror());
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#else
s = HAWK_NULL;
#endif
#if defined(HAWK_OOCH_IS_BCH)
/* nothing to do */
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_freemem (hawk, mname);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
return s;
}
added log writer
2019-12-14 16:05:10 +00:00
/* ----------------------------------------------------------------------- */
static HAWK_INLINE void reset_log_to_default (xtn_t* xtn)
{
#if defined(ENABLE_LOG_INITIALLY)
xtn->log.fd = 2;
xtn->log.fd_flag = 0;
#if defined(HAVE_ISATTY)
if (isatty(xtn->log.fd)) xtn->log.fd_flag |= LOGFD_TTY;
#endif
#else
xtn->log.fd = -1;
xtn->log.fd_flag = 0;
#endif
}
#if defined(EMSCRIPTEN)
EM_JS(int, write_all, (int, const hawk_bch_t* ptr, hawk_oow_t len), {
// UTF8ToString() doesn't handle a null byte in the middle of an array.
// Use the heap memory and pass the right portion to UTF8Decoder.
//console.log ("%s", UTF8ToString(ptr, len));
console.log ("%s", UTF8Decoder.decode(HEAPU8.subarray(ptr, ptr + len)));
return 0;
});
#else
static int write_all (int fd, const hawk_bch_t* ptr, hawk_oow_t len)
{
#if defined(EMSCRIPTEN)
EM_ASM_ ({
// UTF8ToString() doesn't handle a null byte in the middle of an array.
// Use the heap memory and pass the right portion to UTF8Decoder.
//console.log ("%s", UTF8ToString($0, $1));
console.log ("%s", UTF8Decoder.decode(HEAPU8.subarray($0, $0 + $1)));
}, ptr, len);
#else
while (len > 0)
{
hawk_ooi_t wr;
wr = write(fd, ptr, len);
if (wr <= -1)
{
#if defined(EAGAIN) && defined(EWOULDBLOCK) && (EAGAIN == EWOULDBLOCK)
if (errno == EAGAIN) continue;
#else
#if defined(EAGAIN)
if (errno == EAGAIN) continue;
#elif defined(EWOULDBLOCK)
if (errno == EWOULDBLOCK) continue;
#endif
#endif
#if defined(EINTR)
/* TODO: would this interfere with non-blocking nature of this VM? */
if (errno == EINTR) continue;
#endif
return -1;
}
ptr += wr;
len -= wr;
}
#endif
return 0;
}
#endif
static int write_log (hawk_t* hawk, int fd, const hawk_bch_t* ptr, hawk_oow_t len)
{
xtn_t* xtn = GET_XTN(hawk);
while (len > 0)
{
if (xtn->log.out.len > 0)
{
hawk_oow_t rcapa, cplen;
rcapa = HAWK_COUNTOF(xtn->log.out.buf) - xtn->log.out.len;
cplen = (len >= rcapa)? rcapa: len;
HAWK_MEMCPY (&xtn->log.out.buf[xtn->log.out.len], ptr, cplen);
xtn->log.out.len += cplen;
ptr += cplen;
len -= cplen;
if (xtn->log.out.len >= HAWK_COUNTOF(xtn->log.out.buf))
{
int n;
n = write_all(fd, xtn->log.out.buf, xtn->log.out.len);
xtn->log.out.len = 0;
if (n <= -1) return -1;
}
}
else
{
hawk_oow_t rcapa;
rcapa = HAWK_COUNTOF(xtn->log.out.buf);
if (len >= rcapa)
{
if (write_all(fd, ptr, rcapa) <= -1) return -1;
ptr += rcapa;
len -= rcapa;
}
else
{
HAWK_MEMCPY (xtn->log.out.buf, ptr, len);
xtn->log.out.len += len;
ptr += len;
len -= len;
}
}
}
return 0;
}
static void flush_log (hawk_t* hawk, int fd)
{
xtn_t* xtn = GET_XTN(hawk);
if (xtn->log.out.len > 0)
{
write_all (fd, xtn->log.out.buf, xtn->log.out.len);
xtn->log.out.len = 0;
}
}
static void log_write (hawk_t* hawk, hawk_bitmask_t mask, const hawk_ooch_t* msg, hawk_oow_t len)
{
xtn_t* xtn = GET_XTN(hawk);
hawk_bch_t buf[256];
hawk_oow_t ucslen, bcslen, msgidx;
int n, logfd;
if (mask & HAWK_LOG_STDERR) logfd = 2;
else if (mask & HAWK_LOG_STDOUT) logfd = 1;
else
{
logfd = xtn->log.fd;
#if !defined(EMSCRIPTEN)
hawk initializes block-local variables upon block entry regardless of migration to the outermost block by the parser. it emits the local variable declaration in the original nested block regardless of migration by the parser.
2020-11-12 08:02:36 +00:00
if (logfd <= -1)
{
return;
}
added log writer
2019-12-14 16:05:10 +00:00
#endif
}
/* TODO: beautify the log message.
* do classification based on mask. */
if (!(mask & (HAWK_LOG_STDOUT | HAWK_LOG_STDERR)))
{
#if defined(_WIN32)
TIME_ZONE_INFORMATION tzi;
SYSTEMTIME now;
#else
time_t now;
struct tm tm, *tmp;
#endif
#if defined(HAWK_OOCH_IS_UCH)
char ts[32 * HAWK_BCSIZE_MAX];
#else
char ts[32];
#endif
hawk_oow_t tslen;
#if defined(_WIN32)
/* %z for strftime() in win32 seems to produce a long non-numeric timezone name.
* i don't use strftime() for time formatting. */
GetLocalTime (&now);
if (GetTimeZoneInformation(&tzi) != TIME_ZONE_ID_INVALID)
{
tzi.Bias = -tzi.Bias;
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d %+02.2d%02.2d ",
(int)now.wYear, (int)now.wMonth, (int)now.wDay,
(int)now.wHour, (int)now.wMinute, (int)now.wSecond,
(int)(tzi.Bias / 60), (int)(tzi.Bias % 60));
}
else
{
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ",
(int)now.wYear, (int)now.wMonth, (int)now.wDay,
(int)now.wHour, (int)now.wMinute, (int)now.wSecond);
}
#elif defined(__OS2__)
now = time(HAWK_NULL);
#if defined(__WATCOMC__)
tmp = _localtime(&now, &tm);
#else
tmp = localtime(&now);
#endif
#if defined(__BORLANDC__)
/* the borland compiler doesn't handle %z properly - it showed 00 all the time */
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %Z ", tmp);
#else
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %z ", tmp);
#endif
if (tslen == 0)
{
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
}
#elif defined(__DOS__)
now = time(HAWK_NULL);
tmp = localtime(&now);
/* since i know that %z/%Z is not available in strftime, i switch to sprintf immediately */
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
#else
now = time(HAWK_NULL);
#if defined(HAVE_LOCALTIME_R)
tmp = localtime_r(&now, &tm);
#else
tmp = localtime(&now);
#endif
#if defined(HAVE_STRFTIME_SMALL_Z)
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %z ", tmp);
#else
tslen = strftime(ts, sizeof(ts), "%Y-%m-%d %H:%M:%S %Z ", tmp);
#endif
if (tslen == 0)
{
tslen = sprintf(ts, "%04d-%02d-%02d %02d:%02d:%02d ", tmp->tm_year + 1900, tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
}
#endif
write_log (hawk, logfd, ts, tslen);
}
if (logfd == xtn->log.fd && (xtn->log.fd_flag & LOGFD_TTY))
{
if (mask & HAWK_LOG_FATAL) write_log (hawk, logfd, "\x1B[1;31m", 7);
else if (mask & HAWK_LOG_ERROR) write_log (hawk, logfd, "\x1B[1;32m", 7);
else if (mask & HAWK_LOG_WARN) write_log (hawk, logfd, "\x1B[1;33m", 7);
}
#if defined(HAWK_OOCH_IS_UCH)
msgidx = 0;
while (len > 0)
{
ucslen = len;
bcslen = HAWK_COUNTOF(buf);
/*n = hawk_convootobchars(hawk, &msg[msgidx], &ucslen, buf, &bcslen);*/
n = hawk_conv_uchars_to_bchars_with_cmgr(&msg[msgidx], &ucslen, buf, &bcslen, hawk_getcmgr(hawk));
if (n == 0 || n == -2)
{
/* n = 0:
* converted all successfully
* n == -2:
* buffer not sufficient. not all got converted yet.
* write what have been converted this round. */
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (ucslen > 0); /* if this fails, the buffer size must be increased */
added log writer
2019-12-14 16:05:10 +00:00
/* attempt to write all converted characters */
if (write_log(hawk, logfd, buf, bcslen) <= -1) break;
if (n == 0) break;
else
{
msgidx += ucslen;
len -= ucslen;
}
}
else if (n <= -1)
{
/* conversion error but i just stop here but don't treat it as a hard error. */
break;
}
}
#else
write_log (hawk, logfd, msg, len);
#endif
if (logfd == xtn->log.fd && (xtn->log.fd_flag & LOGFD_TTY))
{
if (mask & (HAWK_LOG_FATAL | HAWK_LOG_ERROR | HAWK_LOG_WARN)) write_log (hawk, logfd, "\x1B[0m", 4);
}
flush_log (hawk, logfd);
}
/* ----------------------------------------------------------------------- */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static int add_globals (hawk_t* hawk);
static int add_functions (hawk_t* hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_t* hawk_openstd (hawk_oow_t xtnsize, hawk_errnum_t* errnum)
{
return hawk_openstdwithmmgr(&sys_mmgr, xtnsize, hawk_get_cmgr_by_id(HAWK_CMGR_UTF8), errnum);
}
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
static void fini_xtn (hawk_t* hawk, void* ctx)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn_t* xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (xtn->stdmod_up)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_stdmodshutdown (hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
xtn->stdmod_up = 0;
}
added log writer
2019-12-14 16:05:10 +00:00
if ((xtn->log.fd_flag & LOGFD_OPENED_HERE) && xtn->log.fd >= 0) close (xtn->log.fd);
reset_log_to_default (xtn);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
static void clear_xtn (hawk_t* hawk, void* ctx)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
/* nothing to do */
}
hawk_t* hawk_openstdwithmmgr (hawk_mmgr_t* mmgr, hawk_oow_t xtnsize, hawk_cmgr_t* cmgr, hawk_errnum_t* errnum)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_t* hawk;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_prm_t prm;
xtn_t* xtn;
prm.math.pow = hawk_stdmathpow;
prm.math.mod = hawk_stdmathmod;
prm.modopen = std_mod_open_checked;
prm.modclose = hawk_stdmodclose;
prm.modgetsym = hawk_stdmodgetsym;
added log writer
2019-12-14 16:05:10 +00:00
prm.logwrite = log_write;
added the xma memory manager
2020-11-02 09:54:12 +00:00
if (!mmgr) mmgr = &sys_mmgr;
if (!cmgr) cmgr = hawk_get_cmgr_by_id(HAWK_CMGR_UTF8);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* create an object */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk = hawk_open(mmgr, HAWK_SIZEOF(xtn_t) + xtnsize, cmgr, &prm, errnum);
added the xma memory manager
2020-11-02 09:54:12 +00:00
if (HAWK_UNLIKELY(!hawk)) return HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* adjust the object size by the sizeof xtn_t so that hawk_getxtn() returns the right pointer. */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk->_instsize += HAWK_SIZEOF(xtn_t);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added HAWK_OPT_MODLIBDIRS to specify search path for module files
2020-04-15 15:12:28 +00:00
/*
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#if defined(USE_DLFCN)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk_setopt(hawk, HAWK_OPT_MODPOSTFIX, HAWK_T(".so")) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (errnum) *errnum = hawk_geterrnum(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
goto oops;
}
#endif
added HAWK_OPT_MODLIBDIRS to specify search path for module files
2020-04-15 15:12:28 +00:00
*/
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* initialize extension */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn = GET_XTN(hawk);
added log writer
2019-12-14 16:05:10 +00:00
reset_log_to_default (xtn);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* add intrinsic global variables and functions */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (add_globals(hawk) <= -1 || add_functions(hawk) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (errnum) *errnum = hawk_geterrnum(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
goto oops;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk_stdmodstartup(hawk) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
xtn->stdmod_up = 0;
/* carry on regardless of failure */
}
else
{
xtn->stdmod_up = 1;
}
xtn->ecb.close = fini_xtn;
xtn->ecb.clear = clear_xtn;
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
xtn->ecb.ctx = HAWK_NULL;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_pushecb (hawk, &xtn->ecb);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
return hawk;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
oops:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk) hawk_close (hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return HAWK_NULL;
}
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
static hawk_sio_t* open_sio (hawk_t* hawk, const hawk_ooch_t* file, int flags)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_sio_t* sio;
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
sio = hawk_sio_open(hawk_getgem(hawk), 0, file, flags);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (sio == HAWK_NULL)
{
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
const hawk_ooch_t* bem = hawk_backuperrmsg(hawk);
changed hawk_seterrnum() to be consistent with hawk_gem_seterrnum()
2020-01-01 04:46:49 +00:00
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EOPEN, HAWK_T("unable to open %js - %js"), file, bem);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
return sio;
}
static hawk_sio_t* open_sio_rtx (hawk_rtx_t* rtx, const hawk_ooch_t* file, int flags)
{
hawk_sio_t* sio;
more fixes to use gem
2019-12-18 05:15:03 +00:00
sio = hawk_sio_open(hawk_rtx_getgem(rtx), 0, file, flags);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
if (sio == HAWK_NULL)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
const hawk_ooch_t* bem = hawk_rtx_backuperrmsg(rtx);
changed hawk_seterrnum() to be consistent with hawk_gem_seterrnum()
2020-01-01 04:46:49 +00:00
hawk_rtx_seterrfmt (rtx, HAWK_NULL, HAWK_EOPEN, HAWK_T("unable to open %js - %js"), file, bem);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
return sio;
}
static hawk_oocs_t sio_std_names[] =
{
{ HAWK_T("stdin"), 5 },
{ HAWK_T("stdout"), 6 },
{ HAWK_T("stderr"), 6 }
};
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_sio_t* open_sio_std (hawk_t* hawk, hawk_sio_std_t std, int flags)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_sio_t* sio;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
sio = hawk_sio_openstd(hawk_getgem(hawk), 0, std, flags);
more fixes to use gem
2019-12-18 05:15:03 +00:00
if (sio == HAWK_NULL)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
const hawk_ooch_t* bem = hawk_backuperrmsg(hawk);
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EOPEN, HAWK_T("unable to open %js - %js"), &sio_std_names[std], bem);
more fixes to use gem
2019-12-18 05:15:03 +00:00
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return sio;
}
static hawk_sio_t* open_sio_std_rtx (hawk_rtx_t* rtx, hawk_sio_std_t std, int flags)
{
hawk_sio_t* sio;
more fixes to use gem
2019-12-18 05:15:03 +00:00
sio = hawk_sio_openstd(hawk_rtx_getgem(rtx), 0, std, flags);
if (sio == HAWK_NULL)
{
const hawk_ooch_t* bem = hawk_rtx_backuperrmsg(rtx);
changed hawk_seterrnum() to be consistent with hawk_gem_seterrnum()
2020-01-01 04:46:49 +00:00
hawk_rtx_seterrfmt (rtx, HAWK_NULL, HAWK_EOPEN, HAWK_T("unable to open %js - %js"), &sio_std_names[std], bem);
more fixes to use gem
2019-12-18 05:15:03 +00:00
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return sio;
}
/*** PARSESTD ***/
static int is_psin_file (hawk_parsestd_t* psin)
{
return psin->type == HAWK_PARSESTD_FILE ||
psin->type == HAWK_PARSESTD_FILEB ||
psin->type == HAWK_PARSESTD_FILEU;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static int open_parsestd (hawk_t* hawk, hawk_sio_arg_t* arg, xtn_t* xtn, hawk_oow_t index)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_parsestd_t* psin = &xtn->s.in.x[index];
switch (psin->type)
{
/* normal source files */
#if defined(HAWK_OOCH_IS_BCH)
case HAWK_PARSESTD_FILE:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (&psin->u.fileb.path == &psin->u.file.path);
HAWK_ASSERT (&psin->u.fileb.cmgr == &psin->u.file.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
case HAWK_PARSESTD_FILEB:
{
hawk_sio_t* tmp;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t* path = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (psin->u.fileb.path == HAWK_NULL || (psin->u.fileb.path[0] == '-' && psin->u.fileb.path[1] == '\0'))
{
/* no path name or - -> stdin */
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
path = HAWK_NULL;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
tmp = open_sio_std(hawk, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
else
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
path = hawk_addsionamewithbchars(hawk, psin->u.fileb.path, hawk_count_bcstr(psin->u.fileb.path));
simplified HawkStd::SourceFile functions
2021-08-17 19:26:41 +00:00
if (HAWK_UNLIKELY(!path)) return -1;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
tmp = open_sio(hawk, path, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR | HAWK_SIO_KEEPPATH);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
if (tmp == HAWK_NULL) return -1;
if (index >= 1 && is_psin_file(&xtn->s.in.x[index - 1])) hawk_sio_close (arg->handle);
arg->handle = tmp;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
arg->path = path;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (psin->u.fileb.cmgr) hawk_sio_setcmgr (arg->handle, psin->u.fileb.cmgr);
return 0;
}
#if defined(HAWK_OOCH_IS_UCH)
case HAWK_PARSESTD_FILE:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (&psin->u.fileu.path == &psin->u.file.path);
HAWK_ASSERT (&psin->u.fileu.cmgr == &psin->u.file.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
case HAWK_PARSESTD_FILEU:
{
hawk_sio_t* tmp;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t* path;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (psin->u.fileu.path == HAWK_NULL || (psin->u.fileu.path[0] == '-' && psin->u.fileu.path[1] == '\0'))
{
/* no path name or - -> stdin */
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
path = HAWK_NULL;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
tmp = open_sio_std(hawk, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
else
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
path = hawk_addsionamewithuchars(hawk, psin->u.fileu.path, hawk_count_ucstr(psin->u.fileu.path));
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (!path) return -1;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
tmp = open_sio(hawk, path, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR | HAWK_SIO_KEEPPATH);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
if (tmp == HAWK_NULL) return -1;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (index >= 1 && is_psin_file(&xtn->s.in.x[index - 1])) hawk_sio_close (arg->handle);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
arg->handle = tmp;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
arg->path = path;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (psin->u.fileu.cmgr) hawk_sio_setcmgr (arg->handle, psin->u.fileu.cmgr);
return 0;
}
case HAWK_PARSESTD_OOCS:
if (index >= 1 && is_psin_file(&xtn->s.in.x[index - 1])) hawk_sio_close (arg->handle);
xtn->s.in.u.oocs.ptr = psin->u.oocs.ptr;
xtn->s.in.u.oocs.end = psin->u.oocs.ptr + psin->u.oocs.len;
return 0;
case HAWK_PARSESTD_BCS:
if (index >= 1 && is_psin_file(&xtn->s.in.x[index - 1])) hawk_sio_close (arg->handle);
xtn->s.in.u.bcs.ptr = psin->u.bcs.ptr;
xtn->s.in.u.bcs.end = psin->u.bcs.ptr + psin->u.bcs.len;
return 0;
case HAWK_PARSESTD_UCS:
if (index >= 1 && is_psin_file(&xtn->s.in.x[index - 1])) hawk_sio_close (arg->handle);
xtn->s.in.u.ucs.ptr = psin->u.ucs.ptr;
xtn->s.in.u.ucs.end = psin->u.ucs.ptr + psin->u.ucs.len;
return 0;
default:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
}
static int fill_sio_arg_unique_id (hawk_t* hawk, hawk_sio_arg_t* arg, const hawk_ooch_t* path)
{
#if defined(_WIN32)
return -1;
#elif defined(__OS2__)
return -1;
#elif defined(__DOS__)
return -1;
#else
hawk_stat_t st;
int x;
struct
{
hawk_uintptr_t ino;
hawk_uintptr_t dev;
} tmp;
#if defined(HAWK_OOCH_IS_BCH)
x = HAWK_STAT(path, &st);
if (x <= -1) return -1;
#else
hawk_bch_t* bpath;
bpath= hawk_duputobcstr(hawk, path, HAWK_NULL);
if (!bpath) return -1;
x = HAWK_STAT(bpath, &st);
hawk_freemem (hawk, bpath);
if (x <= -1) return -1;
#endif
tmp.ino = st.st_ino;
tmp.dev = st.st_dev;
HAWK_MEMCPY (arg->unique_id, &tmp, (HAWK_SIZEOF(tmp) > HAWK_SIZEOF(arg->unique_id)? HAWK_SIZEOF(arg->unique_id): HAWK_SIZEOF(tmp)));
return 0;
#endif
}
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
int hawk_stdplainfileexists (hawk_t* hawk, const hawk_ooch_t* file)
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
{
#if defined(_WIN32)
DWORD attr;
attr = GetFileAttributes(file);
if (attr == INVALID_FILE_ATTRIBUTES) return 0;
if (attr & FILE_ATTRIBUTE_DIRECTORY) return 0; /* not a plain file. it's a directory */
return 1;
#else
struct stat st;
#if defined(HAWK_OOCH_IS_UCH)
hawk_bch_t* tmp;
int n;
tmp = hawk_duputobcstr(hawk, file, HAWK_NULL);
if (!tmp) return 0;
n = stat(tmp, &st);
hawk_freemem (hawk, tmp);
if (n == -1) return 0;
#else
if (stat(file, &st) == -1) return 0;
#endif
if (S_ISDIR(st.st_mode)) return 0; /* not a plain file, it's a directory */
return 1;
#endif
}
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
const hawk_ooch_t* hawk_stdgetfileindirs (hawk_t* hawk, const hawk_oocs_t* dirs, const hawk_ooch_t* file)
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
{
xtn_t* xtn = GET_XTN(hawk);
const hawk_ooch_t* ptr = dirs->ptr;
const hawk_ooch_t* dirend = dirs->ptr + dirs->len;
const hawk_ooch_t* colon, * endptr;
while (1)
{
colon = hawk_find_oochar_in_oocstr(ptr, ':');
endptr = colon? colon: dirend;
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
if (hawk_copyoocharstosbuf(hawk, ptr, endptr - ptr, HAWK_SBUF_ID_TMP_3) <= -1 ||
hawk_concatoochartosbuf(hawk, '/', 1, HAWK_SBUF_ID_TMP_3) <= -1 ||
hawk_concatoocstrtosbuf(hawk, file, HAWK_SBUF_ID_TMP_3) <= -1) break;
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
if (hawk_stdplainfileexists(hawk, hawk->sbuf[HAWK_SBUF_ID_TMP_3].ptr))
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
{
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
return hawk->sbuf[HAWK_SBUF_ID_TMP_3].ptr;
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
}
if (!colon) break;
ptr = colon + 1;
}
return HAWK_NULL;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t sf_in_open (hawk_t* hawk, hawk_sio_arg_t* arg, xtn_t* xtn)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
if (arg->prev == HAWK_NULL)
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
/* handle top-level source input stream specified to hawk_parsestd() */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_ooi_t x;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
HAWK_ASSERT (arg == &hawk->sio.arg);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
x = open_parsestd(hawk, arg, xtn, 0);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (x >= 0) xtn->s.in.xindex = 0; /* update the current stream index */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return x;
}
else
{
/* handle the included source file - @include */
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t* xpath;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (arg->name != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (arg->prev->handle)
{
const hawk_ooch_t* outer;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
const hawk_ooch_t* path;
hawk_ooch_t fbuf[64];
hawk_ooch_t* dbuf = HAWK_NULL;
path = arg->name;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
outer = hawk_sio_getpath(arg->prev->handle);
if (outer)
{
const hawk_ooch_t* base;
base = hawk_get_base_name_oocstr(outer);
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
if (base != outer && arg->name[0] != '/')
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_oow_t tmplen, totlen, dirlen;
dirlen = base - outer;
totlen = hawk_count_oocstr(arg->name) + dirlen;
if (totlen >= HAWK_COUNTOF(fbuf))
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
dbuf = hawk_allocmem(hawk, HAWK_SIZEOF(hawk_ooch_t) * (totlen + 1));
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (!dbuf) return -1;
path = dbuf;
}
else path = fbuf;
tmplen = hawk_copy_oochars_to_oocstr_unlimited((hawk_ooch_t*)path, outer, dirlen);
hawk_copy_oocstr_unlimited ((hawk_ooch_t*)path + tmplen, arg->name);
}
}
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
if (!hawk_stdplainfileexists(hawk, path) && hawk->opt.includedirs.len > 0 && arg->name[0] != '/')
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
{
const hawk_ooch_t* tmp;
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
tmp = hawk_stdgetfileindirs(hawk, &hawk->opt.includedirs, arg->name);
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
if (tmp) path = tmp;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xpath = hawk_addsionamewithoochars(hawk, path, hawk_count_oocstr(path));
if (dbuf) hawk_freemem (hawk, dbuf);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
}
else
{
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
const hawk_ooch_t* path;
path = arg->name;
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
if (!hawk_stdplainfileexists(hawk, path) && hawk->opt.includedirs.len > 0 && arg->name[0] != '/')
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
{
const hawk_ooch_t* tmp;
coded the includedirs support in the HawkStd class
2022-06-10 15:23:30 +00:00
tmp = hawk_stdgetfileindirs(hawk, &hawk->opt.includedirs, arg->name);
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
if (tmp) path = tmp;
}
xpath = hawk_addsionamewithoochars(hawk, path, hawk_count_oocstr(path));
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
}
if (!xpath) goto fail;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
arg->handle = hawk_sio_open(hawk_getgem(hawk), 0, xpath, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR | HAWK_SIO_KEEPPATH);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (!arg->handle)
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
const hawk_ooch_t* bem;
fail:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
bem = hawk_backuperrmsg(hawk);
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EOPEN, HAWK_T("unable to open %js - %js"), arg->name, bem);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
arg->path = xpath;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* TODO: use the system handle(file descriptor) instead of the path? */
/*syshnd = hawk_sio_gethnd(arg->handle);*/
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
fill_sio_arg_unique_id (hawk, arg, xpath); /* ignore failure */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return 0;
}
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t sf_in_close (hawk_t* hawk, hawk_sio_arg_t* arg, xtn_t* xtn)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
if (arg->prev == HAWK_NULL)
{
switch (xtn->s.in.x[xtn->s.in.xindex].type)
{
case HAWK_PARSESTD_FILE:
case HAWK_PARSESTD_FILEB:
case HAWK_PARSESTD_FILEU:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (arg->handle != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_sio_close (arg->handle);
break;
case HAWK_PARSESTD_OOCS:
case HAWK_PARSESTD_BCS:
case HAWK_PARSESTD_UCS:
/* nothing to close */
break;
default:
/* nothing to close */
break;
}
}
else
{
/* handle the included source file - @include */
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (arg->handle != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_sio_close (arg->handle);
}
return 0;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t sf_in_read (hawk_t* hawk, hawk_sio_arg_t* arg, hawk_ooch_t* data, hawk_oow_t size, xtn_t* xtn)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
if (arg->prev == HAWK_NULL)
{
hawk_ooi_t n;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
HAWK_ASSERT (arg == &hawk->sio.arg);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
again:
switch (xtn->s.in.x[xtn->s.in.xindex].type)
{
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
#if defined(HAWK_OOCH_IS_UCH)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_PARSESTD_FILE:
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
#endif
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_PARSESTD_FILEU:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (arg->handle != HAWK_NULL);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
n = hawk_sio_getoochars(arg->handle, data, size);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (n <= -1)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
const hawk_ooch_t* bem = hawk_backuperrmsg(hawk);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
const hawk_uch_t* path;
path = xtn->s.in.x[xtn->s.in.xindex].u.fileu.path;
if (path)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EREAD, HAWK_T("unable to read %ls - %js"), path, bem);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EREAD, HAWK_T("unable to read %js - %js"), sio_std_names[HAWK_SIO_STDIN].ptr, bem);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
}
break;
#if defined(HAWK_OOCH_IS_BCH)
case HAWK_PARSESTD_FILE:
#endif
case HAWK_PARSESTD_FILEB:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (arg->handle != HAWK_NULL);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
n = hawk_sio_getoochars(arg->handle, data, size);
if (n <= -1)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
const hawk_ooch_t* bem = hawk_backuperrmsg(hawk);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
const hawk_bch_t* path;
path = xtn->s.in.x[xtn->s.in.xindex].u.fileb.path;
if (path)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EREAD, HAWK_T("unable to read %hs - %js"), path, bem);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EREAD, HAWK_T("unable to read %js - %js"), sio_std_names[HAWK_SIO_STDIN].ptr, bem);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
break;
case HAWK_PARSESTD_OOCS:
parsestd_str:
n = 0;
while (n < size && xtn->s.in.u.oocs.ptr < xtn->s.in.u.oocs.end)
{
data[n++] = *xtn->s.in.u.oocs.ptr++;
}
break;
case HAWK_PARSESTD_BCS:
#if defined(HAWK_OOCH_IS_BCH)
goto parsestd_str;
#else
{
int m;
hawk_oow_t mbslen, wcslen;
mbslen = xtn->s.in.u.bcs.end - xtn->s.in.u.bcs.ptr;
wcslen = size;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if ((m = hawk_conv_bchars_to_uchars_with_cmgr(xtn->s.in.u.bcs.ptr, &mbslen, data, &wcslen, hawk_getcmgr(hawk), 0)) <= -1 && m != -2)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINVAL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
n = -1;
}
else
{
xtn->s.in.u.bcs.ptr += mbslen;
n = wcslen;
}
break;
}
#endif
case HAWK_PARSESTD_UCS:
#if defined(HAWK_OOCH_IS_BCH)
{
int m;
hawk_oow_t mbslen, wcslen;
wcslen = xtn->s.in.u.ucs.end - xtn->s.in.u.ucs.ptr;
mbslen = size;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if ((m = hawk_conv_uchars_to_bchars_with_cmgr(xtn->s.in.u.ucs.ptr, &wcslen, data, &mbslen, hawk_getcmgr(hawk))) <= -1 && m != -2)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINVAL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
n = -1;
}
else
{
xtn->s.in.u.ucs.ptr += wcslen;
n = mbslen;
}
break;
}
#else
goto parsestd_str;
#endif
default:
/* this should never happen */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
n = -1;
break;
}
if (n == 0)
{
/* reached end of the current stream. */
hawk_oow_t next = xtn->s.in.xindex + 1;
if (xtn->s.in.x[next].type != HAWK_PARSESTD_NULL)
{
/* open the next stream if available. */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (open_parsestd(hawk, arg, xtn, next) <= -1) n = -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
else
{
xtn->s.in.xindex = next; /* update the next to the current */
arg->line = 0; /* reset the line number */
arg->colm = 0;
goto again;
}
}
}
return n;
}
else
{
/* handle the included source file - @include */
hawk_ooi_t n;
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (arg->name != HAWK_NULL);
HAWK_ASSERT (arg->handle != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
n = hawk_sio_getoochars(arg->handle, data, size);
changed hawk_seterrnum() to be consistent with hawk_gem_seterrnum()
2020-01-01 04:46:49 +00:00
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (n <= -1)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
const hawk_ooch_t* bem = hawk_backuperrmsg(hawk);
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EREAD, HAWK_T("unable to read %js - %js"), arg->name, bem);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
return n;
}
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t sf_in (hawk_t* hawk, hawk_sio_cmd_t cmd, hawk_sio_arg_t* arg, hawk_ooch_t* data, hawk_oow_t size)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn_t* xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
switch (cmd)
{
case HAWK_SIO_CMD_OPEN:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
return sf_in_open(hawk, arg, xtn);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_SIO_CMD_CLOSE:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
return sf_in_close(hawk, arg, xtn);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_SIO_CMD_READ:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
return sf_in_read(hawk, arg, data, size, xtn);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
default:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t sf_out (hawk_t* hawk, hawk_sio_cmd_t cmd, hawk_sio_arg_t* arg, hawk_ooch_t* data, hawk_oow_t size)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn_t* xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
switch (cmd)
{
case HAWK_SIO_CMD_OPEN:
{
switch (xtn->s.out.x->type)
{
#if defined(HAWK_OOCH_IS_BCH)
case HAWK_PARSESTD_FILE:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (&xtn->s.out.x->u.fileb.path == &xtn->s.out.x->u.file.path);
HAWK_ASSERT (&xtn->s.out.x->u.fileb.cmgr == &xtn->s.out.x->u.file.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
case HAWK_PARSESTD_FILEB:
if (xtn->s.out.x->u.fileb.path == HAWK_NULL || (xtn->s.out.x->u.fileb.path[0] == '-' && xtn->s.out.x->u.fileb.path[1] == '\0'))
{
/* no path name or - -> stdout */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.file.sio = open_sio_std(hawk, HAWK_SIO_STDOUT, HAWK_SIO_WRITE | HAWK_SIO_IGNOREECERR | HAWK_SIO_LINEBREAK);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (xtn->s.out.u.file.sio == HAWK_NULL) return -1;
}
else
{
#if defined(HAWK_OOCH_IS_UCH)
hawk_uch_t* upath;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
upath = hawk_dupbtoucstr(hawk, xtn->s.out.x->u.fileb.path, HAWK_NULL, 1);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (!upath) return -1;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.file.sio = open_sio(hawk, upath, HAWK_SIO_WRITE | HAWK_SIO_CREATE | HAWK_SIO_TRUNCATE | HAWK_SIO_IGNOREECERR);
hawk_freemem (hawk, upath);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.file.sio = open_sio(hawk, xtn->s.out.x->u.fileb.path, HAWK_SIO_WRITE | HAWK_SIO_CREATE | HAWK_SIO_TRUNCATE | HAWK_SIO_IGNOREECERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
if (xtn->s.out.u.file.sio == HAWK_NULL) return -1;
}
if (xtn->s.out.x->u.fileb.cmgr) hawk_sio_setcmgr (xtn->s.out.u.file.sio, xtn->s.out.x->u.fileb.cmgr);
return 1;
#if defined(HAWK_OOCH_IS_UCH)
case HAWK_PARSESTD_FILE:
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (&xtn->s.out.x->u.fileu.path == &xtn->s.out.x->u.file.path);
HAWK_ASSERT (&xtn->s.out.x->u.fileu.cmgr == &xtn->s.out.x->u.file.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
case HAWK_PARSESTD_FILEU:
if (xtn->s.out.x->u.fileu.path == HAWK_NULL || (xtn->s.out.x->u.fileu.path[0] == '-' && xtn->s.out.x->u.fileu.path[1] == '\0'))
{
/* no path name or - -> stdout */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.file.sio = open_sio_std(hawk, HAWK_SIO_STDOUT, HAWK_SIO_WRITE | HAWK_SIO_IGNOREECERR | HAWK_SIO_LINEBREAK);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (xtn->s.out.u.file.sio == HAWK_NULL) return -1;
}
else
{
#if defined(HAWK_OOCH_IS_UCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.file.sio = open_sio(hawk, xtn->s.out.x->u.fileu.path, HAWK_SIO_WRITE | HAWK_SIO_CREATE | HAWK_SIO_TRUNCATE | HAWK_SIO_IGNOREECERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#else
hawk_bch_t* bpath;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
bpath = hawk_duputobcstr(hawk, xtn->s.out.x->u.fileu.path, HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (!bpath) return -1;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.file.sio = open_sio(hawk, bpath, HAWK_SIO_WRITE | HAWK_SIO_CREATE | HAWK_SIO_TRUNCATE | HAWK_SIO_IGNOREECERR);
hawk_freemem (hawk, bpath);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
if (xtn->s.out.u.file.sio == HAWK_NULL) return -1;
}
if (xtn->s.out.x->u.fileu.cmgr) hawk_sio_setcmgr (xtn->s.out.u.file.sio, xtn->s.out.x->u.fileu.cmgr);
return 1;
case HAWK_PARSESTD_OOCS:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.oocs.buf = hawk_ooecs_open(hawk_getgem(hawk), 0, 512);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (xtn->s.out.u.oocs.buf == HAWK_NULL) return -1;
return 1;
case HAWK_PARSESTD_BCS:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.bcs.buf = hawk_becs_open(hawk_getgem(hawk), 0, 512);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (xtn->s.out.u.bcs.buf == HAWK_NULL) return -1;
return 1;
case HAWK_PARSESTD_UCS:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->s.out.u.ucs.buf = hawk_uecs_open(hawk_getgem(hawk), 0, 512);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (xtn->s.out.u.ucs.buf == HAWK_NULL) return -1;
return 1;
added the sed module to hawk. raised the version to 0.9.6
2022-04-05 14:26:21 +00:00
default:
goto internal_error;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
break;
}
case HAWK_SIO_CMD_CLOSE:
{
switch (xtn->s.out.x->type)
{
case HAWK_PARSESTD_FILE:
case HAWK_PARSESTD_FILEB:
case HAWK_PARSESTD_FILEU:
hawk_sio_close (xtn->s.out.u.file.sio);
return 0;
case HAWK_PARSESTD_OOCS:
case HAWK_PARSESTD_BCS:
case HAWK_PARSESTD_UCS:
/* i don't close xtn->s.out.u.oocs.buf intentionally here.
* it will be closed at the end of hawk_parsestd() */
return 0;
added the sed module to hawk. raised the version to 0.9.6
2022-04-05 14:26:21 +00:00
default:
goto internal_error;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
break;
}
case HAWK_SIO_CMD_WRITE:
{
switch (xtn->s.out.x->type)
{
case HAWK_PARSESTD_FILE:
case HAWK_PARSESTD_FILEB:
case HAWK_PARSESTD_FILEU:
{
hawk_ooi_t n;
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (xtn->s.out.u.file.sio != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
n = hawk_sio_putoochars(xtn->s.out.u.file.sio, data, size);
if (n <= -1)
{
changed hawk_seterrnum() to be consistent with hawk_gem_seterrnum()
2020-01-01 04:46:49 +00:00
const hawk_ooch_t* ioname;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
const hawk_ooch_t* bem = hawk_backuperrmsg(hawk);
changed hawk_seterrnum() to be consistent with hawk_gem_seterrnum()
2020-01-01 04:46:49 +00:00
ioname = xtn->s.out.x->u.file.path;
if (!ioname) ioname = sio_std_names[HAWK_SIO_STDOUT].ptr;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrfmt (hawk, HAWK_NULL, HAWK_EWRITE, HAWK_T("unable to write to %js - %js"), ioname, bem);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
return n;
}
case HAWK_PARSESTD_OOCS:
parsestd_str:
if (size > HAWK_TYPE_MAX(hawk_ooi_t)) size = HAWK_TYPE_MAX(hawk_ooi_t);
added hawk_rtx_buildrex() and hawk_rtx_freertx()
2020-01-01 14:02:27 +00:00
if (hawk_ooecs_ncat(xtn->s.out.u.oocs.buf, data, size) == (hawk_oow_t)-1) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return size;
case HAWK_PARSESTD_BCS:
#if defined(HAWK_OOCH_IS_BCH)
goto parsestd_str;
#else
{
hawk_oow_t mbslen, wcslen;
hawk_oow_t orglen;
wcslen = size;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk_convutobchars(hawk, data, &wcslen, HAWK_NULL, &mbslen) <= -1) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (mbslen > HAWK_TYPE_MAX(hawk_ooi_t)) mbslen = HAWK_TYPE_MAX(hawk_ooi_t);
orglen = hawk_becs_getlen(xtn->s.out.u.bcs.buf);
added hawk_rtx_buildrex() and hawk_rtx_freertx()
2020-01-01 14:02:27 +00:00
if (hawk_becs_setlen(xtn->s.out.u.bcs.buf, orglen + mbslen) == (hawk_oow_t)-1) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
wcslen = size;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_convutobchars (hawk, data, &wcslen, HAWK_BECS_CPTR(xtn->s.out.u.bcs.buf, orglen), &mbslen);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
size = wcslen;
return size;
}
#endif
case HAWK_PARSESTD_UCS:
#if defined(HAWK_OOCH_IS_BCH)
{
hawk_oow_t mbslen, wcslen;
hawk_oow_t orglen;
mbslen = size;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk_convbtouchars(hawk, data, &mbslen, HAWK_NULL, &wcslen, 0) <= -1) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (wcslen > HAWK_TYPE_MAX(hawk_ooi_t)) wcslen = HAWK_TYPE_MAX(hawk_ooi_t);
orglen = hawk_becs_getlen(xtn->s.out.u.ucs.buf);
added hawk_rtx_buildrex() and hawk_rtx_freertx()
2020-01-01 14:02:27 +00:00
if (hawk_uecs_setlen(xtn->s.out.u.ucs.buf, orglen + wcslen) == (hawk_oow_t)-1) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
mbslen = size;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_convbtouchars (hawk, data, &mbslen, HAWK_UECS_CPTR(xtn->s.out.u.ucs.buf, orglen), &wcslen, 0);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
size = mbslen;
return size;
}
#else
goto parsestd_str;
#endif
added the sed module to hawk. raised the version to 0.9.6
2022-04-05 14:26:21 +00:00
default:
goto internal_error;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
break;
}
default:
/* other code must not trigger this function */
break;
}
added the sed module to hawk. raised the version to 0.9.6
2022-04-05 14:26:21 +00:00
internal_error:
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
int hawk_parsestd (hawk_t* hawk, hawk_parsestd_t in[], hawk_parsestd_t* out)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_sio_cbs_t sio;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn_t* xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
int n;
if (in == HAWK_NULL || (in[0].type != HAWK_PARSESTD_FILE &&
in[0].type != HAWK_PARSESTD_FILEB &&
in[0].type != HAWK_PARSESTD_FILEU &&
in[0].type != HAWK_PARSESTD_OOCS &&
in[0].type != HAWK_PARSESTD_BCS &&
in[0].type != HAWK_PARSESTD_UCS))
{
/* the input is a must. at least 1 file or 1 string
* must be specified */
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINVAL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
sio.in = sf_in;
xtn->s.in.x = in;
if (out == HAWK_NULL) sio.out = HAWK_NULL;
else
{
if (out->type != HAWK_PARSESTD_FILE &&
out->type != HAWK_PARSESTD_FILEB &&
out->type != HAWK_PARSESTD_FILEU &&
out->type != HAWK_PARSESTD_OOCS &&
out->type != HAWK_PARSESTD_BCS &&
out->type != HAWK_PARSESTD_UCS)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_seterrnum (hawk, HAWK_NULL, HAWK_EINVAL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
sio.out = sf_out;
xtn->s.out.x = out;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
n = hawk_parse(hawk, &sio);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (out)
{
switch (out->type)
{
case HAWK_PARSESTD_OOCS:
if (n >= 0)
{
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (xtn->s.out.u.oocs.buf != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_ooecs_yield (xtn->s.out.u.oocs.buf, &out->u.oocs, 0);
}
if (xtn->s.out.u.oocs.buf) hawk_ooecs_close (xtn->s.out.u.oocs.buf);
break;
case HAWK_PARSESTD_BCS:
if (n >= 0)
{
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (xtn->s.out.u.bcs.buf != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_becs_yield (xtn->s.out.u.bcs.buf, &out->u.bcs, 0);
}
if (xtn->s.out.u.bcs.buf) hawk_becs_close (xtn->s.out.u.bcs.buf);
break;
case HAWK_PARSESTD_UCS:
if (n >= 0)
{
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (xtn->s.out.u.ucs.buf != HAWK_NULL);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_uecs_yield (xtn->s.out.u.ucs.buf, &out->u.ucs, 0);
}
if (xtn->s.out.u.ucs.buf) hawk_uecs_close (xtn->s.out.u.ucs.buf);
break;
added the sed module to hawk. raised the version to 0.9.6
2022-04-05 14:26:21 +00:00
default:
/* do nothing */
break;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
}
return n;
}
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
static int check_var_assign (hawk_rtx_t* rtx, const hawk_ooch_t* str)
added hawk_isvalidident() & hawk_setgblbyname(). fixed the standard console input handler to process special arguments of the var=val format
2020-03-05 06:33:58 +00:00
{
hawk_unescape_bcstr()/hawk_unescape_ucstr()
2020-03-13 16:00:21 +00:00
hawk_ooch_t* eq, * dstr;
added hawk_isvalidident() & hawk_setgblbyname(). fixed the standard console input handler to process special arguments of the var=val format
2020-03-05 06:33:58 +00:00
int n;
eq = hawk_find_oochar_in_oocstr(str, '=');
if (!eq || eq <= str) return 0; /* not assignment */
hawk_unescape_bcstr()/hawk_unescape_ucstr()
2020-03-13 16:00:21 +00:00
dstr = hawk_rtx_dupoocstr(rtx, str, HAWK_NULL);
if (HAWK_UNLIKELY(!dstr)) return -1;
added hawk_isvalidident() & hawk_setgblbyname(). fixed the standard console input handler to process special arguments of the var=val format
2020-03-05 06:33:58 +00:00
hawk_unescape_bcstr()/hawk_unescape_ucstr()
2020-03-13 16:00:21 +00:00
eq = dstr + (eq - str);
*eq = '\0';
if (hawk_isvalidident(hawk_rtx_gethawk(rtx), dstr))
{
hawk_unescape_oocstr (eq + 1);
n = (hawk_rtx_setgbltostrbyname(rtx, dstr, eq + 1) <= -1)? -1: 1;
}
else
{
n = 0;
}
hawk_rtx_freemem (rtx, dstr);
added hawk_isvalidident() & hawk_setgblbyname(). fixed the standard console input handler to process special arguments of the var=val format
2020-03-05 06:33:58 +00:00
return n;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/*** RTX_OPENSTD ***/
added log writer
2019-12-14 16:05:10 +00:00
static ioattr_t* get_ioattr (hawk_htb_t* tab, const hawk_ooch_t* ptr, hawk_oow_t len);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#if defined(ENABLE_NWIO)
static hawk_ooi_t nwio_handler_open (hawk_rtx_t* rtx, hawk_rio_arg_t* riod, int flags, hawk_nwad_t* nwad, hawk_nwio_tmout_t* tmout)
{
hawk_nwio_t* handle;
handle = hawk_nwio_open (
hawk_rtx_getmmgr(rtx), 0, nwad,
flags | HAWK_NWIO_TEXT | HAWK_NWIO_IGNOREECERR |
HAWK_NWIO_REUSEADDR | HAWK_NWIO_READNORETRY | HAWK_NWIO_WRITENORETRY,
tmout
);
if (handle == HAWK_NULL) return -1;
#if defined(HAWK_OOCH_IS_UCH)
{
hawk_cmgr_t* cmgr = hawk_rtx_getiocmgrstd(rtx, riod->name);
if (cmgr) hawk_nwio_setcmgr (handle, cmgr);
}
#endif
riod->handle = (void*)handle;
riod->uflags = 1; /* nwio indicator */
return 1;
}
static hawk_ooi_t nwio_handler_rest (hawk_rtx_t* rtx, hawk_rio_cmd_t cmd, hawk_rio_arg_t* riod, void* data, hawk_oow_t size)
{
switch (cmd)
{
case HAWK_RIO_CMD_OPEN:
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
case HAWK_RIO_CMD_CLOSE:
hawk_nwio_close ((hawk_nwio_t*)riod->handle);
return 0;
case HAWK_RIO_CMD_READ:
return hawk_nwio_read((hawk_nwio_t*)riod->handle, data, size);
added Hawk::exec()
2020-01-14 09:10:47 +00:00
case HAWK_RIO_CMD_READBYTES:
return hawk_nwio_readbytes(((hawk_nwio_t*)riod->handle, data, size);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_WRITE:
return hawk_nwio_write((hawk_nwio_t*)riod->handle, data, size);
case HAWK_RIO_CMD_WRITE_BYTES:
return hawk_nwio_writebytes((hawk_nwio_t*)riod->handle, data, size);
case HAWK_RIO_CMD_FLUSH:
/*if (riod->mode == HAWK_RIO_PIPE_READ) return -1;*/
return hawk_nwio_flush((hawk_nwio_t*)riod->handle);
case HAWK_RIO_CMD_NEXT:
break;
}
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
static int parse_rwpipe_uri (const hawk_ooch_t* uri, int* flags, hawk_nwad_t* nwad)
{
static struct
{
const hawk_ooch_t* prefix;
hawk_oow_t len;
int flags;
} x[] =
{
{ HAWK_T("tcp://"), 6, HAWK_NWIO_TCP },
{ HAWK_T("udp://"), 6, HAWK_NWIO_UDP },
{ HAWK_T("tcpd://"), 7, HAWK_NWIO_TCP | HAWK_NWIO_PASSIVE },
{ HAWK_T("udpd://"), 7, HAWK_NWIO_UDP | HAWK_NWIO_PASSIVE }
};
int i;
for (i = 0; i < HAWK_COUNTOF(x); i++)
{
if (hawk_strzcmp (uri, x[i].prefix, x[i].len) == 0)
{
if (hawk_strtonwad (uri + x[i].len, nwad) <= -1) return -1;
*flags = x[i].flags;
return 0;
}
}
return -1;
}
#endif
static hawk_ooi_t pio_handler_open (hawk_rtx_t* rtx, hawk_rio_arg_t* riod)
{
hawk_pio_t* handle;
int flags;
if (riod->mode == HAWK_RIO_PIPE_READ)
{
/* TODO: should ERRTOOUT be unset? */
flags = HAWK_PIO_READOUT | HAWK_PIO_ERRTOOUT;
}
else if (riod->mode == HAWK_RIO_PIPE_WRITE)
{
flags = HAWK_PIO_WRITEIN;
}
else if (riod->mode == HAWK_RIO_PIPE_RW)
{
flags = HAWK_PIO_READOUT | HAWK_PIO_ERRTOOUT | HAWK_PIO_WRITEIN;
}
else
{
/* this must not happen */
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
more fixes to use gem
2019-12-18 05:15:03 +00:00
handle = hawk_pio_open(
hawk_rtx_getgem(rtx),
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
0,
riod->name,
flags | HAWK_PIO_SHELL | HAWK_PIO_TEXT | HAWK_PIO_IGNOREECERR
);
if (handle == HAWK_NULL) return -1;
#if defined(HAWK_OOCH_IS_UCH)
{
hawk_cmgr_t* cmgr = hawk_rtx_getiocmgrstd(rtx, riod->name);
if (cmgr)
{
hawk_pio_setcmgr (handle, HAWK_PIO_IN, cmgr);
hawk_pio_setcmgr (handle, HAWK_PIO_OUT, cmgr);
hawk_pio_setcmgr (handle, HAWK_PIO_ERR, cmgr);
}
}
#endif
riod->handle = (void*)handle;
riod->uflags = 0; /* pio indicator */
return 1;
}
static hawk_ooi_t pio_handler_rest (hawk_rtx_t* rtx, hawk_rio_cmd_t cmd, hawk_rio_arg_t* riod, void* data, hawk_oow_t size)
{
switch (cmd)
{
case HAWK_RIO_CMD_OPEN:
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
case HAWK_RIO_CMD_CLOSE:
{
hawk_pio_t* pio = (hawk_pio_t*)riod->handle;
if (riod->mode == HAWK_RIO_PIPE_RW)
{
/* specialy treatment is needed for rwpipe.
* inspect rwcmode to see if partial closing is
* requested. */
if (riod->rwcmode == HAWK_RIO_CMD_CLOSE_READ)
{
hawk_pio_end (pio, HAWK_PIO_IN);
return 0;
}
if (riod->rwcmode == HAWK_RIO_CMD_CLOSE_WRITE)
{
hawk_pio_end (pio, HAWK_PIO_OUT);
return 0;
}
}
hawk_pio_close (pio);
return 0;
}
case HAWK_RIO_CMD_READ:
added Hawk::exec()
2020-01-14 09:10:47 +00:00
return hawk_pio_read((hawk_pio_t*)riod->handle, HAWK_PIO_OUT, data, size);
case HAWK_RIO_CMD_READ_BYTES:
some support code for getbline. yet to be completed
2020-01-16 10:43:55 +00:00
return hawk_pio_readbytes((hawk_pio_t*)riod->handle, HAWK_PIO_OUT, data, size);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_WRITE:
return hawk_pio_write((hawk_pio_t*)riod->handle, HAWK_PIO_IN, data, size);
case HAWK_RIO_CMD_WRITE_BYTES:
return hawk_pio_writebytes((hawk_pio_t*)riod->handle, HAWK_PIO_IN, data, size);
case HAWK_RIO_CMD_FLUSH:
/*if (riod->mode == HAWK_RIO_PIPE_READ) return -1;*/
return hawk_pio_flush ((hawk_pio_t*)riod->handle, HAWK_PIO_IN);
case HAWK_RIO_CMD_NEXT:
break;
}
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t hawk_rio_pipe (hawk_rtx_t* rtx, hawk_rio_cmd_t cmd, hawk_rio_arg_t* riod, void* data, hawk_oow_t size)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
if (cmd == HAWK_RIO_CMD_OPEN)
{
#if defined(ENABLE_NWIO)
int flags;
hawk_nwad_t nwad;
if (riod->mode != HAWK_RIO_PIPE_RW ||
parse_rwpipe_uri(riod->name, &flags, &nwad) <= -1)
{
return pio_handler_open (rtx, riod);
}
else
{
hawk_nwio_tmout_t tmout_buf;
hawk_nwio_tmout_t* tmout = HAWK_NULL;
ioattr_t* ioattr;
rxtn_t* rxtn;
rxtn = GET_RXTN(rtx);
ioattr = get_ioattr(&rxtn->cmgrtab, riod->name, hawk_count_oocstr(riod->name));
if (ioattr)
{
tmout = &tmout_buf;
tmout->r = ioattr->tmout[0];
tmout->w = ioattr->tmout[1];
tmout->c = ioattr->tmout[2];
tmout->a = ioattr->tmout[3];
}
return nwio_handler_open(rtx, riod, flags, &nwad, tmout);
}
#else
return pio_handler_open (rtx, riod);
#endif
}
#if defined(ENABLE_NWIO)
else if (riod->uflags > 0)
return nwio_handler_rest(rtx, cmd, riod, data, size);
#endif
else
return pio_handler_rest(rtx, cmd, riod, data, size);
}
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
static void set_rio_error (hawk_rtx_t* rtx, hawk_errnum_t errnum, const hawk_ooch_t* errmsg, const hawk_ooch_t* path)
{
const hawk_ooch_t* bem = hawk_rtx_backuperrmsg(rtx);
hawk_rtx_seterrfmt (rtx, HAWK_NULL, errnum, HAWK_T("%js%js%js - %js"),
errmsg, (path? HAWK_T(" "): HAWK_T("")), (path? path: HAWK_T("")), bem);
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t hawk_rio_file (hawk_rtx_t* rtx, hawk_rio_cmd_t cmd, hawk_rio_arg_t* riod, void* data, hawk_oow_t size)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
switch (cmd)
{
case HAWK_RIO_CMD_OPEN:
{
hawk_sio_t* handle;
int flags = HAWK_SIO_IGNOREECERR;
switch (riod->mode)
{
case HAWK_RIO_FILE_READ:
flags |= HAWK_SIO_READ;
break;
case HAWK_RIO_FILE_WRITE:
flags |= HAWK_SIO_WRITE | HAWK_SIO_CREATE | HAWK_SIO_TRUNCATE;
break;
case HAWK_RIO_FILE_APPEND:
flags |= HAWK_SIO_APPEND | HAWK_SIO_CREATE;
break;
default:
/* this must not happen */
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (riod->name[0] == '-' && riod->name[1] == '\0')
{
if (riod->mode == HAWK_RIO_FILE_READ)
handle = open_sio_std_rtx(rtx, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR);
else
handle = open_sio_std_rtx(rtx, HAWK_SIO_STDOUT, HAWK_SIO_WRITE | HAWK_SIO_IGNOREECERR | HAWK_SIO_LINEBREAK);
}
else
{
handle = hawk_sio_open(hawk_rtx_getgem(rtx), 0, riod->name, flags);
}
if (!handle)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
set_rio_error (rtx, HAWK_EOPEN, HAWK_T("unable to open"), riod->name);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
#if defined(HAWK_OOCH_IS_UCH)
{
hawk_cmgr_t* cmgr = hawk_rtx_getiocmgrstd(rtx, riod->name);
if (cmgr) hawk_sio_setcmgr(handle, cmgr);
}
#endif
riod->handle = (void*)handle;
return 1;
}
case HAWK_RIO_CMD_CLOSE:
hawk_sio_close ((hawk_sio_t*)riod->handle);
riod->handle = HAWK_NULL;
return 0;
case HAWK_RIO_CMD_READ:
restored the -w option to work
2022-07-16 08:08:05 +00:00
{
hawk_ooi_t t;
t = hawk_sio_getoochars((hawk_sio_t*)riod->handle, data, size);
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
if (t <= -1) set_rio_error (rtx, HAWK_EOPEN, HAWK_T("unable to read"), riod->name);
restored the -w option to work
2022-07-16 08:08:05 +00:00
return t;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added Hawk::exec()
2020-01-14 09:10:47 +00:00
case HAWK_RIO_CMD_READ_BYTES:
restored the -w option to work
2022-07-16 08:08:05 +00:00
{
hawk_ooi_t t;
t = hawk_sio_getbchars((hawk_sio_t*)riod->handle, data, size);
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
if (t <= -1) set_rio_error (rtx, HAWK_EOPEN, HAWK_T("unable to read"), riod->name);
restored the -w option to work
2022-07-16 08:08:05 +00:00
return t;
}
added Hawk::exec()
2020-01-14 09:10:47 +00:00
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_WRITE:
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
{
hawk_ooi_t t;
t = hawk_sio_putoochars((hawk_sio_t*)riod->handle, data, size);
if (t <= -1) set_rio_error (rtx, HAWK_EOPEN, HAWK_T("unable to write"), riod->name);
return t;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_WRITE_BYTES:
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
{
hawk_ooi_t t;
t = hawk_sio_putbchars((hawk_sio_t*)riod->handle, data, size);
if (t <= -1) set_rio_error (rtx, HAWK_EOPEN, HAWK_T("unable to write"), riod->name);
return t;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_FLUSH:
renamed hawk_rtx_cleario() to hawk_rtx_clearallios(). added hawk_rtx_flushallios(). revised hawk_rtx_loop() and hawk_rtx_callfun() to call hawk_rtx_flushallios() instead of hawk_rtx_clearallios(). changed the io handler to discard unflushed data if flushing fails in std.c
2020-04-08 10:23:31 +00:00
{
int n;
n = hawk_sio_flush((hawk_sio_t*)riod->handle);
if (HAWK_UNLIKELY(n <= -1))
{
/* if flushing fails, discard the buffered data
* keeping the unflushed data causes causes subsequent write or close() to
* flush again and again */
hawk_sio_drain ((hawk_sio_t*)riod->handle);
}
return n;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_NEXT:
return -1;
}
return -1;
}
static int open_rio_console (hawk_rtx_t* rtx, hawk_rio_arg_t* riod)
{
rxtn_t* rxtn = GET_RXTN(rtx);
hawk_sio_t* sio;
if (riod->mode == HAWK_RIO_CONSOLE_READ)
{
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
#if 1
/* this part is more complex than the code in the else part.
* it handles simple assignemnt as well as open files
* via in ARGV instead of rxtn->c.in.files */
added @pragma stripstrspc on/off added a new global variable STRIPSTRSPC
2020-03-09 08:52:42 +00:00
xtn_t* xtn = (xtn_t*)GET_XTN(hawk_rtx_gethawk(rtx));
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
hawk_val_t* v_argc, * v_argv, * v_pair;
hawk_int_t i_argc;
const hawk_ooch_t* file;
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
hawk_map_t* map;
hawk_map_pair_t* pair;
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
hawk_ooch_t ibuf[128];
hawk_oow_t ibuflen;
hawk_oocs_t as;
int x;
v_argc = hawk_rtx_getgbl(rtx, xtn->gbl_argc);
HAWK_ASSERT (v_argc != HAWK_NULL);
if (hawk_rtx_valtoint(rtx, v_argc, &i_argc) <= -1) return -1;
/* handle special case when ARGV[x] has been altered.
* so from here down, the file name gotten from
* rxtn->c.in.files is not important and is overridden
* from ARGV.
* 'BEGIN { ARGV[1]="file3"; }
* { print $0; }' file1 file2
*/
v_argv = hawk_rtx_getgbl(rtx, xtn->gbl_argv);
HAWK_ASSERT (v_argv != HAWK_NULL);
if (HAWK_RTX_GETVALTYPE(rtx, v_argv) != HAWK_VAL_MAP)
{
/* with flexmap on, you can change ARGV to a scalar.
* BEGIN { ARGV="xxx"; }
* you must not do this. */
hawk_rtx_seterrfmt (rtx, HAWK_NULL, HAWK_EINVAL, HAWK_T("phony value in ARGV"));
return -1;
}
map = ((hawk_val_map_t*)v_argv)->map;
HAWK_ASSERT (map != HAWK_NULL);
nextfile:
if (rxtn->c.in.index >= (i_argc - 1)) /* ARGV is a kind of 0-based array unlike other normal arrays or substring indexing scheme */
{
/* reached the last ARGV */
if (rxtn->c.in.count <= 0) /* but no file has been ever opened */
{
console_open_stdin:
/* open stdin */
restored the -w option to work
2022-07-16 08:08:05 +00:00
sio = open_sio_std_rtx(rtx, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR);
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (HAWK_UNLIKELY(!sio)) return -1;
if (rxtn->c.cmgr) hawk_sio_setcmgr (sio, rxtn->c.cmgr);
riod->handle = sio;
rxtn->c.in.count++;
return 1;
}
return 0;
}
ibuflen = hawk_int_to_oocstr(rxtn->c.in.index + 1, 10, HAWK_NULL, ibuf, HAWK_COUNTOF(ibuf));
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
pair = hawk_map_search(map, ibuf, ibuflen);
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (!pair)
{
/* the key doesn't exist any more */
if (rxtn->c.in.count <= 0) goto console_open_stdin;
return 0; /* end of console */
}
v_pair = HAWK_HTB_VPTR(pair);
HAWK_ASSERT (v_pair != HAWK_NULL);
as.ptr = hawk_rtx_getvaloocstr(rtx, v_pair, &as.len);
if (HAWK_UNLIKELY(!as.ptr)) return -1;
if (as.len == 0)
{
/* the name is empty */
hawk_rtx_freevaloocstr (rtx, v_pair, as.ptr);
rxtn->c.in.index++;
goto nextfile;
}
if (hawk_count_oocstr(as.ptr) < as.len)
{
/* the name contains one or more '\0' */
hawk_rtx_seterrfmt (rtx, HAWK_NULL, HAWK_EIONMNL, HAWK_T("invalid I/O name of length %zu containing '\\0'"), as.len);
hawk_rtx_freevaloocstr (rtx, v_pair, as.ptr);
return -1;
}
file = as.ptr;
/*
* this is different from the -v option.
* if an argument has a special form of var=val, it is treated specially
*
* on the command-line
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
* hawk -f a.hawk a=20 /etc/passwd
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
* or via ARGV
* hawk 'BEGIN { ARGV[1] = "a=20"; }
* { print a $1; }' dummy /etc/hosts
*/
if ((x = check_var_assign(rtx, file)) != 0)
{
hawk_rtx_freevaloocstr (rtx, v_pair, as.ptr);
if (HAWK_UNLIKELY(x <= -1)) return -1;
rxtn->c.in.index++;
goto nextfile;
}
/* a temporary variable sio is used here not to change
* any fields of riod when the open operation fails */
sio = (file[0] == HAWK_T('-') && file[1] == HAWK_T('\0'))?
open_sio_std_rtx(rtx, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR):
restored the -w option to work
2022-07-16 08:08:05 +00:00
open_sio_rtx(rtx, file, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR | HAWK_SIO_KEEPPATH);
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (HAWK_UNLIKELY(!sio))
{
hawk_rtx_freevaloocstr (rtx, v_pair, as.ptr);
return -1;
}
if (rxtn->c.cmgr) hawk_sio_setcmgr (sio, rxtn->c.cmgr);
if (hawk_rtx_setfilenamewithoochars(rtx, file, hawk_count_oocstr(file)) <= -1)
{
hawk_sio_close (sio);
hawk_rtx_freevaloocstr (rtx, v_pair, as.ptr);
return -1;
}
hawk_rtx_freevaloocstr (rtx, v_pair, as.ptr);
riod->handle = sio;
/* increment the counter of files successfully opened */
rxtn->c.in.count++;
rxtn->c.in.index++;
return 1;
#else
/* simple console open implementation.
* no var=val handling. no ARGV handling */
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
renamed hawk_setgblbyname() to hawk_setgbltostrbyname()
2020-03-05 09:04:14 +00:00
if (!rxtn->c.in.files)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
/* if no input files is specified,
* open the standard input */
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (rxtn->c.in.index == 0);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (rxtn->c.in.count == 0)
{
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
console_open_stdin:
sio = open_sio_std_rtx(rtx, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (sio == HAWK_NULL) return -1;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (rxtn->c.cmgr) hawk_sio_setcmgr (sio, rxtn->c.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
riod->handle = sio;
rxtn->c.in.count++;
return 1;
}
return 0;
}
else
{
/* a temporary variable sio is used here not to change
* any fields of riod when the open operation fails */
const hawk_ooch_t* file;
nextfile:
file = rxtn->c.in.files[rxtn->c.in.index];
renamed hawk_setgblbyname() to hawk_setgbltostrbyname()
2020-03-05 09:04:14 +00:00
if (!file)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
/* no more input file */
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (rxtn->c.in.count == 0) goto console_open_stdin;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return 0;
}
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (file[0] == '\0')
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
rxtn->c.in.index++;
goto nextfile;
}
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
sio = (file[0] == '-' && file[1] == '\0')?
added a new global variable SCRIPTNAME which intends to store the first script name loaded
2020-03-03 08:03:04 +00:00
open_sio_std_rtx(rtx, HAWK_SIO_STDIN, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR):
open_sio_rtx(rtx, file, HAWK_SIO_READ | HAWK_SIO_IGNOREECERR);
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
if (HAWK_UNLIKELY(!sio)) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
if (rxtn->c.cmgr) hawk_sio_setcmgr (sio, rxtn->c.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some code touch up
2020-03-03 12:00:13 +00:00
if (hawk_rtx_setfilenamewithoochars(rtx, file, hawk_count_oocstr(file)) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_sio_close (sio);
return -1;
}
riod->handle = sio;
/* increment the counter of files successfully opened */
rxtn->c.in.count++;
rxtn->c.in.index++;
return 1;
}
updated open handling in standard console and file handlers
2020-03-05 15:11:55 +00:00
#endif
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
else if (riod->mode == HAWK_RIO_CONSOLE_WRITE)
{
if (rxtn->c.out.files == HAWK_NULL)
{
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (rxtn->c.out.index == 0);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (rxtn->c.out.count == 0)
{
sio = open_sio_std_rtx (
rtx, HAWK_SIO_STDOUT,
HAWK_SIO_WRITE | HAWK_SIO_IGNOREECERR | HAWK_SIO_LINEBREAK
);
if (sio == HAWK_NULL) return -1;
some simple touch-ups
2020-03-04 14:39:27 +00:00
if (rxtn->c.cmgr) hawk_sio_setcmgr (sio, rxtn->c.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
riod->handle = sio;
rxtn->c.out.count++;
return 1;
}
return 0;
}
else
{
/* a temporary variable sio is used here not to change
* any fields of riod when the open operation fails */
hawk_sio_t* sio;
const hawk_ooch_t* file;
file = rxtn->c.out.files[rxtn->c.out.index];
if (file == HAWK_NULL)
{
/* no more input file */
return 0;
}
sio = (file[0] == HAWK_T('-') && file[1] == HAWK_T('\0'))?
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
open_sio_std_rtx(rtx, HAWK_SIO_STDOUT, HAWK_SIO_WRITE | HAWK_SIO_IGNOREECERR | HAWK_SIO_LINEBREAK):
open_sio_rtx(rtx, file, HAWK_SIO_WRITE | HAWK_SIO_CREATE | HAWK_SIO_TRUNCATE | HAWK_SIO_IGNOREECERR);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (sio == HAWK_NULL) return -1;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (rxtn->c.cmgr) hawk_sio_setcmgr (sio, rxtn->c.cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some code touch up
2020-03-03 12:00:13 +00:00
if (hawk_rtx_setofilenamewithoochars(rtx, file, hawk_count_oocstr(file)) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_sio_close (sio);
return -1;
}
riod->handle = sio;
rxtn->c.out.index++;
rxtn->c.out.count++;
return 1;
}
}
return -1;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static hawk_ooi_t hawk_rio_console (hawk_rtx_t* rtx, hawk_rio_cmd_t cmd, hawk_rio_arg_t* riod, void* data, hawk_oow_t size)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
switch (cmd)
{
case HAWK_RIO_CMD_OPEN:
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
return open_rio_console(rtx, riod);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_CLOSE:
if (riod->handle) hawk_sio_close ((hawk_sio_t*)riod->handle);
return 0;
case HAWK_RIO_CMD_READ:
{
hawk_ooi_t nn;
while ((nn = hawk_sio_getoochars((hawk_sio_t*)riod->handle, data, size)) == 0)
{
int n;
hawk_sio_t* sio = (hawk_sio_t*)riod->handle;
n = open_rio_console(rtx, riod);
if (n <= -1) return -1;
if (n == 0)
{
/* no more input console */
return 0;
}
if (sio) hawk_sio_close (sio);
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
/* reset FNR to 0 here since the caller doesn't know that the file has changed. */
hawk_rtx_setgbl(rtx, HAWK_GBL_FNR, hawk_rtx_makeintval(rtx, 0));
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
restored the -w option to work
2022-07-16 08:08:05 +00:00
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
if (nn <= -1) set_rio_error (rtx, HAWK_EREAD, HAWK_T("unable to read"), hawk_sio_getpath((hawk_sio_t*)riod->handle));
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return nn;
}
added Hawk::exec()
2020-01-14 09:10:47 +00:00
case HAWK_RIO_CMD_READ_BYTES:
{
hawk_ooi_t nn;
while ((nn = hawk_sio_getbchars((hawk_sio_t*)riod->handle, data, size)) == 0)
{
int n;
hawk_sio_t* sio = (hawk_sio_t*)riod->handle;
n = open_rio_console(rtx, riod);
if (n <= -1) return -1;
if (n == 0)
{
/* no more input console */
return 0;
}
if (sio) hawk_sio_close (sio);
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
hawk_rtx_setgbl(rtx, HAWK_GBL_FNR, hawk_rtx_makeintval(rtx, 0));
added Hawk::exec()
2020-01-14 09:10:47 +00:00
}
restored the -w option to work
2022-07-16 08:08:05 +00:00
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
if (nn <= -1) set_rio_error (rtx, HAWK_EREAD, HAWK_T("unable to read"), hawk_sio_getpath((hawk_sio_t*)riod->handle));
added Hawk::exec()
2020-01-14 09:10:47 +00:00
return nn;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_WRITE:
restored the -w option to work
2022-07-16 08:08:05 +00:00
{
hawk_ooi_t nn;
nn = hawk_sio_putoochars((hawk_sio_t*)riod->handle, data, size);
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
if (nn <= -1) set_rio_error (rtx, HAWK_EREAD, HAWK_T("unable to write"), hawk_sio_getpath((hawk_sio_t*)riod->handle));
restored the -w option to work
2022-07-16 08:08:05 +00:00
return nn;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_WRITE_BYTES:
restored the -w option to work
2022-07-16 08:08:05 +00:00
{
hawk_ooi_t nn;
nn = hawk_sio_putbchars((hawk_sio_t*)riod->handle, data, size);
enhanced error message production in std.c
2022-07-16 15:52:02 +00:00
if (nn <= -1) set_rio_error (rtx, HAWK_EREAD, HAWK_T("unable to write"), hawk_sio_getpath((hawk_sio_t*)riod->handle));
restored the -w option to work
2022-07-16 08:08:05 +00:00
return nn;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_FLUSH:
renamed hawk_rtx_cleario() to hawk_rtx_clearallios(). added hawk_rtx_flushallios(). revised hawk_rtx_loop() and hawk_rtx_callfun() to call hawk_rtx_flushallios() instead of hawk_rtx_clearallios(). changed the io handler to discard unflushed data if flushing fails in std.c
2020-04-08 10:23:31 +00:00
{
int n;
n = hawk_sio_flush((hawk_sio_t*)riod->handle);
if (HAWK_UNLIKELY(n <= -1))
{
/* if flushing fails, discard the buffered data
* keeping the unflushed data causes causes subsequent write or close() to
* flush again and again */
hawk_sio_drain ((hawk_sio_t*)riod->handle);
}
return n;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
case HAWK_RIO_CMD_NEXT:
{
int n;
hawk_sio_t* sio = (hawk_sio_t*)riod->handle;
n = open_rio_console (rtx, riod);
if (n <= -1) return -1;
if (n == 0)
{
/* if there is no more file, keep the previous handle */
return 0;
}
if (sio) hawk_sio_close (sio);
return n;
}
}
changed hawk_rtx_seterrnum() to be consistent with hawk_gem_seterrnum()
2019-12-31 15:52:28 +00:00
hawk_rtx_seterrnum (rtx, HAWK_NULL, HAWK_EINTERN);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return -1;
}
upated the standard source script handler to honor the INCLUDEDIRS option
2022-06-10 08:53:42 +00:00
static void fini_rxtn (hawk_rtx_t* rtx, void* ctx)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
rxtn_t* rxtn = GET_RXTN(rtx);
added @pragma stripstrspc on/off added a new global variable STRIPSTRSPC
2020-03-09 08:52:42 +00:00
/*xtn_t* xtn = (xtn_t*)GET_XTN(hawk_rtx_gethawk(rtx));*/
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (rxtn->c.in.files)
{
hawk_oow_t i;
for (i = 0; rxtn->c.in.files[i]; i++) hawk_rtx_freemem(rtx, rxtn->c.in.files[i]);
hawk_rtx_freemem (rtx, rxtn->c.in.files);
rxtn->c.in.files = HAWK_NULL;
rxtn->c.in.count = 0;
rxtn->c.in.index = 0;
}
if (rxtn->c.out.files)
{
hawk_oow_t i;
for (i = 0; rxtn->c.out.files[i]; i++) hawk_rtx_freemem(rtx, rxtn->c.out.files[i]);
hawk_rtx_freemem (rtx, rxtn->c.out.files);
rxtn->c.out.files = HAWK_NULL;
rxtn->c.out.count = 0;
rxtn->c.out.index = 0;
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (rxtn->cmgrtab_inited)
{
hawk_htb_fini (&rxtn->cmgrtab);
rxtn->cmgrtab_inited = 0;
}
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
static int build_argcv (hawk_rtx_t* rtx, int argc_id, int argv_id, const hawk_ooch_t* id, hawk_ooch_t* icf[])
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t** p;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_oow_t argc;
hawk_val_t* v_argc;
hawk_val_t* v_argv;
hawk_val_t* v_tmp;
hawk_ooch_t key[HAWK_SIZEOF(hawk_int_t)*8+2];
hawk_oow_t key_len;
added a new global variable SCRIPTNAME which intends to store the first script name loaded
2020-03-03 08:03:04 +00:00
v_argv = hawk_rtx_makemapval(rtx);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (v_argv == HAWK_NULL) return -1;
hawk_rtx_refupval (rtx, v_argv);
/* make ARGV[0] */
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
v_tmp = hawk_rtx_makestrvalwithoocstr(rtx, id);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (v_tmp == HAWK_NULL)
{
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
/* increment reference count of v_tmp in advance as if
* it has successfully been assigned into ARGV. */
hawk_rtx_refupval (rtx, v_tmp);
key_len = hawk_copy_oocstr(key, HAWK_COUNTOF(key), HAWK_T("0"));
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
if (hawk_map_upsert(((hawk_val_map_t*)v_argv)->map, key, key_len, v_tmp, 0) == HAWK_NULL)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
/* if the assignment operation fails, decrements
* the reference of v_tmp to free it */
hawk_rtx_refdownval (rtx, v_tmp);
/* the values previously assigned into the
* map will be freeed when v_argv is freed */
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
if (icf)
{
for (argc = 1, p = icf; *p; p++, argc++)
{
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
/* the argument must compose a numeric value if possible */
/*v_tmp = hawk_rtx_makenstrvalwithoocstr(rtx, *p); */
v_tmp = hawk_rtx_makenumorstrvalwithoochars(rtx, *p, hawk_count_oocstr(*p));
if (HAWK_UNLIKELY(!v_tmp))
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
added a new global variable SCRIPTNAME which intends to store the first script name loaded
2020-03-03 08:03:04 +00:00
key_len = hawk_int_to_oocstr(argc, 10, HAWK_NULL, key, HAWK_COUNTOF(key));
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (key_len != (hawk_oow_t)-1);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_rtx_refupval (rtx, v_tmp);
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
if (hawk_map_upsert(((hawk_val_map_t*)v_argv)->map, key, key_len, v_tmp, 0) == HAWK_NULL)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_rtx_refdownval (rtx, v_tmp);
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
}
}
else argc = 1;
v_argc = hawk_rtx_makeintval(rtx, (hawk_int_t)argc);
if (v_argc == HAWK_NULL)
{
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
hawk_rtx_refupval (rtx, v_argc);
if (hawk_rtx_setgbl(rtx, argc_id, v_argc) <= -1)
{
hawk_rtx_refdownval (rtx, v_argc);
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
if (hawk_rtx_setgbl(rtx, argv_id, v_argv) <= -1)
{
hawk_rtx_refdownval (rtx, v_argc);
hawk_rtx_refdownval (rtx, v_argv);
return -1;
}
hawk_rtx_refdownval (rtx, v_argc);
hawk_rtx_refdownval (rtx, v_argv);
return 0;
}
/* TODO: use wenviron where it's available */
typedef hawk_bch_t env_char_t;
#define ENV_CHAR_IS_BCH
fixed the environ issue on macosx
2020-12-18 17:57:59 +00:00
#if defined(HAVE_CRT_EXTERNS_H)
#define environ (*(_NSGetEnviron()))
#else
extern char** environ;
#endif
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
static int build_environ (hawk_rtx_t* rtx, int gbl_id, env_char_t* envarr[])
{
hawk_val_t* v_env;
hawk_val_t* v_tmp;
fixed the bug of having omitted setting an error message when given wrong handle. more fixes in HawkStd
2020-01-06 08:53:31 +00:00
v_env = hawk_rtx_makemapval(rtx);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (v_env == HAWK_NULL) return -1;
hawk_rtx_refupval (rtx, v_env);
if (envarr)
{
env_char_t* eq;
hawk_ooch_t* kptr, * vptr;
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
hawk_oow_t klen, vlen, count;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (count = 0; envarr[count]; count++)
{
#if ((defined(ENV_CHAR_IS_BCH) && defined(HAWK_OOCH_IS_BCH)) || \
(defined(ENV_CHAR_IS_UCH) && defined(HAWK_OOCH_IS_UCH)))
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
eq = hawk_find_oochar_in_oocstr(envarr[count], '=');
if (HAWK_UNLIKELY(!eq || eq == envarr[count])) continue;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
kptr = envarr[count];
klen = eq - envarr[count];
vptr = eq + 1;
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
vlen = hawk_count_oocstr(vptr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#elif defined(ENV_CHAR_IS_BCH)
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
eq = hawk_find_bchar_in_bcstr(envarr[count], '=');
if (HAWK_UNLIKELY(!eq || eq == envarr[count])) continue;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
*eq = '\0';
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* dupbtoucstr() may fail for invalid encoding. as the environment
* variaables are not under control, call mbstowcsalldup() instead
* to go on despite encoding failure */
some code refactoring
2019-12-16 08:57:43 +00:00
kptr = hawk_rtx_dupbtoucstr(rtx, envarr[count], &klen, 1);
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
vptr = hawk_rtx_dupbtoucstr(rtx, eq + 1, &vlen, 1);
if (HAWK_UNLIKELY(!kptr || !vptr))
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
if (kptr) hawk_rtx_freemem (rtx, kptr);
if (vptr) hawk_rtx_freemem (rtx, vptr);
hawk_rtx_refdownval (rtx, v_env);
return -1;
}
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
*eq = '=';
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#else
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
eq = hawk_find_uchar_in_ucstr(envarr[count], '=');
if (HAWK_UNLIKELY(!eq || eq == envarr[count])) continue;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
*eq = '\0';
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
some code refactoring
2019-12-16 08:57:43 +00:00
kptr = hawk_rtx_duputobcstr(rtx, envarr[count], &klen);
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
vptr = hawk_rtx_duputobcstr(rtx, eq + 1, &vlen);
if (HAWK_UNLIKELY(!kptr || !vptr))
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
if (kptr) hawk_rtx_freemem (rtx, kptr);
if (vptr) hawk_rtx_freeme (rtx, vptr):
hawk_rtx_refdownval (rtx, v_env);
return -1;
}
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
*eq = '=';
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
/* the string in ENVIRON should be a numeric value if
* it can be converted to a number.
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
*v_tmp = hawk_rtx_makenstrvalwithoocstr(rtx, vptr);*/
added %u to printf changed %c with an empty string to '\0' in printf fixed the execution behavior of double patterned action block(e.g. /a/,/b/) fixed a bug in NF=value assignment handling fixed a bug when assigning NF with a large number than the current number of records fixed a bug in converting multidimensional array index to a string
2020-03-08 15:04:47 +00:00
v_tmp = hawk_rtx_makenumorstrvalwithoochars(rtx, vptr, vlen);
if (HAWK_UNLIKELY(!v_tmp))
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
#if ((defined(ENV_CHAR_IS_BCH) && defined(HAWK_OOCH_IS_BCH)) || \
(defined(ENV_CHAR_IS_UCH) && defined(HAWK_OOCH_IS_UCH)))
/* nothing to do */
#else
if (vptr) hawk_rtx_freemem (rtx, vptr);
if (kptr) hawk_rtx_freemem (rtx, kptr);
#endif
hawk_rtx_refdownval (rtx, v_env);
return -1;
}
/* increment reference count of v_tmp in advance as if
* it has successfully been assigned into ARGV. */
hawk_rtx_refupval (rtx, v_tmp);
added hawk-map.h which uses either htb or rbt depending on HAWK_MAP_IS_HTB or HAWK_MAP_IS_RBT the hawk's map value is now dependent on the above change. at compile time, you can choose HTB or RBT. fixed a bug of not resetting FNR in the standard console read handlers
2020-03-15 17:39:15 +00:00
if (hawk_map_upsert(((hawk_val_map_t*)v_env)->map, kptr, klen, v_tmp, 0) == HAWK_NULL)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
/* if the assignment operation fails, decrements
* the reference of v_tmp to free it */
hawk_rtx_refdownval (rtx, v_tmp);
#if ((defined(ENV_CHAR_IS_BCH) && defined(HAWK_OOCH_IS_BCH)) || \
(defined(ENV_CHAR_IS_UCH) && defined(HAWK_OOCH_IS_UCH)))
/* nothing to do */
#else
if (vptr) hawk_rtx_freemem (rtx, vptr);
if (kptr) hawk_rtx_freemem (rtx, kptr);
#endif
/* the values previously assigned into the
* map will be freeed when v_env is freed */
hawk_rtx_refdownval (rtx, v_env);
return -1;
}
#if ((defined(ENV_CHAR_IS_BCH) && defined(HAWK_OOCH_IS_BCH)) || \
(defined(ENV_CHAR_IS_UCH) && defined(HAWK_OOCH_IS_UCH)))
/* nothing to do */
#else
if (vptr) hawk_rtx_freemem (rtx, vptr);
if (kptr) hawk_rtx_freemem (rtx, kptr);
#endif
}
}
fixed the bug of having omitted setting an error message when given wrong handle. more fixes in HawkStd
2020-01-06 08:53:31 +00:00
if (hawk_rtx_setgbl(rtx, gbl_id, v_env) == -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_rtx_refdownval (rtx, v_env);
return -1;
}
hawk_rtx_refdownval (rtx, v_env);
return 0;
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
static int make_additional_globals (hawk_rtx_t* rtx, xtn_t* xtn, const hawk_ooch_t* id, hawk_ooch_t* icf[])
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
more fixes to use gem
2019-12-18 05:15:03 +00:00
if (build_argcv(rtx, xtn->gbl_argc, xtn->gbl_argv, id, icf) <= -1 ||
build_environ(rtx, xtn->gbl_environ, environ) <= -1) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
return 0;
}
static hawk_rtx_t* open_rtx_std (
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_t* hawk,
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_oow_t xtnsize,
const hawk_ooch_t* id,
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t* icf[],
hawk_ooch_t* ocf[],
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_cmgr_t* cmgr)
{
hawk_rtx_t* rtx;
hawk_rio_cbs_t rio;
rxtn_t* rxtn;
xtn_t* xtn;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
rio.pipe = hawk_rio_pipe;
rio.file = hawk_rio_file;
rio.console = hawk_rio_console;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
rtx = hawk_rtx_open(hawk, HAWK_SIZEOF(rxtn_t) + xtnsize, &rio);
added the xma memory manager
2020-11-02 09:54:12 +00:00
if (HAWK_UNLIKELY(!rtx)) return HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
rtx->_instsize += HAWK_SIZEOF(rxtn_t);
rxtn = GET_RXTN(rtx);
added @pragma stripstrspc on/off added a new global variable STRIPSTRSPC
2020-03-09 08:52:42 +00:00
if (rtx->hawk->opt.trait & HAWK_RIO)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk_htb_init(&rxtn->cmgrtab, hawk_getgem(hawk), 256, 70, HAWK_SIZEOF(hawk_ooch_t), 1) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_rtx_close (rtx);
return HAWK_NULL;
}
hawk_htb_setstyle (&rxtn->cmgrtab, hawk_get_htb_style(HAWK_HTB_STYLE_INLINE_COPIERS));
rxtn->cmgrtab_inited = 1;
}
rxtn->ecb.close = fini_rxtn;
hawk_rtx_pushecb (rtx, &rxtn->ecb);
rxtn->c.in.files = icf;
rxtn->c.in.index = 0;
rxtn->c.in.count = 0;
rxtn->c.out.files = ocf;
rxtn->c.out.index = 0;
rxtn->c.out.count = 0;
rxtn->c.cmgr = cmgr;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
/* FILENAME can be set when the input console is opened.
* so we skip setting it here even if an explicit console file
* is specified. So the value of FILENAME is empty in the
* BEGIN block unless getline is ever met.
*
* However, OFILENAME is different. The output
* console is treated as if it's already open upon start-up.
* otherwise, 'BEGIN { print OFILENAME; }' prints an empty
* string regardless of output console files specified.
* That's because OFILENAME is evaluated before the output
* console file is opened.
*/
if (ocf && ocf[0])
{
some code touch up
2020-03-03 12:00:13 +00:00
if (hawk_rtx_setofilenamewithoochars(rtx, ocf[0], hawk_count_oocstr(ocf[0])) <= -1)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_rtx_errortohawk (rtx, hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_rtx_close (rtx);
return HAWK_NULL;
}
}
if (make_additional_globals(rtx, xtn, id, icf) <= -1)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_rtx_errortohawk (rtx, hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_rtx_close (rtx);
return HAWK_NULL;
}
return rtx;
}
hawk_rtx_t* hawk_rtx_openstdwithbcstr (
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_t* hawk,
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_oow_t xtnsize,
const hawk_bch_t* id,
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_bch_t* icf[],
hawk_bch_t* ocf[],
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_cmgr_t* cmgr)
{
hawk_rtx_t* rtx = HAWK_NULL;
hawk_oow_t wcslen, i;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t* xid, ** xicf = HAWK_NULL, ** xocf = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_UCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xid = hawk_dupbtoucstr(hawk, id, &wcslen, 0);
added the xma memory manager
2020-11-02 09:54:12 +00:00
if (HAWK_UNLIKELY(!xid)) return HAWK_NULL;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#else
xid = (hawk_ooch_t*)id;
#endif
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (icf)
{
for (i = 0; icf[i]; i++) ;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xicf = (hawk_ooch_t**)hawk_callocmem(hawk, HAWK_SIZEOF(*xicf) * (i + 1));
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (!xicf) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (i = 0; icf[i]; i++)
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_UCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xicf[i] = hawk_dupbtoucstr(hawk, icf[i], &wcslen, 0);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xicf[i] = hawk_dupbcstr(hawk, icf[i], HAWK_NULL);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#endif
if (!xicf[i]) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
xicf[i] = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
if (ocf)
{
for (i = 0; ocf[i]; i++) ;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xocf = (hawk_ooch_t**)hawk_callocmem(hawk, HAWK_SIZEOF(*xocf) * (i + 1));
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (!xocf) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (i = 0; ocf[i]; i++)
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_UCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xocf[i] = hawk_dupbtoucstr(hawk, ocf[i], &wcslen, 0);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xocf[i] = hawk_dupucstr(hawk, ocf[i], HAWK_NULL);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#endif
if (!xocf[i]) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
xocf[i] = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
rtx = open_rtx_std(hawk, xtnsize, xid, xicf, xocf, cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
done:
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
if (!rtx)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (xocf)
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
for (i = 0; xocf[i]; i++) hawk_freemem (hawk, xocf[i]);
hawk_freemem (hawk, xocf);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (xicf)
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
for (i = 0; xicf[i]; i++) hawk_freemem (hawk, xicf[i]);
hawk_freemem (hawk, xicf);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_UCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_freemem (hawk, xid);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
return rtx;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
hawk_rtx_t* hawk_rtx_openstdwithucstr (
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_t* hawk,
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_oow_t xtnsize,
const hawk_uch_t* id,
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_uch_t* icf[],
hawk_uch_t* ocf[],
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_cmgr_t* cmgr)
{
hawk_rtx_t* rtx = HAWK_NULL;
hawk_oow_t mbslen, i;
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
hawk_ooch_t* xid, ** xicf = HAWK_NULL, ** xocf = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_BCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xid = hawk_duputobcstr(hawk, id, &mbslen);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (!xid) return HAWK_NULL;
#else
xid = (hawk_ooch_t*)id;
#endif
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (icf)
{
for (i = 0; icf[i]; i++) ;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xicf = (hawk_ooch_t**)hawk_callocmem(hawk, HAWK_SIZEOF(*xicf) * (i + 1));
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (!xicf) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (i = 0; icf[i]; i++)
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_BCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xicf[i] = hawk_duputobcstr(hawk, icf[i], &mbslen);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xicf[i] = hawk_dupucstr(hawk, icf[i], HAWK_NULL);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#endif
some code touch up
2020-03-03 12:00:13 +00:00
if (HAWK_UNLIKELY(!xicf[i])) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
xicf[i] = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
if (ocf)
{
for (i = 0; ocf[i]; i++) ;
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xocf = (hawk_ooch_t**)hawk_callocmem(hawk, HAWK_SIZEOF(*xocf) * (i + 1));
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (!xocf) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (i = 0; ocf[i]; i++)
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_BCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xocf[i] = hawk_dupbtoucstr(hawk, ocf[i], &mbslen, 0);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#else
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xocf[i] = hawk_dupucstr(hawk, ocf[i], HAWK_NULL);
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#endif
if (!xocf[i]) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
xocf[i] = HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
rtx = open_rtx_std(hawk, xtnsize, xid, xicf, xocf, cmgr);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
done:
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
if (!rtx)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (xocf)
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
for (i = 0; xocf[i]; i++) hawk_freemem (hawk, xocf[i]);
hawk_freemem (hawk, xocf);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
if (xicf)
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
for (i = 0; xicf[i]; i++) hawk_freemem (hawk, xicf[i]);
hawk_freemem (hawk, xicf);
cleaned up regular expression functions in misc.c
2019-12-19 09:11:40 +00:00
}
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
#if defined(HAWK_OOCH_IS_BCH)
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
hawk_freemem (hawk, xid);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
#endif
revived syslog functions in the sys module. fixed script and stream file name handling issues. added the path field to the hawk_sio_arg_t structure. the field should be set by the I/O handler if the name field is not HAWK_NULL.
2019-12-25 16:01:43 +00:00
return rtx;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
static int timeout_code (const hawk_ooch_t* name)
{
if (hawk_comp_oocstr(name, HAWK_T("rtimeout"), 1) == 0) return 0;
if (hawk_comp_oocstr(name, HAWK_T("wtimeout"), 1) == 0) return 1;
if (hawk_comp_oocstr(name, HAWK_T("ctimeout"), 1) == 0) return 2;
if (hawk_comp_oocstr(name, HAWK_T("atimeout"), 1) == 0) return 3;
return -1;
}
static HAWK_INLINE void init_ioattr (ioattr_t* ioattr)
{
int i;
HAWK_MEMSET (ioattr, 0, HAWK_SIZEOF(*ioattr));
for (i = 0; i < HAWK_COUNTOF(ioattr->tmout); i++)
{
/* a negative number for no timeout */
ioattr->tmout[i].sec = -999;
ioattr->tmout[i].nsec = 0;
}
}
added log writer
2019-12-14 16:05:10 +00:00
static ioattr_t* get_ioattr (hawk_htb_t* tab, const hawk_ooch_t* ptr, hawk_oow_t len)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_htb_pair_t* pair;
added log writer
2019-12-14 16:05:10 +00:00
pair = hawk_htb_search(tab, ptr, len);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (pair) return HAWK_HTB_VPTR(pair);
return HAWK_NULL;
}
added log writer
2019-12-14 16:05:10 +00:00
static ioattr_t* find_or_make_ioattr (hawk_rtx_t* rtx, hawk_htb_t* tab, const hawk_ooch_t* ptr, hawk_oow_t len)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
hawk_htb_pair_t* pair;
added log writer
2019-12-14 16:05:10 +00:00
pair = hawk_htb_search(tab, ptr, len);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (pair == HAWK_NULL)
{
ioattr_t ioattr;
init_ioattr (&ioattr);
added log writer
2019-12-14 16:05:10 +00:00
pair = hawk_htb_insert(tab, (void*)ptr, len, (void*)&ioattr, HAWK_SIZEOF(ioattr));
if (pair == HAWK_NULL) return HAWK_NULL;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
return (ioattr_t*)HAWK_HTB_VPTR(pair);
}
static int fnc_setioattr (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi)
{
touched up hawk_rtx_truncrec(). fixed a bug in hawk_xma_init()
2020-12-07 16:48:29 +00:00
/*hawk_t* hawk = hawk_rtx_gethawk(rtx);*/
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
rxtn_t* rxtn;
hawk_val_t* v[3];
hawk_ooch_t* ptr[3];
hawk_oow_t len[3];
int i, ret = 0, fret = 0;
int tmout;
rxtn = GET_RXTN(rtx);
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (rxtn->cmgrtab_inited == 1);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (i = 0; i < 3; i++)
{
ongoing code refactoring
2019-12-14 06:11:30 +00:00
v[i] = hawk_rtx_getarg(rtx, i);
ptr[i] = hawk_rtx_getvaloocstr(rtx, v[i], &len[i]);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (ptr[i] == HAWK_NULL)
{
ret = -1;
goto done;
}
renamed hawk_find_bchar() to hawk_find_bchar_in_bchars(). renamed similar function names in the same way. updated sys::openlog() to accept a local log socket path with remote:// (e.g. remote:///dev/log/xxx)
2020-12-16 15:13:29 +00:00
if (hawk_find_oochar_in_oochars(ptr[i], len[i], '\0'))
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
fret = -1;
goto done;
}
}
ongoing code refactoring
2019-12-14 06:11:30 +00:00
if ((tmout = timeout_code(ptr[1])) >= 0)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
ioattr_t* ioattr;
hawk_int_t l;
hawk_flt_t r;
int x;
/* no error is returned by hawk_rtx_strnum() if the strict option
* of the second parameter is 0. so i don't check for an error */
added @pragma stripstrspc on/off added a new global variable STRIPSTRSPC
2020-03-09 08:52:42 +00:00
x = hawk_oochars_to_num(HAWK_OOCHARS_TO_NUM_MAKE_OPTION(0, 0, HAWK_RTX_IS_STRIPSTRSPC_ON(rtx), 0), ptr[2], len[2], &l, &r);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (x == 0) r = (hawk_flt_t)l;
ioattr = find_or_make_ioattr(rtx, &rxtn->cmgrtab, ptr[0], len[0]);
if (ioattr == HAWK_NULL)
{
ret = -1;
goto done;
}
if (x == 0)
{
ioattr->tmout[tmout].sec = l;
ioattr->tmout[tmout].nsec = 0;
}
else if (x >= 1)
{
hawk_flt_t nsec;
ioattr->tmout[tmout].sec = (hawk_int_t)r;
nsec = r - ioattr->tmout[tmout].sec;
ioattr->tmout[tmout].nsec = HAWK_SEC_TO_NSEC(nsec);
}
}
#if defined(HAWK_OOCH_IS_UCH)
else if (hawk_comp_oocstr(ptr[1], HAWK_T("codepage"), 1) == 0 ||
hawk_comp_oocstr(ptr[1], HAWK_T("encoding"), 1) == 0)
{
ioattr_t* ioattr;
hawk_cmgr_t* cmgr;
if (ptr[2][0] == HAWK_T('\0'))
{
cmgr = HAWK_NULL;
}
else
{
cmgr = hawk_get_cmgr_by_name(ptr[2]);
if (cmgr == HAWK_NULL)
{
fret = -1;
goto done;
}
}
ioattr = find_or_make_ioattr(rtx, &rxtn->cmgrtab, ptr[0], len[0]);
if (ioattr == HAWK_NULL)
{
ret = -1;
goto done;
}
ioattr->cmgr = cmgr;
hawk_copy_oocstr (ioattr->cmgr_name, HAWK_COUNTOF(ioattr->cmgr_name), ptr[2]);
}
#endif
else
{
/* unknown attribute name */
fret = -1;
goto done;
}
done:
while (i > 0)
{
i--;
hawk_rtx_freevaloocstr (rtx, v[i], ptr[i]);
}
if (ret >= 0)
{
v[0] = hawk_rtx_makeintval (rtx, (hawk_int_t)fret);
if (v[0] == HAWK_NULL) return -1;
hawk_rtx_setretval (rtx, v[0]);
}
return ret;
}
static int fnc_getioattr (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi)
{
rxtn_t* rxtn;
hawk_val_t* v[2];
hawk_ooch_t* ptr[2];
hawk_oow_t len[2];
int i, ret = 0;
int tmout;
hawk_val_t* rv = HAWK_NULL;
ioattr_t* ioattr;
ioattr_t ioattr_buf;
rxtn = GET_RXTN(rtx);
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (rxtn->cmgrtab_inited == 1);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
for (i = 0; i < 2; i++)
{
v[i] = hawk_rtx_getarg (rtx, i);
ptr[i] = hawk_rtx_getvaloocstr (rtx, v[i], &len[i]);
if (ptr[i] == HAWK_NULL)
{
ret = -1;
goto done;
}
renamed hawk_find_bchar() to hawk_find_bchar_in_bchars(). renamed similar function names in the same way. updated sys::openlog() to accept a local log socket path with remote:// (e.g. remote:///dev/log/xxx)
2020-12-16 15:13:29 +00:00
if (hawk_find_oochar_in_oochars(ptr[i], len[i], '\0')) goto done;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
added log writer
2019-12-14 16:05:10 +00:00
ioattr = get_ioattr(&rxtn->cmgrtab, ptr[0], len[0]);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
if (ioattr == HAWK_NULL)
{
init_ioattr (&ioattr_buf);
ioattr = &ioattr_buf;
}
if ((tmout = timeout_code (ptr[1])) >= 0)
{
if (ioattr->tmout[tmout].nsec == 0)
rv = hawk_rtx_makeintval(rtx, ioattr->tmout[tmout].sec);
else
rv = hawk_rtx_makefltval(rtx, (hawk_flt_t)ioattr->tmout[tmout].sec + HAWK_NSEC_TO_SEC((hawk_flt_t)ioattr->tmout[tmout].nsec));
if (rv == HAWK_NULL)
{
ret = -1;
goto done;
}
}
#if defined(HAWK_OOCH_IS_UCH)
else if (hawk_comp_oocstr(ptr[1], HAWK_T("codepage"), 1) == 0 ||
hawk_comp_oocstr(ptr[1], HAWK_T("encoding"), 1) == 0)
{
rv = hawk_rtx_makestrvalwithoocstr(rtx, ioattr->cmgr_name);
if (rv == HAWK_NULL)
{
ret = -1;
goto done;
}
}
#endif
else
{
/* unknown attribute name */
goto done;
}
done:
while (i > 0)
{
i--;
hawk_rtx_freevaloocstr (rtx, v[i], ptr[i]);
}
if (ret >= 0)
{
if (rv)
{
hawk_rtx_refupval (rtx, rv);
use hawk_rtx_getvaloocstr()/hawk_rtx_getfreeoocstr() more wherever possible trying to make character handling sane
2020-12-07 16:22:39 +00:00
ret = hawk_rtx_setrefval(rtx, (hawk_val_ref_t*)hawk_rtx_getarg(rtx, 2), rv);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
hawk_rtx_refdownval (rtx, rv);
if (ret >= 0) hawk_rtx_setretval (rtx, HAWK_VAL_ZERO);
}
else
{
hawk_rtx_setretval (rtx, HAWK_VAL_NEGONE);
}
}
return ret;
}
hawk_cmgr_t* hawk_rtx_getiocmgrstd (hawk_rtx_t* rtx, const hawk_ooch_t* ioname)
{
#if defined(HAWK_OOCH_IS_UCH)
rxtn_t* rxtn = GET_RXTN(rtx);
ioattr_t* ioattr;
simplified assertion
2019-12-21 16:59:00 +00:00
HAWK_ASSERT (rxtn->cmgrtab_inited == 1);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
ioattr = get_ioattr(&rxtn->cmgrtab, ioname, hawk_count_oocstr(ioname));
if (ioattr) return ioattr->cmgr;
#endif
return HAWK_NULL;
}
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static int add_globals (hawk_t* hawk)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn_t* xtn = GET_XTN(hawk);
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
xtn->gbl_argc = hawk_addgblwithoocstr(hawk, HAWK_T("ARGC"));
xtn->gbl_argv = hawk_addgblwithoocstr(hawk, HAWK_T("ARGV"));
xtn->gbl_environ = hawk_addgblwithoocstr(hawk, HAWK_T("ENVIRON"));
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
fixed a bug handling -v in bin/main.c
2020-03-04 13:59:03 +00:00
return (HAWK_UNLIKELY(xtn->gbl_argc <= -1 || xtn->gbl_argv <= -1 || xtn->gbl_environ <= -1))? -1: 0;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
struct fnctab_t
{
const hawk_ooch_t* name;
hawk_fnc_spec_t spec;
};
static struct fnctab_t fnctab[] =
{
/* additional aliases to module functions */
{ HAWK_T("rand"), { {1, 0, HAWK_T("math")}, HAWK_NULL, 0 } },
{ HAWK_T("srand"), { {1, 0, HAWK_T("math")}, HAWK_NULL, 0 } },
{ HAWK_T("system"), { {1, 0, HAWK_T("sys")}, HAWK_NULL , 0 } },
/* additional functions */
{ HAWK_T("setioattr"), { {3, 3, HAWK_NULL}, fnc_setioattr, HAWK_RIO } },
{ HAWK_T("getioattr"), { {3, 3, HAWK_T("vvr")}, fnc_getioattr, HAWK_RIO } }
};
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
static int add_functions (hawk_t* hawk)
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
{
int i;
for (i = 0; i < HAWK_COUNTOF(fnctab); i++)
{
added %check to the rpm spec file. renamed awk to hawk updated copyright years
2020-04-16 03:42:30 +00:00
if (hawk_addfnc (hawk, fnctab[i].name, &fnctab[i].spec) == HAWK_NULL) return -1;
starting hawk. goodbye to qseawk
2019-12-13 04:29:58 +00:00
}
return 0;
}
Reference in New Issue Copy Permalink