summaryrefslogtreecommitdiff
path: root/Build/source/texk/chktex/chktex-1.7.3/OpSys.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/chktex/chktex-1.7.3/OpSys.c')
-rw-r--r--Build/source/texk/chktex/chktex-1.7.3/OpSys.c492
1 files changed, 492 insertions, 0 deletions
diff --git a/Build/source/texk/chktex/chktex-1.7.3/OpSys.c b/Build/source/texk/chktex/chktex-1.7.3/OpSys.c
new file mode 100644
index 00000000000..7d055b72284
--- /dev/null
+++ b/Build/source/texk/chktex/chktex-1.7.3/OpSys.c
@@ -0,0 +1,492 @@
+/*
+ * ChkTeX, operating system specific code for ChkTeX.
+ * Copyright (C) 1995-96 Jens T. Berger Thielemann
+ *
+ * This program 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 program 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, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *
+ * Contact the author at:
+ * Jens Berger
+ * Spektrumvn. 4
+ * N-0666 Oslo
+ * Norway
+ * E-mail: <jensthi@ifi.uio.no>
+ *
+ *
+ */
+
+
+/*
+ * Some functions which have to be made different from OS to OS,
+ * unfortunately...:\
+ *
+ */
+
+#include "ChkTeX.h"
+#include "OpSys.h"
+#include "Utility.h"
+
+#ifdef KPATHSEA
+#include <kpathsea/variable.h>
+#endif
+
+#ifdef HAVE_SYS_STAT_H
+# include <sys/stat.h>
+#endif
+#ifdef HAVE_STAT_H
+# include <stat.h>
+#endif
+
+#if HAVE_DIRENT_H
+# include <dirent.h>
+# define NAMLEN(dirent) strlen((dirent)->d_name)
+#else
+# define dirent direct
+# define NAMLEN(dirent) (dirent)->d_namlen
+# if HAVE_SYS_NDIR_H
+# include <sys/ndir.h>
+# endif
+# if HAVE_SYS_DIR_H
+# include <sys/dir.h>
+# endif
+# if HAVE_NDIR_H
+# include <ndir.h>
+# endif
+#endif
+
+#if defined(HAVE_OPENDIR) && defined(HAVE_CLOSEDIR) && \
+ defined(HAVE_READDIR) && defined(HAVE_STAT) && \
+ defined(S_IFDIR) && defined(SLASH)
+# define USE_RECURSE 1
+#else
+# define USE_RECURSE 0
+#endif
+
+#if defined(HAVE_LIBTERMCAP) || defined(HAVE_LIBTERMLIB)
+# define USE_TERMCAP 1
+#endif
+
+
+#ifdef USE_TERMCAP
+# ifdef HAVE_TERMCAP_H
+# include <termcap.h>
+# elif HAVE_TERMLIB_H
+# include <termlib.h>
+# else
+int tgetent(char *BUFFER, char *TERMTYPE);
+char *tgetstr(char *NAME, char **AREA);
+# endif
+static char term_buffer[2048];
+#endif
+
+/* -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- */
+
+/*
+ * This is the name of the global resource file.
+ */
+
+#ifndef SYSCONFDIR
+# if defined(__unix__)
+# define SYSCONFDIR "/usr/local/lib/"
+# elif defined(__MSDOS__)
+# define SYSCONFDIR "\\emtex\\data\\"
+# else
+# define SYSCONFDIR
+# endif
+#endif
+#define RCBASENAME "chktexrc"
+
+#ifdef __MSDOS__
+# define LOCALRCFILE RCBASENAME
+#elif defined(WIN32)
+# define LOCALRCFILE RCBASENAME
+#else
+# define LOCALRCFILE "." RCBASENAME
+#endif
+
+char ConfigFile[BUFSIZ] = LOCALRCFILE;
+const char *ReverseOn;
+const char *ReverseOff;
+
+
+static int HasFile(char *Dir, const char *Filename, const char *App);
+
+#if USE_RECURSE
+static int SearchFile(char *Dir, const char *Filename, const char *App);
+#endif /* USE_RECURSE */
+
+/* -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- */
+
+
+/*
+ * Modify this one to suit your needs. In any case, it should fill
+ * the ConfigFile (sized BUFLEN) buffer above with full name & path
+ * for the configuration file. The macro RCFILE will give you the
+ * filename part of the file, if you need that.
+ *
+ * Note: This routine will be called several times. Your mission will
+ * be to look in each location, and see whether a .chktexrc file exist
+ * there.
+ *
+ * If you choose to do nothing, only the current directory will be
+ * searched.
+ *
+ */
+
+
+enum LookIn
+{
+ liMin,
+ liSysDir,
+ liUsrDir,
+ liEnvir,
+ liCurDir,
+ liNFound,
+ liMax
+};
+
+
+int SetupVars(void)
+{
+ char *Env;
+#ifdef __MSDOS__
+
+ char *Ptr;
+#endif
+
+ static enum LookIn i = liMin;
+ static int FoundFile;
+
+ while (++i < liMax)
+ {
+ switch (i)
+ {
+ case liCurDir: /* Current directory */
+ strcpy(ConfigFile, LOCALRCFILE);
+ break;
+ case liEnvir: /* Environment defined */
+#ifdef __MSDOS__
+
+ if ((Env = getenv("CHKTEXRC")) || (Env = getenv("CHKTEX_HOME")))
+#elif defined(TEX_LIVE)
+ if ((Env = kpse_var_value("CHKTEXRC")))
+#else
+
+ if ((Env = getenv("CHKTEXRC")))
+#endif
+
+ {
+ strcpy(ConfigFile, Env);
+ tackon(ConfigFile, LOCALRCFILE);
+#ifdef TEX_LIVE
+ free(Env);
+#endif
+ }
+ else
+#ifdef __MSDOS__
+ if ((Env = getenv("EMTEXDIR")))
+ {
+ strcpy(ConfigFile, Env);
+ tackon(ConfigFile, "data");
+ tackon(ConfigFile, LOCALRCFILE);
+ }
+ else
+#endif
+
+ *ConfigFile = 0;
+ break;
+ case liUsrDir: /* User dir for resource files */
+#if defined(__unix__)
+
+ if ((Env = getenv("HOME")) || (Env = getenv("LOGDIR")))
+ {
+ strcpy(ConfigFile, Env);
+ tackon(ConfigFile, LOCALRCFILE);
+ }
+ else
+#elif defined(__MSDOS__)
+
+ strcpy(ConfigFile, PrgName);
+ if ((Ptr = strrchr(ConfigFile, '\\')) ||
+ (Ptr = strchr(ConfigFile, ':')))
+ strcpy(++Ptr, RCBASENAME);
+ else
+#endif
+ *ConfigFile = 0;
+
+ break;
+ case liSysDir: /* System dir for resource files */
+#ifdef TEX_LIVE
+ if ((Env = kpse_var_value("CHKTEX_CONFIG")))
+ {
+ strcpy(ConfigFile, Env);
+ free(Env);
+ }
+ else if ((Env = kpse_var_value("TEXMFMAIN")))
+ {
+ strcpy(ConfigFile, Env);
+ tackon(ConfigFile, "chktex");
+ tackon(ConfigFile, RCBASENAME);
+ free(Env);
+ }
+ else
+ *ConfigFile = 0;
+#else /* TEX_LIVE */
+#if defined(__unix__) || defined(__MSDOS__)
+ strcpy(ConfigFile, SYSCONFDIR);
+ tackon(ConfigFile, RCBASENAME);
+#else
+ *ConfigFile = 0;
+#endif
+#endif /* TEX_LIVE */
+
+ break;
+ case liNFound:
+ case liMin:
+ case liMax:
+ *ConfigFile = 0;
+ if (!FoundFile)
+ PrintPrgErr(pmNoRsrc);
+ }
+
+ if (*ConfigFile && fexists(ConfigFile))
+ break;
+ }
+ FoundFile |= *ConfigFile;
+
+ return (*ConfigFile);
+}
+
+
+/* -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- */
+
+/*
+ * This function should initialize the global variables ReverseOn
+ * and ReverseOff to magic cookies, which when printed, makes the
+ * text in between stand out.
+ */
+
+void SetupTerm(void)
+{
+#ifdef USE_TERMCAP
+ char *termtype = getenv("TERM");
+ int success;
+ char *buffer;
+ static char str_so[3] = "so", str_se[3] = "se";
+
+ if (termtype)
+ {
+
+ success = tgetent(term_buffer, termtype);
+ if (success < 0)
+ PrintPrgErr(pmNoTermData);
+ if (success == 0)
+ PrintPrgErr(pmNoTermDefd);
+
+ buffer = (char *) malloc(sizeof(term_buffer));
+ ReverseOn = tgetstr(str_so, &buffer);
+ ReverseOff = tgetstr(str_se, &buffer);
+
+ if (ReverseOn && ReverseOff)
+ return;
+ }
+#endif
+
+ ReverseOn = PRE_ERROR_STR;
+ ReverseOff = POST_ERROR_STR;
+}
+
+/* -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- */
+
+/*
+ * Concatenates the `File' string to the `Dir' string, leaving the result
+ * in the `Dir' buffer. Takes care of inserting `directory' characters;
+ * if we've got the strings "/usr/foo" and "bar", we'll get
+ * "/usr/foo/bar".
+ *
+ * Behaviour somewhat controlled by the macros SLASH and DIRCHARS in the
+ * OpSys.h file.
+ *
+ */
+
+void tackon(char *Dir, const char *File)
+{
+ int EndC;
+ unsigned long SLen;
+
+ if (Dir && (SLen = strlen(Dir)))
+ {
+ EndC = Dir[SLen - 1];
+ if (!(strchr(DIRCHARS, EndC)))
+ {
+ Dir[SLen++] = SLASH;
+ Dir[SLen] = 0L;
+ }
+ }
+
+ strcat(Dir, File);
+}
+
+/*
+ * This function should add the appendix App to the filename Name.
+ * If the resulting filename gets too long due to this, it may
+ * overwrite the old appendix.
+ *
+ * Name may be assumed to be a legal filename under your OS.
+ *
+ * The appendix should contain a leading dot.
+ */
+
+void AddAppendix(char *Name, const char *App)
+{
+#ifdef __MSDOS__
+ char *p;
+
+ if ((p = strrchr(Name, '.')))
+ strcpy(p, App);
+ else
+ strcat(Name, App);
+#else
+ /*
+ * NOTE! This may fail if your system has a claustrophobic file
+ * name length limit.
+ */
+ strcat(Name, App);
+#endif
+
+}
+
+/* -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- -=><=- */
+
+
+/*
+ * Locates a file, given a wordlist containing paths. If a
+ * dir ends in a double SLASH, we'll search it recursively.
+ *
+ * We assume that
+ * a) a deeper level in the dir. tree. has a longer path than
+ * one above.
+ * b) adding a level doesn't change any of the previous levels.
+ *
+ * If this function returns TRUE, Dest is guaranteed to contain
+ * path & name of the found file.
+ *
+ * FALSE indicates that the file was not found; Dest is then
+ * unspecified.
+ */
+
+
+int LocateFile(const char *Filename, /* File to search for */
+ char *Dest, /* Where to put final file */
+ const char *App, /* Extra optional appendix */
+ struct WordList *wl) /* List of paths, entries
+ * ending in // will be recursed
+ */
+{
+ unsigned long i;
+#if USE_RECURSE
+
+ unsigned long Len;
+#endif
+
+ FORWL(i, *wl)
+ {
+ strcpy(Dest, wl->Stack.Data[i]);
+
+#if USE_RECURSE
+
+ Len = strlen(Dest);
+
+ if (Len && (Dest[Len - 1] == SLASH) && (Dest[Len - 2] == SLASH))
+ {
+ Dest[Len - 1] = Dest[Len - 2] = 0;
+ if (SearchFile(Dest, Filename, App))
+ return (TRUE);
+ }
+ else
+#endif /* USE_RECURSE */
+
+ {
+ if (HasFile(Dest, Filename, App))
+ return (TRUE);
+ }
+ }
+ return (FALSE);
+}
+
+static int HasFile(char *Dir, const char *Filename, const char *App)
+{
+ int DirLen = strlen(Dir);
+
+ tackon(Dir, Filename);
+ if (fexists(Dir))
+ return (TRUE);
+
+ if (App)
+ {
+ AddAppendix(Dir, App);
+ if (fexists(Dir))
+ return (TRUE);
+ }
+
+ Dir[DirLen] = 0;
+ return (FALSE);
+
+}
+
+
+#if USE_RECURSE
+static int SearchFile(char *Dir, const char *Filename, const char *App)
+{
+ struct stat *statbuf;
+ struct dirent *de;
+ DIR *dh;
+
+ int DirLen = strlen(Dir);
+ int Found = FALSE;
+
+ DEBUG(("Searching %s for %s\n", Dir, Filename));
+
+ if (HasFile(Dir, Filename, App))
+ return (TRUE);
+ else
+ {
+ if ((statbuf = malloc(sizeof(struct stat))))
+ {
+ if ((dh = opendir(Dir)))
+ {
+ while (!Found && (de = readdir(dh)))
+ {
+ Dir[DirLen] = 0;
+ if (strcmp(de->d_name, ".") && strcmp(de->d_name, ".."))
+ {
+ tackon(Dir, de->d_name);
+
+ if (!stat(Dir, statbuf))
+ {
+ if ((statbuf->st_mode & S_IFMT) == S_IFDIR)
+ Found = SearchFile(Dir, Filename, App);
+ }
+ }
+ }
+ closedir(dh);
+ }
+ else
+ PrintPrgErr(pmNoOpenDir, Dir);
+ free(statbuf);
+ }
+ }
+ return (Found);
+}
+#endif /* USE_RECURSE */
generated by cgit v1.2.3 (git 2.39.1) at 2024-10-31 20:38:42 +0000