Lines Matching refs:pp
102 if (pp.option & NATIVE)
106 cur->hide = ++pp.hide;
109 if ((pp.mode & (DUMP|INIT)) == DUMP)
112 if (pp.lastindex) pp.lastindex->next = cur->index;
113 else pp.firstindex = cur->index;
114 pp.lastindex = cur->index;
115 cur->index->file = pp.original;
121 if (!(pp.mode & DUMP))
123 if (!cur->prev->prev && !(pp.state & COMPILE) && isatty(0))
126 if (pp.member)
128 switch (pp.member->archive->type & (TYPE_BUFFER|TYPE_CHECKPOINT))
132 cur->buflen = pp.member->size;
134 p = (cur->buffer = oldof(0, char, 0, pp.member->size + PPBAKSIZ + 1)) + PPBAKSIZ;
135 if (sfseek(pp.member->archive->info.sp, pp.member->offset, SEEK_SET) != pp.member->offset)
136 error(3, "%s: archive seek error", pp.member->archive->name);
137 if (sfread(pp.member->archive->info.sp, p, pp.member->size) != pp.member->size)
138 error(3, "%s: archive read error", pp.member->archive->name);
139 pp.member = 0;
144 cur->buflen = pp.member->size;
146 p = cur->buffer = pp.member->archive->info.buffer + pp.member->offset;
148 pp.member = 0;
167 if (!(pp.option & NOPROTO) && !(pp.test & TEST_noproto) && ((pp.state & (COMPATIBILITY|TRANSITION)) == COMPATIBILITY || (pp.option & PLUSPLUS) || (pp.mode & EXTERNALIZE)) && (cur->buffer = pppopen(NiL, cur->fd, NiL, NiL, NiL, NiL, (PROTO_HEADER|PROTO_RETAIN)|(((pp.mode & EXTERNALIZE) || (pp.option & PROTOTYPED)) ? PROTO_FORCE : PROTO_PASS)|((pp.mode & EXTERNALIZE) ? PROTO_EXTERNALIZE : 0)|((pp.mode & MARKC) ? PROTO_PLUSPLUS : 0))))
178 if (pp.incref && !(pp.mode & INIT))
179 (*pp.incref)(error_info.file, s, error_info.line - 1, PP_SYNC_PUSH);
180 if (pp.macref || (pp.option & IGNORELINE))
182 cur->prefix = pp.prefix;
188 cur->control = pp.control;
189 *pp.control = 0;
190 cur->vendor = pp.vendor;
194 pp.mode |= MARKHOSTED;
198 if (pp.state & HIDDEN)
200 pp.state &= ~HIDDEN;
201 pp.hidden = 0;
202 if (!(pp.state & NOTEXT) && pplastout() != '\n')
205 pp.state |= NEWLINE;
206 if (pp.mode & HOSTED) cur->flags |= IN_hosted;
208 if (pp.mode & (INIT|MARKHOSTED))
210 pp.mode |= HOSTED;
211 pp.flags |= PP_hosted;
216 if (!(pp.mode & (INIT|MARKHOSTED)))
218 pp.mode &= ~HOSTED;
219 pp.flags &= ~PP_hosted;
222 if (pp.state & JOINING) pp.state |= HIDDEN|SYNCLINE;
225 if (pp.linesync)
226 (*pp.linesync)(error_info.line, error_info.file);
228 if (pp.member)
231 if (pp.mode & MARKC)
234 pp.mode &= ~MARKC;
237 debug((-7, "PUSH in=%s next=%s [%s]", ppinstr(pp.in), pptokchr(*pp.in->nextchr), pp.in->nextchr));
244 debug((-7, "PUSH in=%s next=%s [%s]", ppinstr(pp.in), pptokchr(*pp.in->nextchr), pp.in->nextchr));
264 debug((-7, "PUSH in=%s next=%s", ppinstr(pp.in), pptokchr(*pp.in->nextchr)));
294 if (ppmactop = pp.mactop)
296 nextmacp = pp.macp->next;
297 nextframe(pp.macp, pp.mactop);
299 restore = pp.state & (COLLECTING|DISABLE|STRIP);
300 pp.state &= ~restore;
301 pp.mode &= ~MARKMACRO;
303 cur = pp.in;
304 pp.in->flags |= IN_expand;
305 pptoken = pp.token;
307 pp.token = p = oldof(0, char, 0, n);
313 if ((pp.token = pp.toknxt) > m)
315 c = pp.token - p;
318 pp.token = p + c;
320 if (pp.mode & MARKMACRO)
322 pp.mode &= ~MARKMACRO;
323 *pp.token++ = MARK;
324 *pp.token++ = 'X';
327 else if (pp.in == cur)
330 *pp.token = 0;
332 pp.macp->next = nextmacp;
334 pp.token = pptoken;
335 pp.state |= restore;
336 pp.in = pp.in->prev;
418 hashwalk(pp.symtab, 0, dump, NiL);
426 ip = pp.firstindex;
483 pp.mode |= LOADING;
484 if (!(pp.state & STANDALONE))
487 if (pp.member)
489 sp = pp.member->archive->info.sp;
490 file_offset = pp.member->offset;
491 file_size = pp.member->size;
498 if (pp.in->type != IN_FILE)
500 if (pp.in->flags & IN_prototype)
501 pp.in->fd = pppdrop(pp.in->buffer + PPBAKSIZ);
503 if (pp.in->fd >= 0)
505 if (!(sp = sfnew(NiL, NiL, SF_UNBOUND, pp.in->fd, SF_READ)))
511 file_size = pp.in->buflen;
512 if (!(sp = sfnew(NiL, pp.in->buffer + ((pp.in->flags & IN_static) ? 0 : PPBAKSIZ), file_size, -1, SF_READ|SF_STRING)))
516 if (!streq(s, pp.checkpoint))
517 error(3, "checkpoint version %s does not match %s", s, pp.checkpoint);
549 p = PPBUFSIZ - (pp.outp - pp.outbuf);
561 if (pp.test & 0x0200) error(2, "%s: %s p=%lu next=<%lu,%lu> keep=<%lu,%lu> skip=<-,%lu> guard=%s", keyname(X_CHECKPOINT), fp->name, p, next_begin, next_end, keep_begin, keep_end, skip_end, fp->guard == INC_CLEAR ? "[CLEAR]" : fp->guard == INC_TEST ? "[TEST]" : fp->guard == INC_IGNORE ? "[IGNORE]" : fp->guard->name);
567 if (pp.test & 0x0100) error(2, "%s: %s IGNORE", keyname(X_CHECKPOINT), fp->name);
576 if (pp.test & 0x0100) error(2, "%s: copy <%lu,%lu> n=%lu p=%lu", keyname(X_CHECKPOINT), keep_begin, next_begin - 1, n, p);
579 if (sfread(sp, pp.outp, p) != p)
582 pp.outp = pp.outbuf;
588 if (sfread(sp, pp.outp, n) != n)
590 pp.outp += n;
612 fp->guard = ppsymset(pp.symtab, g);
622 if (pp.test & 0x0100) error(2, "%s: loop", keyname(X_CHECKPOINT));
656 sym = ppsymset(pp.symtab, b);
665 if (pp.test & 0x1000) error(2, "checkpoint SKIP %s=%s [%s]", sym->name, s, sym->macro->value);
694 if (pp.test & 0x1000) error(2, "checkpoint LOAD %s=%s", sym->name, mac->value);
704 pp.in->fd = -1;
708 if (pp.member) pp.member = 0;
713 pp.in->flags |= IN_eof|IN_newline;
714 pp.in->nextchr = pp.in->buffer + PPBAKSIZ;
715 *pp.in->nextchr++ = 0;
716 *pp.in->nextchr = 0;
718 pp.mode &= ~LOADING;