/*
  $Id: udf1.c,v 1.9 2005/10/29 14:52:47 rocky Exp $

  Copyright (C)  2005 Rocky Bernstein <rocky@panix.com>
  
  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.
  
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
  
  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

/* Simple program to show using libudf to list files in a directory of
   an UDF image.
 */

/* This is the UDF image. */
#define UDF_IMAGE_PATH "../"
#define UDF_IMAGE "/src2/cd-images/udf/UDF102ISO.iso"

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <sys/types.h>
#include <cdio/cdio.h>
#include <cdio/udf.h>

#include <stdio.h>

#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif

#define udf_PATH_DELIMITERS "/\\"

static void 
print_file_info(const udf_file_t *p_udf_file) 
{
  time_t mod_time = udf_get_modification_time(p_udf_file);
  udf_file_entry_t udf_fe;
  if (udf_get_file_entry(p_udf_file, &udf_fe)) {
    char perms[11]="invalid";
    /* Print directory attributes*/
      printf("%s ", udf_get_posix_filemode_str (p_udf_file, perms));
  }
  
  printf("%s %s", udf_get_filename(p_udf_file), ctime(&mod_time));
}


static udf_file_t *
list_files(const udf_t *p_udf, udf_file_t *p_udf_file, char *psz_token)
{
  if (!p_udf_file) return NULL;
  if (psz_token) {
    print_file_info(p_udf_file);
  }
  
  while (udf_get_next(p_udf, p_udf_file)) {
    char *next_tok = strtok(psz_token, udf_PATH_DELIMITERS);
      
    if (udf_is_dir(p_udf_file)) {
      udf_file_t * p_udf_file2 = udf_get_sub(p_udf, p_udf_file);
      
      if (p_udf_file2) {
	udf_file_t *p_udf_file3 = 
	  list_files(p_udf, p_udf_file2, next_tok);
	
	if (!p_udf_file3) udf_file_free(p_udf_file2);
	udf_file_free(p_udf_file3);
      }
    } else {
      print_file_info(p_udf_file);
    }
  }
  free(psz_token);
  return p_udf_file;
}

int
main(int argc, const char *argv[])
{
  udf_t *p_udf;
  char const *psz_fname;

  if (argc > 1) 
    psz_fname = argv[1];
  else 
    psz_fname = UDF_IMAGE;

  p_udf = udf_open (psz_fname);
  
  if (NULL == p_udf) {
    fprintf(stderr, "Sorry, couldn't open %s as something using UDF\n", 
	    psz_fname);
    return 1;
  } else {
    udf_file_t *p_udf_file = udf_get_root(p_udf, true, 0);
    if (NULL == p_udf_file) {
      fprintf(stderr, "Sorry, couldn't find / in %s\n", 
	      psz_fname);
      return 1;
    }
    
    {
      char vol_id[UDF_VOLID_SIZE] = "";
      char volset_id[UDF_VOLSET_ID_SIZE+1] = "";
      
      if (0 < udf_get_volume_id(p_udf, vol_id, sizeof(vol_id)) )
	printf("volume id: %s\n", vol_id);

      if (0 < udf_get_volume_id(p_udf, volset_id, sizeof(volset_id)) ) {
	volset_id[UDF_VOLSET_ID_SIZE+1]='\0';
	printf("volume set id: %s\n", volset_id);
      }

      printf("partition number: %d\n", udf_get_part_number(p_udf));


    }
    
    list_files(p_udf, p_udf_file, strdup(udf_get_filename(p_udf_file)));
    udf_file_free(p_udf_file);
  }
  
  udf_close(p_udf);
  return 0;
}