Subversion Repositories openrisc

/*

 *  XXX

 *

 *  COPYRIGHT (c) 1989-1999.

 *  On-Line Applications Research Corporation (OAR).

 *

 *  The license and distribution terms for this file may be

 *  found in the file LICENSE in this distribution or at

 *  http://www.OARcorp.com/rtems/license.html.

 *

 *  $Id: imfs_directory.c,v 1.2 2001-09-27 12:01:15 chris Exp $

 */

#include <sys/types.h>

#include <sys/stat.h>

#include <chain.h>

#include <fcntl.h>

#include <errno.h>

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <assert.h>

#include <dirent.h>

#include "imfs.h"

#include "libio_.h"

/* -----------------------------------------------------------------------

 * This rountine will verify that the node being opened as a directory is

 * in fact a directory node. If it is then the offset into the directory

 * will be set to 0 to position to the first directory entry.

 */

int imfs_dir_open(

  rtems_libio_t  *iop,

  const char *pathname,

  unsigned32 flag,

  unsigned32 mode

)

{

  IMFS_jnode_t      *the_jnode;

  /* Is the node a directory ? */

  the_jnode = (IMFS_jnode_t *) iop->file_info;

  if ( the_jnode->type != IMFS_DIRECTORY )

     return -1;         /* It wasn't a directory --> return error */

  iop->offset = 0;

  return 0;

}

/* -----------------------------------------------------------------------

 * This routine will read the next directory entry based on the directory

 * offset. The offset should be equal to -n- time the size of an individual

 * dirent structure. If n is not an integer multiple of the sizeof a

 * dirent structure, an integer division will be performed to determine

 * directory entry that will be returned in the buffer. Count should reflect

 * -m- times the sizeof dirent bytes to be placed in the buffer.

 * If there are not -m- dirent elements from the current directory position

 * to the end of the exisiting file, the remaining entries will be placed in

 * the buffer and the returned value will be equal to -m actual- times the

 * size of a directory entry.

 */

int imfs_dir_read(

  rtems_libio_t  *iop,

  void *buffer,

  unsigned32 count

)

{

  /*

   *  Read up to element  iop->offset in the directory chain of the

   *  imfs_jnode_t struct for this file descriptor.

   */

   Chain_Node        *the_node;

   Chain_Control     *the_chain;

   IMFS_jnode_t      *the_jnode;

   int                bytes_transferred;

   int                current_entry;

   int                first_entry;

   int                last_entry;

   struct dirent      tmp_dirent;

   the_jnode = (IMFS_jnode_t *)iop->file_info;

   the_chain = &the_jnode->info.directory.Entries;

   if ( Chain_Is_empty( the_chain ) )

      return 0;

   /* Move to the first of the desired directory entries */

   the_node = the_chain->first;

   bytes_transferred = 0;

   first_entry = iop->offset;

   /* protect against using sizes that are not exact multiples of the */

   /* -dirent- size. These could result in unexpected results          */

   last_entry = first_entry + (count/sizeof(struct dirent)) * sizeof(struct dirent);

   /* The directory was not empty so try to move to the desired entry in chain*/

   for(

      current_entry = 0;

      current_entry < last_entry;

      current_entry = current_entry + sizeof(struct dirent) ){

      if ( Chain_Is_tail( the_chain, the_node ) ){

         /* We hit the tail of the chain while trying to move to the first */

         /* entry in the read */

         return bytes_transferred;  /* Indicate that there are no more */

                                    /* entries to return */

      }

      if( current_entry >= first_entry ) {

         /* Move the entry to the return buffer */

         tmp_dirent.d_ino = 1;

         tmp_dirent.d_off = current_entry;

         tmp_dirent.d_reclen = sizeof( struct dirent );

         the_jnode = (IMFS_jnode_t *) the_node;

         tmp_dirent.d_namlen = strlen( the_jnode->name );

         strcpy( tmp_dirent.d_name, the_jnode->name );

         memcpy(

            buffer + bytes_transferred,

            (void *)&tmp_dirent,

            sizeof( struct dirent )

         );

         iop->offset = iop->offset + sizeof(struct dirent);

         bytes_transferred = bytes_transferred + sizeof( struct dirent );

      }

      the_node = the_node->next;

   }

   /* Success */

   return bytes_transferred;

}

/* -----------------------------------------------------------------------

 * This routine will be called by the generic close routine to cleanup any

 * resources that have been allocated for the management of the file

 */

int imfs_dir_close(

  rtems_libio_t  *iop

)

{

  /* The generic close routine handles the deallocation of the file control */

  /* and associated memory. At present the imfs_dir_close simply      */

  /* returns a successful completion status                                 */

  return 0;

}

