@@ -140,7 +140,7 @@ print_file_trailer( Express express, FILES * files ) {
140140 ******************************************************************/
141141
142142void
143- SCOPEPrint ( Scope scope, FILES * files, Schema schema, Express model,
143+ SCOPEPrint ( Scope scope, FILES * files, Schema schema,
144144 ComplexCollect * col, int cnt ) {
145145 Linked_List list = SCOPEget_entities_superclass_order ( scope );
146146 Linked_List function_list = SCOPEget_functions ( scope );
@@ -251,7 +251,6 @@ PrintModelContentsSchema( Scope scope, FILES * files, Schema schema,
251251 fprintf ( files->inc , " \n //\t ***** Describe the Entities \t\n " );
252252 LISTdo ( list, e, Entity );
253253 ENTITYput_superclass ( e ); /* find supertype to use for single */
254- ENTITYprint_new ( e, files, schema, 0 ); /* inheritance */
255254 LISTod;
256255
257256 // Print Entity Classes
@@ -316,7 +315,7 @@ PrintModelContentsSchema( Scope scope, FILES * files, Schema schema,
316315 ******************************************************************/
317316
318317void
319- SCHEMAprint ( Schema schema, FILES * files, Express model, void * complexCol,
318+ SCHEMAprint ( Schema schema, FILES * files, void * complexCol,
320319 int suffix ) {
321320 char schnm[MAX_LEN], sufnm[MAX_LEN], fnm[MAX_LEN], *np;
322321 /* sufnm = schema name + suffix */
@@ -366,7 +365,7 @@ SCHEMAprint( Schema schema, FILES * files, Express model, void * complexCol,
366365 /* ********* do the schemas ***********/
367366
368367 /* really, create calls for entity constructors */
369- SCOPEPrint ( schema, files, schema, model, ( ComplexCollect * )complexCol,
368+ SCOPEPrint ( schema, files, schema, ( ComplexCollect * )complexCol,
370369 suffix );
371370
372371 /* ********* close the files ***********/
@@ -452,51 +451,17 @@ EXPRESSPrint( Express express, ComplexCollect & col, FILES * files ) {
452451 /* return if failure */
453452 /* 1. header file */
454453 sprintf ( fnm, " %s.h" , schnm = ClassName ( EXPRESSget_basename ( express ) ) );
455- // if( !( incfile = ( files -> inc ) = FILEcreate( fnm ) ) ) {
456- // return;
457- // }
458- // fprintf( incfile, "/* %cId$ */\n", '$' );
459-
460- // fprintf( incfile, "#ifdef __O3DB__\n" );
461- // fprintf( incfile, "#include <OpenOODB.h>\n" );
462- // fprintf( incfile, "#endif\n\n" );
463- // fprintf( incfile, "#include <sdai.h> \n" );
464- /* fprintf (incfile, "#include <schema.h> \n");*/
465- /* fprintf (incfile, "extern void %sInit (Registry & r);\n", schnm);*/
466-
467- // np = fnm + strlen( fnm ) - 1; /* point to end of constant part of string */
468454
469455 /* 2. class source file */
470456 // sprintf( np, "cc" );
471457 if ( !( libfile = ( files -> lib ) = FILEcreate ( fnm ) ) ) {
472458 return ;
473459 }
474- // fprintf( libfile, "/* %cId$ */\n", '$' );
475- // fprintf( libfile, "#include <%s.h> n", schnm );
476-
477- /* 3. source code to initialize entity registry */
478- /* prints header of file for input function */
479-
480- // sprintf( np, "init.cc" );
481- // if( !( initfile = ( files -> init ) = FILEcreate( fnm ) ) ) {
482- // return;
483- // }
484- // fprintf( initfile, "/* $Id%d */\n", '$' );
485- // fprintf( initfile, "#include <%s.h>\n\n", schnm );
486- // fprintf( initfile, "void \n%sInit (Registry& reg)\n{\n", schnm );
487-
488- /* ********* record in files relating to entire input ***********/
489-
490- /* add to schema's include and initialization file */
491- // fprintf( schemafile, "#include <%s.h>\n\n", schnm );
492- // fprintf( schemafile, "extern void %sInit (Registry & r);\n", schnm );
493- // fprintf( schemainit, "\t extern void %sInit (Registry & r);\n", schnm );
494- // fprintf( schemainit, "\t %sInit (reg);\n", schnm );
495460
496461 /* ********* do all schemas ***********/
497462 DICTdo_init ( express->symbol_table , &de );
498463 while ( 0 != ( schema = ( Scope )DICTdo ( &de ) ) ) {
499- SCOPEPrint ( schema, files, schema, express, &col, 0 );
464+ SCOPEPrint ( schema, files, schema, &col, 0 );
500465 }
501466
502467
0 commit comments