1 import "Simantics/Entity" hiding (findFreshName)
\r
3 importJava "org.simantics.modeling.Rename" where
\r
6 renameNode resource newName
\r
8 Renames the given `resource` with the given `newName` and returns
\r
13 > renameNode resource "NewName"
\r
14 "Succesfully renamed oldName to NewName"
\r
18 renameNode :: Resource -> String -> <WriteGraph> String
\r
21 renameMBNode entity newName
\r
23 Renames the given `entity` with the given `newName` and returns
\r
28 > renameMBNode entity "NewName"
\r
29 "Succesfully renamed oldName to NewName"
\r
33 renameMBNode :: Resource -> String -> <WriteGraph> String
\r
34 renameMBNode entity newname = do
\r
35 renameNode (toResource entity) newname
\r
37 importJava "org.simantics.db.common.utils.NameUtils" where
\r
38 @JavaName findFreshName
\r
40 findFreshName name container
\r
42 Finds fresh and unused name with proposition `name` under the given `container`
\r
43 and returns the freshName
\r
47 freshName = findFreshName "Model" currentProject ()
\r
49 findFreshName :: String -> Resource -> <ReadGraph> String
\r
51 @JavaName getSafeName
\r
53 getSafeName resource
\r
55 Gets safe name for the given `resource` and returns the name
\r
59 name = getSafeName (toResource model)
\r
61 getSafeName :: Resource -> <ReadGraph> String