Build files: parametrize cpp

[openssl.git] / Configurations / descrip.mms.tmpl

diff --git a/Configurations/descrip.mms.tmpl b/Configurations/descrip.mms.tmpl
index bfeee77cf6e30fe4ec45f4b82634d93d45b3c5e6..84008ee6419d7643df5b62533b8dd89718d45d49 100644 (file)
--- a/Configurations/descrip.mms.tmpl
+++ b/Configurations/descrip.mms.tmpl
@@ -172,12 +172,16 @@ OPENSSLDIR_C={- $osslprefix -}DATAROOT:[000000]
 ENGINESDIR_C={- $osslprefix -}ENGINES{- $sover_dirname.$target{pointer_size} -}:
 
 CC= {- $config{cc} -}
+CPP= {- $config{cpp} -}
 DEFINES={- our $defines = join(",",
                                '__dummy', # To make comma processing easier
                                @{$config{defines}}) -}
+INCLUDES={- our $includes = join(',', @{$config{includes}}) -}
 CPPFLAGS={- our $cppflags = join('', @{$config{cppflags}}) -}
-CPPFLAGS_Q={- $cppflags =~ s|"|""|g; $defines =~ s|"|""|g;
-              $cppflags."/DEFINE($defines)" -}
+CPPFLAGS_Q={- (my $x = $cppflags) =~ s|"|""|g; $defines =~ s|"|""|g;
+              $x .= "/DEFINE=($defines)";
+              $x .= "/INCLUDE=($includes)" if $includes;
+              $x; -}
 CFLAGS={- join('', @{$config{cflags}}) -}
 LDFLAGS= {- join('', @{$config{lflags}}) -}
 EX_LIBS= {- join('', map { ','.$_ } @{$config{ex_libs}}) -}
@@ -635,26 +639,39 @@ EOF
                    dso => '$(DSO_DEFINES)',
                    bin => '$(BIN_DEFINES)' } -> {$args{intent}};
       $cflags .= '/DEFINE=('.$defines.')';
+      $cflags .= "/INCLUDE=('tmp_includes')";
       
-      my $incs_on = "\@ !";
-      my $incs_off = "\@ !";
-      my $incs = "";
-      my @incs = ();
-      push @incs, @{$args{incs}} if @{$args{incs}};
-      unless ($disabled{zlib}) {
-          # GNV$ZLIB_INCLUDE is the standard logical name for later zlib
-          # incarnations.
-          push @incs, ($withargs{zlib_include} || 'GNV$ZLIB_INCLUDE:');
-      }
-      if (@incs) {
+      # We create a logical name TMP_INCLUDES: to hold the list of internal
+      # includes.  However, we cannot use it directly, as logical names can't
+      # hold zero entries, so we also create a symbol with the same name and
+      # use that instead, see the '/INCLUDE=' assignment above.  If there are
+      # no internal include directories, it will simply be the empty string,
+      # but if there are, it will be assigned "TMP_DEFINES:,"
+      my $xtraincludes = { lib => '$(LIB_INCLUDES)',
+                           dso => '$(DSO_INCLUDES)',
+                           bin => '$(BIN_INCLUDES)' } -> {$args{intent}};
+      my $incs_add =
+          'IF tmp_add .NES. "" .AND. tmp_includes .NES. "" THEN tmp_includes = "," + tmp_includes'
+          ."\n\t".'tmp_includes = tmp_add + tmp_includes';
+      my $incs_on = 'tmp_includes := '
+          ."\n\t"."tmp_add := $xtraincludes"
+          ."\n\t".$incs_add
+          ."\n\t".'tmp_add := $(INCLUDES)'
+          ."\n\t".$incs_add;
+      my $incs_off = 'DELETE/SYMBOL/LOCAL tmp_includes'
+          ."\n\t".'DELETE/SYMBOL/LOCAL tmp_add';
+      if (@{$args{incs}}) {
           $incs_on =
-              "DEFINE tmp_includes "
+              'DEFINE tmp_includes '
               .join(",-\n\t\t\t", map {
                                       file_name_is_absolute($_)
                                       ? $_ : catdir($backward,$_)
-                                  } @incs);
-          $incs_off = "DEASSIGN tmp_includes";
-          $incs = " /INCLUDE=(tmp_includes:)";
+                                  } @{$args{incs}})
+              ."\n\t".$incs_on
+              ."\n\t".'IF tmp_includes .NES. "" THEN tmp_includes = "," + tmp_includes'
+              ."\n\t".'tmp_includes = "tmp_includes:" + tmp_includes';
+          $incs_off .=
+              "\n\t".'DEASSIGN tmp_includes';
       }
       my $before = $unified_info{before}->{$obj.".OBJ"} || "\@ !";
       my $after = $unified_info{after}->{$obj.".OBJ"} || "\@ !";
@@ -666,7 +683,7 @@ $obj.OBJ : $deps
         ${before}
         SET DEFAULT $forward
         $incs_on
-        \$(CC) ${cflags}${incs}${depbuild} /OBJECT=${objd}${objn}.OBJ /REPOSITORY=$backward $srcs
+        \$(CC) ${cflags}${depbuild} /OBJECT=${objd}${objn}.OBJ /REPOSITORY=$backward $srcs
         $incs_off
         SET DEFAULT $backward
         ${after}