#
sub eventFieldAssign {
my ($indent, $src, $dst, $e, $f, $is_common) = @_;
- my ($tn, $soap_en, $soap_fn, $native_en, $native_fn, $func_name, $source, $dest);
+ my ($tn, $soap_en, $soap_fn, $native_en, $native_fn, $soap_En, $soap_Fn, $func_name, $source, $dest);
$tn = $f->{type};
$native_en = lcfirst $e;
sub eventFieldFree {
my ($indent, $dst, $e, $f) = @_;
- my ($tn, $soap_fn, $dest);
+ my ($tn, $soap_en, $soap_fn, $dest);
$tn = $f->{type};
$soap_en = $e;
static void edg_wll_SoapToSource(enum lbt__eventSource in, edg_wll_Source *out)
{
- assert(EDG_WLL_SOURCE_LB_SERVER + 1 == EDG_WLL_SOURCE__LAST);
+ assert(EDG_WLL_SOURCE_CREAM_EXECUTOR + 1 == EDG_WLL_SOURCE__LAST);
switch ( in ) {
case UserInterface: *out = EDG_WLL_SOURCE_USER_INTERFACE; break;
case LRMS: *out = EDG_WLL_SOURCE_LRMS; break;
case Application: *out = EDG_WLL_SOURCE_APPLICATION; break;
case LBServer: *out = EDG_WLL_SOURCE_LB_SERVER; break;
+ case CREAMInterface: *out = EDG_WLL_SOURCE_CREAM_INTERFACE; break;
+ case CREAMExecutor: *out = EDG_WLL_SOURCE_CREAM_EXECUTOR; break;
default: assert(0); break;
}
}
my $f = selectField $event $_;
if ($f->{codes}) {
- my ($fn, $enum_name, $enum_value_prefix, $func2C_name, $func2S_name);
+ my ($fn, $soap_fn, $upper_fn, $enum_name, $soap_enum_name, $enum_value_prefix, $func2C_name, $func2S_name);
$fn = ucfirst $f->{name};
$upper_fn = uc $f->{name};
gen "\tswitch(in) {\n";
}
foreach $code (@{$f->{codes}}) {
- my ($enum_value, $soap_enum_value);
+ my ($enum_value, $soap_enum_value, $upper_cn);
$upper_cn = $code->{name};
$enum_value = "${enum_value_prefix}${upper_cn}";
}
gen "\tswitch(in) {\n";
foreach $code (@{$f->{codes}}) {
- my ($enum_value, $soap_enum_value);
+ my ($enum_value, $soap_enum_value, $upper_cn);
$upper_cn = $code->{name};
$enum_value = "${enum_value_prefix}${upper_cn}";
static void edg_wll_SourceToSoap(edg_wll_Source in, enum lbt__eventSource *out)
{
- assert(EDG_WLL_SOURCE_LB_SERVER + 1 == EDG_WLL_SOURCE__LAST);
+ assert(EDG_WLL_SOURCE_CREAM_EXECUTOR + 1 == EDG_WLL_SOURCE__LAST);
switch ( in ) {
case EDG_WLL_SOURCE_USER_INTERFACE: *out = UserInterface; break;
case EDG_WLL_SOURCE_LRMS: *out = LRMS; break;
case EDG_WLL_SOURCE_APPLICATION: *out = Application; break;
case EDG_WLL_SOURCE_LB_SERVER: *out = LBServer; break;
+ case EDG_WLL_SOURCE_CREAM_INTERFACE: *out = CREAMInterface; break;
+ case EDG_WLL_SOURCE_CREAM_EXECUTOR: *out = CREAMExecutor; break;
case EDG_WLL_SOURCE_NONE:
case EDG_WLL_SOURCE__LAST:
default: