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

enhanced Awk and StdAwk to be able to handle argument reference

Browse Source
This commit is contained in:
hyung-hwan
2013-01-07 08:33:48 +00:00
parent d9f961c6c3
commit 2624acb308
7 changed files with 108 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
qse/samples/awk/awk08.cpp
View File

@ -58,13 +58,13 @@ public:
/* this is for demonstration only.
* you can use sys::sleep() instead */
if (addFunction (QSE_T("sleep"), 1, 1,
if (addFunction (QSE_T("sleep"), 1, 1, QSE_NULL,
(FunctionHandler)&MyAwk::sleep) <= -1) goto oops;
if (addFunction (QSE_T("sumintarray"), 1, 1,
if (addFunction (QSE_T("sumintarray"), 1, 1, QSE_NULL,
(FunctionHandler)&MyAwk::sumintarray) <= -1) goto oops;
if (addFunction (QSE_T("arrayindices"), 1, 1,
if (addFunction (QSE_T("arrayindices"), 1, 1, QSE_NULL,
(FunctionHandler)&MyAwk::arrayindices) <= -1) goto oops;
return 0;
@ -75,7 +75,7 @@ public:
}
int sleep (
Run& run, Value& ret, const Value* args, size_t nargs,
Run& run, Value& ret, Value* args, size_t nargs,
const char_t* name, size_t len)
{
if (args[0].isIndexed())
@ -106,7 +106,7 @@ public:
}
int sumintarray (
Run& run, Value& ret, const Value* args, size_t nargs,
Run& run, Value& ret, Value* args, size_t nargs,
const char_t* name, size_t len)
{
// BEGIN {
@ -138,7 +138,7 @@ public:
int arrayindices (
Run& run,
Value& ret,
const Value* args,
Value* args,
size_t nargs,
const char_t* name,
size_t len)