Subversion Repositories SvarDOS

Rev

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

Rev Author Line No. Line
219 mateuszvis 1
/*
723 bttr 2
 * PKG - SvarDOS package manager
219 mateuszvis 3
 *
240 mateuszvis 4
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
5
 *
1681 mateusz.vi 6
 * COPYRIGHT (C) 2016-2024 MATEUSZ VISTE, ALL RIGHTS RESERVED.
240 mateuszvis 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
 
613 mateuszvis 32
#include "svarlang.lib/svarlang.h"
1681 mateusz.vi 33
#include "crc32.h"
757 mateusz.vi 34
#include "helpers.h"
238 mateuszvis 35
#include "kprintf.h"
219 mateuszvis 36
#include "libunzip.h"
37
#include "pkginst.h"
38
#include "pkgrem.h"
242 mateuszvis 39
#include "showinst.h"
296 mateuszvis 40
#include "unzip.h"
219 mateuszvis 41
#include "version.h"
42
 
43
 
44
enum ACTIONTYPES {
45
  ACTION_INSTALL,
265 mateuszvis 46
  ACTION_UPDATE,
219 mateuszvis 47
  ACTION_REMOVE,
242 mateuszvis 48
  ACTION_LISTFILES,
250 mateuszvis 49
  ACTION_LISTLOCAL,
296 mateuszvis 50
  ACTION_UNZIP,
1889 mateusz.vi 51
  ACTION_LISTZIP,
1681 mateusz.vi 52
  ACTION_CRC32,
219 mateuszvis 53
  ACTION_HELP
54
};
55
 
56
 
57
static int showhelp(void) {
272 mateuszvis 58
  puts("PKG ver " PVER " Copyright (C) " PDATE " Mateusz Viste");
59
  puts("");
723 bttr 60
  puts(svarlang_str(1, 0)); /* "PKG is the SvarDOS package manager." */
272 mateuszvis 61
  puts("");
669 mateusz.vi 62
  puts(svarlang_str(1, 20)); /* "Usage: pkg install package.svp */
63
  puts(svarlang_str(1, 21)); /* "       pkg update package.svp" */
613 mateuszvis 64
  puts(svarlang_str(1, 22)); /* "       pkg remove package" */
65
  puts(svarlang_str(1, 23)); /* "       pkg listfiles package" */
66
  puts(svarlang_str(1, 24)); /* "       pkg listlocal [filter]" */
67
  puts(svarlang_str(1, 27)); /* "       pkg unzip file.zip" */
1889 mateusz.vi 68
  puts(svarlang_str(1, 29)); /* "       pkg listzip file.zip" */
1681 mateusz.vi 69
  puts(svarlang_str(1, 28)); /* "       pkg crc32 file" */
272 mateuszvis 70
  puts("");
1682 mateusz.vi 71
  puts(svarlang_str(1, 40)); /* "PKG is published under the MIT license." */
72
  puts(svarlang_str(1, 41)); /* "It is configured through %DOSDIR%\CFG\PKG.CFG" */
219 mateuszvis 73
  return(1);
74
}
75
 
76
 
250 mateuszvis 77
static enum ACTIONTYPES parsearg(int argc, char * const *argv) {
219 mateuszvis 78
  /* look for valid actions */
250 mateuszvis 79
  if ((argc == 3) && (strcasecmp(argv[1], "install") == 0)) {
226 mateuszvis 80
    return(ACTION_INSTALL);
265 mateuszvis 81
  } else if ((argc == 3) && (strcasecmp(argv[1], "update") == 0)) {
82
    return(ACTION_UPDATE);
250 mateuszvis 83
  } else if ((argc == 3) && (strcasecmp(argv[1], "remove") == 0)) {
226 mateuszvis 84
    return(ACTION_REMOVE);
250 mateuszvis 85
  } else if ((argc == 3) && (strcasecmp(argv[1], "listfiles") == 0)) {
242 mateuszvis 86
    return(ACTION_LISTFILES);
250 mateuszvis 87
  } else if ((argc >= 2) && (argc <= 3) && (strcasecmp(argv[1], "listlocal") == 0)) {
88
    return(ACTION_LISTLOCAL);
296 mateuszvis 89
  } else if ((argc == 3) && (strcasecmp(argv[1], "unzip") == 0)) {
90
    return(ACTION_UNZIP);
1889 mateusz.vi 91
  } else if ((argc == 3) && (strcasecmp(argv[1], "listzip") == 0)) {
92
    return(ACTION_LISTZIP);
1681 mateusz.vi 93
  } else if ((argc == 3) && (strcasecmp(argv[1], "crc32") == 0)) {
94
    return(ACTION_CRC32);
226 mateuszvis 95
  } else {
96
    return(ACTION_HELP);
219 mateuszvis 97
  }
98
}
99
 
100
 
