use switch for tag string in c#

102 files changed, 1118 insertions, 1565 deletions

diff --git a/ddl/lib/LambdaCube.IR.RT.cs b/ddl/lib/LambdaCube.IR.RT.cs
new file mode 100644
index 0000000..4da3733
--- /dev/null
+++ b/ddl/lib/LambdaCube.IR.RT.cs
@@ -0,0 +1,32 @@
+using System.Collections.Generic;
+
+
+namespace LambdaCube.IR {
+
+  public struct Maybe<T>
+  {
+    public bool valid;
+    public T data;
+  }
+
+  public struct V2<T>
+  {
+    public T x;
+    public T y;
+  }
+
+  public struct V3<T>
+  {
+    public T x;
+    public T y;
+    public T z;
+  }
+
+  public struct V4<T>
+  {
+    public T x;
+    public T y;
+    public T z;
+    public T w;
+  }
+}
\ No newline at end of file
diff --git a/ddl/out/LambdaCube.IR.cpp b/ddl/out/LambdaCube.IR.cpp
index 380dd5d..17c781c 100644
--- a/ddl/out/LambdaCube.IR.cpp
+++ b/ddl/out/LambdaCube.IR.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 #include "LambdaCube.IR.hpp"
 template<> json toJSON<std::shared_ptr<ArrayValue>>(std::shared_ptr<ArrayValue> &v) {
diff --git a/ddl/out/LambdaCube.IR.cs b/ddl/out/LambdaCube.IR.cs
index 90e9a7f..cc9469d 100644
--- a/ddl/out/LambdaCube.IR.cs
+++ b/ddl/out/LambdaCube.IR.cs
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 using System;
 using System.Linq;
@@ -1348,381 +1348,228 @@ namespace LambdaCube.IR {
 
         case Type.ArrayValue: {
           string tag = (string)obj["tag"];
-          ArrayValue.Tag tagType;
-          if (tag == "VBoolArray") {
-            tagType = ArrayValue.Tag.VBoolArray;
-            data.VBoolArray tv = new data.VBoolArray();
-            tv._0 = (List<bool>)fromJSON(Type.Array_Bool,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VIntArray") {
-            tagType = ArrayValue.Tag.VIntArray;
-            data.VIntArray tv = new data.VIntArray();
-            tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VWordArray") {
-            tagType = ArrayValue.Tag.VWordArray;
-            data.VWordArray tv = new data.VWordArray();
-            tv._0 = (List<uint>)fromJSON(Type.Array_Word32,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VFloatArray") {
-            tagType = ArrayValue.Tag.VFloatArray;
-            data.VFloatArray tv = new data.VFloatArray();
-            tv._0 = (List<float>)fromJSON(Type.Array_Float,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          ArrayValue o = new ArrayValue();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "VBoolArray": {
+              data.VBoolArray tv = new data.VBoolArray();
+              tv._0 = (List<bool>)fromJSON(Type.Array_Bool,obj["arg0"]);
+              return tv;
+            }
+            case "VIntArray": {
+              data.VIntArray tv = new data.VIntArray();
+              tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
+              return tv;
+            }
+            case "VWordArray": {
+              data.VWordArray tv = new data.VWordArray();
+              tv._0 = (List<uint>)fromJSON(Type.Array_Word32,obj["arg0"]);
+              return tv;
+            }
+            case "VFloatArray": {
+              data.VFloatArray tv = new data.VFloatArray();
+              tv._0 = (List<float>)fromJSON(Type.Array_Float,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.Value: {
           string tag = (string)obj["tag"];
-          Value.Tag tagType;
-          if (tag == "VBool") {
-            tagType = Value.Tag.VBool;
-            data.VBool tv = new data.VBool();
-            tv._0 = (bool)fromJSON(Type.Bool,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV2B") {
-            tagType = Value.Tag.VV2B;
-            data.VV2B tv = new data.VV2B();
-            tv._0 = (V2<bool>)fromJSON(Type.V2_Bool,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV3B") {
-            tagType = Value.Tag.VV3B;
-            data.VV3B tv = new data.VV3B();
-            tv._0 = (V3<bool>)fromJSON(Type.V3_Bool,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV4B") {
-            tagType = Value.Tag.VV4B;
-            data.VV4B tv = new data.VV4B();
-            tv._0 = (V4<bool>)fromJSON(Type.V4_Bool,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VWord") {
-            tagType = Value.Tag.VWord;
-            data.VWord tv = new data.VWord();
-            tv._0 = (uint)fromJSON(Type.Word32,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV2U") {
-            tagType = Value.Tag.VV2U;
-            data.VV2U tv = new data.VV2U();
-            tv._0 = (V2<uint>)fromJSON(Type.V2_Word,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV3U") {
-            tagType = Value.Tag.VV3U;
-            data.VV3U tv = new data.VV3U();
-            tv._0 = (V3<uint>)fromJSON(Type.V3_Word,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV4U") {
-            tagType = Value.Tag.VV4U;
-            data.VV4U tv = new data.VV4U();
-            tv._0 = (V4<uint>)fromJSON(Type.V4_Word,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VInt") {
-            tagType = Value.Tag.VInt;
-            data.VInt tv = new data.VInt();
-            tv._0 = (int)fromJSON(Type.Int32,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV2I") {
-            tagType = Value.Tag.VV2I;
-            data.VV2I tv = new data.VV2I();
-            tv._0 = (V2<int>)fromJSON(Type.V2_Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV3I") {
-            tagType = Value.Tag.VV3I;
-            data.VV3I tv = new data.VV3I();
-            tv._0 = (V3<int>)fromJSON(Type.V3_Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV4I") {
-            tagType = Value.Tag.VV4I;
-            data.VV4I tv = new data.VV4I();
-            tv._0 = (V4<int>)fromJSON(Type.V4_Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VFloat") {
-            tagType = Value.Tag.VFloat;
-            data.VFloat tv = new data.VFloat();
-            tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV2F") {
-            tagType = Value.Tag.VV2F;
-            data.VV2F tv = new data.VV2F();
-            tv._0 = (V2<float>)fromJSON(Type.V2_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV3F") {
-            tagType = Value.Tag.VV3F;
-            data.VV3F tv = new data.VV3F();
-            tv._0 = (V3<float>)fromJSON(Type.V3_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VV4F") {
-            tagType = Value.Tag.VV4F;
-            data.VV4F tv = new data.VV4F();
-            tv._0 = (V4<float>)fromJSON(Type.V4_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM22F") {
-            tagType = Value.Tag.VM22F;
-            data.VM22F tv = new data.VM22F();
-            tv._0 = (V2<V2<float>>)fromJSON(Type.V2_V2_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM23F") {
-            tagType = Value.Tag.VM23F;
-            data.VM23F tv = new data.VM23F();
-            tv._0 = (V3<V2<float>>)fromJSON(Type.V3_V2_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM24F") {
-            tagType = Value.Tag.VM24F;
-            data.VM24F tv = new data.VM24F();
-            tv._0 = (V4<V2<float>>)fromJSON(Type.V4_V2_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM32F") {
-            tagType = Value.Tag.VM32F;
-            data.VM32F tv = new data.VM32F();
-            tv._0 = (V2<V3<float>>)fromJSON(Type.V2_V3_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM33F") {
-            tagType = Value.Tag.VM33F;
-            data.VM33F tv = new data.VM33F();
-            tv._0 = (V3<V3<float>>)fromJSON(Type.V3_V3_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM34F") {
-            tagType = Value.Tag.VM34F;
-            data.VM34F tv = new data.VM34F();
-            tv._0 = (V4<V3<float>>)fromJSON(Type.V4_V3_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM42F") {
-            tagType = Value.Tag.VM42F;
-            data.VM42F tv = new data.VM42F();
-            tv._0 = (V2<V4<float>>)fromJSON(Type.V2_V4_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM43F") {
-            tagType = Value.Tag.VM43F;
-            data.VM43F tv = new data.VM43F();
-            tv._0 = (V3<V4<float>>)fromJSON(Type.V3_V4_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "VM44F") {
-            tagType = Value.Tag.VM44F;
-            data.VM44F tv = new data.VM44F();
-            tv._0 = (V4<V4<float>>)fromJSON(Type.V4_V4_Float,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          Value o = new Value();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "VBool": {
+              data.VBool tv = new data.VBool();
+              tv._0 = (bool)fromJSON(Type.Bool,obj["arg0"]);
+              return tv;
+            }
+            case "VV2B": {
+              data.VV2B tv = new data.VV2B();
+              tv._0 = (V2<bool>)fromJSON(Type.V2_Bool,obj["arg0"]);
+              return tv;
+            }
+            case "VV3B": {
+              data.VV3B tv = new data.VV3B();
+              tv._0 = (V3<bool>)fromJSON(Type.V3_Bool,obj["arg0"]);
+              return tv;
+            }
+            case "VV4B": {
+              data.VV4B tv = new data.VV4B();
+              tv._0 = (V4<bool>)fromJSON(Type.V4_Bool,obj["arg0"]);
+              return tv;
+            }
+            case "VWord": {
+              data.VWord tv = new data.VWord();
+              tv._0 = (uint)fromJSON(Type.Word32,obj["arg0"]);
+              return tv;
+            }
+            case "VV2U": {
+              data.VV2U tv = new data.VV2U();
+              tv._0 = (V2<uint>)fromJSON(Type.V2_Word,obj["arg0"]);
+              return tv;
+            }
+            case "VV3U": {
+              data.VV3U tv = new data.VV3U();
+              tv._0 = (V3<uint>)fromJSON(Type.V3_Word,obj["arg0"]);
+              return tv;
+            }
+            case "VV4U": {
+              data.VV4U tv = new data.VV4U();
+              tv._0 = (V4<uint>)fromJSON(Type.V4_Word,obj["arg0"]);
+              return tv;
+            }
+            case "VInt": {
+              data.VInt tv = new data.VInt();
+              tv._0 = (int)fromJSON(Type.Int32,obj["arg0"]);
+              return tv;
+            }
+            case "VV2I": {
+              data.VV2I tv = new data.VV2I();
+              tv._0 = (V2<int>)fromJSON(Type.V2_Int,obj["arg0"]);
+              return tv;
+            }
+            case "VV3I": {
+              data.VV3I tv = new data.VV3I();
+              tv._0 = (V3<int>)fromJSON(Type.V3_Int,obj["arg0"]);
+              return tv;
+            }
+            case "VV4I": {
+              data.VV4I tv = new data.VV4I();
+              tv._0 = (V4<int>)fromJSON(Type.V4_Int,obj["arg0"]);
+              return tv;
+            }
+            case "VFloat": {
+              data.VFloat tv = new data.VFloat();
+              tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
+              return tv;
+            }
+            case "VV2F": {
+              data.VV2F tv = new data.VV2F();
+              tv._0 = (V2<float>)fromJSON(Type.V2_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VV3F": {
+              data.VV3F tv = new data.VV3F();
+              tv._0 = (V3<float>)fromJSON(Type.V3_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VV4F": {
+              data.VV4F tv = new data.VV4F();
+              tv._0 = (V4<float>)fromJSON(Type.V4_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM22F": {
+              data.VM22F tv = new data.VM22F();
+              tv._0 = (V2<V2<float>>)fromJSON(Type.V2_V2_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM23F": {
+              data.VM23F tv = new data.VM23F();
+              tv._0 = (V3<V2<float>>)fromJSON(Type.V3_V2_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM24F": {
+              data.VM24F tv = new data.VM24F();
+              tv._0 = (V4<V2<float>>)fromJSON(Type.V4_V2_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM32F": {
+              data.VM32F tv = new data.VM32F();
+              tv._0 = (V2<V3<float>>)fromJSON(Type.V2_V3_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM33F": {
+              data.VM33F tv = new data.VM33F();
+              tv._0 = (V3<V3<float>>)fromJSON(Type.V3_V3_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM34F": {
+              data.VM34F tv = new data.VM34F();
+              tv._0 = (V4<V3<float>>)fromJSON(Type.V4_V3_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM42F": {
+              data.VM42F tv = new data.VM42F();
+              tv._0 = (V2<V4<float>>)fromJSON(Type.V2_V4_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM43F": {
+              data.VM43F tv = new data.VM43F();
+              tv._0 = (V3<V4<float>>)fromJSON(Type.V3_V4_Float,obj["arg0"]);
+              return tv;
+            }
+            case "VM44F": {
+              data.VM44F tv = new data.VM44F();
+              tv._0 = (V4<V4<float>>)fromJSON(Type.V4_V4_Float,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.InputType: {
           string tag = (string)obj["tag"];
           InputType.Tag tagType;
-          if (tag == "Bool") {
-            tagType = InputType.Tag.Bool;
-          }
-          else if (tag == "V2B") {
-            tagType = InputType.Tag.V2B;
-          }
-          else if (tag == "V3B") {
-            tagType = InputType.Tag.V3B;
-          }
-          else if (tag == "V4B") {
-            tagType = InputType.Tag.V4B;
-          }
-          else if (tag == "Word") {
-            tagType = InputType.Tag.Word;
-          }
-          else if (tag == "V2U") {
-            tagType = InputType.Tag.V2U;
-          }
-          else if (tag == "V3U") {
-            tagType = InputType.Tag.V3U;
-          }
-          else if (tag == "V4U") {
-            tagType = InputType.Tag.V4U;
-          }
-          else if (tag == "Int") {
-            tagType = InputType.Tag.Int;
-          }
-          else if (tag == "V2I") {
-            tagType = InputType.Tag.V2I;
-          }
-          else if (tag == "V3I") {
-            tagType = InputType.Tag.V3I;
-          }
-          else if (tag == "V4I") {
-            tagType = InputType.Tag.V4I;
-          }
-          else if (tag == "Float") {
-            tagType = InputType.Tag.Float;
-          }
-          else if (tag == "V2F") {
-            tagType = InputType.Tag.V2F;
-          }
-          else if (tag == "V3F") {
-            tagType = InputType.Tag.V3F;
-          }
-          else if (tag == "V4F") {
-            tagType = InputType.Tag.V4F;
-          }
-          else if (tag == "M22F") {
-            tagType = InputType.Tag.M22F;
-          }
-          else if (tag == "M23F") {
-            tagType = InputType.Tag.M23F;
-          }
-          else if (tag == "M24F") {
-            tagType = InputType.Tag.M24F;
-          }
-          else if (tag == "M32F") {
-            tagType = InputType.Tag.M32F;
-          }
-          else if (tag == "M33F") {
-            tagType = InputType.Tag.M33F;
-          }
-          else if (tag == "M34F") {
-            tagType = InputType.Tag.M34F;
-          }
-          else if (tag == "M42F") {
-            tagType = InputType.Tag.M42F;
-          }
-          else if (tag == "M43F") {
-            tagType = InputType.Tag.M43F;
-          }
-          else if (tag == "M44F") {
-            tagType = InputType.Tag.M44F;
-          }
-          else if (tag == "STexture1D") {
-            tagType = InputType.Tag.STexture1D;
-          }
-          else if (tag == "STexture2D") {
-            tagType = InputType.Tag.STexture2D;
-          }
-          else if (tag == "STextureCube") {
-            tagType = InputType.Tag.STextureCube;
-          }
-          else if (tag == "STexture1DArray") {
-            tagType = InputType.Tag.STexture1DArray;
-          }
-          else if (tag == "STexture2DArray") {
-            tagType = InputType.Tag.STexture2DArray;
-          }
-          else if (tag == "STexture2DRect") {
-            tagType = InputType.Tag.STexture2DRect;
-          }
-          else if (tag == "FTexture1D") {
-            tagType = InputType.Tag.FTexture1D;
-          }
-          else if (tag == "FTexture2D") {
-            tagType = InputType.Tag.FTexture2D;
-          }
-          else if (tag == "FTexture3D") {
-            tagType = InputType.Tag.FTexture3D;
-          }
-          else if (tag == "FTextureCube") {
-            tagType = InputType.Tag.FTextureCube;
-          }
-          else if (tag == "FTexture1DArray") {
-            tagType = InputType.Tag.FTexture1DArray;
-          }
-          else if (tag == "FTexture2DArray") {
-            tagType = InputType.Tag.FTexture2DArray;
-          }
-          else if (tag == "FTexture2DMS") {
-            tagType = InputType.Tag.FTexture2DMS;
-          }
-          else if (tag == "FTexture2DMSArray") {
-            tagType = InputType.Tag.FTexture2DMSArray;
-          }
-          else if (tag == "FTextureBuffer") {
-            tagType = InputType.Tag.FTextureBuffer;
-          }
-          else if (tag == "FTexture2DRect") {
-            tagType = InputType.Tag.FTexture2DRect;
-          }
-          else if (tag == "ITexture1D") {
-            tagType = InputType.Tag.ITexture1D;
-          }
-          else if (tag == "ITexture2D") {
-            tagType = InputType.Tag.ITexture2D;
-          }
-          else if (tag == "ITexture3D") {
-            tagType = InputType.Tag.ITexture3D;
-          }
-          else if (tag == "ITextureCube") {
-            tagType = InputType.Tag.ITextureCube;
+          switch (tag) {
+            case "Bool": tagType = InputType.Tag.Bool; break;
+            case "V2B": tagType = InputType.Tag.V2B; break;
+            case "V3B": tagType = InputType.Tag.V3B; break;
+            case "V4B": tagType = InputType.Tag.V4B; break;
+            case "Word": tagType = InputType.Tag.Word; break;
+            case "V2U": tagType = InputType.Tag.V2U; break;
+            case "V3U": tagType = InputType.Tag.V3U; break;
+            case "V4U": tagType = InputType.Tag.V4U; break;
+            case "Int": tagType = InputType.Tag.Int; break;
+            case "V2I": tagType = InputType.Tag.V2I; break;
+            case "V3I": tagType = InputType.Tag.V3I; break;
+            case "V4I": tagType = InputType.Tag.V4I; break;
+            case "Float": tagType = InputType.Tag.Float; break;
+            case "V2F": tagType = InputType.Tag.V2F; break;
+            case "V3F": tagType = InputType.Tag.V3F; break;
+            case "V4F": tagType = InputType.Tag.V4F; break;
+            case "M22F": tagType = InputType.Tag.M22F; break;
+            case "M23F": tagType = InputType.Tag.M23F; break;
+            case "M24F": tagType = InputType.Tag.M24F; break;
+            case "M32F": tagType = InputType.Tag.M32F; break;
+            case "M33F": tagType = InputType.Tag.M33F; break;
+            case "M34F": tagType = InputType.Tag.M34F; break;
+            case "M42F": tagType = InputType.Tag.M42F; break;
+            case "M43F": tagType = InputType.Tag.M43F; break;
+            case "M44F": tagType = InputType.Tag.M44F; break;
+            case "STexture1D": tagType = InputType.Tag.STexture1D; break;
+            case "STexture2D": tagType = InputType.Tag.STexture2D; break;
+            case "STextureCube": tagType = InputType.Tag.STextureCube; break;
+            case "STexture1DArray": tagType = InputType.Tag.STexture1DArray; break;
+            case "STexture2DArray": tagType = InputType.Tag.STexture2DArray; break;
+            case "STexture2DRect": tagType = InputType.Tag.STexture2DRect; break;
+            case "FTexture1D": tagType = InputType.Tag.FTexture1D; break;
+            case "FTexture2D": tagType = InputType.Tag.FTexture2D; break;
+            case "FTexture3D": tagType = InputType.Tag.FTexture3D; break;
+            case "FTextureCube": tagType = InputType.Tag.FTextureCube; break;
+            case "FTexture1DArray": tagType = InputType.Tag.FTexture1DArray; break;
+            case "FTexture2DArray": tagType = InputType.Tag.FTexture2DArray; break;
+            case "FTexture2DMS": tagType = InputType.Tag.FTexture2DMS; break;
+            case "FTexture2DMSArray": tagType = InputType.Tag.FTexture2DMSArray; break;
+            case "FTextureBuffer": tagType = InputType.Tag.FTextureBuffer; break;
+            case "FTexture2DRect": tagType = InputType.Tag.FTexture2DRect; break;
+            case "ITexture1D": tagType = InputType.Tag.ITexture1D; break;
+            case "ITexture2D": tagType = InputType.Tag.ITexture2D; break;
+            case "ITexture3D": tagType = InputType.Tag.ITexture3D; break;
+            case "ITextureCube": tagType = InputType.Tag.ITextureCube; break;
+            case "ITexture1DArray": tagType = InputType.Tag.ITexture1DArray; break;
+            case "ITexture2DArray": tagType = InputType.Tag.ITexture2DArray; break;
+            case "ITexture2DMS": tagType = InputType.Tag.ITexture2DMS; break;
+            case "ITexture2DMSArray": tagType = InputType.Tag.ITexture2DMSArray; break;
+            case "ITextureBuffer": tagType = InputType.Tag.ITextureBuffer; break;
+            case "ITexture2DRect": tagType = InputType.Tag.ITexture2DRect; break;
+            case "UTexture1D": tagType = InputType.Tag.UTexture1D; break;
+            case "UTexture2D": tagType = InputType.Tag.UTexture2D; break;
+            case "UTexture3D": tagType = InputType.Tag.UTexture3D; break;
+            case "UTextureCube": tagType = InputType.Tag.UTextureCube; break;
+            case "UTexture1DArray": tagType = InputType.Tag.UTexture1DArray; break;
+            case "UTexture2DArray": tagType = InputType.Tag.UTexture2DArray; break;
+            case "UTexture2DMS": tagType = InputType.Tag.UTexture2DMS; break;
+            case "UTexture2DMSArray": tagType = InputType.Tag.UTexture2DMSArray; break;
+            case "UTextureBuffer": tagType = InputType.Tag.UTextureBuffer; break;
+            case "UTexture2DRect": tagType = InputType.Tag.UTexture2DRect; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "ITexture1DArray") {
-            tagType = InputType.Tag.ITexture1DArray;
-          }
-          else if (tag == "ITexture2DArray") {
-            tagType = InputType.Tag.ITexture2DArray;
-          }
-          else if (tag == "ITexture2DMS") {
-            tagType = InputType.Tag.ITexture2DMS;
-          }
-          else if (tag == "ITexture2DMSArray") {
-            tagType = InputType.Tag.ITexture2DMSArray;
-          }
-          else if (tag == "ITextureBuffer") {
-            tagType = InputType.Tag.ITextureBuffer;
-          }
-          else if (tag == "ITexture2DRect") {
-            tagType = InputType.Tag.ITexture2DRect;
-          }
-          else if (tag == "UTexture1D") {
-            tagType = InputType.Tag.UTexture1D;
-          }
-          else if (tag == "UTexture2D") {
-            tagType = InputType.Tag.UTexture2D;
-          }
-          else if (tag == "UTexture3D") {
-            tagType = InputType.Tag.UTexture3D;
-          }
-          else if (tag == "UTextureCube") {
-            tagType = InputType.Tag.UTextureCube;
-          }
-          else if (tag == "UTexture1DArray") {
-            tagType = InputType.Tag.UTexture1DArray;
-          }
-          else if (tag == "UTexture2DArray") {
-            tagType = InputType.Tag.UTexture2DArray;
-          }
-          else if (tag == "UTexture2DMS") {
-            tagType = InputType.Tag.UTexture2DMS;
-          }
-          else if (tag == "UTexture2DMSArray") {
-            tagType = InputType.Tag.UTexture2DMSArray;
-          }
-          else if (tag == "UTextureBuffer") {
-            tagType = InputType.Tag.UTextureBuffer;
-          }
-          else if (tag == "UTexture2DRect") {
-            tagType = InputType.Tag.UTexture2DRect;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           InputType o = new InputType();
           o.tag = tagType;
           return o;
@@ -1730,13 +1577,11 @@ namespace LambdaCube.IR {
         case Type.PointSpriteCoordOrigin: {
           string tag = (string)obj["tag"];
           PointSpriteCoordOrigin.Tag tagType;
-          if (tag == "LowerLeft") {
-            tagType = PointSpriteCoordOrigin.Tag.LowerLeft;
+          switch (tag) {
+            case "LowerLeft": tagType = PointSpriteCoordOrigin.Tag.LowerLeft; break;
+            case "UpperLeft": tagType = PointSpriteCoordOrigin.Tag.UpperLeft; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "UpperLeft") {
-            tagType = PointSpriteCoordOrigin.Tag.UpperLeft;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           PointSpriteCoordOrigin o = new PointSpriteCoordOrigin();
           o.tag = tagType;
           return o;
@@ -1744,16 +1589,15 @@ namespace LambdaCube.IR {
         case Type.PointSize: {
           string tag = (string)obj["tag"];
           PointSize.Tag tagType;
-          if (tag == "PointSize") {
-            tagType = PointSize.Tag.PointSize;
-            data.PointSize tv = new data.PointSize();
-            tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "ProgramPointSize") {
-            tagType = PointSize.Tag.ProgramPointSize;
+          switch (tag) {
+            case "PointSize": {
+              data.PointSize tv = new data.PointSize();
+              tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
+              return tv;
+            }
+            case "ProgramPointSize": tagType = PointSize.Tag.ProgramPointSize; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           PointSize o = new PointSize();
           o.tag = tagType;
           return o;
@@ -1761,17 +1605,16 @@ namespace LambdaCube.IR {
         case Type.PolygonOffset: {
           string tag = (string)obj["tag"];
           PolygonOffset.Tag tagType;
-          if (tag == "NoOffset") {
-            tagType = PolygonOffset.Tag.NoOffset;
-          }
-          else if (tag == "Offset") {
-            tagType = PolygonOffset.Tag.Offset;
-            data.Offset tv = new data.Offset();
-            tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
-            tv._1 = (float)fromJSON(Type.Float,obj["arg1"]);
-            return tv;
+          switch (tag) {
+            case "NoOffset": tagType = PolygonOffset.Tag.NoOffset; break;
+            case "Offset": {
+              data.Offset tv = new data.Offset();
+              tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
+              tv._1 = (float)fromJSON(Type.Float,obj["arg1"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           PolygonOffset o = new PolygonOffset();
           o.tag = tagType;
           return o;
@@ -1779,13 +1622,11 @@ namespace LambdaCube.IR {
         case Type.FrontFace: {
           string tag = (string)obj["tag"];
           FrontFace.Tag tagType;
-          if (tag == "CCW") {
-            tagType = FrontFace.Tag.CCW;
+          switch (tag) {
+            case "CCW": tagType = FrontFace.Tag.CCW; break;
+            case "CW": tagType = FrontFace.Tag.CW; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "CW") {
-            tagType = FrontFace.Tag.CW;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           FrontFace o = new FrontFace();
           o.tag = tagType;
           return o;
@@ -1793,22 +1634,20 @@ namespace LambdaCube.IR {
         case Type.PolygonMode: {
           string tag = (string)obj["tag"];
           PolygonMode.Tag tagType;
-          if (tag == "PolygonPoint") {
-            tagType = PolygonMode.Tag.PolygonPoint;
-            data.PolygonPoint tv = new data.PolygonPoint();
-            tv._0 = (global::LambdaCube.IR.PointSize)fromJSON(Type.PointSize,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "PolygonLine") {
-            tagType = PolygonMode.Tag.PolygonLine;
-            data.PolygonLine tv = new data.PolygonLine();
-            tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "PolygonFill") {
-            tagType = PolygonMode.Tag.PolygonFill;
-          }
-          else throw new Exception("unknown constructor: " + tag);
+          switch (tag) {
+            case "PolygonPoint": {
+              data.PolygonPoint tv = new data.PolygonPoint();
+              tv._0 = (global::LambdaCube.IR.PointSize)fromJSON(Type.PointSize,obj["arg0"]);
+              return tv;
+            }
+            case "PolygonLine": {
+              data.PolygonLine tv = new data.PolygonLine();
+              tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
+              return tv;
+            }
+            case "PolygonFill": tagType = PolygonMode.Tag.PolygonFill; break;
+            default: throw new Exception("unknown constructor: " + tag);
+          }
           PolygonMode o = new PolygonMode();
           o.tag = tagType;
           return o;
@@ -1816,13 +1655,11 @@ namespace LambdaCube.IR {
         case Type.ProvokingVertex: {
           string tag = (string)obj["tag"];
           ProvokingVertex.Tag tagType;
-          if (tag == "FirstVertex") {
-            tagType = ProvokingVertex.Tag.FirstVertex;
-          }
-          else if (tag == "LastVertex") {
-            tagType = ProvokingVertex.Tag.LastVertex;
+          switch (tag) {
+            case "FirstVertex": tagType = ProvokingVertex.Tag.FirstVertex; break;
+            case "LastVertex": tagType = ProvokingVertex.Tag.LastVertex; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           ProvokingVertex o = new ProvokingVertex();
           o.tag = tagType;
           return o;
@@ -1830,22 +1667,20 @@ namespace LambdaCube.IR {
         case Type.CullMode: {
           string tag = (string)obj["tag"];
           CullMode.Tag tagType;
-          if (tag == "CullNone") {
-            tagType = CullMode.Tag.CullNone;
-          }
-          else if (tag == "CullFront") {
-            tagType = CullMode.Tag.CullFront;
-            data.CullFront tv = new data.CullFront();
-            tv._0 = (global::LambdaCube.IR.FrontFace)fromJSON(Type.FrontFace,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "CullBack") {
-            tagType = CullMode.Tag.CullBack;
-            data.CullBack tv = new data.CullBack();
-            tv._0 = (global::LambdaCube.IR.FrontFace)fromJSON(Type.FrontFace,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
+          switch (tag) {
+            case "CullNone": tagType = CullMode.Tag.CullNone; break;
+            case "CullFront": {
+              data.CullFront tv = new data.CullFront();
+              tv._0 = (global::LambdaCube.IR.FrontFace)fromJSON(Type.FrontFace,obj["arg0"]);
+              return tv;
+            }
+            case "CullBack": {
+              data.CullBack tv = new data.CullBack();
+              tv._0 = (global::LambdaCube.IR.FrontFace)fromJSON(Type.FrontFace,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
           CullMode o = new CullMode();
           o.tag = tagType;
           return o;
@@ -1853,31 +1688,17 @@ namespace LambdaCube.IR {
         case Type.ComparisonFunction: {
           string tag = (string)obj["tag"];
           ComparisonFunction.Tag tagType;
-          if (tag == "Never") {
-            tagType = ComparisonFunction.Tag.Never;
-          }
-          else if (tag == "Less") {
-            tagType = ComparisonFunction.Tag.Less;
-          }
-          else if (tag == "Equal") {
-            tagType = ComparisonFunction.Tag.Equal;
+          switch (tag) {
+            case "Never": tagType = ComparisonFunction.Tag.Never; break;
+            case "Less": tagType = ComparisonFunction.Tag.Less; break;
+            case "Equal": tagType = ComparisonFunction.Tag.Equal; break;
+            case "Lequal": tagType = ComparisonFunction.Tag.Lequal; break;
+            case "Greater": tagType = ComparisonFunction.Tag.Greater; break;
+            case "Notequal": tagType = ComparisonFunction.Tag.Notequal; break;
+            case "Gequal": tagType = ComparisonFunction.Tag.Gequal; break;
+            case "Always": tagType = ComparisonFunction.Tag.Always; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "Lequal") {
-            tagType = ComparisonFunction.Tag.Lequal;
-          }
-          else if (tag == "Greater") {
-            tagType = ComparisonFunction.Tag.Greater;
-          }
-          else if (tag == "Notequal") {
-            tagType = ComparisonFunction.Tag.Notequal;
-          }
-          else if (tag == "Gequal") {
-            tagType = ComparisonFunction.Tag.Gequal;
-          }
-          else if (tag == "Always") {
-            tagType = ComparisonFunction.Tag.Always;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           ComparisonFunction o = new ComparisonFunction();
           o.tag = tagType;
           return o;
@@ -1885,31 +1706,17 @@ namespace LambdaCube.IR {
         case Type.StencilOperation: {
           string tag = (string)obj["tag"];
           StencilOperation.Tag tagType;
-          if (tag == "OpZero") {
-            tagType = StencilOperation.Tag.OpZero;
-          }
-          else if (tag == "OpKeep") {
-            tagType = StencilOperation.Tag.OpKeep;
-          }
-          else if (tag == "OpReplace") {
-            tagType = StencilOperation.Tag.OpReplace;
+          switch (tag) {
+            case "OpZero": tagType = StencilOperation.Tag.OpZero; break;
+            case "OpKeep": tagType = StencilOperation.Tag.OpKeep; break;
+            case "OpReplace": tagType = StencilOperation.Tag.OpReplace; break;
+            case "OpIncr": tagType = StencilOperation.Tag.OpIncr; break;
+            case "OpIncrWrap": tagType = StencilOperation.Tag.OpIncrWrap; break;
+            case "OpDecr": tagType = StencilOperation.Tag.OpDecr; break;
+            case "OpDecrWrap": tagType = StencilOperation.Tag.OpDecrWrap; break;
+            case "OpInvert": tagType = StencilOperation.Tag.OpInvert; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "OpIncr") {
-            tagType = StencilOperation.Tag.OpIncr;
-          }
-          else if (tag == "OpIncrWrap") {
-            tagType = StencilOperation.Tag.OpIncrWrap;
-          }
-          else if (tag == "OpDecr") {
-            tagType = StencilOperation.Tag.OpDecr;
-          }
-          else if (tag == "OpDecrWrap") {
-            tagType = StencilOperation.Tag.OpDecrWrap;
-          }
-          else if (tag == "OpInvert") {
-            tagType = StencilOperation.Tag.OpInvert;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           StencilOperation o = new StencilOperation();
           o.tag = tagType;
           return o;
@@ -1917,22 +1724,14 @@ namespace LambdaCube.IR {
         case Type.BlendEquation: {
           string tag = (string)obj["tag"];
           BlendEquation.Tag tagType;
-          if (tag == "FuncAdd") {
-            tagType = BlendEquation.Tag.FuncAdd;
-          }
-          else if (tag == "FuncSubtract") {
-            tagType = BlendEquation.Tag.FuncSubtract;
+          switch (tag) {
+            case "FuncAdd": tagType = BlendEquation.Tag.FuncAdd; break;
+            case "FuncSubtract": tagType = BlendEquation.Tag.FuncSubtract; break;
+            case "FuncReverseSubtract": tagType = BlendEquation.Tag.FuncReverseSubtract; break;
+            case "Min": tagType = BlendEquation.Tag.Min; break;
+            case "Max": tagType = BlendEquation.Tag.Max; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "FuncReverseSubtract") {
-            tagType = BlendEquation.Tag.FuncReverseSubtract;
-          }
-          else if (tag == "Min") {
-            tagType = BlendEquation.Tag.Min;
-          }
-          else if (tag == "Max") {
-            tagType = BlendEquation.Tag.Max;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           BlendEquation o = new BlendEquation();
           o.tag = tagType;
           return o;
@@ -1940,52 +1739,24 @@ namespace LambdaCube.IR {
         case Type.BlendingFactor: {
           string tag = (string)obj["tag"];
           BlendingFactor.Tag tagType;
-          if (tag == "Zero") {
-            tagType = BlendingFactor.Tag.Zero;
-          }
-          else if (tag == "One") {
-            tagType = BlendingFactor.Tag.One;
-          }
-          else if (tag == "SrcColor") {
-            tagType = BlendingFactor.Tag.SrcColor;
-          }
-          else if (tag == "OneMinusSrcColor") {
-            tagType = BlendingFactor.Tag.OneMinusSrcColor;
-          }
-          else if (tag == "DstColor") {
-            tagType = BlendingFactor.Tag.DstColor;
-          }
-          else if (tag == "OneMinusDstColor") {
-            tagType = BlendingFactor.Tag.OneMinusDstColor;
-          }
-          else if (tag == "SrcAlpha") {
-            tagType = BlendingFactor.Tag.SrcAlpha;
-          }
-          else if (tag == "OneMinusSrcAlpha") {
-            tagType = BlendingFactor.Tag.OneMinusSrcAlpha;
-          }
-          else if (tag == "DstAlpha") {
-            tagType = BlendingFactor.Tag.DstAlpha;
-          }
-          else if (tag == "OneMinusDstAlpha") {
-            tagType = BlendingFactor.Tag.OneMinusDstAlpha;
+          switch (tag) {
+            case "Zero": tagType = BlendingFactor.Tag.Zero; break;
+            case "One": tagType = BlendingFactor.Tag.One; break;
+            case "SrcColor": tagType = BlendingFactor.Tag.SrcColor; break;
+            case "OneMinusSrcColor": tagType = BlendingFactor.Tag.OneMinusSrcColor; break;
+            case "DstColor": tagType = BlendingFactor.Tag.DstColor; break;
+            case "OneMinusDstColor": tagType = BlendingFactor.Tag.OneMinusDstColor; break;
+            case "SrcAlpha": tagType = BlendingFactor.Tag.SrcAlpha; break;
+            case "OneMinusSrcAlpha": tagType = BlendingFactor.Tag.OneMinusSrcAlpha; break;
+            case "DstAlpha": tagType = BlendingFactor.Tag.DstAlpha; break;
+            case "OneMinusDstAlpha": tagType = BlendingFactor.Tag.OneMinusDstAlpha; break;
+            case "ConstantColor": tagType = BlendingFactor.Tag.ConstantColor; break;
+            case "OneMinusConstantColor": tagType = BlendingFactor.Tag.OneMinusConstantColor; break;
+            case "ConstantAlpha": tagType = BlendingFactor.Tag.ConstantAlpha; break;
+            case "OneMinusConstantAlpha": tagType = BlendingFactor.Tag.OneMinusConstantAlpha; break;
+            case "SrcAlphaSaturate": tagType = BlendingFactor.Tag.SrcAlphaSaturate; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "ConstantColor") {
-            tagType = BlendingFactor.Tag.ConstantColor;
-          }
-          else if (tag == "OneMinusConstantColor") {
-            tagType = BlendingFactor.Tag.OneMinusConstantColor;
-          }
-          else if (tag == "ConstantAlpha") {
-            tagType = BlendingFactor.Tag.ConstantAlpha;
-          }
-          else if (tag == "OneMinusConstantAlpha") {
-            tagType = BlendingFactor.Tag.OneMinusConstantAlpha;
-          }
-          else if (tag == "SrcAlphaSaturate") {
-            tagType = BlendingFactor.Tag.SrcAlphaSaturate;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           BlendingFactor o = new BlendingFactor();
           o.tag = tagType;
           return o;
@@ -1993,124 +1764,77 @@ namespace LambdaCube.IR {
         case Type.LogicOperation: {
           string tag = (string)obj["tag"];
           LogicOperation.Tag tagType;
-          if (tag == "Clear") {
-            tagType = LogicOperation.Tag.Clear;
-          }
-          else if (tag == "And") {
-            tagType = LogicOperation.Tag.And;
-          }
-          else if (tag == "AndReverse") {
-            tagType = LogicOperation.Tag.AndReverse;
-          }
-          else if (tag == "Copy") {
-            tagType = LogicOperation.Tag.Copy;
-          }
-          else if (tag == "AndInverted") {
-            tagType = LogicOperation.Tag.AndInverted;
-          }
-          else if (tag == "Noop") {
-            tagType = LogicOperation.Tag.Noop;
-          }
-          else if (tag == "Xor") {
-            tagType = LogicOperation.Tag.Xor;
-          }
-          else if (tag == "Or") {
-            tagType = LogicOperation.Tag.Or;
-          }
-          else if (tag == "Nor") {
-            tagType = LogicOperation.Tag.Nor;
+          switch (tag) {
+            case "Clear": tagType = LogicOperation.Tag.Clear; break;
+            case "And": tagType = LogicOperation.Tag.And; break;
+            case "AndReverse": tagType = LogicOperation.Tag.AndReverse; break;
+            case "Copy": tagType = LogicOperation.Tag.Copy; break;
+            case "AndInverted": tagType = LogicOperation.Tag.AndInverted; break;
+            case "Noop": tagType = LogicOperation.Tag.Noop; break;
+            case "Xor": tagType = LogicOperation.Tag.Xor; break;
+            case "Or": tagType = LogicOperation.Tag.Or; break;
+            case "Nor": tagType = LogicOperation.Tag.Nor; break;
+            case "Equiv": tagType = LogicOperation.Tag.Equiv; break;
+            case "Invert": tagType = LogicOperation.Tag.Invert; break;
+            case "OrReverse": tagType = LogicOperation.Tag.OrReverse; break;
+            case "CopyInverted": tagType = LogicOperation.Tag.CopyInverted; break;
+            case "OrInverted": tagType = LogicOperation.Tag.OrInverted; break;
+            case "Nand": tagType = LogicOperation.Tag.Nand; break;
+            case "Set": tagType = LogicOperation.Tag.Set; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "Equiv") {
-            tagType = LogicOperation.Tag.Equiv;
-          }
-          else if (tag == "Invert") {
-            tagType = LogicOperation.Tag.Invert;
-          }
-          else if (tag == "OrReverse") {
-            tagType = LogicOperation.Tag.OrReverse;
-          }
-          else if (tag == "CopyInverted") {
-            tagType = LogicOperation.Tag.CopyInverted;
-          }
-          else if (tag == "OrInverted") {
-            tagType = LogicOperation.Tag.OrInverted;
-          }
-          else if (tag == "Nand") {
-            tagType = LogicOperation.Tag.Nand;
-          }
-          else if (tag == "Set") {
-            tagType = LogicOperation.Tag.Set;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           LogicOperation o = new LogicOperation();
           o.tag = tagType;
           return o;
         }
         case Type.StencilOps: {
           string tag = (string)obj["tag"];
-          StencilOps.Tag tagType;
-          if (tag == "StencilOps") {
-            tagType = StencilOps.Tag.StencilOps;
-            data.StencilOps tv = new data.StencilOps();
-            tv.frontStencilOp = (global::LambdaCube.IR.StencilOperation)fromJSON(Type.StencilOperation,obj["frontStencilOp"]);
-            tv.backStencilOp = (global::LambdaCube.IR.StencilOperation)fromJSON(Type.StencilOperation,obj["backStencilOp"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          StencilOps o = new StencilOps();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "StencilOps": {
+              data.StencilOps tv = new data.StencilOps();
+              tv.frontStencilOp = (global::LambdaCube.IR.StencilOperation)fromJSON(Type.StencilOperation,obj["frontStencilOp"]);
+              tv.backStencilOp = (global::LambdaCube.IR.StencilOperation)fromJSON(Type.StencilOperation,obj["backStencilOp"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.StencilTest: {
           string tag = (string)obj["tag"];
-          StencilTest.Tag tagType;
-          if (tag == "StencilTest") {
-            tagType = StencilTest.Tag.StencilTest;
-            data.StencilTest tv = new data.StencilTest();
-            tv.stencilComparision = (global::LambdaCube.IR.ComparisonFunction)fromJSON(Type.ComparisonFunction,obj["stencilComparision"]);
-            tv.stencilReference = (int)fromJSON(Type.Int32,obj["stencilReference"]);
-            tv.stencilMask = (uint)fromJSON(Type.Word32,obj["stencilMask"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          StencilTest o = new StencilTest();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "StencilTest": {
+              data.StencilTest tv = new data.StencilTest();
+              tv.stencilComparision = (global::LambdaCube.IR.ComparisonFunction)fromJSON(Type.ComparisonFunction,obj["stencilComparision"]);
+              tv.stencilReference = (int)fromJSON(Type.Int32,obj["stencilReference"]);
+              tv.stencilMask = (uint)fromJSON(Type.Word32,obj["stencilMask"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.StencilTests: {
           string tag = (string)obj["tag"];
-          StencilTests.Tag tagType;
-          if (tag == "StencilTests") {
-            tagType = StencilTests.Tag.StencilTests;
-            data.StencilTests tv = new data.StencilTests();
-            tv._0 = (global::LambdaCube.IR.StencilTest)fromJSON(Type.StencilTest,obj["arg0"]);
-            tv._1 = (global::LambdaCube.IR.StencilTest)fromJSON(Type.StencilTest,obj["arg1"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          StencilTests o = new StencilTests();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "StencilTests": {
+              data.StencilTests tv = new data.StencilTests();
+              tv._0 = (global::LambdaCube.IR.StencilTest)fromJSON(Type.StencilTest,obj["arg0"]);
+              tv._1 = (global::LambdaCube.IR.StencilTest)fromJSON(Type.StencilTest,obj["arg1"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.FetchPrimitive: {
           string tag = (string)obj["tag"];
           FetchPrimitive.Tag tagType;
-          if (tag == "Points") {
-            tagType = FetchPrimitive.Tag.Points;
-          }
-          else if (tag == "Lines") {
-            tagType = FetchPrimitive.Tag.Lines;
-          }
-          else if (tag == "Triangles") {
-            tagType = FetchPrimitive.Tag.Triangles;
-          }
-          else if (tag == "LinesAdjacency") {
-            tagType = FetchPrimitive.Tag.LinesAdjacency;
+          switch (tag) {
+            case "Points": tagType = FetchPrimitive.Tag.Points; break;
+            case "Lines": tagType = FetchPrimitive.Tag.Lines; break;
+            case "Triangles": tagType = FetchPrimitive.Tag.Triangles; break;
+            case "LinesAdjacency": tagType = FetchPrimitive.Tag.LinesAdjacency; break;
+            case "TrianglesAdjacency": tagType = FetchPrimitive.Tag.TrianglesAdjacency; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "TrianglesAdjacency") {
-            tagType = FetchPrimitive.Tag.TrianglesAdjacency;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           FetchPrimitive o = new FetchPrimitive();
           o.tag = tagType;
           return o;
@@ -2118,16 +1842,12 @@ namespace LambdaCube.IR {
         case Type.OutputPrimitive: {
           string tag = (string)obj["tag"];
           OutputPrimitive.Tag tagType;
-          if (tag == "TrianglesOutput") {
-            tagType = OutputPrimitive.Tag.TrianglesOutput;
-          }
-          else if (tag == "LinesOutput") {
-            tagType = OutputPrimitive.Tag.LinesOutput;
-          }
-          else if (tag == "PointsOutput") {
-            tagType = OutputPrimitive.Tag.PointsOutput;
+          switch (tag) {
+            case "TrianglesOutput": tagType = OutputPrimitive.Tag.TrianglesOutput; break;
+            case "LinesOutput": tagType = OutputPrimitive.Tag.LinesOutput; break;
+            case "PointsOutput": tagType = OutputPrimitive.Tag.PointsOutput; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           OutputPrimitive o = new OutputPrimitive();
           o.tag = tagType;
           return o;
@@ -2135,19 +1855,13 @@ namespace LambdaCube.IR {
         case Type.ColorArity: {
           string tag = (string)obj["tag"];
           ColorArity.Tag tagType;
-          if (tag == "Red") {
-            tagType = ColorArity.Tag.Red;
-          }
-          else if (tag == "RG") {
-            tagType = ColorArity.Tag.RG;
-          }
-          else if (tag == "RGB") {
-            tagType = ColorArity.Tag.RGB;
-          }
-          else if (tag == "RGBA") {
-            tagType = ColorArity.Tag.RGBA;
+          switch (tag) {
+            case "Red": tagType = ColorArity.Tag.Red; break;
+            case "RG": tagType = ColorArity.Tag.RG; break;
+            case "RGB": tagType = ColorArity.Tag.RGB; break;
+            case "RGBA": tagType = ColorArity.Tag.RGBA; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           ColorArity o = new ColorArity();
           o.tag = tagType;
           return o;
@@ -2155,214 +1869,185 @@ namespace LambdaCube.IR {
         case Type.Blending: {
           string tag = (string)obj["tag"];
           Blending.Tag tagType;
-          if (tag == "NoBlending") {
-            tagType = Blending.Tag.NoBlending;
-          }
-          else if (tag == "BlendLogicOp") {
-            tagType = Blending.Tag.BlendLogicOp;
-            data.BlendLogicOp tv = new data.BlendLogicOp();
-            tv._0 = (global::LambdaCube.IR.LogicOperation)fromJSON(Type.LogicOperation,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "Blend") {
-            tagType = Blending.Tag.Blend;
-            data.Blend tv = new data.Blend();
-            tv.colorEqSrc = (global::LambdaCube.IR.BlendEquation)fromJSON(Type.BlendEquation,obj["colorEqSrc"]);
-            tv.alphaEqSrc = (global::LambdaCube.IR.BlendEquation)fromJSON(Type.BlendEquation,obj["alphaEqSrc"]);
-            tv.colorFSrc = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["colorFSrc"]);
-            tv.colorFDst = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["colorFDst"]);
-            tv.alphaFSrc = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["alphaFSrc"]);
-            tv.alphaFDst = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["alphaFDst"]);
-            tv.color = (V4<float>)fromJSON(Type.V4_Float,obj["color"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
+          switch (tag) {
+            case "NoBlending": tagType = Blending.Tag.NoBlending; break;
+            case "BlendLogicOp": {
+              data.BlendLogicOp tv = new data.BlendLogicOp();
+              tv._0 = (global::LambdaCube.IR.LogicOperation)fromJSON(Type.LogicOperation,obj["arg0"]);
+              return tv;
+            }
+            case "Blend": {
+              data.Blend tv = new data.Blend();
+              tv.colorEqSrc = (global::LambdaCube.IR.BlendEquation)fromJSON(Type.BlendEquation,obj["colorEqSrc"]);
+              tv.alphaEqSrc = (global::LambdaCube.IR.BlendEquation)fromJSON(Type.BlendEquation,obj["alphaEqSrc"]);
+              tv.colorFSrc = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["colorFSrc"]);
+              tv.colorFDst = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["colorFDst"]);
+              tv.alphaFSrc = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["alphaFSrc"]);
+              tv.alphaFDst = (global::LambdaCube.IR.BlendingFactor)fromJSON(Type.BlendingFactor,obj["alphaFDst"]);
+              tv.color = (V4<float>)fromJSON(Type.V4_Float,obj["color"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
           Blending o = new Blending();
           o.tag = tagType;
           return o;
         }
         case Type.RasterContext: {
           string tag = (string)obj["tag"];
-          RasterContext.Tag tagType;
-          if (tag == "PointCtx") {
-            tagType = RasterContext.Tag.PointCtx;
-            data.PointCtx tv = new data.PointCtx();
-            tv._0 = (global::LambdaCube.IR.PointSize)fromJSON(Type.PointSize,obj["arg0"]);
-            tv._1 = (float)fromJSON(Type.Float,obj["arg1"]);
-            tv._2 = (global::LambdaCube.IR.PointSpriteCoordOrigin)fromJSON(Type.PointSpriteCoordOrigin,obj["arg2"]);
-            return tv;
-          }
-          else if (tag == "LineCtx") {
-            tagType = RasterContext.Tag.LineCtx;
-            data.LineCtx tv = new data.LineCtx();
-            tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
-            tv._1 = (global::LambdaCube.IR.ProvokingVertex)fromJSON(Type.ProvokingVertex,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "TriangleCtx") {
-            tagType = RasterContext.Tag.TriangleCtx;
-            data.TriangleCtx tv = new data.TriangleCtx();
-            tv._0 = (global::LambdaCube.IR.CullMode)fromJSON(Type.CullMode,obj["arg0"]);
-            tv._1 = (global::LambdaCube.IR.PolygonMode)fromJSON(Type.PolygonMode,obj["arg1"]);
-            tv._2 = (global::LambdaCube.IR.PolygonOffset)fromJSON(Type.PolygonOffset,obj["arg2"]);
-            tv._3 = (global::LambdaCube.IR.ProvokingVertex)fromJSON(Type.ProvokingVertex,obj["arg3"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          RasterContext o = new RasterContext();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "PointCtx": {
+              data.PointCtx tv = new data.PointCtx();
+              tv._0 = (global::LambdaCube.IR.PointSize)fromJSON(Type.PointSize,obj["arg0"]);
+              tv._1 = (float)fromJSON(Type.Float,obj["arg1"]);
+              tv._2 = (global::LambdaCube.IR.PointSpriteCoordOrigin)fromJSON(Type.PointSpriteCoordOrigin,obj["arg2"]);
+              return tv;
+            }
+            case "LineCtx": {
+              data.LineCtx tv = new data.LineCtx();
+              tv._0 = (float)fromJSON(Type.Float,obj["arg0"]);
+              tv._1 = (global::LambdaCube.IR.ProvokingVertex)fromJSON(Type.ProvokingVertex,obj["arg1"]);
+              return tv;
+            }
+            case "TriangleCtx": {
+              data.TriangleCtx tv = new data.TriangleCtx();
+              tv._0 = (global::LambdaCube.IR.CullMode)fromJSON(Type.CullMode,obj["arg0"]);
+              tv._1 = (global::LambdaCube.IR.PolygonMode)fromJSON(Type.PolygonMode,obj["arg1"]);
+              tv._2 = (global::LambdaCube.IR.PolygonOffset)fromJSON(Type.PolygonOffset,obj["arg2"]);
+              tv._3 = (global::LambdaCube.IR.ProvokingVertex)fromJSON(Type.ProvokingVertex,obj["arg3"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.FragmentOperation: {
           string tag = (string)obj["tag"];
-          FragmentOperation.Tag tagType;
-          if (tag == "DepthOp") {
-            tagType = FragmentOperation.Tag.DepthOp;
-            data.DepthOp tv = new data.DepthOp();
-            tv._0 = (global::LambdaCube.IR.ComparisonFunction)fromJSON(Type.ComparisonFunction,obj["arg0"]);
-            tv._1 = (bool)fromJSON(Type.Bool,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "StencilOp") {
-            tagType = FragmentOperation.Tag.StencilOp;
-            data.StencilOp tv = new data.StencilOp();
-            tv._0 = (global::LambdaCube.IR.StencilTests)fromJSON(Type.StencilTests,obj["arg0"]);
-            tv._1 = (global::LambdaCube.IR.StencilOps)fromJSON(Type.StencilOps,obj["arg1"]);
-            tv._2 = (global::LambdaCube.IR.StencilOps)fromJSON(Type.StencilOps,obj["arg2"]);
-            return tv;
-          }
-          else if (tag == "ColorOp") {
-            tagType = FragmentOperation.Tag.ColorOp;
-            data.ColorOp tv = new data.ColorOp();
-            tv._0 = (global::LambdaCube.IR.Blending)fromJSON(Type.Blending,obj["arg0"]);
-            tv._1 = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["arg1"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          FragmentOperation o = new FragmentOperation();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "DepthOp": {
+              data.DepthOp tv = new data.DepthOp();
+              tv._0 = (global::LambdaCube.IR.ComparisonFunction)fromJSON(Type.ComparisonFunction,obj["arg0"]);
+              tv._1 = (bool)fromJSON(Type.Bool,obj["arg1"]);
+              return tv;
+            }
+            case "StencilOp": {
+              data.StencilOp tv = new data.StencilOp();
+              tv._0 = (global::LambdaCube.IR.StencilTests)fromJSON(Type.StencilTests,obj["arg0"]);
+              tv._1 = (global::LambdaCube.IR.StencilOps)fromJSON(Type.StencilOps,obj["arg1"]);
+              tv._2 = (global::LambdaCube.IR.StencilOps)fromJSON(Type.StencilOps,obj["arg2"]);
+              return tv;
+            }
+            case "ColorOp": {
+              data.ColorOp tv = new data.ColorOp();
+              tv._0 = (global::LambdaCube.IR.Blending)fromJSON(Type.Blending,obj["arg0"]);
+              tv._1 = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["arg1"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.AccumulationContext: {
           string tag = (string)obj["tag"];
-          AccumulationContext.Tag tagType;
-          if (tag == "AccumulationContext") {
-            tagType = AccumulationContext.Tag.AccumulationContext;
-            data.AccumulationContext tv = new data.AccumulationContext();
-            tv.accViewportName = (Maybe<string>)fromJSON(Type.Maybe_String,obj["accViewportName"]);
-            tv.accOperations = (List<global::LambdaCube.IR.FragmentOperation>)fromJSON(Type.List_FragmentOperation,obj["accOperations"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          AccumulationContext o = new AccumulationContext();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "AccumulationContext": {
+              data.AccumulationContext tv = new data.AccumulationContext();
+              tv.accViewportName = (Maybe<string>)fromJSON(Type.Maybe_String,obj["accViewportName"]);
+              tv.accOperations = (List<global::LambdaCube.IR.FragmentOperation>)fromJSON(Type.List_FragmentOperation,obj["accOperations"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.TextureDataType: {
           string tag = (string)obj["tag"];
           TextureDataType.Tag tagType;
-          if (tag == "FloatT") {
-            tagType = TextureDataType.Tag.FloatT;
-            data.FloatT tv = new data.FloatT();
-            tv._0 = (global::LambdaCube.IR.ColorArity)fromJSON(Type.ColorArity,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "IntT") {
-            tagType = TextureDataType.Tag.IntT;
-            data.IntT tv = new data.IntT();
-            tv._0 = (global::LambdaCube.IR.ColorArity)fromJSON(Type.ColorArity,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "WordT") {
-            tagType = TextureDataType.Tag.WordT;
-            data.WordT tv = new data.WordT();
-            tv._0 = (global::LambdaCube.IR.ColorArity)fromJSON(Type.ColorArity,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "ShadowT") {
-            tagType = TextureDataType.Tag.ShadowT;
-          }
-          else throw new Exception("unknown constructor: " + tag);
+          switch (tag) {
+            case "FloatT": {
+              data.FloatT tv = new data.FloatT();
+              tv._0 = (global::LambdaCube.IR.ColorArity)fromJSON(Type.ColorArity,obj["arg0"]);
+              return tv;
+            }
+            case "IntT": {
+              data.IntT tv = new data.IntT();
+              tv._0 = (global::LambdaCube.IR.ColorArity)fromJSON(Type.ColorArity,obj["arg0"]);
+              return tv;
+            }
+            case "WordT": {
+              data.WordT tv = new data.WordT();
+              tv._0 = (global::LambdaCube.IR.ColorArity)fromJSON(Type.ColorArity,obj["arg0"]);
+              return tv;
+            }
+            case "ShadowT": tagType = TextureDataType.Tag.ShadowT; break;
+            default: throw new Exception("unknown constructor: " + tag);
+          }
           TextureDataType o = new TextureDataType();
           o.tag = tagType;
           return o;
         }
         case Type.TextureType: {
           string tag = (string)obj["tag"];
-          TextureType.Tag tagType;
-          if (tag == "Texture1D") {
-            tagType = TextureType.Tag.Texture1D;
-            data.Texture1D tv = new data.Texture1D();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "Texture2D") {
-            tagType = TextureType.Tag.Texture2D;
-            data.Texture2D tv = new data.Texture2D();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "Texture3D") {
-            tagType = TextureType.Tag.Texture3D;
-            data.Texture3D tv = new data.Texture3D();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "TextureCube") {
-            tagType = TextureType.Tag.TextureCube;
-            data.TextureCube tv = new data.TextureCube();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "TextureRect") {
-            tagType = TextureType.Tag.TextureRect;
-            data.TextureRect tv = new data.TextureRect();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "Texture2DMS") {
-            tagType = TextureType.Tag.Texture2DMS;
-            data.Texture2DMS tv = new data.Texture2DMS();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            tv._2 = (int)fromJSON(Type.Int,obj["arg2"]);
-            tv._3 = (bool)fromJSON(Type.Bool,obj["arg3"]);
-            return tv;
-          }
-          else if (tag == "TextureBuffer") {
-            tagType = TextureType.Tag.TextureBuffer;
-            data.TextureBuffer tv = new data.TextureBuffer();
-            tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          TextureType o = new TextureType();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "Texture1D": {
+              data.Texture1D tv = new data.Texture1D();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            case "Texture2D": {
+              data.Texture2D tv = new data.Texture2D();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            case "Texture3D": {
+              data.Texture3D tv = new data.Texture3D();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              return tv;
+            }
+            case "TextureCube": {
+              data.TextureCube tv = new data.TextureCube();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              return tv;
+            }
+            case "TextureRect": {
+              data.TextureRect tv = new data.TextureRect();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              return tv;
+            }
+            case "Texture2DMS": {
+              data.Texture2DMS tv = new data.Texture2DMS();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              tv._2 = (int)fromJSON(Type.Int,obj["arg2"]);
+              tv._3 = (bool)fromJSON(Type.Bool,obj["arg3"]);
+              return tv;
+            }
+            case "TextureBuffer": {
+              data.TextureBuffer tv = new data.TextureBuffer();
+              tv._0 = (global::LambdaCube.IR.TextureDataType)fromJSON(Type.TextureDataType,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.MipMap: {
           string tag = (string)obj["tag"];
           MipMap.Tag tagType;
-          if (tag == "Mip") {
-            tagType = MipMap.Tag.Mip;
-            data.Mip tv = new data.Mip();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "NoMip") {
-            tagType = MipMap.Tag.NoMip;
-          }
-          else if (tag == "AutoMip") {
-            tagType = MipMap.Tag.AutoMip;
-            data.AutoMip tv = new data.AutoMip();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
+          switch (tag) {
+            case "Mip": {
+              data.Mip tv = new data.Mip();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            case "NoMip": tagType = MipMap.Tag.NoMip; break;
+            case "AutoMip": {
+              data.AutoMip tv = new data.AutoMip();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
           MipMap o = new MipMap();
           o.tag = tagType;
           return o;
@@ -2370,25 +2055,15 @@ namespace LambdaCube.IR {
         case Type.Filter: {
           string tag = (string)obj["tag"];
           Filter.Tag tagType;
-          if (tag == "Nearest") {
-            tagType = Filter.Tag.Nearest;
-          }
-          else if (tag == "Linear") {
-            tagType = Filter.Tag.Linear;
-          }
-          else if (tag == "NearestMipmapNearest") {
-            tagType = Filter.Tag.NearestMipmapNearest;
-          }
-          else if (tag == "NearestMipmapLinear") {
-            tagType = Filter.Tag.NearestMipmapLinear;
-          }
-          else if (tag == "LinearMipmapNearest") {
-            tagType = Filter.Tag.LinearMipmapNearest;
+          switch (tag) {
+            case "Nearest": tagType = Filter.Tag.Nearest; break;
+            case "Linear": tagType = Filter.Tag.Linear; break;
+            case "NearestMipmapNearest": tagType = Filter.Tag.NearestMipmapNearest; break;
+            case "NearestMipmapLinear": tagType = Filter.Tag.NearestMipmapLinear; break;
+            case "LinearMipmapNearest": tagType = Filter.Tag.LinearMipmapNearest; break;
+            case "LinearMipmapLinear": tagType = Filter.Tag.LinearMipmapLinear; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "LinearMipmapLinear") {
-            tagType = Filter.Tag.LinearMipmapLinear;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           Filter o = new Filter();
           o.tag = tagType;
           return o;
@@ -2396,19 +2071,13 @@ namespace LambdaCube.IR {
         case Type.EdgeMode: {
           string tag = (string)obj["tag"];
           EdgeMode.Tag tagType;
-          if (tag == "Repeat") {
-            tagType = EdgeMode.Tag.Repeat;
-          }
-          else if (tag == "MirroredRepeat") {
-            tagType = EdgeMode.Tag.MirroredRepeat;
-          }
-          else if (tag == "ClampToEdge") {
-            tagType = EdgeMode.Tag.ClampToEdge;
+          switch (tag) {
+            case "Repeat": tagType = EdgeMode.Tag.Repeat; break;
+            case "MirroredRepeat": tagType = EdgeMode.Tag.MirroredRepeat; break;
+            case "ClampToEdge": tagType = EdgeMode.Tag.ClampToEdge; break;
+            case "ClampToBorder": tagType = EdgeMode.Tag.ClampToBorder; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "ClampToBorder") {
-            tagType = EdgeMode.Tag.ClampToBorder;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           EdgeMode o = new EdgeMode();
           o.tag = tagType;
           return o;
@@ -2416,324 +2085,269 @@ namespace LambdaCube.IR {
         case Type.ImageSemantic: {
           string tag = (string)obj["tag"];
           ImageSemantic.Tag tagType;
-          if (tag == "Depth") {
-            tagType = ImageSemantic.Tag.Depth;
-          }
-          else if (tag == "Stencil") {
-            tagType = ImageSemantic.Tag.Stencil;
-          }
-          else if (tag == "Color") {
-            tagType = ImageSemantic.Tag.Color;
+          switch (tag) {
+            case "Depth": tagType = ImageSemantic.Tag.Depth; break;
+            case "Stencil": tagType = ImageSemantic.Tag.Stencil; break;
+            case "Color": tagType = ImageSemantic.Tag.Color; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           ImageSemantic o = new ImageSemantic();
           o.tag = tagType;
           return o;
         }
         case Type.ImageRef: {
           string tag = (string)obj["tag"];
-          ImageRef.Tag tagType;
-          if (tag == "TextureImage") {
-            tagType = ImageRef.Tag.TextureImage;
-            data.TextureImage tv = new data.TextureImage();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            tv._2 = (Maybe<int>)fromJSON(Type.Maybe_Int,obj["arg2"]);
-            return tv;
-          }
-          else if (tag == "Framebuffer") {
-            tagType = ImageRef.Tag.Framebuffer;
-            data.Framebuffer tv = new data.Framebuffer();
-            tv._0 = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          ImageRef o = new ImageRef();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "TextureImage": {
+              data.TextureImage tv = new data.TextureImage();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              tv._2 = (Maybe<int>)fromJSON(Type.Maybe_Int,obj["arg2"]);
+              return tv;
+            }
+            case "Framebuffer": {
+              data.Framebuffer tv = new data.Framebuffer();
+              tv._0 = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.ClearImage: {
           string tag = (string)obj["tag"];
-          ClearImage.Tag tagType;
-          if (tag == "ClearImage") {
-            tagType = ClearImage.Tag.ClearImage;
-            data.ClearImage tv = new data.ClearImage();
-            tv.imageSemantic = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["imageSemantic"]);
-            tv.clearValue = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["clearValue"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          ClearImage o = new ClearImage();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "ClearImage": {
+              data.ClearImage tv = new data.ClearImage();
+              tv.imageSemantic = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["imageSemantic"]);
+              tv.clearValue = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["clearValue"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.Command: {
           string tag = (string)obj["tag"];
-          Command.Tag tagType;
-          if (tag == "SetRasterContext") {
-            tagType = Command.Tag.SetRasterContext;
-            data.SetRasterContext tv = new data.SetRasterContext();
-            tv._0 = (global::LambdaCube.IR.RasterContext)fromJSON(Type.RasterContext,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "SetAccumulationContext") {
-            tagType = Command.Tag.SetAccumulationContext;
-            data.SetAccumulationContext tv = new data.SetAccumulationContext();
-            tv._0 = (global::LambdaCube.IR.AccumulationContext)fromJSON(Type.AccumulationContext,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "SetRenderTarget") {
-            tagType = Command.Tag.SetRenderTarget;
-            data.SetRenderTarget tv = new data.SetRenderTarget();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "SetProgram") {
-            tagType = Command.Tag.SetProgram;
-            data.SetProgram tv = new data.SetProgram();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "SetSamplerUniform") {
-            tagType = Command.Tag.SetSamplerUniform;
-            data.SetSamplerUniform tv = new data.SetSamplerUniform();
-            tv._0 = (string)fromJSON(Type.String,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "SetTexture") {
-            tagType = Command.Tag.SetTexture;
-            data.SetTexture tv = new data.SetTexture();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "SetSampler") {
-            tagType = Command.Tag.SetSampler;
-            data.SetSampler tv = new data.SetSampler();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            tv._1 = (Maybe<int>)fromJSON(Type.Maybe_Int,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "RenderSlot") {
-            tagType = Command.Tag.RenderSlot;
-            data.RenderSlot tv = new data.RenderSlot();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "RenderStream") {
-            tagType = Command.Tag.RenderStream;
-            data.RenderStream tv = new data.RenderStream();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "ClearRenderTarget") {
-            tagType = Command.Tag.ClearRenderTarget;
-            data.ClearRenderTarget tv = new data.ClearRenderTarget();
-            tv._0 = (List<global::LambdaCube.IR.ClearImage>)fromJSON(Type.Array_ClearImage,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "GenerateMipMap") {
-            tagType = Command.Tag.GenerateMipMap;
-            data.GenerateMipMap tv = new data.GenerateMipMap();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "SaveImage") {
-            tagType = Command.Tag.SaveImage;
-            data.SaveImage tv = new data.SaveImage();
-            tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
-            tv._1 = (global::LambdaCube.IR.ImageRef)fromJSON(Type.ImageRef,obj["arg1"]);
-            return tv;
-          }
-          else if (tag == "LoadImage") {
-            tagType = Command.Tag.LoadImage;
-            data.LoadImage tv = new data.LoadImage();
-            tv._0 = (global::LambdaCube.IR.ImageRef)fromJSON(Type.ImageRef,obj["arg0"]);
-            tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          Command o = new Command();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "SetRasterContext": {
+              data.SetRasterContext tv = new data.SetRasterContext();
+              tv._0 = (global::LambdaCube.IR.RasterContext)fromJSON(Type.RasterContext,obj["arg0"]);
+              return tv;
+            }
+            case "SetAccumulationContext": {
+              data.SetAccumulationContext tv = new data.SetAccumulationContext();
+              tv._0 = (global::LambdaCube.IR.AccumulationContext)fromJSON(Type.AccumulationContext,obj["arg0"]);
+              return tv;
+            }
+            case "SetRenderTarget": {
+              data.SetRenderTarget tv = new data.SetRenderTarget();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              return tv;
+            }
+            case "SetProgram": {
+              data.SetProgram tv = new data.SetProgram();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              return tv;
+            }
+            case "SetSamplerUniform": {
+              data.SetSamplerUniform tv = new data.SetSamplerUniform();
+              tv._0 = (string)fromJSON(Type.String,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            case "SetTexture": {
+              data.SetTexture tv = new data.SetTexture();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            case "SetSampler": {
+              data.SetSampler tv = new data.SetSampler();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              tv._1 = (Maybe<int>)fromJSON(Type.Maybe_Int,obj["arg1"]);
+              return tv;
+            }
+            case "RenderSlot": {
+              data.RenderSlot tv = new data.RenderSlot();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              return tv;
+            }
+            case "RenderStream": {
+              data.RenderStream tv = new data.RenderStream();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              return tv;
+            }
+            case "ClearRenderTarget": {
+              data.ClearRenderTarget tv = new data.ClearRenderTarget();
+              tv._0 = (List<global::LambdaCube.IR.ClearImage>)fromJSON(Type.Array_ClearImage,obj["arg0"]);
+              return tv;
+            }
+            case "GenerateMipMap": {
+              data.GenerateMipMap tv = new data.GenerateMipMap();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              return tv;
+            }
+            case "SaveImage": {
+              data.SaveImage tv = new data.SaveImage();
+              tv._0 = (int)fromJSON(Type.Int,obj["arg0"]);
+              tv._1 = (global::LambdaCube.IR.ImageRef)fromJSON(Type.ImageRef,obj["arg1"]);
+              return tv;
+            }
+            case "LoadImage": {
+              data.LoadImage tv = new data.LoadImage();
+              tv._0 = (global::LambdaCube.IR.ImageRef)fromJSON(Type.ImageRef,obj["arg0"]);
+              tv._1 = (int)fromJSON(Type.Int,obj["arg1"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.SamplerDescriptor: {
           string tag = (string)obj["tag"];
-          SamplerDescriptor.Tag tagType;
-          if (tag == "SamplerDescriptor") {
-            tagType = SamplerDescriptor.Tag.SamplerDescriptor;
-            data.SamplerDescriptor tv = new data.SamplerDescriptor();
-            tv.samplerWrapS = (global::LambdaCube.IR.EdgeMode)fromJSON(Type.EdgeMode,obj["samplerWrapS"]);
-            tv.samplerWrapT = (Maybe<global::LambdaCube.IR.EdgeMode>)fromJSON(Type.Maybe_EdgeMode,obj["samplerWrapT"]);
-            tv.samplerWrapR = (Maybe<global::LambdaCube.IR.EdgeMode>)fromJSON(Type.Maybe_EdgeMode,obj["samplerWrapR"]);
-            tv.samplerMinFilter = (global::LambdaCube.IR.Filter)fromJSON(Type.Filter,obj["samplerMinFilter"]);
-            tv.samplerMagFilter = (global::LambdaCube.IR.Filter)fromJSON(Type.Filter,obj["samplerMagFilter"]);
-            tv.samplerBorderColor = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["samplerBorderColor"]);
-            tv.samplerMinLod = (Maybe<float>)fromJSON(Type.Maybe_Float,obj["samplerMinLod"]);
-            tv.samplerMaxLod = (Maybe<float>)fromJSON(Type.Maybe_Float,obj["samplerMaxLod"]);
-            tv.samplerLodBias = (float)fromJSON(Type.Float,obj["samplerLodBias"]);
-            tv.samplerCompareFunc = (Maybe<global::LambdaCube.IR.ComparisonFunction>)fromJSON(Type.Maybe_ComparisonFunction,obj["samplerCompareFunc"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          SamplerDescriptor o = new SamplerDescriptor();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "SamplerDescriptor": {
+              data.SamplerDescriptor tv = new data.SamplerDescriptor();
+              tv.samplerWrapS = (global::LambdaCube.IR.EdgeMode)fromJSON(Type.EdgeMode,obj["samplerWrapS"]);
+              tv.samplerWrapT = (Maybe<global::LambdaCube.IR.EdgeMode>)fromJSON(Type.Maybe_EdgeMode,obj["samplerWrapT"]);
+              tv.samplerWrapR = (Maybe<global::LambdaCube.IR.EdgeMode>)fromJSON(Type.Maybe_EdgeMode,obj["samplerWrapR"]);
+              tv.samplerMinFilter = (global::LambdaCube.IR.Filter)fromJSON(Type.Filter,obj["samplerMinFilter"]);
+              tv.samplerMagFilter = (global::LambdaCube.IR.Filter)fromJSON(Type.Filter,obj["samplerMagFilter"]);
+              tv.samplerBorderColor = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["samplerBorderColor"]);
+              tv.samplerMinLod = (Maybe<float>)fromJSON(Type.Maybe_Float,obj["samplerMinLod"]);
+              tv.samplerMaxLod = (Maybe<float>)fromJSON(Type.Maybe_Float,obj["samplerMaxLod"]);
+              tv.samplerLodBias = (float)fromJSON(Type.Float,obj["samplerLodBias"]);
+              tv.samplerCompareFunc = (Maybe<global::LambdaCube.IR.ComparisonFunction>)fromJSON(Type.Maybe_ComparisonFunction,obj["samplerCompareFunc"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.TextureDescriptor: {
           string tag = (string)obj["tag"];
-          TextureDescriptor.Tag tagType;
-          if (tag == "TextureDescriptor") {
-            tagType = TextureDescriptor.Tag.TextureDescriptor;
-            data.TextureDescriptor tv = new data.TextureDescriptor();
-            tv.textureType = (global::LambdaCube.IR.TextureType)fromJSON(Type.TextureType,obj["textureType"]);
-            tv.textureSize = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["textureSize"]);
-            tv.textureSemantic = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["textureSemantic"]);
-            tv.textureSampler = (global::LambdaCube.IR.SamplerDescriptor)fromJSON(Type.SamplerDescriptor,obj["textureSampler"]);
-            tv.textureBaseLevel = (int)fromJSON(Type.Int,obj["textureBaseLevel"]);
-            tv.textureMaxLevel = (int)fromJSON(Type.Int,obj["textureMaxLevel"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          TextureDescriptor o = new TextureDescriptor();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "TextureDescriptor": {
+              data.TextureDescriptor tv = new data.TextureDescriptor();
+              tv.textureType = (global::LambdaCube.IR.TextureType)fromJSON(Type.TextureType,obj["textureType"]);
+              tv.textureSize = (global::LambdaCube.IR.Value)fromJSON(Type.Value,obj["textureSize"]);
+              tv.textureSemantic = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["textureSemantic"]);
+              tv.textureSampler = (global::LambdaCube.IR.SamplerDescriptor)fromJSON(Type.SamplerDescriptor,obj["textureSampler"]);
+              tv.textureBaseLevel = (int)fromJSON(Type.Int,obj["textureBaseLevel"]);
+              tv.textureMaxLevel = (int)fromJSON(Type.Int,obj["textureMaxLevel"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.Parameter: {
           string tag = (string)obj["tag"];
-          Parameter.Tag tagType;
-          if (tag == "Parameter") {
-            tagType = Parameter.Tag.Parameter;
-            data.Parameter tv = new data.Parameter();
-            tv.name = (string)fromJSON(Type.String,obj["name"]);
-            tv.ty = (global::LambdaCube.IR.InputType)fromJSON(Type.InputType,obj["ty"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          Parameter o = new Parameter();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "Parameter": {
+              data.Parameter tv = new data.Parameter();
+              tv.name = (string)fromJSON(Type.String,obj["name"]);
+              tv.ty = (global::LambdaCube.IR.InputType)fromJSON(Type.InputType,obj["ty"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.Program: {
           string tag = (string)obj["tag"];
-          Program.Tag tagType;
-          if (tag == "Program") {
-            tagType = Program.Tag.Program;
-            data.Program tv = new data.Program();
-            tv.programUniforms = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["programUniforms"]);
-            tv.programStreams = (Dictionary<string, global::LambdaCube.IR.Parameter>)fromJSON(Type.Map_String_Parameter,obj["programStreams"]);
-            tv.programInTextures = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["programInTextures"]);
-            tv.programOutput = (List<global::LambdaCube.IR.Parameter>)fromJSON(Type.Array_Parameter,obj["programOutput"]);
-            tv.vertexShader = (string)fromJSON(Type.String,obj["vertexShader"]);
-            tv.geometryShader = (Maybe<string>)fromJSON(Type.Maybe_String,obj["geometryShader"]);
-            tv.fragmentShader = (string)fromJSON(Type.String,obj["fragmentShader"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          Program o = new Program();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "Program": {
+              data.Program tv = new data.Program();
+              tv.programUniforms = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["programUniforms"]);
+              tv.programStreams = (Dictionary<string, global::LambdaCube.IR.Parameter>)fromJSON(Type.Map_String_Parameter,obj["programStreams"]);
+              tv.programInTextures = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["programInTextures"]);
+              tv.programOutput = (List<global::LambdaCube.IR.Parameter>)fromJSON(Type.Array_Parameter,obj["programOutput"]);
+              tv.vertexShader = (string)fromJSON(Type.String,obj["vertexShader"]);
+              tv.geometryShader = (Maybe<string>)fromJSON(Type.Maybe_String,obj["geometryShader"]);
+              tv.fragmentShader = (string)fromJSON(Type.String,obj["fragmentShader"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.Slot: {
           string tag = (string)obj["tag"];
-          Slot.Tag tagType;
-          if (tag == "Slot") {
-            tagType = Slot.Tag.Slot;
-            data.Slot tv = new data.Slot();
-            tv.slotName = (string)fromJSON(Type.String,obj["slotName"]);
-            tv.slotStreams = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["slotStreams"]);
-            tv.slotUniforms = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["slotUniforms"]);
-            tv.slotPrimitive = (global::LambdaCube.IR.FetchPrimitive)fromJSON(Type.FetchPrimitive,obj["slotPrimitive"]);
-            tv.slotPrograms = (List<int>)fromJSON(Type.Array_Int,obj["slotPrograms"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          Slot o = new Slot();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "Slot": {
+              data.Slot tv = new data.Slot();
+              tv.slotName = (string)fromJSON(Type.String,obj["slotName"]);
+              tv.slotStreams = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["slotStreams"]);
+              tv.slotUniforms = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["slotUniforms"]);
+              tv.slotPrimitive = (global::LambdaCube.IR.FetchPrimitive)fromJSON(Type.FetchPrimitive,obj["slotPrimitive"]);
+              tv.slotPrograms = (List<int>)fromJSON(Type.Array_Int,obj["slotPrograms"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.StreamData: {
           string tag = (string)obj["tag"];
-          StreamData.Tag tagType;
-          if (tag == "StreamData") {
-            tagType = StreamData.Tag.StreamData;
-            data.StreamData tv = new data.StreamData();
-            tv.streamData = (Dictionary<string, global::LambdaCube.IR.ArrayValue>)fromJSON(Type.Map_String_ArrayValue,obj["streamData"]);
-            tv.streamType = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["streamType"]);
-            tv.streamPrimitive = (global::LambdaCube.IR.FetchPrimitive)fromJSON(Type.FetchPrimitive,obj["streamPrimitive"]);
-            tv.streamPrograms = (List<int>)fromJSON(Type.Array_Int,obj["streamPrograms"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          StreamData o = new StreamData();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "StreamData": {
+              data.StreamData tv = new data.StreamData();
+              tv.streamData = (Dictionary<string, global::LambdaCube.IR.ArrayValue>)fromJSON(Type.Map_String_ArrayValue,obj["streamData"]);
+              tv.streamType = (Dictionary<string, global::LambdaCube.IR.InputType>)fromJSON(Type.Map_String_InputType,obj["streamType"]);
+              tv.streamPrimitive = (global::LambdaCube.IR.FetchPrimitive)fromJSON(Type.FetchPrimitive,obj["streamPrimitive"]);
+              tv.streamPrograms = (List<int>)fromJSON(Type.Array_Int,obj["streamPrograms"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.TargetItem: {
           string tag = (string)obj["tag"];
-          TargetItem.Tag tagType;
-          if (tag == "TargetItem") {
-            tagType = TargetItem.Tag.TargetItem;
-            data.TargetItem tv = new data.TargetItem();
-            tv.targetSemantic = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["targetSemantic"]);
-            tv.targetRef = (Maybe<global::LambdaCube.IR.ImageRef>)fromJSON(Type.Maybe_ImageRef,obj["targetRef"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          TargetItem o = new TargetItem();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "TargetItem": {
+              data.TargetItem tv = new data.TargetItem();
+              tv.targetSemantic = (global::LambdaCube.IR.ImageSemantic)fromJSON(Type.ImageSemantic,obj["targetSemantic"]);
+              tv.targetRef = (Maybe<global::LambdaCube.IR.ImageRef>)fromJSON(Type.Maybe_ImageRef,obj["targetRef"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.RenderTarget: {
           string tag = (string)obj["tag"];
-          RenderTarget.Tag tagType;
-          if (tag == "RenderTarget") {
-            tagType = RenderTarget.Tag.RenderTarget;
-            data.RenderTarget tv = new data.RenderTarget();
-            tv.renderTargets = (List<global::LambdaCube.IR.TargetItem>)fromJSON(Type.Array_TargetItem,obj["renderTargets"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          RenderTarget o = new RenderTarget();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "RenderTarget": {
+              data.RenderTarget tv = new data.RenderTarget();
+              tv.renderTargets = (List<global::LambdaCube.IR.TargetItem>)fromJSON(Type.Array_TargetItem,obj["renderTargets"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
         case Type.Backend: {
           string tag = (string)obj["tag"];
           Backend.Tag tagType;
-          if (tag == "WebGL1") {
-            tagType = Backend.Tag.WebGL1;
-          }
-          else if (tag == "OpenGL33") {
-            tagType = Backend.Tag.OpenGL33;
+          switch (tag) {
+            case "WebGL1": tagType = Backend.Tag.WebGL1; break;
+            case "OpenGL33": tagType = Backend.Tag.OpenGL33; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
           Backend o = new Backend();
           o.tag = tagType;
           return o;
         }
         case Type.Pipeline: {
           string tag = (string)obj["tag"];
-          Pipeline.Tag tagType;
-          if (tag == "Pipeline") {
-            tagType = Pipeline.Tag.Pipeline;
-            data.Pipeline tv = new data.Pipeline();
-            tv.info = (string)fromJSON(Type.String,obj["info"]);
-            tv.backend = (global::LambdaCube.IR.Backend)fromJSON(Type.Backend,obj["backend"]);
-            tv.textures = (List<global::LambdaCube.IR.TextureDescriptor>)fromJSON(Type.Array_TextureDescriptor,obj["textures"]);
-            tv.samplers = (List<global::LambdaCube.IR.SamplerDescriptor>)fromJSON(Type.Array_SamplerDescriptor,obj["samplers"]);
-            tv.targets = (List<global::LambdaCube.IR.RenderTarget>)fromJSON(Type.Array_RenderTarget,obj["targets"]);
-            tv.programs = (List<global::LambdaCube.IR.Program>)fromJSON(Type.Array_Program,obj["programs"]);
-            tv.slots = (List<global::LambdaCube.IR.Slot>)fromJSON(Type.Array_Slot,obj["slots"]);
-            tv.streams = (List<global::LambdaCube.IR.StreamData>)fromJSON(Type.Array_StreamData,obj["streams"]);
-            tv.commands = (List<global::LambdaCube.IR.Command>)fromJSON(Type.Array_Command,obj["commands"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          Pipeline o = new Pipeline();
-          o.tag = tagType;
-          return o;
+          switch (tag) {
+            case "Pipeline": {
+              data.Pipeline tv = new data.Pipeline();
+              tv.info = (string)fromJSON(Type.String,obj["info"]);
+              tv.backend = (global::LambdaCube.IR.Backend)fromJSON(Type.Backend,obj["backend"]);
+              tv.textures = (List<global::LambdaCube.IR.TextureDescriptor>)fromJSON(Type.Array_TextureDescriptor,obj["textures"]);
+              tv.samplers = (List<global::LambdaCube.IR.SamplerDescriptor>)fromJSON(Type.Array_SamplerDescriptor,obj["samplers"]);
+              tv.targets = (List<global::LambdaCube.IR.RenderTarget>)fromJSON(Type.Array_RenderTarget,obj["targets"]);
+              tv.programs = (List<global::LambdaCube.IR.Program>)fromJSON(Type.Array_Program,obj["programs"]);
+              tv.slots = (List<global::LambdaCube.IR.Slot>)fromJSON(Type.Array_Slot,obj["slots"]);
+              tv.streams = (List<global::LambdaCube.IR.StreamData>)fromJSON(Type.Array_StreamData,obj["streams"]);
+              tv.commands = (List<global::LambdaCube.IR.Command>)fromJSON(Type.Array_Command,obj["commands"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
+          }
         }
       }
       throw new Exception("unknown type");
diff --git a/ddl/out/LambdaCube.IR.hpp b/ddl/out/LambdaCube.IR.hpp
index 56d32ed..ebbee08 100644
--- a/ddl/out/LambdaCube.IR.hpp
+++ b/ddl/out/LambdaCube.IR.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 #ifndef HEADER_LambdaCube.IR_H
 #define HEADER_LambdaCube.IR_H
diff --git a/ddl/out/LambdaCube.IR.hs b/ddl/out/LambdaCube.IR.hs
index b18a2c7..bcb1850 100644
--- a/ddl/out/LambdaCube.IR.hs
+++ b/ddl/out/LambdaCube.IR.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:17.421561000000Z
+-- 2016-03-21T13:31:09.634879000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.IR where
diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/LambdaCube.IR.purs
index 89965ef..56b5f5b 100644
--- a/ddl/out/LambdaCube.IR.purs
+++ b/ddl/out/LambdaCube.IR.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:17.421561000000Z
+-- 2016-03-21T13:31:09.634879000000Z
 
 module LambdaCube.IR where
 import Prelude
diff --git a/ddl/out/LambdaCube.IR.swift b/ddl/out/LambdaCube.IR.swift
index 62cbaa3..7b848b1 100644
--- a/ddl/out/LambdaCube.IR.swift
+++ b/ddl/out/LambdaCube.IR.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 typealias StreamName = Int
 
diff --git a/ddl/out/LambdaCube.IR2.hpp b/ddl/out/LambdaCube.IR2.hpp
index bdcdec3..718778e 100644
--- a/ddl/out/LambdaCube.IR2.hpp
+++ b/ddl/out/LambdaCube.IR2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 #ifndef HEADER_LambdaCube.IR_H
 #define HEADER_LambdaCube.IR_H
diff --git a/ddl/out/LambdaCube.Mesh.cpp b/ddl/out/LambdaCube.Mesh.cpp
index 50e4072..8687341 100644
--- a/ddl/out/LambdaCube.Mesh.cpp
+++ b/ddl/out/LambdaCube.Mesh.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 #include "LambdaCube.Mesh.hpp"
 template<> json toJSON<std::shared_ptr<MeshAttribute>>(std::shared_ptr<MeshAttribute> &v) {
diff --git a/ddl/out/LambdaCube.Mesh.cs b/ddl/out/LambdaCube.Mesh.cs
index 694cbef..096daef 100644
--- a/ddl/out/LambdaCube.Mesh.cs
+++ b/ddl/out/LambdaCube.Mesh.cs
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 using System;
 using System.Linq;
@@ -187,109 +187,89 @@ namespace LambdaCube.Mesh {
 
         case Type.MeshAttribute: {
           string tag = (string)obj["tag"];
-          MeshAttribute.Tag tagType;
-          if (tag == "A_Float") {
-            tagType = MeshAttribute.Tag.A_Float;
-            data.A_Float tv = new data.A_Float();
-            tv._0 = (List<float>)fromJSON(Type.Array_Float,obj["arg0"]);
-            return tv;
+          switch (tag) {
+            case "A_Float": {
+              data.A_Float tv = new data.A_Float();
+              tv._0 = (List<float>)fromJSON(Type.Array_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_V2F": {
+              data.A_V2F tv = new data.A_V2F();
+              tv._0 = (List<V2<float>>)fromJSON(Type.Array_V2_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_V3F": {
+              data.A_V3F tv = new data.A_V3F();
+              tv._0 = (List<V3<float>>)fromJSON(Type.Array_V3_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_V4F": {
+              data.A_V4F tv = new data.A_V4F();
+              tv._0 = (List<V4<float>>)fromJSON(Type.Array_V4_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_M22F": {
+              data.A_M22F tv = new data.A_M22F();
+              tv._0 = (List<V2<V2<float>>>)fromJSON(Type.Array_V2_V2_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_M33F": {
+              data.A_M33F tv = new data.A_M33F();
+              tv._0 = (List<V3<V3<float>>>)fromJSON(Type.Array_V3_V3_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_M44F": {
+              data.A_M44F tv = new data.A_M44F();
+              tv._0 = (List<V4<V4<float>>>)fromJSON(Type.Array_V4_V4_Float,obj["arg0"]);
+              return tv;
+            }
+            case "A_Int": {
+              data.A_Int tv = new data.A_Int();
+              tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
+              return tv;
+            }
+            case "A_Word": {
+              data.A_Word tv = new data.A_Word();
+              tv._0 = (List<uint>)fromJSON(Type.Array_Word32,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "A_V2F") {
-            tagType = MeshAttribute.Tag.A_V2F;
-            data.A_V2F tv = new data.A_V2F();
-            tv._0 = (List<V2<float>>)fromJSON(Type.Array_V2_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_V3F") {
-            tagType = MeshAttribute.Tag.A_V3F;
-            data.A_V3F tv = new data.A_V3F();
-            tv._0 = (List<V3<float>>)fromJSON(Type.Array_V3_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_V4F") {
-            tagType = MeshAttribute.Tag.A_V4F;
-            data.A_V4F tv = new data.A_V4F();
-            tv._0 = (List<V4<float>>)fromJSON(Type.Array_V4_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_M22F") {
-            tagType = MeshAttribute.Tag.A_M22F;
-            data.A_M22F tv = new data.A_M22F();
-            tv._0 = (List<V2<V2<float>>>)fromJSON(Type.Array_V2_V2_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_M33F") {
-            tagType = MeshAttribute.Tag.A_M33F;
-            data.A_M33F tv = new data.A_M33F();
-            tv._0 = (List<V3<V3<float>>>)fromJSON(Type.Array_V3_V3_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_M44F") {
-            tagType = MeshAttribute.Tag.A_M44F;
-            data.A_M44F tv = new data.A_M44F();
-            tv._0 = (List<V4<V4<float>>>)fromJSON(Type.Array_V4_V4_Float,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_Int") {
-            tagType = MeshAttribute.Tag.A_Int;
-            data.A_Int tv = new data.A_Int();
-            tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "A_Word") {
-            tagType = MeshAttribute.Tag.A_Word;
-            data.A_Word tv = new data.A_Word();
-            tv._0 = (List<uint>)fromJSON(Type.Array_Word32,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          MeshAttribute o = new MeshAttribute();
-          o.tag = tagType;
-          return o;
         }
         case Type.MeshPrimitive: {
           string tag = (string)obj["tag"];
           MeshPrimitive.Tag tagType;
-          if (tag == "P_Points") {
-            tagType = MeshPrimitive.Tag.P_Points;
-          }
-          else if (tag == "P_TriangleStrip") {
-            tagType = MeshPrimitive.Tag.P_TriangleStrip;
-          }
-          else if (tag == "P_Triangles") {
-            tagType = MeshPrimitive.Tag.P_Triangles;
+          switch (tag) {
+            case "P_Points": tagType = MeshPrimitive.Tag.P_Points; break;
+            case "P_TriangleStrip": tagType = MeshPrimitive.Tag.P_TriangleStrip; break;
+            case "P_Triangles": tagType = MeshPrimitive.Tag.P_Triangles; break;
+            case "P_TriangleStripI": {
+              data.P_TriangleStripI tv = new data.P_TriangleStripI();
+              tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
+              return tv;
+            }
+            case "P_TrianglesI": {
+              data.P_TrianglesI tv = new data.P_TrianglesI();
+              tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "P_TriangleStripI") {
-            tagType = MeshPrimitive.Tag.P_TriangleStripI;
-            data.P_TriangleStripI tv = new data.P_TriangleStripI();
-            tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
-            return tv;
-          }
-          else if (tag == "P_TrianglesI") {
-            tagType = MeshPrimitive.Tag.P_TrianglesI;
-            data.P_TrianglesI tv = new data.P_TrianglesI();
-            tv._0 = (List<int>)fromJSON(Type.Array_Int32,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           MeshPrimitive o = new MeshPrimitive();
           o.tag = tagType;
           return o;
         }
         case Type.Mesh: {
           string tag = (string)obj["tag"];
-          Mesh.Tag tagType;
-          if (tag == "Mesh") {
-            tagType = Mesh.Tag.Mesh;
-            data.Mesh tv = new data.Mesh();
-            tv.mAttributes = (Dictionary<string, global::LambdaCube.Mesh.MeshAttribute>)fromJSON(Type.Map_String_MeshAttribute,obj["mAttributes"]);
-            tv.mPrimitive = (global::LambdaCube.Mesh.MeshPrimitive)fromJSON(Type.MeshPrimitive,obj["mPrimitive"]);
-            return tv;
+          switch (tag) {
+            case "Mesh": {
+              data.Mesh tv = new data.Mesh();
+              tv.mAttributes = (Dictionary<string, global::LambdaCube.Mesh.MeshAttribute>)fromJSON(Type.Map_String_MeshAttribute,obj["mAttributes"]);
+              tv.mPrimitive = (global::LambdaCube.Mesh.MeshPrimitive)fromJSON(Type.MeshPrimitive,obj["mPrimitive"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          Mesh o = new Mesh();
-          o.tag = tagType;
-          return o;
         }
       }
       throw new Exception("unknown type");
diff --git a/ddl/out/LambdaCube.Mesh.hpp b/ddl/out/LambdaCube.Mesh.hpp
index 4f259f3..6b8bb85 100644
--- a/ddl/out/LambdaCube.Mesh.hpp
+++ b/ddl/out/LambdaCube.Mesh.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 #ifndef HEADER_LambdaCube.Mesh_H
 #define HEADER_LambdaCube.Mesh_H
diff --git a/ddl/out/LambdaCube.Mesh.hs b/ddl/out/LambdaCube.Mesh.hs
index 4ecb2f0..173a689 100644
--- a/ddl/out/LambdaCube.Mesh.hs
+++ b/ddl/out/LambdaCube.Mesh.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.184851000000Z
+-- 2016-03-21T13:31:10.335329000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.Mesh where
diff --git a/ddl/out/LambdaCube.Mesh.purs b/ddl/out/LambdaCube.Mesh.purs
index ef25eb8..1fef519 100644
--- a/ddl/out/LambdaCube.Mesh.purs
+++ b/ddl/out/LambdaCube.Mesh.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.184851000000Z
+-- 2016-03-21T13:31:10.335329000000Z
 
 module LambdaCube.Mesh where
 import Prelude
diff --git a/ddl/out/LambdaCube.Mesh.swift b/ddl/out/LambdaCube.Mesh.swift
index c5e4257..bb71038 100644
--- a/ddl/out/LambdaCube.Mesh.swift
+++ b/ddl/out/LambdaCube.Mesh.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 enum MeshAttribute {
   case A_Float(Array<Float>)
diff --git a/ddl/out/LambdaCube.Mesh2.hpp b/ddl/out/LambdaCube.Mesh2.hpp
index 1b8c6ad..3f28a3e 100644
--- a/ddl/out/LambdaCube.Mesh2.hpp
+++ b/ddl/out/LambdaCube.Mesh2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 #ifndef HEADER_LambdaCube.Mesh_H
 #define HEADER_LambdaCube.Mesh_H
diff --git a/ddl/out/LambdaCube.PipelineSchema.cpp b/ddl/out/LambdaCube.PipelineSchema.cpp
index f4c1946..dd0ba47 100644
--- a/ddl/out/LambdaCube.PipelineSchema.cpp
+++ b/ddl/out/LambdaCube.PipelineSchema.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 #include "LambdaCube.PipelineSchema.hpp"
 template<> json toJSON<std::shared_ptr<StreamType>>(std::shared_ptr<StreamType> &v) {
diff --git a/ddl/out/LambdaCube.PipelineSchema.cs b/ddl/out/LambdaCube.PipelineSchema.cs
index 68acd42..acdbcc1 100644
--- a/ddl/out/LambdaCube.PipelineSchema.cs
+++ b/ddl/out/LambdaCube.PipelineSchema.cs
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 using System;
 using System.Linq;
@@ -112,103 +112,57 @@ namespace LambdaCube.PipelineSchema {
         case Type.StreamType: {
           string tag = (string)obj["tag"];
           StreamType.Tag tagType;
-          if (tag == "Attribute_Word") {
-            tagType = StreamType.Tag.Attribute_Word;
+          switch (tag) {
+            case "Attribute_Word": tagType = StreamType.Tag.Attribute_Word; break;
+            case "Attribute_V2U": tagType = StreamType.Tag.Attribute_V2U; break;
+            case "Attribute_V3U": tagType = StreamType.Tag.Attribute_V3U; break;
+            case "Attribute_V4U": tagType = StreamType.Tag.Attribute_V4U; break;
+            case "Attribute_Int": tagType = StreamType.Tag.Attribute_Int; break;
+            case "Attribute_V2I": tagType = StreamType.Tag.Attribute_V2I; break;
+            case "Attribute_V3I": tagType = StreamType.Tag.Attribute_V3I; break;
+            case "Attribute_V4I": tagType = StreamType.Tag.Attribute_V4I; break;
+            case "Attribute_Float": tagType = StreamType.Tag.Attribute_Float; break;
+            case "Attribute_V2F": tagType = StreamType.Tag.Attribute_V2F; break;
+            case "Attribute_V3F": tagType = StreamType.Tag.Attribute_V3F; break;
+            case "Attribute_V4F": tagType = StreamType.Tag.Attribute_V4F; break;
+            case "Attribute_M22F": tagType = StreamType.Tag.Attribute_M22F; break;
+            case "Attribute_M23F": tagType = StreamType.Tag.Attribute_M23F; break;
+            case "Attribute_M24F": tagType = StreamType.Tag.Attribute_M24F; break;
+            case "Attribute_M32F": tagType = StreamType.Tag.Attribute_M32F; break;
+            case "Attribute_M33F": tagType = StreamType.Tag.Attribute_M33F; break;
+            case "Attribute_M34F": tagType = StreamType.Tag.Attribute_M34F; break;
+            case "Attribute_M42F": tagType = StreamType.Tag.Attribute_M42F; break;
+            case "Attribute_M43F": tagType = StreamType.Tag.Attribute_M43F; break;
+            case "Attribute_M44F": tagType = StreamType.Tag.Attribute_M44F; break;
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "Attribute_V2U") {
-            tagType = StreamType.Tag.Attribute_V2U;
-          }
-          else if (tag == "Attribute_V3U") {
-            tagType = StreamType.Tag.Attribute_V3U;
-          }
-          else if (tag == "Attribute_V4U") {
-            tagType = StreamType.Tag.Attribute_V4U;
-          }
-          else if (tag == "Attribute_Int") {
-            tagType = StreamType.Tag.Attribute_Int;
-          }
-          else if (tag == "Attribute_V2I") {
-            tagType = StreamType.Tag.Attribute_V2I;
-          }
-          else if (tag == "Attribute_V3I") {
-            tagType = StreamType.Tag.Attribute_V3I;
-          }
-          else if (tag == "Attribute_V4I") {
-            tagType = StreamType.Tag.Attribute_V4I;
-          }
-          else if (tag == "Attribute_Float") {
-            tagType = StreamType.Tag.Attribute_Float;
-          }
-          else if (tag == "Attribute_V2F") {
-            tagType = StreamType.Tag.Attribute_V2F;
-          }
-          else if (tag == "Attribute_V3F") {
-            tagType = StreamType.Tag.Attribute_V3F;
-          }
-          else if (tag == "Attribute_V4F") {
-            tagType = StreamType.Tag.Attribute_V4F;
-          }
-          else if (tag == "Attribute_M22F") {
-            tagType = StreamType.Tag.Attribute_M22F;
-          }
-          else if (tag == "Attribute_M23F") {
-            tagType = StreamType.Tag.Attribute_M23F;
-          }
-          else if (tag == "Attribute_M24F") {
-            tagType = StreamType.Tag.Attribute_M24F;
-          }
-          else if (tag == "Attribute_M32F") {
-            tagType = StreamType.Tag.Attribute_M32F;
-          }
-          else if (tag == "Attribute_M33F") {
-            tagType = StreamType.Tag.Attribute_M33F;
-          }
-          else if (tag == "Attribute_M34F") {
-            tagType = StreamType.Tag.Attribute_M34F;
-          }
-          else if (tag == "Attribute_M42F") {
-            tagType = StreamType.Tag.Attribute_M42F;
-          }
-          else if (tag == "Attribute_M43F") {
-            tagType = StreamType.Tag.Attribute_M43F;
-          }
-          else if (tag == "Attribute_M44F") {
-            tagType = StreamType.Tag.Attribute_M44F;
-          }
-          else throw new Exception("unknown constructor: " + tag);
           StreamType o = new StreamType();
           o.tag = tagType;
           return o;
         }
         case Type.ObjectArraySchema: {
           string tag = (string)obj["tag"];
-          ObjectArraySchema.Tag tagType;
-          if (tag == "ObjectArraySchema") {
-            tagType = ObjectArraySchema.Tag.ObjectArraySchema;
-            data.ObjectArraySchema tv = new data.ObjectArraySchema();
-            tv.primitive = (global::LambdaCube.PipelineSchema.FetchPrimitive)fromJSON(Type.FetchPrimitive,obj["primitive"]);
-            tv.attributes = (Dictionary<string, global::LambdaCube.PipelineSchema.StreamType>)fromJSON(Type.Map_String_StreamType,obj["attributes"]);
-            return tv;
+          switch (tag) {
+            case "ObjectArraySchema": {
+              data.ObjectArraySchema tv = new data.ObjectArraySchema();
+              tv.primitive = (global::LambdaCube.PipelineSchema.FetchPrimitive)fromJSON(Type.FetchPrimitive,obj["primitive"]);
+              tv.attributes = (Dictionary<string, global::LambdaCube.PipelineSchema.StreamType>)fromJSON(Type.Map_String_StreamType,obj["attributes"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          ObjectArraySchema o = new ObjectArraySchema();
-          o.tag = tagType;
-          return o;
         }
         case Type.PipelineSchema: {
           string tag = (string)obj["tag"];
-          PipelineSchema.Tag tagType;
-          if (tag == "PipelineSchema") {
-            tagType = PipelineSchema.Tag.PipelineSchema;
-            data.PipelineSchema tv = new data.PipelineSchema();
-            tv.objectArrays = (Dictionary<string, global::LambdaCube.PipelineSchema.ObjectArraySchema>)fromJSON(Type.Map_String_ObjectArraySchema,obj["objectArrays"]);
-            tv.uniforms = (Dictionary<string, global::LambdaCube.PipelineSchema.InputType>)fromJSON(Type.Map_String_InputType,obj["uniforms"]);
-            return tv;
+          switch (tag) {
+            case "PipelineSchema": {
+              data.PipelineSchema tv = new data.PipelineSchema();
+              tv.objectArrays = (Dictionary<string, global::LambdaCube.PipelineSchema.ObjectArraySchema>)fromJSON(Type.Map_String_ObjectArraySchema,obj["objectArrays"]);
+              tv.uniforms = (Dictionary<string, global::LambdaCube.PipelineSchema.InputType>)fromJSON(Type.Map_String_InputType,obj["uniforms"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          PipelineSchema o = new PipelineSchema();
-          o.tag = tagType;
-          return o;
         }
       }
       throw new Exception("unknown type");
diff --git a/ddl/out/LambdaCube.PipelineSchema.hpp b/ddl/out/LambdaCube.PipelineSchema.hpp
index d0777fe..2760daa 100644
--- a/ddl/out/LambdaCube.PipelineSchema.hpp
+++ b/ddl/out/LambdaCube.PipelineSchema.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 #ifndef HEADER_LambdaCube.PipelineSchema_H
 #define HEADER_LambdaCube.PipelineSchema_H
diff --git a/ddl/out/LambdaCube.PipelineSchema.hs b/ddl/out/LambdaCube.PipelineSchema.hs
index a7f3e40..9237fff 100644
--- a/ddl/out/LambdaCube.PipelineSchema.hs
+++ b/ddl/out/LambdaCube.PipelineSchema.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.137981000000Z
+-- 2016-03-21T13:31:10.293368000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.PipelineSchema where
diff --git a/ddl/out/LambdaCube.PipelineSchema.purs b/ddl/out/LambdaCube.PipelineSchema.purs
index f8c210b..c7a5b54 100644
--- a/ddl/out/LambdaCube.PipelineSchema.purs
+++ b/ddl/out/LambdaCube.PipelineSchema.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.137981000000Z
+-- 2016-03-21T13:31:10.293368000000Z
 
 module LambdaCube.PipelineSchema where
 import Prelude
diff --git a/ddl/out/LambdaCube.PipelineSchema.swift b/ddl/out/LambdaCube.PipelineSchema.swift
index 2a6e8f2..35906bb 100644
--- a/ddl/out/LambdaCube.PipelineSchema.swift
+++ b/ddl/out/LambdaCube.PipelineSchema.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 enum StreamType {
   case Attribute_Word
diff --git a/ddl/out/LambdaCube.PipelineSchema2.hpp b/ddl/out/LambdaCube.PipelineSchema2.hpp
index 05a4521..c3c1158 100644
--- a/ddl/out/LambdaCube.PipelineSchema2.hpp
+++ b/ddl/out/LambdaCube.PipelineSchema2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 #ifndef HEADER_LambdaCube.PipelineSchema_H
 #define HEADER_LambdaCube.PipelineSchema_H
diff --git a/ddl/out/LambdaCube.TypeInfo.cpp b/ddl/out/LambdaCube.TypeInfo.cpp
index 0cecc31..6c64556 100644
--- a/ddl/out/LambdaCube.TypeInfo.cpp
+++ b/ddl/out/LambdaCube.TypeInfo.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 #include "LambdaCube.TypeInfo.hpp"
 template<> json toJSON<std::shared_ptr<Range>>(std::shared_ptr<Range> &v) {
diff --git a/ddl/out/LambdaCube.TypeInfo.cs b/ddl/out/LambdaCube.TypeInfo.cs
index 70642a0..ed57f07 100644
--- a/ddl/out/LambdaCube.TypeInfo.cs
+++ b/ddl/out/LambdaCube.TypeInfo.cs
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 using System;
 using System.Linq;
@@ -85,60 +85,50 @@ namespace LambdaCube.TypeInfo {
 
         case Type.Range: {
           string tag = (string)obj["tag"];
-          Range.Tag tagType;
-          if (tag == "Range") {
-            tagType = Range.Tag.Range;
-            data.Range tv = new data.Range();
-            tv.startLine = (int)fromJSON(Type.Int,obj["startLine"]);
-            tv.startColumn = (int)fromJSON(Type.Int,obj["startColumn"]);
-            tv.endLine = (int)fromJSON(Type.Int,obj["endLine"]);
-            tv.endColumn = (int)fromJSON(Type.Int,obj["endColumn"]);
-            return tv;
+          switch (tag) {
+            case "Range": {
+              data.Range tv = new data.Range();
+              tv.startLine = (int)fromJSON(Type.Int,obj["startLine"]);
+              tv.startColumn = (int)fromJSON(Type.Int,obj["startColumn"]);
+              tv.endLine = (int)fromJSON(Type.Int,obj["endLine"]);
+              tv.endColumn = (int)fromJSON(Type.Int,obj["endColumn"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          Range o = new Range();
-          o.tag = tagType;
-          return o;
         }
         case Type.TypeInfo: {
           string tag = (string)obj["tag"];
-          TypeInfo.Tag tagType;
-          if (tag == "TypeInfo") {
-            tagType = TypeInfo.Tag.TypeInfo;
-            data.TypeInfo tv = new data.TypeInfo();
-            tv.range = (global::LambdaCube.TypeInfo.Range)fromJSON(Type.Range,obj["range"]);
-            tv.text = (string)fromJSON(Type.String,obj["text"]);
-            return tv;
+          switch (tag) {
+            case "TypeInfo": {
+              data.TypeInfo tv = new data.TypeInfo();
+              tv.range = (global::LambdaCube.TypeInfo.Range)fromJSON(Type.Range,obj["range"]);
+              tv.text = (string)fromJSON(Type.String,obj["text"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          TypeInfo o = new TypeInfo();
-          o.tag = tagType;
-          return o;
         }
         case Type.CompileResult: {
           string tag = (string)obj["tag"];
-          CompileResult.Tag tagType;
-          if (tag == "CompileError") {
-            tagType = CompileResult.Tag.CompileError;
-            data.CompileError tv = new data.CompileError();
-            tv._0 = (List<global::LambdaCube.TypeInfo.Range>)fromJSON(Type.Array_Range,obj["arg0"]);
-            tv._1 = (string)fromJSON(Type.String,obj["arg1"]);
-            tv._2 = (List<global::LambdaCube.TypeInfo.TypeInfo>)fromJSON(Type.Array_TypeInfo,obj["arg2"]);
-            return tv;
+          switch (tag) {
+            case "CompileError": {
+              data.CompileError tv = new data.CompileError();
+              tv._0 = (List<global::LambdaCube.TypeInfo.Range>)fromJSON(Type.Array_Range,obj["arg0"]);
+              tv._1 = (string)fromJSON(Type.String,obj["arg1"]);
+              tv._2 = (List<global::LambdaCube.TypeInfo.TypeInfo>)fromJSON(Type.Array_TypeInfo,obj["arg2"]);
+              return tv;
+            }
+            case "Compiled": {
+              data.Compiled tv = new data.Compiled();
+              tv._0 = (string)fromJSON(Type.String,obj["arg0"]);
+              tv._1 = (string)fromJSON(Type.String,obj["arg1"]);
+              tv._2 = (global::LambdaCube.TypeInfo.Pipeline)fromJSON(Type.Pipeline,obj["arg2"]);
+              tv._3 = (List<global::LambdaCube.TypeInfo.TypeInfo>)fromJSON(Type.Array_TypeInfo,obj["arg3"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "Compiled") {
-            tagType = CompileResult.Tag.Compiled;
-            data.Compiled tv = new data.Compiled();
-            tv._0 = (string)fromJSON(Type.String,obj["arg0"]);
-            tv._1 = (string)fromJSON(Type.String,obj["arg1"]);
-            tv._2 = (global::LambdaCube.TypeInfo.Pipeline)fromJSON(Type.Pipeline,obj["arg2"]);
-            tv._3 = (List<global::LambdaCube.TypeInfo.TypeInfo>)fromJSON(Type.Array_TypeInfo,obj["arg3"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          CompileResult o = new CompileResult();
-          o.tag = tagType;
-          return o;
         }
       }
       throw new Exception("unknown type");
diff --git a/ddl/out/LambdaCube.TypeInfo.hpp b/ddl/out/LambdaCube.TypeInfo.hpp
index c57870f..22518b9 100644
--- a/ddl/out/LambdaCube.TypeInfo.hpp
+++ b/ddl/out/LambdaCube.TypeInfo.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 #ifndef HEADER_LambdaCube.TypeInfo_H
 #define HEADER_LambdaCube.TypeInfo_H
diff --git a/ddl/out/LambdaCube.TypeInfo.hs b/ddl/out/LambdaCube.TypeInfo.hs
index db3c77f..0bd04f6 100644
--- a/ddl/out/LambdaCube.TypeInfo.hs
+++ b/ddl/out/LambdaCube.TypeInfo.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.260874000000Z
+-- 2016-03-21T13:31:10.409214000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.TypeInfo where
diff --git a/ddl/out/LambdaCube.TypeInfo.purs b/ddl/out/LambdaCube.TypeInfo.purs
index a2f85e3..4cbdd74 100644
--- a/ddl/out/LambdaCube.TypeInfo.purs
+++ b/ddl/out/LambdaCube.TypeInfo.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.260874000000Z
+-- 2016-03-21T13:31:10.409214000000Z
 
 module LambdaCube.TypeInfo where
 import Prelude
diff --git a/ddl/out/LambdaCube.TypeInfo.swift b/ddl/out/LambdaCube.TypeInfo.swift
index f024792..3eb10db 100644
--- a/ddl/out/LambdaCube.TypeInfo.swift
+++ b/ddl/out/LambdaCube.TypeInfo.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 enum Range {
   case Range(Range_Data)
diff --git a/ddl/out/LambdaCube.TypeInfo2.hpp b/ddl/out/LambdaCube.TypeInfo2.hpp
index cd2c26c..6ef3009 100644
--- a/ddl/out/LambdaCube.TypeInfo2.hpp
+++ b/ddl/out/LambdaCube.TypeInfo2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 #ifndef HEADER_LambdaCube.TypeInfo_H
 #define HEADER_LambdaCube.TypeInfo_H
diff --git a/ddl/out/TestData.cpp b/ddl/out/TestData.cpp
index 2ddf138..223df9f 100644
--- a/ddl/out/TestData.cpp
+++ b/ddl/out/TestData.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 #include "TestData.hpp"
 template<> json toJSON<std::shared_ptr<ClientInfo>>(std::shared_ptr<ClientInfo> &v) {
diff --git a/ddl/out/TestData.cs b/ddl/out/TestData.cs
index 7bb120f..c112934 100644
--- a/ddl/out/TestData.cs
+++ b/ddl/out/TestData.cs
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 using System;
 using System.Linq;
@@ -190,120 +190,98 @@ namespace TestData {
 
         case Type.ClientInfo: {
           string tag = (string)obj["tag"];
-          ClientInfo.Tag tagType;
-          if (tag == "ClientInfo") {
-            tagType = ClientInfo.Tag.ClientInfo;
-            data.ClientInfo tv = new data.ClientInfo();
-            tv.clientName = (string)fromJSON(Type.String,obj["clientName"]);
-            tv.clientBackend = (global::TestData.Backend)fromJSON(Type.Backend,obj["clientBackend"]);
-            return tv;
+          switch (tag) {
+            case "ClientInfo": {
+              data.ClientInfo tv = new data.ClientInfo();
+              tv.clientName = (string)fromJSON(Type.String,obj["clientName"]);
+              tv.clientBackend = (global::TestData.Backend)fromJSON(Type.Backend,obj["clientBackend"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          ClientInfo o = new ClientInfo();
-          o.tag = tagType;
-          return o;
         }
         case Type.Frame: {
           string tag = (string)obj["tag"];
-          Frame.Tag tagType;
-          if (tag == "Frame") {
-            tagType = Frame.Tag.Frame;
-            data.Frame tv = new data.Frame();
-            tv.renderCount = (int)fromJSON(Type.Int,obj["renderCount"]);
-            tv.frameUniforms = (Dictionary<string, global::TestData.Value>)fromJSON(Type.Map_String_Value,obj["frameUniforms"]);
-            tv.frameTextures = (Dictionary<string, int>)fromJSON(Type.Map_String_Int,obj["frameTextures"]);
-            return tv;
+          switch (tag) {
+            case "Frame": {
+              data.Frame tv = new data.Frame();
+              tv.renderCount = (int)fromJSON(Type.Int,obj["renderCount"]);
+              tv.frameUniforms = (Dictionary<string, global::TestData.Value>)fromJSON(Type.Map_String_Value,obj["frameUniforms"]);
+              tv.frameTextures = (Dictionary<string, int>)fromJSON(Type.Map_String_Int,obj["frameTextures"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          Frame o = new Frame();
-          o.tag = tagType;
-          return o;
         }
         case Type.Scene: {
           string tag = (string)obj["tag"];
-          Scene.Tag tagType;
-          if (tag == "Scene") {
-            tagType = Scene.Tag.Scene;
-            data.Scene tv = new data.Scene();
-            tv.objectArrays = (Dictionary<string, List<int>>)fromJSON(Type.Map_String_Array_Int,obj["objectArrays"]);
-            tv.renderTargetWidth = (int)fromJSON(Type.Int,obj["renderTargetWidth"]);
-            tv.renderTargetHeight = (int)fromJSON(Type.Int,obj["renderTargetHeight"]);
-            tv.frames = (List<global::TestData.Frame>)fromJSON(Type.Array_Frame,obj["frames"]);
-            return tv;
+          switch (tag) {
+            case "Scene": {
+              data.Scene tv = new data.Scene();
+              tv.objectArrays = (Dictionary<string, List<int>>)fromJSON(Type.Map_String_Array_Int,obj["objectArrays"]);
+              tv.renderTargetWidth = (int)fromJSON(Type.Int,obj["renderTargetWidth"]);
+              tv.renderTargetHeight = (int)fromJSON(Type.Int,obj["renderTargetHeight"]);
+              tv.frames = (List<global::TestData.Frame>)fromJSON(Type.Array_Frame,obj["frames"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          Scene o = new Scene();
-          o.tag = tagType;
-          return o;
         }
         case Type.PipelineInfo: {
           string tag = (string)obj["tag"];
-          PipelineInfo.Tag tagType;
-          if (tag == "PipelineInfo") {
-            tagType = PipelineInfo.Tag.PipelineInfo;
-            data.PipelineInfo tv = new data.PipelineInfo();
-            tv.pipelineName = (string)fromJSON(Type.String,obj["pipelineName"]);
-            tv.pipeline = (global::TestData.Pipeline)fromJSON(Type.Pipeline,obj["pipeline"]);
-            return tv;
+          switch (tag) {
+            case "PipelineInfo": {
+              data.PipelineInfo tv = new data.PipelineInfo();
+              tv.pipelineName = (string)fromJSON(Type.String,obj["pipelineName"]);
+              tv.pipeline = (global::TestData.Pipeline)fromJSON(Type.Pipeline,obj["pipeline"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          PipelineInfo o = new PipelineInfo();
-          o.tag = tagType;
-          return o;
         }
         case Type.RenderJob: {
           string tag = (string)obj["tag"];
-          RenderJob.Tag tagType;
-          if (tag == "RenderJob") {
-            tagType = RenderJob.Tag.RenderJob;
-            data.RenderJob tv = new data.RenderJob();
-            tv.meshes = (List<global::TestData.Mesh>)fromJSON(Type.Array_Mesh,obj["meshes"]);
-            tv.textures = (List<string>)fromJSON(Type.Array_String,obj["textures"]);
-            tv.schema = (global::TestData.PipelineSchema)fromJSON(Type.PipelineSchema,obj["schema"]);
-            tv.scenes = (List<global::TestData.Scene>)fromJSON(Type.Array_Scene,obj["scenes"]);
-            tv.pipelines = (List<global::TestData.PipelineInfo>)fromJSON(Type.Array_PipelineInfo,obj["pipelines"]);
-            return tv;
+          switch (tag) {
+            case "RenderJob": {
+              data.RenderJob tv = new data.RenderJob();
+              tv.meshes = (List<global::TestData.Mesh>)fromJSON(Type.Array_Mesh,obj["meshes"]);
+              tv.textures = (List<string>)fromJSON(Type.Array_String,obj["textures"]);
+              tv.schema = (global::TestData.PipelineSchema)fromJSON(Type.PipelineSchema,obj["schema"]);
+              tv.scenes = (List<global::TestData.Scene>)fromJSON(Type.Array_Scene,obj["scenes"]);
+              tv.pipelines = (List<global::TestData.PipelineInfo>)fromJSON(Type.Array_PipelineInfo,obj["pipelines"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          RenderJob o = new RenderJob();
-          o.tag = tagType;
-          return o;
         }
         case Type.FrameResult: {
           string tag = (string)obj["tag"];
-          FrameResult.Tag tagType;
-          if (tag == "FrameResult") {
-            tagType = FrameResult.Tag.FrameResult;
-            data.FrameResult tv = new data.FrameResult();
-            tv.frRenderTimes = (List<float>)fromJSON(Type.Array_Float,obj["frRenderTimes"]);
-            tv.frImageWidth = (int)fromJSON(Type.Int,obj["frImageWidth"]);
-            tv.frImageHeight = (int)fromJSON(Type.Int,obj["frImageHeight"]);
-            return tv;
+          switch (tag) {
+            case "FrameResult": {
+              data.FrameResult tv = new data.FrameResult();
+              tv.frRenderTimes = (List<float>)fromJSON(Type.Array_Float,obj["frRenderTimes"]);
+              tv.frImageWidth = (int)fromJSON(Type.Int,obj["frImageWidth"]);
+              tv.frImageHeight = (int)fromJSON(Type.Int,obj["frImageHeight"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else throw new Exception("unknown constructor: " + tag);
-          FrameResult o = new FrameResult();
-          o.tag = tagType;
-          return o;
         }
         case Type.RenderJobResult: {
           string tag = (string)obj["tag"];
-          RenderJobResult.Tag tagType;
-          if (tag == "RenderJobResult") {
-            tagType = RenderJobResult.Tag.RenderJobResult;
-            data.RenderJobResult tv = new data.RenderJobResult();
-            tv._0 = (global::TestData.FrameResult)fromJSON(Type.FrameResult,obj["arg0"]);
-            return tv;
+          switch (tag) {
+            case "RenderJobResult": {
+              data.RenderJobResult tv = new data.RenderJobResult();
+              tv._0 = (global::TestData.FrameResult)fromJSON(Type.FrameResult,obj["arg0"]);
+              return tv;
+            }
+            case "RenderJobError": {
+              data.RenderJobError tv = new data.RenderJobError();
+              tv._0 = (string)fromJSON(Type.String,obj["arg0"]);
+              return tv;
+            }
+            default: throw new Exception("unknown constructor: " + tag);
           }
-          else if (tag == "RenderJobError") {
-            tagType = RenderJobResult.Tag.RenderJobError;
-            data.RenderJobError tv = new data.RenderJobError();
-            tv._0 = (string)fromJSON(Type.String,obj["arg0"]);
-            return tv;
-          }
-          else throw new Exception("unknown constructor: " + tag);
-          RenderJobResult o = new RenderJobResult();
-          o.tag = tagType;
-          return o;
         }
       }
       throw new Exception("unknown type");
diff --git a/ddl/out/TestData.hpp b/ddl/out/TestData.hpp
index d1645fe..c28b8d2 100644
--- a/ddl/out/TestData.hpp
+++ b/ddl/out/TestData.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 #ifndef HEADER_TestData_H
 #define HEADER_TestData_H
diff --git a/ddl/out/TestData.hs b/ddl/out/TestData.hs
index 75bc9be..3a4ec43 100644
--- a/ddl/out/TestData.hs
+++ b/ddl/out/TestData.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.341517000000Z
+-- 2016-03-21T13:31:10.455557000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module TestData where
diff --git a/ddl/out/TestData.purs b/ddl/out/TestData.purs
index b3204bc..f909f30 100644
--- a/ddl/out/TestData.purs
+++ b/ddl/out/TestData.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-03-21T13:14:18.341517000000Z
+-- 2016-03-21T13:31:10.455557000000Z
 
 module TestData where
 import Prelude
diff --git a/ddl/out/TestData.swift b/ddl/out/TestData.swift
index 918287d..d02a684 100644
--- a/ddl/out/TestData.swift
+++ b/ddl/out/TestData.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 enum ClientInfo {
   case ClientInfo(ClientInfo_Data)
diff --git a/ddl/out/TestData2.hpp b/ddl/out/TestData2.hpp
index 2e49ab6..d5a84c4 100644
--- a/ddl/out/TestData2.hpp
+++ b/ddl/out/TestData2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 #ifndef HEADER_TestData_H
 #define HEADER_TestData_H
diff --git a/ddl/out/java/LambdaCube/IR/AccumulationContext.java b/ddl/out/java/LambdaCube/IR/AccumulationContext.java
index 370a7e7..4b35c4c 100644
--- a/ddl/out/java/LambdaCube/IR/AccumulationContext.java
+++ b/ddl/out/java/LambdaCube/IR/AccumulationContext.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ArrayValue.java b/ddl/out/java/LambdaCube/IR/ArrayValue.java
index 04c7176..4bdf944 100644
--- a/ddl/out/java/LambdaCube/IR/ArrayValue.java
+++ b/ddl/out/java/LambdaCube/IR/ArrayValue.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Backend.java b/ddl/out/java/LambdaCube/IR/Backend.java
index 91645c0..dcc58d7 100644
--- a/ddl/out/java/LambdaCube/IR/Backend.java
+++ b/ddl/out/java/LambdaCube/IR/Backend.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/BlendEquation.java b/ddl/out/java/LambdaCube/IR/BlendEquation.java
index 1c93189..138f3cb 100644
--- a/ddl/out/java/LambdaCube/IR/BlendEquation.java
+++ b/ddl/out/java/LambdaCube/IR/BlendEquation.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Blending.java b/ddl/out/java/LambdaCube/IR/Blending.java
index 58c208f..d30b963 100644
--- a/ddl/out/java/LambdaCube/IR/Blending.java
+++ b/ddl/out/java/LambdaCube/IR/Blending.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/BlendingFactor.java b/ddl/out/java/LambdaCube/IR/BlendingFactor.java
index 1283737..8c02971 100644
--- a/ddl/out/java/LambdaCube/IR/BlendingFactor.java
+++ b/ddl/out/java/LambdaCube/IR/BlendingFactor.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ClearImage.java b/ddl/out/java/LambdaCube/IR/ClearImage.java
index d8db2b9..48fdbe1 100644
--- a/ddl/out/java/LambdaCube/IR/ClearImage.java
+++ b/ddl/out/java/LambdaCube/IR/ClearImage.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ColorArity.java b/ddl/out/java/LambdaCube/IR/ColorArity.java
index 3ded450..dee0704 100644
--- a/ddl/out/java/LambdaCube/IR/ColorArity.java
+++ b/ddl/out/java/LambdaCube/IR/ColorArity.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Command.java b/ddl/out/java/LambdaCube/IR/Command.java
index 39d70fd..407059f 100644
--- a/ddl/out/java/LambdaCube/IR/Command.java
+++ b/ddl/out/java/LambdaCube/IR/Command.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ComparisonFunction.java b/ddl/out/java/LambdaCube/IR/ComparisonFunction.java
index 46bed68..ecd2947 100644
--- a/ddl/out/java/LambdaCube/IR/ComparisonFunction.java
+++ b/ddl/out/java/LambdaCube/IR/ComparisonFunction.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/CullMode.java b/ddl/out/java/LambdaCube/IR/CullMode.java
index 6b0623c..10f7630 100644
--- a/ddl/out/java/LambdaCube/IR/CullMode.java
+++ b/ddl/out/java/LambdaCube/IR/CullMode.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/EdgeMode.java b/ddl/out/java/LambdaCube/IR/EdgeMode.java
index adf7f82..1c597a6 100644
--- a/ddl/out/java/LambdaCube/IR/EdgeMode.java
+++ b/ddl/out/java/LambdaCube/IR/EdgeMode.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/FetchPrimitive.java b/ddl/out/java/LambdaCube/IR/FetchPrimitive.java
index a142a91..bfd60ee 100644
--- a/ddl/out/java/LambdaCube/IR/FetchPrimitive.java
+++ b/ddl/out/java/LambdaCube/IR/FetchPrimitive.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Filter.java b/ddl/out/java/LambdaCube/IR/Filter.java
index b79fe17..19e692b 100644
--- a/ddl/out/java/LambdaCube/IR/Filter.java
+++ b/ddl/out/java/LambdaCube/IR/Filter.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/FragmentOperation.java b/ddl/out/java/LambdaCube/IR/FragmentOperation.java
index a098e99..42c5738 100644
--- a/ddl/out/java/LambdaCube/IR/FragmentOperation.java
+++ b/ddl/out/java/LambdaCube/IR/FragmentOperation.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/FrontFace.java b/ddl/out/java/LambdaCube/IR/FrontFace.java
index 6979742..fca8e14 100644
--- a/ddl/out/java/LambdaCube/IR/FrontFace.java
+++ b/ddl/out/java/LambdaCube/IR/FrontFace.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ImageRef.java b/ddl/out/java/LambdaCube/IR/ImageRef.java
index b5f1ebf..1da3948 100644
--- a/ddl/out/java/LambdaCube/IR/ImageRef.java
+++ b/ddl/out/java/LambdaCube/IR/ImageRef.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ImageSemantic.java b/ddl/out/java/LambdaCube/IR/ImageSemantic.java
index 4eda2b3..b17b954 100644
--- a/ddl/out/java/LambdaCube/IR/ImageSemantic.java
+++ b/ddl/out/java/LambdaCube/IR/ImageSemantic.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/InputType.java b/ddl/out/java/LambdaCube/IR/InputType.java
index eb55ab1..38e1cdb 100644
--- a/ddl/out/java/LambdaCube/IR/InputType.java
+++ b/ddl/out/java/LambdaCube/IR/InputType.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/JSON.java b/ddl/out/java/LambdaCube/IR/JSON.java
index ad4622c..f5f7967 100644
--- a/ddl/out/java/LambdaCube/IR/JSON.java
+++ b/ddl/out/java/LambdaCube/IR/JSON.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/LogicOperation.java b/ddl/out/java/LambdaCube/IR/LogicOperation.java
index 5f89372..564f069 100644
--- a/ddl/out/java/LambdaCube/IR/LogicOperation.java
+++ b/ddl/out/java/LambdaCube/IR/LogicOperation.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/MipMap.java b/ddl/out/java/LambdaCube/IR/MipMap.java
index 3ea426a..fdfa90b 100644
--- a/ddl/out/java/LambdaCube/IR/MipMap.java
+++ b/ddl/out/java/LambdaCube/IR/MipMap.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/OutputPrimitive.java b/ddl/out/java/LambdaCube/IR/OutputPrimitive.java
index c3e2fc9..80b9233 100644
--- a/ddl/out/java/LambdaCube/IR/OutputPrimitive.java
+++ b/ddl/out/java/LambdaCube/IR/OutputPrimitive.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Parameter.java b/ddl/out/java/LambdaCube/IR/Parameter.java
index fb57062..6eb1e8b 100644
--- a/ddl/out/java/LambdaCube/IR/Parameter.java
+++ b/ddl/out/java/LambdaCube/IR/Parameter.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Pipeline.java b/ddl/out/java/LambdaCube/IR/Pipeline.java
index d5d697f..020df55 100644
--- a/ddl/out/java/LambdaCube/IR/Pipeline.java
+++ b/ddl/out/java/LambdaCube/IR/Pipeline.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/PointSize.java b/ddl/out/java/LambdaCube/IR/PointSize.java
index 25fc231..4f2981d 100644
--- a/ddl/out/java/LambdaCube/IR/PointSize.java
+++ b/ddl/out/java/LambdaCube/IR/PointSize.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java b/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java
index 24f1a1a..7145e2d 100644
--- a/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java
+++ b/ddl/out/java/LambdaCube/IR/PointSpriteCoordOrigin.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/PolygonMode.java b/ddl/out/java/LambdaCube/IR/PolygonMode.java
index 68c21d1..8e8bda0 100644
--- a/ddl/out/java/LambdaCube/IR/PolygonMode.java
+++ b/ddl/out/java/LambdaCube/IR/PolygonMode.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/PolygonOffset.java b/ddl/out/java/LambdaCube/IR/PolygonOffset.java
index c96984d..d5898ae 100644
--- a/ddl/out/java/LambdaCube/IR/PolygonOffset.java
+++ b/ddl/out/java/LambdaCube/IR/PolygonOffset.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Program.java b/ddl/out/java/LambdaCube/IR/Program.java
index 1b4e431..48f9e44 100644
--- a/ddl/out/java/LambdaCube/IR/Program.java
+++ b/ddl/out/java/LambdaCube/IR/Program.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/ProvokingVertex.java b/ddl/out/java/LambdaCube/IR/ProvokingVertex.java
index c602610..44c33a2 100644
--- a/ddl/out/java/LambdaCube/IR/ProvokingVertex.java
+++ b/ddl/out/java/LambdaCube/IR/ProvokingVertex.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/RasterContext.java b/ddl/out/java/LambdaCube/IR/RasterContext.java
index 32d05e7..bd1b381 100644
--- a/ddl/out/java/LambdaCube/IR/RasterContext.java
+++ b/ddl/out/java/LambdaCube/IR/RasterContext.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/RenderTarget.java b/ddl/out/java/LambdaCube/IR/RenderTarget.java
index 4b91fb4..3a430f5 100644
--- a/ddl/out/java/LambdaCube/IR/RenderTarget.java
+++ b/ddl/out/java/LambdaCube/IR/RenderTarget.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java b/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java
index 0424cb0..d531106 100644
--- a/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java
+++ b/ddl/out/java/LambdaCube/IR/SamplerDescriptor.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Slot.java b/ddl/out/java/LambdaCube/IR/Slot.java
index 16fa1d5..d5226fa 100644
--- a/ddl/out/java/LambdaCube/IR/Slot.java
+++ b/ddl/out/java/LambdaCube/IR/Slot.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/StencilOperation.java b/ddl/out/java/LambdaCube/IR/StencilOperation.java
index 35224f8..3b2c9d7 100644
--- a/ddl/out/java/LambdaCube/IR/StencilOperation.java
+++ b/ddl/out/java/LambdaCube/IR/StencilOperation.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/StencilOps.java b/ddl/out/java/LambdaCube/IR/StencilOps.java
index 4eb2e46..6759674 100644
--- a/ddl/out/java/LambdaCube/IR/StencilOps.java
+++ b/ddl/out/java/LambdaCube/IR/StencilOps.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/StencilTest.java b/ddl/out/java/LambdaCube/IR/StencilTest.java
index f6107e5..275e52e 100644
--- a/ddl/out/java/LambdaCube/IR/StencilTest.java
+++ b/ddl/out/java/LambdaCube/IR/StencilTest.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/StencilTests.java b/ddl/out/java/LambdaCube/IR/StencilTests.java
index a64efdd..35304b5 100644
--- a/ddl/out/java/LambdaCube/IR/StencilTests.java
+++ b/ddl/out/java/LambdaCube/IR/StencilTests.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/StreamData.java b/ddl/out/java/LambdaCube/IR/StreamData.java
index 8904a4c..8f48d54 100644
--- a/ddl/out/java/LambdaCube/IR/StreamData.java
+++ b/ddl/out/java/LambdaCube/IR/StreamData.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/TargetItem.java b/ddl/out/java/LambdaCube/IR/TargetItem.java
index 8fdb7d6..89705b5 100644
--- a/ddl/out/java/LambdaCube/IR/TargetItem.java
+++ b/ddl/out/java/LambdaCube/IR/TargetItem.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/TextureDataType.java b/ddl/out/java/LambdaCube/IR/TextureDataType.java
index 14dd217..f4b2e15 100644
--- a/ddl/out/java/LambdaCube/IR/TextureDataType.java
+++ b/ddl/out/java/LambdaCube/IR/TextureDataType.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/TextureDescriptor.java b/ddl/out/java/LambdaCube/IR/TextureDescriptor.java
index 1283e48..d8df081 100644
--- a/ddl/out/java/LambdaCube/IR/TextureDescriptor.java
+++ b/ddl/out/java/LambdaCube/IR/TextureDescriptor.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/TextureType.java b/ddl/out/java/LambdaCube/IR/TextureType.java
index c250571..a17600a 100644
--- a/ddl/out/java/LambdaCube/IR/TextureType.java
+++ b/ddl/out/java/LambdaCube/IR/TextureType.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/IR/Value.java b/ddl/out/java/LambdaCube/IR/Value.java
index 68dc3c7..d4b809e 100644
--- a/ddl/out/java/LambdaCube/IR/Value.java
+++ b/ddl/out/java/LambdaCube/IR/Value.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:17.421561000000Z
+// 2016-03-21T13:31:09.634879000000Z
 
 package LambdaCube.IR;
 
diff --git a/ddl/out/java/LambdaCube/Mesh/JSON.java b/ddl/out/java/LambdaCube/Mesh/JSON.java
index 64af069..d46b506 100644
--- a/ddl/out/java/LambdaCube/Mesh/JSON.java
+++ b/ddl/out/java/LambdaCube/Mesh/JSON.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 package LambdaCube.Mesh;
 
diff --git a/ddl/out/java/LambdaCube/Mesh/Mesh.java b/ddl/out/java/LambdaCube/Mesh/Mesh.java
index 1ecb273..00bd352 100644
--- a/ddl/out/java/LambdaCube/Mesh/Mesh.java
+++ b/ddl/out/java/LambdaCube/Mesh/Mesh.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 package LambdaCube.Mesh;
 
diff --git a/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java b/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java
index b618bda..b6d3585 100644
--- a/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java
+++ b/ddl/out/java/LambdaCube/Mesh/MeshAttribute.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 package LambdaCube.Mesh;
 
diff --git a/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java b/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java
index eeaf0f9..90a2797 100644
--- a/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java
+++ b/ddl/out/java/LambdaCube/Mesh/MeshPrimitive.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.184851000000Z
+// 2016-03-21T13:31:10.335329000000Z
 
 package LambdaCube.Mesh;
 
diff --git a/ddl/out/java/LambdaCube/PipelineSchema/JSON.java b/ddl/out/java/LambdaCube/PipelineSchema/JSON.java
index afc8c0a..346f719 100644
--- a/ddl/out/java/LambdaCube/PipelineSchema/JSON.java
+++ b/ddl/out/java/LambdaCube/PipelineSchema/JSON.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 package LambdaCube.PipelineSchema;
 
diff --git a/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java b/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java
index ad34f07..282cfe6 100644
--- a/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java
+++ b/ddl/out/java/LambdaCube/PipelineSchema/ObjectArraySchema.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 package LambdaCube.PipelineSchema;
 
diff --git a/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java b/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java
index 732e212..3128d7f 100644
--- a/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java
+++ b/ddl/out/java/LambdaCube/PipelineSchema/PipelineSchema.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 package LambdaCube.PipelineSchema;
 
diff --git a/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java b/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java
index 4187857..f8d8e8f 100644
--- a/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java
+++ b/ddl/out/java/LambdaCube/PipelineSchema/StreamType.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.137981000000Z
+// 2016-03-21T13:31:10.293368000000Z
 
 package LambdaCube.PipelineSchema;
 
diff --git a/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java b/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java
index 58713d9..c9e7b2d 100644
--- a/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java
+++ b/ddl/out/java/LambdaCube/TypeInfo/CompileResult.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 package LambdaCube.TypeInfo;
 
diff --git a/ddl/out/java/LambdaCube/TypeInfo/JSON.java b/ddl/out/java/LambdaCube/TypeInfo/JSON.java
index 9a2fa6c..ba6b3d6 100644
--- a/ddl/out/java/LambdaCube/TypeInfo/JSON.java
+++ b/ddl/out/java/LambdaCube/TypeInfo/JSON.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 package LambdaCube.TypeInfo;
 
diff --git a/ddl/out/java/LambdaCube/TypeInfo/Range.java b/ddl/out/java/LambdaCube/TypeInfo/Range.java
index 901980f..3ecd9b0 100644
--- a/ddl/out/java/LambdaCube/TypeInfo/Range.java
+++ b/ddl/out/java/LambdaCube/TypeInfo/Range.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 package LambdaCube.TypeInfo;
 
diff --git a/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java b/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java
index 2998902..c06980e 100644
--- a/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java
+++ b/ddl/out/java/LambdaCube/TypeInfo/TypeInfo.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.260874000000Z
+// 2016-03-21T13:31:10.409214000000Z
 
 package LambdaCube.TypeInfo;
 
diff --git a/ddl/out/java/TestData/ClientInfo.java b/ddl/out/java/TestData/ClientInfo.java
index d842f81..f054e9f 100644
--- a/ddl/out/java/TestData/ClientInfo.java
+++ b/ddl/out/java/TestData/ClientInfo.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/Frame.java b/ddl/out/java/TestData/Frame.java
index af71eda..d9f22de 100644
--- a/ddl/out/java/TestData/Frame.java
+++ b/ddl/out/java/TestData/Frame.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/FrameResult.java b/ddl/out/java/TestData/FrameResult.java
index d21d8c9..41748d6 100644
--- a/ddl/out/java/TestData/FrameResult.java
+++ b/ddl/out/java/TestData/FrameResult.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/JSON.java b/ddl/out/java/TestData/JSON.java
index 7f3e27c..011b471 100644
--- a/ddl/out/java/TestData/JSON.java
+++ b/ddl/out/java/TestData/JSON.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/PipelineInfo.java b/ddl/out/java/TestData/PipelineInfo.java
index 92dea76..b49e3cd 100644
--- a/ddl/out/java/TestData/PipelineInfo.java
+++ b/ddl/out/java/TestData/PipelineInfo.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/RenderJob.java b/ddl/out/java/TestData/RenderJob.java
index 3152459..c6b2504 100644
--- a/ddl/out/java/TestData/RenderJob.java
+++ b/ddl/out/java/TestData/RenderJob.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/RenderJobResult.java b/ddl/out/java/TestData/RenderJobResult.java
index 346b609..25e8fc2 100644
--- a/ddl/out/java/TestData/RenderJobResult.java
+++ b/ddl/out/java/TestData/RenderJobResult.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/out/java/TestData/Scene.java b/ddl/out/java/TestData/Scene.java
index 57d1e0b..87bf983 100644
--- a/ddl/out/java/TestData/Scene.java
+++ b/ddl/out/java/TestData/Scene.java
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-03-21T13:14:18.341517000000Z
+// 2016-03-21T13:31:10.455557000000Z
 
 package TestData;
 
diff --git a/ddl/templates/data.cs.ede b/ddl/templates/data.cs.ede
index 74e0dac..08dc42c 100644
--- a/ddl/templates/data.cs.ede
+++ b/ddl/templates/data.cs.ede
@@ -95,22 +95,27 @@ namespace {{ moduleName }} {
         {% for t in definitions %}
         case Type.{{ t.value.dataName }}: {
           string tag = (string)obj["tag"];
+          {% if t.value | hasEnumConstructor %}
           {{ t.value.dataName }}.Tag tagType;
+          {% endif %}
+          switch (tag) {
           {% for c in t.value.constructors %}
-          {% if !c.first %}else {% endif %}if (tag == "{{ c.value.name }}") {
-            tagType = {{ t.value.dataName }}.Tag.{{ c.value.name }};
-            {% if !(c.value.fields | empty) %}
-            data.{{ c.value.name }} tv = new data.{{ c.value.name }}();{% for f in c.value.fields %}{% if c.value.fields | hasFieldNames %}
-            tv.{{ f.value.fieldName }} = ({{ f.value.fieldType | csType }})fromJSON(Type.{{ f.value.fieldType | typeEnum }},obj["{{ f.value.fieldName }}"]);{% else %}
-            tv._{{ f.index0 }} = ({{ f.value.fieldType | csType }})fromJSON(Type.{{ f.value.fieldType | typeEnum }},obj["arg{{ f.index0 }}"]);{% endif %}{% endfor %}
-            return tv;
+            case "{{ c.value.name }}":{% if (c.value.fields | empty) %} tagType = {{ t.value.dataName }}.Tag.{{ c.value.name }}; break;
+{% else %} {
+              data.{{ c.value.name }} tv = new data.{{ c.value.name }}();{% for f in c.value.fields %}{% if c.value.fields | hasFieldNames %}
+              tv.{{ f.value.fieldName }} = ({{ f.value.fieldType | csType }})fromJSON(Type.{{ f.value.fieldType | typeEnum }},obj["{{ f.value.fieldName }}"]);{% else %}
+              tv._{{ f.index0 }} = ({{ f.value.fieldType | csType }})fromJSON(Type.{{ f.value.fieldType | typeEnum }},obj["arg{{ f.index0 }}"]);{% endif %}{% endfor %}
+              return tv;
+            }
             {% endif %}
-          }
           {% endfor %}
-          else throw new Exception("unknown constructor: " + tag);
+            default: throw new Exception("unknown constructor: " + tag);
+          }
+          {% if t.value | hasEnumConstructor %}
           {{ t.value.dataName }} o = new {{ t.value.dataName }}();
           o.tag = tagType;
           return o;
+          {% endif %}
         }
         {% endfor %}
       }