1.txt

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

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