/**

  * $Id$

  *

  * Host CD/DVD drive support.

  *

  * Copyright (c) 2009 Nathan Keynes.

  *

  * 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.

  */

 #include <stdlib.h>

 #include <string.h>

 #include <glib/gstrfuncs.h>

 #include <glib/gmem.h>

 #include "drivers/cdrom/drive.h"

 #include "drivers/cdrom/cdimpl.h"

 static GList *cdrom_drive_list;

 static cdrom_drive_t cdrom_drive_new( const char *name, const char *display_name, cdrom_drive_open_fn_t open_fn )

 {

     cdrom_drive_t drive = g_malloc0( sizeof(struct cdrom_drive) );

     drive->name = g_strdup(name);

     drive->display_name = g_strdup(display_name);

     drive->open = open_fn;

     return drive;

 }

 static void cdrom_drive_destroy( cdrom_drive_t drive )

 {

     g_free( (char *)drive->name );

     drive->name = NULL;

     g_free( (char *)drive->display_name );

     drive->display_name = NULL;

     g_free( drive );

 }

 GList *cdrom_drive_get_list()

 {

     return cdrom_drive_list;

 }

 cdrom_drive_t cdrom_drive_add( const char *name, const char *display_name, cdrom_drive_open_fn_t open_fn )

 {

     for( GList *ptr = cdrom_drive_list; ptr != NULL; ptr = ptr->next ) {

         cdrom_drive_t it = (cdrom_drive_t)ptr->data;

         if( strcmp(it->name, name) == 0 ) {

             return it;

         }

     }

     cdrom_drive_t new_drive = cdrom_drive_new(name,display_name,open_fn);

     cdrom_drive_list = g_list_append( cdrom_drive_list, new_drive );

     return new_drive;

 }

 gboolean cdrom_drive_remove( const char *name )

 {

     for( GList *ptr = cdrom_drive_list; ptr != NULL; ptr = ptr->next ) {

         cdrom_drive_t it = (cdrom_drive_t)ptr->data;

         if( strcmp(it->name, name) == 0 ) {

             cdrom_drive_list = g_list_delete_link( cdrom_drive_list, ptr );

             cdrom_drive_destroy(it);

             return TRUE;

         }

     }

     return FALSE;

 }

 void cdrom_drive_remove_all()

 {

     for( GList *ptr = cdrom_drive_list; ptr != NULL; ptr = ptr->next ) {

         cdrom_drive_destroy( (cdrom_drive_t)ptr->data );

     }

     g_list_free(cdrom_drive_list);

     cdrom_drive_list = NULL;

 }

 cdrom_drive_t cdrom_drive_get_index( unsigned int index )

 {

     return (cdrom_drive_t)g_list_nth_data(cdrom_drive_list, index);

 }

 cdrom_disc_t cdrom_drive_open( cdrom_drive_t drive, ERROR *err )

 {

     return drive->open(drive, err);

 }

 cdrom_drive_t cdrom_drive_find( const char *name )

 {

     const char *id = name;

     /* If we have no drives, just return NULL without looking, to save time */

     if( cdrom_drive_list == NULL )

         return NULL;

     /* Check for a url-style name */

     const char *lizard_lips = strstr( name, "://" );

     if( lizard_lips != NULL ) {

         id = lizard_lips + 3;

         int method_len = (lizard_lips-name);

         if( method_len > 8 )

             return NULL;

         char method[method_len + 1];

         memcpy( method, name, method_len );

         method[method_len] = '\0';

         if( strcasecmp( method, "file" ) != 0 &&

             strcasecmp( method, "dvd" ) != 0 &&

             strcasecmp( method, "cd" ) != 0 &&

             strcasecmp( method, "cdrom" ) ) {

             /* Anything else we don't try to recognize */

             return NULL;

         }

         if( *id == '\0' ) {

             /* Accept eg  'dvd://' as meaning 'the first cd/dvd device */

             return cdrom_drive_list->data;

         }

         char *endp = NULL;

         unsigned long index = strtoul( id, &endp, 10 );

         if( endp != NULL && *endp == '\0' ) {

             /* Accept eg 'dvd://2' as meaning 'the second cd/dvd device */

             return cdrom_drive_get_index(index);

         }

         /* Otherwise it must be a drive identifier, so treat it as if it didn't

          * have the url prefix. (fallthrough)

          */

     }

     for( GList *ptr = cdrom_drive_list; ptr != NULL; ptr = ptr->next ) {

         cdrom_drive_t drive = (cdrom_drive_t)ptr->data;

         if( strcmp(drive->name, id) == 0 )

             return drive;

     }

     return NULL;

 }