/*
 * Copyright (C) 2009, 2011  J. Ali Harlow <ali@juiblex.co.uk>
 *
 * 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.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#include <stdlib.h>
#include <stdio.h>
#include <lua.h>
#include "config.h"
#include "plover/plover.h"
#include "whelk/whelk.h"

LUALIB_API int luaopen_posix(lua_State *L);

void update(const char *argv0)
{
    char *path,*s,*prefix;
    int ch;
    struct comps *comps;
    path=plover_get_program_directory(argv0);
    s=plover_strconcat(path,"/repodata/comps.xml",NULL);
    comps=plover_comps_new_from_file(s);
    if (!comps)
    {
	perror(s);
	exit(1);
    }
    free(s);
    prefix=plover_default_prefix_for_vendor(comps->vendor);
    if (!plover_installed_files_match_prefix(prefix))
    {
	printf("The existing installation is not under %s\n"
	  "In order to continue, all the existing packages must be removed.\n"
	  "Do you want to remove all existing packages? ",prefix);
	ch=getchar();
	if (ch!='y' && ch!='Y' && ch!=EOF && ch!='\n')
	    exit(1);
	while(ch!='\n' && ch!=EOF)
	    ch=getchar();
	plover_remove(NULL);
    }
    plover_comps_free(comps);
    plover_update(path,prefix,NULL);
    free(prefix);
    free(path);
}

int main(int argc,char **argv)
{
    razor_set_lua_loader("posix",luaopen_posix);
    razor_set_lua_loader("whelk",luaopen_whelk);
    update(argv[0]);
    exit(0);
}