Project

General

Profile

9488_skeleton_final.patch

Andrei Plugaru, 02/04/2026 07:18 AM

Download (16.6 KB)

View differences:

new/oo4gl/OpenEdge/Core/Collections/AbstractTTCollection.cls 2026-02-02 08:46:29 +0000
1 1
class OpenEdge.Core.Collections.AbstractTTCollection
2
	implements OpenEdge.Core.Collections.ICollection, 
3
		OpenEdge.Core.Collections.IIterable abstract:
2
	implements OpenEdge.Core.Collections.ICollection abstract:
4 3

  
5 4
	constructor public AbstractTTCollection ():
6 5
	end.
......
14 13
	constructor protected AbstractTTCollection ( phtt as handle, hField as handle):
15 14
	end.
16 15

  
16
    destructor AbstractTTCollection():
17
    end.
18

  
17 19
	define public property Size as integer no-undo
18 20
		public get.
19 21
		private set.
new/oo4gl/OpenEdge/Core/Collections/Array.cls 2026-02-03 14:28:03 +0000
1 1
class OpenEdge.Core.Collections.Array
2
	implements OpenEdge.Core.Collections.ICollection, 
3
		OpenEdge.Core.Collections.IIterable:
2
	implements OpenEdge.Core.Collections.IList:
4 3

  
5 4
	constructor public Array ( piSize as integer):
6 5
	end.
......
11 10
	constructor public Array ():
12 11
	end.
13 12

  
14
	define public static variable DefaultArraySize as integer no-undo.
15

  
13
     constructor static Array():
14
    end.
15
    
16
    destructor Array():
17
    end.
18
    
19
    define public static property DefaultArraySize as integer no-undo
20
     get.
21
     set.
22
    
16 23
	define public property AutoExpand as logical no-undo
17 24
		public get.
18 25
		public set.
......
82 89

  
83 90
	method protected void CloneElements ( poClone as OpenEdge.Core.Collections.ICollection):
84 91
	end.
85

  
92
    
93
    method protected void InsertElement (input pIndex as integer,
94
                                        input pElement as Progress.Lang.Object):
95
    end.
96
    
97
    method protected void InsertElements(input pIndex as integer,
98
                                         input pElement as Progress.Lang.Object extent):
99
    end.
100
    
101
    method public logical Add(input pIndex as integer,
102
                              input pElement as Progress.Lang.Object):
103
    end.
104
    
105
    method public logical AddAll(input pIndex as integer,
106
                                 input pCollection as OpenEdge.Core.Collections.ICollection):
107
    end.  
108
    
109
    method public logical AddArray(input pIndex as integer,
110
                                   input pArray as Progress.Lang.Object extent):
111
    end.
112
    
113
    method public Progress.Lang.Object Get(input pIndex as integer ):
114
    end.
115
    
116
    method public integer IndexOf( input pElement as Progress.Lang.Object ):
117
    end.
118
    
119
    method public IListIterator ListIterator():
120
    end.
121
    
122
    method public IListIterator ListIterator(input pIndex as integer):
123
    end.
124
    
125
    method public integer LastIndexOf(input pElement as Progress.Lang.Object):
126
    end.
127
    
128
    method public Progress.Lang.Object Remove(input pIndex as integer):
129
    end.
130
    
131
    method public IList SubList(input pFromIndex as integer,
132
                                input pToIndex as integer):
133
    end.
134
    
135
    method public override logical Equals(o as Progress.Lang.Object):
136
    end.
86 137
end.
new/oo4gl/OpenEdge/Core/Collections/List.cls 2026-02-02 18:42:19 +0000
1 1
class OpenEdge.Core.Collections.List
2
	inherits OpenEdge.Core.Collections.AbstractTTCollection
3
	implements OpenEdge.Core.Collections.IList, 
4
		OpenEdge.Core.Collections.ICollection, 
5
		OpenEdge.Core.Collections.IIterable:
2
serializable
3
implements OpenEdge.Core.Collections.IList:
4

  
5
	define public property Size as integer no-undo
6
		public get.
6 7

  
7 8
	constructor public List ():
8 9
	end.
......
10 11
	constructor public List ( list as OpenEdge.Core.Collections.IList):
11 12
	end.
