home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / toolpack.000 / toolpack / toolpack1.2 / util / Tcrfil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-03-04  |  289 b   |  26 lines
  1. #include <stdio.h>
  2.  
  3. main(argc, argv)
  4.  
  5.  
  6. int argc;
  7. char *argv[];
  8.  
  9. {
  10. int nrfils,count;
  11. char c1,c2;
  12.  
  13. count = 0;
  14. nrfils = argc - 1;
  15.  
  16. while (nrfils > 0)
  17.     {
  18.     c1 = *argv[nrfils];
  19.     c2 = *++argv[nrfils];
  20.     if(c1 == '_' && c2 == '.') count = count + 1;
  21.     nrfils = nrfils - 1;
  22.     }
  23.  
  24. printf("%d",count);
  25. }
  26.