contrib/tcsh/sh.parse.c

74 asyntax(struct wordent *p1, struct wordent *p2)
76     while (p1 != p2) {
77 	if (!any(";&\n", p1->word[0]))
78 	    return asyn0(p1, p2);
79 	p1 = p1->next;
85 asyn0(struct wordent *p1, struct wordent *p2)
90     for (p = p1; p != p2; p = p->next)
114 	    if (asyn3(p1, p) != 0)
122 	return asyn3(p1, p2);
136 asyn3(struct wordent *p1, struct wordent *p2)
142     if (p1 == p2)
144     if (p1->word[0] == '(') {
146 	    if (p2 == p1)
148 	if (p2 == p1->next)
150 	return asyn0(p1->next, p2);
152     ap = adrof1(p1->word, &aliases);
155     alhistp = p1->prev;
165     if (p1->word[0] && eq(p1->word, alout.next->word)) {
171     p1 = freenod(p1, redid ? p2 : p1->next);
173 	p1->next->prev = alout.prev->prev;
174 	alout.prev->prev->next = p1->next;
175 	alout.next->prev = p1;
176 	p1->next = alout.next;
184 freenod(struct wordent *p1, struct wordent *p2)
186     struct wordent *retp = p1->prev;
188     while (p1 != p2) {
189 	xfree(p1->word);
190 	p1 = p1->next;
191 	xfree(p1->prev);
209 syntax(const struct wordent *p1, const struct wordent *p2, int flags)
212     while (p1 != p2)
213 	if (any(";&\n", p1->word[0]))
214 	    p1 = p1->next;
216 	    return (syn0(p1, p2, flags));
226 syn0(const struct wordent *p1, const struct wordent *p2, int flags)
233     for (p = p1; p != p2; p = p->next)
261 	    t1 = syn1(p1, p, flags);
283 	return (syn1(p1, p2, flags));
294 syn1(const struct wordent *p1, const struct wordent *p2, int flags)
301     for (p = p1; p != p2; p = p->next)
318 	    t->t_dcar = syn1a(p1, p, flags);
327     return (syn1a(p1, p2, flags));
336 syn1a(const struct wordent *p1, const struct wordent *p2, int flags)
342     for (p = p1; p != p2; p = p->next)
359 		t->t_dcar = syn1b(p1, p, flags);
369     return (syn1b(p1, p2, flags));
378 syn1b(const struct wordent *p1, const struct wordent *p2, int flags)
384     for (p = p1; p != p2; p = p->next)
399 		t->t_dcar = syn2(p1, p, flags);
409     return (syn2(p1, p2, flags));
419 syn2(const struct wordent *p1, const struct wordent *p2, int flags)
426     for (p = p1; p != p2; p = p->next)
448 	    t->t_dcar = syn3(p1, p, f);
457     return (syn3(p1, p2, flags));
471 syn3(const struct wordent *p1, const struct wordent *p2, int flags)
481     if (p1 != p2) {
482 	p = p1;
507     for (p = p1; p != p2; p = p->next)
553     for (p = p1; p != p2; p = p->next) {