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

Recovered from cvs revision 2007-06-30 03:05:00

Browse Source
This commit is contained in:
hyung-hwan 2007-07-02 23:04:00 +00:00
parent 26a9dfe8f4
commit 8064c884fb
11 changed files with 300 additions and 173 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ase/awk/Awk.hpp
View File

@ -1,5 +1,5 @@
/* /*
* $Id: Awk.hpp,v 1.43 2007/06/28 15:45:57 bacon Exp $ * $Id: Awk.hpp,v 1.44 2007/06/29 11:36:45 bacon Exp $
*/ */
#ifndef _ASE_AWK_AWK_HPP_ #ifndef _ASE_AWK_AWK_HPP_
@ -239,6 +239,7 @@ namespace ASE
ERR_SOUTCL = ASE_AWK_ESOUTCL, ERR_SOUTCL = ASE_AWK_ESOUTCL,
ERR_SOUTWR = ASE_AWK_ESOUTWR, ERR_SOUTWR = ASE_AWK_ESOUTWR,
ERR_LXCHR = ASE_AWK_ELXCHR, ERR_LXCHR = ASE_AWK_ELXCHR,
ERR_LXDIG = ASE_AWK_ELXDIG,
ERR_LXUNG = ASE_AWK_ELXUNG, ERR_LXUNG = ASE_AWK_ELXUNG,
ERR_ENDSRC = ASE_AWK_EENDSRC, ERR_ENDSRC = ASE_AWK_EENDSRC,
ERR_ENDCMT = ASE_AWK_EENDCMT, ERR_ENDCMT = ASE_AWK_EENDCMT,

191
ase/awk/Exception.java
View File

