hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

partially renamed functions related to a runtime context

Browse Source
This commit is contained in:
hyung-hwan
2009-01-31 22:03:05 +00:00
parent 987e709021
commit b9c02b48bc
13 changed files with 333 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
qse/lib/awk/Awk.cpp
View File

@ -141,12 +141,12 @@ int Awk::Console::setFileName (const char_t* name)
{
if (eio->mode == READ)
{
return qse_awk_setfilename (
return qse_awk_rtx_setfilename (
eio->run, name, qse_strlen(name));
}
else
{
return qse_awk_setofilename (
return qse_awk_rtx_setofilename (
eio->run, name, qse_strlen(name));
}
}
@ -160,7 +160,7 @@ int Awk::Console::setFNR (long_t fnr)
if (tmp == QSE_NULL) return -1;
qse_awk_refupval (eio->run, tmp);
n = qse_awk_setglobal (eio->run, QSE_AWK_GLOBAL_FNR, tmp);
n = qse_awk_rtx_setglobal (eio->run, QSE_AWK_GLOBAL_FNR, tmp);
qse_awk_refdownval (eio->run, tmp);
return n;
@ -929,19 +929,19 @@ Awk::Run::operator Awk::run_t* () const
void Awk::Run::stop () const
{
QSE_ASSERT (this->run != QSE_NULL);
qse_awk_stop (this->run);
qse_awk_rtx_stop (this->run);
}
bool Awk::Run::isStop () const
{
QSE_ASSERT (this->run != QSE_NULL);
return qse_awk_isstop (this->run)? true: false;
return qse_awk_rtx_shouldstop (this->run)? true: false;
}
Awk::ErrorCode Awk::Run::getErrorCode () const
{
QSE_ASSERT (this->run != QSE_NULL);
return (ErrorCode)qse_awk_getrunerrnum (this->run);
return (ErrorCode)qse_awk_rtx_geterrnum (this->run);
}
Awk::size_t Awk::Run::getErrorLine () const
@ -998,7 +998,7 @@ int Awk::Run::setGlobal (int id, long_t v)
if (tmp == QSE_NULL) return -1;
qse_awk_refupval (run, tmp);
int n = qse_awk_setglobal (this->run, id, tmp);
int n = qse_awk_rtx_setglobal (this->run, id, tmp);
qse_awk_refdownval (run, tmp);
return n;
}
@ -1011,7 +1011,7 @@ int Awk::Run::setGlobal (int id, real_t v)
if (tmp == QSE_NULL) return -1;
qse_awk_refupval (run, tmp);
int n = qse_awk_setglobal (this->run, id, tmp);
int n = qse_awk_rtx_setglobal (this->run, id, tmp);
qse_awk_refdownval (run, tmp);
return n;
}
@ -1024,7 +1024,7 @@ int Awk::Run::setGlobal (int id, const char_t* ptr, size_t len)
if (tmp == QSE_NULL) return -1;
qse_awk_refupval (run, tmp);
int n = qse_awk_setglobal (this->run, id, tmp);
int n = qse_awk_rtx_setglobal (this->run, id, tmp);
qse_awk_refdownval (run, tmp);
return n;
}
@ -1033,7 +1033,7 @@ int Awk::Run::setGlobal (int id, const Return& global)
{
QSE_ASSERT (this->run != QSE_NULL);
return qse_awk_setglobal (this->run, id, global.toVal());
return qse_awk_rtx_setglobal (this->run, id, global.toVal());
}
int Awk::Run::getGlobal (int id, Argument& global) const
@ -1041,7 +1041,7 @@ int Awk::Run::getGlobal (int id, Argument& global) const
QSE_ASSERT (this->run != QSE_NULL);
global.clear ();
return global.init (qse_awk_getglobal(this->run,id));
return global.init (qse_awk_rtx_getglobal(this->run,id));
}
void Awk::Run::setData (void* data)
@ -1402,7 +1402,7 @@ int Awk::run (const char_t* main, const char_t** args, size_t nargs)
void Awk::stop ()
{
QSE_ASSERT (awk != QSE_NULL);
qse_awk_stopall (awk);
qse_awk_rtx_stopall (awk);
}
int Awk::dispatchFunction (Run* run, const char_t* name, size_t len)
@ -1410,7 +1410,7 @@ int Awk::dispatchFunction (Run* run, const char_t* name, size_t len)
pair_t* pair;
awk_t* awk = run->awk->awk;
//awk = qse_awk_getrunawk (run);
//awk = qse_awk_rtx_getawk (run);
pair = qse_map_search (functionMap, name, len);
if (pair == QSE_NULL)
@ -1422,7 +1422,7 @@ int Awk::dispatchFunction (Run* run, const char_t* name, size_t len)
FunctionHandler handler;
handler = *(FunctionHandler*)QSE_MAP_VPTR(pair);
size_t i, nargs = qse_awk_getnargs(run->run);
size_t i, nargs = qse_awk_rtx_getnargs(run->run);
//Argument* args = QSE_NULL;
//try { args = new Argument [nargs]; } catch (...) {}
@ -1438,7 +1438,7 @@ int Awk::dispatchFunction (Run* run, const char_t* name, size_t len)
args[i].run = run; // dirty late initialization
// due to c++ array creation limitation.
val_t* v = qse_awk_getarg (run->run, i);
val_t* v = qse_awk_rtx_getarg (run->run, i);
if (args[i].init (v) == -1)
{
run->setError (ERR_NOMEM, 0, QSE_NULL, 0);
@ -1460,7 +1460,7 @@ int Awk::dispatchFunction (Run* run, const char_t* name, size_t len)
return -1;
}
qse_awk_setretval (run->run, ret);
qse_awk_rtx_setretval (run->run, ret);
return 0;
}
@ -1709,7 +1709,7 @@ Awk::ssize_t Awk::consoleHandler (
int Awk::functionHandler (
run_t* run, const char_t* name, size_t len)
{
Run* ctx = (Run*) qse_awk_getrundata (run);
Run* ctx = (Run*) qse_awk_rtx_getdata (run);
Awk* awk = ctx->awk;
return awk->dispatchFunction (ctx, name, len);
}

2
qse/lib/awk/awk.c
View File

@ -366,7 +366,7 @@ void qse_awk_setoption (qse_awk_t* awk, int opt)
}
void qse_awk_stopall (qse_awk_t* awk)
void qse_awk_rtx_stopall (qse_awk_t* awk)
{
awk->stopall = QSE_TRUE;
}

