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

added some code to support module calls using module-name::function-name syntax to awk.

Browse Source 
reorganized a few awk error code
This commit is contained in:
hyung-hwan
2012-10-20 15:58:20 +00:00
parent 3cec861547
commit 11b9829c9b
29 changed files with 670 additions and 440 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
qse/include/qse/awk/awk.h
View File

@ -418,9 +418,9 @@ typedef qse_bool_t (*qse_awk_isemptyrex_t) (
);
/**
* The qse_awk_fnc_fun_t type defines a intrinsic function handler.
* The qse_awk_fnc_impl_t type defines a intrinsic function handler.
*/
typedef int (*qse_awk_fnc_fun_t) (
typedef int (*qse_awk_fnc_impl_t) (
qse_awk_rtx_t* rtx, /**< runtime context */
const qse_cstr_t* name /**< function name */
);
@ -472,9 +472,9 @@ struct qse_awk_sio_arg_t
typedef struct qse_awk_sio_arg_t qse_awk_sio_arg_t;
/**
* The qse_awk_sio_fun_t type defines a source IO function
* The qse_awk_sio_impl_t type defines a source IO function
*/
typedef qse_ssize_t (*qse_awk_sio_fun_t) (
typedef qse_ssize_t (*qse_awk_sio_impl_t) (
qse_awk_t* awk,
qse_awk_sio_cmd_t cmd,
qse_awk_sio_arg_t* arg,
@ -571,9 +571,9 @@ struct qse_awk_rio_arg_t
typedef struct qse_awk_rio_arg_t qse_awk_rio_arg_t;
/**
* The qse_awk_rio_fun_t type defines a runtime I/O handler.
* The qse_awk_rio_impl_t type defines a runtime I/O handler.
*/
typedef qse_ssize_t (*qse_awk_rio_fun_t) (
typedef qse_ssize_t (*qse_awk_rio_impl_t) (
qse_awk_rtx_t* rtx,
qse_awk_rio_cmd_t cmd,
qse_awk_rio_arg_t* riod,
@ -661,8 +661,8 @@ typedef struct qse_awk_prm_t qse_awk_prm_t;
*/
struct qse_awk_sio_t
{
qse_awk_sio_fun_t in; /**< input script stream handler */
qse_awk_sio_fun_t out; /**< output script stream handler */
qse_awk_sio_impl_t in; /**< input script stream handler */
qse_awk_sio_impl_t out; /**< output script stream handler */
};
typedef struct qse_awk_sio_t qse_awk_sio_t;
@ -674,14 +674,56 @@ typedef struct qse_awk_sio_t qse_awk_sio_t;
*/
struct qse_awk_rio_t
{
qse_awk_rio_fun_t pipe; /**< pipe handler */
qse_awk_rio_fun_t file; /**< file handler */
qse_awk_rio_fun_t console; /**< console handler */
qse_awk_rio_impl_t pipe; /**< pipe handler */
qse_awk_rio_impl_t file; /**< file handler */
qse_awk_rio_impl_t console; /**< console handler */
};
typedef struct qse_awk_rio_t qse_awk_rio_t;
/* ------------------------------------------------------------------------ */
typedef struct qse_awk_mod_t qse_awk_mod_t;
typedef struct qse_awk_mod_info_t qse_awk_mod_info_t;
enum qse_awk_mod_type_t
{
QSE_AWK_MOD_FNC = 0 /*,
QSE_AWK_MOD_VAR */
};
typedef enum qse_awk_mod_type_t qse_awk_mod_type_t;
struct qse_awk_mod_info_t
{
qse_awk_mod_type_t type;
union
{
struct
{
struct
{
int min; /* min. numbers of argument for a function */
int max; /* max. numbers of argument for a function */
} arg;
qse_awk_fnc_impl_t impl;
} f;
} u;
};
typedef int (*qse_awk_mod_query_t) (
qse_awk_t* awk,
const qse_char_t* name,
qse_awk_mod_info_t* info
);
struct qse_awk_mod_t
{
qse_awk_mod_query_t query;
int (*init) (qse_awk_t* awk, qse_awk_rtx_t* rtx);
void (*fini) (qse_awk_t* awk, qse_awk_rtx_t* rtx);
};
/* ------------------------------------------------------------------------ */
/**
* The qse_awk_ecb_close_t type defines the callback function
* called when an awk object is closed.
@ -973,15 +1015,15 @@ enum qse_awk_errnum_t
QSE_AWK_EGBLTM, /**< too many global variables */
QSE_AWK_ELCLTM, /**< too many local variables */
QSE_AWK_EPARTM, /**< too many parameters */
QSE_AWK_EDELETE, /**< 'delete' not followed by variable */
QSE_AWK_ERESET, /**< 'reset' not followed by variable */
QSE_AWK_ESEGTM, /**< too many identifier segments */
QSE_AWK_EBADARG, /**< bad argument */
QSE_AWK_ENOARG, /**< no argument */
QSE_AWK_EBREAK, /**< 'break' outside a loop */
QSE_AWK_ECONTINUE, /**< 'continue' outside a loop */
QSE_AWK_ENEXTBEG, /**< 'next' illegal in BEGIN block */
QSE_AWK_ENEXTEND, /**< 'next' illegal in END block */
QSE_AWK_ENEXTFBEG, /**< 'nextfile' illegal in BEGIN block */
QSE_AWK_ENEXTFEND, /**< 'nextfile' illegal in END block */
QSE_AWK_EPRINTFARG,/**< 'printf' not followed by argument */
QSE_AWK_EPREPST, /**< both prefix and postfix incr/decr operator present */
QSE_AWK_EINCDECOPR,/**< illegal operand for incr/decr operator */
QSE_AWK_EINCLSTR, /**< 'include' not followed by a string */
@ -1008,8 +1050,6 @@ enum qse_awk_errnum_t
QSE_AWK_ESCALARTOMAP, /**< cannot change a scalar value to a map */
QSE_AWK_EMAPNA, /**< map not allowed */
QSE_AWK_EVALTYPE, /**< invalid value type */
QSE_AWK_ERDELETE, /**< 'delete' called with wrong target */
QSE_AWK_ERRESET, /**< 'reset' called with wrong target */
QSE_AWK_ERNEXTBEG, /**< 'next' called from BEGIN block */
QSE_AWK_ERNEXTEND, /**< 'next' called from END block */
QSE_AWK_ERNEXTFBEG, /**< 'nextfile' called from BEGIN block */
@ -1247,9 +1287,9 @@ extern qse_awk_val_t* qse_awk_val_one;
* @return a pointer to a qse_awk_t object on success, #QSE_NULL on failure.
*/
qse_awk_t* qse_awk_open (
qse_mmgr_t* mmgr, /**< memory manager */
qse_size_t xtn, /**< extension size in bytes */
qse_awk_prm_t* prm /**< pointer to a primitive function structure */
qse_mmgr_t* mmgr, /**< memory manager */
qse_size_t xtnsize, /**< extension size in bytes */
qse_awk_prm_t* prm /**< pointer to a primitive function structure */
);
/**
@ -1484,14 +1524,14 @@ int qse_awk_findgbl (
* The qse_awk_addfnc() function adds an intrinsic function.
*/
void* qse_awk_addfnc (
qse_awk_t* awk,
const qse_char_t* name,
qse_size_t name_len,
int when_valid,
qse_size_t min_args,
qse_size_t max_args,
const qse_char_t* arg_spec,
qse_awk_fnc_fun_t handler
qse_awk_t* awk,
const qse_char_t* name,
qse_size_t name_len,
int when_valid,
qse_size_t min_args,
qse_size_t max_args,
const qse_char_t* arg_spec,
qse_awk_fnc_impl_t handler
);
/**

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

@ -163,7 +163,7 @@ int qse_awk_parsestd (
*/
qse_awk_rtx_t* qse_awk_rtx_openstd (
qse_awk_t* awk,
qse_size_t xtn,
qse_size_t xtnsize,
const qse_char_t* id,
const qse_char_t* icf[],
const qse_char_t* ocf[],

24
qse/include/qse/cmn/glob.h
View File

@ -29,7 +29,7 @@
* in a path name.
*/
typedef int (*qse_glob_cbfun_t) (
typedef int (*qse_glob_cbimpl_t) (
const qse_cstr_t* path,
void* cbctx
);
@ -54,24 +54,24 @@ extern "C" {
/**
* The qse_glob() function finds path names matchin the @a pattern.
* It calls the call-back function @a cbfun for each path name found.
* It calls the call-back function @a cbimpl for each path name found.
*
* @return -1 on failure, 0 on no match, 1 if matches are found.
*/
int qse_glob (
const qse_char_t* pattern,
qse_glob_cbfun_t cbfun,
void* cbctx,
int flags,
qse_mmgr_t* mmgr
const qse_char_t* pattern,
qse_glob_cbimpl_t cbimpl,
void* cbctx,
int flags,
qse_mmgr_t* mmgr
);
int qse_globwithcmgr (
const qse_char_t* pattern,
qse_glob_cbfun_t cbfun,
void* cbctx,
int flags,
qse_mmgr_t* mmgr,
const qse_char_t* pattern,
qse_glob_cbimpl_t cbimpl,
void* cbctx,
int flags,
qse_mmgr_t* mmgr,
qse_cmgr_t* cmgr
);

10
qse/include/qse/cmn/tio.h
View File

@ -81,9 +81,9 @@ enum qse_tio_misc_t
typedef struct qse_tio_t qse_tio_t;
/**
* The qse_tio_io_fun_t types define a text I/O handler.
* The qse_tio_io_impl_t types define a text I/O handler.
*/
typedef qse_ssize_t (*qse_tio_io_fun_t) (
typedef qse_ssize_t (*qse_tio_io_impl_t) (
qse_tio_t* tio,
qse_tio_cmd_t cmd,
void* data,
@ -92,7 +92,7 @@ typedef qse_ssize_t (*qse_tio_io_fun_t) (
struct qse_tio_io_t
{
qse_tio_io_fun_t fun;
qse_tio_io_impl_t fun;
struct
{
qse_size_t capa;
@ -200,7 +200,7 @@ void qse_tio_setcmgr (
*/
int qse_tio_attachin (
qse_tio_t* tio,
qse_tio_io_fun_t input,
qse_tio_io_impl_t input,
qse_mchar_t* bufptr,
qse_size_t bufcapa
);
@ -219,7 +219,7 @@ int qse_tio_detachin (
*/
int qse_tio_attachout (
qse_tio_t* tio,
qse_tio_io_fun_t output,
qse_tio_io_impl_t output,
qse_mchar_t* bufptr,
qse_size_t bufcapa
);

12
qse/include/qse/sed/sed.h
View File

@ -61,7 +61,7 @@
*
* The input and output streams needed by qse_sed_exec() are implemented in
* the form of callback functions. You should implement two functions
* conforming to the ::qse_sed_io_fun_t type.
* conforming to the ::qse_sed_io_impl_t type.
*/
typedef struct qse_sed_t qse_sed_t;
@ -324,10 +324,10 @@ struct qse_sed_io_arg_t
typedef struct qse_sed_io_arg_t qse_sed_io_arg_t;
/**
* The qse_sed_io_fun_t type defines an I/O handler. I/O handlers are called by
* The qse_sed_io_impl_t type defines an I/O handler. I/O handlers are called by
* qse_sed_exec().
*/
typedef qse_ssize_t (*qse_sed_io_fun_t) (
typedef qse_ssize_t (*qse_sed_io_impl_t) (
qse_sed_t* sed,
qse_sed_io_cmd_t cmd,
qse_sed_io_arg_t* arg,
@ -564,7 +564,7 @@ void qse_sed_pushecb (
*/
int qse_sed_comp (
qse_sed_t* sed, /**< stream editor */
qse_sed_io_fun_t inf /**< script stream reader */
qse_sed_io_impl_t inf /**< script stream reader */
);
/**
@ -573,8 +573,8 @@ int qse_sed_comp (
*/
int qse_sed_exec (
qse_sed_t* sed, /**< stream editor */
qse_sed_io_fun_t inf, /**< stream reader */
qse_sed_io_fun_t outf /**< stream writer */
qse_sed_io_impl_t inf, /**< stream reader */
qse_sed_io_impl_t outf /**< stream writer */
);
/**

8
qse/include/qse/stx/stx.h
View File

@ -64,9 +64,9 @@ struct qse_stx_io_arg_t
typedef struct qse_stx_io_arg_t qse_stx_io_arg_t;
/**
* The qse_stx_io_fun_t type defines an I/O handler function.
* The qse_stx_io_impl_t type defines an I/O handler function.
*/
typedef qse_ssize_t (*qse_stx_io_fun_t) (
typedef qse_ssize_t (*qse_stx_io_impl_t) (
qse_stx_t* stx,
qse_stx_io_cmd_t cmd,
qse_stx_io_arg_t* arg,
@ -79,8 +79,8 @@ typedef qse_ssize_t (*qse_stx_io_fun_t) (
*/
struct qse_stx_io_t
{
qse_stx_io_fun_t in;
qse_stx_io_fun_t out;
qse_stx_io_impl_t in;
qse_stx_io_impl_t out;
};
typedef struct qse_stx_io_t qse_stx_io_t;