Subversion Repositories SvarDOS

Rev

Rev 1678 | 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.
1678 mateusz.vi 3
 * Copyright (C) Mateusz Viste 2012-2024
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
 
1678 mateusz.vi 73
  /* open the (legacy) listing file at %DOSDIR%\packages\pkgname.lst
74
   * if not exists then fall back to appinfo\pkgname.lsm */
219 mateuszvis 75
  sprintf(fpath, "%s\\packages\\%s.lst", dosdir, pkgname);
253 mateuszvis 76
  flist = fopen(fpath, "rb");
77
  if (flist == NULL) {
1678 mateusz.vi 78
    sprintf(fpath, "%s\\appinfo\\%s.lsm", dosdir, pkgname);
79
    flist = fopen(fpath, "rb");
80
    if (flist == NULL) {
81
      kitten_printf(4, 0, pkgname); /* "Package %s is not installed, so not removed." */
82
      puts("");
83
      return(-1);
84
    }
219 mateuszvis 85
  }
86
 
1678 mateusz.vi 87
  /* remove all files/folders listed in pkgname.lsm but NOT pkgname.lsm */
253 mateuszvis 88
  while (freadtokval(flist, buff, sizeof(buff), NULL, 0) == 0) {
89
    int x;
219 mateuszvis 90
 
1678 mateusz.vi 91
    /* skip empty lines */
92
    if (buff[0] == 0) continue;
93
 
94
    /* change all slash to backslash */
95
    slash2backslash(buff);
96
 
97
    /* skip garbage */
98
    if ((buff[1] != ':') || (buff[2] != '\\')) continue;
99
 
100
    /* trim out CRC information (if present) */
101
    trimfnamecrc(buff);
102
 
219 mateuszvis 103
    /* remember the path part for removal later */
104
    lastdirsep = -1;
253 mateuszvis 105
    for (x = 1; buff[x] != 0; x++) {
106
      if ((buff[x] == '\\') && (buff[x - 1] != ':')) lastdirsep = x;
219 mateuszvis 107
    }
108
    if (lastdirsep > 0) {
253 mateuszvis 109
      buff[lastdirsep] = 0;
110
      dirlist = rememberpath(dirlist, buff);
111
      buff[lastdirsep] = '\\';
219 mateuszvis 112
    }
253 mateuszvis 113
 
219 mateuszvis 114
    /* if it's a directory, skip it */
253 mateuszvis 115
    if (buff[strlen(buff) - 1] == '\\') continue;
116
 
1678 mateusz.vi 117
    /* do not delete pkgname.lst at this point because I am using it (will be
118
     * deleted later) */
253 mateuszvis 119
    if (strcasecmp(buff, fpath) == 0) continue;
120
 
121
    /* remove it */
613 mateuszvis 122
    kitten_printf(4, 4, buff); /* "removing %s" */
253 mateuszvis 123
    puts("");
124
    unlink(buff);
219 mateuszvis 125
  }
126
 
1678 mateusz.vi 127
  /* close the lsm file */
219 mateuszvis 128
  fclose(flist);
129
 
253 mateuszvis 130
  /* iterate over dirlist and remove directories if empty, from longest to shortest */
219 mateuszvis 131
  while (dirlist != NULL) {
132
    struct dirliststruct *dirlistpos, *previousdir;
133
    /* find the longest path, and put it on top */
134
    previousdir = dirlist;
135
    for (dirlistpos = dirlist->next; dirlistpos != NULL; dirlistpos = dirlistpos->next) {
136
      if (strlen(dirlistpos->dirname) > strlen(dirlist->dirname)) {
137
        previousdir->next = dirlistpos->next;
138
        dirlistpos->next = dirlist;
139
        dirlist = dirlistpos;
140
        dirlistpos = previousdir;
141
      } else {
142
        previousdir = dirlistpos;
143
      }
144
    }
253 mateuszvis 145
    /* printf("RMDIR %s\n", dirlist->dirname); */
146
    rmdir(dirlist->dirname);
219 mateuszvis 147
    /* free the allocated memory for this entry */
148
    dirlistpos = dirlist;
149
    dirlist = dirlistpos->next;
150
    free(dirlistpos);
151
  }
152
 
253 mateuszvis 153
  /* remove the lst file */
1678 mateusz.vi 154
  kitten_printf(4, 4, fpath); /* "removing %s" */
155
  puts("");
219 mateuszvis 156
  unlink(fpath);
1678 mateusz.vi 157
 
613 mateuszvis 158
  kitten_printf(4, 5, pkgname); /* "Package %s has been removed." */
219 mateuszvis 159
  puts("");
160
  return(0);
161
}