Документ взят из кэша поисковой машины. Адрес оригинального документа : http://mavr.sao.ru/hq/sts/linux/book/c_marshall/section2_22_20.html
Дата изменения: Unknown
Дата индексирования: Fri Dec 28 19:40:10 2007
Кодировка:

Поисковые слова: comet
list_c.c



Next: fork_eg.c Up: Program Listings Previous: list.c

list_c.c


/* list_c.c -  list C realted files ie .c .o .h files */

/* c89 list_c.c -o list_c */

#include <sys/types.h>
#include <sys/dir.h>
#include <sys/param.h>
#include <stdio.h>

#define FALSE 0
#define TRUE !FALSE

extern  int alphasort();
char *rindex(char *s, char c);

char pathname[MAXPATHLEN];

main()
{ int count,i;
  struct direct **files;
  int file_select();

(char *) getwd(pathname);
  printf("Current Working Directory = %s\n",pathname);

  count = 
    scandir(pathname, &files, file_select, alphasort);


  /* If no files found, make a non-selectable menu item */
  if (count <= 0) {
    printf("No files in this directory\n");
    exit(0);
  }

  printf("Number of files = %d\n",count);

  for (i=0;i<count;++i)
   { printf("%s ",files[i]->d_name);
     if ( (i % 4) == 0) printf("\n");
   }
   
  printf("\n"); /* flush buffer */
}


int
file_select(struct direct   *entry)
{
	char		*ptr;
	char		tmp[MAXPATHLEN];

      if ((strcmp(entry->d_name, ".") == 0) ||
	    (strcmp(entry->d_name, "..") == 0))
		return (FALSE); 

	/* Check for .c or .o or .h filename extensions */
	ptr = rindex(entry->d_name, '.');
	if ((ptr != NULL) &&
	    ((strcmp(ptr, ".c") == 0) || (strcmp(ptr, ".h") == 0) || (strcmp(ptr, ".o") == 0) )) 
		return (TRUE);

}


Dave.Marshall@cm.cf.ac.uk
Wed Sep 14 10:06:31 BST 1994