@ -1,5 +1,5 @@
/* /*
* $Id: Exception.java,v 1.4 2007/06/25 14:13:23 bacon Exp $ * $Id: Exception.java,v 1.5 2007/06/29 11:36:45 bacon Exp $
* *
* {License} * {License}
*/ */
@ -43,100 +43,101 @@ public class Exception extends java.lang.Exception
public static final int SOUTCL = 28; public static final int SOUTCL = 28;
public static final int SOUTWR = 29; public static final int SOUTWR = 29;
public static final int LXCHR = 30; public static final int LXCHR = 30;
public static final int LXUNG = 31; public static final int LXDIG = 31;
public static final int ENDSRC = 32; public static final int LXUNG = 32;
public static final int ENDCMT = 33; public static final int ENDSRC = 33;
public static final int ENDSTR = 34; public static final int ENDCMT = 34;
public static final int ENDREX = 35; public static final int ENDSTR = 35;
public static final int LBRACE = 36; public static final int ENDREX = 36;
public static final int LPAREN = 37; public static final int LBRACE = 37;
public static final int RPAREN = 38; public static final int LPAREN = 38;
public static final int RBRACK = 39; public static final int RPAREN = 39;
public static final int COMMA = 40; public static final int RBRACK = 40;
public static final int SCOLON = 41; public static final int COMMA = 41;
public static final int COLON = 42; public static final int SCOLON = 42;
public static final int STMEND = 43; public static final int COLON = 43;
public static final int IN = 44; public static final int STMEND = 44;
public static final int NOTVAR = 45; public static final int IN = 45;
public static final int EXPRES = 46; public static final int NOTVAR = 46;
public static final int WHILE = 47; public static final int EXPRES = 47;
public static final int ASSIGN = 48; public static final int WHILE = 48;
public static final int IDENT = 49; public static final int ASSIGN = 49;
public static final int FNNAME = 50; public static final int IDENT = 50;
public static final int BLKBEG = 51; public static final int FNNAME = 51;
public static final int BLKEND = 52; public static final int BLKBEG = 52;
public static final int DUPBEG = 53; public static final int BLKEND = 53;
public static final int DUPEND = 54; public static final int DUPBEG = 54;
public static final int BFNRED = 55; public static final int DUPEND = 55;
public static final int AFNRED = 56; public static final int BFNRED = 56;
public static final int GBLRED = 57; public static final int AFNRED = 57;
public static final int PARRED = 58; public static final int GBLRED = 58;
public static final int DUPPAR = 59; public static final int PARRED = 59;
public static final int DUPGBL = 60; public static final int DUPPAR = 60;
public static final int DUPLCL = 61; public static final int DUPGBL = 61;
public static final int BADPAR = 62; public static final int DUPLCL = 62;
public static final int BADVAR = 63; public static final int BADPAR = 63;
public static final int UNDEF = 64; public static final int BADVAR = 64;
public static final int LVALUE = 65; public static final int UNDEF = 65;
public static final int GBLTM = 66; public static final int LVALUE = 66;
public static final int LCLTM = 67; public static final int GBLTM = 67;
public static final int PARTM = 68; public static final int LCLTM = 68;
public static final int DELETE = 69; public static final int PARTM = 69;
public static final int BREAK = 70; public static final int DELETE = 70;
public static final int CONTINUE = 71; public static final int BREAK = 71;
public static final int NEXTBEG = 72; public static final int CONTINUE = 72;
public static final int NEXTEND = 73; public static final int NEXTBEG = 73;
public static final int NEXTFBEG = 74; public static final int NEXTEND = 74;
public static final int NEXTFEND = 75; public static final int NEXTFBEG = 75;
public static final int PRINTFARG = 76; public static final int NEXTFEND = 76;
public static final int PREPST = 77; public static final int PRINTFARG = 77;
public static final int GLNCPS = 78; public static final int PREPST = 78;
public static final int DIVBY0 = 79; public static final int GLNCPS = 79;
public static final int OPERAND = 80; public static final int DIVBY0 = 80;
public static final int POSIDX = 81; public static final int OPERAND = 81;
public static final int ARGTF = 82; public static final int POSIDX = 82;
public static final int ARGTM = 83; public static final int ARGTF = 83;
public static final int FNNONE = 84; public static final int ARGTM = 84;
public static final int NOTIDX = 85; public static final int FNNONE = 85;
public static final int NOTDEL = 86; public static final int NOTIDX = 86;
public static final int NOTMAP = 87; public static final int NOTDEL = 87;
public static final int NOTMAPIN = 88; public static final int NOTMAP = 88;
public static final int NOTMAPNILIN = 89; public static final int NOTMAPIN = 89;
public static final int NOTREF = 90; public static final int NOTMAPNILIN = 90;
public static final int NOTASS = 91; public static final int NOTREF = 91;
public static final int IDXVALASSMAP = 92; public static final int NOTASS = 92;
public static final int POSVALASSMAP = 93; public static final int IDXVALASSMAP = 93;
public static final int MAPTOSCALAR = 94; public static final int POSVALASSMAP = 94;
public static final int SCALARTOMAP = 95; public static final int MAPTOSCALAR = 95;
public static final int MAPNOTALLOWED = 96; public static final int SCALARTOMAP = 96;
public static final int VALTYPE = 97; public static final int MAPNOTALLOWED = 97;
public static final int RDELETE = 98; public static final int VALTYPE = 98;
public static final int RNEXTBEG = 99; public static final int RDELETE = 99;
public static final int RNEXTEND = 100; public static final int RNEXTBEG = 100;
public static final int RNEXTFBEG = 101; public static final int RNEXTEND = 101;
public static final int RNEXTFEND = 102; public static final int RNEXTFBEG = 102;
public static final int BFNUSER = 103; public static final int RNEXTFEND = 103;
public static final int BFNIMPL = 104; public static final int BFNUSER = 104;
public static final int IOUSER = 105; public static final int BFNIMPL = 105;
public static final int IONONE = 106; public static final int IOUSER = 106;
public static final int IOIMPL = 107; public static final int IONONE = 107;
public static final int IONMEM = 108; public static final int IOIMPL = 108;
public static final int IONMNL = 109; public static final int IONMEM = 109;
public static final int FMTARG = 110; public static final int IONMNL = 110;
public static final int FMTCNV = 111; public static final int FMTARG = 111;
public static final int CONVFMTCHR = 112; public static final int FMTCNV = 112;
public static final int OFMTCHR = 113; public static final int CONVFMTCHR = 113;
public static final int REXRECUR = 114; public static final int OFMTCHR = 114;
public static final int REXRPAREN = 115; public static final int REXRECUR = 115;
public static final int REXRBRACKET = 116; public static final int REXRPAREN = 116;
public static final int REXRBRACE = 117; public static final int REXRBRACKET = 117;
public static final int REXUNBALPAR = 118; public static final int REXRBRACE = 118;
public static final int REXCOLON = 119; public static final int REXUNBALPAR = 119;
public static final int REXCRANGE = 120; public static final int REXCOLON = 120;
public static final int REXCCLASS = 121; public static final int REXCRANGE = 121;
public static final int REXBRANGE = 122; public static final int REXCCLASS = 122;
public static final int REXEND = 123; public static final int REXBRANGE = 123;
public static final int REXGARBAGE = 124; public static final int REXEND = 124;
public static final int REXGARBAGE = 125;
// end of error codes // end of error codes
public Exception () public Exception ()

