Subversion Repositories SvarDOS

/*
 * This file is part of PKG (SvarDOS)
 * Copyright (C) 2013-2024 Mateusz Viste
 */

#include <stdio.h>
#include <ctype.h>    /* tolower() */
#include <stdlib.h>   /* atoi(), qsort() - not using it after all, redefining it manually later */
#include <string.h>   /* strlen() */
#include <strings.h>
#include <sys/types.h>
#include <direct.h> /* opendir() and friends */

#include "helpers.h"  /* fdnpkg_strcasestr(), slash2backslash()... */
#include "libunzip.h"  /* zip_freelist()... */
#include "lsm.h"
#include "svarlang.lib/svarlang.h"

#include "showinst.h"  /* include self for control */


int showinstalledpkgs(const char *filterstr, const char *dosdir) {
  DIR *dp;
  struct dirent *ep;
  char buff[256];
  char ver[16];
  int matchfound = 0;

  sprintf(buff, "%s\\appinfo", dosdir);
  dp = opendir(buff);
  if (dp == NULL) {
    output(svarlang_str(9,0)); /* "ERROR: Could not access directory */
    output(" ");
    outputnl(buff);
    return(-1);
  }

  while ((ep = readdir(dp)) != NULL) { /* readdir() result must never be freed (statically allocated) */
    int tlen = strlen(ep->d_name);
    if (ep->d_name[0] == '.') continue; /* ignore '.', '..', and hidden directories */
    if (tlen < 4) continue; /* files must be at least 5 bytes long ("x.lst") */
    if (strcasecmp(ep->d_name + tlen - 4, ".lsm") != 0) continue;  /* if not an .lsm file, skip it silently */
    ep->d_name[tlen - 4] = 0; /* trim out the ".lsm" suffix */

    if (filterstr != NULL) {
      if (fdnpkg_strcasestr(ep->d_name, filterstr) == NULL) continue; /* skip if not matching the non-NULL filter */
    }

    output(ep->d_name);

    /* load the metadata from %DOSDIR\APPINFO\*.lsm */
    sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, ep->d_name);
    readlsm(buff, "version", ver, sizeof(ver));

    output(" ");
    output(ver);

    {
      unsigned short l = strlen(ver) + strlen(ep->d_name);
      readlsm(buff, "description", buff+1, 62);
      buff[0] = ' ';
      while (l++ < 16) output(" ");
      outputnl(buff);
    }

    matchfound = 1;
  }
  if (matchfound == 0) outputnl(svarlang_str(5, 0)); /* "No package matched the search." */

  closedir(dp);
  return(0);
}


/* frees a linked list of filenames */
void pkg_freeflist(struct flist_t *flist) {
  while (flist != NULL) {
    struct flist_t *victim = flist;
    flist = flist->next;
    free(victim);
  }
}


/* returns a linked list of the files that belong to package pkgname */
struct flist_t *pkg_loadflist(const char *pkgname, const char *dosdir) {
  struct flist_t *res = NULL, *newnode;
  FILE *fd;
  char buff[256];

  sprintf(buff, "%s\\packages\\%s.lst", dosdir, pkgname);
  fd = fopen(buff, "rb");
  if (fd == NULL) {
    sprintf(buff, "%s\\appinfo\\%s.lsm", dosdir, pkgname);
    fd = fopen(buff, "rb");
    if (fd == NULL) {
      sprintf(buff, svarlang_str(9, 1), pkgname); /* "ERROR: Local package '%s' not found." */
      outputnl(buff);
      return(NULL);
    }
  }

  /* iterate through all lines of the file */
  while (freadtokval(fd, buff, sizeof(buff), NULL, 0) == 0) {
    /* skip empty lines */
    if (buff[0] == 0) continue;

    /* normalize slashes to backslashes */
    slash2backslash(buff);

    /* skip garbage */
    if ((buff[1] != ':') || (buff[2] != '\\')) continue;

    /* skip directories */
    if (buff[strlen(buff) - 1] == '\\') continue;

    /* trim ? trailer (may contain the file's CRC) */
    trimfnamecrc(buff);

    /* add the new node to the result */
    newnode = malloc(sizeof(struct flist_t) + strlen(buff));
    if (newnode == NULL) {
      outputnl(svarlang_str(2,14));  /* "Out of memory!" */
      continue;
    }
    newnode->next = res;
    strcpy(newnode->fname, buff);
    res = newnode;
  }
  fclose(fd);
  return(res);
}


/* Prints files owned by a package */
int listfilesofpkg(const char *pkgname, const char *dosdir) {
  struct flist_t *flist, *flist_ptr;
  /* load the list of files belonging to pkgname */
  flist = pkg_loadflist(pkgname, dosdir);
  if (flist == NULL) return(-1);
  /* display each filename on screen */
  for (flist_ptr = flist; flist_ptr != NULL; flist_ptr = flist_ptr->next) {
    outputnl(flist_ptr->fname);
  }
  /* free the list of files */
  pkg_freeflist(flist);
  return(0);
}