#include <grass/dbmi.h>
#include "odbc.h"
#include "globals.h"
#include "proto.h"

db__driver_list_databases (dbpath, npaths, dblist, dbcount)
    dbString  *dbpath;
    int       npaths;
    dbHandle  **dblist;
    int       *dbcount;
{
    int          i, count=0;
    dbHandle     *list;
    char         dsn[SQL_MAX_DSN_LENGTH],desc[100];
    SQLUSMALLINT next;
    SQLRETURN    ret; 

    *dblist  = NULL;
    *dbcount = 0;

    if ( open_connection() != DB_OK )
	return DB_FAILED;

    next=SQL_FETCH_FIRST;
    while( SQLDataSources( ODenvi, next, dsn, sizeof(dsn),
        NULL, desc, sizeof(desc), NULL) == SQL_SUCCESS)
    {
	next=SQL_FETCH_NEXT;
	count++;
    }      

    list = db_alloc_handle_array (count);  
    if(list == NULL) 
    {
	report_error("db_alloc_handle_array()");
	return DB_FAILED;
    }

    i=0;
    next=SQL_FETCH_FIRST;
    while( SQLDataSources(ODenvi, next, dsn, sizeof(dsn),
    	    NULL, desc, sizeof(desc), NULL) == SQL_SUCCESS)
    {
	db_init_handle (&list[i]);
	if(  db_set_handle(&list[i],dsn, desc ) != DB_OK)
	{
	    report_error("db_set_handle()");
	    db_free_handle_array (list, count);
	    return DB_FAILED;
	}
	next=SQL_FETCH_NEXT;
	i++;
    }      

    *dblist = list;
    *dbcount = count;
    close_connection();
    
    return DB_OK;
}