Subversion Repositories SvarDOS

Rev

Rev 614 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
219 mateuszvis 1
/*
268 mateuszvis 2
 * This file is part of the pkg (SvarDOS) project.
613 mateuszvis 3
 * Copyright (C) Mateusz Viste 2012-2022
219 mateuszvis 4
 */
5
 
6
#include <ctype.h>    /* toupper() */
7
#include <stdio.h>
8
#include <string.h>    /* strlen() */
9
#include <stdlib.h>    /* free() */
10
#include <unistd.h>    /* rmdir(), unlink() */
11
#include <direct.h>  /* watcom needs this for the rmdir() prototype */
12
 
13
#include "helpers.h"   /* slash2backslash() */
14
#include "kprintf.h"
253 mateuszvis 15
 
219 mateuszvis 16
#include "pkgrem.h"
17
 
18
 
19
struct dirliststruct {
20
  struct dirliststruct *next;
21
  char dirname[2]; /* this must be the last item in the structure */
22
};
23
 
24
 
25
/* adds a directory to dirlist, if not already present */
235 mateuszvis 26
static struct dirliststruct *rememberdir(struct dirliststruct *dirlist, const char *path) {
219 mateuszvis 27
  struct dirliststruct *res;
28
  /* if already present, do nothing */
29
  for (res = dirlist; res != NULL; res = res->next) {
30
    if (strcasecmp(res->dirname, path) == 0) return(dirlist);
31
  }
32
  /* not in the list yet - add it */
33
  res = malloc(sizeof(struct dirliststruct) + strlen(path));
34
  if (res == NULL) {  /* out of memory */
613 mateuszvis 35
    kitten_printf(4, 3, path); /* "Out of memory! Could not store directory %s!" */
219 mateuszvis 36
    puts("");
37
    return(NULL);
38
  }
39
  strcpy(res->dirname, path);
40
  res->next = dirlist;
41
  return(res);
42
}
43
 
44
 
45
/* explode a path into subdirectories, and remember each one inside dirlist */
46
static struct dirliststruct *rememberpath(struct dirliststruct *dirlist, char *path) {
47
  int x, gameover = 0;
48
  /* iterate on the path, and add each subdirectory */
49
  for (x = 0;; x++) {
50
    switch (path[x]) {
51
      case 0:
52
        gameover = 1;
53
      case '/':
54
      case '\\':
55
        path[x] = 0;
56
        dirlist = rememberdir(dirlist, path);
57
        path[x] = '\\';
58
    }
59
    if (gameover != 0) break;
60
  }
61
  return(dirlist);
62
}
63
 
64
 
65
/* removes a package from the system. Returns 0 on success, non-zero otherwise */
235 mateuszvis 66
int pkgrem(const char *pkgname, const char *dosdir) {
67
  char fpath[256];
253 mateuszvis 68
  char buff[256];
219 mateuszvis 69
  FILE *flist;
70
  int lastdirsep;
71
  struct dirliststruct *dirlist = NULL; /* used to remember directories to remove */
72
 
253 mateuszvis 73
  /* open the file %DOSDIR%\packages\pkgname.lst */
219 mateuszvis 74
  sprintf(fpath, "%s\\packages\\%s.lst", dosdir, pkgname);
253 mateuszvis 75
  flist = fopen(fpath, "rb");
76
  if (flist == NULL) {
613 mateuszvis 77
    kitten_printf(4, 0, pkgname); /* "Package %s is not installed, so not removed." */
219 mateuszvis 78
    puts("");
79
    return(-1);
80
  }
81
 
253 mateuszvis 82
  /* remove all files/folders listed in pkgname.lst but NOT pkgname.lst */
83
  while (freadtokval(flist, buff, sizeof(buff), NULL, 0) == 0) {
84
    int x;
85
    slash2backslash(buff); /* change all slash to backslash */
86
    if (buff[0] == 0) continue; /* skip empty lines */
219 mateuszvis 87
 
88
    /* remember the path part for removal later */
89
    lastdirsep = -1;
253 mateuszvis 90
    for (x = 1; buff[x] != 0; x++) {
91
      if ((buff[x] == '\\') && (buff[x - 1] != ':')) lastdirsep = x;
219 mateuszvis 92
    }
93
    if (lastdirsep > 0) {
253 mateuszvis 94
      buff[lastdirsep] = 0;
95
      dirlist = rememberpath(dirlist, buff);
96
      buff[lastdirsep] = '\\';
219 mateuszvis 97
    }
253 mateuszvis 98
 
219 mateuszvis 99
    /* if it's a directory, skip it */
253 mateuszvis 100
    if (buff[strlen(buff) - 1] == '\\') continue;
101
 
102
    /* do not delete pkgname.lst at this point - I am using it (will be deleted later) */
103
    if (strcasecmp(buff, fpath) == 0) continue;
104
 
105
    /* remove it */
613 mateuszvis 106
    kitten_printf(4, 4, buff); /* "removing %s" */
253 mateuszvis 107
    puts("");
108
    unlink(buff);
219 mateuszvis 109
  }
110
 
253 mateuszvis 111
  /* close the lst file */
219 mateuszvis 112
  fclose(flist);
113
 
253 mateuszvis 114
  /* iterate over dirlist and remove directories if empty, from longest to shortest */
219 mateuszvis 115
  while (dirlist != NULL) {
116
    struct dirliststruct *dirlistpos, *previousdir;
117
    /* find the longest path, and put it on top */
118
    previousdir = dirlist;
119
    for (dirlistpos = dirlist->next; dirlistpos != NULL; dirlistpos = dirlistpos->next) {
120
      if (strlen(dirlistpos->dirname) > strlen(dirlist->dirname)) {
121
        previousdir->next = dirlistpos->next;
122
        dirlistpos->next = dirlist;
123
        dirlist = dirlistpos;
124
        dirlistpos = previousdir;
125
      } else {
126
        previousdir = dirlistpos;
127
      }
128
    }
253 mateuszvis 129
    /* printf("RMDIR %s\n", dirlist->dirname); */
130
    rmdir(dirlist->dirname);
219 mateuszvis 131
    /* free the allocated memory for this entry */
132
    dirlistpos = dirlist;
133
    dirlist = dirlistpos->next;
134
    free(dirlistpos);
135
  }
136
 
253 mateuszvis 137
  /* remove the lst file */
219 mateuszvis 138
  unlink(fpath);
613 mateuszvis 139
  kitten_printf(4, 5, pkgname); /* "Package %s has been removed." */
219 mateuszvis 140
  puts("");
141
  return(0);
142
}