X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.district.network%2Fscl%2FSimantics%2FDistrict%2FTechType.scl;h=33d40360fedb8993aace95ac17885a4c7bb145b1;hb=refs%2Fchanges%2F70%2F4570%2F1;hp=9b6ddeb9bcc06f7477630e255356fe92d702f8f2;hpb=140777cbd6d770435d8eb70f9e2266e5e849658e;p=simantics%2Fdistrict.git

diff --git a/org.simantics.district.network/scl/Simantics/District/TechType.scl b/org.simantics.district.network/scl/Simantics/District/TechType.scl
index 9b6ddeb9..33d40360 100644
--- a/org.simantics.district.network/scl/Simantics/District/TechType.scl
+++ b/org.simantics.district.network/scl/Simantics/District/TechType.scl
@@ -1,7 +1,23 @@
 import "Simantics/DB"
+import "Map" as Map
 
 importJava "org.simantics.district.network.techtype.TechTypeUtils" where
     "Update component properties from tech type table: `updateComponent component`"
     updateComponent :: Resource -> <Proc> ()
     "Reset all components to values in a tech type table: `resetComponents table`"
     resetComponents :: Resource -> <Proc> ()
+    "Reset all map diagram elements to values in a tech type table: `resetMapElements table`"
+    resetMapElements :: Resource -> <Proc> ()
+    "Load a tech type table for a given component type from a CSV file: `loadTechTypeTable componentType filePath`"
+    loadTechTypeTable :: Resource -> String -> <Proc> ()
+    
+    "Get a possible tech type key property name for a component type"
+    getPossibleTechTypeKeyName :: Resource -> <ReadGraph> Maybe String
+    "Get a possible tech type table in a model for a component type: `getPossibleTechTypeTable model componentType`"
+    getPossibleTechTypeTable :: Resource -> Resource -> <ReadGraph> Maybe Resource
+    "Get data from a tech type table"
+    getTechTypeData :: Resource -> <ReadGraph> Map.T String (Map.T String String)
+    "Get data for enabled items in a tech type table"
+    getEnabledTechTypeData :: Resource -> <ReadGraph> Map.T String (Map.T String String)
+    "Get a possible row from a tech type table for the given key value"
+    getPossibleTechTypeItem :: Resource -> String -> <ReadGraph> Maybe (Map.T String String)