/*

  * 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);

 }