Recovered from cvs revision 2007-09-04 08:01:00

This commit is contained in:
2007-09-04 17:01:00 +00:00
parent e27d3351da
commit c5a9522b59
18 changed files with 30 additions and 566 deletions

View File

@ -1,5 +1,5 @@
/*
* $Id: mini.c,v 1.3 2007/04/30 08:32:41 bacon Exp $
* $Id: mini.c,v 1.4 2007/09/03 05:20:15 bacon Exp $
*/
#include <ase/awk/awk.h>
@ -387,7 +387,7 @@ int ase_main (int argc, ase_char_t* argv[])
ase_awk_setoption (awk,
ASE_AWK_IMPLICIT | ASE_AWK_EXPLICIT | ASE_AWK_UNIQUEFN |
ASE_AWK_IDIV | ASE_AWK_SHADING | ASE_AWK_SHIFT |
ASE_AWK_EXTIO | ASE_AWK_BLOCKLESS | ASE_AWK_STRBASEONE |
ASE_AWK_EXTIO | ASE_AWK_BLOCKLESS | ASE_AWK_BASEONE |
ASE_AWK_STRIPSPACES | ASE_AWK_NEXTOFILE);
srcios.in = awk_srcio_in;

View File

@ -1,123 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="statusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

View File

@ -1,33 +0,0 @@
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
// General Information about an assembly is controlled through the following
// set of attributes. Change these attribute values to modify the information
// associated with an assembly.
[assembly: AssemblyTitle("asecnt")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("")]
[assembly: AssemblyProduct("asecnt")]
[assembly: AssemblyCopyright("© 2007 Hyung-Hwan Chung, All rights reserved.")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyCulture("")]
// Setting ComVisible to false makes the types in this assembly not visible
// to COM components. If you need to access a type in this assembly from
// COM, set the ComVisible attribute to true on that type.
[assembly: ComVisible(false)]
// The following GUID is for the ID of the typelib if this project is exposed to COM
[assembly: Guid("7cd62543-7cf6-4b69-90b9-be0becdbfa19")]
// Version information for an assembly consists of the following four values:
//
// Major Version
// Minor Version
// Build Number
// Revision
//
[assembly: AssemblyVersion("1.0.0.0")]
[assembly: AssemblyFileVersion("1.0.0.0")]

View File

