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

Recovered from cvs revision 2007-10-01 11:45:00

Browse Source
This commit is contained in:
hyung-hwan
2007-10-02 00:22:00 +00:00
parent 5c8dda1041
commit 6bc6f6c9db
11 changed files with 445 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
ase/com/Awk.cpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.cpp,v 1.8 2007/09/23 16:48:55 bacon Exp $
* $Id: Awk.cpp,v 1.9 2007/09/30 15:12:20 bacon Exp $
*
* {License}
*/
@ -1277,14 +1277,14 @@ STDMETHODIMP CAwk::put_StripSpaces(VARIANT_BOOL newVal)
return S_OK;
}
STDMETHODIMP CAwk::get_Nextofile(VARIANT_BOOL *pVal)
STDMETHODIMP CAwk::get_EnableNextofile(VARIANT_BOOL *pVal)
{
if (handle != NULL) option = ase_awk_getoption (handle);
*pVal = (option & ASE_AWK_NEXTOFILE) == 1;
return S_OK;
}
STDMETHODIMP CAwk::put_Nextofile(VARIANT_BOOL newVal)
STDMETHODIMP CAwk::put_EnableNextofile(VARIANT_BOOL newVal)
{
if (newVal) option = option | ASE_AWK_NEXTOFILE;
else option = option & ~ASE_AWK_NEXTOFILE;
@ -1322,6 +1322,36 @@ STDMETHODIMP CAwk::put_ArgumentsToEntryPoint(VARIANT_BOOL newVal)
return S_OK;
}
STDMETHODIMP CAwk::get_EnableReset(VARIANT_BOOL *pVal)
{
if (handle != NULL) option = ase_awk_getoption (handle);
*pVal = (option & ASE_AWK_RESET) == 1;
return S_OK;
}
STDMETHODIMP CAwk::put_EnableReset(VARIANT_BOOL newVal)
{
if (newVal) option = option | ASE_AWK_RESET;
else option = option & ~ASE_AWK_RESET;
if (handle != NULL) ase_awk_setoption (handle, option);
return S_OK;
}
STDMETHODIMP CAwk::get_AllowMapToVar(VARIANT_BOOL *pVal)
{
if (handle != NULL) option = ase_awk_getoption (handle);
*pVal = (option & ASE_AWK_MAPTOVAR) == 1;
return S_OK;
}
STDMETHODIMP CAwk::put_AllowMapToVar(VARIANT_BOOL newVal)
{
if (newVal) option = option | ASE_AWK_MAPTOVAR;
else option = option & ~ASE_AWK_MAPTOVAR;
if (handle != NULL) ase_awk_setoption (handle, option);
return S_OK;
}
STDMETHODIMP CAwk::get_MaxDepthForBlockParse(int *pVal)
{
if (handle != NULL)

10
ase/com/Awk.h
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.h,v 1.7 2007/08/26 14:33:38 bacon Exp $
* $Id: Awk.h,v 1.8 2007/09/30 15:12:20 bacon Exp $
*
* {License}
*/
@ -141,12 +141,16 @@ public:
STDMETHOD(put_MaxDepthForBlockRun)(/*[in]*/ int newVal);
STDMETHOD(get_MaxDepthForBlockParse)(/*[out, retval]*/ int *pVal);
STDMETHOD(put_MaxDepthForBlockParse)(/*[in]*/ int newVal);
STDMETHOD(get_AllowMapToVar)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_AllowMapToVar)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_EnableReset)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_EnableReset)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_ArgumentsToEntryPoint)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_ArgumentsToEntryPoint)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_UseCrlf)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_UseCrlf)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_Nextofile)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_Nextofile)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_EnableNextofile)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_EnableNextofile)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_StripSpaces)(/*[out, retval]*/ VARIANT_BOOL *pVal);
STDMETHOD(put_StripSpaces)(/*[in]*/ VARIANT_BOOL newVal);
STDMETHOD(get_BaseOne)(/*[out, retval]*/ VARIANT_BOOL *pVal);

56
ase/com/asecom.idl
View File

