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



/*
 * PKG - SvarDOS package installer
 *
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
 *
 * COPYRIGHT (C) 2016-2022 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,

 
#include <stdio.h>    /* printf() */
#include <stdlib.h>   /* malloc() and friends */
#include <string.h>   /* strcasecmp() */
 
#include "svarlang.lib/svarlang.h"
#include "kprintf.h"
#include "libunzip.h"
#include "pkginst.h"
#include "pkgrem.h"
#include "showinst.h"

 
 
static int showhelp(void) {
  puts("PKG ver " PVER " Copyright (C) " PDATE " Mateusz Viste");
  puts("");
  puts(svarlang_str(1, 0)); /* "PKG is the package installer for SvarDOS." */
  puts("");
  puts(svarlang_str(1, 20)); /* "Usage: pkg install package.zip */
  puts(svarlang_str(1, 21)); /* "       pkg update package.zip" */
  puts(svarlang_str(1, 22)); /* "       pkg remove package" */
  puts(svarlang_str(1, 23)); /* "       pkg listfiles package" */
  puts(svarlang_str(1, 24)); /* "       pkg listlocal [filter]" */
  puts(svarlang_str(1, 27)); /* "       pkg unzip file.zip" */
  puts("");
  puts(svarlang_str(1, 25)); /* "PKG is published under the MIT license." */
  puts(svarlang_str(1, 26)); /* "It is configured through %DOSDIR%\CFG\PKG.CFG" */
  return(1);
}
 
 
static enum ACTIONTYPES parsearg(int argc, char * const *argv) {

    }
  }
  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)) {
    puts(svarlang_str(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 */

  int res = 1;
  enum ACTIONTYPES action;
  const char *dosdir;
  struct customdirs *dirlist;
 
  svarlang_autoload("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) {
    puts(svarlang_str(2, 2)); /* "%DOSDIR% not set! You should make it point to the FreeDOS main directory." */
    puts(svarlang_str(2, 3)); /* "Example: SET DOSDIR=C:\FDOS" */
    goto GAMEOVER;
  }
 
  /* load configuration */
  if (loadconf(dosdir, &dirlist) != 0) goto GAMEOVER;

      res = showhelp();
      break;
  }
 
  GAMEOVER:
 
  if (res != 0) return(1);
  return(0);
}

Rev 296	Rev 613
Line 1...	Line 1...
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-2022 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,`
Line 27...	Line 27...
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 "svarlang.lib/svarlang.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"`
Line 51...	Line 51...
51		51
52		52
53	`static int showhelp(void) {`	53	`static int showhelp(void) {`
54	`puts("PKG ver " PVER " Copyright (C) " PDATE " Mateusz Viste");`	54	`puts("PKG ver " PVER " Copyright (C) " PDATE " Mateusz Viste");`
55	`puts("");`	55	`puts("");`
56	`kitten_puts(1, 0, "PKG is the package installer for SvarDOS.");`	56	`puts(svarlang_str(1, 0)); /* "PKG is the package installer for SvarDOS." */`
57	`puts("");`	57	`puts("");`
58	`kitten_puts(1, 20, "Usage: pkg install package.zip");`	58	`puts(svarlang_str(1, 20)); /* "Usage: pkg install package.zip */`
59	`kitten_puts(1, 21, " pkg update package.zip");`	59	`puts(svarlang_str(1, 21)); /* " pkg update package.zip" */`
60	`kitten_puts(1, 22, " pkg remove package");`	60	`puts(svarlang_str(1, 22)); /* " pkg remove package" */`
61	`kitten_puts(1, 23, " pkg listfiles package");`	61	`puts(svarlang_str(1, 23)); /* " pkg listfiles package" */`
62	`kitten_puts(1, 24, " pkg listlocal [filter]");`	62	`puts(svarlang_str(1, 24)); /* " pkg listlocal [filter]" */`
63	`kitten_puts(1, 27, " pkg unzip file.zip");`	63	`puts(svarlang_str(1, 27)); /* " pkg unzip file.zip" */`
64	`puts("");`	64	`puts("");`
65	`kitten_puts(1, 25, "PKG is published under the MIT license.");`	65	`puts(svarlang_str(1, 25)); /* "PKG is published under the MIT license." */`
66	`kitten_puts(1, 26, "It is configured through %DOSDIR%\\CFG\\PKG.CFG");`	66	`puts(svarlang_str(1, 26)); /* "It is configured through %DOSDIR%\CFG\PKG.CFG" */`
67	`return(1);`	67	`return(1);`
68	`}`	68	`}`
69		69
70		70
71	`static enum ACTIONTYPES parsearg(int argc, char * const *argv) {`	71	`static enum ACTIONTYPES parsearg(int argc, char * const *argv) {`
Line 106...	Line 106...
106	`}`	106	`}`
107	`}`	107	`}`
108	`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 */`
109	`t = lastdot - (lastpathdelim + 1);`	109	`t = lastdot - (lastpathdelim + 1);`
110	`if (t + 1 > sizeof(pkgname)) {`	110	`if (t + 1 > sizeof(pkgname)) {`
111	`kitten_puts(3, 24, "ERROR: package name too long");`	111	`puts(svarlang_str(3, 24)); /* "ERROR: package name too long" */`
112	`return(1);`	112	`return(1);`
113	`}`	113	`}`
114	`memcpy(pkgname, file + lastpathdelim + 1, t);`	114	`memcpy(pkgname, file + lastpathdelim + 1, t);`
115	`pkgname[t] = 0;`	115	`pkgname[t] = 0;`
116	`/* prepare the zip file and install it */`	116	`/* prepare the zip file and install it */`
Line 129...	Line 129...
129	`int res = 1;`	129	`int res = 1;`
130	`enum ACTIONTYPES action;`	130	`enum ACTIONTYPES action;`
131	`const char *dosdir;`	131	`const char *dosdir;`
132	`struct customdirs *dirlist;`	132	`struct customdirs *dirlist;`
133		133
134	`kittenopen("pkg"); /* NLS init */`	134	`svarlang_autoload("pkg"); /* NLS init */`
135		135
136	`action = parsearg(argc, argv);`	136	`action = parsearg(argc, argv);`
137	`if (action == ACTION_HELP) {`	137	`if (action == ACTION_HELP) {`
138	`showhelp();`	138	`showhelp();`
139	`goto GAMEOVER;`	139	`goto GAMEOVER;`
140	`}`	140	`}`
141		141
142	`/* read the DOSDIR environment variable */`	142	`/* read the DOSDIR environment variable */`
143	`dosdir = getenv("DOSDIR");`	143	`dosdir = getenv("DOSDIR");`
144	`if (dosdir == NULL) {`	144	`if (dosdir == NULL) {`
145	`kitten_puts(2, 2, "%DOSDIR% not set! You should make it point to the FreeDOS main directory.");`	145	`puts(svarlang_str(2, 2)); /* "%DOSDIR% not set! You should make it point to the FreeDOS main directory." */`
146	`kitten_puts(2, 3, "Example: SET DOSDIR=C:\\FDOS");`	146	`puts(svarlang_str(2, 3)); /* "Example: SET DOSDIR=C:\FDOS" */`
147	`goto GAMEOVER;`	147	`goto GAMEOVER;`
148	`}`	148	`}`
149		149
150	`/* load configuration */`	150	`/* load configuration */`
151	`if (loadconf(dosdir, &dirlist) != 0) goto GAMEOVER;`	151	`if (loadconf(dosdir, &dirlist) != 0) goto GAMEOVER;`
Line 171...	Line 171...
171	`res = showhelp();`	171	`res = showhelp();`
172	`break;`	172	`break;`
173	`}`	173	`}`
174		174
175	`GAMEOVER:`	175	`GAMEOVER:`
176	`kittenclose(); /* NLS de-init */`	-
177	`if (res != 0) return(1);`	176	`if (res != 0) return(1);`
178	`return(0);`	177	`return(0);`
179	`}`	178	`}`

Subversion Repositories SvarDOS

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