1892 mateusz.vi 101
static int pkginst(const char *file, int flags, const char *dosdir, const struct customdirs *dirlist, char bootdrive) {
261 mateuszvis 102
  char pkgname[9];
1880 mateusz.vi 103
  int res = 1;
219 mateuszvis 104
  struct ziplist *zipfileidx;
105
  FILE *zipfilefd;
1880 mateusz.vi 106
 
107
  /* prepare the zip file for installation and fetch package's name */
1892 mateusz.vi 108
  zipfileidx = pkginstall_preparepackage(pkgname, file, flags, &zipfilefd, dosdir, dirlist, bootdrive);
219 mateuszvis 109
  if (zipfileidx != NULL) {
1880 mateusz.vi 110
 
111
    /* package name must be all lower-case for further file matching in the zip file */
112
    strlwr(pkgname);
113
 
627 mateuszvis 114
    /* remove the old version of the package if we are UPDATING it */
115
    res = 0;
116
    if (flags & PKGINST_UPDATE) res = pkgrem(pkgname, dosdir);
1880 mateusz.vi 117
 
1892 mateusz.vi 118
    if (res == 0) res = pkginstall_installpackage(pkgname, dosdir, dirlist, zipfileidx, zipfilefd, bootdrive);
293 mateuszvis 119
    zip_freelist(&zipfileidx);
219 mateuszvis 120
  }
261 mateuszvis 121
 
122
  fclose(zipfilefd);
293 mateuszvis 123
  return(res);
219 mateuszvis 124
}
125
 
126
 
1681 mateusz.vi 127
/* pkg crc32 file */
128
static int crcfile(const char *fname) {
129
  FILE *fd;
130
  unsigned long crc;
131
  unsigned char buff[512];
132
  unsigned int len;
133
 
134
  fd = fopen(fname, "rb");
135
  if (fd == NULL) {
136
    puts(svarlang_str(10, 1)); /* failed to open file */
137
    return(1);
138
  }
139
 
140
  crc = crc32_init();
141
 
142
  for (;;) {
143
    len = fread(buff, 1, sizeof(buff), fd);
144
    if (len == 0) break;
145
    crc32_feed(&crc, buff, len);
146
  }
147
  fclose(fd);
148
 
149
  crc32_finish(&crc);
150
 
151
  printf("%08lX", crc);
152
  puts("");
153
 
154
  return(0);
155
}
156
 
157
 
219 mateuszvis 158
int main(int argc, char **argv) {
260 mateuszvis 159
  int res = 1;
219 mateuszvis 160
  enum ACTIONTYPES action;
239 mateuszvis 161
  const char *dosdir;
219 mateuszvis 162
  struct customdirs *dirlist;
1892 mateusz.vi 163
  char bootdrive;
219 mateuszvis 164
 
1602 mateusz.vi 165
  svarlang_autoload_exepath(argv[0], getenv("LANG"));   /* NLS init */
244 mateuszvis 166
 
219 mateuszvis 167
  action = parsearg(argc, argv);
1111 bttr 168
  switch (action) {
169
    case ACTION_HELP:
170
      res = showhelp();
171
      goto GAMEOVER;
172
    case ACTION_UNZIP:
1889 mateusz.vi 173
      res = unzip(argv[2], 0);
1111 bttr 174
      goto GAMEOVER;
1889 mateusz.vi 175
    case ACTION_LISTZIP:
176
      res = unzip(argv[2], 1);
177
      goto GAMEOVER;
1681 mateusz.vi 178
    case ACTION_CRC32:
179
      res = crcfile(argv[2]);
180
      goto GAMEOVER;
244 mateuszvis 181
  }
219 mateuszvis 182
 
238 mateuszvis 183
  /* read the DOSDIR environment variable */
184
  dosdir = getenv("DOSDIR");
185
  if (dosdir == NULL) {
727 bttr 186
    puts(svarlang_str(2, 2)); /* "%DOSDIR% not set! You should make it point to the SvarDOS main directory." */
187
    puts(svarlang_str(2, 3)); /* "Example: SET DOSDIR=C:\SVARDOS" */
244 mateuszvis 188
    goto GAMEOVER;
238 mateuszvis 189
  }
219 mateuszvis 190
 
191
  /* load configuration */
1892 mateusz.vi 192
  if (loadconf(dosdir, &dirlist, &bootdrive) != 0) goto GAMEOVER;
219 mateuszvis 193
 
194
  switch (action) {
265 mateuszvis 195
    case ACTION_UPDATE:
219 mateuszvis 196
    case ACTION_INSTALL:
1892 mateusz.vi 197
      res = pkginst(argv[2], (action == ACTION_UPDATE)?PKGINST_UPDATE:0, dosdir, dirlist, bootdrive);
219 mateuszvis 198
      break;
199
    case ACTION_REMOVE:
225 mateuszvis 200
      res = pkgrem(argv[2], dosdir);
219 mateuszvis 201
      break;
242 mateuszvis 202
    case ACTION_LISTFILES:
203
      res = listfilesofpkg(argv[2], dosdir);
204
      break;
250 mateuszvis 205
    case ACTION_LISTLOCAL:
206
      res = showinstalledpkgs((argc == 3)?argv[2]:NULL, dosdir);
207
      break;
219 mateuszvis 208
    default:
209
      res = showhelp();
210
      break;
211
  }
212
 
244 mateuszvis 213
  GAMEOVER:
219 mateuszvis 214
  if (res != 0) return(1);
215
  return(0);
216
}