Lines Matching defs:p
99 struct blk *p, *q;
112 p = readin();
113 pushp(p);
137 p = readin();
138 savk = sunputc(p);
139 chsign(p);
140 sputc(p, savk);
141 pushp(p);
159 p = pop();
160 sunputc(p);
168 p = removc(p, n - sk);
171 sputc(p, savk);
172 pushp(p);
187 p = pop();
188 release(p);
194 p = add0(rem, skd - (skr + k));
195 q = add(p, irem);
196 release(p);
202 p = pop();
204 savk = sunputc(p);
205 if (length(p) == 0) {
206 sputc(p, savk);
207 pushp(p);
210 if ((c = sbackc(p)) < 0) {
219 arg1 = add0(p, n);
239 p = exp(arg2, arg1);
254 q = removc(p, d - n);
258 sputc(p, d);
259 pushp(p);
263 p = pop();
268 pushp(p);
271 p = salloc(2);
274 sputc(p, n / 100);
277 sputc(p, n);
278 sputc(p, 0);
279 pushp(p);
282 p = pop();
284 n = (length(p) - 1) << 1;
285 fsfile(p);
286 sbackc(p);
287 if (sfbeg(p) == 0) {
288 if ((c = sbackc(p)) < 0) {
290 if (sfbeg(p) == 1)
293 if ((c = sbackc(p)) == 0)
302 release(p);
313 p = pop();
315 p = scalint(p);
321 n = length(p);
322 q = copy(p, n);
334 inbas = p;
337 p = copy(inbas, length(inbas) + 1);
338 sputc(p, 0);
339 pushp(p);
342 p = pop();
344 p = scalint(p);
346 n = length(p);
347 q = copy(p, n);
377 basptr = p;
398 p = salloc(1);
399 sputc(p, -1);
400 t = add(p, q);
407 release(p);
421 p = copy(basptr, length(basptr) + 1);
422 sputc(p, 0);
423 pushp(p);
427 p = salloc(0);
434 sputc(p, c);
438 pushp(p);
441 p = pop();
443 p = scalint(p);
448 * BC_SCALE_MAX. Copy p to q and figure the
451 n = length(p);
452 q = copy(p, n);
466 rewind(p);
467 k = sfeof(p) ? 0 : sgetc(p);
469 scalptr = p;
473 p = copy(scalptr, length(scalptr) + 1);
474 sputc(p, 0);
475 pushp(p);
478 p = pop();
480 fsfile(p);
481 n = sbackc(p);
482 release(p);
483 p = salloc(2);
484 sputc(p, n);
485 sputc(p, 0);
486 pushp(p);
489 p = pop();
491 if (length(p) > 2) {
494 rewind(p);
495 if ((c = sgetc(p)) < 0) {
498 release(p);
527 case 'p':
535 p = pop();
537 sputc(p, 0);
538 printf("%s", p->beg);
539 release(p);
548 p = copy(*stkptr, n);
549 pushp(p);
553 p = pop();
555 release(p);
569 p = pop();
572 q = copy(p, length(p) + PTRSZ);
576 release(p);
577 p = q;
579 sp->val = p;
590 p = sptr->val;
592 rewind(p);
593 while (sfeof(p) == 0)
594 release(getwd(p));
596 release(p);
604 p = pop();
605 sptr->val = p;
619 p = sptr->val;
621 rewind(p);
622 while (sfeof(p) == 0) {
623 q = getwd(p);
628 pushp(p);
631 p = pop();
633 q = scalint(p);
659 p = salloc((c + PTRSZ) * PTRSZ);
660 zero(p);
662 p = sptr->val;
663 if (length(p) - PTRSZ < c * PTRSZ) {
664 q = copy(p, (c + PTRSZ) * PTRSZ);
665 release(p);
666 p = q;
669 seekc(p, c * PTRSZ);
670 q = lookwd(p);
675 salterwd((struct wblk *)p, s);
676 sptr->val = p;
680 p = pop();
682 q = scalint(p);
703 p = sptr->val;
704 if (length(p) - PTRSZ >= c * PTRSZ) {
705 seekc(p, c * PTRSZ);
706 s = getwd(p);
720 p = pop();
733 *readptr = p;
734 if (p != 0)
735 rewind(p);
750 p = salloc(0);
751 sputc(p, c);
753 sputc(p, c);
755 sputc(p, readc());
758 *readptr = p;
783 struct blk *p, *divd, *divr;
786 p = salloc(0);
790 return (p);
810 seekc(p, offset + 1);
865 sbackc(p);
866 salterc(p, dig);
867 sbackc(p);
887 salterc(p, dig + 1);
892 salterc(p, dig - 1);
899 rewind(p);
901 while (sfeof(p) == 0) {
902 d = slookc(p) + divcarry;
908 salterc(p, d);
911 salterc(p, divcarry);
912 fsfile(p);
913 while (sfbeg(p) == 0) {
914 if (sbackc(p) == 0)
915 truncate(p);
919 chsign(p);
932 return (p);
978 removr(struct blk *p, int n)
982 fsfile(p);
983 neg = sbackc(p);
985 chsign(p);
986 rewind(p);
990 sputc(q, sgetc(p));
994 while (sfeof(p) == 0)
995 sputc(r, sgetc(p));
996 release(p);
1024 sqrt(struct blk *p)
1029 n = length(p);
1030 fsfile(p);
1031 c = sbackc(p);
1033 c = c * 100 + (sfbeg(p) ? 0 : sbackc(p));
1051 q = dcdiv(p, r);
1072 release(p);
1079 struct blk *r, *e, *p, *e1, *t, *cp;
1083 p = copy(base, length(base));
1101 e1 = mult(p, r);
1105 t = copy(p, length(p));
1106 cp = mult(p, t);
1107 release(p);
1109 p = cp;
1127 release(p);
1231 pushp(struct blk *p)
1237 *++stkptr = p;
1254 struct blk *p, *q;
1259 p = salloc(0);
1287 q = mult(p, inbas);
1288 release(p);
1289 p = add(chptr, q);
1296 sputc(p, 0);
1297 return (p);
1303 q = mult(p, inbas);
1304 release(p);
1305 p = add(chptr, q);
1310 q = scale(p, dpct);
1316 * returns pointer to struct with ct 0's & p
1319 add0(struct blk *p, int ct)
1323 q = salloc(length(p) + (ct + 1) / 2);
1328 rewind(p);
1329 while (sfeof(p) == 0) {
1330 sputc(q, sgetc(p));
1332 release(p);
1342 mult(struct blk *p, struct blk *q)
1349 fsfile(p);
1350 mp = p;
1351 if (sfbeg(p) == 0) {
1352 if (sbackc(p) < 0) {
1353 mp = copy(p, length(p));
1392 if (mp != p)
1400 chsign(struct blk *p)
1406 rewind(p);
1407 while (sfeof(p) == 0) {
1408 ct = 100 - slookc(p) - carry;
1414 salterc(p, ct);
1417 sputc(p, -1);
1418 fsfile(p);
1419 sbackc(p);
1420 ct = sbackc(p);
1422 truncate(p);
1423 sputc(p, -1);
1426 fsfile(p);
1427 ct = sbackc(p);
1429 truncate(p);
1496 struct blk *p, *q, *dec;
1518 p = copy(hptr, length(hptr));
1519 sunputc(p);
1520 fsfile(p);
1521 if (sbackc(p) < 0) {
1522 chsign(p);
1526 oneot(p, sc, 'd');
1530 oneot(p, sc, '1');
1534 tenot(p, sc);
1540 dec = getdec(p, sc);
1541 p = removc(p, sc);
1542 while (length(p) != 0) {
1543 q = dcdiv(p, basptr);
1544 release(p);
1545 p = q;
1550 release(p);
1568 p = removc(q, sc);
1569 (*outdit)(p, 1);
1579 getdec(struct blk *p, int sc)
1584 rewind(p);
1585 if (length(p) * 2 < sc) {
1586 q = copy(p, length(p));
1589 q = salloc(length(p));
1591 sputc(q, sgetc(p));
1612 tenot(struct blk *p, int sc)
1616 fsfile(p);
1626 while ((sfbeg(p) == 0) && ((p->rd-p->beg-1)*2 >= sc)) {
1633 c = sbackc(p);
1673 release(p);
1677 if ((p->rd - p->beg) * 2 > sc) {
1678 c = sbackc(p);
1699 if (sc > (p->rd - p->beg) * 2) {
1700 while (sc > (p->rd - p->beg) * 2) {
1711 c = sbackc(p);
1734 printf("%d", sbackc(p) / 10);
1738 release(p);
1742 oneot(struct blk *p, int sc, char ch)
1746 q = removc(p, sc);
1750 p = add(strptr, q);
1752 q = p;
1760 hexot(struct blk *p, int flg)
1764 rewind(p);
1765 if (sfeof(p) != 0) {
1767 release(p);
1770 c = sgetc(p);
1771 release(p);
1780 bigot(struct blk *p, int flg)
1793 if (length(p) != 0) {
1794 fsfile(p);
1795 if (sbackc(p) < 0) {
1797 chsign(p);
1799 while (length(p) != 0) {
1800 q = dcdiv(p, tenptr);
1801 release(p);
1802 p = q;
1808 release(p);
1835 struct blk *p;
1841 p = salloc(size);
1858 sputc(p, n);
1861 sputc(p, carry);
1862 fsfile(p);
1863 if (sfbeg(p) == 0) {
1864 while (sfbeg(p) == 0 && (c = sbackc(p)) == 0);
1866 salterc(p, c);
1867 truncate(p);
1869 fsfile(p);
1870 if (sfbeg(p) == 0 && sbackc(p) == -1) {
1871 while ((c = sbackc(p)) == 99) {
1875 sgetc(p);
1876 salterc(p, -1);
1877 truncate(p);
1879 return (p);
1884 struct blk *p, *q;
1887 p = pop();
1890 EMPTYSR(p);
1891 skp = sunputc(p);
1894 arg1 = p;
1901 p = add0(p, skq - skp);
1906 arg1 = p;
1912 removc(struct blk *p, int n)
1916 rewind(p);
1918 sgetc(p);
1922 while (sfeof(p) == 0)
1923 sputc(q, sgetc(p));
1930 release(p);
1935 scalint(struct blk *p)
1939 n = sunputc(p);
1940 p = removc(p, n);
1941 return (p);
1945 scale(struct blk *p, int n)
1949 t = add0(p, n);
2014 struct blk *p;
2019 p = pop();
2020 sunputc(p);
2021 if (length(p) == 0) {
2022 release(p);
2031 release(p);
2037 release(p);
2041 fsfile(p);
2042 cc = sbackc(p);
2043 release(p);
2057 struct blk *p, *q, *t, *s;
2062 p = sptr->val;
2064 q = salloc(length(p));
2065 rewind(p);
2066 while (sfeof(p) == 0) {
2067 s = getwd(p);
2077 q = copy(p, length(p));
2202 char *p;
2207 p = hptr->beg;
2208 while (p < hptr->wt)
2209 printf("%d ", *p++);
2218 char *nn, *p;
2228 p = realloc(hptr->beg, (unsigned)n);
2229 if (p == 0) {
2233 if ((p = realloc(hptr->beg, (unsigned)n)) == 0)
2236 hptr->beg = p;
2237 hptr->wt = hptr->last = hptr->rd = p + n;
2259 char *p;
2270 p = realloc(hptr->beg, (unsigned)size);
2271 if (p == 0) {
2275 if ((p = realloc(hptr->beg, size)) == 0)
2278 hptr->rd = hptr->rd - hptr->beg + p;
2279 hptr->wt = hptr->wt - hptr->beg + p;
2280 hptr->beg = p;
2281 hptr->last = p + size;
2295 #define G2 gettext("tmps %o p %o\n")
2300 struct blk *p, *q;
2310 p = tmps->val;
2311 if (((int)p->beg & 01) != 0) {
2314 sdump("odd beg", p);
2316 redef(p);
2322 p = tmps->val;
2323 rewind(p);
2325 while ((q = getwd(p)) != NULL) {
2334 tmps, p);
2348 redef(struct blk *p)
2354 if ((int)p->beg & 01) {
2355 printf(gettext("odd ptr %o hdr %o\n"), p->beg, p);
2362 newp = realloc(p->beg, (unsigned)(p->last - p->beg));
2365 offset = newp - p->beg;
2366 p->beg = newp;
2367 p->rd += offset;
2368 p->wt += offset;
2369 p->last += offset;
2373 release(struct blk *p)
2377 nbytes -= p->last - p->beg;
2378 p->rd = (char *)hfree;
2379 hfree = p;
2380 free(p->beg);
2381 p->beg = NULL;
2385 getwd(struct blk *p)
2389 wp = (struct wblk *)p;
2396 putwd(struct blk *p, struct blk *c)
2400 wp = (struct wblk *)p;
2402 more(p);
2407 lookwd(struct blk *p)
2411 wp = (struct wblk *)p;
2418 nalloc(char *p, unsigned int nbytes)
2426 *q++ = *p++;