feat(asset): add "assemble wdd" draft

Author: yyc-git

src/construct/domain_layer/domain/asset/assemble/service/AssembleCommonDoService.re

@@ -0,0 +1,6 @@
+let addChildrenToParent = (parent, children) =>
+  children
+  ->ListSt.traverseResultM(child => {
+      HierachyTransformDoService.setParent(parent, child)
+    })
+  ->ListSt.ignoreTraverseResultValue;

src/construct/domain_layer/domain/asset/assemble/service/AssembleWDDDoService.re

@@ -0,0 +1,7 @@
+open WDDType;
+
+let assembleWDBData = wdd => {
+  BatchCreateDoService.batchCreate(wdd)
+  ->Result.bind(BatchOperateDoService.batchOperate(wdd))
+  ->Result.bind(BuildRootGameObjectDoService.build(wdd));
+};

src/construct/domain_layer/domain/asset/assemble/service/BatchAddComponentsDoService.re

@@ -0,0 +1,60 @@
+open WDDType;
+
+let _batchAddComponents = (addComponentFunc, gameObjects, components) => {
+  ListSt.zipBy(gameObjects, components, (gameObject, component) => {
+    addComponentFunc(gameObject, component)
+  })
+  ->ListSt.sequenceResultM;
+};
+
+let batchAddComponents =
+    (
+      wdd,
+      (
+        transformGameObjects,
+        gameObjectTransforms,
+        geometryGameObjects,
+        gameObjectGeometries,
+        basicCameraViewGameObjects,
+        gameObjectBasicCameraViews,
+        perspectiveCameraProjectionGameObjects,
+        gameObjectPerspectiveCameraProjection,
+        bsdfMaterialGameObjects,
+        gameObjectBSDFMaterials,
+        directionLightGameObjects,
+        gameObjectDirectionLights,
+      ),
+    ) => {
+  ListResult.mergeResults([
+    _batchAddComponents(
+      AddComponentGameObjectDoService.addTransform,
+      transformGameObjects,
+      gameObjectTransforms,
+    ),
+    _batchAddComponents(
+      AddComponentGameObjectDoService.addGeometry,
+      geometryGameObjects,
+      gameObjectGeometries,
+    ),
+    _batchAddComponents(
+      AddComponentGameObjectDoService.addBasicCameraView,
+      basicCameraViewGameObjects,
+      gameObjectBasicCameraViews,
+    ),
+    _batchAddComponents(
+      AddComponentGameObjectDoService.addPerspectiveCameraProjection,
+      perspectiveCameraProjectionGameObjects,
+      gameObjectPerspectiveCameraProjection,
+    ),
+    _batchAddComponents(
+      AddComponentGameObjectDoService.addBSDFMaterial,
+      bsdfMaterialGameObjects,
+      gameObjectBSDFMaterials,
+    ),
+    _batchAddComponents(
+      AddComponentGameObjectDoService.addDirectionLight,
+      directionLightGameObjects,
+      gameObjectDirectionLights,
+    ),
+  ]);
+};

src/construct/domain_layer/domain/asset/assemble/service/BatchCreateDoService.re

@@ -0,0 +1,83 @@
+open WDDType;
+
+let _batchCreateEntitiesWithResult = (createFunc, count) =>
+  ListSt.range(0, count - 1)
+  ->ListSt.traverseReduceResultM(
+      (list, _) => {
+        createFunc()->Result.mapSuccess(entity => [entity, ...list])
+      },
+      [],
+    )
+  ->Result.mapSuccess(ListSt.reverse);
+
+let _batchCreateEntitiesWithoutResult = (createFunc, count) =>
+  ListSt.range(0, count - 1)
+  ->ListSt.reduce([], (list, _) => {[createFunc(), ...list]})
+  ->ListSt.reverse;
+
+let _batchCreateGameObject = ({gameObjects}) =>
+  _batchCreateEntitiesWithResult(
+    CreateGameObjectDoService.create,
+    gameObjects.count,
+  );
+
+let _batchCreateTransform = ({transforms}) =>
+  _batchCreateEntitiesWithResult(
+    CreateTransformDoService.create,
+    transforms->ListSt.length,
+  );
+
+let _batchCreateGeometry = ({geometries}) =>
+  _batchCreateEntitiesWithResult(
+    CreateGeometryDoService.create,
+    geometries->ListSt.length,
+  );
+
+let _batchCreateBSDFMaterial = ({bsdfMaterials}) =>
+  _batchCreateEntitiesWithResult(
+    CreateBSDFMaterialDoService.create,
+    bsdfMaterials->ListSt.length,
+  );
+
+let _batchCreateDirectionLight = ({directionLights}) =>
+  _batchCreateEntitiesWithResult(
+    CreateDirectionLightDoService.create,
+    directionLights->ListSt.length,
+  );
+
+let _batchCreateBasicCameraView = ({basicCameraViews}) =>
+  _batchCreateEntitiesWithoutResult(
+    CreateBasicCameraViewDoService.create,
+    basicCameraViews->ListSt.length,
+  );
+
+let _batchCreatePerspectiveCameraProjection =
+    ({perspectiveCameraProjections}) =>
+  _batchCreateEntitiesWithoutResult(
+    CreatePerspectiveCameraProjectionDoService.create,
+    perspectiveCameraProjections->ListSt.length,
+  );
+
+let batchCreate = wdd => {
+  Tuple5.collectResult(
+    _batchCreateGameObject(wdd),
+    _batchCreateTransform(wdd),
+    _batchCreateGeometry(wdd),
+    _batchCreateBSDFMaterial(wdd),
+    _batchCreateDirectionLight(wdd),
+  )
+  ->Result.mapSuccess(
+      (gameObjects, transforms, geometries, bsdfMaterials, directionLights) => {
+      (
+        gameObjects,
+        (
+          transforms,
+          geometries,
+          bsdfMaterials,
+          directionLights,
+          _batchCreateBasicCameraView(wdd),
+          _batchCreatePerspectiveCameraProjection(wdd),
+        ),
+      )
+    });
+};