home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 344_01 / demo.c < prev    next >
Text File  |  1990-05-20  |  2KB  |  72 lines
  1. /*
  2. HEADER:         ;
  3. TITLE:          verns math functions demostration program
  4. VERSION:        1.0;
  5.  
  6. DESCRIPTION:    demonstrates vern's math functions
  7.  
  8. KEYWORDS:       demonstration;
  9. SYSTEM:         Xenix 3.4b, MSDOS;
  10. FILENAME:       demo.c
  11. WARNINGS:       compile with -dNO_PROTOTYPE if your system does not
  12.                 support prototyping, with -dFOR_MSDOS if you are compiling
  13.                 for MSDOS with an ANSI standard compiler.
  14.                 Defaults assume compiling with prototypes for
  15.                 Xenix 3.4b on Altos 2086 computer.
  16.  
  17. SEE-ALSO:       ncvd.c, ncvs.c, vmkd.c, vmks.c, print_tab.c,nrnd54.c.
  18. AUTHORS:        Vern Martin, 449 W. Harrison, Alliance, Ohio 44601;
  19. COMPILERS:      ECOSOFT ECO-C88, XENIX 3.4B STANDARD COMPILER;
  20. */
  21.  
  22.  
  23. #include "vernmath.h"
  24.  
  25. MAIN_TYPE main()
  26. {
  27.  
  28.     double test = 10.34897578;
  29.     char i[ 2 ];
  30.     static char search[] = "SEARCH THIS STRING";
  31.     static char find1[] = "THIS";
  32.     static char find2[] = "XYZ";
  33.     int x;
  34.  
  35.     printf("original test value = %lf\n",test);
  36.     for (x = 0; x < 7; x++) {
  37.         printf("%lf, rounded to %d places = %lf\n",test,x,nrnd54(test,x));
  38.     }
  39.  
  40.     printf("value rounded to nearest nickel = %lf\n",rndnick(test));
  41.  
  42.     printf("value packed, unpacked (mkd/cvd) = %lf\n",ncvd(vmkd(test)));
  43.     printf("value packed, unpacked (mks/cvs) = %lf\n",ncvs(vmks(test)));
  44.  
  45.     mki(i,3);
  46.     printf("value packed, unpacked (mki/cvi) = %d\n",cvi(i));
  47.  
  48.     printf("searching \"%s\" for \"%s\", instr() returned %d\n",
  49.             search,find1,instr(0,search,find1));
  50.  
  51.     printf("searching \"%s\" for \"%s\", instr() returned %d\n",
  52.             search,find2,instr(0,search,find2));
  53.  
  54.     printf("print \"%s\", right 4 chars = \"%s\"\n",
  55.             search,right(search,4));
  56.  
  57.     printf("print \"%s\" from char 10 on = \"%s\"\n",
  58.             search,mid(search,10,0));
  59.  
  60.     printf("print \"%s\" from char 10 to 12 = \"%s\"\n",
  61.             search,mid(search,10,12));
  62.  
  63.     for (x = 0; x < 75; x += 8) {
  64.         print_tab(stdout,x,0,"hello");
  65.     }
  66.  
  67.     /* don't tab to anywhere, but have print_tab() do a line feed */
  68.     /* this clears print_tab() of previous tabs and advances to next line */
  69.     print_tab(stdout,0,1,"");
  70.  
  71. }
  72.