2
qse/lib/awk/eio.c
View File

@ -204,7 +204,7 @@ int qse_awk_readeio (
qse_str_clear (buf);
/* get the record separator */
rs = qse_awk_getglobal (run, QSE_AWK_GLOBAL_RS);
rs = qse_awk_rtx_getglobal (run, QSE_AWK_GLOBAL_RS);
qse_awk_refupval (run, rs);
if (rs->type == QSE_AWK_VAL_NIL)

2
qse/lib/awk/err.c
View File

@ -345,7 +345,7 @@ void qse_awk_seterror (
}
}
int qse_awk_getrunerrnum (qse_awk_rtx_t* run)
int qse_awk_rtx_geterrnum (qse_awk_rtx_t* run)
{
return run->errnum;
}

88
qse/lib/awk/func.c
View File

@ -235,11 +235,11 @@ static int bfn_close (
qse_char_t* name;
qse_size_t len;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
/* TODO: support close (xxx, "to"/"from"/"rw"/"r"/"w"/????) */
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
QSE_ASSERT (a0 != QSE_NULL);
if (a0->type == QSE_AWK_VAL_STR)
@ -299,7 +299,7 @@ skip_close:
return -1;
}
qse_awk_setretval (run, v);
qse_awk_rtx_setretval (run, v);
return 0;
}
@ -342,7 +342,7 @@ static int bfn_fflush (
qse_size_t len0;
int n;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 0 || nargs == 1);
if (nargs == 0)
@ -355,7 +355,7 @@ static int bfn_fflush (
{
qse_char_t* ptr, * end;
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
if (a0->type == QSE_AWK_VAL_STR)
{
str0 = ((qse_awk_val_str_t*)a0)->ptr;
@ -410,7 +410,7 @@ static int bfn_fflush (
return -1;
}
qse_awk_setretval (run, a0);
qse_awk_rtx_setretval (run, a0);
return 0;
}
@ -423,11 +423,11 @@ static int bfn_index (
qse_size_t len0, len1;
qse_long_t idx;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 2);
a0 = qse_awk_getarg (run, 0);
a1 = qse_awk_getarg (run, 1);
a0 = qse_awk_rtx_getarg (run, 0);
a1 = qse_awk_rtx_getarg (run, 1);
if (a0->type == QSE_AWK_VAL_STR)
{
@ -473,7 +473,7 @@ static int bfn_index (
return -1;
}
qse_awk_setretval (run, a0);
qse_awk_rtx_setretval (run, a0);
return 0;
}
@ -485,10 +485,10 @@ static int bfn_length (
qse_char_t* str;
qse_size_t len;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
v = qse_awk_getarg (run, 0);
v = qse_awk_rtx_getarg (run, 0);
if (v->type == QSE_AWK_VAL_STR)
{
len = ((qse_awk_val_str_t*)v)->len;
@ -508,7 +508,7 @@ static int bfn_length (
return -1;
}
qse_awk_setretval (run, v);
qse_awk_rtx_setretval (run, v);
return 0;
}
@ -523,12 +523,12 @@ static int bfn_substr (
qse_real_t rindex, rcount;
int n;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs >= 2 && nargs <= 3);
a0 = qse_awk_getarg (run, 0);
a1 = qse_awk_getarg (run, 1);
a2 = (nargs >= 3)? qse_awk_getarg (run, 2): QSE_NULL;
a0 = qse_awk_rtx_getarg (run, 0);
a1 = qse_awk_rtx_getarg (run, 1);
a2 = (nargs >= 3)? qse_awk_rtx_getarg (run, 2): QSE_NULL;
if (a0->type == QSE_AWK_VAL_STR)
{
@ -582,7 +582,7 @@ static int bfn_substr (
}
if (a0->type != QSE_AWK_VAL_STR) QSE_AWK_FREE (run->awk, str);
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -602,12 +602,12 @@ static int bfn_split (
void* fs_rex_free = QSE_NULL;
int errnum;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs >= 2 && nargs <= 3);
a0 = qse_awk_getarg (run, 0);
a1 = qse_awk_getarg (run, 1);
a2 = (nargs >= 3)? qse_awk_getarg (run, 2): QSE_NULL;
a0 = qse_awk_rtx_getarg (run, 0);
a1 = qse_awk_rtx_getarg (run, 1);
a2 = (nargs >= 3)? qse_awk_rtx_getarg (run, 2): QSE_NULL;
QSE_ASSERT (a1->type == QSE_AWK_VAL_REF);
@ -652,7 +652,7 @@ static int bfn_split (
if (a2 == QSE_NULL)
{
/* get the value from FS */
t1 = qse_awk_getglobal (run, QSE_AWK_GLOBAL_FS);
t1 = qse_awk_rtx_getglobal (run, QSE_AWK_GLOBAL_FS);
if (t1->type == QSE_AWK_VAL_NIL)
{
fs_ptr = QSE_T(" ");
@ -839,7 +839,7 @@ static int bfn_split (
return -1;
}
qse_awk_setretval (run, t1);
qse_awk_rtx_setretval (run, t1);
return 0;
}
@ -851,10 +851,10 @@ static int bfn_tolower (
qse_size_t len, i;
qse_awk_val_t* a0, * r;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
if (a0->type == QSE_AWK_VAL_STR)
{
@ -879,7 +879,7 @@ static int bfn_tolower (
}
if (a0->type != QSE_AWK_VAL_STR) QSE_AWK_FREE (run->awk, str);
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -891,10 +891,10 @@ static int bfn_toupper (
qse_size_t len, i;
qse_awk_val_t* a0, * r;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
if (a0->type == QSE_AWK_VAL_STR)
{
@ -919,7 +919,7 @@ static int bfn_toupper (
}
if (a0->type != QSE_AWK_VAL_STR) QSE_AWK_FREE (run->awk, str);
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -939,12 +939,12 @@ static int __substitute (qse_awk_rtx_t* run, qse_long_t max_count)
qse_str_t new;
qse_long_t sub_count;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs >= 2 && nargs <= 3);
a0 = qse_awk_getarg (run, 0);
a1 = qse_awk_getarg (run, 1);
a2 = (nargs >= 3)? qse_awk_getarg (run, 2): QSE_NULL;
a0 = qse_awk_rtx_getarg (run, 0);
a1 = qse_awk_rtx_getarg (run, 1);
a2 = (nargs >= 3)? qse_awk_rtx_getarg (run, 2): QSE_NULL;
QSE_ASSERT (a2 == QSE_NULL || a2->type == QSE_AWK_VAL_REF);
@ -1210,7 +1210,7 @@ static int __substitute (qse_awk_rtx_t* run, qse_long_t max_count)
return -1;
}
qse_awk_setretval (run, v);
qse_awk_rtx_setretval (run, v);
return 0;
}
@ -1239,11 +1239,11 @@ static int bfn_match (
const qse_char_t* mat_ptr;
qse_size_t mat_len;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 2);
a0 = qse_awk_getarg (run, 0);
a1 = qse_awk_getarg (run, 1);
a0 = qse_awk_rtx_getarg (run, 0);
a1 = qse_awk_rtx_getarg (run, 1);
if (a0->type == QSE_AWK_VAL_STR)
{
@ -1324,21 +1324,21 @@ static int bfn_match (
qse_awk_refupval (run, a1);
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_RSTART, a0) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_RSTART, a0) == -1)
{
qse_awk_refdownval (run, a1);
qse_awk_refdownval (run, a0);
return -1;
}
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_RLENGTH, a1) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_RLENGTH, a1) == -1)
{
qse_awk_refdownval (run, a1);
qse_awk_refdownval (run, a0);
return -1;
}
qse_awk_setretval (run, a0);
qse_awk_rtx_setretval (run, a0);
qse_awk_refdownval (run, a1);
qse_awk_refdownval (run, a0);
@ -1354,7 +1354,7 @@ static int bfn_sprintf (
qse_xstr_t cs0;
qse_xstr_t x;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs > 0);
if (qse_str_init (&out, run->awk->mmgr, 256) == QSE_NULL)
@ -1369,7 +1369,7 @@ static int bfn_sprintf (
return -1;
}
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
if (a0->type == QSE_AWK_VAL_STR)
{
cs0.ptr = ((qse_awk_val_str_t*)a0)->ptr;
@ -1410,6 +1410,6 @@ static int bfn_sprintf (
qse_str_fini (&fbu);
/*qse_str_yield (&out, QSE_NULL, 0);*/
qse_str_fini (&out);
qse_awk_setretval (run, a0);
qse_awk_rtx_setretval (run, a0);
return 0;
}

2
qse/lib/awk/parse.c
View File

@ -455,7 +455,7 @@ void qse_awk_setmaxdepth (qse_awk_t* awk, int types, qse_size_t depth)
}
}
const qse_char_t* qse_awk_getglobalname (
const qse_char_t* qse_awk_rtx_getglobalname (
qse_awk_t* awk, qse_size_t idx, qse_size_t* len)
{
/*

2
qse/lib/awk/parse.h
View File

@ -55,7 +55,7 @@ int qse_awk_putsrcstr (qse_awk_t* awk, const qse_char_t* str);
int qse_awk_putsrcstrx (
qse_awk_t* awk, const qse_char_t* str, qse_size_t len);
const qse_char_t* qse_awk_getglobalname (
const qse_char_t* qse_awk_rtx_getglobalname (
qse_awk_t* awk, qse_size_t idx, qse_size_t* len);
qse_cstr_t* qse_awk_getkw (qse_awk_t* awk, int id, qse_cstr_t* s);

10
qse/lib/awk/rec.c
View File

@ -107,7 +107,7 @@ static int split_record (qse_awk_rtx_t* run)
QSE_ASSERT (run->inrec.nflds == 0);
/* get FS */
fs = qse_awk_getglobal (run, QSE_AWK_GLOBAL_FS);
fs = qse_awk_rtx_getglobal (run, QSE_AWK_GLOBAL_FS);
if (fs->type == QSE_AWK_VAL_NIL)
{
fs_ptr = QSE_T(" ");
@ -237,7 +237,7 @@ static int split_record (qse_awk_rtx_t* run)
if (v == QSE_NULL) return -1;
qse_awk_refupval (run, v);
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_NF, v) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_NF, v) == -1)
{
qse_awk_refdownval (run, v);
return -1;
@ -270,7 +270,7 @@ int qse_awk_clrrec (qse_awk_rtx_t* run, qse_bool_t skip_inrec_line)
}
run->inrec.nflds = 0;
if (qse_awk_setglobal (
if (qse_awk_rtx_setglobal (
run, QSE_AWK_GLOBAL_NF, qse_awk_val_zero) == -1)
{
/* first of all, this should never happen.
@ -432,7 +432,7 @@ static int recomp_record_fields (
}
}
v = qse_awk_getglobal (run, QSE_AWK_GLOBAL_NF);
v = qse_awk_rtx_getglobal (run, QSE_AWK_GLOBAL_NF);
QSE_ASSERT (v->type == QSE_AWK_VAL_INT);
if (((qse_awk_val_int_t*)v)->val != max)
@ -441,7 +441,7 @@ static int recomp_record_fields (
if (v == QSE_NULL) return -1;
qse_awk_refupval (run, v);
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_NF, v) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_NF, v) == -1)
{
qse_awk_refdownval (run, v);
return -1;

74
qse/lib/awk/run.c
View File

@ -231,23 +231,23 @@ typedef qse_awk_val_t* (*binop_func_t) (
qse_awk_rtx_t* run, qse_awk_val_t* left, qse_awk_val_t* right);
typedef qse_awk_val_t* (*eval_expr_t) (qse_awk_rtx_t* run, qse_awk_nde_t* nde);
qse_size_t qse_awk_getnargs (qse_awk_rtx_t* run)
qse_size_t qse_awk_rtx_getnargs (qse_awk_rtx_t* run)
{
return (qse_size_t) STACK_NARGS (run);
}
qse_awk_val_t* qse_awk_getarg (qse_awk_rtx_t* run, qse_size_t idx)
qse_awk_val_t* qse_awk_rtx_getarg (qse_awk_rtx_t* run, qse_size_t idx)
{
return STACK_ARG (run, idx);
}
qse_awk_val_t* qse_awk_getglobal (qse_awk_rtx_t* run, int id)
qse_awk_val_t* qse_awk_rtx_getglobal (qse_awk_rtx_t* run, int id)
{
QSE_ASSERT (id >= 0 && id < (int)QSE_LDA_SIZE(run->awk->parse.globals));
return STACK_GLOBAL (run, id);
}
int qse_awk_setglobal (qse_awk_rtx_t* run, int id, qse_awk_val_t* val)
int qse_awk_rtx_setglobal (qse_awk_rtx_t* run, int id, qse_awk_val_t* val)
{
QSE_ASSERT (id >= 0 && id < (int)QSE_LDA_SIZE(run->awk->parse.globals));
return set_global (run, (qse_size_t)id, QSE_NULL, val);
@ -278,10 +278,10 @@ static int set_global (
}
else
{
/* qse_awk_setglobal has been called */
/* qse_awk_rtx_setglobal has been called */
qse_cstr_t errarg;
errarg.ptr = qse_awk_getglobalname (
errarg.ptr = qse_awk_rtx_getglobalname (
run->awk, idx, &errarg.len);
qse_awk_setrunerror (run,
QSE_AWK_EMAPTOSCALAR, 0, &errarg, 1);
@ -547,7 +547,7 @@ static int set_global (
return 0;
}
void qse_awk_setretval (qse_awk_rtx_t* run, qse_awk_val_t* val)
void qse_awk_rtx_setretval (qse_awk_rtx_t* run, qse_awk_val_t* val)
{
qse_awk_refdownval (run, STACK_RETVAL(run));
STACK_RETVAL(run) = val;
@ -555,7 +555,7 @@ void qse_awk_setretval (qse_awk_rtx_t* run, qse_awk_val_t* val)
qse_awk_refupval (run, val);
}
int qse_awk_setfilename (
int qse_awk_rtx_setfilename (
qse_awk_rtx_t* run, const qse_char_t* name, qse_size_t len)
{
qse_awk_val_t* tmp;
@ -569,13 +569,13 @@ int qse_awk_setfilename (
}
qse_awk_refupval (run, tmp);
n = qse_awk_setglobal (run, QSE_AWK_GLOBAL_FILENAME, tmp);
n = qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_FILENAME, tmp);
qse_awk_refdownval (run, tmp);
return n;
}
int qse_awk_setofilename (
int qse_awk_rtx_setofilename (
qse_awk_rtx_t* run, const qse_char_t* name, qse_size_t len)
{
qse_awk_val_t* tmp;
@ -591,7 +591,7 @@ int qse_awk_setofilename (
}
qse_awk_refupval (run, tmp);
n = qse_awk_setglobal (run, QSE_AWK_GLOBAL_OFILENAME, tmp);
n = qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_OFILENAME, tmp);
qse_awk_refdownval (run, tmp);
}
else n = 0;
@ -599,22 +599,22 @@ int qse_awk_setofilename (
return n;
}
qse_awk_t* qse_awk_getrunawk (qse_awk_rtx_t* run)
qse_awk_t* qse_awk_rtx_getawk (qse_awk_rtx_t* run)
{
return run->awk;
}
qse_mmgr_t* qse_awk_getrunmmgr (qse_awk_rtx_t* run)
qse_mmgr_t* qse_awk_rtx_getmmgr (qse_awk_rtx_t* run)
{
return run->awk->mmgr;
}
void* qse_awk_getrundata (qse_awk_rtx_t* run)
void* qse_awk_rtx_getdata (qse_awk_rtx_t* run)
{
return run->data;
}
qse_map_t* qse_awk_getrunnvmap (qse_awk_rtx_t* run)
qse_map_t* qse_awk_rtx_getnvmap (qse_awk_rtx_t* run)
{
return run->named;
}
@ -727,12 +727,12 @@ int qse_awk_run (qse_awk_t* awk,
return n;
}
void qse_awk_stop (qse_awk_rtx_t* run)
void qse_awk_rtx_stop (qse_awk_rtx_t* run)
{
run->exit_level = EXIT_ABORT;
}
qse_bool_t qse_awk_isstop (qse_awk_rtx_t* run)
qse_bool_t qse_awk_rtx_shouldstop (qse_awk_rtx_t* run)
{
return (run->exit_level == EXIT_ABORT || run->awk->stopall);
}
@ -1069,14 +1069,14 @@ static int build_runarg (
QSE_ASSERT (
STACK_GLOBAL(run,QSE_AWK_GLOBAL_ARGC) == qse_awk_val_nil);
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_ARGC, v_argc) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_ARGC, v_argc) == -1)
{
qse_awk_refdownval (run, v_argc);
qse_awk_refdownval (run, v_argv);
return -1;
}
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_ARGV, v_argv) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_ARGV, v_argv) == -1)
{
/* ARGC is assigned nil when ARGV assignment has failed.
* However, this requires preconditions, as follows:
@ -1084,7 +1084,7 @@ static int build_runarg (
* as it is not a generic-purpose routine.
* 2. ARGC should be nil before build_runarg is called
* If the restoration fails, nothing can salvage it. */
qse_awk_setglobal (run, QSE_AWK_GLOBAL_ARGC, qse_awk_val_nil);
qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_ARGC, qse_awk_val_nil);
qse_awk_refdownval (run, v_argc);
qse_awk_refdownval (run, v_argv);
return -1;
@ -1121,14 +1121,14 @@ static int update_fnr (qse_awk_rtx_t* run, qse_long_t fnr, qse_long_t nr)
}
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_FNR, tmp1) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_FNR, tmp1) == -1)
{
if (nr != fnr) qse_awk_refdownval (run, tmp2);
qse_awk_refdownval (run, tmp1);
return -1;
}
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_NR, tmp2) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_NR, tmp2) == -1)
{
if (nr != fnr) qse_awk_refdownval (run, tmp2);
qse_awk_refdownval (run, tmp1);
@ -1183,11 +1183,11 @@ static int set_globals_to_default (qse_awk_rtx_t* run)
QSE_ASSERT (
STACK_GLOBAL(run,gtab[i].idx) == qse_awk_val_nil);
if (qse_awk_setglobal (run, gtab[i].idx, tmp) == -1)
if (qse_awk_rtx_setglobal (run, gtab[i].idx, tmp) == -1)
{
for (j = 0; j < i; j++)
{
qse_awk_setglobal (
qse_awk_rtx_setglobal (
run, gtab[i].idx, qse_awk_val_nil);
}
@ -1237,7 +1237,7 @@ static int prepare_globals (qse_awk_rtx_t* run, const qse_cstr_t* runarg)
}
/* override NF to zero */
if (qse_awk_setglobal (
if (qse_awk_rtx_setglobal (
run, QSE_AWK_GLOBAL_NF, qse_awk_val_zero) == -1) goto oops;
/* override ARGC and ARGV */
@ -1376,7 +1376,7 @@ static int run_bpae_loop (qse_awk_rtx_t* run)
}
/* execute END blocks. the first END block is executed if the
* program is not explicitly aborted with qse_awk_stop().*/
* program is not explicitly aborted with qse_awk_rtx_stop().*/
for (nde = run->awk->tree.end;
ret == 0 && nde != QSE_NULL && run->exit_level < EXIT_ABORT;
nde = nde->next)
@ -1663,7 +1663,7 @@ static int ____run_main_to_be_removed____ (
}
}
if (qse_awk_setglobal (run, QSE_AWK_GLOBAL_NF, qse_awk_val_zero) == -1)
if (qse_awk_rtx_setglobal (run, QSE_AWK_GLOBAL_NF, qse_awk_val_zero) == -1)
{
/* it can simply restore the top of the stack this way
* because the values pused onto the stack so far are
@ -1915,7 +1915,7 @@ static int ____run_main_to_be_removed____ (
}
/* the first END block is executed if the program is not
* explicitly aborted with qse_awk_stop */
* explicitly aborted with qse_awk_rtx_stop */
for (nde = run->awk->tree.end;
n == 0 && nde != QSE_NULL && run->exit_level < EXIT_ABORT;
nde = nde->next)
@ -3020,7 +3020,7 @@ static int run_delete (qse_awk_rtx_t* run, qse_awk_nde_delete_t* nde)
if (var->type == QSE_AWK_NDE_GLOBAL ||
var->type == QSE_AWK_NDE_GLOBALIDX)
{
if (qse_awk_setglobal (
if (qse_awk_rtx_setglobal (
run, (int)var->id.idxa, tmp) == -1)
{
qse_awk_refupval (run, tmp);
@ -3911,7 +3911,7 @@ static qse_awk_val_t* do_assignment_map (
else if (var->type == QSE_AWK_NDE_GLOBALIDX)
{
qse_awk_refupval (run, tmp);
if (qse_awk_setglobal (run, (int)var->id.idxa, tmp) == -1)
if (qse_awk_rtx_setglobal (run, (int)var->id.idxa, tmp) == -1)
{
qse_awk_refdownval (run, tmp);
@ -6140,7 +6140,7 @@ static qse_awk_val_t* eval_call (
* adjust the reference count of the return value.
* the value must not be freed even if the reference count
* reached zero because its reference has been incremented
* in run_return or directly by qse_awk_setretval
* in run_return or directly by qse_awk_rtx_setretval
* regardless of its reference count. */
qse_awk_refdownval_nofree (run, v);
}
@ -7061,7 +7061,7 @@ qse_char_t* qse_awk_format (
qse_awk_setrunerrnum (run, QSE_AWK_EFMTARG);
return QSE_NULL;
}
v = qse_awk_getarg (run, stack_arg_idx);
v = qse_awk_rtx_getarg (run, stack_arg_idx);
}
else
{
@ -7167,7 +7167,7 @@ qse_char_t* qse_awk_format (
qse_awk_setrunerrnum (run, QSE_AWK_EFMTARG);
return QSE_NULL;
}
v = qse_awk_getarg (run, stack_arg_idx);
v = qse_awk_rtx_getarg (run, stack_arg_idx);
}
else
{
@ -7288,7 +7288,7 @@ qse_char_t* qse_awk_format (
qse_awk_setrunerrnum (run, QSE_AWK_EFMTARG);
return QSE_NULL;
}
v = qse_awk_getarg (run, stack_arg_idx);
v = qse_awk_rtx_getarg (run, stack_arg_idx);
}
else
{
@ -7376,7 +7376,7 @@ qse_char_t* qse_awk_format (
qse_awk_setrunerrnum (run, QSE_AWK_EFMTARG);
return QSE_NULL;
}
v = qse_awk_getarg (run, stack_arg_idx);
v = qse_awk_rtx_getarg (run, stack_arg_idx);
}
else
{
@ -7453,7 +7453,7 @@ qse_char_t* qse_awk_format (
qse_awk_setrunerrnum (run, QSE_AWK_EFMTARG);
return QSE_NULL;
}
v = qse_awk_getarg (run, stack_arg_idx);
v = qse_awk_rtx_getarg (run, stack_arg_idx);
}
else
{
@ -7563,7 +7563,7 @@ qse_char_t* qse_awk_format (
qse_awk_setrunerrnum (run, QSE_AWK_EFMTARG);
return QSE_NULL;
}
v = qse_awk_getarg (run, stack_arg_idx);
v = qse_awk_rtx_getarg (run, stack_arg_idx);
}
else
{

52
qse/lib/awk/std.c
View File

@ -369,7 +369,7 @@ static qse_ssize_t awk_eio_pipe (
/*dprint (QSE_T("opening %s of type %d (pipe)\n"), epa->name, epa->type);*/
handle = qse_pio_open (
qse_awk_getrunmmgr(epa->run),
qse_awk_rtx_getmmgr(epa->run),
0,
epa->name,
flags|QSE_PIO_SHELL|QSE_PIO_TEXT
@ -454,7 +454,7 @@ static qse_ssize_t awk_eio_file (
/*dprint (QSE_T("opening %s of type %d (file)\n"), epa->name, epa->type);*/
handle = qse_fio_open (
qse_awk_getrunmmgr(epa->run),
qse_awk_rtx_getmmgr(epa->run),
0,
epa->name,
flags | QSE_FIO_TEXT,
@ -544,7 +544,7 @@ static int open_eio_console (qse_awk_eio_t* epa)
qse_sio_t* fp;
fp = qse_sio_open (
qse_awk_getrunmmgr(epa->run),
qse_awk_rtx_getmmgr(epa->run),
0,
rd->ic.files[rd->ic.index],
QSE_SIO_READ
@ -561,7 +561,7 @@ static int open_eio_console (qse_awk_eio_t* epa)
}
/*dprint (QSE_T(" console(r) - %s\n"), rd->ic.files[rd->ic.index]);*/
if (qse_awk_setfilename (
if (qse_awk_rtx_setfilename (
epa->run, rd->ic.files[rd->ic.index],
qse_strlen(rd->ic.files[rd->ic.index])) == -1)
{
@ -579,7 +579,7 @@ static int open_eio_console (qse_awk_eio_t* epa)
{
/*dprint (QSE_T(" console(w) - <standard output>\n"));*/
if (qse_awk_setofilename (epa->run, QSE_T(""), 0) == -1)
if (qse_awk_rtx_setofilename (epa->run, QSE_T(""), 0) == -1)
{
return -1;
}
@ -646,7 +646,7 @@ static qse_ssize_t awk_eio_console (
qse_sio_t* fp;
fp = qse_sio_open (
qse_awk_getrunmmgr(epa->run),
qse_awk_rtx_getmmgr(epa->run),
0,
rd->ic.files[rd->ic.index],
QSE_SIO_READ
@ -663,7 +663,7 @@ static qse_ssize_t awk_eio_console (
return -1;
}
if (qse_awk_setfilename (
if (qse_awk_rtx_setfilename (
epa->run, rd->ic.files[rd->ic.index],
qse_strlen(rd->ic.files[rd->ic.index])) == -1)
{
@ -671,7 +671,7 @@ static qse_ssize_t awk_eio_console (
return -1;
}
if (qse_awk_setglobal (
if (qse_awk_rtx_setglobal (
epa->run, QSE_AWK_GLOBAL_FNR, qse_awk_val_zero) == -1)
{
/* need to reset FNR */
@ -786,10 +786,10 @@ static int bfn_math_1 (
qse_awk_val_t* r;
int n;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
n = qse_awk_valtonum (run, a0, &lv, &rv);
if (n == -1) return -1;
@ -819,7 +819,7 @@ static int bfn_math_1 (
return -1;
}
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -833,11 +833,11 @@ static int bfn_math_2 (
qse_awk_val_t* r;
int n;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 2);
a0 = qse_awk_getarg (run, 0);
a1 = qse_awk_getarg (run, 1);
a0 = qse_awk_rtx_getarg (run, 0);
a1 = qse_awk_rtx_getarg (run, 1);
n = qse_awk_valtonum (run, a0, &lv0, &rv0);
if (n == -1) return -1;
@ -871,7 +871,7 @@ static int bfn_math_2 (
return -1;
}
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -1012,10 +1012,10 @@ static int bfn_int (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl)
qse_awk_val_t* r;
int n;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
n = qse_awk_valtonum (run, a0, &lv, &rv);
if (n == -1) return -1;
@ -1028,7 +1028,7 @@ static int bfn_int (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl)
return -1;
}
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -1043,7 +1043,7 @@ static int bfn_rand (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl)
return -1;
}
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -1058,15 +1058,15 @@ static int bfn_srand (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl)
unsigned int prev;
rxtn_t* rxtn;
rxtn = (rxtn_t*)qse_awk_getrundata (run);
nargs = qse_awk_getnargs (run);
rxtn = (rxtn_t*)qse_awk_rtx_getdata (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 0 || nargs == 1);
prev = rxtn->seed;
if (nargs == 1)
{
a0 = qse_awk_getarg (run, 0);
a0 = qse_awk_rtx_getarg (run, 0);
n = qse_awk_valtonum (run, a0, &lv, &rv);
if (n == -1) return -1;
@ -1091,7 +1091,7 @@ static int bfn_srand (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl)
return -1;
}
qse_awk_setretval (run, r);
qse_awk_rtx_setretval (run, r);
return 0;
}
@ -1103,10 +1103,10 @@ static int bfn_system (qse_awk_rtx_t* run, const qse_char_t* fnm, qse_size_t fnl
qse_size_t len;
int n = 0;
nargs = qse_awk_getnargs (run);
nargs = qse_awk_rtx_getnargs (run);
QSE_ASSERT (nargs == 1);
v = qse_awk_getarg (run, 0);
v = qse_awk_rtx_getarg (run, 0);
if (v->type == QSE_AWK_VAL_STR)
{
str = ((qse_awk_val_str_t*)v)->ptr;
@ -1180,7 +1180,7 @@ skip_system:
return -1;
}
qse_awk_setretval (run, v);
qse_awk_rtx_setretval (run, v);
return 0;
}