12 13

  
14
    constructor private List (input pBackingList as Progress.Collections.IList):
15
    end.
16

  
13 17
	constructor protected List ( poCol as OpenEdge.Core.Collections.ICollection, phtt as handle, pcField as character):
14 18
	end.
15 19

  
......
30 34
	method public logical Add ( seq as integer, obj as Progress.Lang.Object):
31 35
	end.
32 36

  
37
	method public logical AddNull():
38
    end method.
39

  
33 40
	method public override logical Add ( obj as Progress.Lang.Object):
34 41
	end.
35 42

  
......
42 49
	method public logical AddArray ( seq as integer, obj as Progress.Lang.Object extent ):
43 50
	end.
44 51

  
52
    method public logical AddArray(input pItems as Progress.Lang.Object extent):
53
    end.
54

  
55
	method public logical ContainsAll(input poCollection as OpenEdge.Core.Collections.ICollection ):
56
    end.
57

  
58
	method public logical Contains( input poElement as Progress.Lang.Object ):
59
    end.
60

  
61
	method public void ToTable( output table-handle tt):
62
    end.
63

  
64
    method public logical RemoveAll( input poCollection as OpenEdge.Core.Collections.ICollection ):
65
    end.
66

  
67
	method public logical RetainAll( input poCollection as OpenEdge.Core.Collections.ICollection):
68
    end.
69

  
70
	method public void Clear(  ):
71
    end.
72

  
73
    method public Object extent ToArray(  ):
74
    end.
75

  
45 76
	method public override logical Equals ( o as Progress.Lang.Object):
46 77
	end.
47 78

  
new/oo4gl/OpenEdge/Core/Collections/ListIterator.cls 2026-02-02 18:41:22 +0000
1 1
class OpenEdge.Core.Collections.ListIterator
2
	inherits OpenEdge.Core.Collections.Iterator
3
	implements OpenEdge.Core.Collections.IListIterator, 
4
		OpenEdge.Core.Collections.IIterator:
2
	implements OpenEdge.Core.Collections.IListIterator:
3

  
4
    constructor package-private ListIterator(input pList as Progress.Collections.IList):
5
    end.
6

  
7
	constructor package-private ListIterator(input pList as Progress.Collections.IList,
8
                                             input pIdx as integer):
9
    end.
5 10

  
6 11
	constructor public ListIterator ( poCol as OpenEdge.Core.Collections.ICollection, tt as handle, objField as character, seqField as character):
7 12
	end.
......
21 26
	method public integer NextIndex ():
22 27
	end.
23 28

  
29
	method public logical HasNext():
30
    end.
31

  
32
    method public Progress.Lang.Object Next(  ):
33
    end.
34

  
35
    method public logical Remove():
36
    end.
24 37
end.
new/oo4gl/OpenEdge/Core/Collections/Stack.cls 2026-02-02 08:46:29 +0000
12 12
	constructor public Stack ():
13 13
	end.
14 14

  
15
	constructor static Stack():
16
    end.
17

  
15 18
	define public static variable DefaultStackDepth as integer no-undo.
16 19

  
17 20
	define public property AutoExpand as logical no-undo
new/oo4gl/OpenEdge/Core/Collections/StringCollection.cls 2026-02-02 08:46:29 +0000
1 1
class OpenEdge.Core.Collections.StringCollection
2 2
	inherits OpenEdge.Core.Collections.Collection
3
	implements OpenEdge.Core.Collections.IStringCollection, 
4
		OpenEdge.Core.Collections.ICollection, 
5
		OpenEdge.Core.Collections.IIterable:
6

  
3
	implements OpenEdge.Core.Collections.IStringCollection:
4
	
7 5
	constructor public StringCollection ():
8 6
	end.
9 7

  
new/oo4gl/OpenEdge/Core/Decimal.cls 2026-02-02 17:19:28 +0000
1 1
class OpenEdge.Core.Decimal
2 2
	implements Ccs.Common.Support.IDecimalHolder, 
3
		Ccs.Common.Support.IPrimitiveHolder:
3
	Progress.Collections.IComparable,
4
	Progress.Collections.IHashable:
4 5

  
5 6
	constructor public Decimal ( pdVal as decimal):
6 7
	end.
......
15 16
	method public override logical Equals ( PO as Progress.Lang.Object):
