OpenTK binding changes:

Made the GL program handle public accessable via a property.
Exposed a method to retrieve the compiled GL source.

IIS.SLSharp.Bindings.OpenTK/Program.cs

@@ -2,41 +2,42 @@
 using System.Collections.Generic;
 using IIS.SLSharp.Descriptions;
 using OpenTK.Graphics.OpenGL;
+using System.Linq;
 
 namespace IIS.SLSharp.Bindings.OpenTK
 {
     sealed class Program: IProgram
     {
-        private int _name;
+        public int Name { get; private set; }
 
         public List<VariableDescription> VertexIns { get; private set; }
 
         public Program(IEnumerable<Tuple<int, SourceDescription>> units)
         {
-            _name = GL.CreateProgram();
+            Name = GL.CreateProgram();
 
             var merged = SourceDescription.Empty;
             foreach (var unit in units)
             {
-                GL.AttachShader(_name, unit.Item1);
+                GL.AttachShader(Name, unit.Item1);
                 merged = merged.Merge(unit.Item2);
             }
             VertexIns = merged.VertexIns;
 
-            GL.LinkProgram(_name);
+            GL.LinkProgram(Name);
             Utilities.CheckGL();
         }
 
         public void Dispose()
         {
-            if (_name != 0)
-                GL.DeleteProgram(_name);
-            _name = 0;
+            if (Name != 0)
+                GL.DeleteProgram(Name);
+            Name = 0;
         }
 
         public void Activate()
         {
-            GL.UseProgram(_name);
+            GL.UseProgram(Name);
             Utilities.CheckGL();
         }
 
@@ -47,16 +48,31 @@ public void Finish()
 
         public int GetUniformIndex(string name)
         {
-            var result = GL.GetUniformLocation(_name, name);
+            var result = GL.GetUniformLocation(Name, name);
             Utilities.CheckGL();
             return result;
         }
 
         public int GetAttributeIndex(string name)
         {
-            var result = GL.GetAttribLocation(_name, name);
+            var result = GL.GetAttribLocation(Name, name);
             Utilities.CheckGL();
             return result;
         }
+
+        public Tuple<byte[], BinaryFormat> GetBinary()
+        {
+            int length;
+            GL.GetProgram(Name, ProgramParameter.ProgramBinaryLength, out length);
+
+            var bin = new byte[length];
+            BinaryFormat format;
+            int numRead;
+            GL.GetProgramBinary(Name, length, out numRead, out format, bin);
+            if (numRead < length)
+                bin = bin.Take(length).ToArray();
+
+            return new Tuple<byte[], BinaryFormat>(bin, format);
+        }
     }
 }