WebSVN – SvarDOS – Diff – /pkg/main.c


/*
 * PKG - SvarDOS package installer
 *
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
 *
 * COPYRIGHT (C) 2016-2021 MATEUSZ VISTE, ALL RIGHTS RESERVED.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 */
 
 
#include <stdio.h>    /* printf() */
#include <stdlib.h>   /* malloc() and friends */
#include <string.h>   /* strcasecmp() */
 
#include "kitten/kitten.h"
#include "kprintf.h"
#include "libunzip.h"
#include "pkginst.h"
#include "pkgrem.h"
#include "showinst.h"
#include "unzip.h"
#include "version.h"
 
 
enum ACTIONTYPES {
  ACTION_INSTALL,
  ACTION_UPDATE,
  ACTION_REMOVE,
  ACTION_LISTFILES,
  ACTION_LISTLOCAL,
  ACTION_UNZIP,
  ACTION_HELP
};
 
 
static int showhelp(void) {
  puts("PKG ver " PVER " Copyright (C) " PDATE " Mateusz Viste");
  puts("");
  kitten_puts(1, 0, "PKG is the package installer for SvarDOS.");
  puts("");
  kitten_puts(1, 20, "Usage: pkg install package.zip");
  kitten_puts(1, 21, "       pkg update package.zip");
  kitten_puts(1, 22, "       pkg remove package");
  kitten_puts(1, 23, "       pkg listfiles package");
  kitten_puts(1, 24, "       pkg listlocal [filter]");
  kitten_puts(1, 27, "       pkg unzip file.zip");
  puts("");
  kitten_puts(1, 25, "PKG is published under the MIT license.");
  kitten_puts(1, 26, "It is configured through %DOSDIR%\\CFG\\PKG.CFG");
  return(1);
}
 
 
static enum ACTIONTYPES parsearg(int argc, char * const *argv) {
  /* look for valid actions */
  if ((argc == 3) && (strcasecmp(argv[1], "install") == 0)) {
    return(ACTION_INSTALL);
  } else if ((argc == 3) && (strcasecmp(argv[1], "update") == 0)) {
    return(ACTION_UPDATE);
  } else if ((argc == 3) && (strcasecmp(argv[1], "remove") == 0)) {
    return(ACTION_REMOVE);
  } else if ((argc == 3) && (strcasecmp(argv[1], "listfiles") == 0)) {
    return(ACTION_LISTFILES);
  } else if ((argc >= 2) && (argc <= 3) && (strcasecmp(argv[1], "listlocal") == 0)) {
    return(ACTION_LISTLOCAL);
  } else if ((argc == 3) && (strcasecmp(argv[1], "unzip") == 0)) {
    return(ACTION_UNZIP);
  } else {
    return(ACTION_HELP);
  }
}
 
 
static int pkginst(const char *file, int flags, const char *dosdir, const struct customdirs *dirlist) {
  char pkgname[9];
  int t, lastpathdelim = -1, lastdot = -1, res = 1;
  struct ziplist *zipfileidx;
  FILE *zipfilefd;
  /* copy the filename into pkgname (without path elements and without extension) */
  for (t = 0; file[t] != 0; t++) {
    switch (file[t]) {
      case '/':
      case '\\':
        lastpathdelim = t;
        break;
      case '.':
        lastdot = t;
        break;
    }
  }
  if (lastdot <= lastpathdelim) lastdot = t; /* a dot before last path delimiters is not an extension prefix */
  t = lastdot - (lastpathdelim + 1);
  if (t + 1 > sizeof(pkgname)) {
    kitten_puts(3, 24, "ERROR: package name too long");
    return(1);
  }
  memcpy(pkgname, file + lastpathdelim + 1, t);
  pkgname[t] = 0;
  /* prepare the zip file and install it */
  zipfileidx = pkginstall_preparepackage(pkgname, file, flags, &zipfilefd, dosdir, dirlist);
  if (zipfileidx != NULL) {
    res = pkginstall_installpackage(pkgname, dosdir, dirlist, zipfileidx, zipfilefd);
    zip_freelist(&zipfileidx);
  }
 
  fclose(zipfilefd);
  return(res);
}
 
 
int main(int argc, char **argv) {
  int res = 1;
  enum ACTIONTYPES action;
  const char *dosdir;
  struct customdirs *dirlist;
 
  kittenopen("pkg"); /* NLS init */
 
  action = parsearg(argc, argv);
  if (action == ACTION_HELP) {
    showhelp();
    goto GAMEOVER;
  }
 
  /* read the DOSDIR environment variable */
  dosdir = getenv("DOSDIR");
  if (dosdir == NULL) {
    kitten_puts(2, 2, "%DOSDIR% not set! You should make it point to the FreeDOS main directory.");
    kitten_puts(2, 3, "Example: SET DOSDIR=C:\\FDOS");
    goto GAMEOVER;
  }
 
  /* load configuration */
  if (loadconf(dosdir, &dirlist) != 0) goto GAMEOVER;
 
  switch (action) {
    case ACTION_UPDATE:
    case ACTION_INSTALL:
      res = pkginst(argv[2], (action == ACTION_UPDATE)?PKGINST_UPDATE:0, dosdir, dirlist);
      break;
    case ACTION_REMOVE:
      res = pkgrem(argv[2], dosdir);
      break;
    case ACTION_LISTFILES:
      res = listfilesofpkg(argv[2], dosdir);
      break;
    case ACTION_LISTLOCAL:
      res = showinstalledpkgs((argc == 3)?argv[2]:NULL, dosdir);
      break;
    case ACTION_UNZIP:
      res = unzip(argv[2]);
      break;
    default:
      res = showhelp();
      break;
  }
 
  GAMEOVER:
  kittenclose(); /* NLS de-init */
  if (res != 0) return(1);
  return(0);
}
 

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

Subversion Repositories SvarDOS

(root)/pkg/main.c – Rev 293 → 296