Started a nice, native .net implementation in C#

6 files changed, 149 insertions, 0 deletions

diff --git a/cs-dotnet/default.bld b/cs-dotnet/default.bld
new file mode 100644
index 0000000..4bc324e
--- /dev/null
+++ b/cs-dotnet/default.bld
@@ -0,0 +1,25 @@
+
+target "libgats.dll"
+{
+    input files("src/*.cs");
+
+    profile "build"
+    {
+        execute("mcs -pkg:dotnet -target:library -out:${OUTPUT} ${INPUT}");
+    }
+}
+
+for TEST in files("src/tests/*.cs") do
+{
+    target TEST.replace("src/tests/","").replace(".cs",".exe")
+    {
+        input TEST;
+        requires "libgats.dll";
+
+        profile "build"
+        {
+            execute("mcs -pkg:dotnet -lib:. -r:libgats.dll -out:${OUTPUT} ${INPUT}");
+        }
+    }
+}
+
diff --git a/cs-dotnet/src/gatsexception.cs b/cs-dotnet/src/gatsexception.cs
new file mode 100644
index 0000000..ea665d0
--- /dev/null
+++ b/cs-dotnet/src/gatsexception.cs
@@ -0,0 +1,12 @@
+using System;
+
+namespace Com.Xagasoft.Gats
+{
+    public class GatsException : Exception
+    {
+        public GatsException( String sName ) :
+            base( sName )
+        {
+        }
+    }
+}
diff --git a/cs-dotnet/src/gatsinteger.cs b/cs-dotnet/src/gatsinteger.cs
new file mode 100644
index 0000000..cbb552e
--- /dev/null
+++ b/cs-dotnet/src/gatsinteger.cs
@@ -0,0 +1,86 @@
+using System.IO;
+
+namespace Com.Xagasoft.Gats
+{
+    public class GatsInteger : GatsObject
+    {
+        public long Value { get; set; }
+
+        public GatsInteger( long val=0 )
+        {
+            Value = val;
+        }
+
+        public override string ToString()
+        {
+            return Value.ToString();
+        }
+
+        public override void Read( Stream s, byte cType )
+        {
+            Value = ReadPackedInt( s );
+        }
+
+        public override void Write( Stream s )
+        {
+            s.WriteByte( (int)'i' );
+            WritePackedInt( s, Value );
+        }
+
+        public static long ReadPackedInt( Stream s )
+        {
+            int b;
+            long rOut = 0;
+            bool bNeg;
+
+            b = s.ReadByte();
+            if( b == -1 )
+                throw new GatsException("Premature end of stream encountered.");
+            bNeg = (b&0x40) == 0x40;
+            rOut |= ((long)b)&0x3F;
+            int c = 0;
+            while( (b&0x80) == 0x80 )
+            {
+                b = s.ReadByte();
+                if( b == -1 )
+                    throw new GatsException("Premature end of stream encountered.");
+                rOut |= (long)(b&0x7F) << (6+7*(c++));
+            }
+            if( bNeg )
+                return -rOut;
+            return rOut;
+        }
+
+        public static void WritePackedInt( Stream s, long iIn )
+        {
+            byte b;
+
+            if( iIn < 0 )
+            {
+                iIn = -iIn;
+                b = (byte)(iIn&0x3F);
+                if( iIn > b )
+                    b |= 0x80 | 0x40;
+                else
+                    b |= 0x40;
+            }
+            else
+            {
+                b = (byte)(iIn&0x3F);
+                if( iIn > b )
+                    b |= 0x80;
+            }
+            s.WriteByte( b );
+            iIn = iIn >> 6;
+
+            while( iIn > 0 )
+            {
+                b = (byte)(iIn&0x7F);
+                if( iIn > b )
+                    b |= 0x80;
+                s.WriteByte( b );
+                iIn = iIn >> 7;
+            }
+        }
+    };
+}
diff --git a/cs-dotnet/src/gatsinteger.dll b/cs-dotnet/src/gatsinteger.dll
new file mode 100644
index 0000000..d3c8e79
--- /dev/null
+++ b/cs-dotnet/src/gatsinteger.dll
diff --git a/cs-dotnet/src/gatsobject.cs b/cs-dotnet/src/gatsobject.cs
new file mode 100644
index 0000000..f782f95
--- /dev/null
+++ b/cs-dotnet/src/gatsobject.cs
@@ -0,0 +1,10 @@
+using System.IO;
+
+namespace Com.Xagasoft.Gats
+{
+    public abstract class GatsObject
+    {
+        public abstract void Read( Stream s, byte cType );
+        public abstract void Write( Stream s );
+    }
+}
diff --git a/cs-dotnet/src/tests/ints.cs b/cs-dotnet/src/tests/ints.cs
new file mode 100644
index 0000000..ea97820
--- /dev/null
+++ b/cs-dotnet/src/tests/ints.cs
@@ -0,0 +1,16 @@
+using System;
+using System.IO;
+using Com.Xagasoft.Gats;
+
+class Ints
+{
+    static void Main()
+    {
+        FileStream file = new FileStream("test.gats", FileMode.Open,
+                FileAccess.Write );
+        long iVal = 0xfffffe;
+        GatsInteger i = new GatsInteger( iVal );
+        i.Write( file );
+        Console.WriteLine("Read int: " + i.Value );
+    }
+}