@ -1,63 +0,0 @@
//------------------------------------------------------------------------------
// <auto-generated>
// This code was generated by a tool.
// Runtime Version:2.0.50727.42
//
// Changes to this file may cause incorrect behavior and will be lost if
// the code is regenerated.
// </auto-generated>
//------------------------------------------------------------------------------
namespace ASETestCNT.Properties {
using System;
/// <summary>
/// A strongly-typed resource class, for looking up localized strings, etc.
/// </summary>
// This class was auto-generated by the StronglyTypedResourceBuilder
// class via a tool like ResGen or Visual Studio.
// To add or remove a member, edit your .ResX file then rerun ResGen
// with the /str option, or rebuild your VS project.
[global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0")]
[global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
[global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
internal class Resources {
private static global::System.Resources.ResourceManager resourceMan;
private static global::System.Globalization.CultureInfo resourceCulture;
[global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")]
internal Resources() {
}
/// <summary>
/// Returns the cached ResourceManager instance used by this class.
/// </summary>
[global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)]
internal static global::System.Resources.ResourceManager ResourceManager {
get {
if (object.ReferenceEquals(resourceMan, null)) {
global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("ASETestCNT.Properties.Resources", typeof(Resources).Assembly);
resourceMan = temp;
}
return resourceMan;
}
}
/// <summary>
/// Overrides the current thread's CurrentUICulture property for all
/// resource lookups using this strongly typed resource class.
/// </summary>
[global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)]
internal static global::System.Globalization.CultureInfo Culture {
get {
return resourceCulture;
}
set {
resourceCulture = value;
}
}
}
}

View File

@ -1,117 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@ -1,26 +0,0 @@
//------------------------------------------------------------------------------
// <auto-generated>
// This code was generated by a tool.
// Runtime Version:2.0.50727.42
//
// Changes to this file may cause incorrect behavior and will be lost if
// the code is regenerated.
// </auto-generated>
//------------------------------------------------------------------------------
namespace ASETestCNT.Properties {
[global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
[global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0")]
internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase {
private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings())));
public static Settings Default {
get {
return defaultInstance;
}
}
}
}

View File

@ -1,7 +0,0 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

View File

@ -1,90 +0,0 @@
<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>ASETestCNT</RootNamespace>
<AssemblyName>asecnt</AssemblyName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>..\..\Debug\bin\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
<AllowUnsafeBlocks>false</AllowUnsafeBlocks>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<Optimize>true</Optimize>
<OutputPath>..\..\Release\bin\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<ItemGroup>
<Reference Include="Interop.ASECOM, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\cnt\obj\Debug\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>
<DesignTime>True</DesignTime>
</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>
<ItemGroup>
<ProjectReference Include="..\..\cnt\asecnt.csproj">
<Project>{7F679165-41FB-4E1E-B3F5-23C5EE94166A}</Project>
<Name>asecnt</Name>
</ProjectReference>
</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>

420
ase/test/com/Awk.cs Normal file
View File

@ -0,0 +1,420 @@
/*
* $Id: Awk.cs,v 1.1 2007/09/03 03:50:39 bacon Exp $
*/
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
using COM = System.Runtime.InteropServices.ComTypes;
namespace ase.com
{
public class Awk : ASECOM.IAwkEvents
{
private ASECOM.Awk awk;
private int cookie = -1;
private COM.IConnectionPoint icp;
private Stream sourceInputStream = null;
private Stream sourceOutputStream = null;
private StreamReader sourceInputReader;
private StreamWriter sourceOutputWriter;
private Stream consoleInputStream = null;
private Stream consoleOutputStream = null;
private StreamReader consoleInputReader;
private StreamWriter consoleOutputWriter;
public delegate object FunctionHandler (object[] args);
private System.Collections.Hashtable funcTable;
char[] consoleInputBuffer = new char[1024];
public Awk()
{
this.funcTable = new System.Collections.Hashtable();
this.awk = new ASECOM.Awk();
this.awk.UseLongLong = true;
//this.awk.UseCrlf = true;
COM.IConnectionPointContainer icpc =
(COM.IConnectionPointContainer)awk;
Guid g = typeof(ASECOM.IAwkEvents).GUID;
try
{
icpc.FindConnectionPoint(ref g, out icp);
icp.Advise(this, out this.cookie);
}
catch (System.Runtime.InteropServices.COMException ex)
{
this.cookie = -1;
//System.Windows.Forms.MessageBox.Show(ex.Message);
}
}
/*~Awk()
{
if (cookie != -1 && icp != null)
{
try
{
icp.Unadvise(cookie);
cookie = -1;
}
catch (System.Runtime.InteropServices.COMException ex)
{
System.Windows.Forms.MessageBox.Show(ex.Message);
}
}
}*/
public int ErrorCode
{
get { return awk.ErrorCode; }
}
public int ErrorLine
{
get { return awk.ErrorLine; }
}
public string ErrorMessage
{
get { return awk.ErrorMessage; }
}
public bool ImplicitVariable
{
get { return awk.ImplicitVariable; }
set { awk.ImplicitVariable = value; }
}
public bool ExplicitVariable
{
get { return awk.ExplicitVariable; }
set { awk.ExplicitVariable = value; }
}
public bool UniqueFunction
{
get { return awk.UniqueFunction; }
set { awk.UniqueFunction = value; }
}
public bool VariableShading
{
get { return awk.VariableShading; }
set { awk.VariableShading = value; }
}
public bool ShiftOperators
{
get { return awk.ShiftOperators; }
set { awk.ShiftOperators = value; }
}
public bool IdivOperator
{
get { return awk.IdivOperator; }
set { awk.IdivOperator = value; }
}
public bool ConcatString
{
get { return awk.ConcatString; }
set { awk.ConcatString = value; }
}
public bool SupportExtio
{
get { return awk.SupportExtio; }
set { awk.SupportExtio = value; }
}
public bool SupportBlockless
{
get { return awk.SupportBlockless; }
set { awk.SupportBlockless = value; }
}
public bool StringBaseOne
{
get { return awk.StringBaseOne; }
set { awk.StringBaseOne = value; }
}
public bool StripSpaces
{
get { return awk.StripSpaces; }
set { awk.StripSpaces = value; }
}
public bool Nextofile
{
get { return awk.Nextofile; }
set { awk.Nextofile = value; }
}
public bool Usecrlf
{
get { return awk.UseCrlf; }
set { awk.UseCrlf = value; }
}
public string EntryPoint
{
get { return awk.EntryPoint; }
set { awk.EntryPoint = value; }
}
public bool ArgumentsToEntryPoint
{
get { return awk.ArgumentsToEntryPoint; }
set { awk.ArgumentsToEntryPoint = value; }
}
public bool Debug
{
get { return awk.Debug; }
set { awk.Debug = value; }
}
/* this property doesn't need to be available to the public
* as it can be always true in .NET environment. However,
* it is kept private here for reference */
private bool UseLongLong
{
get { return awk.UseLongLong; }
set { awk.UseLongLong = value; }
}
public int MaxDepthForBlockParse
{
get { return awk.MaxDepthForBlockParse; }
set { awk.MaxDepthForBlockParse = value; }
}
public int MaxDepthForBlockRun
{
get { return awk.MaxDepthForBlockRun; }
set { awk.MaxDepthForBlockRun = value; }
}
public int MaxDepthForExprParse
{
get { return awk.MaxDepthForExprParse; }
set { awk.MaxDepthForExprParse = value; }
}
public int MaxDepthForExprRun
{
get { return awk.MaxDepthForExprRun; }
set { awk.MaxDepthForExprRun = value; }
}
public int MaxDepthForRexBuild
{
get { return awk.MaxDepthForRexBuild; }
set { awk.MaxDepthForRexBuild = value; }
}
public int MaxDepthForRexMatch
{
get { return awk.MaxDepthForRexMatch; }
set { awk.MaxDepthForRexMatch = value; }
}
public virtual bool AddFunction(string name, int minArgs, int maxArgs, FunctionHandler handler)
{
if (funcTable.ContainsKey(name)) return false;
funcTable.Add(name, handler);
if (!awk.AddFunction(name, minArgs, maxArgs))
{
funcTable.Remove(name);
return false;
}
return true;
}
public virtual bool DeleteFunction(string name)
{
if (!funcTable.ContainsKey(name)) return false;
if (awk.DeleteFunction(name))
{
funcTable.Remove(name);
return true;
}
return false;
}
public virtual bool Parse()
{
return awk.Parse();
}
public virtual bool Run ()
{
return awk.Run(null);
}
public virtual bool Run(string[] args)
{
return awk.Run(args);
}
public Stream SourceInputStream
{
get { return this.sourceInputStream; }
set { this.sourceInputStream = value; }
}
public Stream SourceOutputStream
{
get { return this.sourceOutputStream; }
set { this.sourceOutputStream = value; }
}
public Stream ConsoleInputStream
{
get { return this.consoleInputStream; }
set { this.consoleInputStream = value; }
}
public Stream ConsoleOutputStream
{
get { return this.consoleOutputStream; }
set { this.consoleOutputStream = value; }
}
public virtual int OpenSource(ASECOM.AwkSourceMode mode)
{
if (mode == ASECOM.AwkSourceMode.AWK_SOURCE_READ)
{
if (this.sourceInputStream == null) return 0;
this.sourceInputReader = new StreamReader (this.sourceInputStream);
return 1;
}
else if (mode == ASECOM.AwkSourceMode.AWK_SOURCE_WRITE)
{
if (this.sourceOutputStream == null) return 0;
this.sourceOutputWriter = new StreamWriter (this.sourceOutputStream);
return 1;
}
return -1;
}
public virtual int CloseSource(ASECOM.AwkSourceMode mode)
{
if (mode == ASECOM.AwkSourceMode.AWK_SOURCE_READ)
{
this.sourceInputReader.Close ();
return 0;
}
else if (mode == ASECOM.AwkSourceMode.AWK_SOURCE_WRITE)
{
this.sourceOutputWriter.Close ();
return 0;
}
return -1;
}
public virtual int ReadSource(ASECOM.Buffer buf)
{
buf.Value = this.sourceInputReader.ReadLine();
if (buf.Value == null) return 0;
return buf.Value.Length;
}
public virtual int WriteSource(ASECOM.Buffer buf)
{
this.sourceOutputWriter.Write(buf.Value);
return buf.Value.Length;
}
public virtual int OpenExtio(ASECOM.AwkExtio extio)
{
if (extio.Mode == ASECOM.AwkExtioMode.AWK_EXTIO_CONSOLE_READ)
{
if (this.consoleInputStream == null) return 0;
this.consoleInputReader = new StreamReader(this.consoleInputStream);
return 1;
}
else if (extio.Mode == ASECOM.AwkExtioMode.AWK_EXTIO_CONSOLE_WRITE)
{
if (this.consoleOutputStream == null) return 0;
this.consoleOutputWriter = new StreamWriter(this.consoleOutputStream);
return 1;
}
return -1;
}
public virtual int CloseExtio(ASECOM.AwkExtio extio)
{
if (extio.Mode == ASECOM.AwkExtioMode.AWK_EXTIO_CONSOLE_READ)
{
this.consoleInputReader.Close();
return 0;
}
else if (extio.Mode == ASECOM.AwkExtioMode.AWK_EXTIO_CONSOLE_WRITE)
{
this.consoleOutputWriter.Close();
return 0;
}
return -1;
}
public virtual int ReadExtio(ASECOM.AwkExtio extio, ASECOM.Buffer buf)
{
if (extio.Mode == ASECOM.AwkExtioMode.AWK_EXTIO_CONSOLE_READ)
{
int n = this.consoleInputReader.Read(consoleInputBuffer, 0, consoleInputBuffer.Length);
if (n == 0) return 0;
buf.Value = new string(consoleInputBuffer, 0, n);
return buf.Value.Length;
}
return -1;
}
public virtual int WriteExtio(ASECOM.AwkExtio extio, ASECOM.Buffer buf)
{
if (extio.Mode == ASECOM.AwkExtioMode.AWK_EXTIO_CONSOLE_WRITE)
{
this.consoleOutputWriter.Write(buf.Value);
return buf.Value.Length;
}
return -1;
}
public virtual int FlushExtio(ASECOM.AwkExtio extio)
{
return -1;
}
public virtual int NextExtio(ASECOM.AwkExtio extio)
{
return 1;
}
public virtual object HandleFunction(string name, object argarray)
{
FunctionHandler handler = (FunctionHandler)funcTable[name];
return handler((object[])argarray);
}
}
}

View File

@ -1,4 +1,4 @@
namespace ASETestCNT
namespace ase.com
{
partial class AwkForm
{
@ -331,7 +331,7 @@ namespace ASETestCNT
this.Controls.Add(this.panel2);
this.Controls.Add(this.statusStrip1);
this.Name = "AwkForm";
this.Text = "ASE.CNT.AWK";
this.Text = "ASE.COM.AWK";
this.tableLayoutPanel1.ResumeLayout(false);
this.panel1.ResumeLayout(false);
this.panel1.PerformLayout();

View File

@ -7,7 +7,7 @@ using System.Text;
using System.Windows.Forms;
using System.IO;
namespace ASETestCNT
namespace ase.com
{
public partial class AwkForm : Form
{
@ -18,7 +18,7 @@ namespace ASETestCNT
private void btnRun_Click(object sender, EventArgs e)
{
ASECNT.Awk awk = new ASECNT.StdAwk ();
Awk awk = new StdAwk ();
//System.Text.Encoding.Default
awk.SourceInputStream = new MemoryStream (UnicodeEncoding.UTF8.GetBytes(tbxSourceInput.Text));

View File

@ -2,7 +2,7 @@ using System;
using System.Collections.Generic;
using System.Windows.Forms;
namespace ASETestCNT
namespace ase.com
{
static class Program
{

60
ase/test/com/StdAwk.cs Normal file
View File

@ -0,0 +1,60 @@
/*
* $Id: StdAwk.cs,v 1.1 2007/09/03 03:50:39 bacon Exp $
*/
using System;
using System.Collections.Generic;
using System.Text;
namespace ase.com
{
public class StdAwk: Awk
{
public StdAwk(): base ()
{
AddFunction("sin", 1, 1, new FunctionHandler(handleSin));
AddFunction("cos", 1, 1, new FunctionHandler(handleCos));
AddFunction("tan", 1, 1, new FunctionHandler(handleTan));
}
protected virtual object handleSin(object[] args)
{
if (args[0] is System.Double)
{
return System.Math.Sin((double)args[0]);
}
else if (args[0] is System.Int32)
{
return System.Math.Sin((double)(int)args[0]);
}
else if (args[0] is System.Int64)
{
return System.Math.Sin((double)(long)args[0]);
}
else if (args[0] is string)
{
double t;
/* TODO: atoi */
try { t = System.Double.Parse((string)args[0]); }
catch (System.Exception e) { t = 0; }
return System.Math.Sin(t);
}
else
{
return System.Math.Sin(0.0);
}
}
protected virtual object handleCos(object[] args)
{
return 0;
}
protected virtual object handleTan(object[] args)
{
return 0;
}
}
}

View File

@ -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 1.0 Type Library
Reference=*\G{F9C69806-16A1-4162-998A-876B33C470BF}#1.0#0#..\..\debug\lib\asecom.dll#ASE 1.0 Type Library
Form=AwkForm.frm
Class=AwkExtioConsole; AwkExtioConsole.cls
IconForm="AwkForm"