[PATCH 1/7] xap_helper_cxx: do not copy xap_helper.h source

[Eric Wong]

No need to waste memory bandwidth when we can just rely on
the preprocessor to load the header.
---
 lib/PublicInbox/XapHelperCxx.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/lib/PublicInbox/XapHelperCxx.pm b/lib/PublicInbox/XapHelperCxx.pm
index 9e819546..b1deb665 100644
--- a/lib/PublicInbox/XapHelperCxx.pm
+++ b/lib/PublicInbox/XapHelperCxx.pm
@@ -8,7 +8,7 @@
 package PublicInbox::XapHelperCxx;
 use v5.12;
 use PublicInbox::Spawn qw(run_die run_qx which);
-use PublicInbox::IO qw(read_all try_cat write_file);
+use PublicInbox::IO qw(try_cat write_file);
 use PublicInbox::Search;
 use Fcntl qw(SEEK_SET);
 use Config;
@@ -62,11 +62,7 @@ sub build () {
        my ($prog) = ($bin =~ m!/([^/]+)\z!);
        my $lk = PublicInbox::Lock->new("$dir/$prog.lock")->lock_for_scope;
        open my $fh, '>', "$dir/$prog.cpp";
-       for (@srcs) {
-               say $fh qq(# line 1 "$_");
-               open my $rfh, '<', $_;
-               print $fh read_all($rfh);
-       }
+       say $fh qq(# include "$_") for @srcs;
        print $fh PublicInbox::Search::generate_cxx();
        print $fh PublicInbox::CodeSearch::generate_cxx();
        close $fh;
@@ -88,7 +84,7 @@ sub build () {
                                "$1-L$2 -Wl,-rpath=$2$3"/egsx;
        my @xflags = split(' ', "$fl $xflags"); # ' ' awk-mode eats leading WS
        my @cflags = grep(!/\A-(?:Wl|l|L)/, @xflags);
-       run_die([$cxx, '-c', "$prog.cpp", @cflags]);
+       run_die([$cxx, '-c', "$prog.cpp", '-I', $srcpfx, @cflags]);
        run_die([$cxx, '-o', "$prog.tmp", "$prog.o", @xflags]);
        unlink "$prog.cpp", "$prog.o";
        write_file '>', 'XFLAGS.tmp', $xflags, "\n";