Make it possible to import CSV data via SCL & create models

[simantics/district.git] / org.simantics.district.imports / scl / Simantics / District / Import.scl

diff --git a/org.simantics.district.imports/scl/Simantics/District/Import.scl b/org.simantics.district.imports/scl/Simantics/District/Import.scl
new file mode 100644 (file)
index 0000000..9e423ca
--- /dev/null
+++ b/org.simantics.district.imports/scl/Simantics/District/Import.scl
@@ -0,0 +1,45 @@
+import "Files"
+import "Map" as Map
+import "Simantics/DB"
+
+importJava "org.simantics.district.imports.CSVImportModel" where
+    data CSVImportModel
+    
+    @JavaName "<init>"
+    csvImportModel :: () -> CSVImportModel
+    
+    setParentDiagram :: CSVImportModel -> Resource -> <Proc> ()
+    setSource :: CSVImportModel -> Path -> <Proc> ()
+    setDelimiter :: CSVImportModel -> Character -> <Proc> ()
+    
+    // Vertex
+    setXCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setYCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setZCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setHeatLoadDsIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setHeatPowerIndex :: CSVImportModel -> Integer -> <Proc> ()
+    
+    // Edge
+    setStartXCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setStartYCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setStartZCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setEndXCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setEndYCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setEndZCoordIndex :: CSVImportModel -> Integer -> <Proc> ()
+    
+    setLengthIndex :: CSVImportModel -> Integer -> <Proc> ()
+    detailedGeometryIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setDiameterIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setOuterDiameterIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setEdgePadding :: CSVImportModel -> Double -> <Proc> ()
+    
+    // Common
+    setSourceCRS :: CSVImportModel -> String -> <Proc> ()
+    setIdIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setAddressIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setComponentMappingIndex :: CSVImportModel -> Integer -> <Proc> ()
+    setComponentMappings :: CSVImportModel -> String -> Resource -> <Proc> ()
+
+importJava "org.simantics.district.imports.DistrictImportUtils" where
+    importVertices :: CSVImportModel -> <Proc> ()
+    importEdges :: CSVImportModel -> <Proc> ()