sys_error.patch
src/com/goldencode/p2j/oo/lang/ProError.java | ||
---|---|---|
126 | 126 |
} |
127 | 127 | |
128 | 128 |
/** |
129 |
* Explicit constructor used by sub-classes. |
|
130 |
* |
|
131 |
* @param _msg |
|
132 |
* The message. |
|
133 |
* @param _num |
|
134 |
* The message number. |
|
135 |
*/ |
|
136 |
protected ProError (character _msg, integer _num) |
|
137 |
{ |
|
138 |
addMessage(_msg, _num); |
|
139 |
} |
|
140 |
|
|
141 |
/** |
|
142 |
* Explicit constructor used by sub-classes. |
|
143 |
* |
|
144 |
* @param _msg |
|
145 |
* The message. |
|
146 |
* @param _num |
|
147 |
* The message number. |
|
148 |
*/ |
|
149 |
protected ProError (String _msg, int _num) |
|
150 |
{ |
|
151 |
addMessage(new character(_msg), new integer(_num)); |
|
152 |
} |
|
153 |
|
|
154 |
/** |
|
129 | 155 |
* The 'execute' method. No-op, but it must exist. |
130 | 156 |
*/ |
131 | 157 |
public void __lang_ProError_execute__() |
src/com/goldencode/p2j/oo/lang/SoapFaultError.java | ||
---|---|---|
66 | 66 |
package com.goldencode.p2j.oo.lang; |
67 | 67 | |
68 | 68 |
import com.goldencode.p2j.util.*; |
69 |
import com.goldencode.p2j.oo.lang.*; |
|
70 | 69 | |
71 | 70 |
import static com.goldencode.p2j.util.BlockManager.*; |
72 | 71 |
import static com.goldencode.p2j.report.ReportConstants.*; |
... | ... | |
81 | 80 |
public final class SoapFaultError |
82 | 81 |
extends com.goldencode.p2j.oo.lang.SysError |
83 | 82 |
{ |
84 |
private handle soapFault = UndoableFactory.handle();
|
|
83 |
private handle soapFault = TypeFactory.handle();
|
|
85 | 84 | |
86 |
public void __lang_SoapFaultError_execute__()
|
|
85 |
protected SoapFaultError()
|
|
87 | 86 |
{ |
88 |
externalProcedure(SoapFaultError.this, new Block((Body) () -> |
|
89 |
{ |
|
90 |
{ |
|
91 |
} |
|
92 |
})); |
|
93 |
} |
|
94 | ||
95 |
@LegacySignature(type = Type.CONSTRUCTOR) |
|
96 |
@LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_STUB) |
|
97 |
public void __lang_SoapFaultError_constructor__() |
|
98 |
{ |
|
99 |
internalProcedure(this, "__lang_SoapFaultError_constructor__", new Block((Body) () -> |
|
100 |
{ |
|
101 |
__lang_SysError_constructor__(); |
|
102 |
})); |
|
87 |
super(); |
|
103 | 88 |
} |
104 | 89 | |
105 | 90 |
@LegacySignature(type = Type.GETTER, name = "SoapFault") |
src/com/goldencode/p2j/oo/lang/SysError.java | ||
---|---|---|
68 | 68 |
package com.goldencode.p2j.oo.lang; |
69 | 69 | |
70 | 70 |
import static com.goldencode.p2j.report.ReportConstants.*; |
71 |
import static com.goldencode.p2j.util.BlockManager.externalProcedure; |
|
72 |
import static com.goldencode.p2j.util.BlockManager.internalProcedure; |
|
73 | 71 | |
74 | 72 |
import com.goldencode.p2j.util.*; |
75 |
import com.goldencode.p2j.util.InternalEntry.Type; |
|
76 | 73 | |
77 | 74 |
/** |
78 | 75 |
* Implementation of the Progress.Lang.SysError builtin class. |
... | ... | |
83 | 80 |
extends ProError |
84 | 81 |
{ |
85 | 82 |
/** |
86 |
* The 'execute' method. No-op, but it must exist.
|
|
83 |
* Implicit constructor used by sub-classes.
|
|
87 | 84 |
*/ |
88 |
public void __lang_SysError_execute__()
|
|
85 |
protected SysError()
|
|
89 | 86 |
{ |
90 |
externalProcedure(this, new Block((Body) () -> |
|
91 |
{ |
|
92 |
})); |
|
93 |
} |
|
94 | ||
95 |
/** |
|
96 |
* Implicit, no parameter, method associated with the implicit legacy constructor for the |
|
97 |
* <code>Progress.Lang.SysError</code> class. |
|
98 |
*/ |
|
99 |
@LegacySignature(type = Type.CONSTRUCTOR) |
|
100 |
@LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_BASIC) |
|
101 |
public void __lang_SysError_constructor__() |
|
102 |
{ |
|
103 |
internalProcedure(this, "__lang_SysError_constructor__", new Block((Body) () -> |
|
104 |
{ |
|
105 |
__lang_ProError_constructor__(); |
|
106 |
})); |
|
87 |
|
|
107 | 88 |
} |
108 | 89 |
|
109 | 90 |
/** |
... | ... | |
115 | 96 |
* @param _num |
116 | 97 |
* The message number. |
117 | 98 |
*/ |
118 |
@LegacySignature(type = Type.CONSTRUCTOR, parameters =
|
|
99 |
protected SysError (character _msg, integer _num)
|
|
119 | 100 |
{ |
120 |
@LegacyParameter(name = "msg", type = "CHARACTER", mode = "INPUT"), |
|
121 |
@LegacyParameter(name = "num", type = "INTEGER", mode = "INPUT"), |
|
122 |
}) |
|
123 |
@LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL) |
|
124 |
public void __lang_SysError_constructor__(character _msg, integer _num) |
|
101 |
this(_msg.getValue(), _num.intValue()); |
|
102 |
} |
|
103 |
|
|
104 |
/** |
|
105 |
* Explicit method associated with a legacy constructor for the |
|
106 |
* <code>Progress.Lang.SysError</code> class. |
|
107 |
* |
|
108 |
* @param _msg |
|
109 |
* The message. |
|
110 |
* @param _num |
|
111 |
* The message number. |
|
112 |
*/ |
|
113 |
protected SysError (String _msg, int _num) |
|
125 | 114 |
{ |
126 |
character msg = TypeFactory.initInput(_msg); |
|
127 |
integer num = TypeFactory.initInput(_num); |
|
128 |
internalProcedure(this, "__lang_SysError_constructor__", new Block((Body) () -> |
|
129 |
{ |
|
130 |
msg.assign(ErrorManager.buildErrorText(num.intValue(), msg.getValue(), false, false)); |
|
131 |
__lang_ProError_constructor__(msg, num); |
|
132 |
})); |
|
115 |
super(ErrorManager.buildErrorText(_num, _msg, false, false), _num); |
|
133 | 116 |
} |
134 | 117 |
|
135 | 118 |
/** |
... | ... | |
142 | 125 |
*/ |
143 | 126 |
public static object<? extends SysError> newInstance(character msg, integer num) |
144 | 127 |
{ |
145 |
return ObjectOps.newInstance(SysError.class, "II", msg, num);
|
|
128 |
return newInstance(msg.getValue(), num.intValue());
|
|
146 | 129 |
} |
147 | 130 |
|
148 | 131 |
/** |
... | ... | |
155 | 138 |
*/ |
156 | 139 |
public static object<? extends SysError> newInstance(String msg, int num) |
157 | 140 |
{ |
158 |
return ObjectOps.newInstance(SysError.class, "II", msg, num);
|
|
141 |
return new object(new SysError(msg, num));
|
|
159 | 142 |
} |
160 | 143 | |
144 |
@Override |
|
145 |
public boolean isTracked() |
|
146 |
{ |
|
147 |
return false; |
|
148 |
} |
|
161 | 149 |
} |