48 #include "ling_class/EST_Item.h"
54 for (i=link1(from); i; i=next_link(i))
68 d = from->append_daughter();
69 q = d->append_daughter()->append_daughter(to);
82 c->up()->last()->insert_after(d);
90 c->down()->last()->insert_after(d);
95 return in_list(d,c->down());
100 return in_list(d,c->up());
106 (i2->in_relation(mlsrel->
name())))
108 EST_error(
"can't link two items already in %s\n",
109 (
const char *)mlsrel->
name());
115 if (mls_linked_down(c,i1))
118 mls_insert_down(c,i2);
120 else if (i2->in_relation(mlsrel->
name()))
123 if (mls_linked_down(c,i2))
126 mls_insert_down(c,i1);
132 mls_insert_linked_up(c,i1);
133 mls_insert_linked_down(c,i1);
144 fprintf(stderr,
"remove_link not written yet\n");