1 files changed, 236 insertions, 0 deletions
diff --git a/src/VBox/Main/webservice/split-soapC.cpp b/src/VBox/Main/webservice/split-soapC.cpp
new file mode 100644
index 00000000..eb566124
--- /dev/null
+++ b/src/VBox/Main/webservice/split-soapC.cpp
@@ -0,0 +1,236 @@
+/* $Id: split-soapC.cpp $ */
+/** @file
+ * Splits soapC.cpp and soapH-noinline.cpp into more manageable portions.
+ */
+
+/*
+ * Copyright (C) 2009-2023 Oracle and/or its affiliates.
+ *
+ * This file is part of VirtualBox base platform packages, as
+ * available from https://www.virtualbox.org.
+ *
+ * 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, in version 3 of the
+ * License.
+ *
+ * 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, see <https://www.gnu.org/licenses>.
+ *
+ * SPDX-License-Identifier: GPL-3.0-only
+ */
+
+
+/*********************************************************************************************************************************
+*   Header Files                                                                                                                 *
+*********************************************************************************************************************************/
+#include <iprt/types.h>
+#include <iprt/path.h>
+#include <sys/types.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <limits.h>
+
+
+static char *readfileIntoBuffer(const char *pszFile, size_t *pcbFile)
+{
+    FILE *pFileIn = fopen(pszFile, "rb");
+    if (pFileIn)
+    {
+        int iRc2 = fseek(pFileIn, 0, SEEK_END);
+        long cbFileIn = ftell(pFileIn);
+        int iRc3 = fseek(pFileIn, 0, SEEK_SET);
+        if (iRc3 != -1 && iRc2 != -1 && cbFileIn >= 0)
+        {
+            char *pBuffer = (char *)malloc(cbFileIn + 1);
+            if (pBuffer)
+            {
+                size_t cbRead = fread(pBuffer, 1, cbFileIn, pFileIn);
+                if (cbRead == (size_t)cbFileIn)
+                {
+                    pBuffer[cbFileIn] = '\0';
+                    fclose(pFileIn);
+                    *pcbFile = (size_t)cbFileIn;
+                    return pBuffer;
+                }
+
+                fprintf(stderr, "split-soapC: Failed to read %ld bytes from input file.\n", cbFileIn);
+                free(pBuffer);
+            }
+            else
+                fprintf(stderr, "split-soapC: Failed to allocate %ld bytes.\n", cbFileIn);
+        }
+        else
+            fprintf(stderr, "split-soapC: Seek failure.\n");
+        fclose(pFileIn);
+    }
+    else
+        fprintf(stderr, "split-soapC: Cannot open file \"%s\" for reading.\n", pszFile);
+    return NULL;
+}
+
+
+int main(int argc, char *argv[])
+{
+    /*
+     * Check argument count.
+     */
+    if (argc != 4)
+    {
+        fprintf(stderr, "split-soapC: Must be started with exactly four arguments,\n"
+                        "1) the input file, 2) the output filename prefix and\n"
+                        "3) the number chunks to create.");
+        return RTEXITCODE_SYNTAX;
+    }
+
+    /*
+     * Number of chunks (argv[3]).
+     */
+    char *pszEnd = NULL;
+    unsigned long cChunks = strtoul(argv[3], &pszEnd, 0);
+    if (cChunks == ULONG_MAX || cChunks == 0 || !argv[3] || *pszEnd)
+    {
+        fprintf(stderr, "split-soapC: Given argument \"%s\" is not a valid chunk count.\n", argv[3]);
+        return RTEXITCODE_SYNTAX;
+    }
+
+    /*
+     * Read the input file into a zero terminated memory buffer.
+     */
+    size_t cbFileIn;
+    char *pszBuffer = readfileIntoBuffer(argv[1], &cbFileIn);
+    if (!pszBuffer)
+        return RTEXITCODE_FAILURE;
+
+    /*
+     * Split the file.
+     */
+    RTEXITCODE    rcExit = RTEXITCODE_SUCCESS;
+    FILE         *pFileOut = NULL;
+    const char   *pszLine = pszBuffer;
+    size_t        cbChunk = cbFileIn / cChunks;
+    unsigned long cFiles = 0;
+    size_t        cbLimit = 0;
+    size_t        cbWritten = 0;
+    unsigned long cIfNesting = 0;
+    unsigned long cWarningNesting = 0;
+    unsigned long cBraceNesting = 0;
+    unsigned long cLinesSinceStaticMap = ~0UL / 2;
+    bool          fJustZero = false;
+
+    do
+    {
+        if (!pFileOut)
+        {
+            /* construct output filename */
+            char szFilename[1024];
+            sprintf(szFilename, "%s%lu.cpp", argv[2], ++cFiles);
+            szFilename[sizeof(szFilename)-1] = '\0';
+
+            size_t offName = strlen(szFilename);
+            while (offName > 0 && !RTPATH_IS_SEP(szFilename[offName - 1]))
+                offName -= 1;
+            printf("info: %s\n", &szFilename[offName]);
+
+            /* create output file */
+            pFileOut = fopen(szFilename, "wb");
+            if (!pFileOut)
+            {
+                fprintf(stderr, "split-soapC: Failed to open file \"%s\" for writing\n", szFilename);
+                rcExit = RTEXITCODE_FAILURE;
+                break;
+            }
+            if (cFiles > 1)
+                fprintf(pFileOut, "#include \"soapH.h\"%s\n",
+#ifdef RT_OS_WINDOWS
+                                  "\r"
+#else
+                                  ""
+#endif
+                       );
+            cbLimit += cbChunk;
+            cLinesSinceStaticMap = ~0UL / 2;
+        }
+
+        /* find begin of next line and print current line */
+        const char *pszNextLine = strchr(pszLine, '\n');
+        size_t cbLine;
+        if (pszNextLine)
+        {
+            pszNextLine++;
+            cbLine = pszNextLine - pszLine;
+        }
+        else
+            cbLine = strlen(pszLine);
+        if (fwrite(pszLine, 1, cbLine, pFileOut) != cbLine)
+        {
+            fprintf(stderr, "split-soapC: Failed to write to output file\n");
+            rcExit = RTEXITCODE_FAILURE;
+            break;
+        }
+        cbWritten += cbLine;
+
+        /* process nesting depth information */
+        if (!strncmp(pszLine, "#if", 3))
+            cIfNesting++;
+        else if (!strncmp(pszLine, "#endif", 6))
+        {
+            cIfNesting--;
+            if (!cBraceNesting && !cIfNesting)
+                fJustZero = true;
+        }
+        else if (!strncmp(pszLine, RT_STR_TUPLE("#pragma warning(push)")))
+            cWarningNesting++;
+        else if (!strncmp(pszLine, RT_STR_TUPLE("#pragma warning(pop)")))
+            cWarningNesting--;
+        else
+        {
+            for (const char *p = pszLine; p < pszLine + cbLine; p++)
+            {
+                if (*p == '{')
+                    cBraceNesting++;
+                else if (*p == '}')
+                {
+                    cBraceNesting--;
+                    if (!cBraceNesting && !cIfNesting)
+                        fJustZero = true;
+                }
+            }
+        }
+
+        /* look for static variables used for enum conversion. */
+        if (!strncmp(pszLine, "static const struct soap_code_map", sizeof("static const struct soap_code_map") - 1))
+            cLinesSinceStaticMap = 0;
+        else
+            cLinesSinceStaticMap++;
+
+        /* start a new output file if necessary and possible */
+        if (   cbWritten >= cbLimit
+            && cIfNesting == 0
+            && cWarningNesting == 0
+            && fJustZero
+            && cFiles < cChunks
+            && cLinesSinceStaticMap > 150 /*hack!*/)
+        {
+            fclose(pFileOut);
+            pFileOut = NULL;
+        }
+
+        fJustZero = false;
+        pszLine = pszNextLine;
+    } while (pszLine);
+
+    printf("split-soapC: Created %lu files.\n", (unsigned long)cFiles);
+
+    free(pszBuffer);
+    if (pFileOut)
+        fclose(pFileOut);
+
+    return rcExit;
+}