skeleton.patch
| new/oo4gl/Progress/Lang/Class.cls 2022-03-07 07:21:28 +0000 | ||
|---|---|---|
| 16 | 16 | |
| 17 | 17 |
/* the actual GetPropertyValue() return type is variable (it depends on the */ |
| 18 | 18 |
/* property, but we are encoding it as Object until we have a better solution */ |
| 19 |
method public Progress.Lang.Object GetPropertyValue(input pname as character):
|
|
| 20 |
end. |
|
| 21 |
|
|
| 22 |
method public Progress.Lang.Object GetPropertyValue(input pname as character,
|
|
| 23 |
input index as Progress.Lang.Object):
|
|
| 24 |
end. |
|
| 25 |
|
|
| 26 |
method public Progress.Lang.Object GetPropertyValue(input obj-ref as Progress.Lang.Object,
|
|
| 19 |
method public _polymorphic_ GetPropertyValue(input pname as character):
|
|
| 20 |
end. |
|
| 21 |
|
|
| 22 |
method public _polymorphic_ GetPropertyValue(input pname as character,
|
|
| 23 |
input index as _polymorphic_):
|
|
| 24 |
end. |
|
| 25 |
|
|
| 26 |
method public _polymorphic_ GetPropertyValue(input obj-ref as Progress.Lang.Object,
|
|
| 27 | 27 |
input pname as character): |
| 28 | 28 |
end. |
| 29 | 29 |
|
| 30 |
method public Progress.Lang.Object GetPropertyValue(input obj-ref as Progress.Lang.Object,
|
|
| 30 |
method public _polymorphic_ GetPropertyValue(input obj-ref as Progress.Lang.Object,
|
|
| 31 | 31 |
input pname as character, |
| 32 |
input index as Progress.Lang.Object):
|
|
| 32 |
input index as _polymorphic_):
|
|
| 33 | 33 |
end. |
| 34 | 34 |
|
| 35 | 35 |
method public static Progress.Lang.Class GetClass(input clsname as character): |
| ... | ... | |
| 50 | 50 |
/* the actual Invoke() return type is variable (it depends on the */ |
| 51 | 51 |
/* method invoked, but we are encoding it as Object until we have */ |
| 52 | 52 |
/* a better solution */ |
| 53 |
method public Progress.Lang.Object Invoke(input obj-instance as Progress.Lang.Object,
|
|
| 53 |
method public _polymorphic_ Invoke(input obj-instance as Progress.Lang.Object,
|
|
| 54 | 54 |
input method-name as character): |
| 55 | 55 |
end method. |
| 56 | 56 |
|
| 57 |
method public Progress.Lang.Object Invoke(input obj-instance as Progress.Lang.Object,
|
|
| 57 |
method public _polymorphic_ Invoke(input obj-instance as Progress.Lang.Object,
|
|
| 58 | 58 |
input method-name as character, |
| 59 | 59 |
input parm-list as Progress.Lang.ParameterList): |
| 60 | 60 |
end method. |
| 61 | 61 |
|
| 62 |
method public Progress.Lang.Object Invoke(input method-name as character):
|
|
| 62 |
method public _polymorphic_ Invoke(input method-name as character):
|
|
| 63 | 63 |
end method. |
| 64 | 64 |
|
| 65 |
method public Progress.Lang.Object Invoke(input method-name as character,
|
|
| 65 |
method public _polymorphic_ Invoke(input method-name as character,
|
|
| 66 | 66 |
input parm-list as Progress.Lang.ParameterList): |
| 67 | 67 |
end method. |
| 68 | 68 |
|
| ... | ... | |
| 179 | 179 |
end method. |
| 180 | 180 |
|
| 181 | 181 |
method public void SetPropertyValue(input pname as character, |
| 182 |
input value as Progress.Lang.Object):
|
|
| 182 |
input value as _polymorphic_):
|
|
| 183 | 183 |
end. |
| 184 | 184 |
|
| 185 |
method public void SetPropertyValue(input pname as character,
|
|
| 186 |
input index as Progress.Lang.Object,
|
|
| 187 |
input value as Progress.Lang.Object):
|
|
| 185 |
method public void SetPropertyValue(input pname as character, |
|
| 186 |
input index as _polymorphic_,
|
|
| 187 |
input value as _polymorphic_):
|
|
| 188 | 188 |
end. |
| 189 | 189 |
|
| 190 | 190 |
method public void SetPropertyValue(input obj-ref as Progress.Lang.Object, |
| 191 |
input pname as character, input value as Progress.Lang.Object): |
|
| 191 |
input pname as character, |
|
| 192 |
input value as _polymorphic_): |
|
| 192 | 193 |
end. |
| 193 | 194 |
|
| 194 | 195 |
method public void SetPropertyValue(input obj-ref as Progress.Lang.Object, |
| 195 | 196 |
input pname as character, |
| 196 |
input index as Progress.Lang.Object,
|
|
| 197 |
input value as Progress.Lang.Object):
|
|
| 197 |
input index as _polymorphic_,
|
|
| 198 |
input value as _polymorphic_):
|
|
| 198 | 199 |
end. |
| 199 | 200 |
|
| 200 | 201 |
end class. |
| new/oo4gl/Progress/Lang/ParameterList.cls 2022-03-07 07:21:46 +0000 | ||
|---|---|---|
| 17 | 17 |
method public logical SetParameter(input idx as integer, |
| 18 | 18 |
input dtype as character, |
| 19 | 19 |
input pmode as character, |
| 20 |
input parm-val as Progress.Lang.Object):
|
|
| 20 |
input parm-val as _polymorphic_):
|
|
| 21 | 21 |
end method. |
| 22 | 22 |
|
| 23 | 23 |
end class. |
| new/oo4gl/Progress/Reflect/AccessMode.cls 2022-03-07 07:21:58 +0000 | ||
|---|---|---|
| 4 | 4 |
define enum |
| 5 | 5 |
Public |
| 6 | 6 |
Protected |
| 7 |
Private. |
|
| 7 |
Private |
|
| 8 |
Package-Protected |
|
| 9 |
Package-Private. |
|
| 8 | 10 |
|
| 9 | 11 |
end enum. |
| new/oo4gl/Progress/Reflect/Constructor.cls 2022-03-07 07:22:09 +0000 | ||
|---|---|---|
| 12 | 12 |
method public Progress.Reflect.Parameter EXTENT GetParameters(): |
| 13 | 13 |
end. |
| 14 | 14 | |
| 15 |
method public Progress.Lang.Object Invoke( INPUT params AS Progress.Lang.ParameterList ):
|
|
| 15 |
method public _polymorphic_ Invoke( INPUT params AS Progress.Lang.ParameterList ):
|
|
| 16 | 16 |
end. |
| 17 | 17 | |
| 18 | 18 |
end. |
| new/oo4gl/Progress/Reflect/Flags.cls 2022-03-07 07:22:21 +0000 | ||
|---|---|---|
| 6 | 6 |
Private |
| 7 | 7 |
Static |
| 8 | 8 |
Instance |
| 9 |
DeclaredOnly. |
|
| 9 |
DeclaredOnly |
|
| 10 |
Package-Protected |
|
| 11 |
Package-Private. |
|
| 10 | 12 |
|
| 11 | 13 |
end enum. |
| 12 | 14 | |
| new/oo4gl/Progress/Reflect/Method.cls 2022-03-07 07:22:34 +0000 | ||
|---|---|---|
| 28 | 28 |
method public Progress.Reflect.Parameter EXTENT GetParameters(): |
| 29 | 29 |
end. |
| 30 | 30 | |
| 31 |
method public Progress.Lang.Object Invoke( INPUT params AS Progress.Lang.ParameterList ):
|
|
| 31 |
method public _polymorphic_ Invoke( INPUT params AS Progress.Lang.ParameterList ):
|
|
| 32 | 32 |
end. |
| 33 | 33 | |
| 34 |
method public Progress.Lang.Object Invoke( INPUT instance AS Progress.Lang.Object, INPUT params AS Progress.Lang.ParameterList ):
|
|
| 34 |
method public _polymorphic_ Invoke( INPUT instance AS Progress.Lang.Object, INPUT params AS Progress.Lang.ParameterList ):
|
|
| 35 | 35 |
end. |
| 36 | 36 | |
| 37 | 37 |
end. |
| new/oo4gl/Progress/Reflect/Variable.cls 2022-03-07 07:23:53 +0000 | ||
|---|---|---|
| 17 | 17 | |
| 18 | 18 |
define public property OriginatingClass as Progress.Lang.Class get. |
| 19 | 19 | |
| 20 |
method public Progress.Lang.Object EXTENT Get():
|
|
| 20 |
method public _polymorphic_ Get():
|
|
| 21 | 21 |
end. |
| 22 | 22 |
|
| 23 |
method public Progress.Lang.Object EXTENT Get(INPUT index AS INTEGER):
|
|
| 23 |
method public _polymorphic_ Get(INPUT index AS integer):
|
|
| 24 | 24 |
end. |
| 25 | 25 | |
| 26 |
method public Progress.Lang.Object EXTENT Get(INPUT instance AS Progress.Lang.Object):
|
|
| 26 |
method public _polymorphic_ Get(INPUT instance AS Progress.Lang.Object):
|
|
| 27 | 27 |
end. |
| 28 | 28 |
|
| 29 |
method public Progress.Lang.Object EXTENT Get(
|
|
| 29 |
method public _polymorphic_ Get(
|
|
| 30 | 30 |
INPUT instance AS Progress.Lang.Object, |
| 31 | 31 |
INPUT index AS INTEGER): |
| 32 | 32 |
end. |
| 33 | 33 |
|
| 34 |
method public void Set( INPUT value AS Progress.Lang.Object ):
|
|
| 34 |
method public void Set( INPUT value AS _polymorphic_ ):
|
|
| 35 | 35 |
end. |
| 36 | 36 | |
| 37 | 37 |
method public void Set( |
| 38 | 38 |
INPUT index AS INTEGER, |
| 39 |
INPUT value AS Progress.Lang.Object ):
|
|
| 39 |
INPUT value AS _polymorphic_ ):
|
|
| 40 | 40 |
end. |
| 41 | 41 |
|
| 42 | 42 |
method public void Set( |
| 43 | 43 |
INPUT instance AS Progress.Lang.Object, |
| 44 |
INPUT value AS Progress.Lang.Object ):
|
|
| 44 |
INPUT value AS _polymorphic_ ):
|
|
| 45 | 45 |
end. |
| 46 | 46 | |
| 47 | 47 |
method public void Set( |
| 48 | 48 |
INPUT instance AS Progress.Lang.Object, |
| 49 | 49 |
INPUT index AS INTEGER, |
| 50 |
INPUT value AS Progress.Lang.Object ):
|
|
| 50 |
INPUT value AS _polymorphic_ ):
|
|
| 51 | 51 |
end. |
| 52 | 52 | |
| 53 | 53 |
end. |