3
ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.h,v 1.7 2007/06/18 14:05:18 bacon Exp $ * $Id: awk.h,v 1.8 2007/06/29 11:36:45 bacon Exp $
* *
* {License} * {License}
*/ */
@ -233,6 +233,7 @@ enum ase_awk_errnum_t
ASE_AWK_ESOUTWR, ASE_AWK_ESOUTWR,
ASE_AWK_ELXCHR, /* lexer came accross an wrong character */ ASE_AWK_ELXCHR, /* lexer came accross an wrong character */
ASE_AWK_ELXDIG, /* invalid digit */
ASE_AWK_ELXUNG, /* lexer failed to unget a character */ ASE_AWK_ELXUNG, /* lexer failed to unget a character */
ASE_AWK_EENDSRC, /* unexpected end of source */ ASE_AWK_EENDSRC, /* unexpected end of source */

3
ase/awk/err.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: err.c,v 1.4 2007/05/19 12:13:41 bacon Exp $ * $Id: err.c,v 1.5 2007/06/29 11:36:45 bacon Exp $
* *
* {License} * {License}
*/ */
@ -47,6 +47,7 @@ static const ase_char_t* __geterrstr (int errnum)
ASE_T("cannot write source output"), ASE_T("cannot write source output"),
ASE_T("invalid character '%.*s'"), ASE_T("invalid character '%.*s'"),
ASE_T("invalid digit '%.*s'"),
ASE_T("cannot unget character"), ASE_T("cannot unget character"),
ASE_T("unexpected end of source"), ASE_T("unexpected end of source"),

9
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.10 2007/06/28 15:45:57 bacon Exp $ * $Id: parse.c,v 1.11 2007/06/29 11:36:45 bacon Exp $
* *
* {License} * {License}
*/ */
@ -4423,6 +4423,13 @@ static int get_number (ase_awk_t* awk)
GET_CHAR_TO (awk, c); GET_CHAR_TO (awk, c);
} }
if (c == ASE_T('8') || c == ASE_T('9'))
{
ase_char_t cc = (ase_char_t)c;
SETERRARG (awk, ASE_AWK_ELXDIG, awk->token.line, &cc, 1);
return -1;
}
return 0; return 0;
} }
} }

2
ase/change.log
View File

@ -5,6 +5,8 @@
* added setWord/unsetWord method to the awk c++ class (awk/Awk.cpp) * added setWord/unsetWord method to the awk c++ class (awk/Awk.cpp)
* added setErrorString method to the awk c++ class (awk/Awk.cpp) * added setErrorString method to the awk c++ class (awk/Awk.cpp)
* added setWord/unsetWord method to the awk java class (awk/Awk.java) * added setWord/unsetWord method to the awk java class (awk/Awk.java)
* added the error code ASE_AWK_ELXDIG to indicate a wrong digit in
octal number tokenization.
* changed the wrong macro name WIN32 to _WIN32 in utl/stdio.h * changed the wrong macro name WIN32 to _WIN32 in utl/stdio.h
* changed test/awk/Awk.cpp to include an option(-w) to utilize * changed test/awk/Awk.cpp to include an option(-w) to utilize

129
ase/com/Awk.cpp
View File

