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

added qse_awk_rtx_getxtnstd() and enhanced qse_awk_rtx_openstd()

Browse Source
This commit is contained in:
hyung-hwan 2009-02-27 06:55:05 +00:00
parent 651f6d2dfa
commit 3ca13066a9
7 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
qse/cmd/awk/awk.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.c 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: awk.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -644,7 +644,7 @@ static int awk_main (int argc, qse_char_t* argv[])
rcb.data = &ao;
rtx = qse_awk_rtx_openstd (
awk, ao.icf, QSE_AWK_RTX_OPENSTD_STDIO);
awk, 0, ao.icf, QSE_AWK_RTX_OPENSTD_STDIO);
if (rtx == QSE_NULL)
{
qse_printf (

14
qse/include/qse/awk/std.h
View File

@ -1,5 +1,5 @@
/*
* $Id: std.h 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: std.h 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -138,16 +138,26 @@ int qse_awk_parsestd (
* The caller should keep the contents of icf and ocf valid throughout
* the lifetime of the runtime context created. The runtime context
* remembers the pointers without copying in the contents.
*
* SYNOPSIS
*/
qse_awk_rtx_t* qse_awk_rtx_openstd (
qse_awk_t* awk,
qse_size_t xtnsize,
const qse_char_t*const icf[],
const qse_char_t*const ocf[]
);
/******/
/****f* AWK/qse_awk_rtx_getxtnstd
* NAME
* qse_awk_rtx_getxtnstd - get the pointer to extension space
* SYNOPSIS
*/
void* qse_awk_rtx_getxtnstd (
qse_awk_rtx_t* rtx
);
/******/
#ifdef __cplusplus
}
#endif

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

@ -1,5 +1,5 @@
/*
* $Id: std.c 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: std.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -881,6 +881,7 @@ static qse_ssize_t awk_rio_console (
qse_awk_rtx_t* qse_awk_rtx_openstd (
qse_awk_t* awk,
qse_size_t xtnsize,
const qse_char_t*const icf[],
const qse_char_t*const ocf[])
{
@ -895,7 +896,7 @@ qse_awk_rtx_t* qse_awk_rtx_openstd (
rtx = qse_awk_rtx_open (
awk,
QSE_SIZEOF(rxtn_t),
QSE_SIZEOF(rxtn_t) + xtnsize,
&rio,
QSE_NULL/*runarg*/
);
@ -916,6 +917,11 @@ qse_awk_rtx_t* qse_awk_rtx_openstd (
return rtx;
}
void* qse_awk_rtx_getxtnstd (qse_awk_rtx_t* rtx)
{
return (void*)((rxtn_t*)QSE_XTN(rtx) + 1);
}
/*** EXTRA BUILTIN FUNCTIONS ***/
enum
{

4
qse/test/awk/awk01.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk01.c 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: awk01.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -63,7 +63,7 @@ int main ()
}
rtx = qse_awk_rtx_openstd (
awk,
awk, 0,
QSE_NULL, /* no console input */
QSE_AWK_RTX_OPENSTD_STDIO /* stdout for console output */
);

4
qse/test/awk/awk02.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk02.c 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: awk02.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -78,7 +78,7 @@ int main ()
qse_fflush (QSE_STDOUT);
rtx = qse_awk_rtx_openstd (
awk,
awk, 0,
QSE_NULL, /* no console input */
QSE_AWK_RTX_OPENSTD_STDIO /* stdout for console output */
);

4
qse/test/awk/awk03.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk03.c 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: awk03.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -77,7 +77,7 @@ int main ()
/* create a runtime context */
rtx = qse_awk_rtx_openstd (
awk,
awk, 0,
QSE_NULL, /* no console input */
QSE_AWK_RTX_OPENSTD_STDIO /* stdout for console output */
);

4
qse/test/awk/awk04.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk04.c 85 2009-02-26 10:56:12Z hyunghwan.chung $
* $Id: awk04.c 86 2009-02-26 12:55:05Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
@ -67,7 +67,7 @@ int main ()
/* create a runtime context */
rtx = qse_awk_rtx_openstd (
awk,
awk, 0,
QSE_NULL, /* no console input */
QSE_AWK_RTX_OPENSTD_STDIO /* stdout for console output */
);