//////////////////////////////////////////////////////////////// // // UCE UNINSTALL LIBRARY : // // This file manage the uninstallation system. // // //////////////////////////////////////////////////////////////// // // Made by [Fr]enchBadPunk - 2011 - Public Domain // //////////////////////////////////////////////////////////////// _uninstall_add = [ // $arg1 : The name of the uninstall group // $arg2 : The list of vars names to uninstall if (&& (> $numargs 0) (!=s $arg1 "")) [ if (!=s $arg1 "uninstall_lib") [ result (dblstset "uninstall" $arg1 $arg2) ] ] ] _uninstall = [ // $arg1 : The name of vars package to uninstall if (&& (> $numargs 0) (!=s $arg1 "")) [ if (!=s $arg1 "uninstall_lib") [ if (=s $arg1 "dblists_lib" [ // Case of dblists looplist i $~__dblists_list [ (_dblists_varname $i 0) = (_dblists_varname $i 1) = ] looplist i $_uninstall_dblists_lib [ $i = ] result 1 ] [ // All others cases looplist i (dblstget "uninstall" $arg1) [ $i = ] dblstdel "uninstall" $arg1 result 1 ] ] [ // Uninstall this "uninstall_lib" library ! ( _uninstall_add = _uninstall = ) result 1 ] ] ] ////////////////////////////////////////////////////////////////