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

documented the source code a little bit

Browse Source
This commit is contained in:
hyung-hwan 2009-02-17 21:27:03 +00:00
parent fed0a952ab
commit 80dfcd497c
8 changed files with 83 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
qse/README
View File

@ -12,4 +12,4 @@ Cross compiling for WIN32 with MINGW32
Generate the API documents with robodoc. Generate the API documents with robodoc.
robodoc --rc doc/robodoc.rc --css doc/robodoc.css --src include/qse --src test --doc ./doc/qse --multidoc --index --html --source_line_numbers --nopre robodoc --rc doc/robodoc.rc --css doc/robodoc.css --src . --doc ./doc/qse --multidoc --index --html

9
qse/doc/robodoc.rc
View File

@ -11,6 +11,7 @@ items:
RETURNS RETURNS
EXAMPLE EXAMPLE
EXAMPLES EXAMPLES
NOTE
NOTES NOTES
BUGS BUGS
SEE ALSO SEE ALSO
@ -28,6 +29,7 @@ item order:
RETURNS RETURNS
EXAMPLE EXAMPLE
EXAMPLES EXAMPLES
NOTE
NOTES NOTES
BUGS BUGS
SEE ALSO SEE ALSO
@ -40,9 +42,14 @@ ignore files:
.svn .svn
headertypes: headertypes:
o "Overview" robo_overview 10 o "Overview" robo_overview 10
S "Sample Code" robo_sample 11 d "Definitions" robo_definitions 6
t "Types" robo_types 5
s "Structures" robo_structures 5
f "Functions" robo_functions 4
S "Samples" robo_samples 0
options: options:
--cmode --cmode
--nopre --nopre
--documenttitle "QSE" --documenttitle "QSE"
--source_line_numbers --source_line_numbers
--tabsize 4

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

