Lines Matching defs:in
24 * stuffed in a header so exparse.y can work
49 * allocate and initialize a new expression node in the current program
239 * string data placed in buf
410 exerror("%s: trailing %% in format", f);
436 exerror("unterminated %%... in format");
534 exerror("%s: trailing %% in format", f);
601 register Exinput_t* in;
605 if (!(in = newof(0, Exinput_t, 1, 0)))
612 if (!(in->bp = in->sp = (char*)sp))
614 if (in->fp = fp)
615 in->close = 0;
618 if (!(s = pathfind(name, p->disc->lib, p->disc->type, buf, sizeof(buf))) || !(in->fp = sfopen(NiL, s, "r")))
621 in->bp = in->sp = "";
626 in->close = 1;
630 else in->fp = 0;
631 if (!(in->next = p->input)->next)
646 p->input = in;
647 in->file = error_info.file;
650 in->line = error_info.line;
651 in->nesting = 0;
652 in->unit = !name && !line;
666 register Exinput_t* in;
668 if (!(in = p->input) || !in->next || in->unit)
670 if (in->nesting)
672 error_info.file = in->file;
673 if (in->next->next)
674 error_info.line = in->line;
677 if (p->errors && in->fp && p->linep != p->line)
678 while ((c = sfgetc(in->fp)) != EOF)
685 error_info.line = in->line;
687 if (in->fp && in->close)
688 sfclose(in->fp);
689 if (in->pushback)
690 free(in->pushback);
691 p->input = in->next;
692 free(in);
700 * compile the expression in [sf]p
746 register Exinput_t* in;
763 while (in = p->input)
765 if (in->pushback)
766 free(in->pushback);
767 if (in->fp && in->close)
768 sfclose(in->fp);
769 if (p->input = in->next)
770 free(in);