20 Element *Al_El = ZE;
30 static Element	*if_seq(Lextok *);
31 static Element	*new_el(Lextok *);
32 static Element	*unless_seq(Lextok *);
33 static void	add_el(Element *, Sequence *);
35 static void	mov_lab(Symbol *, Element *, Element *);
36 static void	walk_atomic(Element *, Element *, int);
64 Rjumpslocal(Element *q, Element *stop)  in Rjumpslocal()
65 {	Element *lb, *f;  in Rjumpslocal()
109 {	Element *e, *le = ZE;  in check_sequence()
281 static Element *
283 {	Element *m;  in new_el()
291 	m = (Element *) emalloc(sizeof(Element));  in new_el()
323 {	Element *e, *f;  in loose_ends()
360 static Element *
364 	Element	*e  = new_el(ZN);  in if_seq()
365 	Element	*t  = new_el(nn(ZN,'.',ZN,ZN)); /* target */  in if_seq()
427 escape_el(Element *f, Sequence *e)  in escape_el()
471 {	Element *f;  in attach_escape()
480 static Element *
483 	Element	*e  = new_el(ZN);  in unless_seq()
484 	Element	*t  = new_el(nn(ZN,'.',ZN,ZN)); /* target */  in unless_seq()
507 	{	Element *x; printf("\t%d,%d,%d :: ",  in unless_seq()
519 Element *
527 add_el(Element *e, Sequence *s)  in add_el()
532 		{	Element *y; /* insert a skip */  in add_el()
550 static Element *
556 	{	Element *e = colons(n->lft);  in colons()
566 {	Element *e;  in add_seq()
585 set_lab(Symbol *s, Element *e)  in set_lab()
629 Element *
647 has_lab(Element *e, int special)  in has_lab()
663 mov_lab(Symbol *z, Element *e, Element *y)  in mov_lab()
704 	{	Element	*y = (Element *) emalloc(sizeof(Element));  in fix_dest()
764 {	Element *f;  in make_atomic()
1009 walk_atomic(Element *a, Element *b, int added)  in walk_atomic()
1010 {	Element *f; Symbol *ofn; int oln;  in walk_atomic()