/* Copyright (C) 2009 Luke Shumaker
   
   This file is part of rvs.
   
   rvs 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, or (at your
   option) any later version.
   
   rvs 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 rvs; see the file COPYING.
   If not, write to the Free Software Foundation,
   59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#ifndef FILE_plugin_c_SEEN
#define FILE_plugin_c_SEEN

#include <stdlib.h> /* EXIT_FAILURE */
#include <unistd.h> /* file acces */
#include <string.h>

#include <dirent.h>
#include <sys/stat.h>

#include "rvs.h"
#include "plugin.h"

#include "plugin-parse.c"
/*#include "plugin-depend.c"*/

/* assume we're in rvs's libexecdir, where plugins are
   now, load plugin plug_name,
    whose configuration file is plugin_conf
*/
struct tree_list *
_plugin_load (const char *plug_name, const char *plugin_conf)
{
	struct tree_list *plugin=xmalloc( sizeof(*plugin) );
	plugin->node=stralloc(plug_name);
	plugin->next=NULL;
	plugin->child=NULL;
	
	xchdir(plug_name);
	FILE *file = xfopen(plugin_conf,"r");
	
	struct tree_list **last=&plugin->child;
	
	struct plugin_command *command;
	while ( (command=_plugin_parse(file))!=NULL ) {
		command->plugin=plugin;
		
		struct tree_list *com=xmalloc( sizeof(*com) );
		com->node=command;
		*last=com;/* this sets the last's `next' */
		last=&com->next;
	}
	
	fclose( file );
	xchdir("..");
	return plugin;
}

/* load all the plugins in libexecdir, using the config file plugin_conf */
struct tree_list *
load_plugins (const char *libexecdir, const char *plugin_conf)
{
	struct tree_list *first=NULL;
	struct tree_list **last=&first;
	struct tree_list *plugin;
	
	xchdir(libexecdir);
	
	/* Yeah, I know this next bit is pretty ugly. */
	DIR *cwd;
	struct dirent *dirent;
	int serr;
	struct stat sbuf;
	cwd = xopendir ("./");
	while ( (dirent = readdir (cwd)) != NULL ) {
		if ((strcmp(dirent->d_name,"." )!=0)&&
		    (strcmp(dirent->d_name,"..")!=0)) {
			serr = stat(dirent->d_name, &sbuf);
			if (!serr && S_ISDIR(sbuf.st_mode)) {
				plugin=_plugin_load(dirent->d_name,plugin_conf);
				*last=plugin;/* this sets the last's `next' */
				last=&plugin->next;
			}
		}
	}
	closedir (cwd);
	
	xchdir("..");
	return first;
}

#endif