add info field to pipeline

32 files changed, 51 insertions, 36 deletions

diff --git a/ddl/Definitions.hs b/ddl/Definitions.hs
index 6bac3d6..89c4af3 100644
--- a/ddl/Definitions.hs
+++ b/ddl/Definitions.hs
@@ -421,7 +421,8 @@ ir = do
 
   data_ "Pipeline" $ do
     constR_ "Pipeline"
-      [ "backend"       #:: "Backend"
+      [ "info"          #:: String
+      , "backend"       #:: "Backend"
       , "textures"      #:: Array "TextureDescriptor"
       , "samplers"      #:: Array "SamplerDescriptor"
       , "targets"       #:: Array "RenderTarget"
diff --git a/ddl/out/LambdaCube.IR.cpp b/ddl/out/LambdaCube.IR.cpp
index bf5ab0b..66ca8b3 100644
--- a/ddl/out/LambdaCube.IR.cpp
+++ b/ddl/out/LambdaCube.IR.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:30.803775Z
+// 2016-02-08T13:33:23.674070000000Z
 
 #include "LambdaCube.IR.hpp"
 template<> json toJSON<std::shared_ptr<ArrayValue>>(std::shared_ptr<ArrayValue> &v) {
@@ -2826,6 +2826,7 @@ template<> json toJSON<std::shared_ptr<Pipeline>>(std::shared_ptr<Pipeline> &v)
       obj["tag"] = "Pipeline";
       {
         std::shared_ptr<data::Pipeline> tv = std::static_pointer_cast<data::Pipeline>(v);
+        obj["info"] = toJSON(tv->info);
         obj["backend"] = toJSON(tv->backend);
         obj["textures"] = toJSON(tv->textures);
         obj["samplers"] = toJSON(tv->samplers);
@@ -2846,6 +2847,7 @@ template<> std::shared_ptr<Pipeline> fromJSON<std::shared_ptr<Pipeline>>(W<std::
   if (tag == "Pipeline") {
     tagType = ::Pipeline::tag::Pipeline;
     std::shared_ptr<data::Pipeline> tv(new data::Pipeline());
+    tv->info = fromJSON(W<String>(), obj["info"]);
     tv->backend = fromJSON(W<std::shared_ptr<::Backend>>(), obj["backend"]);
     tv->textures = fromJSON(W<std::vector<std::shared_ptr<::TextureDescriptor>>>(), obj["textures"]);
     tv->samplers = fromJSON(W<std::vector<std::shared_ptr<::SamplerDescriptor>>>(), obj["samplers"]);
diff --git a/ddl/out/LambdaCube.IR.hpp b/ddl/out/LambdaCube.IR.hpp
index c45d1ce..bba849e 100644
--- a/ddl/out/LambdaCube.IR.hpp
+++ b/ddl/out/LambdaCube.IR.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:30.803775Z
+// 2016-02-08T13:33:23.674070000000Z
 
 #ifndef HEADER_LambdaCube.IR_H
 #define HEADER_LambdaCube.IR_H
@@ -1056,6 +1056,7 @@ class Pipeline {
 namespace data { 
   class Pipeline : public ::Pipeline {
     public:
+      String info;
       std::shared_ptr<::Backend> backend;
       std::vector<std::shared_ptr<::TextureDescriptor>> textures;
       std::vector<std::shared_ptr<::SamplerDescriptor>> samplers;
diff --git a/ddl/out/LambdaCube.IR.hs b/ddl/out/LambdaCube.IR.hs
index 03675f7..b81163f 100644
--- a/ddl/out/LambdaCube.IR.hs
+++ b/ddl/out/LambdaCube.IR.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:30.803775Z
+-- 2016-02-08T13:33:23.674070000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.IR where
@@ -484,7 +484,8 @@ data Backend
 
 data Pipeline
   = Pipeline
-  { backend :: Backend
+  { info :: String
+  , backend :: Backend
   , textures :: Vector TextureDescriptor
   , samplers :: Vector SamplerDescriptor
   , targets :: Vector RenderTarget
@@ -1571,6 +1572,7 @@ instance ToJSON Pipeline where
   toJSON v = case v of
     Pipeline{..} -> object
       [ "tag" .= ("Pipeline" :: Text)
+      , "info" .= info
       , "backend" .= backend
       , "textures" .= textures
       , "samplers" .= samplers
@@ -1586,6 +1588,7 @@ instance FromJSON Pipeline where
     tag <- obj .: "tag"
     case tag :: Text of
       "Pipeline" -> do
+        info <- obj .: "info"
         backend <- obj .: "backend"
         textures <- obj .: "textures"
         samplers <- obj .: "samplers"
@@ -1595,7 +1598,8 @@ instance FromJSON Pipeline where
         streams <- obj .: "streams"
         commands <- obj .: "commands"
         pure $ Pipeline
-          { backend = backend
+          { info = info
+          , backend = backend
           , textures = textures
           , samplers = samplers
           , targets = targets
diff --git a/ddl/out/LambdaCube.IR.purs b/ddl/out/LambdaCube.IR.purs
index 459c1c8..3e88ad7 100644
--- a/ddl/out/LambdaCube.IR.purs
+++ b/ddl/out/LambdaCube.IR.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:30.803775Z
+-- 2016-02-08T13:33:23.674070000000Z
 
 module LambdaCube.IR where
 import Prelude
@@ -442,7 +442,8 @@ data Backend
 
 data Pipeline
   = Pipeline
-  { backend :: Backend
+  { info :: String
+  , backend :: Backend
   , textures :: Array TextureDescriptor
   , samplers :: Array SamplerDescriptor
   , targets :: Array RenderTarget
@@ -1553,6 +1554,7 @@ instance encodeJsonPipeline :: EncodeJson Pipeline where
   encodeJson v = case v of
     Pipeline r ->
       "tag" := "Pipeline" ~>
+      "info" := r.info ~>
       "backend" := r.backend ~>
       "textures" := r.textures ~>
       "samplers" := r.samplers ~>
@@ -1569,6 +1571,7 @@ instance decodeJsonPipeline :: DecodeJson Pipeline where
     tag <- obj .? "tag"
     case tag of
       "Pipeline" -> do
+        info <- obj .? "info"
         backend <- obj .? "backend"
         textures <- obj .? "textures"
         samplers <- obj .? "samplers"
@@ -1578,7 +1581,8 @@ instance decodeJsonPipeline :: DecodeJson Pipeline where
         streams <- obj .? "streams"
         commands <- obj .? "commands"
         pure $ Pipeline
-          { backend:backend
+          { info:info
+          , backend:backend
           , textures:textures
           , samplers:samplers
           , targets:targets
diff --git a/ddl/out/LambdaCube.IR.swift b/ddl/out/LambdaCube.IR.swift
index eb4b35f..cfc61da 100644
--- a/ddl/out/LambdaCube.IR.swift
+++ b/ddl/out/LambdaCube.IR.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:30.803775Z
+// 2016-02-08T13:33:23.674070000000Z
 
 typealias StreamName = Int
 
@@ -470,6 +470,7 @@ enum Backend {
 enum Pipeline {
   case Pipeline(Pipeline_Data)
     struct Pipeline_Data {
+      var info : String
       var backend : Backend
       var textures : Array<TextureDescriptor>
       var samplers : Array<SamplerDescriptor>
@@ -1336,6 +1337,7 @@ extension Pipeline {
     switch self {
       case .Pipeline(let v):
         return [ "tag" : "Pipeline"
+               , "info" : v.info.toJSON
                , "backend" : v.backend.toJSON
                , "textures" : v.textures.toJSON
                , "samplers" : v.samplers.toJSON
diff --git a/ddl/out/LambdaCube.IR2.hpp b/ddl/out/LambdaCube.IR2.hpp
index 43de714..d3c1eee 100644
--- a/ddl/out/LambdaCube.IR2.hpp
+++ b/ddl/out/LambdaCube.IR2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:30.803775Z
+// 2016-02-08T13:33:23.674070000000Z
 
 #ifndef HEADER_LambdaCube.IR_H
 #define HEADER_LambdaCube.IR_H
@@ -1050,6 +1050,7 @@ public:
 namespace data { 
   class Pipeline {
   public: 
+    String info;
     std::shared_ptr<::Backend> backend;
     std::vector<std::shared_ptr<::TextureDescriptor>> textures;
     std::vector<std::shared_ptr<::SamplerDescriptor>> samplers;
diff --git a/ddl/out/LambdaCube.Mesh.cpp b/ddl/out/LambdaCube.Mesh.cpp
index 9f9599b..4179c3d 100644
--- a/ddl/out/LambdaCube.Mesh.cpp
+++ b/ddl/out/LambdaCube.Mesh.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.220124Z
+// 2016-02-08T13:33:24.058473000000Z
 
 #include "LambdaCube.Mesh.hpp"
 template<> json toJSON<std::shared_ptr<MeshAttribute>>(std::shared_ptr<MeshAttribute> &v) {
diff --git a/ddl/out/LambdaCube.Mesh.hpp b/ddl/out/LambdaCube.Mesh.hpp
index 34583a2..730e04e 100644
--- a/ddl/out/LambdaCube.Mesh.hpp
+++ b/ddl/out/LambdaCube.Mesh.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.220124Z
+// 2016-02-08T13:33:24.058473000000Z
 
 #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 ad98c1b..47b7da6 100644
--- a/ddl/out/LambdaCube.Mesh.hs
+++ b/ddl/out/LambdaCube.Mesh.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.220124Z
+-- 2016-02-08T13:33:24.058473000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.Mesh where
diff --git a/ddl/out/LambdaCube.Mesh.purs b/ddl/out/LambdaCube.Mesh.purs
index 230409f..829bf91 100644
--- a/ddl/out/LambdaCube.Mesh.purs
+++ b/ddl/out/LambdaCube.Mesh.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.220124Z
+-- 2016-02-08T13:33:24.058473000000Z
 
 module LambdaCube.Mesh where
 import Prelude
diff --git a/ddl/out/LambdaCube.Mesh.swift b/ddl/out/LambdaCube.Mesh.swift
index 6be1e16..7380a34 100644
--- a/ddl/out/LambdaCube.Mesh.swift
+++ b/ddl/out/LambdaCube.Mesh.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.220124Z
+// 2016-02-08T13:33:24.058473000000Z
 
 enum MeshAttribute {
   case A_Float(Array<Float>)
diff --git a/ddl/out/LambdaCube.Mesh2.hpp b/ddl/out/LambdaCube.Mesh2.hpp
index 4978258..5c81c54 100644
--- a/ddl/out/LambdaCube.Mesh2.hpp
+++ b/ddl/out/LambdaCube.Mesh2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.220124Z
+// 2016-02-08T13:33:24.058473000000Z
 
 #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 6337f5b..7dced29 100644
--- a/ddl/out/LambdaCube.PipelineSchema.cpp
+++ b/ddl/out/LambdaCube.PipelineSchema.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.196716Z
+// 2016-02-08T13:33:24.035933000000Z
 
 #include "LambdaCube.PipelineSchema.hpp"
 template<> json toJSON<std::shared_ptr<StreamType>>(std::shared_ptr<StreamType> &v) {
diff --git a/ddl/out/LambdaCube.PipelineSchema.hpp b/ddl/out/LambdaCube.PipelineSchema.hpp
index 86fef51..d0ad084 100644
--- a/ddl/out/LambdaCube.PipelineSchema.hpp
+++ b/ddl/out/LambdaCube.PipelineSchema.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.196716Z
+// 2016-02-08T13:33:24.035933000000Z
 
 #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 c319967..69998de 100644
--- a/ddl/out/LambdaCube.PipelineSchema.hs
+++ b/ddl/out/LambdaCube.PipelineSchema.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.196716Z
+-- 2016-02-08T13:33:24.035933000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.PipelineSchema where
diff --git a/ddl/out/LambdaCube.PipelineSchema.purs b/ddl/out/LambdaCube.PipelineSchema.purs
index 077d1e9..059008b 100644
--- a/ddl/out/LambdaCube.PipelineSchema.purs
+++ b/ddl/out/LambdaCube.PipelineSchema.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.196716Z
+-- 2016-02-08T13:33:24.035933000000Z
 
 module LambdaCube.PipelineSchema where
 import Prelude
diff --git a/ddl/out/LambdaCube.PipelineSchema.swift b/ddl/out/LambdaCube.PipelineSchema.swift
index 8afc9fc..3d90f40 100644
--- a/ddl/out/LambdaCube.PipelineSchema.swift
+++ b/ddl/out/LambdaCube.PipelineSchema.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.196716Z
+// 2016-02-08T13:33:24.035933000000Z
 
 enum StreamType {
   case Attribute_Word
diff --git a/ddl/out/LambdaCube.PipelineSchema2.hpp b/ddl/out/LambdaCube.PipelineSchema2.hpp
index 2812b18..e4ec5e3 100644
--- a/ddl/out/LambdaCube.PipelineSchema2.hpp
+++ b/ddl/out/LambdaCube.PipelineSchema2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.196716Z
+// 2016-02-08T13:33:24.035933000000Z
 
 #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 7ad7fea..f79e093 100644
--- a/ddl/out/LambdaCube.TypeInfo.cpp
+++ b/ddl/out/LambdaCube.TypeInfo.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.255126Z
+// 2016-02-08T13:33:24.089367000000Z
 
 #include "LambdaCube.TypeInfo.hpp"
 template<> json toJSON<std::shared_ptr<TypeInfo>>(std::shared_ptr<TypeInfo> &v) {
diff --git a/ddl/out/LambdaCube.TypeInfo.hpp b/ddl/out/LambdaCube.TypeInfo.hpp
index d2f239b..3a6e2bb 100644
--- a/ddl/out/LambdaCube.TypeInfo.hpp
+++ b/ddl/out/LambdaCube.TypeInfo.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.255126Z
+// 2016-02-08T13:33:24.089367000000Z
 
 #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 453057d..9405419 100644
--- a/ddl/out/LambdaCube.TypeInfo.hs
+++ b/ddl/out/LambdaCube.TypeInfo.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.255126Z
+-- 2016-02-08T13:33:24.089367000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.TypeInfo where
diff --git a/ddl/out/LambdaCube.TypeInfo.purs b/ddl/out/LambdaCube.TypeInfo.purs
index 3daca2f..cf00b8e 100644
--- a/ddl/out/LambdaCube.TypeInfo.purs
+++ b/ddl/out/LambdaCube.TypeInfo.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.255126Z
+-- 2016-02-08T13:33:24.089367000000Z
 
 module LambdaCube.TypeInfo where
 import Prelude
diff --git a/ddl/out/LambdaCube.TypeInfo.swift b/ddl/out/LambdaCube.TypeInfo.swift
index 6b46124..8322914 100644
--- a/ddl/out/LambdaCube.TypeInfo.swift
+++ b/ddl/out/LambdaCube.TypeInfo.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.255126Z
+// 2016-02-08T13:33:24.089367000000Z
 
 enum TypeInfo {
   case TypeInfo(TypeInfo_Data)
diff --git a/ddl/out/LambdaCube.TypeInfo2.hpp b/ddl/out/LambdaCube.TypeInfo2.hpp
index b309a2b..ae6412b 100644
--- a/ddl/out/LambdaCube.TypeInfo2.hpp
+++ b/ddl/out/LambdaCube.TypeInfo2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.255126Z
+// 2016-02-08T13:33:24.089367000000Z
 
 #ifndef HEADER_LambdaCube.TypeInfo_H
 #define HEADER_LambdaCube.TypeInfo_H
diff --git a/ddl/out/TestData.cpp b/ddl/out/TestData.cpp
index a2ff86c..bbb2251 100644
--- a/ddl/out/TestData.cpp
+++ b/ddl/out/TestData.cpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.27456Z
+// 2016-02-08T13:33:24.109009000000Z
 
 #include "TestData.hpp"
 template<> json toJSON<std::shared_ptr<ClientInfo>>(std::shared_ptr<ClientInfo> &v) {
diff --git a/ddl/out/TestData.hpp b/ddl/out/TestData.hpp
index 95f4436..08b6020 100644
--- a/ddl/out/TestData.hpp
+++ b/ddl/out/TestData.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.27456Z
+// 2016-02-08T13:33:24.109009000000Z
 
 #ifndef HEADER_TestData_H
 #define HEADER_TestData_H
diff --git a/ddl/out/TestData.hs b/ddl/out/TestData.hs
index a48dc42..a81134f 100644
--- a/ddl/out/TestData.hs
+++ b/ddl/out/TestData.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.27456Z
+-- 2016-02-08T13:33:24.109009000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module TestData where
diff --git a/ddl/out/TestData.purs b/ddl/out/TestData.purs
index 4a0575b..891704d 100644
--- a/ddl/out/TestData.purs
+++ b/ddl/out/TestData.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-01-28T13:15:31.27456Z
+-- 2016-02-08T13:33:24.109009000000Z
 
 module TestData where
 import Prelude
diff --git a/ddl/out/TestData.swift b/ddl/out/TestData.swift
index 0b4be5a..398ce23 100644
--- a/ddl/out/TestData.swift
+++ b/ddl/out/TestData.swift
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.27456Z
+// 2016-02-08T13:33:24.109009000000Z
 
 enum ClientInfo {
   case ClientInfo(ClientInfo_Data)
diff --git a/ddl/out/TestData2.hpp b/ddl/out/TestData2.hpp
index 7e44da4..07ef071 100644
--- a/ddl/out/TestData2.hpp
+++ b/ddl/out/TestData2.hpp
@@ -1,5 +1,5 @@
 // generated file, do not modify!
-// 2016-01-28T13:15:31.27456Z
+// 2016-02-08T13:33:24.109009000000Z
 
 #ifndef HEADER_TestData_H
 #define HEADER_TestData_H
diff --git a/lambdacube-ir.haskell/lambdacube-ir.cabal b/lambdacube-ir.haskell/lambdacube-ir.cabal
index 370d04f..3da6465 100644
--- a/lambdacube-ir.haskell/lambdacube-ir.cabal
+++ b/lambdacube-ir.haskell/lambdacube-ir.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                lambdacube-ir
-version:             0.2.0.0
+version:             0.3.0.0
 synopsis:            LambdaCube 3D intermediate representation of 3D graphics pipelines
 description:         LambdaCube 3D intermediate representation of 3D graphics pipelines
 license:             BSD3