From: Miloš Mulač <mulac@civ.zcu.cz>
Date: Wed, 16 Dec 2009 13:19:17 +0000 (+0000)
Subject: generate correctly datatypes containnig underscore
X-Git-Tag: glite-lb-harvester_R_1_0_1_1~14
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=87d5f7075190388968f75022813f89cb93465ae6;p=jra1mw.git

generate correctly datatypes containnig underscore
---

diff --git a/org.glite.lb.server/src/ws_typeref.c.T b/org.glite.lb.server/src/ws_typeref.c.T
index 2233e49..61a4aa5 100644
--- a/org.glite.lb.server/src/ws_typeref.c.T
+++ b/org.glite.lb.server/src/ws_typeref.c.T
@@ -854,6 +854,7 @@ foreach ('_common_', sort { $event->{order}->{$a} <=> $event->{order}->{$b} } ge
 
 				$upper_cn = $code->{name};
 				$enum_value = "${enum_value_prefix}${upper_cn}";
+				$upper_cn =~ s/_/_USCORE/g;
 				$soap_enum_value = "lbt__${soap_en}${soap_fn}__${upper_cn}";
 				gen "\tcase $soap_enum_value: *out = $enum_value; break;\n"
 			}
@@ -885,6 +886,7 @@ foreach ('_common_', sort { $event->{order}->{$a} <=> $event->{order}->{$b} } ge
 
 				$upper_cn = $code->{name};
 				$enum_value = "${enum_value_prefix}${upper_cn}";
+				$upper_cn =~ s/_/_USCORE/g;
 				$soap_enum_value = "lbt__${soap_en}${soap_fn}__${upper_cn}";
 				gen "\tcase $enum_value: $target = $soap_enum_value; break;\n"
 			}