gnue/geas/lib/classdefs classdata.c

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/05/25 15:11:24

Modified files:
        geas/lib/classdefs: classdata.c 

Log message:
        Fix bug that types were not correctly creating default value and format 
for CHAR.  Add display of format to odl_display_tree().

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/geas/lib/classdefs/classdata.c.diff?cvsroot=OldCVS&tr1=1.50&tr2=1.51&r1=text&r2=text

Patches:
Index: gnue/geas/lib/classdefs/classdata.c
diff -u gnue/geas/lib/classdefs/classdata.c:1.50 
gnue/geas/lib/classdefs/classdata.c:1.51
--- gnue/geas/lib/classdefs/classdata.c:1.50    Fri May 25 12:34:52 2001
+++ gnue/geas/lib/classdefs/classdata.c Fri May 25 15:11:23 2001
@@ -22,7 +22,7 @@
    along with this program; if not, write to the Free Software Foundation,
    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
 
-   $Id: classdata.c,v 1.50 2001/05/25 19:34:52 ntiffin Exp $
+   $Id: classdata.c,v 1.51 2001/05/25 22:11:23 ntiffin Exp $
    
 */
 
@@ -1814,6 +1814,8 @@
                           n->datatypeclass = NULL;
                         }
                       n->properties = type_field->properties;
+                      n->format = g_strdup( type_field->format );
+                      n->defaultval = g_strdup( type_field->defaultval );
                       c->contents = g_list_append (c->contents, n);
 #ifdef DEBUG
                       /* printf( "     Made '%s'\n" , n->base.name ); */
@@ -2465,6 +2467,10 @@
         {
         case FT_basic:
           fprintf (out, " Basic: %s", odl_datatype_name (it->datatype));
+          if (it->format != NULL)
+            {
+              fprintf (out, "<%s>", it->format);
+            }
           if (it->properties & ODL_PROP_NOTNULL)
             {
               fprintf (out, " NOT NULL");