From 7e5cf008a001204b7cd8e4f500282e9f79a37099 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= <ljocha@ics.muni.cz>
Date: Fri, 8 Jul 2005 15:12:26 +0000
Subject: [PATCH] generate <enum>'s for event fields

---
 org.glite.lb.ws-interface/src/LBTypes.xml.T | 40 ++++++++++++++++++++++++-----
 1 file changed, 33 insertions(+), 7 deletions(-)

diff --git a/org.glite.lb.ws-interface/src/LBTypes.xml.T b/org.glite.lb.ws-interface/src/LBTypes.xml.T
index 30f1002..95a7f18 100644
--- a/org.glite.lb.ws-interface/src/LBTypes.xml.T
+++ b/org.glite.lb.ws-interface/src/LBTypes.xml.T
@@ -111,6 +111,28 @@
 		my $tn = $type;
 		$tn = $1.ucfirst $2 while $tn =~ /([[:alpha:]]*)_([[:alpha:]_]*)/;
 
+		selectType $event $type;
+		for ($event->getFieldsOrdered) {
+			my $f = selectField $event $_;
+			if ($f->{codes}) {
+				my $n = $tn . '_' . getName $f;
+				$n = $1.ucfirst $2 while $n =~ /([[:alpha:]]*)_([[:alpha:]_]*)/;
+				gen qq{
+!		<enum name="$n">
+};
+				for (@{$f->{codes}}) {
+					my $uc = uc $_->{name};
+					gen qq{
+!			<val name="$uc">$_->{comment}</val>
+};
+				}
+				gen qq{
+!		</enum>
+};
+
+			}
+		}
+
 		gen qq{
 !			<struct name="event$tn">
 };
@@ -136,9 +158,13 @@
 			my $fn = $f->{name};
 			my $ftn = $f->getType;
 
+
 			$fn = $1.ucfirst $2 while $fn =~ /([[:alpha:]]*)_([[:alpha:]_]*)/;
+			$ftn = $tn . '_' . $fn if ($f->{codes});
+
 			$ftn = $1.ucfirst $2 while $ftn =~ /([[:alpha:]]*)_([[:alpha:]_]*)/;
 
+
 			my $comment = getComment $f;
 			my $opt = $f->{optional} ? 'yes' : 'no';
 			gen qq{
@@ -151,14 +177,14 @@
 
 		<enum name="eventSource">
 			Possible sources of LB events.
-			<val name="userInterface"/>
-			<val name="networkServer"/>
-			<val name="workloadManager"/>
-			<val name="bigHelper"/>
-			<val name="jobSubmission"/>
-			<val name="logMonitor"/>
+			<val name="UserInterface"/>
+			<val name="NetworkServer"/>
+			<val name="WorkloadManager"/>
+			<val name="BigHelper"/>
+			<val name="JobSubmission"/>
+			<val name="LogMonitor"/>
 			<val name="LRMS"/>
-			<val name="application"/>
+			<val name="Application"/>
 		</enum>
 
 		<struct name="stateEnterTimesItem">
-- 
1.8.2.3