16 17
	end.
17 18

  
19
	method public integer CompareTo (input pOther as Ccs.Common.Support.IDecimalHolder):
20
    end.
21

  
22
    method public integer HashCode ( ):
23
    end.
18 24
end.
new/oo4gl/OpenEdge/Core/Integer.cls 2026-02-02 18:40:45 +0000
1 1
class OpenEdge.Core.Integer
2 2
	implements Ccs.Common.Support.IInt64Holder, 
3
		Ccs.Common.Support.IPrimitiveHolder:
3
		       Progress.Collections.IComparable,
4
			   Progress.Collections.IHashable:
4 5

  
5 6
	constructor public Integer ( piValue as int64):
6 7
	end.
......
18 19
	method public override character ToString ():
19 20
	end.
20 21

  
22
	method public integer CompareTo (input pOther as Ccs.Common.Support.IInt64Holder):
23
    end method.
24

  
25
    method public integer HashCode ( ):
26
    end method.
21 27
end.
new/oo4gl/OpenEdge/Core/LongcharArrayHolder.cls 2026-02-02 08:46:29 +0000
1 1
class OpenEdge.Core.LongcharArrayHolder
2
	implements Ccs.Common.Support.ILongcharArrayHolder, 
3
		Ccs.Common.Support.IPrimitiveArrayHolder:
2
	implements Ccs.Common.Support.ILongcharArrayHolder:
4 3

  
5 4
	constructor public LongcharArrayHolder ():
6 5
	end.
7 6

  
7
	constructor public LongcharArrayHolder(input pSize as integer):
8
    end.
9

  
8 10
	constructor public LongcharArrayHolder ( pcValue as longchar extent ):
9 11
	end.
10 12

  
new/oo4gl/OpenEdge/Core/StringConstant.cls 2026-02-02 08:46:29 +0000
1 1
class OpenEdge.Core.StringConstant abstract:
2 2

  
3
	constructor public StringConstant ():
4
	end.
3
    constructor static StringConstant():
4
    end.
5 5

  
6 6
	define public static property TAB as character no-undo
7 7
		public get.
......
55 55
	define public static property UNKNOWN as character no-undo
56 56
		public get.
57 57

  
58
	define static public property US    as character no-undo get. private set.   
59

  
60
	define static public property PAREN_OPEN    as character no-undo get.
61

  
62
	define static public property PAREN_CLOSE   as character no-undo get.
63

  
64
	define static public property EMPTY as character no-undo get.
58 65
end.
new/oo4gl/OpenEdge/Core/System/InvalidValueSpecifiedError.cls 2026-02-02 08:46:29 +0000
2 2
	inherits OpenEdge.Core.System.ApplicationError
3 3
:
4 4

  
5
    constructor static InvalidValueSpecifiedError():
6
    end.
7

  
5 8
	constructor protected InvalidValueSpecifiedError ():
6 9
	end.
7 10

  
new/oo4gl/OpenEdge/Core/System/NotFoundError.cls 2026-02-02 08:46:29 +0000
1 1
class OpenEdge.Core.System.NotFoundError
2 2
	inherits OpenEdge.Core.System.ApplicationError
3 3
:
4
    constructor static NotFoundError():
5
    end.
4 6

  
5 7
	constructor public NotFoundError ( poErr as Progress.Lang.Error, pcArgs1 as character, pcArgs2 as character):
6 8
	end.
new/oo4gl/OpenEdge/Core/TimeStamp.cls 2026-02-03 14:22:15 +0000
1
class OpenEdge.Core.TimeStamp:
2

  
1
class OpenEdge.Core.TimeStamp
2
implements Progress.Collections.IComparable,
3
 Progress.Collections.IHashable:
3 4
	constructor public TimeStamp ( ptTimeStamp as date):
4 5
	end.
5 6

  
......
40 41
	method public static datetime ToABLDateTimeFromISO ( pcValue as character):
41 42
	end.
42 43

  
44
    method static public datetime-tz TryParseTimestamp (input pValue as character):
45
    end.
46

  
43 47
	method public static datetime-tz ToABLDateTimeTzFromISO ( pcValue as character):
44 48
	end.
45 49

  
......
64 68
	method public integer ToTime ():
65 69
	end.
