From cbffab246997fb5a06211dfb706b54e5ae5bb59f Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 16:58:51 +0200 Subject: Adding upstream version 1.21.22. Signed-off-by: Daniel Baumann --- dselect/methparse.cc | 304 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 304 insertions(+) create mode 100644 dselect/methparse.cc (limited to 'dselect/methparse.cc') diff --git a/dselect/methparse.cc b/dselect/methparse.cc new file mode 100644 index 0000000..2db4b98 --- /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 + * Copyright © 2008-2011, 2013-2015 Guillem Jover + * + * 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 . + */ + +#include +#include + +#include +#include +#include + +#include +#include +#include +#include +#include +#include +#include + +#include +#include +#include +#include + +#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, c, 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) { + 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); +} -- cgit v1.2.3