@ -1,5 +1,5 @@
/* /*
* $Id: Awk.cpp,v 1.4 2007/06/27 15:27:21 bacon Exp $ * $Id: Awk.cpp,v 1.5 2007/06/29 11:24:27 bacon Exp $
* *
* {License} * {License}
*/ */
@ -47,6 +47,7 @@ CAwk::CAwk ():
write_src_buf (NULL), write_src_buf (NULL),
write_extio_buf (NULL), write_extio_buf (NULL),
bfn_list (NULL), bfn_list (NULL),
word_list (NULL),
entry_point (NULL), entry_point (NULL),
debug (FALSE), debug (FALSE),
use_longlong (FALSE) use_longlong (FALSE)
@ -74,11 +75,16 @@ CAwk::CAwk ():
CAwk::~CAwk () CAwk::~CAwk ()
{ {
while (word_list != NULL)
{
word_t* next = word_list->next;
free (word_list);
word_list = next;
}
while (bfn_list != NULL) while (bfn_list != NULL)
{ {
bfn_t* next = bfn_list->next; bfn_t* next = bfn_list->next;
free (bfn_list->name.ptr);
free (bfn_list); free (bfn_list);
bfn_list = next; bfn_list = next;
} }
@ -566,6 +572,25 @@ HRESULT CAwk::Parse (VARIANT_BOOL* ret)
} }
} }
ase_awk_setword (handle, NULL, 0, NULL, 0);
for (word_t* word = word_list; word != NULL; word = word->next)
{
if (ase_awk_setword (handle,
word->ow.ptr, word->ow.len,
word->nw.ptr, word->nw.len) == -1)
{
const ase_char_t* msg;
DBGOUT (_T("cannot set the word"));
ase_awk_geterror (handle, &errnum, &errlin, &msg);
ase_strxcpy (errmsg, ASE_COUNTOF(errmsg), msg);
*ret = VARIANT_FALSE;
return S_OK;
}
}
ase_awk_srcios_t srcios; ase_awk_srcios_t srcios;
srcios.in = __read_source; srcios.in = __read_source;
@ -906,7 +931,7 @@ STDMETHODIMP CAwk::AddFunction (
} }
} }
bfn = (bfn_t*)malloc (sizeof(bfn_t)); bfn = (bfn_t*)malloc (sizeof(bfn_t) + name_len*sizeof(TCHAR));
if (bfn == NULL) if (bfn == NULL)
{ {
errnum = ASE_AWK_ENOMEM; errnum = ASE_AWK_ENOMEM;
@ -920,20 +945,7 @@ STDMETHODIMP CAwk::AddFunction (
} }
bfn->name.len = name_len; bfn->name.len = name_len;
bfn->name.ptr = (TCHAR*)malloc (bfn->name.len * sizeof(TCHAR)); bfn->name.ptr = (TCHAR*)(bfn + 1);
if (bfn->name.ptr == NULL)
{
free (bfn);
errnum = ASE_AWK_ENOMEM;
errlin = 0;
ase_strxcpy (
errmsg, ASE_COUNTOF(errmsg),
ase_awk_geterrstr(NULL, errnum));
*ret = VARIANT_FALSE;
return S_OK;
}
memcpy (bfn->name.ptr, name, sizeof(TCHAR) * bfn->name.len); memcpy (bfn->name.ptr, name, sizeof(TCHAR) * bfn->name.len);
bfn->min_args = minArgs; bfn->min_args = minArgs;
@ -958,7 +970,6 @@ STDMETHODIMP CAwk::DeleteFunction (BSTR name, VARIANT_BOOL* ret)
bfn->name.ptr, bfn->name.len, bfn->name.ptr, bfn->name.len,
name, name_len) == 0) name, name_len) == 0)
{ {
free (bfn->name.ptr);
free (bfn); free (bfn);
if (prev == NULL) bfn_list = next; if (prev == NULL) bfn_list = next;
@ -983,12 +994,88 @@ STDMETHODIMP CAwk::DeleteFunction (BSTR name, VARIANT_BOOL* ret)
STDMETHODIMP CAwk::SetWord (BSTR ow, BSTR nw, VARIANT_BOOL* ret) STDMETHODIMP CAwk::SetWord (BSTR ow, BSTR nw, VARIANT_BOOL* ret)
{ {
word_t* word;
size_t ow_len = SysStringLen(ow); size_t ow_len = SysStringLen(ow);
size_t nw_len = SysStringLen(nw); size_t nw_len = SysStringLen(nw);
// TODO: for (word = word_list; word != NULL; word = word->next)
*ret = (ase_awk_setword (handle, ow, ow_len, nw, nw_len) == -1)? {
VARIANT_FALSE: VARIANT_TRUE; if (ase_strxncmp (
word->ow.ptr, word->ow.len,
ow, ow_len) == 0)
{
errnum = ASE_AWK_EEXIST;
errlin = 0;
_sntprintf (
errmsg, ASE_COUNTOF(errmsg),
_T("'%.*s' added already"),
word->ow.len, word->ow.ptr);
*ret = VARIANT_FALSE;
return S_OK;
}
}
word = (word_t*)malloc (sizeof(word_t)+(ow_len+nw_len)*sizeof(TCHAR));
if (word == NULL)
{
errnum = ASE_AWK_ENOMEM;
errlin = 0;
ase_strxcpy (
errmsg, ASE_COUNTOF(errmsg),
ase_awk_geterrstr(NULL, errnum));
*ret = VARIANT_FALSE;
return S_OK;
}
word->ow.len = ow_len;
word->ow.ptr = (TCHAR*)(word+1);
word->nw.len = nw_len;
word->nw.ptr = word->ow.ptr + word->ow.len;
memcpy (word->ow.ptr, ow, sizeof(TCHAR)*word->ow.len);
memcpy (word->nw.ptr, nw, sizeof(TCHAR)*word->nw.len);
word->next = word_list;
word_list = word;
*ret = VARIANT_TRUE;
return S_OK;
}
STDMETHODIMP CAwk::UnsetWord (BSTR ow, VARIANT_BOOL* ret)
{
size_t ow_len = SysStringLen(ow);
word_t* word, * next, * prev = NULL;
for (word = word_list; word != NULL; word = next)
{
next = word->next;
if (ase_strxncmp (
word->ow.ptr, word->ow.len,
ow, ow_len) == 0)
{
free (word);
if (prev == NULL) word_list = next;
else prev->next = next;
*ret = VARIANT_TRUE;
return S_OK;
}
prev = word;
}
errnum = ASE_AWK_ENOENT;
errlin = 0;
ase_strxcpy (
errmsg, ASE_COUNTOF(errmsg),
ase_awk_geterrstr(NULL, errnum));
*ret = VARIANT_FALSE;
return S_OK; return S_OK;
} }

21
ase/com/Awk.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: Awk.h,v 1.4 2007/06/27 15:27:21 bacon Exp $ * $Id: Awk.h,v 1.5 2007/06/29 11:24:27 bacon Exp $
* *
* {License} * {License}
*/ */
@ -76,6 +76,23 @@ public:
struct bfn_t* next; struct bfn_t* next;
} * bfn_list; } * bfn_list;
struct word_t
{
struct
{
TCHAR* ptr;
size_t len;
} ow;
struct
{
TCHAR* ptr;
size_t len;
} nw;
struct word_t* next;
} * word_list;
BSTR entry_point; BSTR entry_point;
VARIANT_BOOL debug; VARIANT_BOOL debug;
VARIANT_BOOL use_longlong; VARIANT_BOOL use_longlong;
@ -156,6 +173,8 @@ public:
STDMETHOD(get_ErrorLine)(/*[out, retval]*/ int *pVal); STDMETHOD(get_ErrorLine)(/*[out, retval]*/ int *pVal);
STDMETHOD(get_ErrorCode)(/*[out, retval]*/ int *pVal); STDMETHOD(get_ErrorCode)(/*[out, retval]*/ int *pVal);
HRESULT __stdcall UnsetWord (
/*[in]*/ BSTR ow, /*[out, retval]*/ VARIANT_BOOL* ret);
HRESULT __stdcall SetWord ( HRESULT __stdcall SetWord (
/*[in]*/ BSTR ow, /*[in]*/ BSTR nw, /*[out, retval]*/ VARIANT_BOOL* ret); /*[in]*/ BSTR ow, /*[in]*/ BSTR nw, /*[out, retval]*/ VARIANT_BOOL* ret);

