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


/*
 * PKGINST - 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 "version.h"
 
 
enum ACTIONTYPES {
  ACTION_INSTALL,
  ACTION_REMOVE,
  ACTION_LISTFILES,
  ACTION_LISTLOCAL,
  ACTION_HELP
};
 
 
static int showhelp(void) {
  printf("PKGINST ver " PVER " Copyright (C) " PDATE " Mateusz Viste\n"
         "\n"
         "PKGINST is the package installer for SvarDOS.\n"
         "\n"
         "Usage: PKGINST install package.zip\n"
         "       PKGINST remove package\n"
         "       PKGINST listfiles package\n"
         "       PKGINST listlocal [filter]\n"
         "\n"
         "PKGINST is published under the MIT license. It uses a configuration file\n"
         "located at %%DOSDIR%%\\CFG\\PKGINST.CFG\n"
         );
  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], "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 {
    return(ACTION_HELP);
  }
}
 
 
static int pkginst(const char *file, int flags, const char *dosdir, const struct customdirs *dirlist) {
  char pkgname[32];
  int t, lastpathdelim = -1, u = 0;
  struct ziplist *zipfileidx;
  FILE *zipfilefd;
  for (t = 0; file[t] != 0; t++) {
    if ((file[t] == '/') || (file[t] == '\\')) lastpathdelim = t;
  }
  /* copy the filename into pkgname (without path elements) */
  for (t = lastpathdelim + 1; file[t] != 0; t++) pkgname[u++] = file[t];
  pkgname[u] = 0; /* terminate the string */
  /* truncate the file's extension (.zip) */
  for (t = u; t > 0; t--) {
    if (pkgname[t] == '.') {
      pkgname[t] = 0;
      break;
    }
  }
  /* prepare the zip file and install it */
  zipfileidx = pkginstall_preparepackage(pkgname, file, flags, &zipfilefd, dosdir, dirlist);
  if (zipfileidx != NULL) {
    int res = 0;
    if (pkginstall_installpackage(pkgname, dosdir, dirlist, zipfileidx, zipfilefd) != 0) res = 1;
    fclose(zipfilefd);
    return(res);
  } else {
    fclose(zipfilefd);
    return(1);
  }
}
 
 
int main(int argc, char **argv) {
  int res = 1, flags;
  enum ACTIONTYPES action;
  const char *dosdir;
  struct customdirs *dirlist;
 
  kittenopen("pkginst"); /* 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 */
  flags = 0;
  dirlist = NULL;
  if (loadconf(dosdir, &dirlist, &flags) != 0) goto GAMEOVER;
 
  switch (action) {
    case ACTION_INSTALL:
      res = pkginst(argv[2], flags, 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;
    default:
      res = showhelp();
      break;
  }
 
  GAMEOVER:
  kittenclose(); /* NLS de-init */
  if (res != 0) return(1);
  return(0);
}
 

Rev 244	Rev 250
1	`/*`	1	`/*`
2	`* PKGINST - SvarDOS package installer`	2	`* PKGINST - 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 "version.h"`	38	`#include "version.h"`
39		39
40		40
41	`enum ACTIONTYPES {`	41	`enum ACTIONTYPES {`
42	`ACTION_INSTALL,`	42	`ACTION_INSTALL,`
43	`ACTION_REMOVE,`	43	`ACTION_REMOVE,`
44	`ACTION_LISTFILES,`	44	`ACTION_LISTFILES,`
-		45	`ACTION_LISTLOCAL,`
45	`ACTION_HELP`	46	`ACTION_HELP`
46	`};`	47	`};`
47		48
48		49
49	`static int showhelp(void) {`	50	`static int showhelp(void) {`
50	`printf("PKGINST ver " PVER " Copyright (C) " PDATE " Mateusz Viste\n"`	51	`printf("PKGINST ver " PVER " Copyright (C) " PDATE " Mateusz Viste\n"`
51	`"\n"`	52	`"\n"`
52	`"PKGINST is the package installer for SvarDOS.\n"`	53	`"PKGINST is the package installer for SvarDOS.\n"`
53	`"\n"`	54	`"\n"`
54	`"Usage: PKGINST install package.zip\n"`	55	`"Usage: PKGINST install package.zip\n"`
55	`" PKGINST remove package\n"`	56	`" PKGINST remove package\n"`
56	`" PKGINST listfiles package\n"`	57	`" PKGINST listfiles package\n"`
-		58	`" PKGINST listlocal [filter]\n"`
57	`"\n"`	59	`"\n"`
58	`"PKGINST is published under the MIT license. It uses a configuration file\n"`	60	`"PKGINST is published under the MIT license. It uses a configuration file\n"`
59	`"located at %%DOSDIR%%\\CFG\\PKGINST.CFG\n"`	61	`"located at %%DOSDIR%%\\CFG\\PKGINST.CFG\n"`
60	`);`	62	`);`
61	`return(1);`	63	`return(1);`
62	`}`	64	`}`
63		65
64		66
65	`static enum ACTIONTYPES parsearg(int argc, char **argv) {`	67	`static enum ACTIONTYPES parsearg(int argc, char * const *argv) {`
66	`/* I expect exactly 2 arguments (ie argc == 3) */`	-
67	`if (argc != 3) return(ACTION_HELP);`	-
68		-
69	`/* look for valid actions */`	68	`/* look for valid actions */`
70	`if (strcasecmp(argv[1], "install") == 0) {`	69	`if ((argc == 3) && (strcasecmp(argv[1], "install") == 0)) {`
71	`return(ACTION_INSTALL);`	70	`return(ACTION_INSTALL);`
72	`} else if (strcasecmp(argv[1], "remove") == 0) {`	71	`} else if ((argc == 3) && (strcasecmp(argv[1], "remove") == 0)) {`
73	`return(ACTION_REMOVE);`	72	`return(ACTION_REMOVE);`
74	`} else if (strcasecmp(argv[1], "listfiles") == 0) {`	73	`} else if ((argc == 3) && (strcasecmp(argv[1], "listfiles") == 0)) {`
75	`return(ACTION_LISTFILES);`	74	`return(ACTION_LISTFILES);`
-		75	`} else if ((argc >= 2) && (argc <= 3) && (strcasecmp(argv[1], "listlocal") == 0)) {`
-		76	`return(ACTION_LISTLOCAL);`
76	`} else {`	77	`} else {`
77	`return(ACTION_HELP);`	78	`return(ACTION_HELP);`
78	`}`	79	`}`
79	`}`	80	`}`
80		81
81		82
82	`static int pkginst(const char file, int flags, const char dosdir, const struct customdirs *dirlist) {`	83	`static int pkginst(const char file, int flags, const char dosdir, const struct customdirs *dirlist) {`
83	`char pkgname[32];`	84	`char pkgname[32];`
84	`int t, lastpathdelim = -1, u = 0;`	85	`int t, lastpathdelim = -1, u = 0;`
85	`struct ziplist *zipfileidx;`	86	`struct ziplist *zipfileidx;`
86	`FILE *zipfilefd;`	87	`FILE *zipfilefd;`
87	`for (t = 0; file[t] != 0; t++) {`	88	`for (t = 0; file[t] != 0; t++) {`
88	`if ((file[t] == '/') \|\| (file[t] == '\\')) lastpathdelim = t;`	89	`if ((file[t] == '/') \|\| (file[t] == '\\')) lastpathdelim = t;`
89	`}`	90	`}`
90	`/* copy the filename into pkgname (without path elements) */`	91	`/* copy the filename into pkgname (without path elements) */`
91	`for (t = lastpathdelim + 1; file[t] != 0; t++) pkgname[u++] = file[t];`	92	`for (t = lastpathdelim + 1; file[t] != 0; t++) pkgname[u++] = file[t];`
92	`pkgname[u] = 0; /* terminate the string */`	93	`pkgname[u] = 0; /* terminate the string */`
93	`/* truncate the file's extension (.zip) */`	94	`/* truncate the file's extension (.zip) */`
94	`for (t = u; t > 0; t--) {`	95	`for (t = u; t > 0; t--) {`
95	`if (pkgname[t] == '.') {`	96	`if (pkgname[t] == '.') {`
96	`pkgname[t] = 0;`	97	`pkgname[t] = 0;`
97	`break;`	98	`break;`
98	`}`	99	`}`
99	`}`	100	`}`
100	`/* prepare the zip file and install it */`	101	`/* prepare the zip file and install it */`
101	`zipfileidx = pkginstall_preparepackage(pkgname, file, flags, &zipfilefd, dosdir, dirlist);`	102	`zipfileidx = pkginstall_preparepackage(pkgname, file, flags, &zipfilefd, dosdir, dirlist);`
102	`if (zipfileidx != NULL) {`	103	`if (zipfileidx != NULL) {`
103	`int res = 0;`	104	`int res = 0;`
104	`if (pkginstall_installpackage(pkgname, dosdir, dirlist, zipfileidx, zipfilefd) != 0) res = 1;`	105	`if (pkginstall_installpackage(pkgname, dosdir, dirlist, zipfileidx, zipfilefd) != 0) res = 1;`
105	`fclose(zipfilefd);`	106	`fclose(zipfilefd);`
106	`return(res);`	107	`return(res);`
107	`} else {`	108	`} else {`
108	`fclose(zipfilefd);`	109	`fclose(zipfilefd);`
109	`return(1);`	110	`return(1);`
110	`}`	111	`}`
111	`}`	112	`}`
112		113
113		114
114	`int main(int argc, char **argv) {`	115	`int main(int argc, char **argv) {`
115	`int res = 1, flags;`	116	`int res = 1, flags;`
116	`enum ACTIONTYPES action;`	117	`enum ACTIONTYPES action;`
117	`const char *dosdir;`	118	`const char *dosdir;`
118	`struct customdirs *dirlist;`	119	`struct customdirs *dirlist;`
119		120
120	`kittenopen("pkginst"); /* NLS init */`	121	`kittenopen("pkginst"); /* NLS init */`
121		122
122	`action = parsearg(argc, argv);`	123	`action = parsearg(argc, argv);`
123	`if (action == ACTION_HELP) {`	124	`if (action == ACTION_HELP) {`
124	`showhelp();`	125	`showhelp();`
125	`goto GAMEOVER;`	126	`goto GAMEOVER;`
126	`}`	127	`}`
127		128
128	`/* read the DOSDIR environment variable */`	129	`/* read the DOSDIR environment variable */`
129	`dosdir = getenv("DOSDIR");`	130	`dosdir = getenv("DOSDIR");`
130	`if (dosdir == NULL) {`	131	`if (dosdir == NULL) {`
131	`kitten_puts(2, 2, "%DOSDIR% not set! You should make it point to the FreeDOS main directory.");`	132	`kitten_puts(2, 2, "%DOSDIR% not set! You should make it point to the FreeDOS main directory.");`
132	`kitten_puts(2, 3, "Example: SET DOSDIR=C:\\FDOS");`	133	`kitten_puts(2, 3, "Example: SET DOSDIR=C:\\FDOS");`
133	`goto GAMEOVER;`	134	`goto GAMEOVER;`
134	`}`	135	`}`
135		136
136	`/* load configuration */`	137	`/* load configuration */`
137	`flags = 0;`	138	`flags = 0;`
138	`dirlist = NULL;`	139	`dirlist = NULL;`
139	`if (loadconf(dosdir, &dirlist, &flags) != 0) goto GAMEOVER;`	140	`if (loadconf(dosdir, &dirlist, &flags) != 0) goto GAMEOVER;`
140		141
141	`switch (action) {`	142	`switch (action) {`
142	`case ACTION_INSTALL:`	143	`case ACTION_INSTALL:`
143	`res = pkginst(argv[2], flags, dosdir, dirlist);`	144	`res = pkginst(argv[2], flags, dosdir, dirlist);`
144	`break;`	145	`break;`
145	`case ACTION_REMOVE:`	146	`case ACTION_REMOVE:`
146	`res = pkgrem(argv[2], dosdir);`	147	`res = pkgrem(argv[2], dosdir);`
147	`break;`	148	`break;`
148	`case ACTION_LISTFILES:`	149	`case ACTION_LISTFILES:`
149	`res = listfilesofpkg(argv[2], dosdir);`	150	`res = listfilesofpkg(argv[2], dosdir);`
150	`break;`	151	`break;`
-		152	`case ACTION_LISTLOCAL:`
-		153	`res = showinstalledpkgs((argc == 3)?argv[2]:NULL, dosdir);`
-		154	`break;`
151	`default:`	155	`default:`
152	`res = showhelp();`	156	`res = showhelp();`
153	`break;`	157	`break;`
154	`}`	158	`}`
155		159
156	`GAMEOVER:`	160	`GAMEOVER:`
157	`kittenclose(); /* NLS de-init */`	161	`kittenclose(); /* NLS de-init */`
158	`if (res != 0) return(1);`	162	`if (res != 0) return(1);`
159	`return(0);`	163	`return(0);`
160	`}`	164	`}`
161		165

Subversion Repositories SvarDOS

(root)/pkg/trunk/main.c @ 727 – Rev 244 → 250