Subversion Repositories SvarDOS

Rev

Rev 240 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 240 Rev 253
Line 8... Line 8...
8 
#include <string.h>    /* strlen() */
 8 
#include <string.h>    /* strlen() */
9 
#include <stdlib.h>    /* free() */
 9 
#include <stdlib.h>    /* free() */
10 
#include <unistd.h>    /* rmdir(), unlink() */
 10 
#include <unistd.h>    /* rmdir(), unlink() */
11 
#include <direct.h>  /* watcom needs this for the rmdir() prototype */
 11 
#include <direct.h>  /* watcom needs this for the rmdir() prototype */
12 
 
 12 
 
13 
#include "fileexst.h"
 - 
 
14 
#include "getdelim.h"
 - 
 
15 
#include "helpers.h"   /* slash2backslash() */
 13 
#include "helpers.h"   /* slash2backslash() */
16 
#include "kprintf.h"
 14 
#include "kprintf.h"
- 
 
 15 
 
17 
#include "pkgrem.h"
 16 
#include "pkgrem.h"
18 
#include "rtrim.h"
 - 
 
19 
#include "version.h"
 - 
 
20 
 
 17 
 
21 
 
 18 
 
22 
struct dirliststruct {
 19 
struct dirliststruct {
23 
  struct dirliststruct *next;
 20 
  struct dirliststruct *next;
24 
  char dirname[2]; /* this must be the last item in the structure */
 21 
  char dirname[2]; /* this must be the last item in the structure */
Line 66... Line 63...
66 
 
 63 
 
67 
 
