2.9BSD - /usr/src/lib/ape/pointers.c

   1: #include "lint.h"
   2: #ifndef lint
   3: static char sccs_id[] = "@(#)pointers.c	2.1	7/6/82";
   4: #endif lint
   5: 
   6: #include <ape.h>
   7: 
   8: PMINT padd(a,b)
   9: PMINT a,b;
  10: {
  11:     PMINT c;
  12: 
  13:     new(&c);
  14:     madd(a,b,c);
  15:     return (c);
  16: }
  17: 
  18: PMINT pmult(a,b)
  19: PMINT a,b;
  20: {
  21:     PMINT c;
  22: 
  23:     new(&c);
  24:     mult(a,b,c);
  25:     return (c);
  26: }
  27: 
  28: PMINT psub(a,b)
  29: PMINT a,b;
  30: {
  31:     PMINT c;
  32: 
  33:     new(&c);
  34:     msub(a,b,c);
  35:     return (c);
  36: }
  37: 
  38: PMINT pgcd(a,b)
  39: PMINT a,b;
  40: {
  41:     PMINT c;
  42: 
  43:     new(&c);
  44:     gcd(a,b,c);
  45:     return (c);
  46: }
  47: 
  48: PMINT pdiv(a,b)
  49: PMINT a,b;
  50: {
  51:     PMINT c, junk;
  52: 
  53:     new(&c);
  54:     new(&junk);
  55:     mdiv(a,b,c,junk);
  56:     afree (junk);
  57:     return (c);
  58: }
  59: 
  60: PMINT pmod(a,b)
  61: PMINT a,b;
  62: {
  63:     PMINT d, junk;
  64: 
  65:     new(&d);
  66:     new(&junk);
  67:     mdiv(a,b,junk,d);
  68:     afree (junk);
  69:     return (d);
  70: }
  71: 
  72: PMINT psdiv(a,n)
  73: PMINT a;
  74: int n;
  75: {
  76:     PMINT c;
  77:     short *junk = 0;
  78: 
  79:     new(&c);
  80:     sdiv(a,n,c,junk);
  81:     shfree (junk);
  82:     return (c);
  83: }
  84: 
  85: smod(a,n)
  86: PMINT a;
  87: int n;
  88: {
  89:     PMINT  junk;
  90:     short d = 0;
  91: 
  92:     new(&junk);
  93:     sdiv(a,n,junk,&d);
  94:     afree (junk);
  95:     return (d);
  96: }
  97: 
  98: PMINT psqrt(a)
  99: PMINT a;
 100: {
 101:     PMINT b,r;
 102: 
 103:     new(&b);
 104:     new(&r);
 105:     ignore(msqrt(a,b,r));
 106:     afree(r);
 107:     return(b);
 108: }
 109: 
 110: PMINT remsqrt(a)
 111: PMINT a;
 112: {
 113:     PMINT b,r;
 114: 
 115:     new(&b);
 116:     new(&r);
 117:     ignore(msqrt(a,b,r));
 118:     afree(b);
 119:     return(r);
 120: }
 121: 
 122: PMINT ppow(a,b,c)
 123: PMINT a,b,c;
 124: {
 125:     PMINT d;
 126: 
 127:     new(&d);
 128:     pow(a,b,c,d);
 129:     return(d);
 130: }
 131: 
 132: PMINT prpow(a,n)
 133: PMINT a;
 134: int n;
 135: {
 136:     PMINT b;
 137: 
 138:     new(&b);
 139:     rpow(a,n,b);
 140:     return(b);
 141: }

Defined functions

Defined variables