*** empty log message ***
This commit is contained in:
@ -197,7 +197,7 @@ Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Option Base 0
|
||||
Dim source_first As Boolean
|
||||
Public WithEvents Awk As ASELib.Awk
|
||||
Public WithEvents Awk As ASECOM.Awk
|
||||
Attribute Awk.VB_VarHelpID = -1
|
||||
|
||||
Private Sub btnAddArgument_Click()
|
||||
@ -222,7 +222,7 @@ Private Sub btnExecute_Click()
|
||||
ConsoleOut.Text = ""
|
||||
SourceOut.Text = ""
|
||||
|
||||
Set Awk = New ASELib.Awk
|
||||
Set Awk = New ASECOM.Awk
|
||||
|
||||
Awk.ExplicitVariable = True
|
||||
Awk.ImplicitVariable = True
|
||||
@ -284,15 +284,15 @@ Private Sub btnExecute_Click()
|
||||
|
||||
End Sub
|
||||
|
||||
Function Awk_OpenSource(ByVal mode As ASELib.AwkSourceMode) As Long
|
||||
Function Awk_OpenSource(ByVal mode As ASECOM.AwkSourceMode) As Long
|
||||
Awk_OpenSource = 1
|
||||
End Function
|
||||
|
||||
Function Awk_CloseSource(ByVal mode As ASELib.AwkSourceMode) As Long
|
||||
Function Awk_CloseSource(ByVal mode As ASECOM.AwkSourceMode) As Long
|
||||
Awk_CloseSource = 0
|
||||
End Function
|
||||
|
||||
Function Awk_ReadSource(ByVal buf As ASELib.Buffer) As Long
|
||||
Function Awk_ReadSource(ByVal buf As ASECOM.Buffer) As Long
|
||||
If source_first Then
|
||||
buf.value = SourceIn.Text
|
||||
Awk_ReadSource = Len(buf.value)
|
||||
@ -302,7 +302,7 @@ Function Awk_ReadSource(ByVal buf As ASELib.Buffer) As Long
|
||||
End If
|
||||
End Function
|
||||
|
||||
Function Awk_WriteSource(ByVal buf As ASELib.Buffer) As Long
|
||||
Function Awk_WriteSource(ByVal buf As ASECOM.Buffer) As Long
|
||||
Dim value As String
|
||||
Dim l As Integer
|
||||
|
||||
@ -312,18 +312,18 @@ Function Awk_WriteSource(ByVal buf As ASELib.Buffer) As Long
|
||||
Awk_WriteSource = Len(value)
|
||||
End Function
|
||||
|
||||
Function Awk_OpenExtio(ByVal extio As ASELib.AwkExtio) As Long
|
||||
Function Awk_OpenExtio(ByVal extio As ASECOM.AwkExtio) As Long
|
||||
Awk_OpenExtio = -1
|
||||
|
||||
Select Case extio.Type
|
||||
Case ASELib.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASELib.AWK_EXTIO_CONSOLE_READ Then
|
||||
Case ASECOM.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_CONSOLE_READ Then
|
||||
extio.Handle = New AwkExtioConsole
|
||||
With extio.Handle
|
||||
.EOF = False
|
||||
End With
|
||||
Awk_OpenExtio = 1
|
||||
ElseIf extio.mode = ASELib.AWK_EXTIO_CONSOLE_WRITE Then
|
||||
ElseIf extio.mode = ASECOM.AWK_EXTIO_CONSOLE_WRITE Then
|
||||
extio.Handle = New AwkExtioConsole
|
||||
With extio.Handle
|
||||
.EOF = False
|
||||
@ -331,20 +331,20 @@ Function Awk_OpenExtio(ByVal extio As ASELib.AwkExtio) As Long
|
||||
Awk_OpenExtio = 1
|
||||
End If
|
||||
|
||||
Case ASELib.AWK_EXTIO_FILE
|
||||
If extio.mode = ASELib.AWK_EXTIO_FILE_READ Then
|
||||
Case ASECOM.AWK_EXTIO_FILE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_FILE_READ Then
|
||||
extio.Handle = FreeFile
|
||||
On Error GoTo ErrorTrap
|
||||
Open extio.name For Input As #extio.Handle
|
||||
On Error GoTo 0
|
||||
Awk_OpenExtio = 1
|
||||
ElseIf extio.mode = ASELib.AWK_EXTIO_FILE_WRITE Then
|
||||
ElseIf extio.mode = ASECOM.AWK_EXTIO_FILE_WRITE Then
|
||||
extio.Handle = FreeFile
|
||||
On Error GoTo ErrorTrap
|
||||
Open extio.name For Output As #extio.Handle
|
||||
On Error GoTo 0
|
||||
Awk_OpenExtio = 1
|
||||
ElseIf extio.mode = ASELib.AWK_EXTIO_FILE_APPEND Then
|
||||
ElseIf extio.mode = ASECOM.AWK_EXTIO_FILE_APPEND Then
|
||||
extio.Handle = FreeFile
|
||||
On Error GoTo ErrorTrap
|
||||
Open extio.name For Append As #extio.Handle
|
||||
@ -352,9 +352,9 @@ Function Awk_OpenExtio(ByVal extio As ASELib.AwkExtio) As Long
|
||||
Awk_OpenExtio = 1
|
||||
End If
|
||||
|
||||
Case ASELib.AWK_EXTIO_PIPE
|
||||
Case ASECOM.AWK_EXTIO_PIPE
|
||||
Awk_OpenExtio = -1
|
||||
Case ASELib.AWK_EXTIO_COPROC
|
||||
Case ASECOM.AWK_EXTIO_COPROC
|
||||
Awk_OpenExtio = -1
|
||||
End Select
|
||||
|
||||
@ -364,74 +364,74 @@ ErrorTrap:
|
||||
Exit Function
|
||||
End Function
|
||||
|
||||
Function Awk_CloseExtio(ByVal extio As ASELib.AwkExtio) As Long
|
||||
Function Awk_CloseExtio(ByVal extio As ASECOM.AwkExtio) As Long
|
||||
Awk_CloseExtio = -1
|
||||
|
||||
Select Case extio.Type
|
||||
Case ASELib.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASELib.AWK_EXTIO_CONSOLE_READ Or _
|
||||
extio.mode = ASELib.AWK_EXTIO_CONSOLE_WRITE Then
|
||||
Case ASECOM.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_CONSOLE_READ Or _
|
||||
extio.mode = ASECOM.AWK_EXTIO_CONSOLE_WRITE Then
|
||||
extio.Handle = Nothing
|
||||
Awk_CloseExtio = 0
|
||||
End If
|
||||
Case ASELib.AWK_EXTIO_FILE
|
||||
If extio.mode = ASELib.AWK_EXTIO_FILE_READ Or _
|
||||
extio.mode = ASELib.AWK_EXTIO_FILE_WRITE Or _
|
||||
extio.mode = ASELib.AWK_EXTIO_FILE_APPEND Then
|
||||
Case ASECOM.AWK_EXTIO_FILE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_FILE_READ Or _
|
||||
extio.mode = ASECOM.AWK_EXTIO_FILE_WRITE Or _
|
||||
extio.mode = ASECOM.AWK_EXTIO_FILE_APPEND Then
|
||||
Close #extio.Handle
|
||||
Awk_CloseExtio = 0
|
||||
End If
|
||||
Case ASELib.AWK_EXTIO_PIPE
|
||||
Case ASECOM.AWK_EXTIO_PIPE
|
||||
Awk_CloseExtio = -1
|
||||
Case ASELib.AWK_EXTIO_COPROC
|
||||
Case ASECOM.AWK_EXTIO_COPROC
|
||||
Awk_CloseExtio = -1
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Function Awk_ReadExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
|
||||
Function Awk_ReadExtio(ByVal extio As ASECOM.AwkExtio, ByVal buf As ASECOM.Buffer) As Long
|
||||
Awk_ReadExtio = -1
|
||||
|
||||
Select Case extio.Type
|
||||
Case ASELib.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASELib.AWK_EXTIO_CONSOLE_READ Then
|
||||
Case ASECOM.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_CONSOLE_READ Then
|
||||
Awk_ReadExtio = ReadExtioConsole(extio, buf)
|
||||
End If
|
||||
|
||||
Case ASELib.AWK_EXTIO_FILE
|
||||
If extio.mode = ASELib.AWK_EXTIO_FILE_READ Then
|
||||
Case ASECOM.AWK_EXTIO_FILE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_FILE_READ Then
|
||||
Awk_ReadExtio = ReadExtioFile(extio, buf)
|
||||
End If
|
||||
|
||||
Case ASELib.AWK_EXTIO_PIPE
|
||||
Case ASECOM.AWK_EXTIO_PIPE
|
||||
Awk_ReadExtio = -1
|
||||
Case ASELib.AWK_EXTIO_COPROC
|
||||
Case ASECOM.AWK_EXTIO_COPROC
|
||||
Awk_ReadExtio = -1
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Function Awk_WriteExtio(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
|
||||
Function Awk_WriteExtio(ByVal extio As ASECOM.AwkExtio, ByVal buf As ASECOM.Buffer) As Long
|
||||
Awk_WriteExtio = -1
|
||||
|
||||
Select Case extio.Type
|
||||
Case ASELib.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASELib.AWK_EXTIO_CONSOLE_WRITE Then
|
||||
Case ASECOM.AWK_EXTIO_CONSOLE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_CONSOLE_WRITE Then
|
||||
Awk_WriteExtio = WriteExtioConsole(extio, buf)
|
||||
End If
|
||||
Case ASELib.AWK_EXTIO_FILE
|
||||
If extio.mode = ASELib.AWK_EXTIO_FILE_WRITE Or _
|
||||
extio.mode = ASELib.AWK_EXTIO_FILE_APPEND Then
|
||||
Case ASECOM.AWK_EXTIO_FILE
|
||||
If extio.mode = ASECOM.AWK_EXTIO_FILE_WRITE Or _
|
||||
extio.mode = ASECOM.AWK_EXTIO_FILE_APPEND Then
|
||||
Awk_WriteExtio = WriteExtioFile(extio, buf)
|
||||
End If
|
||||
Case ASELib.AWK_EXTIO_PIPE
|
||||
Case ASECOM.AWK_EXTIO_PIPE
|
||||
Awk_WriteExtio = -1
|
||||
Case ASELib.AWK_EXTIO_COPROC
|
||||
Case ASECOM.AWK_EXTIO_COPROC
|
||||
Awk_WriteExtio = -1
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Function ReadExtioConsole(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
|
||||
Function ReadExtioConsole(ByVal extio As ASECOM.AwkExtio, ByVal buf As ASECOM.Buffer) As Long
|
||||
Dim value As String
|
||||
|
||||
If Not extio.Handle.EOF Then
|
||||
@ -444,7 +444,7 @@ Function ReadExtioConsole(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Bu
|
||||
End If
|
||||
End Function
|
||||
|
||||
Function ReadExtioFile(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
|
||||
Function ReadExtioFile(ByVal extio As ASECOM.AwkExtio, ByVal buf As ASECOM.Buffer) As Long
|
||||
Dim value As String
|
||||
|
||||
If EOF(extio.Handle) Then
|
||||
@ -467,7 +467,7 @@ ErrorTrap:
|
||||
Exit Function
|
||||
End Function
|
||||
|
||||
Function WriteExtioConsole(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
|
||||
Function WriteExtioConsole(ByVal extio As ASECOM.AwkExtio, ByVal buf As ASECOM.Buffer) As Long
|
||||
Dim value As String
|
||||
|
||||
value = buf.value
|
||||
@ -475,7 +475,7 @@ Function WriteExtioConsole(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.B
|
||||
WriteExtioConsole = Len(value)
|
||||
End Function
|
||||
|
||||
Function WriteExtioFile(ByVal extio As ASELib.AwkExtio, ByVal buf As ASELib.Buffer) As Long
|
||||
Function WriteExtioFile(ByVal extio As ASECOM.AwkExtio, ByVal buf As ASECOM.Buffer) As Long
|
||||
Dim value As String
|
||||
|
||||
WriteExtioFile = -1
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
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#..\..\release\lib\asecom.dll#ASE Awk 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
|
||||
Class=AwkExtioConsole; AwkExtioConsole.cls
|
||||
IconForm="AwkForm"
|
||||
@ -9,7 +9,7 @@ HelpFile=""
|
||||
Title="ase"
|
||||
ExeName32="ase.exe"
|
||||
Command32=""
|
||||
Name="ASECOM"
|
||||
Name="ASECOMVB6"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
|
||||
86
ase/test/com/asetestcom_net.csproj
Normal file
86
ase/test/com/asetestcom_net.csproj
Normal file
@ -0,0 +1,86 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{F14B75D8-3ED7-4621-B5B9-E96A80B5D809}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<AppDesignerFolder>Properties</AppDesignerFolder>
|
||||
<RootNamespace>asetestcom_net</RootNamespace>
|
||||
<AssemblyName>asetestcom_net</AssemblyName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<Optimize>false</Optimize>
|
||||
<OutputPath>..\..\Debug\</OutputPath>
|
||||
<DefineConstants>DEBUG;TRACE</DefineConstants>
|
||||
<ErrorReport>prompt</ErrorReport>
|
||||
<WarningLevel>4</WarningLevel>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>..\..\Release\</OutputPath>
|
||||
<DefineConstants>TRACE</DefineConstants>
|
||||
<ErrorReport>prompt</ErrorReport>
|
||||
<WarningLevel>4</WarningLevel>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="asecom_net, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\release\lib\asecom_net.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Interop.ASECOM, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\release\lib\Interop.ASECOM.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AwkForm.cs">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="AwkForm.Designer.cs">
|
||||
<DependentUpon>AwkForm.cs</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Program.cs" />
|
||||
<Compile Include="Properties\AssemblyInfo.cs" />
|
||||
<EmbeddedResource Include="AwkForm.resx">
|
||||
<SubType>Designer</SubType>
|
||||
<DependentUpon>AwkForm.cs</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Properties\Resources.resx">
|
||||
<Generator>ResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.cs</LastGenOutput>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<Compile Include="Properties\Resources.Designer.cs">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<None Include="Properties\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<LastGenOutput>Settings.Designer.cs</LastGenOutput>
|
||||
</None>
|
||||
<Compile Include="Properties\Settings.Designer.cs">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
Reference in New Issue
Block a user