 64 
 
68 
/* removes a package from the system. Returns 0 on success, non-zero otherwise */
 65 
/* removes a package from the system. Returns 0 on success, non-zero otherwise */
69 
int pkgrem(const char *pkgname, const char *dosdir) {
 66 
int pkgrem(const char *pkgname, const char *dosdir) {
70 
  char fpath[256];
 67 
  char fpath[256];
71 
  char shellcmd[256];
 68 
  char buff[256];
72 
  char *lineptr;
 - 
 
73 
  FILE *flist;
 69 
  FILE *flist;
74 
  int getdelimlen;
 - 
 
75 
  int lastdirsep;
 70 
  int lastdirsep;
76 
  int x;
 - 
 
77 
  size_t getdelimcount = 0;
 - 
 
78 
  struct dirliststruct *dirlist = NULL; /* used to remember directories to remove */
 71 
  struct dirliststruct *dirlist = NULL; /* used to remember directories to remove */
79 
  char pkglistfile[256];
 - 
 
80 
 
 72 
 
81 
  /* Check if the file %DOSDIR%\packages\pkgname.lst exists (if not, the package is not installed) */
 73 
  /* open the file %DOSDIR%\packages\pkgname.lst */
82 
  sprintf(fpath, "%s\\packages\\%s.lst", dosdir, pkgname);
 74 
  sprintf(fpath, "%s\\packages\\%s.lst", dosdir, pkgname);
83 
  if (fileexists(fpath) == 0) { /* file does not exist */
 75 
  flist = fopen(fpath, "rb");
- 
 
 76 
  if (flist == NULL) {
84 
    kitten_printf(4, 0, "Package %s is not installed, so not removed.", pkgname);
 77 
    kitten_printf(4, 0, "Package %s is not installed, so not removed.", pkgname);
85 
    puts("");
 78 
    puts("");
86 
    return(-1);
 79 
    return(-1);
87 
  }
 80 
  }
88 
 
 81 
 
89 
  /* open the file %DOSDIR%\packages\pkgname.lst */
 - 
 
90 
  flist = fopen(fpath, "r");
 - 
 
91 
  if (flist == NULL) {
 - 
 
92 
    kitten_puts(4, 1, "Error opening lst file!");
 - 
 
93 
    return(-2);
 - 
 
94 
  }
 - 
 
95 
 
 - 
 
96 
  sprintf(pkglistfile, "packages\\%s.lst", pkgname);
 - 
 
97 
 
 - 
 
98 
  /* remove all files/folders listed in pkgname.lst but NOT pkgname.lst */
 82 
  /* remove all files/folders listed in pkgname.lst but NOT pkgname.lst */
99 
  for (;;) {
 - 
 
100 
    /* read line from file */
 - 
 
101 
    lineptr = NULL;
 - 
 
102 
    getdelimlen = getdelim(&lineptr, &getdelimcount, '\n', flist);
 83 
  while (freadtokval(flist, buff, sizeof(buff), NULL, 0) == 0) {
103 
    if (getdelimlen < 0) {
 - 
 
104 
      free(lineptr);
 - 
 
105 
      break;
 84 
    int x;
106 
    }
 - 
 
107 
    rtrim(lineptr);  /* right-trim the filename */
 - 
 
108 
    slash2backslash(lineptr); /* change all / to \ */
 85 
    slash2backslash(buff); /* change all slash to backslash */
109 
    if ((lineptr[0] == 0) || (lineptr[0] == '\r') || (lineptr[0] == '\n')) {
 - 
 
110 
      free(lineptr); /* free the memory occupied by the line */
 - 
 
111 
      continue; /* skip empty lines */
 86 
    if (buff[0] == 0) continue; /* skip empty lines */
112 
    }
 87 
 
113 
    /* remember the path part for removal later */
 88 
    /* remember the path part for removal later */
114 
    lastdirsep = -1;
 89 
    lastdirsep = -1;
115 
    for (x = 1; lineptr[x] != 0; x++) {
 90 
    for (x = 1; buff[x] != 0; x++) {
116 
      if ((lineptr[x] == '\\') && (lineptr[x - 1] != ':')) lastdirsep = x;
 91 
      if ((buff[x] == '\\') && (buff[x - 1] != ':')) lastdirsep = x;
117 
    }
 92 
    }
118 
    if (lastdirsep > 0) {
 93 
    if (lastdirsep > 0) {
119 
      lineptr[lastdirsep] = 0;
 94 
      buff[lastdirsep] = 0;
120 
      dirlist = rememberpath(dirlist, lineptr);
 95 
      dirlist = rememberpath(dirlist, buff);
121 
      lineptr[lastdirsep] = '\\';
 96 
      buff[lastdirsep] = '\\';
122 
    }
 97 
    }
- 
 
 98 
 
123 
    /* if it's a directory, skip it */
 99 
    /* if it's a directory, skip it */
124 
    if (lineptr[strlen(lineptr) - 1] == '\\') {
 100 
    if (buff[strlen(buff) - 1] == '\\') continue;
125 
      free(lineptr); /* free the memory occupied by the line */
 - 
 
126 
      continue;
 - 
 
127 
    }
 101 
 
128 
    /* it's a file - remove it */
 - 
 
129 
    if (strcasecmp(pkglistfile, lineptr) != 0) { /* never delete pkgname.lst at this point - it will be deleted later */
 102 
    /* do not delete pkgname.lst at this point - I am using it (will be deleted later) */
130 
      if ((lineptr[0] == '\\') || (lineptr[1] == ':')) { /* this is an absolute path */
 - 
 
131 
        sprintf(shellcmd, "%s", lineptr);
 - 
 
132 
      } else { /* else it's a relative path starting at %dosdir% */
 - 
 
133 
        sprintf(shellcmd, "%s\\%s", dosdir, lineptr);
 103 
    if (strcasecmp(buff, fpath) == 0) continue;
- 
 
 104 
 
134 
      }
 105 
    /* remove it */
135 
      kitten_printf(4, 4, "removing %s", shellcmd);
 106 
    kitten_printf(4, 4, "removing %s", buff);
136 
      puts("");
 107 
    puts("");
137 
      unlink(shellcmd);
 108 
    unlink(buff);
138 
    }
 - 
 
139 
    free(lineptr); /* free the memory occupied by the line */
 - 
 
140 
  }
 109 
  }
141 
 
 110 
 
142 
  /* close the file */
 111 
  /* close the lst file */
143 
  fclose(flist);
 112 
  fclose(flist);
144 
 
 113 
 
145 
  /* iterate through dirlist and remove directories if empty, from longest to shortest */
 114 
  /* iterate over dirlist and remove directories if empty, from longest to shortest */
146 
  while (dirlist != NULL) {
 115 
  while (dirlist != NULL) {
147 
    struct dirliststruct *dirlistpos, *previousdir;
 116 
    struct dirliststruct *dirlistpos, *previousdir;
148 
    /* find the longest path, and put it on top */
 117 
    /* find the longest path, and put it on top */
149 
    previousdir = dirlist;
 118 
    previousdir = dirlist;
150 
    for (dirlistpos = dirlist->next; dirlistpos != NULL; dirlistpos = dirlistpos->next) {
 119 
    for (dirlistpos = dirlist->next; dirlistpos != NULL; dirlistpos = dirlistpos->next) {
Line 155... Line 124...
155 
        dirlistpos = previousdir;
 124 
        dirlistpos = previousdir;
156 
      } else {
 125 
      } else {
157 
        previousdir = dirlistpos;
 126 
        previousdir = dirlistpos;
158 
      }
 127 
      }
159 
    }
 128 
    }
160 
    if ((dirlist->dirname[0] == '\\') || (dirlist->dirname[1] == ':')) { /* this is an absolute path */
 - 
 
161 
      sprintf(shellcmd, "%s", dirlist->dirname);
 - 
 
162 
    } else { /* else it's a relative path starting at %dosdir% */
 - 
 
163 
      sprintf(shellcmd, "%s\\%s", dosdir, dirlist->dirname);
 - 
 
164 
    }
 - 
 
165 
    /* printf("RMDIR %s\n", shellcmd); */
 129 
    /* printf("RMDIR %s\n", dirlist->dirname); */
166 
    rmdir(shellcmd);
 130 
    rmdir(dirlist->dirname);
167 
    /* free the allocated memory for this entry */
 131 
    /* free the allocated memory for this entry */
168 
    dirlistpos = dirlist;
 132 
    dirlistpos = dirlist;
169 
    dirlist = dirlistpos->next;
 133 
    dirlist = dirlistpos->next;
170 
    free(dirlistpos);
 134 
    free(dirlistpos);
171 
  }
 135 
  }
172 
 
 136 
 
173 
  /* remove %DOSDIR%\packages\pkgname.lst */
 137 
  /* remove the lst file */
174 
  unlink(fpath);
 138 
  unlink(fpath);
175 
  kitten_printf(4, 5, "Package %s has been removed.", pkgname);
 139 
  kitten_printf(4, 5, "Package %s has been removed.", pkgname);
176 
  puts("");
 140 
  puts("");
177 
  return(0);
 141 
  return(0);
178 
}
 142 
}