org.simantics.plant3d/scl/plant3d/utils/Loader.scl

   1 import "Simantics/DB"
   2 import "plant3d/scenegraph/P3DRootNode"
   3 import "./P3DScriptNodeMap"
   4 import "JavaBuiltin"
   5
   6 importJava "org.simantics.plant3d.scl.SCLUtil" where
   7
   8   loadReadOnly :: Resource -> P3DRootNode
   9   load :: Resource -> P3DScriptNodeMap
  10
  11 safeCoerce :: a -> Maybe b
  12 safeCoerce a = do
  13  (Just $ unsafeCoerce a) `catch` (\(_ :: Exception) -> Nothing)