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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2007-01-05 06:29:46 +00:00
parent b8729c918a
commit d26963d3d3
4 changed files with 29 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
ase/com/Awk.cpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.cpp,v 1.10 2007-01-03 09:51:52 bacon Exp $
* $Id: Awk.cpp,v 1.11 2007-01-05 06:29:46 bacon Exp $
*/
#include "stdafx.h"
@ -547,18 +547,6 @@ HRESULT CAwk::Run (int* ret)
return S_OK;
}
STDMETHODIMP CAwk::get_Option (int *pVal)
{
*pVal = option;
return S_OK;
}
STDMETHODIMP CAwk::put_Option (int newVal)
{
newVal = option;
return S_OK;
}
STDMETHODIMP CAwk::get_ErrorCode(int *pVal)
{
*pVal = errnum;
@ -589,7 +577,7 @@ STDMETHODIMP CAwk::get_ImplicitVariable(BOOL *pVal)
STDMETHODIMP CAwk::put_ImplicitVariable(BOOL newVal)
{
if (newVal) option = option | ASE_AWK_IMPLICIT;
else option = option | ~ASE_AWK_IMPLICIT;
else option = option & ~ASE_AWK_IMPLICIT;
if (handle != NULL) ase_awk_setopt (handle, option);
return S_OK;
}
@ -604,7 +592,7 @@ STDMETHODIMP CAwk::get_ExplicitVariable(BOOL *pVal)
STDMETHODIMP CAwk::put_ExplicitVariable(BOOL newVal)
{
if (newVal) option = option | ASE_AWK_EXPLICIT;
else option = option | ~ASE_AWK_EXPLICIT;
else option = option & ~ASE_AWK_EXPLICIT;
if (handle != NULL) ase_awk_setopt (handle, option);
return S_OK;
}
@ -619,7 +607,7 @@ STDMETHODIMP CAwk::get_UniqueFunction(BOOL *pVal)
STDMETHODIMP CAwk::put_UniqueFunction(BOOL newVal)
{
if (newVal) option = option | ASE_AWK_UNIQUEFN;
else option = option | ~ASE_AWK_UNIQUEFN;
else option = option & ~ASE_AWK_UNIQUEFN;
if (handle != NULL) ase_awk_setopt (handle, option);
return S_OK;
}
@ -634,7 +622,7 @@ STDMETHODIMP CAwk::get_VariableShading(BOOL *pVal)
STDMETHODIMP CAwk::put_VariableShading(BOOL newVal)
{
if (newVal) option = option | ASE_AWK_SHADING;
else option = option | ~ASE_AWK_SHADING;
else option = option & ~ASE_AWK_SHADING;
if (handle != NULL) ase_awk_setopt (handle, option);
return S_OK;
}
@ -649,7 +637,7 @@ STDMETHODIMP CAwk::get_ShiftOperators(BOOL *pVal)
STDMETHODIMP CAwk::put_ShiftOperators(BOOL newVal)
{
if (newVal) option = option | ASE_AWK_SHIFT;
else option = option | ~ASE_AWK_SHIFT;
else option = option & ~ASE_AWK_SHIFT;
if (handle != NULL) ase_awk_setopt (handle, option);
return S_OK;
}

4
ase/com/Awk.h
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.h,v 1.5 2007-01-03 09:51:52 bacon Exp $
* $Id: Awk.h,v 1.6 2007-01-05 06:29:46 bacon Exp $
*/
#ifndef _ASE_COM_AWK_H_
@ -81,8 +81,6 @@ public:
STDMETHOD(get_ErrorMessage)(/*[out, retval]*/ BSTR *pVal);
STDMETHOD(get_ErrorLine)(/*[out, retval]*/ int *pVal);
STDMETHOD(get_ErrorCode)(/*[out, retval]*/ int *pVal);
STDMETHOD(get_Option)(/*[out, retval]*/ int *pVal);
STDMETHOD(put_Option)(/*[in]*/ int newVal);
HRESULT __stdcall Parse (int* ret);
HRESULT __stdcall Run (int* ret);
};

37
ase/com/ase.idl
View File

