| |
204 |
204 |
|
| |
205 |
205 |
set full_statement [acs_sc_get_statement $impl_alias $impl_pl $arguments] |
| |
206 |
206 |
|
| |
207 |
207 |
if { $operation_iscachable_p } { |
| |
208 |
208 |
set full_statement "util_memoize \"$full_statement\"" |
| |
209 |
209 |
} |
| |
210 |
210 |
|
| |
211 |
211 |
#FIX ME: CALL BY NAME USING UPVAR |
| |
212 |
212 |
set body "return \[$full_statement\]" |
| |
213 |
213 |
|
| |
214 |
214 |
set arguments [join $arguments] |
| |
215 |
215 |
acs_sc_log SCDebug "ACS-SC: ad_proc $proc_name $arguments\n$docblock\n$body\n" |
| |
216 |
216 |
ad_proc -private $proc_name $arguments $docblock $body |
| |
217 |
217 |
|
| |
218 |
218 |
return 1 |
| |
219 |
219 |
} |
| |
220 |
220 |
|
| |
221 |
221 |
ad_proc acs_sc_update_alias_wrappers {} { |
| |
222 |
222 |
|
| |
223 |
223 |
Loop over actual bindings, finding every impl alias for each contract operation |
| |
224 |
|
and adfine a "acs_sc_proc" for all of these. |
| |
|
224 |
and call "acs_sc_proc" for all of these. |
| |
225 |
225 |
|
| |
|
226 |
@see acs_sc_proc |
| |
|
227 |
|
| |
226 |
228 |
} { |
| |
227 |
229 |
db_foreach impl_operation { |
| |
228 |
230 |
select ia.impl_contract_name, |
| |
229 |
231 |
ia.impl_operation_name, |
| |
230 |
232 |
ia.impl_name, |
| |
231 |
233 |
ia.impl_alias, |
| |
232 |
234 |
ia.impl_pl |
| |
233 |
235 |
from acs_sc_bindings b, acs_sc_impl_aliases ia |
| |
234 |
236 |
where ia.impl_id = b.impl_id |
| |
235 |
237 |
} { |
| |
236 |
238 |
# |
| |
237 |
239 |
# Create the AcsSc.Contract.Operation.Impl wrapper proc for this implementation |
| |
238 |
240 |
# |
| |
239 |
241 |
if {[catch { |
| |
240 |
242 |
# |
| |
241 |
243 |
# Check, if the wrapper exists already |
| |
242 |
244 |
# |
| |
243 |
245 |
set proc_name [acs_sc_generate_name $impl_contract_name $impl_name $impl_operation_name] |
| |
244 |
246 |
if {[info commands ::$proc_name] eq ""} { |
| |
245 |
247 |
# |
