r6510 - trunk/gnue-appserver/src/gcd

[johannes]

Author: johannes
Date: 2004-10-19 03:54:11 -0500 (Tue, 19 Oct 2004)
New Revision: 6510

Modified:
   trunk/gnue-appserver/src/gcd/GCParser.py
   trunk/gnue-appserver/src/gcd/readgcd.py
Log:
Index fields can now be given as fully qualified or as short ones


Modified: trunk/gnue-appserver/src/gcd/GCParser.py
===================================================================
--- trunk/gnue-appserver/src/gcd/GCParser.py    2004-10-19 08:44:40 UTC (rev 
6509)
+++ trunk/gnue-appserver/src/gcd/GCParser.py    2004-10-19 08:54:11 UTC (rev 
6510)
@@ -513,3 +513,12 @@
 class GCIndexField (GCObject):
   def __init__ (self, parent):
     GCObject.__init__ (self, parent, type = 'GCIndexField')
+    self._inits.extend ([None, self._complete])
+
+  def _complete (self):
+    if not '_' in self.name:
+      self.module   = self._parent.module
+      self.fullName = Namespace.createName (self.module, self.name)
+    else:
+      self.module   = Namespace.splitName (self.name) [0]
+      self.fullName = self.name

Modified: trunk/gnue-appserver/src/gcd/readgcd.py
===================================================================
--- trunk/gnue-appserver/src/gcd/readgcd.py     2004-10-19 08:44:40 UTC (rev 
6509)
+++ trunk/gnue-appserver/src/gcd/readgcd.py     2004-10-19 08:54:11 UTC (rev 
6510)
@@ -310,7 +310,7 @@
 
       defs ['indices'].append ({'name'  : sObject.fullName,
                                 'unique': sObject.unique,
-                                'fields': [f.name for f in sObject.fields]})
+                                'fields': [f.fullName for f in 
sObject.fields]})
 
   # ---------------------------------------------------------------------------
   # Iterate over all child elements of a procedure