Adding upstream version 1.22.4.upstream/1.22.4

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 304 insertions, 0 deletions

diff --git a/dselect/methparse.cc b/dselect/methparse.cc
new file mode 100644
index 0000000..10423a8
--- /dev/null
+++ b/dselect/methparse.cc
@@ -0,0 +1,304 @@
+/*
+ * dselect - Debian package maintenance user interface
+ * methparse.cc - access method list parsing
+ *
+ * Copyright © 1995 Ian Jackson <ijackson@chiark.greenend.org.uk>
+ * Copyright © 2008-2011, 2013-2015 Guillem Jover <guillem@debian.org>
+ *
+ * This is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <https://www.gnu.org/licenses/>.
+ */
+
+#include <config.h>
+#include <compat.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/wait.h>
+
+#include <errno.h>
+#include <limits.h>
+#include <string.h>
+#include <dirent.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+#include <dpkg/i18n.h>
+#include <dpkg/c-ctype.h>
+#include <dpkg/dpkg.h>
+#include <dpkg/dpkg-db.h>
+
+#include "dselect.h"
+#include "bindings.h"
+#include "method.h"
+
+int noptions=0;
+struct dselect_option *options = nullptr, *coption = nullptr;
+struct method *methods = nullptr;
+
+static void DPKG_ATTR_NORET
+badmethod(const char *pathname, const char *why)
+{
+  ohshit(_("syntax error in method options file '%.250s' -- %s"), pathname, why);
+}
+
+static void DPKG_ATTR_NORET
+eofmethod(const char *pathname, FILE *f, const char *why)
+{
+  if (ferror(f))
+    ohshite(_("error reading options file '%.250s'"), pathname);
+  badmethod(pathname,why);
+}
+
+void readmethods(const char *pathbase, dselect_option **optionspp, int *nread) {
+  static const char *const methodprograms[]= {
+    METHODSETUPSCRIPT,
+    METHODUPDATESCRIPT,
+    METHODINSTALLSCRIPT,
+    nullptr
+  };
+  const char *const *ccpp;
+  int methodlen, baselen;
+  char *pathinmeth, *pathbuf, *pathmeth;
+  DIR *dir;
+  FILE *names, *descfile;
+  struct dirent *dent;
+  struct varbuf vb;
+  method *meth;
+  dselect_option *opt;
+  struct stat stab;
+
+  baselen= strlen(pathbase);
+  pathbuf= new char[baselen+IMETHODMAXLEN+IOPTIONMAXLEN+sizeof(OPTIONSDESCPFX)+10];
+  strcpy(pathbuf,pathbase);
+  strcpy(pathbuf+baselen,"/");
+  pathmeth= pathbuf+baselen+1;
+
+  dir= opendir(pathbuf);
+  if (!dir) {
+    if (errno == ENOENT) {
+      delete[] pathbuf;
+      return;
+    }
+    ohshite(_("unable to read '%.250s' directory for reading methods"),
+            pathbuf);
+  }
+
+  debug(dbg_general, "readmethods('%s',...) directory open", pathbase);
+
+  while ((dent = readdir(dir)) != nullptr) {
+    int c = dent->d_name[0];
+    debug(dbg_general, "readmethods('%s',...) considering '%s' ...",
+          pathbase, dent->d_name);
+    if (c != '_' && !c_isalpha(c))
+      continue;
+    char *p = dent->d_name + 1;
+    while ((c = *p) != 0 && c_isalnum(c) && c != '_')
+      p++;
+    if (c) continue;
+    methodlen= strlen(dent->d_name);
+    if (methodlen > IMETHODMAXLEN)
+      ohshit(_("method '%.250s' has name that is too long (%d > %d characters)"),
+             dent->d_name, methodlen, IMETHODMAXLEN);
+    /* Check if there is a localized version of this method */
+
+    strcpy(pathmeth, dent->d_name);
+    strcpy(pathmeth+methodlen, "/");
+    pathinmeth= pathmeth+methodlen+1;
+
+    for (ccpp= methodprograms; *ccpp; ccpp++) {
+      strcpy(pathinmeth,*ccpp);
+      if (access(pathbuf,R_OK|X_OK))
+        ohshite(_("unable to access method script '%.250s'"), pathbuf);
+    }
+    debug(dbg_general, " readmethods('%s',...) scripts ok", pathbase);
+
+    strcpy(pathinmeth,METHODOPTIONSFILE);
+    names= fopen(pathbuf,"r");
+    if (!names)
+      ohshite(_("unable to read method options file '%.250s'"), pathbuf);
+
+    meth= new method;
+    meth->name= new char[strlen(dent->d_name)+1];
+    strcpy(meth->name,dent->d_name);
+    meth->path= new char[baselen+1+methodlen+2+50];
+    strncpy(meth->path,pathbuf,baselen+1+methodlen);
+    strcpy(meth->path+baselen+1+methodlen,"/");
+    meth->pathinmeth= meth->path+baselen+1+methodlen+1;
+    meth->next= methods;
+    meth->prev = nullptr;
+    if (methods)
+      methods->prev = meth;
+    methods= meth;
+    debug(dbg_general, " readmethods('%s',...) new method"
+                       " name='%s' path='%s' pathinmeth='%s'",
+          pathbase, meth->name, meth->path, meth->pathinmeth);
+
+    while ((c= fgetc(names)) != EOF) {
+      if (c_isspace(c))
+        continue;
+      opt= new dselect_option;
+      opt->meth= meth;
+      vb.reset();
+      do {
+        if (!c_isdigit(c))
+          badmethod(pathbuf, _("non-digit where digit wanted"));
+        vb(c);
+        c= fgetc(names);
+        if (c == EOF)
+          eofmethod(pathbuf, names, _("end of file in index string"));
+      } while (!c_isspace(c));
+      if (strlen(vb.string()) > OPTIONINDEXMAXLEN)
+        badmethod(pathbuf,_("index string too long"));
+      strcpy(opt->index,vb.string());
+      do {
+        if (c == '\n') badmethod(pathbuf,_("newline before option name start"));
+        c= fgetc(names);
+        if (c == EOF)
+          eofmethod(pathbuf, names, _("end of file before option name start"));
+      } while (c_isspace(c));
+      vb.reset();
+      if (!c_isalpha(c) && c != '_')
+        badmethod(pathbuf,_("nonalpha where option name start wanted"));
+      do {
+        if (!c_isalnum(c) && c != '_')
+          badmethod(pathbuf, _("non-alphanum in option name"));
+        vb(c);
+        c= fgetc(names);
+        if (c == EOF)
+          eofmethod(pathbuf, names, _("end of file in option name"));
+      } while (!c_isspace(c));
+      opt->name= new char[strlen(vb.string())+1];
+      strcpy(opt->name,vb.string());
+      do {
+        if (c == '\n') badmethod(pathbuf,_("newline before summary"));
+        c= fgetc(names);
+        if (c == EOF)
+          eofmethod(pathbuf, names, _("end of file before summary"));
+      } while (c_isspace(c));
+      vb.reset();
+      do {
+        vb(c);
+        c= fgetc(names);
+        if (c == EOF)
+          eofmethod(pathbuf, names, _("end of file in summary - missing newline"));
+      } while (c != '\n');
+      opt->summary= new char[strlen(vb.string())+1];
+      strcpy(opt->summary,vb.string());
+
+      strcpy(pathinmeth,OPTIONSDESCPFX);
+      strcpy(pathinmeth+sizeof(OPTIONSDESCPFX)-1,opt->name);
+      descfile= fopen(pathbuf,"r");
+      if (!descfile) {
+        if (errno != ENOENT)
+          ohshite(_("unable to open option description file '%.250s'"), pathbuf);
+        opt->description = nullptr;
+      } else { /* descfile != 0 */
+        if (fstat(fileno(descfile),&stab))
+          ohshite(_("unable to stat option description file '%.250s'"), pathbuf);
+        opt->description= new char[stab.st_size+1];  errno=0;
+        size_t filelen = stab.st_size;
+        if (fread(opt->description,1,stab.st_size+1,descfile) != filelen)
+          ohshite(_("failed to read option description file '%.250s'"), pathbuf);
+        opt->description[stab.st_size]= 0;
+        if (ferror(descfile))
+          ohshite(_("error during read of option description file '%.250s'"), pathbuf);
+        fclose(descfile);
+      }
+      strcpy(pathinmeth,METHODOPTIONSFILE);
+
+      debug(dbg_general,
+            " readmethods('%s',...) new option index='%s' name='%s'"
+            " summary='%.20s' strlen(description=%s)=%zu method name='%s'"
+            " path='%s' pathinmeth='%s'",
+            pathbase,
+            opt->index, opt->name, opt->summary,
+            opt->description ? "'...'" : "null",
+            opt->description ? strlen(opt->description) : -1,
+            opt->meth->name, opt->meth->path, opt->meth->pathinmeth);
+
+      dselect_option **optinsert = optionspp;
+      while (*optinsert && strcmp(opt->index, (*optinsert)->index) > 0)
+        optinsert = &(*optinsert)->next;
+      opt->next= *optinsert;
+      *optinsert= opt;
+      (*nread)++;
+    }
+    if (ferror(names))
+      ohshite(_("error during read of method options file '%.250s'"), pathbuf);
+    fclose(names);
+  }
+  closedir(dir);
+  debug(dbg_general, "readmethods('%s',...) done", pathbase);
+  delete[] pathbuf;
+}
+
+static char *methoptfile = nullptr;
+
+void getcurrentopt() {
+  char methoptbuf[IMETHODMAXLEN+1+IOPTIONMAXLEN+2];
+  FILE *cmo;
+  int l;
+  char *p;
+
+  if (methoptfile == nullptr)
+    methoptfile = dpkg_db_get_path(CMETHOPTFILE);
+
+  coption = nullptr;
+  cmo= fopen(methoptfile,"r");
+  if (!cmo) {
+    if (errno == ENOENT) return;
+    ohshite(_("unable to open current option file '%.250s'"), methoptfile);
+  }
+  debug(dbg_general, "getcurrentopt() cmethopt open");
+  if (!fgets(methoptbuf,sizeof(methoptbuf),cmo)) { fclose(cmo); return; }
+  if (fgetc(cmo) != EOF) { fclose(cmo); return; }
+  if (!feof(cmo)) { fclose(cmo); return; }
+  debug(dbg_general, "getcurrentopt() cmethopt eof");
+  fclose(cmo);
+  debug(dbg_general, "getcurrentopt() cmethopt read");
+  l= strlen(methoptbuf);  if (!l || methoptbuf[l-1] != '\n') return;
+  methoptbuf[--l]= 0;
+  debug(dbg_general, "getcurrentopt() cmethopt len and newline");
+  p= strchr(methoptbuf,' ');  if (!p) return;
+  debug(dbg_general, "getcurrentopt() cmethopt space");
+  *p++= 0;
+  debug(dbg_general, "getcurrentopt() cmethopt meth name '%s'", methoptbuf);
+  method *meth = methods;
+  while (meth && strcmp(methoptbuf, meth->name))
+    meth = meth->next;
+  if (!meth) return;
+  debug(dbg_general, "getcurrentopt() cmethopt meth found; opt '%s'", p);
+  dselect_option *opt = options;
+  while (opt && (opt->meth != meth || strcmp(p, opt->name)))
+    opt = opt->next;
+  if (!opt) return;
+  debug(dbg_general, "getcurrentopt() cmethopt opt found");
+  coption= opt;
+}
+
+void writecurrentopt() {
+  struct atomic_file *file;
+
+  if (methoptfile == nullptr)
+    internerr("method options filename is nullptr");
+
+  file = atomic_file_new(methoptfile, ATOMIC_FILE_NORMAL);
+  atomic_file_open(file);
+  if (fprintf(file->fp, "%s %s\n", coption->meth->name, coption->name) == EOF)
+    ohshite(_("unable to write new option to '%.250s'"), file->name_new);
+  atomic_file_close(file);
+  atomic_file_commit(file);
+  atomic_file_free(file);
+}