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
2006-12-11 14:58:25 +00:00
parent 80626d9d9a
commit d46e714d24
10 changed files with 293 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -93,57 +93,57 @@ Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public WithEvents abc As ASELib.Awk
Attribute abc.VB_VarHelpID = -1
Public WithEvents Awk As ASELib.Awk
Attribute Awk.VB_VarHelpID = -1
Private first As Boolean
Private extio_first As Boolean
Private Sub Execute_Click()
Dim a As Long
Dim x As Object
first = True
ConsoleOut.Text = ""
SourceOut.Text = ""
Set abc = New ASELib.Awk
If abc.Parse() = -1 Then
Set Awk = New ASELib.Awk
Awk.Option = Awk.Option Or ASELib.AWK_SHADING Or ASELib.AWK_IDIV
If Awk.Parse() = -1 Then
MsgBox "PARSE ERROR OCCURRED!!!"
End If
If abc.Run() = -1 Then
If Awk.Run() = -1 Then
MsgBox "RUN ERROR OCCURRED!!!"
End If
Set abc = Nothing
Set Awk = Nothing
End Sub
Function abc_OpenSource(ByVal mode As Long) As Long
abc_OpenSource = 1
Function Awk_OpenSource(ByVal mode As Long) As Long
Awk_OpenSource = 1
End Function
Function abc_CloseSource(ByVal mode As Long) As Long
abc_CloseSource = 0
Function Awk_CloseSource(ByVal mode As Long) As Long
Awk_CloseSource = 0
End Function
Function abc_ReadSource(ByVal buf As ASELib.Buffer) As Long
Function Awk_ReadSource(ByVal buf As ASELib.Buffer) As Long
If first Then
buf.value = SourceIn.Text
abc_ReadSource = Len(buf.value)
Awk_ReadSource = Len(buf.value)
first = False
Else
abc_ReadSource = 0
Awk_ReadSource = 0
End If
End Function
Function abc_WriteSource(ByVal buf As ASELib.Buffer) As Long
Function Awk_WriteSource(ByVal buf As ASELib.Buffer) As Long
Dim value As String, value2 As String, c As String
Dim i As Integer, l As Integer
value = buf.value
If value = vbLf Then
SourceOut.Text = SourceOut.Text + vbCrLf
abc_WriteSource = 1
Awk_WriteSource = 1
Else
l = Len(value)
For i = 1 To l
@ -156,40 +156,67 @@ Function abc_WriteSource(ByVal buf As ASELib.Buffer) As Long
Next i
SourceOut.Text = SourceOut.Text + value2
abc_WriteSource = l
Awk_WriteSource = l
End If
End Function
Function abc_OpenExtio(ByVal extio As ASELib.AwkExtio) As Long
MsgBox "abc_OpenExtio"
If extio.mode = 0 Then
extio_first = True
abc_OpenExtio = 1
Exit Function
ElseIf extio.mode = 1 Then
abc_OpenExtio = 1
Exit Function
End If
Function Awk_OpenExtio(ByVal extio As ASELib.AwkExtio) As Long
Dim console As AwkExtioConsole
Awk_OpenExtio = -1
Select Case extio.Type
Case ASELib.AWK_EXTIO_CONSOLE
If extio.mode = ASELib.AWK_EXTIO_CONSOLE_READ Then
extio_first = True
extio.Handle = 1234
Awk_OpenExtio = 1
ElseIf extio.mode = ASELib.AWK_EXTIO_CONSOLE_WRITE Then
extio_first = True
Set console = New AwkExtioConsole
console.Active = True
console.Count = 0
extio.Handle = console
Awk_OpenExtio = 1
End If
Case ASELib.AWK_EXTIO_FILE
Case ASELib.AWK_EXTIO_PIPE
Case ASELib.AWK_EXTIO_COPROC
End Select
abc_OpenExtio = -1
End Function
Function abc_CloseExtio(ByVal extio As ASELib.AwkExtio) As Long
MsgBox "abc_CloseExtio"
abc_CloseExtio = 0
Function Awk_CloseExtio(ByVal extio As ASELib.AwkExtio) As Long
Awk_CloseExtio = -1
Select Case extio.Type
Case ASELib.AWK_EXTIO_CONSOLE
If extio.mode = ASELib.AWK_EXTIO_CONSOLE_READ Then
Awk_CloseExtio = 0
ElseIf extio.mode = ASELib.AWK_EXTIO_CONSOLE_WRITE Then
Awk_CloseExtio = 0
End If
Case ASELib.AWK_EXTIO_FILE
Case ASELib.AWK_EXTIO_PIPE
Case ASELib.AWK_EXTIO_COPROC
End Select
End Function
Function abc_ReadExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
Function Awk_ReadExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
Dim console As AwkExtioConsole
Dim value As String, value2 As String
Dim l As Integer, i As Integer
If extio.mode <> 0 Then
abc_ReadExtio = -1
Awk_ReadExtio = -1
Exit Function
End If
If extio_first Then
Let console = extio.Handle
If console.Count = 0 Then
value = ConsoleIn.Text
l = Len(value)
@ -205,19 +232,19 @@ Function abc_ReadExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffe
value2 = value2 + Mid(value, i, 1)
End If
extio_first = False
console.Count = console.Count + 1
buf.value = value2
abc_ReadExtio = Len(value2)
Awk_ReadExtio = Len(value2)
Else
abc_ReadExtio = 0
Awk_ReadExtio = 0
End If
End Function
Function abc_WriteExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
Function Awk_WriteExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
Dim value As String, i As Long, value2 As String
If extio.mode <> 1 Then
abc_WriteExtio = -1
Awk_WriteExtio = -1
Exit Function
End If
@ -230,10 +257,10 @@ Function abc_WriteExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buff
If value = vbLf Then
ConsoleOut.Text = ConsoleOut.Text + vbCrLf
abc_WriteExtio = 1
Awk_WriteExtio = 1
Else
ConsoleOut.Text = ConsoleOut.Text + value
abc_WriteExtio = Len(value)
Awk_WriteExtio = Len(value)
End If
End Function

5
ase/test/com/ase.vbp
View File

@ -1,10 +1,11 @@
Type=Exe
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\win32\vs60\ase.dll#ASE Awk 1.0 Type Library
Reference=*\G{F9C69806-16A1-4162-998A-876B33C470BF}#1.0#0#..\..\release\win32\vs60\ase.dll#ASE Awk 1.0 Type Library
Form=AwkForm.frm
Class=AwkExtioConsole; AwkExtioConsole.cls
Startup="AwkForm"
Command32=""
Name="ASE COM"
Name="ASECOM"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1

3
ase/test/com/ase.vbw
View File

@ -1 +1,2 @@
AwkForm = 44, 44, 591, 504, , 22, 22, 738, 641, C
AwkForm = 44, 44, 644, 582, , 22, 22, 738, 641, C
AwkExtioConsole = 0, 0, 547, 460, C