/***********************************************************************/
/* GetNextDeftemplate: If passed a NULL pointer, returns the first */
/* deftemplate in the ListOfDeftemplates. Otherwise returns the next */
/* deftemplate following the deftemplate passed as an argument. */
/***********************************************************************/
Deftemplate *GetNextDeftemplate(
Environment *theEnv,
Deftemplate *deftemplatePtr)
{
return (Deftemplate *) GetNextConstructItem(theEnv,&deftemplatePtr->header,DeftemplateData(theEnv)->DeftemplateModuleIndex);
}
Deftemplate *GetNextDeftemplate(
Environment *theEnv,
Deftemplate *deftemplatePtr)
{
ConstructHeader *theHeader;
if (deftemplatePtr == NULL)
{ theHeader = NULL; }
else
{ theHeader = &deftemplatePtr->header; }
return (Deftemplate *) GetNextConstructItem(theEnv,theHeader,DeftemplateData(theEnv)->DeftemplateModuleIndex);
}