66 70

  
71
    method public int64 MillisecondsSinceUnixEpoch ( ):
72
    end.
73
    
74
    method public integer CompareTo (input pOther as OpenEdge.Core.TimeStamp):
75
    end.
76

  
77
    method public integer HashCode ( ):
78
    end.
67 79
end.
new/oo4gl/OpenEdge/Core/Util/Token.cls 2026-02-03 14:35:06 +0000
1
class OpenEdge.Core.Util.Token:
1
class OpenEdge.Core.Util.Token serializable
2
implements Progress.Collections.IComparable
3
         , Progress.Collections.IHashable
4
:
2 5

  
3 6
	constructor public Token ( pGroup as character, pArg as character):
4 7
	end.
......
14 17
	define public property Value as character no-undo
15 18
		public get.
16 19
		public set.
20
		
21
	define public property AllowUnknownValue as logical no-undo
22
		public get.
23
		private set.
24

  
25
    constructor public Token (input pGroup as character,
26
                              input pArg   as character,
27
                              input pUnknownValAllowed as logical):
28
    end.
17 29

  
18 30
	method public static OpenEdge.Core.Util.Token Parse ( pToken as character):
19 31
	end.
20 32

  
21 33
	method public override character ToString ():
22 34
	end.
23

  
35
    
36
	method override public logical Equals (input pCompare as Progress.Lang.Object):
37
    end.
38
    
39
    method public integer CompareTo (input pOther as OpenEdge.Core.Util.Token):
40
    end.
41
    
42
    method public integer HashCode ( ):
43
    end.
24 44
end.
new/oo4gl/OpenEdge/Core/Util/TokenResolver.cls 2026-02-02 08:46:29 +0000
44 44
	end.
45 45

  
46 46
	define public static event TokenResolved void ( pSender as Progress.Lang.Object, pArgs as OpenEdge.Core.Util.TokenResolverEventArgs).
47
   
48
	method static private character extent SplitTokenArg (input pTokenArg as character):
49
    end.
50

  
51
	method static public character ResolveSession(input pTokenArg as character,
52
                                                  input pSessionCtx as character):
53
    end.
54

  
55
	method static public void ResolveToken(input pToken as OpenEdge.Core.Util.Token,
56
                                           input pContext as Progress.Lang.Object):
57
    end.
58

  
59
    method static public character ResolveToken(input pTokenGroup as character,
60
                                                input pTokenArg as character,
61
                                                input pContext as Progress.Lang.Object):
62
    end.
63

  
64
    method static public OpenEdge.Core.Util.Token extent Parse(input pBaseString as character):
65
    end.
47 66

  
48 67
end.
new/oo4gl/OpenEdge/Logging/LogEvent.cls 2026-02-02 08:46:29 +0000
12 12
	constructor public LogEvent ( poLevel as OpenEdge.Logging.LogLevelEnum, poMessage as OpenEdge.Logging.LogMessage):
13 13
	end.
14 14

  
15
	destructor public LogEvent():
16
    end.
17

  
15 18
	define public property Logger as OpenEdge.Logging.ILogWriter no-undo
16 19
		public get.
17 20
		public set.
new/oo4gl/OpenEdge/Logging/LogMessage.cls 2026-02-02 18:43:01 +0000
6 6

  
7 7
  define public property Message as character get.
8 8

  
9
  define public property Tokens as Progress.Collections.ISet no-undo get.
10

  
9 11
  constructor public LogMessage(p1 as character, p2 as character):
10 12
  end.
11 13

  
......
44 46

  
45 47
  	method public Progress.Lang.Object GetContext ( pKey as character):
46 48
	  end.
49

  
50
  method public logical AddTokens(input pTokens as OpenEdge.Core.Util.Token extent):
51
  end.
52

  
53
  method public logical AddToken(input pToken as OpenEdge.Core.Util.Token):
54
  end.
47 55
end.
new/oo4gl/OpenEdge/Security/Principal.cls 2026-02-02 08:46:29 +0000
5 5

  
6 6
	constructor public Principal ( phClientPrincipal as handle, plAutoDestroy as logical):
7 7
	end.
8
    
9
	destructor Principal():
10
    end. 
8 11

  
9 12
	define public property Token as handle no-undo
10 13
		public get.