@ -24,7 +24,7 @@
#include <qse/cmn/map.h> #include <qse/cmn/map.h>
#include <qse/cmn/str.h> #include <qse/cmn/str.h>
/****o* AWK/AWK Interpreter /****o* AWK/Interpreter
* DESCRIPTION * DESCRIPTION
* The library includes an AWK interpreter that can be embedded into other * The library includes an AWK interpreter that can be embedded into other
* applications or can run stand-alone. * applications or can run stand-alone.
@ -1074,7 +1074,7 @@ qse_char_t* qse_awk_strdup (
qse_char_t* qse_awk_strxdup ( qse_char_t* qse_awk_strxdup (
qse_awk_t* awk, qse_awk_t* awk,
const qse_char_t* str, const qse_char_t* str,
qse_size_t len qse_size_t len
); );
/******/ /******/
@ -1134,12 +1134,13 @@ void qse_awk_rtx_close (
* RETURN * RETURN
* The qse_awk_rtx_loop() function returns 0 on success and -1 on failure. * The qse_awk_rtx_loop() function returns 0 on success and -1 on failure.
* EXAMPLE * EXAMPLE
* rtx = qse_awk_rtx_open (awk, rio, rcb, QSE_NULL, QSE_NULL); * The example shows typical usage of the function.
* if (rtx != QSE_NULL) * rtx = qse_awk_rtx_open (awk, rio, rcb, QSE_NULL, QSE_NULL);
* { * if (rtx != QSE_NULL)
* qse_awk_rtx_loop (rtx); * {
* qse_awk_rtx_close (rtx); * qse_awk_rtx_loop (rtx);
* } * qse_awk_rtx_close (rtx);
* }
* SYNOPSIS * SYNOPSIS
*/ */
int qse_awk_rtx_loop ( int qse_awk_rtx_loop (
@ -1158,13 +1159,14 @@ int qse_awk_rtx_loop (
* RETURN * RETURN
* The qse_awk_rtx_call() function returns 0 on success and -1 on failure. * The qse_awk_rtx_call() function returns 0 on success and -1 on failure.
* EXAMPLE * EXAMPLE
* rtx = qse_awk_rtx_open (awk, rio, rcb, QSE_NULL, QSE_NULL); * The example shows typical usage of the function.
* if (rtx != QSE_NULL) * rtx = qse_awk_rtx_open (awk, rio, rcb, QSE_NULL, QSE_NULL);
* { * if (rtx != QSE_NULL)
* qse_awk_rtx_call (rtx, QSE_T("init"), QSE_NULL, 0); * {
* qse_awk_rtx_call (rtx, QSE_T("fini"), QSE_NULL, 0); * qse_awk_rtx_call (rtx, QSE_T("init"), QSE_NULL, 0);
* qse_awk_rtx_close (rtx); * qse_awk_rtx_call (rtx, QSE_T("fini"), QSE_NULL, 0);
* } * qse_awk_rtx_close (rtx);
* }
* SYNOPSIS * SYNOPSIS
*/ */
int qse_awk_rtx_call ( int qse_awk_rtx_call (
@ -1308,7 +1310,7 @@ void qse_awk_rtx_setretval (
*/ */
int qse_awk_rtx_setfilename ( int qse_awk_rtx_setfilename (
qse_awk_rtx_t* rtx, qse_awk_rtx_t* rtx,
const qse_char_t* name, const qse_char_t* str,
qse_size_t len qse_size_t len
); );
/******/ /******/
@ -1320,7 +1322,7 @@ int qse_awk_rtx_setfilename (
*/ */
int qse_awk_rtx_setofilename ( int qse_awk_rtx_setofilename (
qse_awk_rtx_t* rtx, qse_awk_rtx_t* rtx,
const qse_char_t* name, const qse_char_t* str,
qse_size_t len qse_size_t len
); );
/******/ /******/
@ -1525,17 +1527,16 @@ qse_char_t* qse_awk_rtx_valtostr (
* RETURN * RETURN
* The qse_awk_rtx_valtonum() function returns -1 on error, 0 if the converted * The qse_awk_rtx_valtonum() function returns -1 on error, 0 if the converted
* number is a long number and 1 if it is a real number. * number is a long number and 1 if it is a real number.
* EXAMPLES * EXAMPLE
* The following example show how to convert a value to a number and * The example show how to convert a value to a number and determine
* determine if it is an integer or a floating-point number. * if it is an integer or a floating-point number.
* qse_long_t l; * qse_long_t l;
* qse_real_t r; * qse_real_t r;
* int n; * int n;
* * n = qse_awk_rtx_valtonum (v, &l, &r);
* n = qse_awk_rtx_valtonum (v, &l, &r); * if (n == -1) error ();
* if (n == -1) error (); * else if (n == 0) print_long (l);
* else if (n == 0) do_long (l); * else if (n == 1) print_real (r);
* else if (n == 1) do_real (r);
* SYNOPSIS * SYNOPSIS
*/ */
int qse_awk_rtx_valtonum ( int qse_awk_rtx_valtonum (

40
qse/include/qse/types.h
View File

@ -77,8 +77,8 @@ typedef enum qse_tri_t qse_tri_t;
/****t* Base/qse_int_t,Base/qse_uint_t /****t* Base/qse_int_t,Base/qse_uint_t
* NAME * NAME
* qse_int_t - define a signed integer type as large as a pointer type * * qse_int_t - define a signed integer type as large as a pointer type
* qse_uint_t - define an unsigned integer type as large as a pointer type * * qse_uint_t - define an unsigned integer type as large as a pointer type
****** ******
*/ */
#if (defined(hpux) || defined(__hpux) || defined(__hpux__)) && \ #if (defined(hpux) || defined(__hpux) || defined(__hpux__)) && \
@ -109,8 +109,8 @@ typedef enum qse_tri_t qse_tri_t;
/****t* Base/qse_long_t,Base/qse_ulong_t /****t* Base/qse_long_t,Base/qse_ulong_t
* NAME * NAME
* qse_long_t - define the largest signed integer type supported * * qse_long_t - define the largest signed integer type supported
* qse_ulong_t - define the largest unsigned integer type supported * * qse_ulong_t - define the largest unsigned integer type supported
****** ******
*/ */
#if QSE_SIZEOF_LONG_LONG > 0 #if QSE_SIZEOF_LONG_LONG > 0
@ -126,8 +126,8 @@ typedef enum qse_tri_t qse_tri_t;
/****t* Base/qse_int8_t,Base/qse_uint8_t /****t* Base/qse_int8_t,Base/qse_uint8_t
* NAME * NAME
* qse_int8_t - define an 8-bit signed integer type * * qse_int8_t - define an 8-bit signed integer type
* qse_uint8_t - define an 8-bit unsigned integer type * * qse_uint8_t - define an 8-bit unsigned integer type
****** ******
*/ */
#if QSE_SIZEOF_CHAR == 1 #if QSE_SIZEOF_CHAR == 1
@ -140,8 +140,8 @@ typedef enum qse_tri_t qse_tri_t;
/****t* Base/qse_int16_t,Base/qse_uint16_t /****t* Base/qse_int16_t,Base/qse_uint16_t
* NAME * NAME
* qse_int16_t - define a 16-bit signed integer type * * qse_int16_t - define a 16-bit signed integer type
* qse_uint16_t - define a 16-bit unsigned integer type * * qse_uint16_t - define a 16-bit unsigned integer type
****** ******
*/ */
#if QSE_SIZEOF_SHORT == 2 #if QSE_SIZEOF_SHORT == 2
@ -154,8 +154,8 @@ typedef enum qse_tri_t qse_tri_t;
/****t* Base/qse_int32_t,Base/qse_uint32_t /****t* Base/qse_int32_t,Base/qse_uint32_t
* NAME * NAME
* qse_int32_t - define a 32-bit signed integer type * * qse_int32_t - define a 32-bit signed integer type
* qse_uint32_t - define a 32-bit unsigned integer type * * qse_uint32_t - define a 32-bit unsigned integer type
****** ******
*/ */
#if QSE_SIZEOF_INT == 4 #if QSE_SIZEOF_INT == 4
@ -171,8 +171,8 @@ typedef enum qse_tri_t qse_tri_t;
/****t* Base/qse_int64_t,Base/qse_uint64_t /****t* Base/qse_int64_t,Base/qse_uint64_t
* NAME * NAME
* qse_int64_t - define a 64-bit signed integer type * * qse_int64_t - define a 64-bit signed integer type
* qse_uint64_t - define a 64-bit unsigned integer type * * qse_uint64_t - define a 64-bit unsigned integer type
****** ******
*/ */
#if QSE_SIZEOF_INT == 8 #if QSE_SIZEOF_INT == 8
@ -267,8 +267,8 @@ typedef qse_uint_t qse_word_t;
/****t* Base/qse_mchar_t,Base/qse_mcint_t /****t* Base/qse_mchar_t,Base/qse_mcint_t
* NAME * NAME
* qse_mchar_t - define a multi-byte character * * qse_mchar_t - define a multi-byte character
* qse_mcint_t - define a type that can hold qse_mchar_t and QSE_MCHAR_EOF * * qse_mcint_t - define a type that can hold qse_mchar_t and QSE_MCHAR_EOF
****** ******
*/ */
typedef char qse_mchar_t; typedef char qse_mchar_t;
@ -276,8 +276,8 @@ typedef int qse_mcint_t;
/****t* Base/qse_wchar_t,Base/qse_wcint_t /****t* Base/qse_wchar_t,Base/qse_wcint_t
* NAME * NAME
* qse_wchar_t - define a wide character * * qse_wchar_t - define a wide character
* qse_wcint_t - define a type that can hold qse_wchar_t and QSE_WCHAR_EOF * * qse_wcint_t - define a type that can hold qse_wchar_t and QSE_WCHAR_EOF
****** ******
*/ */
#if defined(__cplusplus) && \ #if defined(__cplusplus) && \
@ -335,8 +335,8 @@ typedef int qse_mcint_t;
/****t* Base/qse_char_t,Base/qse_cint_t /****t* Base/qse_char_t,Base/qse_cint_t
* NAME * NAME
* qse_char_t - define a character * * qse_char_t - define a character
* qse_cint_t - define a type that can hold qse_char_t and QSE_CHAR_EOF * * qse_cint_t - define a type that can hold qse_char_t and QSE_CHAR_EOF
****** ******
*/ */
#if defined(_WIN32) && (defined(UNICODE)||defined(_UNICODE)) #if defined(_WIN32) && (defined(UNICODE)||defined(_UNICODE))
@ -378,6 +378,8 @@ typedef struct qse_ccls_t qse_ccls_t;
/****t* Base/qse_xstr_t /****t* Base/qse_xstr_t
* NAME * NAME
* qse_xstr_t - combine a pointer and length * qse_xstr_t - combine a pointer and length
* SEE ALSO
* qse_cstr_t
* SYNOPSIS * SYNOPSIS
*/ */
struct qse_xstr_t struct qse_xstr_t
@ -390,6 +392,8 @@ struct qse_xstr_t
/****t* Base/qse_cstr_t /****t* Base/qse_cstr_t
* NAME * NAME
* qse_cstr_t - combine a constant pointer and length * qse_cstr_t - combine a constant pointer and length
* SEE ALSO
* qse_xstr_t
* SYNOPSIS * SYNOPSIS
*/ */
struct qse_cstr_t struct qse_cstr_t

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

@ -1130,7 +1130,8 @@ void Awk::setError (ErrorCode code, size_t line, const char_t* arg, size_t len)
this->errnum = code; this->errnum = code;
this->errlin = line; this->errlin = line;
const char_t* es = qse_awk_geterrstr (QSE_NULL, code); const char_t* es = qse_awk_geterrstr (
QSE_NULL, (qse_awk_errnum_t)code);
qse_strxcpy (this->errmsg, QSE_COUNTOF(this->errmsg), es); qse_strxcpy (this->errmsg, QSE_COUNTOF(this->errmsg), es);
} }
} }
@ -1281,13 +1282,13 @@ Awk::size_t Awk::getMaxDepth (int id) const
const Awk::char_t* Awk::getErrorString (ErrorCode num) const const Awk::char_t* Awk::getErrorString (ErrorCode num) const
{ {
QSE_ASSERT (awk != QSE_NULL); QSE_ASSERT (awk != QSE_NULL);
return qse_awk_geterrstr (awk, (int)num); return qse_awk_geterrstr (awk, (qse_awk_errnum_t)num);
} }
int Awk::setErrorString (ErrorCode num, const char_t* str) int Awk::setErrorString (ErrorCode num, const char_t* str)
{ {
QSE_ASSERT (awk != QSE_NULL); QSE_ASSERT (awk != QSE_NULL);
return qse_awk_seterrstr (awk, (int)num, str); return qse_awk_seterrstr (awk, (qse_awk_errnum_t)num, str);
} }
int Awk::getWord ( int Awk::getWord (

2
qse/lib/utl/Makefile.in
View File

@ -33,7 +33,7 @@ POST_UNINSTALL = :
build_triplet = @build@ build_triplet = @build@
host_triplet = @host@ host_triplet = @host@
subdir = lib/utl subdir = lib/utl
DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__aclocal_m4_deps = $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \

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

@ -1,3 +1,9 @@
/****S* AWK/Basic Loop
* DESCRIPTION
* This program demonstrates how to use qse_awk_rtx_loop().
* SOURCE
*/
#include <qse/awk/awk.h> #include <qse/awk/awk.h>
#include <qse/utl/stdio.h> #include <qse/utl/stdio.h>
@ -61,3 +67,5 @@ oops:
if (awk != QSE_NULL) qse_awk_close (awk); if (awk != QSE_NULL) qse_awk_close (awk);
return -1; return -1;
} }
/******/

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

@ -1,4 +1,4 @@
/****S* Sample/AWK /****S* AWK/Calling Functions
* DESCRIPTION * DESCRIPTION
* This program demonstrates how to use qse_awk_rtx_call(). * This program demonstrates how to use qse_awk_rtx_call().
* SOURCE * SOURCE
@ -7,13 +7,13 @@
#include <qse/awk/awk.h> #include <qse/awk/awk.h>
#include <qse/utl/stdio.h> #include <qse/utl/stdio.h>
const qse_char_t* src = QSE_T( static const qse_char_t* src = QSE_T(
"function init() { a = 20; }" "function init() { a = 20; }"
"function main() { a++; }" "function main() { a++; }"
"function fini() { print a; }" "function fini() { print a; }"
); );
const qse_char_t* f[] = static const qse_char_t* f[] =
{ {
QSE_T("init"), QSE_T("init"),
QSE_T("main"), QSE_T("main"),
@ -29,6 +29,7 @@ int main ()
qse_awk_rtx_t* rtx = QSE_NULL; qse_awk_rtx_t* rtx = QSE_NULL;
int ret, i; int ret, i;
/* create a main processor */
awk = qse_awk_opensimple (); awk = qse_awk_opensimple ();
if (awk == QSE_NULL) if (awk == QSE_NULL)
{ {
@ -51,6 +52,7 @@ int main ()
goto oops; goto oops;
} }
/* create a runtime context */
rtx = qse_awk_rtx_opensimple ( rtx = qse_awk_rtx_opensimple (
awk, awk,
QSE_NULL /* no console files */ QSE_NULL /* no console files */
@ -62,19 +64,22 @@ int main ()
ret = -1; goto oops; ret = -1; goto oops;
} }
/* invoke functions as indicated in the array f */
for (i = 0; i < QSE_COUNTOF(f); i++) for (i = 0; i < QSE_COUNTOF(f); i++)
{ {
ret = qse_awk_rtx_call (rtx, f[i], QSE_NULL, 0); ret = qse_awk_rtx_call (rtx, f[i], QSE_NULL, 0);
if (ret == -1) if (ret == -1)
{ {
qse_fprintf (QSE_STDERR, QSE_T("%d error: %s\n"), qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),
i, qse_awk_rtx_geterrmsg(rtx)); qse_awk_rtx_geterrmsg(rtx));
goto oops; goto oops;
} }
} }
oops: oops:
/* destroy a runtime context */
if (rtx != QSE_NULL) qse_awk_rtx_close (rtx); if (rtx != QSE_NULL) qse_awk_rtx_close (rtx);
/* destroy the processor */
if (awk != QSE_NULL) qse_awk_close (awk); if (awk != QSE_NULL) qse_awk_close (awk);
return ret; return ret;
} }