psmile_io_scandir.c

Go to the documentation of this file.

#define __SYSV
#include <sys/types.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#if defined(__SYSV) || defined(__Linux)
#include <dirent.h>
#else
#include <sys/dir.h>
#endif
#include "PSMILe_f2c.h"

#if defined (__MYALPHASORT)

#define __MYALPHASORT myalphasort

#if defined(__SYSV) || defined(__Linux)
int myalphasort(struct dirent **d1, struct dirent **d2)
{
        return(strcmp((*d1)->d_name, (*d2)->d_name));
}
#else
int myalphasort(struct direct **d1, struct direct **d2)
{
        return(strcmp((*d1)->d_name, (*d2)->d_name));
}
#endif

#else

#define __MYALPHASORT alphasort

#endif

/* ------------------------------------------------------------------- */
/* Copyright 2006-2010, SGI Germany, Munich, Germany. */
/* All rights reserved. Use is subject to OASIS4 license terms. */
/*--------------------------------------------------------------------
//BOP
!  !ROUTINE: __psmile_io_scandir

   !INTERFACE:
*/
       void __psmile_io_scandir(char *basename
                          , int len_of_basename
                          , char *file_list
                          , int len_of_list_entry
                          , int len_of_list
                          , int *no_of_files
                          , int *ierror){
/*
  !LOCAL VARIABLES:
#if defined(__SYSV) || defined(__Linux)
           struct dirent **namelist;
#else
           struct direct **namelist;
#endif
           int n, entry=0;
           int offset=len_of_list_entry;
           size_t len=len_of_basename;

  !DESCRIPTION:
   Routine lists all files of a given basename in the current directory.

  !REVISION HISTORY:

    Date      Programmer   Description
  ----------  ----------   -----------
  31.10.03    R. Vogelsang created
  
//EOP
*/
           static char mycvs[80]="$Id: psmile_io_scandir.c 2325 2010-04-21 15:00:07Z valcke $";

#if defined(__SYSV) || defined(__Linux)
           struct dirent **namelist;
#else
           struct direct **namelist;
#endif
           int n, entry=0;
           int offset=len_of_list_entry;
           size_t len=len_of_basename;

           printf("%s %d %d %d \n",basename ,len_of_basename,len_of_list_entry,len_of_list);
           

#if defined(__SYSV) || defined(__Linux)
           n = scandir(".", &namelist, 0, __MYALPHASORT);
#else
           n = scandir(".", &namelist, 0, __MYALPHASORT);
#endif
           if (n < 0) {
               perror("psmile_io_scandir: The directory contains no files!");
               *ierror=999;
           } else {
               while(n--) {
                   if( ! strncmp(basename,namelist[n]->d_name,len)){
/*          printf("%s\n", namelist[n]->d_name);*/
                        if( entry < len_of_list ) {
                          strncpy(file_list + entry * offset
                                 ,namelist[n]->d_name
                                 ,strlen(namelist[n]->d_name));
                        }
                        entry++;
                    }       
                   free(namelist[n]);
               }
               free(namelist);
           }
           *no_of_files=entry;
       }
       void __psmile_io_scandir_no_of_files(char *basename
                          , int len_of_basename
                          , int *no_of_files
                          , int *ierror){
#if defined(__SYSV) || defined(__Linux)
           struct dirent **namelist;
#else
           struct direct **namelist;
#endif
           int n, entry=0;
           size_t len=len_of_basename;
           printf("%s %d \n",basename ,len_of_basename);
           

#if defined(__SYSV) || defined(__Linux)
           n = scandir(".", &namelist, 0, __MYALPHASORT);
#else
           n = scandir(".", &namelist, 0, __MYALPHASORT);
#endif
           if (n < 0) {
               perror("psmile_io_scandir: The directory contains no files!");
               *ierror=999;
           } else {
               while(n--) {
                   if( ! strncmp(basename,namelist[n]->d_name,len)){
/*          printf("%s\n", namelist[n]->d_name);*/
                        entry++;
                    }       
                   free(namelist[n]);
               }
               free(namelist);
           }
           *no_of_files=entry;
       }

/* Fortran interface */
       void psmile_io_scandir(char *basename
                           ,char *file_list
                           ,int *len_of_list
                           ,int *no_of_files
                           ,int *ierror
                           ,int len_of_basename
                           ,int len_of_list_entry){

            __psmile_io_scandir( basename
                              , len_of_basename
                              , file_list
                  , len_of_list_entry
                  ,*len_of_list
                  , no_of_files
                  , ierror);

       }
       void psmile_io_scandir_no_of_files(char *basename
                           ,int *no_of_files
                           ,int *ierror
                           ,int len_of_basename){

            __psmile_io_scandir_no_of_files( basename
                              , len_of_basename
                  , no_of_files
                  , ierror);

       }
/*
       main(){
       char basename[]="foo";
       int  lenb=3;
       int  lenf=100;
       int  lene=64;
       int no;
       int error;
       int i;

       char *fl;

       fl=(char*)malloc(lene*lenf*sizeof(char));
       
       psmile_io_scandir(basename,lenb,fl,lene,lenf,&no,&error);

       for(i=0;i< no;i++)
       printf("%s\n",fl+i*lene);
       
       
       }
*/