home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / perl_419 / perlglob.c < prev    next >
C/C++ Source or Header  |  1993-10-23  |  701b  |  46 lines
  1. /*
  2.  * glob and echo any globbed args
  3.  *
  4.  *  ++jrb  bammi@cadence.com
  5.  */
  6.  
  7. #include <stdio.h>
  8.  
  9. #if __STDC__
  10. # include <compiler.h>
  11. #else
  12. # define __PROTO(X) ()
  13. #endif
  14.  
  15. char    **glob __PROTO((char *patt, int decend_dir));
  16. int    contains_wild __PROTO((char *patt));
  17. void    free_all __PROTO((void));
  18.  
  19.  
  20. int main(argc, argv)
  21. int argc;
  22. char **argv;
  23. {
  24.     --argc; ++argv;
  25.     while(argc--)
  26.     {
  27.     char *word = *argv;
  28.     char **list;
  29.     int did_some = 0;
  30.  
  31.     if(contains_wild(word) && (list = glob(word, 0)))
  32.     {
  33.         while(*list)
  34.         {
  35.         fputs(*list, stdout);
  36.             if(*++list) putchar(' ');
  37.         }
  38.         free_all();
  39.         did_some = 1;
  40.     }
  41.     if(*++argv && did_some) putchar(' ');
  42.     }
  43.     putchar('\0');
  44.     return 0;
  45. }
  46.