Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 218 → Rev 219

/pkginst/pkgrem.c
0,0 → 1,184
/*
* This file is part of the FDNPKG project.
* Copyright (C) Mateusz Viste 2012-2016. All rights reserved.
*/
 
#include <ctype.h> /* toupper() */
#include <stdio.h>
#include <string.h> /* strlen() */
#include <stdlib.h> /* free() */
#include <unistd.h> /* rmdir(), unlink() */
 
#ifdef __WATCOMC__
#include <direct.h> /* watcom needs this for the rmdir() prototype */
#endif
 
#include "fileexst.h"
#include "getdelim.h"
#include "helpers.h" /* slash2backslash() */
#include "kprintf.h"
#include "pkgrem.h"
#include "rtrim.h"
#include "version.h"
 
 
struct dirliststruct {
struct dirliststruct *next;
char dirname[2]; /* this must be the last item in the structure */
};
 
 
/* adds a directory to dirlist, if not already present */
static struct dirliststruct *rememberdir(struct dirliststruct *dirlist, char *path) {
struct dirliststruct *res;
/* if already present, do nothing */
for (res = dirlist; res != NULL; res = res->next) {
if (strcasecmp(res->dirname, path) == 0) return(dirlist);
}
/* not in the list yet - add it */
res = malloc(sizeof(struct dirliststruct) + strlen(path));
if (res == NULL) { /* out of memory */
kitten_printf(4, 3, "Out of memory! Could not store directory %s!", path);
puts("");
return(NULL);
}
strcpy(res->dirname, path);
res->next = dirlist;
return(res);
}
 
 
/* explode a path into subdirectories, and remember each one inside dirlist */
static struct dirliststruct *rememberpath(struct dirliststruct *dirlist, char *path) {
int x, gameover = 0;
/* iterate on the path, and add each subdirectory */
for (x = 0;; x++) {
switch (path[x]) {
case 0:
gameover = 1;
case '/':
case '\\':
path[x] = 0;
dirlist = rememberdir(dirlist, path);
path[x] = '\\';
}
if (gameover != 0) break;
}
return(dirlist);
}
 
 
/* removes a package from the system. Returns 0 on success, non-zero otherwise */
int pkgrem(char *pkgname, char *dosdir, char *mapdrv) {
char fpath[512];
char shellcmd[512];
char *lineptr;
FILE *flist;
int getdelimlen;
int lastdirsep;
int x;
size_t getdelimcount = 0;
struct dirliststruct *dirlist = NULL; /* used to remember directories to remove */
char pkglistfile[512];
 
/* Check if the file %DOSDIR%\packages\pkgname.lst exists (if not, the package is not installed) */
sprintf(fpath, "%s\\packages\\%s.lst", dosdir, pkgname);
mapdrives(fpath, mapdrv);
if (fileexists(fpath) == 0) { /* file does not exist */
kitten_printf(4, 0, "Package %s is not installed, so not removed.", pkgname);
puts("");
return(-1);
}
 
/* open the file %DOSDIR%\packages\pkgname.lst */
flist = fopen(fpath, "r");
if (flist == NULL) {
kitten_puts(4, 1, "Error opening lst file!");
return(-2);
}
 
sprintf(pkglistfile, "packages\\%s.lst", pkgname);
 
/* remove all files/folders listed in pkgname.lst but NOT pkgname.lst */
for (;;) {
/* read line from file */
lineptr = NULL;
getdelimlen = getdelim(&lineptr, &getdelimcount, '\n', flist);
if (getdelimlen < 0) {
free(lineptr);
break;
}
rtrim(lineptr); /* right-trim the filename */
slash2backslash(lineptr); /* change all / to \ */
if ((lineptr[0] == 0) || (lineptr[0] == '\r') || (lineptr[0] == '\n')) {
free(lineptr); /* free the memory occupied by the line */
continue; /* skip empty lines */
}
/* remap drive */
mapdrives(lineptr, mapdrv);
/* remember the path part for removal later */
lastdirsep = -1;
for (x = 1; lineptr[x] != 0; x++) {
if ((lineptr[x] == '\\') && (lineptr[x - 1] != ':')) lastdirsep = x;
}
if (lastdirsep > 0) {
lineptr[lastdirsep] = 0;
dirlist = rememberpath(dirlist, lineptr);
lineptr[lastdirsep] = '\\';
}
/* if it's a directory, skip it */
if (lineptr[strlen(lineptr) - 1] == '\\') {
free(lineptr); /* free the memory occupied by the line */
continue;
}
/* it's a file - remove it */
if (strcasecmp(pkglistfile, lineptr) != 0) { /* never delete pkgname.lst at this point - it will be deleted later */
if ((lineptr[0] == '\\') || (lineptr[1] == ':')) { /* this is an absolute path */
sprintf(shellcmd, "%s", lineptr);
} else { /* else it's a relative path starting at %dosdir% */
sprintf(shellcmd, "%s\\%s", dosdir, lineptr);
}
kitten_printf(4, 4, "removing %s", shellcmd);
puts("");
unlink(shellcmd);
}
free(lineptr); /* free the memory occupied by the line */
}
 
/* close the file */
fclose(flist);
 
/* iterate through dirlist and remove directories if empty, from longest to shortest */
while (dirlist != NULL) {
struct dirliststruct *dirlistpos, *previousdir;
/* find the longest path, and put it on top */
previousdir = dirlist;
for (dirlistpos = dirlist->next; dirlistpos != NULL; dirlistpos = dirlistpos->next) {
if (strlen(dirlistpos->dirname) > strlen(dirlist->dirname)) {
previousdir->next = dirlistpos->next;
dirlistpos->next = dirlist;
dirlist = dirlistpos;
dirlistpos = previousdir;
} else {
previousdir = dirlistpos;
}
}
if ((dirlist->dirname[0] == '\\') || (dirlist->dirname[1] == ':')) { /* this is an absolute path */
sprintf(shellcmd, "%s", dirlist->dirname);
} else { /* else it's a relative path starting at %dosdir% */
sprintf(shellcmd, "%s\\%s", dosdir, dirlist->dirname);
}
/* printf("RMDIR %s\n", shellcmd); */
rmdir(shellcmd);
/* free the allocated memory for this entry */
dirlistpos = dirlist;
dirlist = dirlistpos->next;
free(dirlistpos);
}
 
/* remove %DOSDIR%\packages\pkgname.lst */
unlink(fpath);
kitten_printf(4, 5, "Package %s has been removed.", pkgname);
puts("");
return(0);
}