750 lines
16 KiB
C
750 lines
16 KiB
C
/*
|
|
* $Id$
|
|
*
|
|
Copyright 2006-2012 Chung, Hyung-Hwan.
|
|
This file is part of QSE.
|
|
|
|
QSE is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as
|
|
published by the Free Software Foundation, either version 3 of
|
|
the License, or (at your option) any later version.
|
|
|
|
QSE is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with QSE. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <qse/awk/awk.h>
|
|
#include <qse/cmn/str.h>
|
|
#include <qse/cmn/time.h>
|
|
#include <qse/cmn/nwif.h>
|
|
#include <qse/cmn/nwad.h>
|
|
#include "../../lib/cmn/mem.h"
|
|
|
|
#if defined(_WIN32)
|
|
# include <windows.h>
|
|
# include <process.h>
|
|
#elif defined(__OS2__)
|
|
# define INCL_DOSPROCESS
|
|
# define INCL_DOSEXCEPTIONS
|
|
# define INCL_ERRORS
|
|
# include <os2.h>
|
|
#elif defined(__DOS__)
|
|
# include <dos.h>
|
|
#else
|
|
# include "../../lib/cmn/syscall.h"
|
|
# if defined(HAVE_SYS_SYSCALL_H)
|
|
# include <sys/syscall.h>
|
|
# endif
|
|
#endif
|
|
|
|
#include <stdlib.h> /* getenv */
|
|
#include <qse/cmn/stdio.h> /* qse_sprintf */
|
|
|
|
static int fnc_fork (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t pid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#else
|
|
pid = fork ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, pid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_wait (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t pid;
|
|
qse_awk_val_t* retv;
|
|
int rx;
|
|
|
|
/* TODO: handle more parameters */
|
|
|
|
rx = qse_awk_rtx_valtolong (rtx, qse_awk_rtx_getarg (rtx, 0), &pid);
|
|
if (rx >= 0)
|
|
{
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
rx = -1;
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
rx = -1;
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
rx = -1;
|
|
#else
|
|
rx = waitpid (pid, QSE_NULL, 0);
|
|
#endif
|
|
}
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, rx);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_kill (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t pid, sig;
|
|
qse_awk_val_t* retv;
|
|
int rx;
|
|
|
|
if (qse_awk_rtx_valtolong (rtx, qse_awk_rtx_getarg (rtx, 0), &pid) <= -1 ||
|
|
qse_awk_rtx_valtolong (rtx, qse_awk_rtx_getarg (rtx, 1), &sig) <= -1)
|
|
{
|
|
rx = -1;
|
|
}
|
|
else
|
|
{
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
rx = -1;
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
rx = -1;
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
rx = -1;
|
|
#else
|
|
rx = kill (pid, sig);
|
|
#endif
|
|
}
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, rx);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getpgrp (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t pid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#else
|
|
pid = getpgrp ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, pid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getpid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t pid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
pid = GetCurrentProcessId();
|
|
|
|
#elif defined(__OS2__)
|
|
PTIB tib;
|
|
PPIB pib;
|
|
|
|
pid = (DosGetInfoBlocks (&tib, &pib) == NO_ERROR)?
|
|
pib->pib_ulpid: -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#else
|
|
pid = getpid ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, pid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_gettid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_intptr_t pid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
pid = GetCurrentThreadId();
|
|
|
|
#elif defined(__OS2__)
|
|
PTIB tib;
|
|
PPIB pib;
|
|
|
|
pid = (DosGetInfoBlocks (&tib, &pib) == NO_ERROR && tib->tib_ptib2)?
|
|
tib->tib_ptib2->tib2_ultid: -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#else
|
|
#if defined(SYS_gettid) && defined(QSE_SYSCALL0)
|
|
QSE_SYSCALL0 (pid, SYS_gettid);
|
|
#elif defined(SYS_gettid)
|
|
pid = syscall (SYS_gettid);
|
|
#else
|
|
pid = -1;
|
|
#endif
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, (qse_long_t)pid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getppid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t pid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
pid = -1;
|
|
|
|
#else
|
|
pid = getppid ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, pid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getuid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t uid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
uid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
uid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
uid = -1;
|
|
|
|
#else
|
|
uid = getuid ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, uid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getgid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t gid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
gid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
gid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
gid = -1;
|
|
|
|
#else
|
|
gid = getgid ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, gid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_geteuid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t uid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
uid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
uid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
uid = -1;
|
|
|
|
#else
|
|
uid = geteuid ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, uid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getegid (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t gid;
|
|
qse_awk_val_t* retv;
|
|
|
|
#if defined(_WIN32)
|
|
/* TOOD: implement this*/
|
|
gid = -1;
|
|
|
|
#elif defined(__OS2__)
|
|
/* TOOD: implement this*/
|
|
gid = -1;
|
|
|
|
#elif defined(__DOS__)
|
|
/* TOOD: implement this*/
|
|
gid = -1;
|
|
|
|
#else
|
|
gid = getegid ();
|
|
#endif
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, gid);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_sleep (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_long_t lv;
|
|
qse_flt_t fv;
|
|
qse_awk_val_t* retv;
|
|
int rx;
|
|
|
|
rx = qse_awk_rtx_valtonum (rtx, qse_awk_rtx_getarg (rtx, 0), &lv, &fv);
|
|
if (rx == 0)
|
|
{
|
|
#if defined(_WIN32)
|
|
Sleep ((DWORD)QSE_SEC_TO_MSEC(lv));
|
|
rx = 0;
|
|
#elif defined(__OS2__)
|
|
DosSleep ((ULONG)QSE_SEC_TO_MSEC(lv));
|
|
rx = 0;
|
|
#elif defined(__DOS__)
|
|
rx = sleep (lv);
|
|
#elif defined(HAVE_NANOSLEEP)
|
|
struct timespec req;
|
|
req.tv_sec = lv;
|
|
req.tv_nsec = 0;
|
|
rx = nanosleep (&req, QSE_NULL);
|
|
#else
|
|
rx = sleep (lv);
|
|
#endif
|
|
}
|
|
else if (rx >= 1)
|
|
{
|
|
#if defined(_WIN32)
|
|
Sleep ((DWORD)QSE_SEC_TO_MSEC(fv));
|
|
rx = 0;
|
|
#elif defined(__OS2__)
|
|
DosSleep ((ULONG)QSE_SEC_TO_MSEC(fv));
|
|
rx = 0;
|
|
#elif defined(__DOS__)
|
|
/* no high-resolution sleep() is available */
|
|
rx = sleep ((qse_long_t)fv);
|
|
#elif defined(HAVE_NANOSLEEP)
|
|
struct timespec req;
|
|
req.tv_sec = (qse_long_t)fv;
|
|
req.tv_nsec = QSE_SEC_TO_NSEC(fv - req.tv_sec);
|
|
rx = nanosleep (&req, QSE_NULL);
|
|
#elif defined(HAVE_SELECT)
|
|
struct timeval req;
|
|
req.tv_sec = (qse_long_t)fv;
|
|
req.tv_nsec = QSE_SEC_TO_USEC(fv - req.tv_sec);
|
|
rx = select (0, QSE_NULL, QSE_NULL, QSE_NULL, &req);
|
|
#else
|
|
/* no high-resolution sleep() is available */
|
|
rx = sleep ((qse_long_t)fv);
|
|
#endif
|
|
}
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, rx);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_gettime (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_awk_val_t* retv;
|
|
qse_ntime_t now;
|
|
|
|
if (qse_gettime (&now) <= -1) now.sec = 0;
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, now.sec);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_settime (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_awk_val_t* retv;
|
|
qse_ntime_t now;
|
|
int rx;
|
|
|
|
now.nsec = 0;
|
|
|
|
if (qse_awk_rtx_valtolong (rtx, qse_awk_rtx_getarg (rtx, 0), &now.sec) <= -1 ||
|
|
qse_settime (&now) <= -1) rx = -1;
|
|
else rx = 0;
|
|
|
|
retv = qse_awk_rtx_makeintval (rtx, rx);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getenv (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_mchar_t* var;
|
|
qse_size_t len;
|
|
qse_awk_val_t* retv;
|
|
|
|
var = qse_awk_rtx_valtombsdup (
|
|
rtx, qse_awk_rtx_getarg (rtx, 0), &len);
|
|
if (var)
|
|
{
|
|
qse_mchar_t* val;
|
|
|
|
val = getenv (var);
|
|
if (val)
|
|
{
|
|
retv = qse_awk_rtx_makestrvalwithmbs (rtx, val);
|
|
if (retv == QSE_NULL) return -1;
|
|
|
|
qse_awk_rtx_setretval (rtx, retv);
|
|
}
|
|
|
|
qse_awk_rtx_freemem (rtx, var);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int fnc_getnwifcfg (qse_awk_rtx_t* rtx, const qse_awk_fnc_info_t* fi)
|
|
{
|
|
qse_nwifcfg_t cfg;
|
|
qse_awk_rtx_valtostr_out_t out;
|
|
int ret = -1;
|
|
|
|
out.type = QSE_AWK_RTX_VALTOSTR_CPLCPY;
|
|
out.u.cplcpy.ptr = cfg.name;
|
|
out.u.cplcpy.len = QSE_COUNTOF(cfg.name);
|
|
if (qse_awk_rtx_valtostr (rtx, qse_awk_rtx_getarg (rtx, 0), &out) >= 0)
|
|
{
|
|
qse_long_t type;
|
|
int rx;
|
|
|
|
rx = qse_awk_rtx_valtolong (rtx, qse_awk_rtx_getarg (rtx, 1), &type);
|
|
if (rx >= 0)
|
|
{
|
|
cfg.type = type;
|
|
|
|
if (qse_getnwifcfg (&cfg) >= 0)
|
|
{
|
|
/* make a map value containg configuration */
|
|
qse_long_t index, mtu;
|
|
qse_char_t addr[128];
|
|
qse_char_t mask[128];
|
|
qse_char_t ethw[32];
|
|
qse_awk_val_map_data_t md[7];
|
|
qse_awk_val_t* tmp;
|
|
|
|
QSE_MEMSET (md, 0, QSE_SIZEOF(md));
|
|
|
|
md[0].key.ptr = QSE_T("index");
|
|
md[0].key.len = 5;
|
|
md[0].type = QSE_AWK_VAL_MAP_DATA_INT;
|
|
index = cfg.index;
|
|
md[0].vptr = &index;
|
|
|
|
md[1].key.ptr = QSE_T("mtu");
|
|
md[1].key.len = 3;
|
|
md[1].type = QSE_AWK_VAL_MAP_DATA_INT;
|
|
mtu = cfg.mtu;
|
|
md[1].vptr = &mtu;
|
|
|
|
md[2].key.ptr = QSE_T("addr");
|
|
md[2].key.len = 4;
|
|
md[2].type = QSE_AWK_VAL_MAP_DATA_STR;
|
|
qse_nwadtostr (&cfg.addr, addr, QSE_COUNTOF(addr), QSE_NWADTOSTR_ADDR);
|
|
md[2].vptr = addr;
|
|
|
|
md[3].key.ptr = QSE_T("mask");
|
|
md[3].key.len = 4;
|
|
md[3].type = QSE_AWK_VAL_MAP_DATA_STR;
|
|
qse_nwadtostr (&cfg.mask, mask, QSE_COUNTOF(mask), QSE_NWADTOSTR_ADDR);
|
|
md[3].vptr = mask;
|
|
|
|
md[4].key.ptr = QSE_T("ethw");
|
|
md[4].key.len = 4;
|
|
md[4].type = QSE_AWK_VAL_MAP_DATA_STR;
|
|
qse_sprintf (ethw, QSE_COUNTOF(ethw), QSE_T("%02X:%02X:%02X:%02X:%02X:%02X"),
|
|
cfg.ethw[0], cfg.ethw[1], cfg.ethw[2], cfg.ethw[3], cfg.ethw[4], cfg.ethw[5]);
|
|
md[4].vptr = ethw;
|
|
|
|
if (cfg.flags & (QSE_NWIFCFG_LINKUP | QSE_NWIFCFG_LINKDOWN))
|
|
{
|
|
md[5].key.ptr = QSE_T("link");
|
|
md[5].key.len = 4;
|
|
md[5].type = QSE_AWK_VAL_MAP_DATA_STR;
|
|
md[5].vptr = (cfg.flags & QSE_NWIFCFG_LINKUP)? QSE_T("up"): QSE_T("down");
|
|
}
|
|
|
|
tmp = qse_awk_rtx_makemapvalwithdata (rtx, md);
|
|
if (tmp)
|
|
{
|
|
if (qse_awk_rtx_setrefval (rtx, qse_awk_rtx_getarg (rtx, 2), tmp) <= -1)
|
|
{
|
|
qse_awk_rtx_refupval (rtx, tmp);
|
|
qse_awk_rtx_refdownval (rtx, tmp);
|
|
}
|
|
else ret = 0;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* no error check for qse_awk_rtx_makeintval() since ret is 0 or -1 */
|
|
qse_awk_rtx_setretval (rtx, qse_awk_rtx_makeintval (rtx, ret));
|
|
return 0;
|
|
}
|
|
|
|
typedef struct fnctab_t fnctab_t;
|
|
struct fnctab_t
|
|
{
|
|
const qse_char_t* name;
|
|
qse_awk_mod_sym_fnc_t info;
|
|
};
|
|
|
|
typedef struct inttab_t inttab_t;
|
|
struct inttab_t
|
|
{
|
|
const qse_char_t* name;
|
|
qse_awk_mod_sym_int_t info;
|
|
};
|
|
|
|
static fnctab_t fnctab[] =
|
|
{
|
|
/* keep this table sorted for binary search in query(). */
|
|
|
|
{ QSE_T("fork"), { { 0, 0, QSE_NULL }, fnc_fork, 0 } },
|
|
{ QSE_T("getegid"), { { 0, 0, QSE_NULL }, fnc_getegid, 0 } },
|
|
{ QSE_T("getenv"), { { 1, 1, QSE_NULL }, fnc_getenv, 0 } },
|
|
{ QSE_T("geteuid"), { { 0, 0, QSE_NULL }, fnc_geteuid, 0 } },
|
|
{ QSE_T("getgid"), { { 0, 0, QSE_NULL }, fnc_getgid, 0 } },
|
|
{ QSE_T("getnwifcfg"), { { 3, 3, QSE_T("vvr") }, fnc_getnwifcfg, 0 } },
|
|
{ QSE_T("getpgrp"), { { 0, 0, QSE_NULL }, fnc_getpgrp, 0 } },
|
|
{ QSE_T("getpid"), { { 0, 0, QSE_NULL }, fnc_getpid, 0 } },
|
|
{ QSE_T("getppid"), { { 0, 0, QSE_NULL }, fnc_getppid, 0 } },
|
|
{ QSE_T("gettid"), { { 0, 0, QSE_NULL }, fnc_gettid, 0 } },
|
|
{ QSE_T("gettime"), { { 0, 0, QSE_NULL }, fnc_gettime, 0 } },
|
|
{ QSE_T("getuid"), { { 0, 0, QSE_NULL }, fnc_getuid, 0 } },
|
|
{ QSE_T("kill"), { { 2, 2, QSE_NULL }, fnc_kill, 0 } },
|
|
{ QSE_T("settime"), { { 1, 1, QSE_NULL }, fnc_settime, 0 } },
|
|
{ QSE_T("sleep"), { { 1, 1, QSE_NULL }, fnc_sleep, 0 } },
|
|
{ QSE_T("wait"), { { 1, 1, QSE_NULL }, fnc_wait, 0 } }
|
|
};
|
|
|
|
#if !defined(SIGHUP)
|
|
# define SIGHUP 1
|
|
#endif
|
|
#if !defined(SIGINT)
|
|
# define SIGINT 2
|
|
#endif
|
|
#if !defined(SIGQUIT)
|
|
# define SIGQUIT 3
|
|
#endif
|
|
#if !defined(SIGABRT)
|
|
# define SIGABRT 6
|
|
#endif
|
|
#if !defined(SIGKILL)
|
|
# define SIGKILL 9
|
|
#endif
|
|
#if !defined(SIGSEGV)
|
|
# define SIGSEGV 11
|
|
#endif
|
|
#if !defined(SIGALRM)
|
|
# define SIGALRM 14
|
|
#endif
|
|
#if !defined(SIGTERM)
|
|
# define SIGTERM 15
|
|
#endif
|
|
|
|
static inttab_t inttab[] =
|
|
{
|
|
/* keep this table sorted for binary search in query(). */
|
|
|
|
{ QSE_T("NWIFCFG_IN4"), { QSE_NWIFCFG_IN4 } },
|
|
{ QSE_T("NWIFCFG_IN6"), { QSE_NWIFCFG_IN6 } },
|
|
|
|
{ QSE_T("SIGABRT"), { SIGABRT } },
|
|
{ QSE_T("SIGALRM"), { SIGALRM } },
|
|
{ QSE_T("SIGHUP"), { SIGHUP } },
|
|
{ QSE_T("SIGINT"), { SIGINT } },
|
|
{ QSE_T("SIGKILL"), { SIGKILL } },
|
|
{ QSE_T("SIGQUIT"), { SIGQUIT } },
|
|
{ QSE_T("SIGSEGV"), { SIGSEGV } },
|
|
{ QSE_T("SIGTERM"), { SIGTERM } }
|
|
|
|
/*
|
|
{ QSE_T("WNOHANG"), { WNOHANG } },
|
|
*/
|
|
};
|
|
|
|
static int query (qse_awk_mod_t* mod, qse_awk_t* awk, const qse_char_t* name, qse_awk_mod_sym_t* sym)
|
|
{
|
|
qse_cstr_t ea;
|
|
int left, right, mid, n;
|
|
|
|
left = 0; right = QSE_COUNTOF(fnctab) - 1;
|
|
|
|
while (left <= right)
|
|
{
|
|
mid = (left + right) / 2;
|
|
|
|
n = qse_strcmp (fnctab[mid].name, name);
|
|
if (n > 0) right = mid - 1;
|
|
else if (n < 0) left = mid + 1;
|
|
else
|
|
{
|
|
sym->type = QSE_AWK_MOD_FNC;
|
|
sym->u.fnc = fnctab[mid].info;
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
left = 0; right = QSE_COUNTOF(inttab) - 1;
|
|
while (left <= right)
|
|
{
|
|
mid = (left + right) / 2;
|
|
|
|
n = qse_strcmp (inttab[mid].name, name);
|
|
if (n > 0) right = mid - 1;
|
|
else if (n < 0) left = mid + 1;
|
|
else
|
|
{
|
|
sym->type = QSE_AWK_MOD_INT;
|
|
sym->u.in = inttab[mid].info;
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
ea.ptr = name;
|
|
ea.len = qse_strlen(name);
|
|
qse_awk_seterror (awk, QSE_AWK_ENOENT, &ea, QSE_NULL);
|
|
return -1;
|
|
}
|
|
|
|
/* TODO: proper resource management */
|
|
|
|
static int init (qse_awk_mod_t* mod, qse_awk_rtx_t* rtx)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
static void fini (qse_awk_mod_t* mod, qse_awk_rtx_t* rtx)
|
|
{
|
|
/* TODO:
|
|
for (each pid for rtx) kill (pid, SIGKILL);
|
|
for (each pid for rtx) waitpid (pid, QSE_NULL, 0);
|
|
*/
|
|
}
|
|
|
|
static void unload (qse_awk_mod_t* mod, qse_awk_t* awk)
|
|
{
|
|
/* TODO: anything */
|
|
}
|
|
|
|
QSE_EXPORT int load (qse_awk_mod_t* mod, qse_awk_t* awk)
|
|
{
|
|
mod->query = query;
|
|
mod->unload = unload;
|
|
|
|
mod->init = init;
|
|
mod->fini = fini;
|
|
/*
|
|
mod->ctx...
|
|
*/
|
|
|
|
return 0;
|
|
}
|
|
|
|
#if defined(__DOS__)
|
|
/* kind of DllMain() for Causeway DLL */
|
|
int main (int eax) { return 0; }
|
|
#endif
|