Adding upstream version 1:0.1.9998svn3589+dfsg.upstream/1%0.1.9998svn3589+dfsg

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

2 files changed, 534 insertions, 0 deletions

diff --git a/src/kDepPre/Makefile.kmk b/src/kDepPre/Makefile.kmk
new file mode 100644
index 0000000..0c76b64
--- /dev/null
+++ b/src/kDepPre/Makefile.kmk
@@ -0,0 +1,39 @@
+# $Id: Makefile.kmk 2886 2016-09-06 14:31:46Z bird $
+## @file
+# Sub-makefile for kDepPre, the precompiler based dependency generator.
+#
+
+#
+# Copyright (c) 2005-2010 knut st. osmundsen <bird-kBuild-spamx@anduin.net>
+#
+# This file is part of kBuild.
+#
+# kBuild 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 3 of the License, or
+# (at your option) any later version.
+#
+# kBuild 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 kBuild.  If not, see <http://www.gnu.org/licenses/>
+#
+#
+
+SUB_DEPTH = ../..
+include $(KBUILD_PATH)/subheader.kmk
+
+PROGRAMS += kDepPre
+kDepPre_TEMPLATE        = BIN
+kDepPre_LIBS            = $(LIB_KDEP) $(LIB_KUTIL)
+kDepPre_DEFS.linux      = HAVE_FGETC_UNLOCKED=1
+if1of ($(KBUILD_TARGET), win nt)
+kDepPre_DEFS           += NEED_ISBLANK=1 __WIN32__=1
+endif
+kDepPre_SOURCES         = kDepPre.c
+
+include $(FILE_KBUILD_SUB_FOOTER)
+
diff --git a/src/kDepPre/kDepPre.c b/src/kDepPre/kDepPre.c
new file mode 100644
index 0000000..4167e2c
--- /dev/null
+++ b/src/kDepPre/kDepPre.c
@@ -0,0 +1,495 @@
+/* $Id: kDepPre.c 3315 2020-03-31 01:12:19Z bird $ */
+/** @file
+ * kDepPre - Dependency Generator using Precompiler output.
+ */
+
+/*
+ * Copyright (c) 2005-2010 knut st. osmundsen <bird-kBuild-spamx@anduin.net>
+ *
+ * This file is part of kBuild.
+ *
+ * kBuild 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 3 of the License, or
+ * (at your option) any later version.
+ *
+ * kBuild 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 kBuild.  If not, see <http://www.gnu.org/licenses/>
+ *
+ */
+
+/*******************************************************************************
+*   Header Files                                                               *
+*******************************************************************************/
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#ifdef _MSC_VER
+# include <io.h>
+#else
+# include <unistd.h>
+#endif
+#include "kDep.h"
+
+#ifdef HAVE_FGETC_UNLOCKED
+# define FGETC(s)   getc_unlocked(s)
+#else
+# define FGETC(s)   fgetc(s)
+#endif
+
+#ifdef NEED_ISBLANK
+# define isblank(ch) ( (unsigned char)(ch) == ' ' || (unsigned char)(ch) == '\t' )
+#endif
+
+
+
+
+/**
+ * Parses the output from a preprocessor of a C-style language.
+ *
+ * @returns 0 on success.
+ * @returns 1 or other approriate exit code on failure.
+ * @param   pThis       Pointer to the 'dep' instance.
+ * @param   pInput      Input stream. (probably not seekable)
+ */
+static int ParseCPrecompiler(PDEPGLOBALS pThis, FILE *pInput)
+{
+    enum
+    {
+        C_DISCOVER = 0,
+        C_SKIP_LINE,
+        C_PARSE_FILENAME,
+        C_EOF
+    } enmMode = C_DISCOVER;
+    PDEP    pDep = NULL;
+    int     ch = 0;
+    char    szBuf[8192];
+
+    for (;;)
+    {
+        switch (enmMode)
+        {
+            /*
+             * Start of line, need to look for '#[[:space]]*line <num> "file"' and '# <num> "file"'.
+             */
+            case C_DISCOVER:
+                /* first find '#' */
+                while ((ch = FGETC(pInput)) != EOF)
+                    if (!isblank(ch))
+                        break;
+                if (ch == '#')
+                {
+                    /* skip spaces */
+                    while ((ch = FGETC(pInput)) != EOF)
+                        if (!isblank(ch))
+                            break;
+
+                    /* check for "line" */
+                    if (ch == 'l')
+                    {
+                        if (    (ch = FGETC(pInput)) == 'i'
+                            &&  (ch = FGETC(pInput)) == 'n'
+                            &&  (ch = FGETC(pInput)) == 'e')
+                        {
+                            ch = FGETC(pInput);
+                            if (isblank(ch))
+                            {
+                                /* skip spaces */
+                                while ((ch = FGETC(pInput)) != EOF)
+                                    if (!isblank(ch))
+                                        break;
+                            }
+                            else
+                                ch = 'x';
+                        }
+                        else
+                            ch = 'x';
+                    }
+
+                    /* line number */
+                    if (ch >= '0' && ch <= '9')
+                    {
+                        /* skip the number following spaces */
+                        while ((ch = FGETC(pInput)) != EOF)
+                            if (!isxdigit(ch))
+                                break;
+                        if (isblank(ch))
+                        {
+                            while ((ch = FGETC(pInput)) != EOF)
+                                if (!isblank(ch))
+                                    break;
+                            /* quoted filename */
+                            if (ch == '"')
+                            {
+                                enmMode = C_PARSE_FILENAME;
+                                break;
+                            }
+                        }
+                    }
+                }
+                enmMode = C_SKIP_LINE;
+                break;
+
+            /*
+             * Skip past the end of the current line.
+             */
+            case C_SKIP_LINE:
+                do
+                {
+                    if (    ch == '\r'
+                        ||  ch == '\n')
+                        break;
+                } while ((ch = FGETC(pInput)) != EOF);
+                enmMode = C_DISCOVER;
+                break;
+
+            /*
+             * Parse the filename.
+             */
+            case C_PARSE_FILENAME:
+            {
+                /* retreive and unescape the filename. */
+                char   *psz = &szBuf[0];
+                while (     (ch = FGETC(pInput)) != EOF
+                       &&   psz < &szBuf[sizeof(szBuf) - 1])
+                {
+                    if (ch == '\\')
+                    {
+                        ch = FGETC(pInput);
+                        switch (ch)
+                        {
+                            case '\\': ch = '/'; break;
+                            case 't':  ch = '\t'; break;
+                            case 'r':  ch = '\r'; break;
+                            case 'n':  ch = '\n'; break;
+                            case 'b':  ch = '\b'; break;
+                            default:
+                                fprintf(stderr, "warning: unknown escape char '%c'\n", ch);
+                                continue;
+
+                        }
+                        *psz++ = ch == '\\' ? '/' : ch;
+                    }
+                    else if (ch != '"')
+                        *psz++ = ch;
+                    else
+                    {
+                        size_t cchFilename = psz - &szBuf[0];
+                        *psz = '\0';
+                        /* compare with current dep, add & switch on mismatch. */
+                        if (    !pDep
+                            ||  pDep->cchFilename != cchFilename
+                            ||  memcmp(pDep->szFilename, szBuf, cchFilename))
+                            pDep = depAdd(pThis, szBuf, cchFilename);
+                        break;
+                    }
+                }
+                enmMode = C_SKIP_LINE;
+                break;
+            }
+
+            /*
+             * Handle EOF.
+             */
+            case C_EOF:
+                if (feof(pInput))
+                    return 0;
+                enmMode = C_DISCOVER;
+                break;
+        }
+        if (ch == EOF)
+            enmMode = C_EOF;
+    }
+
+    return 0;
+}
+
+
+static int usage(FILE *pOut,  const char *argv0)
+{
+    fprintf(pOut,
+            "usage: %s [-l=c] -o <output> -t <target> [-f] [-s] < - | <filename> | -e <cmdline> >\n"
+            "   or: %s --help\n"
+            "   or: %s --version\n",
+            argv0, argv0, argv0);
+    return 1;
+}
+
+
+int main(int argc, char *argv[])
+{
+    int         i;
+    DEPGLOBALS  This;
+
+    /* Arguments. */
+    int         iExec = 0;
+    FILE       *pOutput = NULL;
+    const char *pszOutput = NULL;
+    FILE       *pInput = NULL;
+    const char *pszTarget = NULL;
+    int         fStubs = 0;
+    int         fFixCase = 0;
+    /* Argument parsing. */
+    int         fInput = 0;             /* set when we've found input argument. */
+
+    /*
+     * Parse arguments.
+     */
+    if (argc <= 1)
+        return usage(stderr, argv[0]);
+    for (i = 1; i < argc; i++)
+    {
+        if (argv[i][0] == '-')
+        {
+            const char *psz = &argv[i][1];
+            if (*psz == '-')
+            {
+                if (!strcmp(psz, "-help"))
+                    psz = "h";
+                else if (!strcmp(psz, "-version"))
+                    psz = "V";
+            }
+
+            switch (*psz)
+            {
+                /*
+                 * Output file.
+                 */
+                case 'o':
+                {
+                    pszOutput = &argv[i][2];
+                    if (pOutput)
+                    {
+                        fprintf(stderr, "%s: syntax error: only one output file!\n", argv[0]);
+                        return 1;
+                    }
+                    if (!*pszOutput)
+                    {
+                        if (++i >= argc)
+                        {
+                            fprintf(stderr, "%s: syntax error: The '-o' argument is missing the filename.\n", argv[0]);
+                            return 1;
+                        }
+                        pszOutput = argv[i];
+                    }
+                    if (pszOutput[0] == '-' && !pszOutput[1])
+                        pOutput = stdout;
+                    else
+                        pOutput = fopen(pszOutput, "w");
+                    if (!pOutput)
+                    {
+                        fprintf(stderr, "%s: error: Failed to create output file '%s'.\n", argv[0], pszOutput);
+                        return 1;
+                    }
+                    break;
+                }
+
+                /*
+                 * Language spec.
+                 */
+                case 'l':
+                {
+                    const char *pszValue = &argv[i][2];
+                    if (*pszValue == '=')
+                        pszValue++;
+                    if (!strcmp(pszValue, "c"))
+                        ;
+                    else
+                    {
+                        fprintf(stderr, "%s: error: The '%s' language is not supported.\n", argv[0], pszValue);
+                        return 1;
+                    }
+                    break;
+                }
+
+                /*
+                 * Target name.
+                 */
+                case 't':
+                {
+                    if (pszTarget)
+                    {
+                        fprintf(stderr, "%s: syntax error: only one target!\n", argv[0]);
+                        return 1;
+                    }
+                    pszTarget = &argv[i][2];
+                    if (!*pszTarget)
+                    {
+                        if (++i >= argc)
+                        {
+                            fprintf(stderr, "%s: syntax error: The '-t' argument is missing the target name.\n", argv[0]);
+                            return 1;
+                        }
+                        pszTarget = argv[i];
+                    }
+                    break;
+                }
+
+                /*
+                 * Exec.
+                 */
+                case 'e':
+                {
+                    if (++i >= argc)
+                    {
+                        fprintf(stderr, "%s: syntax error: The '-e' argument is missing the command.\n", argv[0]);
+                        return 1;
+                    }
+                    iExec = i;
+                    i = argc - 1;
+                    break;
+                }
+
+                /*
+                 * Pipe input.
+                 */
+                case '\0':
+                {
+                    pInput = stdin;
+                    fInput = 1;
+                    break;
+                }
+
+                /*
+                 * Fix case.
+                 */
+                case 'f':
+                {
+                    fFixCase = 1;
+                    break;
+                }
+
+                /*
+                 * Generate stubs.
+                 */
+                case 's':
+                {
+                    fStubs = 1;
+                    break;
+                }
+
+                /*
+                 * The obligatory help and version.
+                 */
+                case 'h':
+                    usage(stdout, argv[0]);
+                    return 0;
+
+                case 'V':
+                    printf("kDepPre - kBuild version %d.%d.%d\n"
+                           "Copyright (C) 2005-2008 knut st. osmundsen\n",
+                           KBUILD_VERSION_MAJOR, KBUILD_VERSION_MINOR, KBUILD_VERSION_PATCH);
+                    return 0;
+
+                /*
+                 * Invalid argument.
+                 */
+                default:
+                    fprintf(stderr, "%s: syntax error: Invalid argument '%s'.\n", argv[0], argv[i]);
+                    return usage(stderr, argv[0]);
+            }
+        }
+        else
+        {
+            pInput = fopen(argv[i], "r");
+            if (!pInput)
+            {
+                fprintf(stderr, "%s: error: Failed to open input file '%s'.\n", argv[0], argv[i]);
+                return 1;
+            }
+            fInput = 1;
+        }
+
+        /*
+         * End of the line?
+         */
+        if (fInput)
+        {
+            if (++i < argc)
+            {
+                fprintf(stderr, "%s: syntax error: No arguments shall follow the input spec.\n", argv[0]);
+                return 1;
+            }
+            break;
+        }
+    }
+
+    /*
+     * Got all we require?
+     */
+    if (!pInput && iExec <= 0)
+    {
+        fprintf(stderr, "%s: syntax error: No input!\n", argv[0]);
+        return 1;
+    }
+    if (!pOutput)
+    {
+        fprintf(stderr, "%s: syntax error: No output!\n", argv[0]);
+        return 1;
+    }
+    if (!pszTarget)
+    {
+        fprintf(stderr, "%s: syntax error: No target!\n", argv[0]);
+        return 1;
+    }
+
+    /*
+     * Spawn process?
+     */
+    if (iExec > 0)
+    {
+        fprintf(stderr, "%s: -e is not yet implemented!\n", argv[0]);
+        return 1;
+    }
+
+    /*
+     * Do the parsing.
+     */
+    depInit(&This);
+    i = ParseCPrecompiler(&This, pInput);
+
+    /*
+     * Reap child.
+     */
+    if (iExec > 0)
+    {
+        /* later */
+    }
+
+    /*
+     * Write the dependecy file.
+     */
+    if (!i)
+    {
+        depOptimize(&This, fFixCase, 0 /* fQuiet */, NULL /*pszIgnoredExt*/);
+        depPrintTargetWithDeps(&This, pOutput, pszTarget, 1 /*fEscapeTarget*/);
+        if (fStubs)
+            depPrintStubs(&This, pOutput);
+    }
+
+    /*
+     * Close the output, delete output on failure.
+     */
+    if (!i && ferror(pOutput))
+    {
+        i = 1;
+        fprintf(stderr, "%s: error: Error writing to '%s'.\n", argv[0], pszOutput);
+    }
+    fclose(pOutput);
+    if (i)
+    {
+        if (unlink(pszOutput))
+            fprintf(stderr, "%s: warning: failed to remove output file '%s' on failure.\n", argv[0], pszOutput);
+    }
+
+    depCleanup(&This);
+
+    return i;
+}
+