103
ase/com/asecom.idl
View File

@ -1,5 +1,5 @@
/* /*
* $Id: asecom.idl,v 1.4 2007/06/27 15:27:21 bacon Exp $ * $Id: asecom.idl,v 1.5 2007/06/29 11:24:27 bacon Exp $
*/ */
import "oaidl.idl"; import "oaidl.idl";
@ -30,128 +30,131 @@ interface IAwk : IDispatch
[id(5), helpstring("method SetWord")] [id(5), helpstring("method SetWord")]
HRESULT SetWord([in] BSTR ow, [in] BSTR nw, [out,retval] VARIANT_BOOL* ret); HRESULT SetWord([in] BSTR ow, [in] BSTR nw, [out,retval] VARIANT_BOOL* ret);
[propget, id(6), helpstring("property ErrorCode")] [id(6), helpstring("method UnsetWord")]
HRESULT UnsetWord([in] BSTR ow, [out,retval] VARIANT_BOOL* ret);
[propget, id(7), helpstring("property ErrorCode")]
HRESULT ErrorCode([out,retval] int *pVal); HRESULT ErrorCode([out,retval] int *pVal);
[propget, id(7), helpstring("property ErrorLine")] [propget, id(8), helpstring("property ErrorLine")]
HRESULT ErrorLine([out,retval] int *pVal); HRESULT ErrorLine([out,retval] int *pVal);
[propget, id(8), helpstring("property ErrorMessage")] [propget, id(9), helpstring("property ErrorMessage")]
HRESULT ErrorMessage([out,retval] BSTR *pVal); HRESULT ErrorMessage([out,retval] BSTR *pVal);
[propget, id(9), helpstring("property ImplicitVariable")] [propget, id(10), helpstring("property ImplicitVariable")]
HRESULT ImplicitVariable([out,retval] VARIANT_BOOL *pVal); HRESULT ImplicitVariable([out,retval] VARIANT_BOOL *pVal);
[propput, id(9), helpstring("property ImplicitVariable")] [propput, id(10), helpstring("property ImplicitVariable")]
HRESULT ImplicitVariable([in] VARIANT_BOOL newVal); HRESULT ImplicitVariable([in] VARIANT_BOOL newVal);
[propget, id(10), helpstring("property ExplicitVariable")] [propget, id(11), helpstring("property ExplicitVariable")]
HRESULT ExplicitVariable([out,retval] VARIANT_BOOL *pVal); HRESULT ExplicitVariable([out,retval] VARIANT_BOOL *pVal);
[propput, id(10), helpstring("property ExplicitVariable")] [propput, id(11), helpstring("property ExplicitVariable")]
HRESULT ExplicitVariable([in] VARIANT_BOOL newVal); HRESULT ExplicitVariable([in] VARIANT_BOOL newVal);
[propget, id(11), helpstring("property UniqueFunction")] [propget, id(12), helpstring("property UniqueFunction")]
HRESULT UniqueFunction([out,retval] VARIANT_BOOL *pVal); HRESULT UniqueFunction([out,retval] VARIANT_BOOL *pVal);
[propput, id(11), helpstring("property UniqueFunction")] [propput, id(12), helpstring("property UniqueFunction")]
HRESULT UniqueFunction([in] VARIANT_BOOL newVal); HRESULT UniqueFunction([in] VARIANT_BOOL newVal);
[propget, id(12), helpstring("property VariableShading")] [propget, id(13), helpstring("property VariableShading")]
HRESULT VariableShading([out,retval] VARIANT_BOOL *pVal); HRESULT VariableShading([out,retval] VARIANT_BOOL *pVal);
[propput, id(12), helpstring("property VariableShading")] [propput, id(13), helpstring("property VariableShading")]
HRESULT VariableShading([in] VARIANT_BOOL newVal); HRESULT VariableShading([in] VARIANT_BOOL newVal);
[propget, id(13), helpstring("property ShiftOperators")] [propget, id(14), helpstring("property ShiftOperators")]
HRESULT ShiftOperators([out,retval] VARIANT_BOOL *pVal); HRESULT ShiftOperators([out,retval] VARIANT_BOOL *pVal);
[propput, id(13), helpstring("property ShiftOperators")] [propput, id(14), helpstring("property ShiftOperators")]
HRESULT ShiftOperators([in] VARIANT_BOOL newVal); HRESULT ShiftOperators([in] VARIANT_BOOL newVal);
[propget, id(14), helpstring("property IdivOperator")] [propget, id(15), helpstring("property IdivOperator")]
HRESULT IdivOperator([out,retval] VARIANT_BOOL *pVal); HRESULT IdivOperator([out,retval] VARIANT_BOOL *pVal);
[propput, id(14), helpstring("property IdivOperator")] [propput, id(15), helpstring("property IdivOperator")]
HRESULT IdivOperator([in] VARIANT_BOOL newVal); HRESULT IdivOperator([in] VARIANT_BOOL newVal);
[propget, id(15), helpstring("property ConcatString")] [propget, id(16), helpstring("property ConcatString")]
HRESULT ConcatString([out,retval] VARIANT_BOOL *pVal); HRESULT ConcatString([out,retval] VARIANT_BOOL *pVal);
[propput, id(15), helpstring("property ConcatString")] [propput, id(16), helpstring("property ConcatString")]
HRESULT ConcatString([in] VARIANT_BOOL newVal); HRESULT ConcatString([in] VARIANT_BOOL newVal);
[propget, id(16), helpstring("property SupportExtio")] [propget, id(17), helpstring("property SupportExtio")]
HRESULT SupportExtio([out,retval] VARIANT_BOOL *pVal); HRESULT SupportExtio([out,retval] VARIANT_BOOL *pVal);
[propput, id(16), helpstring("property SupportExtio")] [propput, id(17), helpstring("property SupportExtio")]
HRESULT SupportExtio([in] VARIANT_BOOL newVal); HRESULT SupportExtio([in] VARIANT_BOOL newVal);
[propget, id(17), helpstring("property SupportBlockless")] [propget, id(18), helpstring("property SupportBlockless")]
HRESULT SupportBlockless([out,retval] VARIANT_BOOL *pVal); HRESULT SupportBlockless([out,retval] VARIANT_BOOL *pVal);
[propput, id(17), helpstring("property SupportBlockless")] [propput, id(18), helpstring("property SupportBlockless")]
HRESULT SupportBlockless([in] VARIANT_BOOL newVal); HRESULT SupportBlockless([in] VARIANT_BOOL newVal);
[propget, id(18), helpstring("property StringBaseOne")] [propget, id(19), helpstring("property StringBaseOne")]
HRESULT StringBaseOne([out,retval] VARIANT_BOOL *pVal); HRESULT StringBaseOne([out,retval] VARIANT_BOOL *pVal);
[propput, id(18), helpstring("property StringBaseOne")] [propput, id(19), helpstring("property StringBaseOne")]
HRESULT StringBaseOne([in] VARIANT_BOOL newVal); HRESULT StringBaseOne([in] VARIANT_BOOL newVal);
[propget, id(19), helpstring("property StripSpaces")] [propget, id(20), helpstring("property StripSpaces")]
HRESULT StripSpaces([out,retval] VARIANT_BOOL *pVal); HRESULT StripSpaces([out,retval] VARIANT_BOOL *pVal);
[propput, id(19), helpstring("property StripSpaces")] [propput, id(20), helpstring("property StripSpaces")]
HRESULT StripSpaces([in] VARIANT_BOOL newVal); HRESULT StripSpaces([in] VARIANT_BOOL newVal);
[propget, id(20), helpstring("property Nextofile")] [propget, id(21), helpstring("property Nextofile")]
HRESULT Nextofile([out,retval] VARIANT_BOOL *pVal); HRESULT Nextofile([out,retval] VARIANT_BOOL *pVal);
[propput, id(20), helpstring("property Nextofile")] [propput, id(21), helpstring("property Nextofile")]
HRESULT Nextofile([in] VARIANT_BOOL newVal); HRESULT Nextofile([in] VARIANT_BOOL newVal);
[propget, id(21), helpstring("property UseCrlf")] [propget, id(22), helpstring("property UseCrlf")]
HRESULT UseCrlf([out,retval] VARIANT_BOOL *pVal); HRESULT UseCrlf([out,retval] VARIANT_BOOL *pVal);
[propput, id(21), helpstring("property UseCrlf")] [propput, id(22), helpstring("property UseCrlf")]
HRESULT UseCrlf([in] VARIANT_BOOL newVal); HRESULT UseCrlf([in] VARIANT_BOOL newVal);
[propget, id(22), helpstring("property ArgumentsToEntryPoint")] [propget, id(23), helpstring("property ArgumentsToEntryPoint")]
HRESULT ArgumentsToEntryPoint([out,retval] VARIANT_BOOL *pVal); HRESULT ArgumentsToEntryPoint([out,retval] VARIANT_BOOL *pVal);
[propput, id(22), helpstring("property ArgumentsToEntryPoint")] [propput, id(23), helpstring("property ArgumentsToEntryPoint")]
HRESULT ArgumentsToEntryPoint([in] VARIANT_BOOL newVal); HRESULT ArgumentsToEntryPoint([in] VARIANT_BOOL newVal);
[propget, id(23), helpstring("property MaxDepthForBlockParse")] [propget, id(24), helpstring("property MaxDepthForBlockParse")]
HRESULT MaxDepthForBlockParse([out,retval] int *pVal); HRESULT MaxDepthForBlockParse([out,retval] int *pVal);
[propput, id(23), helpstring("property MaxDepthForBlockParse")] [propput, id(24), helpstring("property MaxDepthForBlockParse")]
HRESULT MaxDepthForBlockParse([in] int newVal); HRESULT MaxDepthForBlockParse([in] int newVal);
[propget, id(24), helpstring("property MaxDepthForBlockRun")] [propget, id(25), helpstring("property MaxDepthForBlockRun")]
HRESULT MaxDepthForBlockRun([out,retval] int *pVal); HRESULT MaxDepthForBlockRun([out,retval] int *pVal);
[propput, id(24), helpstring("property MaxDepthForBlockRun")] [propput, id(25), helpstring("property MaxDepthForBlockRun")]
HRESULT MaxDepthForBlockRun([in] int newVal); HRESULT MaxDepthForBlockRun([in] int newVal);
[propget, id(25), helpstring("property MaxDepthForExprParse")] [propget, id(26), helpstring("property MaxDepthForExprParse")]
HRESULT MaxDepthForExprParse([out,retval] int *pVal); HRESULT MaxDepthForExprParse([out,retval] int *pVal);
[propput, id(25), helpstring("property MaxDepthForExprParse")] [propput, id(26), helpstring("property MaxDepthForExprParse")]
HRESULT MaxDepthForExprParse([in] int newVal); HRESULT MaxDepthForExprParse([in] int newVal);
[propget, id(26), helpstring("property MaxDepthForExprRun")] [propget, id(27), helpstring("property MaxDepthForExprRun")]
HRESULT MaxDepthForExprRun([out,retval] int *pVal); HRESULT MaxDepthForExprRun([out,retval] int *pVal);
[propput, id(26), helpstring("property MaxDepthForExprRun")] [propput, id(27), helpstring("property MaxDepthForExprRun")]
HRESULT MaxDepthForExprRun([in] int newVal); HRESULT MaxDepthForExprRun([in] int newVal);
[propget, id(27), helpstring("property MaxDepthForRexBuild")] [propget, id(28), helpstring("property MaxDepthForRexBuild")]
HRESULT MaxDepthForRexBuild([out,retval] int *pVal); HRESULT MaxDepthForRexBuild([out,retval] int *pVal);
[propput, id(27), helpstring("property MaxDepthForRexBuild")] [propput, id(28), helpstring("property MaxDepthForRexBuild")]
HRESULT MaxDepthForRexBuild([in] int newVal); HRESULT MaxDepthForRexBuild([in] int newVal);
[propget, id(28), helpstring("property MaxDepthForRexMatch")] [propget, id(29), helpstring("property MaxDepthForRexMatch")]
HRESULT MaxDepthForRexMatch([out,retval] int *pVal); HRESULT MaxDepthForRexMatch([out,retval] int *pVal);
[propput, id(28), helpstring("property MaxDepthForRexMatch")] [propput, id(29), helpstring("property MaxDepthForRexMatch")]
HRESULT MaxDepthForRexMatch([in] int newVal); HRESULT MaxDepthForRexMatch([in] int newVal);
[propget, id(29), helpstring("property EntryPoint")] [propget, id(30), helpstring("property EntryPoint")]
HRESULT EntryPoint([out,retval] BSTR *pVal); HRESULT EntryPoint([out,retval] BSTR *pVal);
[propput, id(29), helpstring("property EntryPoint")] [propput, id(30), helpstring("property EntryPoint")]
HRESULT EntryPoint([in] BSTR newVal); HRESULT EntryPoint([in] BSTR newVal);
[propget, id(30), helpstring("property Debug")] [propget, id(31), helpstring("property Debug")]
HRESULT Debug([out,retval] VARIANT_BOOL *pVal); HRESULT Debug([out,retval] VARIANT_BOOL *pVal);
[propput, id(30), helpstring("property Debug")] [propput, id(31), helpstring("property Debug")]
HRESULT Debug([in] VARIANT_BOOL newVal); HRESULT Debug([in] VARIANT_BOOL newVal);
[propget, id(31), helpstring("property UseLongLong")] [propget, id(32), helpstring("property UseLongLong")]
HRESULT UseLongLong([out,retval] VARIANT_BOOL *pVal); HRESULT UseLongLong([out,retval] VARIANT_BOOL *pVal);
[propput, id(31), helpstring("property UseLongLong")] [propput, id(32), helpstring("property UseLongLong")]
HRESULT UseLongLong([in] VARIANT_BOOL newVal); HRESULT UseLongLong([in] VARIANT_BOOL newVal);
}; };

