add server bundler

mk-bundle-server.pl: add .c extension if missing

mk-bundle-server.pl: fixup/simplify

tests/Makefile.am

@@ -72,6 +72,7 @@ EXTRA_DIST =        \
  http3-server.pl    \
  memanalyze.pl      \
  mk-bundle-hints.sh \
+ mk-bundle-server.pl \
  mk-bundle.pl       \
  negtelnetserver.py \
  nghttpx.conf       \

tests/mk-bundle-server.pl

@@ -0,0 +1,109 @@
+#!/usr/bin/env perl
+#***************************************************************************
+#                                  _   _ ____  _
+#  Project                     ___| | | |  _ \| |
+#                             / __| | | | |_) | |
+#                            | (__| |_| |  _ <| |___
+#                             \___|\___/|_| \_\_____|
+#
+# Copyright (C) Viktor Szakats
+#
+# This software is licensed as described in the file COPYING, which
+# you should have received as part of this distribution. The terms
+# are also available at https://curl.se/docs/copyright.html.
+#
+# You may opt to use, copy, modify, merge, publish, distribute and/or sell
+# copies of the Software, and permit persons to whom the Software is
+# furnished to do so, under the terms of the COPYING file.
+#
+# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+# KIND, either express or implied.
+#
+# SPDX-License-Identifier: curl
+#
+###########################################################################
+
+# Bundle up individual tests into a single binary. The resulting binary can run
+# individual tests by passing their name (without '.c') as the first argument.
+#
+# Usage: mk-bundle-server.pl [<server_c>]
+
+use strict;
+use warnings;
+
+my @src;
+foreach my $src (@ARGV) {
+    push @src, $src;
+}
+
+print <<HEADER
+/* !checksrc! disable COPYRIGHT all */
+
+#include "first.h"
+HEADER
+    ;
+
+# TODO: Some of these might be subject for de-duplication or sync.
+my @reused_symbols = (
+    "configurable",
+    "configfile",
+    "resetdefaults",
+    "my_port",
+    "config",
+    "prevtestno",
+    "prevpartno",
+    "prevbounce",
+    "serverlogslocked",
+    "storerequest",
+    "httprequest",
+    "incoming",
+    "sockdaemon",
+    "docquit",
+    "ProcessRequest",
+    "socket_type",
+    "get_request",
+    "send_doc",
+    "loghex",
+    "getconfig",
+    "logdir",
+    "use_ipv6",
+    "ipv_inuse",
+    "byteval",
+    "parse_servercmd",
+    );
+
+# TODO: Some of these may be #undef-ed manually at the end of each source
+my @reused_macros = (
+    "DEFAULT_PORT",
+    "REQBUFSIZ",
+    );
+
+my $tlist = "";
+
+foreach my $src (@src) {
+    my $nams = $src;
+
+    # Make common symbols unique across server sources
+    foreach my $symb ("main", @reused_symbols) {
+        print "#undef $symb\n";
+        print "#define $symb ${symb}_$nams\n";
+    }
+    print "int main_$nams(int argc, char **argv);\n";
+    print "#include \"$src.c\"\n";
+
+    # Reset macros re-used by multiple servers
+    foreach my $undef ("main", @reused_macros) {
+        print "#undef $undef\n";
+    }
+
+    print "\n";
+
+    $tlist .= "  { \"$nams\", main_$nams },\n";
+}
+
+print <<FOOTER
+static const struct onemain s_mains[] = {
+$tlist};
+#include "first.c"
+FOOTER
+    ;