generate into separate folders for each language, generates folder hierarchy for haskell and purescript modules

41 files changed, 15 insertions, 1183 deletions

diff --git a/ddl/Generate.hs b/ddl/Generate.hs
index 261c2e5..b276324 100644
--- a/ddl/Generate.hs
+++ b/ddl/Generate.hs
@@ -61,8 +61,15 @@ main = do
                 , "swiftType"       @: swiftType aliasMap
                 , "hasEnumConstructor" @: hasEnumConstructor
                 ]
+
+            toPath a = flip map a $ \case
+              '.' -> '/'
+              c -> c
+
             writeFileIfDiffer fname txt = doesFileExist fname >>= \case
-              False -> writeFile fname txt
+              False -> do
+                        createDirectoryIfMissing True $ takeDirectory fname
+                        writeFile fname txt
               True  -> do
                         oldTxt <- readFile fname
                         case (lines oldTxt, lines txt) of
@@ -70,17 +77,14 @@ main = do
                           _ -> removeFile fname >> writeFile fname txt
 
         -- Haskell
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".hs") $ LText.unpack x) $ dataHs >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/haskell/" ++ toPath name ++ ".hs") $ LText.unpack x) $ dataHs >>= (\t -> eitherRenderWith mylib t env)
         -- Purescript
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".purs") $ LText.unpack x) $ dataPs >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/purescript/" ++ toPath name ++ ".purs") $ LText.unpack x) $ dataPs >>= (\t -> eitherRenderWith mylib t env)
         -- C++
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ "2.hpp") $ LText.unpack x) $ dataHpp2 >>= (\t -> eitherRenderWith mylib t env)
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".hpp") $ LText.unpack x) $ dataHpp >>= (\t -> eitherRenderWith mylib t env)
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".cpp") $ LText.unpack x) $ dataCpp >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/cpp/" ++ name ++ "2.hpp") $ LText.unpack x) $ dataHpp2 >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/cpp/" ++ name ++ ".hpp") $ LText.unpack x) $ dataHpp >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/cpp/" ++ name ++ ".cpp") $ LText.unpack x) $ dataCpp >>= (\t -> eitherRenderWith mylib t env)
         -- Java
-        let toPath a = flip map a $ \case
-              '.' -> '/'
-              c -> c
         forM_ [a | a@DataDef{} <- def {-TODO-}] $ \d -> do
           let env = fromPairs
                 [ "def"         .= d
@@ -89,12 +93,10 @@ main = do
                 , "imports"     .= imports
                 ]
               fname = "out/java/" ++ toPath name ++ "/" ++ dataName d ++ ".java"
-              dir = takeDirectory fname
-          createDirectoryIfMissing True dir
           either error (\x -> writeFileIfDiffer fname $ LText.unpack x) $ dataJava >>= (\t -> eitherRenderWith mylib t env)
         either error (\x -> writeFileIfDiffer ("out/java/" ++ toPath name ++ "/JSON.java") $ LText.unpack x) $ jsonJava >>= (\t -> eitherRenderWith mylib t env)
         -- C#
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".cs") $ LText.unpack x) $ dataCs >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/csharp/" ++ name ++ ".cs") $ LText.unpack x) $ dataCs >>= (\t -> eitherRenderWith mylib t env)
         -- Swift
-        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".swift") $ LText.unpack x) $ dataSwift >>= (\t -> eitherRenderWith mylib t env)
+        either error (\x -> writeFileIfDiffer ("out/swift/" ++ name ++ ".swift") $ LText.unpack x) $ dataSwift >>= (\t -> eitherRenderWith mylib t env)
   mapM_ generate $ execWriter modules
