2 import "Simantics/Ontologies"
4 importJava "org.simantics.datatypes.literal.GUID" where
8 instance Show GUID where
9 show guid = guidIndexString guid
11 importJava "org.simantics.datatypes.literal.GUID" where
13 guidBinding :: Binding a
15 randomGUID :: <Proc> GUID
17 guidIndexString :: GUID -> String
19 guidOf :: Resource -> <ReadGraph> GUID
20 guidOf res = relatedValue_ res L0.identifier guidBinding
22 possibleGUIDOf :: Resource -> <ReadGraph> Maybe GUID
23 possibleGUIDOf res = possibleRelatedValue_ res L0.identifier guidBinding
25 claimGUID :: Resource -> <WriteGraph, Proc> ()
27 match possibleGUIDOf res with
28 Nothing -> claimRelatedValueWithType_ res L0.identifier L0.GUID randomGUID guidBinding