1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| Quintiq file version 2.0
| #parent: #root
| MethodOverride AddUnsafe (
| LibOpt_ScopeThin scope,
| LibOpt_Group group
| ) as LibOpt_ScopeShared
| {
| TextBody:
| [*
| result := [LibOpt_ScopeShared] this;
|
| if( scope.Index() = 0 )
| {
| set := this.Set().BitOr( scope.Mask() );
| group_vector := this.GroupVectorAdd( scope, group );
| if( this.Set() <> set )
| {
| scope.ScopeSharedOnScope( relnew,
| ScopeShared := result,
| Group := group );
| }
| else if( this.GroupVector() <> group_vector )
| {
| traverse( this, ScopeSharedOnScope, ssos, ssos.ScopeThin() = scope )
| {
| ssos.Group( relset, group );
| }
| }
|
| LibOpt_ScopeShared32::ChangeKeySet32( this, set, this.Type(), group_vector );
| }
| else
| {
| result := LibOpt_ScopeSharedVector::From32( this, scope, group );
| traverse( this, ScopeElement, se )
| {
| result.ScopeElement( relinsert, se );
| }
| this.Delete();
| }
|
| return result;
| *]
| }
|
|
