Subversion Repositories SvarDOS

Rev

Rev 264 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
219 mateuszvis 1
/*
238 mateuszvis 2
 * PKGINST - SvarDOS package installer
219 mateuszvis 3
 *
240 mateuszvis 4
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
5
 *
6
 * COPYRIGHT (C) 2016-2021 MATEUSZ VISTE, ALL RIGHTS RESERVED.
7
 *
219 mateuszvis 8
 * Permission is hereby granted, free of charge, to any person obtaining a
9
 * copy of this software and associated documentation files (the "Software"),
10
 * to deal in the Software without restriction, including without limitation
11
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
12
 * and/or sell copies of the Software, and to permit persons to whom the
13
 * Software is furnished to do so, subject to the following conditions:
14
 *
15
 * The above copyright notice and this permission notice shall be included in
16
 * all copies or substantial portions of the Software.
17
 *
18
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
19
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
20
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
21
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
22
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
240 mateuszvis 23
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
 * DEALINGS IN THE SOFTWARE.
219 mateuszvis 25
 */
26
 
27
 
28
#include <stdio.h>    /* printf() */
29
#include <stdlib.h>   /* malloc() and friends */
30
#include <string.h>   /* strcasecmp() */
31
 
244 mateuszvis 32
#include "kitten/kitten.h"
238 mateuszvis 33
#include "kprintf.h"
219 mateuszvis 34
#include "libunzip.h"
35
#include "pkginst.h"
36
#include "pkgrem.h"
242 mateuszvis 37
#include "showinst.h"
219 mateuszvis 38
#include "version.h"
39
 
40
 
41
enum ACTIONTYPES {
42
  ACTION_INSTALL,
265 mateuszvis 43
  ACTION_UPDATE,
219 mateuszvis 44
  ACTION_REMOVE,
242 mateuszvis 45
  ACTION_LISTFILES,
250 mateuszvis 46
  ACTION_LISTLOCAL,
219 mateuszvis 47
  ACTION_HELP
48
};
49
 
50
 
51
static int showhelp(void) {
237 mateuszvis 52
  printf("PKGINST ver " PVER " Copyright (C) " PDATE " Mateusz Viste\n"
219 mateuszvis 53
         "\n"
237 mateuszvis 54
         "PKGINST is the package installer for SvarDOS.\n"
219 mateuszvis 55
         "\n"
237 mateuszvis 56
         "Usage: PKGINST install package.zip\n"
265 mateuszvis 57
         "       PKGINST update package.zip\n"
237 mateuszvis 58
         "       PKGINST remove package\n"
242 mateuszvis 59
         "       PKGINST listfiles package\n"
250 mateuszvis 60
         "       PKGINST listlocal [filter]\n"
219 mateuszvis 61
         "\n"
241 mateuszvis 62
         "PKGINST is published under the MIT license. It uses a configuration file\n"
63
         "located at %%DOSDIR%%\\CFG\\PKGINST.CFG\n"
219 mateuszvis 64
         );
65
  return(1);
66
}
67
 
68
 
250 mateuszvis 69
static enum ACTIONTYPES parsearg(int argc, char * const *argv) {
219 mateuszvis 70
  /* look for valid actions */
250 mateuszvis 71
  if ((argc == 3) && (strcasecmp(argv[1], "install") == 0)) {
226 mateuszvis 72
    return(ACTION_INSTALL);
265 mateuszvis 73
  } else if ((argc == 3) && (strcasecmp(argv[1], "update") == 0)) {
74
    return(ACTION_UPDATE);
250 mateuszvis 75
  } else if ((argc == 3) && (strcasecmp(argv[1], "remove") == 0)) {
226 mateuszvis 76
    return(ACTION_REMOVE);
250 mateuszvis 77
  } else if ((argc == 3) && (strcasecmp(argv[1], "listfiles") == 0)) {
242 mateuszvis 78
    return(ACTION_LISTFILES);
250 mateuszvis 79
  } else if ((argc >= 2) && (argc <= 3) && (strcasecmp(argv[1], "listlocal") == 0)) {
80
    return(ACTION_LISTLOCAL);
226 mateuszvis 81
  } else {
82
    return(ACTION_HELP);
219 mateuszvis 83
  }
84
}
85
 
86
 