diff --git a/ddl/out/LambdaCube.IR.java b/ddl/out/LambdaCube.IR.java
deleted file mode 100644
index b819bcb..0000000
--- a/ddl/out/LambdaCube.IR.java
+++ /dev/null
@@ -1,877 +0,0 @@
-// generated file, do not modify!
-// 2016-03-14T10:58:29.577511000000Z
-
-
-public class LambdaCube.IR {
-  public class ArrayValue {
-    public enum Tag { 
-      VBoolArray,
-      VIntArray,
-      VWordArray,
-      VFloatArray
-    }
-    public Tag tag;
-
-    public class VBoolArray extends ArrayValue { 
-      public ArrayList<Boolean> _0;
-    }
-    public class VIntArray extends ArrayValue { 
-      public ArrayList<Integer> _0;
-    }
-    public class VWordArray extends ArrayValue { 
-      public ArrayList<Integer> _0;
-    }
-    public class VFloatArray extends ArrayValue { 
-      public ArrayList<Float> _0;
-    }
-  }
-
-  public class Value {
-    public enum Tag { 
-      VBool,
-      VV2B,
-      VV3B,
-      VV4B,
-      VWord,
-      VV2U,
-      VV3U,
-      VV4U,
-      VInt,
-      VV2I,
-      VV3I,
-      VV4I,
-      VFloat,
-      VV2F,
-      VV3F,
-      VV4F,
-      VM22F,
-      VM23F,
-      VM24F,
-      VM32F,
-      VM33F,
-      VM34F,
-      VM42F,
-      VM43F,
-      VM44F
-    }
-    public Tag tag;
-
-    public class VBool extends Value { 
-      public Boolean _0;
-    }
-    public class VV2B extends Value { 
-      public int _0;
-    }
-    public class VV3B extends Value { 
-      public int _0;
-    }
-    public class VV4B extends Value { 
-      public int _0;
-    }
-    public class VWord extends Value { 
-      public Integer _0;
-    }
-    public class VV2U extends Value { 
-      public int _0;
-    }
-    public class VV3U extends Value { 
-      public int _0;
-    }
-    public class VV4U extends Value { 
-      public int _0;
-    }
-    public class VInt extends Value { 
-      public Integer _0;
-    }
-    public class VV2I extends Value { 
-      public int _0;
-    }
-    public class VV3I extends Value { 
-      public int _0;
-    }
-    public class VV4I extends Value { 
-      public int _0;
-    }
-    public class VFloat extends Value { 
-      public Float _0;
-    }
-    public class VV2F extends Value { 
-      public int _0;
-    }
-    public class VV3F extends Value { 
-      public int _0;
-    }
-    public class VV4F extends Value { 
-      public int _0;
-    }
-    public class VM22F extends Value { 
-      public int _0;
-    }
-    public class VM23F extends Value { 
-      public int _0;
-    }
-    public class VM24F extends Value { 
-      public int _0;
-    }
-    public class VM32F extends Value { 
-      public int _0;
-    }
-    public class VM33F extends Value { 
-      public int _0;
-    }
-    public class VM34F extends Value { 
-      public int _0;
-    }
-    public class VM42F extends Value { 
-      public int _0;
-    }
-    public class VM43F extends Value { 
-      public int _0;
-    }
-    public class VM44F extends Value { 
-      public int _0;
-    }
-  }
-
-  public class InputType {
-    public enum Tag { 
-      Bool,
-      V2B,
-      V3B,
-      V4B,
-      Word,
-      V2U,
-      V3U,
-      V4U,
-      Int,
-      V2I,
-      V3I,
-      V4I,
-      Float,
-      V2F,
-      V3F,
-      V4F,
-      M22F,
-      M23F,
-      M24F,
-      M32F,
-      M33F,
-      M34F,
-      M42F,
-      M43F,
-      M44F,
-      STexture1D,
-      STexture2D,
-      STextureCube,
-      STexture1DArray,
-      STexture2DArray,
-      STexture2DRect,
-      FTexture1D,
-      FTexture2D,
-      FTexture3D,
-      FTextureCube,
-      FTexture1DArray,
-      FTexture2DArray,
-      FTexture2DMS,
-      FTexture2DMSArray,
-      FTextureBuffer,
-      FTexture2DRect,
-      ITexture1D,
-      ITexture2D,
-      ITexture3D,
-      ITextureCube,
-      ITexture1DArray,
-      ITexture2DArray,
-      ITexture2DMS,
-      ITexture2DMSArray,
-      ITextureBuffer,
-      ITexture2DRect,
-      UTexture1D,
-      UTexture2D,
-      UTexture3D,
-      UTextureCube,
-      UTexture1DArray,
-      UTexture2DArray,
-      UTexture2DMS,
-      UTexture2DMSArray,
-      UTextureBuffer,
-      UTexture2DRect
-    }
-    public Tag tag;
-
-  }
-
-  public class PointSpriteCoordOrigin {
-    public enum Tag { 
-      LowerLeft,
-      UpperLeft
-    }
-    public Tag tag;
-
-  }
-
-  public class PointSize {
-    public enum Tag { 
-      PointSize,
-      ProgramPointSize
-    }
-    public Tag tag;
-
-    public class PointSize extends PointSize { 
-      public Float _0;
-    }
-  }
-
-  public class PolygonOffset {
-    public enum Tag { 
-      NoOffset,
-      Offset
-    }
-    public Tag tag;
-
-    public class Offset extends PolygonOffset { 
-      public Float _0;
-      public Float _1;
-    }
-  }
-
-  public class FrontFace {
-    public enum Tag { 
-      CCW,
-      CW
-    }
-    public Tag tag;
-
-  }
-
-  public class PolygonMode {
-    public enum Tag { 
-      PolygonPoint,
-      PolygonLine,
-      PolygonFill
-    }
-    public Tag tag;
-
-    public class PolygonPoint extends PolygonMode { 
-      public PointSize _0;
-    }
-    public class PolygonLine extends PolygonMode { 
-      public Float _0;
-    }
-  }
-
-  public class ProvokingVertex {
-    public enum Tag { 
-      FirstVertex,
-      LastVertex
-    }
-    public Tag tag;
-
-  }
-
-  public class CullMode {
-    public enum Tag { 
-      CullNone,
-      CullFront,
-      CullBack
-    }
-    public Tag tag;
-
-    public class CullFront extends CullMode { 
-      public FrontFace _0;
-    }
-    public class CullBack extends CullMode { 
-      public FrontFace _0;
-    }
-  }
-
-  public class ComparisonFunction {
-    public enum Tag { 
-      Never,
-      Less,
-      Equal,
-      Lequal,
-      Greater,
-      Notequal,
-      Gequal,
-      Always
-    }
-    public Tag tag;
-
-  }
-
-  public class StencilOperation {
-    public enum Tag { 
-      OpZero,
-      OpKeep,
-      OpReplace,
-      OpIncr,
-      OpIncrWrap,
-      OpDecr,
-      OpDecrWrap,
-      OpInvert
-    }
-    public Tag tag;
-
-  }
-
-  public class BlendEquation {
-    public enum Tag { 
-      FuncAdd,
-      FuncSubtract,
-      FuncReverseSubtract,
-      Min,
-      Max
-    }
-    public Tag tag;
-
-  }
-
-  public class BlendingFactor {
-    public enum Tag { 
-      Zero,
-      One,
-      SrcColor,
-      OneMinusSrcColor,
-      DstColor,
-      OneMinusDstColor,
-      SrcAlpha,
-      OneMinusSrcAlpha,
-      DstAlpha,
-      OneMinusDstAlpha,
-      ConstantColor,
-      OneMinusConstantColor,
-      ConstantAlpha,
-      OneMinusConstantAlpha,
-      SrcAlphaSaturate
-    }
-    public Tag tag;
-
-  }
-
-  public class LogicOperation {
-    public enum Tag { 
-      Clear,
-      And,
-      AndReverse,
-      Copy,
-      AndInverted,
-      Noop,
-      Xor,
-      Or,
-      Nor,
-      Equiv,
-      Invert,
-      OrReverse,
-      CopyInverted,
-      OrInverted,
-      Nand,
-      Set
-    }
-    public Tag tag;
-
-  }
-
-  public class StencilOps {
-    public enum Tag { 
-      StencilOps
-    }
-    public Tag tag;
-
-    public class StencilOps extends StencilOps { 
-      public StencilOperation frontStencilOp;
-      public StencilOperation backStencilOp;
-    }
-  }
-
-  public class StencilTest {
-    public enum Tag { 
-      StencilTest
-    }
-    public Tag tag;
-
-    public class StencilTest extends StencilTest { 
-      public ComparisonFunction stencilComparision;
-      public Integer stencilReference;
-      public Integer stencilMask;
-    }
-  }
-
-  public class StencilTests {
-    public enum Tag { 
-      StencilTests
-    }
-    public Tag tag;
-
-    public class StencilTests extends StencilTests { 
-      public StencilTest _0;
-      public StencilTest _1;
-    }
-  }
-
-  public class FetchPrimitive {
-    public enum Tag { 
-      Points,
-      Lines,
-      Triangles,
-      LinesAdjacency,
-      TrianglesAdjacency
-    }
-    public Tag tag;
-
-  }
-
-  public class OutputPrimitive {
-    public enum Tag { 
-      TrianglesOutput,
-      LinesOutput,
-      PointsOutput
-    }
-    public Tag tag;
-
-  }
-
-  public class ColorArity {
-    public enum Tag { 
-      Red,
-      RG,
-      RGB,
-      RGBA
-    }
-    public Tag tag;
-
-  }
-
-  public class Blending {
-    public enum Tag { 
-      NoBlending,
-      BlendLogicOp,
-      Blend
-    }
-    public Tag tag;
-
-    public class BlendLogicOp extends Blending { 
-      public LogicOperation _0;
-    }
-    public class Blend extends Blending { 
-      public BlendEquation colorEqSrc;
-      public BlendEquation alphaEqSrc;
-      public BlendingFactor colorFSrc;
-      public BlendingFactor colorFDst;
-      public BlendingFactor alphaFSrc;
-      public BlendingFactor alphaFDst;
-      public int color;
-    }
-  }
-
-  public class RasterContext {
-    public enum Tag { 
-      PointCtx,
-      LineCtx,
-      TriangleCtx
-    }
-    public Tag tag;
-
-    public class PointCtx extends RasterContext { 
-      public PointSize _0;
-      public Float _1;
-      public PointSpriteCoordOrigin _2;
-    }
-    public class LineCtx extends RasterContext { 
-      public Float _0;
-      public ProvokingVertex _1;
-    }
-    public class TriangleCtx extends RasterContext { 
-      public CullMode _0;
-      public PolygonMode _1;
-      public PolygonOffset _2;
-      public ProvokingVertex _3;
-    }
-  }
-
-  public class FragmentOperation {
-    public enum Tag { 
-      DepthOp,
-      StencilOp,
-      ColorOp
-    }
-    public Tag tag;
-
-    public class DepthOp extends FragmentOperation { 
-      public ComparisonFunction _0;
-      public Boolean _1;
-    }
-    public class StencilOp extends FragmentOperation { 
-      public StencilTests _0;
-      public StencilOps _1;
-      public StencilOps _2;
-    }
-    public class ColorOp extends FragmentOperation { 
-      public Blending _0;
-      public Value _1;
-    }
-  }
-
-  public class AccumulationContext {
-    public enum Tag { 
-      AccumulationContext
-    }
-    public Tag tag;
-
-    public class AccumulationContext extends AccumulationContext { 
-      public int accViewportName;
-      public ArrayList<FragmentOperation> accOperations;
-    }
-  }
-
-  public class TextureDataType {
-    public enum Tag { 
-      FloatT,
-      IntT,
-      WordT,
-      ShadowT
-    }
-    public Tag tag;
-
-    public class FloatT extends TextureDataType { 
-      public ColorArity _0;
-    }
-    public class IntT extends TextureDataType { 
-      public ColorArity _0;
-    }
-    public class WordT extends TextureDataType { 
-      public ColorArity _0;
-    }
-  }
-
-  public class TextureType {
-    public enum Tag { 
-      Texture1D,
-      Texture2D,
-      Texture3D,
-      TextureCube,
-      TextureRect,
-      Texture2DMS,
-      TextureBuffer
-    }
-    public Tag tag;
-
-    public class Texture1D extends TextureType { 
-      public TextureDataType _0;
-      public Integer _1;
-    }
-    public class Texture2D extends TextureType { 
-      public TextureDataType _0;
-      public Integer _1;
-    }
-    public class Texture3D extends TextureType { 
-      public TextureDataType _0;
-    }
-    public class TextureCube extends TextureType { 
-      public TextureDataType _0;
-    }
-    public class TextureRect extends TextureType { 
-      public TextureDataType _0;
-    }
-    public class Texture2DMS extends TextureType { 
-      public TextureDataType _0;
-      public Integer _1;
-      public Integer _2;
-      public Boolean _3;
-    }
-    public class TextureBuffer extends TextureType { 
-      public TextureDataType _0;
-    }
-  }
-
-  public class MipMap {
-    public enum Tag { 
-      Mip,
-      NoMip,
-      AutoMip
-    }
-    public Tag tag;
-
-    public class Mip extends MipMap { 
-      public Integer _0;
-      public Integer _1;
-    }
-    public class AutoMip extends MipMap { 
-      public Integer _0;
-      public Integer _1;
-    }
-  }
-
-  public class Filter {
-    public enum Tag { 
-      Nearest,
-      Linear,
-      NearestMipmapNearest,
-      NearestMipmapLinear,
-      LinearMipmapNearest,
-      LinearMipmapLinear
-    }
-    public Tag tag;
-
-  }
-
-  public class EdgeMode {
-    public enum Tag { 
-      Repeat,
-      MirroredRepeat,
-      ClampToEdge,
-      ClampToBorder
-    }
-    public Tag tag;
-
-  }
-
-  public class ImageSemantic {
-    public enum Tag { 
-      Depth,
-      Stencil,
-      Color
-    }
-    public Tag tag;
-
-  }
-
-  public class ImageRef {
-    public enum Tag { 
-      TextureImage,
-      Framebuffer
-    }
-    public Tag tag;
-
-    public class TextureImage extends ImageRef { 
-      public Integer _0;
-      public Integer _1;
-      public int _2;
-    }
-    public class Framebuffer extends ImageRef { 
-      public ImageSemantic _0;
-    }
-  }
-
-  public class ClearImage {
-    public enum Tag { 
-      ClearImage
-    }
-    public Tag tag;
-
-    public class ClearImage extends ClearImage { 
-      public ImageSemantic imageSemantic;
-      public Value clearValue;
-    }
-  }
-
-  public class Command {
-    public enum Tag { 
-      SetRasterContext,
-      SetAccumulationContext,
-      SetRenderTarget,
-      SetProgram,
-      SetSamplerUniform,
-      SetTexture,
-      SetSampler,
-      RenderSlot,
-      RenderStream,
-      ClearRenderTarget,
-      GenerateMipMap,
-      SaveImage,
-      LoadImage
-    }
-    public Tag tag;
-
-    public class SetRasterContext extends Command { 
-      public RasterContext _0;
-    }
-    public class SetAccumulationContext extends Command { 
-      public AccumulationContext _0;
-    }
-    public class SetRenderTarget extends Command { 
-      public Integer _0;
-    }
-    public class SetProgram extends Command { 
-      public Integer _0;
-    }
-    public class SetSamplerUniform extends Command { 
-      public String _0;
-      public Integer _1;
-    }
-    public class SetTexture extends Command { 
-      public Integer _0;
-      public Integer _1;
-    }
-    public class SetSampler extends Command { 
-      public Integer _0;
-      public int _1;
-    }
-    public class RenderSlot extends Command { 
-      public Integer _0;
-    }
-    public class RenderStream extends Command { 
-      public Integer _0;
-    }
-    public class ClearRenderTarget extends Command { 
-      public ArrayList<ClearImage> _0;
-    }
-    public class GenerateMipMap extends Command { 
-      public Integer _0;
-    }
-    public class SaveImage extends Command { 
-      public Integer _0;
-      public ImageRef _1;
-    }
-    public class LoadImage extends Command { 
-      public ImageRef _0;
-      public Integer _1;
-    }
-  }
-
-  public class SamplerDescriptor {
-    public enum Tag { 
-      SamplerDescriptor
-    }
-    public Tag tag;
-
-    public class SamplerDescriptor extends SamplerDescriptor { 
-      public EdgeMode samplerWrapS;
-      public int samplerWrapT;
-      public int samplerWrapR;
-      public Filter samplerMinFilter;
-      public Filter samplerMagFilter;
-      public Value samplerBorderColor;
-      public int samplerMinLod;
-      public int samplerMaxLod;
-      public Float samplerLodBias;
-      public int samplerCompareFunc;
-    }
-  }
-
-  public class TextureDescriptor {
-    public enum Tag { 
-      TextureDescriptor
-    }
-    public Tag tag;
-
-    public class TextureDescriptor extends TextureDescriptor { 
-      public TextureType textureType;
-      public Value textureSize;
-      public ImageSemantic textureSemantic;
-      public SamplerDescriptor textureSampler;
-      public Integer textureBaseLevel;
-      public Integer textureMaxLevel;
-    }
-  }
-
-  public class Parameter {
-    public enum Tag { 
-      Parameter
-    }
-    public Tag tag;
-
-    public class Parameter extends Parameter { 
-      public String name;
-      public InputType ty;
-    }
-  }
-
-  public class Program {
-    public enum Tag { 
-      Program
-    }
-    public Tag tag;
-
-    public class Program extends Program { 
-      public HashMap<String, InputType> programUniforms;
-      public HashMap<String, Parameter> programStreams;
-      public HashMap<String, InputType> programInTextures;
-      public ArrayList<Parameter> programOutput;
-      public String vertexShader;
-      public int geometryShader;
-      public String fragmentShader;
-    }
-  }
-
-  public class Slot {
-    public enum Tag { 
-      Slot
-    }
-    public Tag tag;
-
-    public class Slot extends Slot { 
-      public String slotName;
-      public HashMap<String, InputType> slotStreams;
-      public HashMap<String, InputType> slotUniforms;
-      public FetchPrimitive slotPrimitive;
-      public ArrayList<Integer> slotPrograms;
-    }
-  }
-
-  public class StreamData {
-    public enum Tag { 
-      StreamData
-    }
-    public Tag tag;
-
-    public class StreamData extends StreamData { 
-      public HashMap<String, ArrayValue> streamData;
-      public HashMap<String, InputType> streamType;
-      public FetchPrimitive streamPrimitive;
-      public ArrayList<Integer> streamPrograms;
-    }
-  }
-
-  public class TargetItem {
-    public enum Tag { 
-      TargetItem
-    }
-    public Tag tag;
-
-    public class TargetItem extends TargetItem { 
-      public ImageSemantic targetSemantic;
-      public int targetRef;
-    }
-  }
-
-  public class RenderTarget {
-    public enum Tag { 
-      RenderTarget
-    }
-    public Tag tag;
-
-    public class RenderTarget extends RenderTarget { 
-      public ArrayList<TargetItem> renderTargets;
-    }
-  }
-
-  public class Backend {
-    public enum Tag { 
-      WebGL1,
-      OpenGL33
-    }
-    public Tag tag;
-
-  }
-
-  public class Pipeline {
-    public enum Tag { 
-      Pipeline
-    }
-    public Tag tag;
-
-    public class Pipeline extends Pipeline { 
-      public String info;
-      public Backend backend;
-      public ArrayList<TextureDescriptor> textures;
-      public ArrayList<SamplerDescriptor> samplers;
-      public ArrayList<RenderTarget> targets;
-      public ArrayList<Program> programs;
-      public ArrayList<Slot> slots;
-      public ArrayList<StreamData> streams;
-      public ArrayList<Command> commands;
-    }
-  }
-
-}
\ No newline at end of file
diff --git a/ddl/out/LambdaCube.Mesh.java b/ddl/out/LambdaCube.Mesh.java
deleted file mode 100644
index 2cf85c7..0000000
--- a/ddl/out/LambdaCube.Mesh.java
+++ /dev/null
@@ -1,79 +0,0 @@
-// generated file, do not modify!
-// 2016-03-14T10:58:29.976813000000Z
-
-
-public class LambdaCube.Mesh {
-  public class MeshAttribute {
-    public enum Tag { 
-      A_Float,
-      A_V2F,
-      A_V3F,
-      A_V4F,
-      A_M22F,
-      A_M33F,
-      A_M44F,
-      A_Int,
-      A_Word
-    }
-    public Tag tag;
-
-    public class A_Float extends MeshAttribute { 
-      public ArrayList<Float> _0;
-    }
-    public class A_V2F extends MeshAttribute { 
-      public ArrayList<int> _0;
-    }
-    public class A_V3F extends MeshAttribute { 
-      public ArrayList<int> _0;
-    }
-    public class A_V4F extends MeshAttribute { 
-      public ArrayList<int> _0;
-    }
-    public class A_M22F extends MeshAttribute { 
-      public ArrayList<int> _0;
-    }
-    public class A_M33F extends MeshAttribute { 
-      public ArrayList<int> _0;
-    }
-    public class A_M44F extends MeshAttribute { 
-      public ArrayList<int> _0;
-    }
-    public class A_Int extends MeshAttribute { 
-      public ArrayList<Integer> _0;
-    }
-    public class A_Word extends MeshAttribute { 
-      public ArrayList<Integer> _0;
-    }
-  }
-
-  public class MeshPrimitive {
-    public enum Tag { 
-      P_Points,
-      P_TriangleStrip,
-      P_Triangles,
-      P_TriangleStripI,
-      P_TrianglesI
-    }
-    public Tag tag;
-
-    public class P_TriangleStripI extends MeshPrimitive { 
-      public ArrayList<Integer> _0;
-    }
-    public class P_TrianglesI extends MeshPrimitive { 
-      public ArrayList<Integer> _0;
-    }
-  }
-
-  public class Mesh {
-    public enum Tag { 
-      Mesh
-    }
-    public Tag tag;
-
-    public class Mesh extends Mesh { 
-      public HashMap<String, MeshAttribute> mAttributes;
-      public MeshPrimitive mPrimitive;
-    }
-  }
-
-}
\ No newline at end of file
diff --git a/ddl/out/LambdaCube.PipelineSchema.java b/ddl/out/LambdaCube.PipelineSchema.java
deleted file mode 100644
index c71e7c0..0000000
--- a/ddl/out/LambdaCube.PipelineSchema.java
+++ /dev/null
@@ -1,59 +0,0 @@
-// generated file, do not modify!
-// 2016-03-14T10:58:29.954220000000Z
-
-import LambdaCube.IR;
-
-public class LambdaCube.PipelineSchema {
-  public class StreamType {
-    public enum Tag { 
-      Attribute_Word,
-      Attribute_V2U,
-      Attribute_V3U,
-      Attribute_V4U,
-      Attribute_Int,
-      Attribute_V2I,
-      Attribute_V3I,
-      Attribute_V4I,
-      Attribute_Float,
-      Attribute_V2F,
-      Attribute_V3F,
-      Attribute_V4F,
-      Attribute_M22F,
-      Attribute_M23F,
-      Attribute_M24F,
-      Attribute_M32F,
-      Attribute_M33F,
-      Attribute_M34F,
-      Attribute_M42F,
-      Attribute_M43F,
-      Attribute_M44F
-    }
-    public Tag tag;
-
-  }
-
-  public class ObjectArraySchema {
-    public enum Tag { 
-      ObjectArraySchema
-    }
-    public Tag tag;
-
-    public class ObjectArraySchema extends ObjectArraySchema { 
-      public FetchPrimitive primitive;
-      public HashMap<String, StreamType> attributes;
-    }
-  }
-
-  public class PipelineSchema {
-    public enum Tag { 
-      PipelineSchema
-    }
-    public Tag tag;
-
-    public class PipelineSchema extends PipelineSchema { 
-      public HashMap<String, ObjectArraySchema> objectArrays;
-      public HashMap<String, InputType> uniforms;
-    }
-  }
-
-}
\ No newline at end of file
diff --git a/ddl/out/LambdaCube.TypeInfo.java b/ddl/out/LambdaCube.TypeInfo.java
deleted file mode 100644
index 59c2a26..0000000
--- a/ddl/out/LambdaCube.TypeInfo.java
+++ /dev/null
@@ -1,52 +0,0 @@
-// generated file, do not modify!
-// 2016-03-14T10:58:30.014693000000Z
-
-import LambdaCube.IR;
-
-public class LambdaCube.TypeInfo {
-  public class Range {
-    public enum Tag { 
-      Range
-    }
-    public Tag tag;
-
-    public class Range extends Range { 
-      public Integer startLine;
-      public Integer startColumn;
-      public Integer endLine;
-      public Integer endColumn;
-    }
-  }
-
-  public class TypeInfo {
-    public enum Tag { 
-      TypeInfo
-    }
-    public Tag tag;
-
-    public class TypeInfo extends TypeInfo { 
-      public Range range;
-      public String text;
-    }
-  }
-
-  public class CompileResult {
-    public enum Tag { 
-      CompileError,
-      Compiled
-    }
-    public Tag tag;
-
-    public class CompileError extends CompileResult { 
-      public ArrayList<Range> _0;
-      public String _1;
-      public ArrayList<TypeInfo> _2;
-    }
-    public class Compiled extends CompileResult { 
-      public String _0;
-      public Pipeline _1;
-      public ArrayList<TypeInfo> _2;
-    }
-  }
-
-}
\ No newline at end of file
diff --git a/ddl/out/TestData.java b/ddl/out/TestData.java
deleted file mode 100644
index aa6b656..0000000
--- a/ddl/out/TestData.java
+++ /dev/null
@@ -1,103 +0,0 @@
-// generated file, do not modify!
-// 2016-03-14T10:58:30.042864000000Z
-
-import LambdaCube.IR;
-import LambdaCube.Mesh;
-import LambdaCube.PipelineSchema;
-
-public class TestData {
-  public class ClientInfo {
-    public enum Tag { 
-      ClientInfo
-    }
-    public Tag tag;
-
-    public class ClientInfo extends ClientInfo { 
-      public String clientName;
-      public Backend clientBackend;
-    }
-  }
-
-  public class Frame {
-    public enum Tag { 
-      Frame
-    }
-    public Tag tag;
-
-    public class Frame extends Frame { 
-      public Integer renderCount;
-      public HashMap<String, Value> frameUniforms;
-      public HashMap<String, Integer> frameTextures;
-    }
-  }
-
-  public class Scene {
-    public enum Tag { 
-      Scene
-    }
-    public Tag tag;
-
-    public class Scene extends Scene { 
-      public HashMap<String, ArrayList<Integer>> objectArrays;
-      public Integer renderTargetWidth;
-      public Integer renderTargetHeight;
-      public ArrayList<Frame> frames;
-    }
-  }
-
-  public class PipelineInfo {
-    public enum Tag { 
-      PipelineInfo
-    }
-    public Tag tag;
-
-    public class PipelineInfo extends PipelineInfo { 
-      public String pipelineName;
-      public Pipeline pipeline;
-    }
-  }
-
-  public class RenderJob {
-    public enum Tag { 
-      RenderJob
-    }
-    public Tag tag;
-
-    public class RenderJob extends RenderJob { 
-      public ArrayList<Mesh> meshes;
-      public ArrayList<String> textures;
-      public PipelineSchema schema;
-      public ArrayList<Scene> scenes;
-      public ArrayList<PipelineInfo> pipelines;
-    }
-  }
-
-  public class FrameResult {
-    public enum Tag { 
-      FrameResult
-    }
-    public Tag tag;
-
-    public class FrameResult extends FrameResult { 
-      public ArrayList<Float> frRenderTimes;
-      public Integer frImageWidth;
-      public Integer frImageHeight;
-    }
-  }
-
-  public class RenderJobResult {
-    public enum Tag { 
-      RenderJobResult,
-      RenderJobError
-    }
-    public Tag tag;
-
-    public class RenderJobResult extends RenderJobResult { 
-      public FrameResult _0;
-    }
-    public class RenderJobError extends RenderJobResult { 
-      public String _0;
-    }
-  }
-
-}
\ No newline at end of file
diff --git a/ddl/out/LambdaCube.IR.cpp b/ddl/out/cpp/LambdaCube.IR.cpp
index dddde0a..dddde0a 100644
--- a/ddl/out/LambdaCube.IR.cpp
+++ b/ddl/out/cpp/LambdaCube.IR.cpp
diff --git a/ddl/out/LambdaCube.IR.hpp b/ddl/out/cpp/LambdaCube.IR.hpp
index 47e1077..47e1077 100644
--- a/ddl/out/LambdaCube.IR.hpp
+++ b/ddl/out/cpp/LambdaCube.IR.hpp
diff --git a/ddl/out/LambdaCube.IR2.hpp b/ddl/out/cpp/LambdaCube.IR2.hpp
index 1ef1dc2..1ef1dc2 100644
--- a/ddl/out/LambdaCube.IR2.hpp
+++ b/ddl/out/cpp/LambdaCube.IR2.hpp
diff --git a/ddl/out/LambdaCube.Mesh.cpp b/ddl/out/cpp/LambdaCube.Mesh.cpp
index ae47aa3..ae47aa3 100644
--- a/ddl/out/LambdaCube.Mesh.cpp
+++ b/ddl/out/cpp/LambdaCube.Mesh.cpp
diff --git a/ddl/out/LambdaCube.Mesh.hpp b/ddl/out/cpp/LambdaCube.Mesh.hpp
index 205cc02..205cc02 100644
--- a/ddl/out/LambdaCube.Mesh.hpp
+++ b/ddl/out/cpp/LambdaCube.Mesh.hpp
diff --git a/ddl/out/LambdaCube.Mesh2.hpp b/ddl/out/cpp/LambdaCube.Mesh2.hpp
index fac4bcc..fac4bcc 100644
--- a/ddl/out/LambdaCube.Mesh2.hpp
+++ b/ddl/out/cpp/LambdaCube.Mesh2.hpp
diff --git a/ddl/out/LambdaCube.PipelineSchema.cpp b/ddl/out/cpp/LambdaCube.PipelineSchema.cpp
index 669576a..669576a 100644
--- a/ddl/out/LambdaCube.PipelineSchema.cpp
+++ b/ddl/out/cpp/LambdaCube.PipelineSchema.cpp
diff --git a/ddl/out/LambdaCube.PipelineSchema.hpp b/ddl/out/cpp/LambdaCube.PipelineSchema.hpp
index ef1d7a3..ef1d7a3 100644
--- a/ddl/out/LambdaCube.PipelineSchema.hpp
+++ b/ddl/out/cpp/LambdaCube.PipelineSchema.hpp
diff --git a/ddl/out/LambdaCube.PipelineSchema2.hpp b/ddl/out/cpp/LambdaCube.PipelineSchema2.hpp
index 34eb9ab..34eb9ab 100644
--- a/ddl/out/LambdaCube.PipelineSchema2.hpp
+++ b/ddl/out/cpp/LambdaCube.PipelineSchema2.hpp
diff --git a/ddl/out/LambdaCube.TypeInfo.cpp b/ddl/out/cpp/LambdaCube.TypeInfo.cpp
index 23bdb5b..23bdb5b 100644
--- a/ddl/out/LambdaCube.TypeInfo.cpp
+++ b/ddl/out/cpp/LambdaCube.TypeInfo.cpp
diff --git a/ddl/out/LambdaCube.TypeInfo.hpp b/ddl/out/cpp/LambdaCube.TypeInfo.hpp
index 8b5e74f..8b5e74f 100644
--- a/ddl/out/LambdaCube.TypeInfo.hpp
+++ b/ddl/out/cpp/LambdaCube.TypeInfo.hpp
diff --git a/ddl/out/LambdaCube.TypeInfo2.hpp b/ddl/out/cpp/LambdaCube.TypeInfo2.hpp
index 3016e93..3016e93 100644
--- a/ddl/out/LambdaCube.TypeInfo2.hpp
+++ b/ddl/out/cpp/LambdaCube.TypeInfo2.hpp
diff --git a/ddl/out/TestData.cpp b/ddl/out/cpp/TestData.cpp
index 466f1a7..466f1a7 100644
--- a/ddl/out/TestData.cpp
+++ b/ddl/out/cpp/TestData.cpp
diff --git a/ddl/out/TestData.hpp b/ddl/out/cpp/TestData.hpp
index 60d401f..60d401f 100644
--- a/ddl/out/TestData.hpp
+++ b/ddl/out/cpp/TestData.hpp
diff --git a/ddl/out/TestData2.hpp b/ddl/out/cpp/TestData2.hpp
index 80acbba..80acbba 100644
--- a/ddl/out/TestData2.hpp
+++ b/ddl/out/cpp/TestData2.hpp
diff --git a/ddl/out/LambdaCube.IR.cs b/ddl/out/csharp/LambdaCube.IR.cs
index af2a9d4..af2a9d4 100644
--- a/ddl/out/LambdaCube.IR.cs
+++ b/ddl/out/csharp/LambdaCube.IR.cs
diff --git a/ddl/out/LambdaCube.Mesh.cs b/ddl/out/csharp/LambdaCube.Mesh.cs
index 7cc93f3..7cc93f3 100644
--- a/ddl/out/LambdaCube.Mesh.cs
+++ b/ddl/out/csharp/LambdaCube.Mesh.cs
diff --git a/ddl/out/LambdaCube.PipelineSchema.cs b/ddl/out/csharp/LambdaCube.PipelineSchema.cs
index c5f6548..c5f6548 100644
--- a/ddl/out/LambdaCube.PipelineSchema.cs
+++ b/ddl/out/csharp/LambdaCube.PipelineSchema.cs
diff --git a/ddl/out/LambdaCube.TypeInfo.cs b/ddl/out/csharp/LambdaCube.TypeInfo.cs
index c92a747..c92a747 100644
--- a/ddl/out/LambdaCube.TypeInfo.cs
+++ b/ddl/out/csharp/LambdaCube.TypeInfo.cs
diff --git a/ddl/out/TestData.cs b/ddl/out/csharp/TestData.cs
index 2290a2c..2290a2c 100644
--- a/ddl/out/TestData.cs
+++ b/ddl/out/csharp/TestData.cs
diff --git a/ddl/out/LambdaCube.IR.hs b/ddl/out/haskell/LambdaCube/IR.hs
index 25eba87..25eba87 100644
--- a/ddl/out/LambdaCube.IR.hs
+++ b/ddl/out/haskell/LambdaCube/IR.hs
diff --git a/ddl/out/LambdaCube.Mesh.hs b/ddl/out/haskell/LambdaCube/Mesh.hs
index 8d6db7a..8d6db7a 100644
--- a/ddl/out/LambdaCube.Mesh.hs
+++ b/ddl/out/haskell/LambdaCube/Mesh.hs
diff --git a/ddl/out/LambdaCube.PipelineSchema.hs b/ddl/out/haskell/LambdaCube/PipelineSchema.hs
index 9764e9c..9764e9c 100644
--- a/ddl/out/LambdaCube.PipelineSchema.hs
+++ b/ddl/out/haskell/LambdaCube/PipelineSchema.hs
diff --git a/ddl/out/LambdaCube.TypeInfo.hs b/ddl/out/haskell/LambdaCube/TypeInfo.hs
index 3aed071..3aed071 100644
--- a/ddl/out/LambdaCube.TypeInfo.hs
+++ b/ddl/out/haskell/LambdaCube/TypeInfo.hs
diff --git a/ddl/out/TestData.hs b/ddl/out/haskell/TestData.hs
index 3904a3e..3904a3e 100644
--- a/ddl/out/TestData.hs
+++ b/ddl/out/haskell/TestData.hs
diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/purescript/LambdaCube/IR.purs
index 0c515ec..0c515ec 100644
--- a/ddl/out/LambdaCube.IR.purs
+++ b/ddl/out/purescript/LambdaCube/IR.purs
diff --git a/ddl/out/LambdaCube.Mesh.purs b/ddl/out/purescript/LambdaCube/Mesh.purs
index 7b39700..7b39700 100644
--- a/ddl/out/LambdaCube.Mesh.purs
+++ b/ddl/out/purescript/LambdaCube/Mesh.purs
diff --git a/ddl/out/LambdaCube.PipelineSchema.purs b/ddl/out/purescript/LambdaCube/PipelineSchema.purs
index 2a40ce2..2a40ce2 100644
--- a/ddl/out/LambdaCube.PipelineSchema.purs
+++ b/ddl/out/purescript/LambdaCube/PipelineSchema.purs
diff --git a/ddl/out/LambdaCube.TypeInfo.purs b/ddl/out/purescript/LambdaCube/TypeInfo.purs
index a7b5705..a7b5705 100644
--- a/ddl/out/LambdaCube.TypeInfo.purs
+++ b/ddl/out/purescript/LambdaCube/TypeInfo.purs
diff --git a/ddl/out/TestData.purs b/ddl/out/purescript/TestData.purs
index c8af32b..c8af32b 100644
--- a/ddl/out/TestData.purs
+++ b/ddl/out/purescript/TestData.purs
diff --git a/ddl/out/LambdaCube.IR.swift b/ddl/out/swift/LambdaCube.IR.swift
index bde39fd..bde39fd 100644
--- a/ddl/out/LambdaCube.IR.swift
+++ b/ddl/out/swift/LambdaCube.IR.swift
diff --git a/ddl/out/LambdaCube.Mesh.swift b/ddl/out/swift/LambdaCube.Mesh.swift
index 8df6c2a..8df6c2a 100644
--- a/ddl/out/LambdaCube.Mesh.swift
+++ b/ddl/out/swift/LambdaCube.Mesh.swift
diff --git a/ddl/out/LambdaCube.PipelineSchema.swift b/ddl/out/swift/LambdaCube.PipelineSchema.swift
index 47ac3aa..47ac3aa 100644
--- a/ddl/out/LambdaCube.PipelineSchema.swift
+++ b/ddl/out/swift/LambdaCube.PipelineSchema.swift
diff --git a/ddl/out/LambdaCube.TypeInfo.swift b/ddl/out/swift/LambdaCube.TypeInfo.swift
index 0328305..0328305 100644
--- a/ddl/out/LambdaCube.TypeInfo.swift
+++ b/ddl/out/swift/LambdaCube.TypeInfo.swift
diff --git a/ddl/out/TestData.swift b/ddl/out/swift/TestData.swift
index 21c53d3..21c53d3 100644
--- a/ddl/out/TestData.swift
+++ b/ddl/out/swift/TestData.swift