/* -----------------------------------------------------------------------

 * This routine will behave in one of three ways based on the state of

 * argument whence. Based on the state of its value the offset argument will

 * be interpreted using one of the following methods:

 *

 *      SEEK_SET - offset is the absolute byte offset from the start of the

 *                 logical start of the dirent sequence that represents the

 *                 directory

 *      SEEK_CUR - offset is used as the relative byte offset from the current

 *                 directory position index held in the iop structure

 *      SEEK_END - N/A --> This will cause an assert.

 */

int imfs_dir_lseek(

  rtems_libio_t  *iop,

  off_t           offset,

  int             whence

)

{

  off_t normal_offset;

  normal_offset = (offset/sizeof(struct dirent)) * sizeof(struct dirent);

  switch( whence )

  {

     case SEEK_SET:     /* absolute move from the start of the file */

        iop->offset = normal_offset;

        break;

     case SEEK_CUR:     /* relative move */

        iop->offset = iop->offset + normal_offset;

        break;

     case SEEK_END:     /* Movement past the end of the directory via lseek */

                        /* is not a permitted operation                     */

      default:

        set_errno_and_return_minus_one( EINVAL );

        break;

  }

  return 0;

}

/* -----------------------------------------------------------------------

 * This routine will obtain the following information concerning the current

 * directory:

 *      st_dev          0ll

 *      st_ino          1

 *      st_mode         mode extracted from the jnode

 *      st_nlink        number of links to this node

 *      st_uid          uid extracted from the jnode

 *      st_gid          gid extracted from the jnode

 *      st_rdev         0ll

 *      st_size         the number of bytes in the directory

 *                      This is calculated by taking the number of entries

 *                      in the directory and multiplying by the size of a

 *                      dirent structure

 *      st_blksize      0

 *      st_blocks       0

 *      stat_atime      time of last access

 *      stat_mtime      time of last modification

 *      stat_ctime      time of the last change

 *

 * This information will be returned to the calling function in a -stat- struct

 *

 */

int imfs_dir_fstat(

  rtems_filesystem_location_info_t *loc,

  struct stat                      *buf

)

{

   Chain_Node        *the_node;

   Chain_Control     *the_chain;

   IMFS_jnode_t      *the_jnode;

   the_jnode = (IMFS_jnode_t *) loc->node_access;

   buf->st_dev = 0ll;

   buf->st_ino   = the_jnode->st_ino;

   buf->st_mode  = the_jnode->st_mode;

   buf->st_nlink = the_jnode->st_nlink;

   buf->st_uid   = the_jnode->st_uid;

   buf->st_gid   = the_jnode->st_gid;

   buf->st_rdev = 0ll;

   buf->st_blksize = 0;

   buf->st_blocks = 0;

   buf->st_atime = the_jnode->stat_atime;

   buf->st_mtime = the_jnode->stat_mtime;

   buf->st_ctime = the_jnode->stat_ctime;

   buf->st_size = 0;

   the_chain = &the_jnode->info.directory.Entries;

   /* Run through the chain and count the number of directory entries */

   /* that are subordinate to this directory node                     */

   for ( the_node = the_chain->first ;

         !_Chain_Is_tail( the_chain, the_node ) ;

         the_node = the_node->next ) {

      buf->st_size = buf->st_size + sizeof( struct dirent );

   }

   return 0;

}

/*

 *  IMFS_dir_rmnod

 *

 *  This routine is available from the optable to remove a node

 *  from the IMFS file system.

 */

int imfs_dir_rmnod(

  rtems_filesystem_location_info_t      *pathloc       /* IN */

)

{

  IMFS_jnode_t *the_jnode;

  the_jnode = (IMFS_jnode_t *) pathloc->node_access;

  /*

   * You cannot remove a node that still has children

   */

  if ( ! Chain_Is_empty( &the_jnode->info.directory.Entries ) )

     set_errno_and_return_minus_one( ENOTEMPTY );

  /*

   * You cannot remove the file system root node.

   */

  if ( pathloc->mt_entry->mt_fs_root.node_access == pathloc->node_access )

     set_errno_and_return_minus_one( EBUSY );

  /*

   * You cannot remove a mountpoint.

   */

   if ( the_jnode->info.directory.mt_fs != NULL )

     set_errno_and_return_minus_one( EBUSY );

  /*

   * Take the node out of the parent's chain that contains this node

   */

  if ( the_jnode->Parent != NULL ) {

    Chain_Extract( (Chain_Node *) the_jnode );

    the_jnode->Parent = NULL;

  }

  /*

   * Decrement the link counter and see if we can free the space.

   */

  the_jnode->st_nlink--;

  IMFS_update_ctime( the_jnode );

  /*

   * The file cannot be open and the link must be less than 1 to free.

   */

  if ( !rtems_libio_is_file_open( the_jnode ) && (the_jnode->st_nlink < 1) ) {

    /*

     * Is the rtems_filesystem_current is this node?

     */

    if ( rtems_filesystem_current.node_access == pathloc->node_access )

       rtems_filesystem_current.node_access = NULL;

    /*

     * Free memory associated with a memory file.

     */

    free( the_jnode );

  }

  return 0;

}