Function codegen_class

blakcomp/codegen.c:759–852

/ * codegen_class: Generate code for a single class. */

 * codegen_class: Generate code for a single class.
 */
void codegen_class(class_type c)
{
   list_type p, m, cv;
   long temppos, endpos, messagepos, propertypos;
   int nummessages, i;
   
   /* Write out superclass class id */
   if (c->superclass == NULL)
      OutputInt(outfile, NO_SUPERCLASS);
   else OutputInt(outfile, c->superclass->class_id->idnum);

   /* Save current file position for backpatching */
   propertypos = FileCurPos(outfile);
   OutputInt(outfile, 0);   /* Set aside space for property table offset */
   temppos = FileCurPos(outfile);
   OutputInt(outfile, 0);   /* Set aside space for message dispatch table offset */

   /****** Classvar table ******/
   // TOTAL # of classvars for this class
   OutputInt(outfile, c->numclassvars);
   // # of classvars for which we have default values
   OutputInt(outfile, list_length(c->classvars));
	  
   /* Write out values of classvars with default values */
   for (cv = c->classvars; cv != NULL; cv = cv->next)
      codegen_classvar( (classvar_type) cv->data);


   /* Go back and fill in position of property table */
   endpos = FileCurPos(outfile);
   FileGoto(outfile, propertypos);
   OutputInt(outfile, endpos);
   FileGotoEnd(outfile);

   /****** Property table ******/
   // TOTAL # of properties for this class
   OutputInt(outfile, c->numproperties);    
   // # of properties for which we have default values
   OutputInt(outfile, list_length(c->properties));    
	  
   /* Write out values of properties with default values */
   for (p = c->properties; p != NULL; p = p->next)
      codegen_property( (property_type) p->data);


   /* Go back and fill in position of message dispatch table */
   endpos = FileCurPos(outfile);
   FileGoto(outfile, temppos);
   OutputInt(outfile, endpos);
   FileGotoEnd(outfile);

   /* Write out # of message handlers */
   nummessages = list_length(c->messages);
   OutputInt(outfile, nummessages);

   /* Save away position of message dispatch table */
   messagepos = FileCurPos(outfile);