home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / TRSICAT.LZX / CATS_CD2_TRSI / Reference_Library / lib_examples / mathieeesingbas.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-21  |  1.1 KB  |  33 lines
  1. #include <exec/types.h>
  2. #include <libraries/mathieeesp.h>
  3.  
  4. #include <clib/mathsingbas_protos.h>
  5.  
  6. struct Library *MathIeeeSingBasBase;
  7.  
  8. VOID main()
  9. {
  10. FLOAT f1, f2, f3;
  11. LONG   i1;
  12.  
  13. if (MathIeeeSingBasBase = OpenLibrary("mathieeesingbas.library",37))
  14.     {
  15.     i1 = IEEESPFix(f1);                /* Call IEEESPFix entry */
  16.     fi = IEEESPFlt(i1);                /* Call IEEESPFlt entry */
  17.     switch (IEEESPCmp(f1, f2)) {};     /* Call IEEESPCmp entry */
  18.     switch (IEEESPTst(f1)) {};         /* Call IEEESPTst entry */
  19.     f1 = IEEESPAbs(f2);                /* Call IEEESPAbs entry */
  20.     f1 = IEEESPNeg(f2);                /* Call IEEESPNeg entry */
  21.     f1 = IEEESPAdd(f2, f3);            /* Call IEEESPAdd entry */
  22.     f1 = IEEESPSub(f2, f3);            /* Call IEEESPSub entry */
  23.     f1 = IEEESPMul(f2, f3);            /* Call IEEESPMul entry */
  24.     f1 = IEEESPDiv(f2, f3);            /* Call IEEESPDiv entry */
  25.     f1 = IEEESPCeil(f2);               /* Call IEEESPCeil entry */
  26.     f1 = IEEESPFloor(f2);              /* Call IEEESPFloor entry */
  27.  
  28.     CloseLibrary(MathIeeeSingBasBase);
  29.     }
  30. else
  31.     printf("Can't open mathieeesingbas.library\n");
  32. }
  33.