if (rtnCode == -1)           goto ParseSlotError;         if (rtnCode == 4)           {            DecrementSymbolCount(theEnv,slot->overrideMessage);            slot->overrideMessage = newOverrideMsg;            IncrementSymbolCount(slot->overrideMessage);           }         slot->overrideMessageSpecified = TRUE;        }      else if (StandardConstraint(DOToString(DefclassData(theEnv)->ObjectParseToken)))        {         if (ParseStandardConstraint(theEnv,readSource,DOToString(DefclassData(theEnv)->ObjectParseToken),                slot->constraint,&parsedConstraint,TRUE) == FALSE)           goto ParseSlotError;        }      else        {         SyntaxErrorMessage(theEnv,"defclass slot");         goto ParseSlotError;        }      GetToken(theEnv,readSource,&DefclassData(theEnv)->ObjectParseToken);     }   if (GetType(DefclassData(theEnv)->ObjectParseToken) != RPAREN)     {      SyntaxErrorMessage(theEnv,"defclass slot");      goto ParseSlotError;     }        if (DefclassData(theEnv)->ClassDefaultsMode == CONVENIENCE_MODE)     {      if (! TestBitMap(specbits,CREATE_ACCESSOR_BIT))        {         slot->createReadAccessor = TRUE;               if (! slot->noWrite)           { slot->createWriteAccessor = TRUE; }           }     }        if (slot->composite)     BuildCompositeFacets(theEnv,slot,preclist,specbits,&parsedConstraint);   if (CheckForFacetConflicts(theEnv,slot,&parsedConstraint) == FALSE)     goto ParseSlotError;   if (CheckConstraintParseConflicts(theEnv,slot->constraint) == FALSE)     goto ParseSlotError;   if (EvaluateSlotDefaultValue(theEnv,slot,specbits) == FALSE)     goto ParseSlotError;   if ((slot->dynamicDefault == 0) && (slot->noWrite == 1) &&       (slot->initializeOnly == 0))     slot->shared = 1;   slot->constraint = AddConstraint(theEnv,slot->constraint);   DecrementIndentDepth(theEnv,3);   return(slist);ParseSlotError:   DecrementIndentDepth(theEnv,3);   DeleteSlots(theEnv,slist);   return(NULL);  }/***************************************************  NAME         : DeleteSlots  DESCRIPTION  : Deallocates a list of slots and                   their values  INPUTS       : The address of the slot list  RETURNS      : Nothing useful  SIDE EFFECTS : The slot list is destroyed  NOTES        : None ***************************************************/globle void DeleteSlots(  void *theEnv,  TEMP_SLOT_LINK *slots)  {   TEMP_SLOT_LINK *stmp;   while (slots != NULL)     {      stmp = slots;      slots = slots->nxt;      DeleteSlotName(theEnv,stmp->desc->slotName);      DecrementSymbolCount(theEnv,stmp->desc->overrideMessage);      RemoveConstraint(theEnv,stmp->desc->constraint);      if (stmp->desc->dynamicDefault == 1)        {         ExpressionDeinstall(theEnv,(EXPRESSION *) stmp->desc->defaultValue);         ReturnPackedExpression(theEnv,(EXPRESSION *) stmp->desc->defaultValue);        }      else if (stmp->desc->defaultValue != NULL)        {         ValueDeinstall(theEnv,(DATA_OBJECT *) stmp->desc->defaultValue);         rtn_struct(theEnv,dataObject,stmp->desc->defaultValue);        }      rtn_struct(theEnv,slotDescriptor,stmp->desc);      rtn_struct(theEnv,tempSlotLink,stmp);     }  }/* =========================================   *****************************************          INTERNALLY VISIBLE FUNCTIONS   =========================================   ***************************************** *//**************************************************************  NAME         : NewSlot  DESCRIPTION  : Allocates and initalizes a new slot structure  INPUTS       : The symbolic name of the new slot  RETURNS      : The address of the new slot  SIDE EFFECTS : None  NOTES        : Also adds symbols of the form get-<name> and                   put-<name> for slot accessors **************************************************************/static SLOT_DESC *NewSlot(  void *theEnv,  SYMBOL_HN *name)  {   SLOT_DESC *slot;   slot = get_struct(theEnv,slotDescriptor);   slot->dynamicDefault = 1;   slot->defaultSpecified = 0;   slot->noDefault = 0;#if DEFRULE_CONSTRUCT   slot->reactive = 1;#endif   slot->noInherit = 0;   slot->noWrite = 0;   slot->initializeOnly = 0;   slot->shared = 0;   slot->multiple = 0;   slot->composite = 0;   slot->sharedCount = 0;   slot->publicVisibility = 0;   slot->createReadAccessor = FALSE;   slot->createWriteAccessor = FALSE;   slot->overrideMessageSpecified = 0;   slot->cls = NULL;   slot->defaultValue = NULL;   slot->constraint = GetConstraintRecord(theEnv);   slot->slotName = AddSlotName(theEnv,name,0,FALSE);   slot->overrideMessage = slot->slotName->putHandlerName;   IncrementSymbolCount(slot->overrideMessage);   return(slot);  }/**********************************************************  NAME         : InsertSlot  DESCRIPTION  : Inserts a slot into the list of slots  INPUTS       : 1) The current head of the slot list                 2) The slot to be inserted  RETURNS      : The head of the slot list  SIDE EFFECTS : The slot is inserted if no errors,                   otherwise the original list and the                   new slot are destroyed  NOTES        : None **********************************************************/static TEMP_SLOT_LINK *InsertSlot(  void *theEnv,  TEMP_SLOT_LINK *slist,  SLOT_DESC *slot)  {   TEMP_SLOT_LINK *stmp,*sprv,*tmp;   tmp = get_struct(theEnv,tempSlotLink);   tmp->desc = slot;   tmp->nxt = NULL;   if (slist == NULL)     slist = tmp;   else     {      stmp = slist;      sprv = NULL;      while (stmp != NULL)        {         if (stmp->desc->slotName == slot->slotName)           {            tmp->nxt = slist;            DeleteSlots(theEnv,tmp);            PrintErrorID(theEnv,"CLSLTPSR",1,FALSE);            EnvPrintRouter(theEnv,WERROR,"Duplicate slots not allowed.\n");            return(NULL);           }         sprv = stmp;         stmp = stmp->nxt;        }      sprv->nxt = tmp;     }   return(slist);  }/****************************************************************  NAME         : ParseSimpleFacet  DESCRIPTION  : Parses the following facets for a slot:                   access, source, propagation, storage,                   pattern-match, visibility and override-message  INPUTS       : 1) The input logical name                 2) The bitmap indicating which facets have                    already been parsed                 3) The name of the facet                 4) The bit to test/set in arg #2 for this facet                 5) The facet value string which indicates the                    facet should be false                 6) The facet value string which indicates the                    facet should be TRUE                 7) An alternate value string for use when the                    first two don't match (can be NULL)                 7) An alternate value string for use when the                    first three don't match (can be NULL)                    (will be an SF_VARIABLE type)                 9) A buffer to hold the facet value symbol                    (can be NULL - only set if args #5 and #6                     are both NULL)  RETURNS      : -1 on errors                  0 if first value string matched                  1 if second value string matched                  2 if alternate value string matched                  3 if variable value string matched                  4 if facet value buffer was set  SIDE EFFECTS : Messages printed on errors                 Bitmap marked indicating facet was parsed                 Facet value symbol buffer set, if appropriate  NOTES        : None *****************************************************************/static int ParseSimpleFacet(  void *theEnv,  char *readSource,  char *specbits,  char *facetName,  int testBit,  char *clearRelation,  char *setRelation,  char *alternateRelation,  char *varRelation,  SYMBOL_HN **facetSymbolicValue)  {   int rtnCode;   if (TestBitMap(specbits,testBit))     {      PrintErrorID(theEnv,"CLSLTPSR",2,FALSE);      EnvPrintRouter(theEnv,WERROR,facetName);      EnvPrintRouter(theEnv,WERROR," facet already specified.\n");      return(-1);     }   SetBitMap(specbits,testBit);   SavePPBuffer(theEnv," ");   GetToken(theEnv,readSource,&DefclassData(theEnv)->ObjectParseToken);   /* ===============================      Check for the variable relation      =============================== */   if (DefclassData(theEnv)->ObjectParseToken.type == SF_VARIABLE)     {      if ((varRelation == NULL) ? FALSE :          (strcmp(DOToString(DefclassData(theEnv)->ObjectParseToken),varRelation) == 0))        rtnCode = 3;      else        goto ParseSimpleFacetError;     }   else     {      if (DefclassData(theEnv)->ObjectParseToken.type != SYMBOL)        goto ParseSimpleFacetError;      /* ===================================================         If the facet value buffer is non-NULL         simply get the value and do not check any relations         =================================================== */      if (facetSymbolicValue == NULL)        {         if (strcmp(DOToString(DefclassData(theEnv)->ObjectParseToken),clearRelation) == 0)           rtnCode = 0;         else if (strcmp(DOToString(DefclassData(theEnv)->ObjectParseToken),setRelation) == 0)           rtnCode = 1;         else if ((alternateRelation == NULL) ? FALSE :                  (strcmp(DOToString(DefclassData(theEnv)->ObjectParseToken),alternateRelation) == 0))           rtnCode = 2;         else           goto ParseSimpleFacetError;        }      else        {         rtnCode = 4;         *facetSymbolicValue = (SYMBOL_HN *) DefclassData(theEnv)->ObjectParseToken.value;        }     }   GetToken(theEnv,readSource,&DefclassData(theEnv)->ObjectParseToken);   if (DefclassData(theEnv)->ObjectParseToken.type != RPAREN)     goto ParseSimpleFacetError;   return(rtnCode);ParseSimpleFacetError:   SyntaxErrorMessage(theEnv,"slot facet");   return(-1);