@ -1,5 +1,5 @@
/*
* $Id: asecom.idl,v 1.7 2007/08/26 14:33:38 bacon Exp $
* $Id: asecom.idl,v 1.8 2007/09/30 15:12:20 bacon Exp $
*/
import "oaidl.idl";
@ -100,10 +100,10 @@ interface IAwk : IDispatch
[propput, id(21), helpstring("property StripSpaces")]
HRESULT StripSpaces([in] VARIANT_BOOL newVal);
[propget, id(22), helpstring("property Nextofile")]
HRESULT Nextofile([out,retval] VARIANT_BOOL *pVal);
[propput, id(22), helpstring("property Nextofile")]
HRESULT Nextofile([in] VARIANT_BOOL newVal);
[propget, id(22), helpstring("property EnableNextofile")]
HRESULT EnableNextofile([out,retval] VARIANT_BOOL *pVal);
[propput, id(22), helpstring("property EnableNextofile")]
HRESULT EnableNextofile([in] VARIANT_BOOL newVal);
[propget, id(23), helpstring("property UseCrlf")]
HRESULT UseCrlf([out,retval] VARIANT_BOOL *pVal);
@ -115,49 +115,59 @@ interface IAwk : IDispatch
[propput, id(24), helpstring("property ArgumentsToEntryPoint")]
HRESULT ArgumentsToEntryPoint([in] VARIANT_BOOL newVal);
[propget, id(25), helpstring("property MaxDepthForBlockParse")]
[propget, id(25), helpstring("property EnableReset")]
HRESULT EnableReset([out,retval] VARIANT_BOOL *pVal);
[propput, id(25), helpstring("property EnableReset")]
HRESULT EnableReset([in] VARIANT_BOOL newVal);
[propget, id(26), helpstring("property AllowMapToVar")]
HRESULT AllowMapToVar([out,retval] VARIANT_BOOL *pVal);
[propput, id(26), helpstring("property AllowMapToVar")]
HRESULT AllowMapToVar([in] VARIANT_BOOL newVal);
[propget, id(27), helpstring("property MaxDepthForBlockParse")]
HRESULT MaxDepthForBlockParse([out,retval] int *pVal);
[propput, id(25), helpstring("property MaxDepthForBlockParse")]
[propput, id(27), helpstring("property MaxDepthForBlockParse")]
HRESULT MaxDepthForBlockParse([in] int newVal);
[propget, id(26), helpstring("property MaxDepthForBlockRun")]
[propget, id(28), helpstring("property MaxDepthForBlockRun")]
HRESULT MaxDepthForBlockRun([out,retval] int *pVal);
[propput, id(26), helpstring("property MaxDepthForBlockRun")]
[propput, id(28), helpstring("property MaxDepthForBlockRun")]
HRESULT MaxDepthForBlockRun([in] int newVal);
[propget, id(27), helpstring("property MaxDepthForExprParse")]
[propget, id(29), helpstring("property MaxDepthForExprParse")]
HRESULT MaxDepthForExprParse([out,retval] int *pVal);
[propput, id(27), helpstring("property MaxDepthForExprParse")]
[propput, id(29), helpstring("property MaxDepthForExprParse")]
HRESULT MaxDepthForExprParse([in] int newVal);
[propget, id(28), helpstring("property MaxDepthForExprRun")]
[propget, id(30), helpstring("property MaxDepthForExprRun")]
HRESULT MaxDepthForExprRun([out,retval] int *pVal);
[propput, id(28), helpstring("property MaxDepthForExprRun")]
[propput, id(30), helpstring("property MaxDepthForExprRun")]
HRESULT MaxDepthForExprRun([in] int newVal);
[propget, id(29), helpstring("property MaxDepthForRexBuild")]
[propget, id(31), helpstring("property MaxDepthForRexBuild")]
HRESULT MaxDepthForRexBuild([out,retval] int *pVal);
[propput, id(29), helpstring("property MaxDepthForRexBuild")]
[propput, id(31), helpstring("property MaxDepthForRexBuild")]
HRESULT MaxDepthForRexBuild([in] int newVal);
[propget, id(30), helpstring("property MaxDepthForRexMatch")]
[propget, id(32), helpstring("property MaxDepthForRexMatch")]
HRESULT MaxDepthForRexMatch([out,retval] int *pVal);
[propput, id(30), helpstring("property MaxDepthForRexMatch")]
[propput, id(32), helpstring("property MaxDepthForRexMatch")]
HRESULT MaxDepthForRexMatch([in] int newVal);
[propget, id(31), helpstring("property EntryPoint")]
[propget, id(33), helpstring("property EntryPoint")]
HRESULT EntryPoint([out,retval] BSTR *pVal);
[propput, id(31), helpstring("property EntryPoint")]
[propput, id(33), helpstring("property EntryPoint")]
HRESULT EntryPoint([in] BSTR newVal);
[propget, id(32), helpstring("property Debug")]
[propget, id(34), helpstring("property Debug")]
HRESULT Debug([out,retval] VARIANT_BOOL *pVal);
[propput, id(32), helpstring("property Debug")]
[propput, id(34), helpstring("property Debug")]
HRESULT Debug([in] VARIANT_BOOL newVal);
[propget, id(33), helpstring("property UseLongLong")]
[propget, id(35), helpstring("property UseLongLong")]
HRESULT UseLongLong([out,retval] VARIANT_BOOL *pVal);
[propput, id(33), helpstring("property UseLongLong")]
[propput, id(35), helpstring("property UseLongLong")]
HRESULT UseLongLong([in] VARIANT_BOOL newVal);
};