237 mateuszvis 87
static int pkginst(const char *file, int flags, const char *dosdir, const struct customdirs *dirlist) {
261 mateuszvis 88
  char pkgname[9];
89
  int t, lastpathdelim = -1, lastdot = -1;
219 mateuszvis 90
  struct ziplist *zipfileidx;
91
  FILE *zipfilefd;
261 mateuszvis 92
  /* copy the filename into pkgname (without path elements and without extension) */
219 mateuszvis 93
  for (t = 0; file[t] != 0; t++) {
261 mateuszvis 94
    switch (file[t]) {
95
      case '/':
96
      case '\\':
97
        lastpathdelim = t;
98
        break;
99
      case '.':
100
        lastdot = t;
101
        break;
219 mateuszvis 102
    }
103
  }
264 mateuszvis 104
  if (lastdot <= lastpathdelim) lastdot = t; /* a dot before last path delimiters is not an extension prefix */
261 mateuszvis 105
  t = lastdot - (lastpathdelim + 1);
106
  if (t + 1 > sizeof(pkgname)) {
107
    kitten_puts(3, 24, "ERROR: package name too long");
108
    return(1);
109
  }
110
  memcpy(pkgname, file + lastpathdelim + 1, t);
111
  pkgname[t] = 0;
219 mateuszvis 112
  /* prepare the zip file and install it */
236 mateuszvis 113
  zipfileidx = pkginstall_preparepackage(pkgname, file, flags, &zipfilefd, dosdir, dirlist);
219 mateuszvis 114
  if (zipfileidx != NULL) {
261 mateuszvis 115
    t = pkginstall_installpackage(pkgname, dosdir, dirlist, zipfileidx, zipfilefd);
219 mateuszvis 116
    fclose(zipfilefd);
261 mateuszvis 117
    return(t);
219 mateuszvis 118
  }
261 mateuszvis 119
 
120
  fclose(zipfilefd);
121
  return(1);
219 mateuszvis 122
}
123
 
124
 
125
int main(int argc, char **argv) {
260 mateuszvis 126
  int res = 1;
219 mateuszvis 127
  enum ACTIONTYPES action;
239 mateuszvis 128
  const char *dosdir;
219 mateuszvis 129
  struct customdirs *dirlist;
130
 
244 mateuszvis 131
  kittenopen("pkginst"); /* NLS init */
132
 
219 mateuszvis 133
  action = parsearg(argc, argv);
244 mateuszvis 134
  if (action == ACTION_HELP) {
135
    showhelp();
136
    goto GAMEOVER;
137
  }
219 mateuszvis 138
 
238 mateuszvis 139
  /* read the DOSDIR environment variable */
140
  dosdir = getenv("DOSDIR");
141
  if (dosdir == NULL) {
142
    kitten_puts(2, 2, "%DOSDIR% not set! You should make it point to the FreeDOS main directory.");
143
    kitten_puts(2, 3, "Example: SET DOSDIR=C:\\FDOS");
244 mateuszvis 144
    goto GAMEOVER;
238 mateuszvis 145
  }
219 mateuszvis 146
 
147
  /* load configuration */
260 mateuszvis 148
  if (loadconf(dosdir, &dirlist) != 0) goto GAMEOVER;
219 mateuszvis 149
 
150
  switch (action) {
265 mateuszvis 151
    case ACTION_UPDATE:
219 mateuszvis 152
    case ACTION_INSTALL:
265 mateuszvis 153
      res = pkginst(argv[2], (action == ACTION_UPDATE)?PKGINST_UPDATE:0, dosdir, dirlist);
219 mateuszvis 154
      break;
155
    case ACTION_REMOVE:
225 mateuszvis 156
      res = pkgrem(argv[2], dosdir);
219 mateuszvis 157
      break;
242 mateuszvis 158
    case ACTION_LISTFILES:
159
      res = listfilesofpkg(argv[2], dosdir);
160
      break;
250 mateuszvis 161
    case ACTION_LISTLOCAL:
162
      res = showinstalledpkgs((argc == 3)?argv[2]:NULL, dosdir);
163
      break;
219 mateuszvis 164
    default:
165
      res = showhelp();
166
      break;
167
  }
168
 
244 mateuszvis 169
  GAMEOVER:
170
  kittenclose(); /* NLS de-init */
219 mateuszvis 171
  if (res != 0) return(1);
172
  return(0);
173
}