5
ase/test/com/AwkForm.frm
View File

@ -224,6 +224,11 @@ Private Sub btnExecute_Click()
Set Awk = New ASECOM.Awk Set Awk = New ASECOM.Awk
'Awk.SetWord "BEGIN", "xxx"
'Awk.SetWord "END", "yyy"
'Awk.SetWord "length", "len"
'Awk.UnsetWord "END"
Awk.ExplicitVariable = True Awk.ExplicitVariable = True
Awk.ImplicitVariable = True Awk.ImplicitVariable = True
Awk.UseCrlf = True Awk.UseCrlf = True

4
ase/test/com/asetestcom.vbp
View File

@ -1,6 +1,6 @@
Type=Exe Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
Reference=*\G{F9C69806-16A1-4162-998A-876B33C470BF}#1.0#0#..\..\Debug\lib\asecom.dll#ASE 1.0 Type Library Reference=*\G{F9C69806-16A1-4162-998A-876B33C470BF}#1.0#0#..\..\release\lib\asecom.dll#ASE 1.0 Type Library
Form=AwkForm.frm Form=AwkForm.frm
Class=AwkExtioConsole; AwkExtioConsole.cls Class=AwkExtioConsole; AwkExtioConsole.cls
IconForm="AwkForm" IconForm="AwkForm"