diff options
Diffstat (limited to 'tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/example2/classescs2asV2Lookup.ocl')
-rw-r--r-- | tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/example2/classescs2asV2Lookup.ocl | 66 |
1 files changed, 33 insertions, 33 deletions
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/example2/classescs2asV2Lookup.ocl b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/example2/classescs2asV2Lookup.ocl index 59bdfdc1e..6f656f2f8 100644 --- a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/example2/classescs2asV2Lookup.ocl +++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/example2/classescs2asV2Lookup.ocl @@ -11,32 +11,32 @@ def : _exported_env(importer : OclElement) : lookup::LookupEnvironment[1] = lookup::LookupEnvironment { } -- Domain specific default functionality -def : env_Class() : lookup::LookupEnvironment[1] = - _env_Class(null) -def : env_Package() : lookup::LookupEnvironment[1] = - _env_Package(null) -def : env_Operation() : lookup::LookupEnvironment[1] = - _env_Operation(null) -def : env_Property() : lookup::LookupEnvironment[1] = - _env_Property(null) +def : unqualified_env_Class() : lookup::LookupEnvironment[1] = + _unqualified_env_Class(null) +def : unqualified_env_Package() : lookup::LookupEnvironment[1] = + _unqualified_env_Package(null) +def : unqualified_env_Operation() : lookup::LookupEnvironment[1] = + _unqualified_env_Operation(null) +def : unqualified_env_Property() : lookup::LookupEnvironment[1] = + _unqualified_env_Property(null) -def : _env_Class(child : OclElement) : lookup::LookupEnvironment[1] = +def : _unqualified_env_Class(child : OclElement) : lookup::LookupEnvironment[1] = parentEnv_Class() -def : _env_Package(child : OclElement) : lookup::LookupEnvironment[1] = +def : _unqualified_env_Package(child : OclElement) : lookup::LookupEnvironment[1] = parentEnv_Package() -def : _env_Operation(child : OclElement) : lookup::LookupEnvironment[1] = +def : _unqualified_env_Operation(child : OclElement) : lookup::LookupEnvironment[1] = parentEnv_Operation() -def : _env_Property(child : OclElement) : lookup::LookupEnvironment[1] = +def : _unqualified_env_Property(child : OclElement) : lookup::LookupEnvironment[1] = parentEnv_Property() def : parentEnv_Class() : lookup::LookupEnvironment[1] = - let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._env_Class(self) endif + let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._unqualified_env_Class(self) endif def : parentEnv_Package() : lookup::LookupEnvironment[1] = - let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._env_Package(self) endif + let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._unqualified_env_Package(self) endif def : parentEnv_Operation() : lookup::LookupEnvironment[1] = - let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._env_Operation(self) endif + let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._unqualified_env_Operation(self) endif def : parentEnv_Property() : lookup::LookupEnvironment[1] = - let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._env_Property(self) endif + let parent = oclContainer() in if parent = null then lookup::LookupEnvironment { } else parent._unqualified_env_Property(self) endif -- End of domain specific default functionality endpackage @@ -52,7 +52,7 @@ package as context Root -def : _env_Package(child : ocl::OclElement) : lookup::LookupEnvironment = +def : _unqualified_env_Package(child : ocl::OclElement) : lookup::LookupEnvironment = let env = lookup::LookupEnvironment {} in env .addElements(ownedPackages) @@ -85,11 +85,11 @@ def : _qualified_env() : lookup::LookupEnvironment = in env .addElements(ownedPackages) .addElements(ownedClasses) -def : _env_Package(child : ocl::OclElement) : lookup::LookupEnvironment = +def : _unqualified_env_Package(child : ocl::OclElement) : lookup::LookupEnvironment = parentEnv_Package().nestedEnv() .addElements(ownedPackages) -def : _env_Class(child : ocl::OclElement) : lookup::LookupEnvironment = +def : _unqualified_env_Class(child : ocl::OclElement) : lookup::LookupEnvironment = parentEnv_Class().nestedEnv() .addElements(ownedClasses) @@ -121,13 +121,13 @@ def : _qualified_env() : lookup::LookupEnvironment = in env .addElements(ownedOperations) .addElements(ownedProperties) -def : _env_Operation(child : ocl::OclElement) : lookup::LookupEnvironment = +def : _unqualified_env_Operation(child : ocl::OclElement) : lookup::LookupEnvironment = parentEnv_Operation().nestedEnv() .addElements(self->closure(superClass).ownedOperations) .nestedEnv() .addElements(ownedOperations) -def : _env_Property(child : ocl::OclElement) : lookup::LookupEnvironment = +def : _unqualified_env_Property(child : ocl::OclElement) : lookup::LookupEnvironment = parentEnv_Property().nestedEnv() .addElements(self->closure(superClass).ownedProperties) .nestedEnv() @@ -174,14 +174,14 @@ in if foundPackage->isEmpty() and not (env.parentEnv = null) -- Note: when calling this method, the source element of the argument passed to this method, will be the contextual -- object on which error reports will be handled -def : _lookupPackage(pName : String) : Package[?] = -let foundPackage = _lookupPackage(env_Package(), pName) +def : _lookupUnqualifiedPackage(pName : String) : Package[?] = +let foundPackage = _lookupPackage(unqualified_env_Package(), pName) in if foundPackage->isEmpty() then null else foundPackage->first() -- LookupVisitor will report ambiguous result endif def : lookupPackage(aPathElementCS : cs::PathElementCS) : Package[?] = - _lookupPackage(aPathElementCS.name) + _lookupUnqualifiedPackage(aPathElementCS.name) -- QN Package lookup @@ -206,14 +206,14 @@ in if foundClass->isEmpty() and not (env.parentEnv = null) -- Note: when calling this method, the source element of the argument passed to this method, will be the contextual -- object on which error reports will be handled -def : _lookupClass(cName : String) : Class[?] = -let foundClass = _lookupClass(env_Class(), cName) +def : _lookupUnqualifiedClass(cName : String) : Class[?] = +let foundClass = _lookupClass(unqualified_env_Class(), cName) in if foundClass->isEmpty() then null else foundClass->first() -- LookupVisitor will report ambiguous result endif def : lookupClass(aPathElementCS : cs::PathElementCS) : Class[?] = - _lookupClass(aPathElementCS.name) + _lookupUnqualifiedClass(aPathElementCS.name) -- QN Class lookup @@ -269,14 +269,14 @@ in if foundOperation->isEmpty() and not (env.parentEnv = null) -- Note: when calling this method, the source element of the argument passed to this method, will be the contextual -- object on which error reports will be handled -def : _lookupOperation(oName : String, args : OrderedSet(Argument)) : Operation[?] = -let foundOperation = _lookupOperation(env_Operation(), oName, args) +def : _lookupUnqualifiedOperation(oName : String, args : OrderedSet(Argument)) : Operation[?] = +let foundOperation = _lookupOperation(unqualified_env_Operation(), oName, args) in if foundOperation->isEmpty() then null else foundOperation->first() -- LookupVisitor will report ambiguous result endif def : lookupOperation(aPathElementCS : cs::PathElementCS, args : OrderedSet(Argument)) : Operation[?] = - _lookupOperation(aPathElementCS.name, args) + _lookupUnqualifiedOperation(aPathElementCS.name, args) -- QN Operation lookup @@ -301,14 +301,14 @@ in if foundProperty->isEmpty() and not (env.parentEnv = null) -- Note: when calling this method, the source element of the argument passed to this method, will be the contextual -- object on which error reports will be handled -def : _lookupProperty(pName : String) : Property[?] = -let foundProperty = _lookupProperty(env_Property(), pName) +def : _lookupUnqualifiedProperty(pName : String) : Property[?] = +let foundProperty = _lookupProperty(unqualified_env_Property(), pName) in if foundProperty->isEmpty() then null else foundProperty->first() -- LookupVisitor will report ambiguous result endif def : lookupProperty(aPathElementCS : cs::PathElementCS) : Property[?] = - _lookupProperty(aPathElementCS.name) + _lookupUnqualifiedProperty(aPathElementCS.name) -- QN Property lookup |