Project

General

Profile

9488_skeleton.patch

Andrei Plugaru, 01/30/2026 11:01 AM

Download (16.7 KB)

View differences:

new/oo4gl/OpenEdge/Core/Collections/AbstractTTCollection.cls 2026-01-30 14:13:55 +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-01-29 14:30:33 +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 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 Object):
136
    end.
86 137
end.
new/oo4gl/OpenEdge/Core/Collections/List.cls 2026-01-30 14:27:44 +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<Progress.Lang.Object>):
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-01-30 14:30:31 +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<Progress.Lang.Object>):
5
    end.
6

  
7
	constructor package-private ListIterator(input pList as Progress.Collections.IList<Progress.Lang.Object>,
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-01-30 14:31:59 +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-01-30 14:53:42 +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-01-30 13:33:38 +0000
1 1
class OpenEdge.Core.Decimal
2 2
	implements Ccs.Common.Support.IDecimalHolder, 
3
		Ccs.Common.Support.IPrimitiveHolder:
3
	Progress.Collections.IComparable<Ccs.Common.Support.IDecimalHolder>,
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-01-30 13:34:24 +0000
1 1
class OpenEdge.Core.Integer
2 2
	implements Ccs.Common.Support.IInt64Holder, 
3
		Ccs.Common.Support.IPrimitiveHolder:
3
		       Progress.Collections.IComparable<Ccs.Common.Support.IInt64Holder>,
4
			   Progress.Collections.IHashable
5
:
4 6

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

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

  
26
    method public integer HashCode ( ):
27
    end method.
21 28
end.
new/oo4gl/OpenEdge/Core/LongcharArrayHolder.cls 2026-01-30 13:36:50 +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-01-30 13:41:34 +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-01-30 14:56:11 +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-01-30 14:56:51 +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-01-30 13:59:45 +0000
1
class OpenEdge.Core.TimeStamp:
1
class OpenEdge.Core.TimeStamp
2
implements Progress.Collections.IComparable<OpenEdge.Core.TimeStamp>
3
         , Progress.Collections.IHashable
4
:
2 5

  
3 6
	constructor public TimeStamp ( ptTimeStamp as date):
4 7
	end.
......
40 43
	method public static datetime ToABLDateTimeFromISO ( pcValue as character):
41 44
	end.
42 45

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

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

  
......
64 70
	method public integer ToTime ():
65 71
	end.
66 72

  
73
    method public int64 MillisecondsSinceUnixEpoch ( ):
74
    end.
75
    
76
    method public integer CompareTo (input pOther as TimeStamp):
77
    end.
78

  
79
    method public integer HashCode ( ):
80
    end.
67 81
end.
new/oo4gl/OpenEdge/Core/Util/Token.cls 2026-01-30 15:07:14 +0000
1
class OpenEdge.Core.Util.Token:
1
class OpenEdge.Core.Util.Token serializable
2
implements Progress.Collections.IComparable<OpenEdge.Core.Util.Token>
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 Token):
40
    end.
41
    
42
    method public integer HashCode ( ):
43
    end.
24 44
end.
new/oo4gl/OpenEdge/Core/Util/TokenResolver.cls 2026-01-30 15:12:45 +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-01-30 15:15:23 +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-01-30 15:37:49 +0000
6 6

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

  
9
  define public property Tokens as Progress.Collections.ISet<OpenEdge.Core.Util.Token> 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-01-30 15:39:56 +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.