功能函数.txt

用于删除广义表中所有值为*的元素

gnode *delall(gnode *p,char x)
{
  gnode *p,*r,*s,*t;
  if(p==NULL) q=NULL;
  else{
     if(p->tag==0)
       {
         q=(gnode *)malloc(sizeof(gnode));
         q->tag=0;
         q->val.sublist=NULL;
         q->val.data=p->val.data;
       }
     else s=NULL;
}
 else delall(p->wal.sublist,x,s);
if(p->link!=NULL)
   {
     t_delall(p->link,x);
     s=(gnode *)malloc(sizeof(gnode));
     s->tag=1;
     s->link=NULL;
     s->val.sublist=t;
     if(s!=NULL)
      {
        r=q->val.sublist;
        while(r!=NULL) r=r->link;
        r->link=s;
      }
   }
 }
return(q);
}