home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d1xx / d162 / cli_utilities / wordcount / wordcount.c < prev   
C/C++ Source or Header  |  1988-10-02  |  2KB  |  82 lines
  1. /*  Wordcount (C) Copyright 1987 by Russell Wallace. This program is in
  2.     the public domain and may be freely distributed. It may not be used
  3.     commercially without the author's permission. If you find this program
  4.     useful,please send a small donation to the author at:
  5.         24 Lower Georges St.
  6.         Dunlaoghaire
  7.         Co. Dublin
  8.         Ireland
  9.     to help finance further software development. Contributions in kind i.e.
  10.     Amiga disks welcome. If you wish to discuss any aspect of the Amiga or
  11.     computers in general,write or phone 807094.
  12.  
  13.     Usage: Wordcount <filename>
  14.     The number of words in the text file referred to, the length of the file
  15.     and the average word length (rounded down to the nearest integer) will be
  16.     printed to the CLI window.
  17.  
  18.     If you give copies of this program to anyone,please distribute source
  19.     code with object code to allow examination of programming techniques;
  20.     the Amiga programming environment is so complex that source code is
  21.     very valuable as an information source */
  22.  
  23. #include <libraries/dos.h>
  24. #include <exec/types.h>
  25.  
  26. #define MAXBUFFER 256L        /* length of I/O buffers */
  27. #define EOF '\0'
  28.  
  29. char inbuffer[MAXBUFFER];    /* input buffer */
  30. struct FileInfoBlock *fp;    /* pointer to file */
  31.  
  32. char charin ()                /* input a character */
  33. {
  34.     static short inpoint=MAXBUFFER-1;
  35.     static short maxin  =MAXBUFFER-1;
  36.     LONG Read ();
  37.     char ch;
  38.     if (++inpoint>=maxin)    /* If buffer used up, */
  39.     {                            /* refill it from file */
  40.         maxin=Read (fp,inbuffer,MAXBUFFER);
  41.         inpoint=0;
  42.     }
  43.     if (maxin==0)            /* No more characters to read, so return EOF */
  44.         return (EOF);
  45.     return (inbuffer[inpoint]);    /* else return next character */
  46. }
  47.  
  48. main (argc,argv)
  49. int argc;        /* number of arguments input by user */
  50. char *argv[];    /* pointers to each argument */
  51. {
  52.     struct FileInfoBlock *Open ();
  53.     char ch,oldch,charin ();
  54.     unsigned long length,wordcount;
  55.     if ((argc<2)||(*argv[1]=='?'))    /* If no arguments or ?,give help */
  56.     {
  57.         printf ("Usage: Wordcount <filename>\n");
  58.         exit (10);
  59.     }
  60.     if ((fp=Open (argv[1],MODE_OLDFILE))==0)    /* Can't open file */
  61.     {
  62.         printf ("Can't open file\n");
  63.         exit (10);
  64.     }
  65.     length=0;
  66.     wordcount=1;
  67.     ch='\0';
  68.     for (;;)
  69.     {
  70.         oldch=ch;
  71.         if (!(ch=charin ()))
  72.             break;
  73.         length++;
  74.         if (ch==' ' && oldch!=' ')
  75.             wordcount++;
  76.     }
  77.     printf ("Number of words = %lu\n",wordcount);
  78.     printf ("Length of file  = %lu\n",length);
  79.     printf ("Average word length = %lu\n",(long)((length-wordcount)/wordcount));
  80.     Close (fp);
  81. }
  82.