@ -1,5 +1,5 @@
/*
* $Id: ase.idl,v 1.4 2007-01-03 09:51:52 bacon Exp $
* $Id: ase.idl,v 1.5 2007-01-05 06:29:46 bacon Exp $
*/
import "oaidl.idl";
@ -21,24 +21,25 @@ interface IAwk : IDispatch
[id(2), helpstring("method Run")]
HRESULT Run([out, retval] int* ret);
[propget, id(3), helpstring("property Option")]
HRESULT Option([out, retval] int *pVal);
[propget, id(3), helpstring("property ErrorCode")]
HRESULT ErrorCode([out, retval] int *pVal);
[propput, id(3), helpstring("property Option")]
HRESULT Option([in] int newVal);
[propget, id(4), helpstring("property ErrorCode")] HRESULT ErrorCode([out, retval] int *pVal);
[propget, id(5), helpstring("property ErrorLine")] HRESULT ErrorLine([out, retval] int *pVal);
[propget, id(6), helpstring("property ErrorMessage")] HRESULT ErrorMessage([out, retval] BSTR *pVal);
[propget, id(7), helpstring("property ImplicitVariable")] HRESULT ImplicitVariable([out, retval] BOOL *pVal);
[propput, id(7), helpstring("property ImplicitVariable")] HRESULT ImplicitVariable([in] BOOL newVal);
[propget, id(8), helpstring("property ExplicitVariable")] HRESULT ExplicitVariable([out, retval] BOOL *pVal);
[propput, id(8), helpstring("property ExplicitVariable")] HRESULT ExplicitVariable([in] BOOL newVal);
[propget, id(9), helpstring("property UniqueFunction")] HRESULT UniqueFunction([out, retval] BOOL *pVal);
[propput, id(9), helpstring("property UniqueFunction")] HRESULT UniqueFunction([in] BOOL newVal);
[propget, id(10), helpstring("property VariableShading")] HRESULT VariableShading([out, retval] BOOL *pVal);
[propput, id(10), helpstring("property VariableShading")] HRESULT VariableShading([in] BOOL newVal);
[propget, id(11), helpstring("property ShiftOperators")] HRESULT ShiftOperators([out, retval] BOOL *pVal);
[propput, id(11), helpstring("property ShiftOperators")] HRESULT ShiftOperators([in] BOOL newVal);
[propget, id(4), helpstring("property ErrorLine")]
HRESULT ErrorLine([out, retval] int *pVal);
[propget, id(5), helpstring("property ErrorMessage")]
HRESULT ErrorMessage([out, retval] BSTR *pVal);
[propget, id(6), helpstring("property ImplicitVariable")] HRESULT ImplicitVariable([out, retval] BOOL *pVal);
[propput, id(6), helpstring("property ImplicitVariable")] HRESULT ImplicitVariable([in] BOOL newVal);
[propget, id(7), helpstring("property ExplicitVariable")] HRESULT ExplicitVariable([out, retval] BOOL *pVal);
[propput, id(7), helpstring("property ExplicitVariable")] HRESULT ExplicitVariable([in] BOOL newVal);
[propget, id(8), helpstring("property UniqueFunction")] HRESULT UniqueFunction([out, retval] BOOL *pVal);
[propput, id(8), helpstring("property UniqueFunction")] HRESULT UniqueFunction([in] BOOL newVal);
[propget, id(9), helpstring("property VariableShading")] HRESULT VariableShading([out, retval] BOOL *pVal);
[propput, id(9), helpstring("property VariableShading")] HRESULT VariableShading([in] BOOL newVal);
[propget, id(10), helpstring("property ShiftOperators")] HRESULT ShiftOperators([out, retval] BOOL *pVal);
[propput, id(10), helpstring("property ShiftOperators")] HRESULT ShiftOperators([in] BOOL newVal);
};
/* ASELib */

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

@ -105,6 +105,9 @@ Private Sub Execute_Click()
Set Awk = New ASELib.Awk
Awk.ExplicitVariable = True
Awk.ImplicitVariable = False
If Awk.Parse() = -1 Then
MsgBox "ERROR [" + Str(Awk.ErrorLine) + "]" + Awk.ErrorMessage
Else
@ -294,16 +297,8 @@ End Function
Function WriteExtioConsole(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
Dim value As String
'Dim value2 As String
'Dim i As Long
value = buf.value
'For i = 0 To 5000000
' value2 = "abc"
' buf.value = "abdkjsdfsafas"
'Next i
ConsoleOut.Text = ConsoleOut.Text + value
WriteExtioConsole = Len(value)
End Function