1e1051a39Sopenharmony_ci${-
2e1051a39Sopenharmony_ci  use File::Spec::Functions qw(rel2abs);
3e1051a39Sopenharmony_ci
4e1051a39Sopenharmony_ci  my $bldtop = rel2abs($config{builddir});
5e1051a39Sopenharmony_ci  our %names = ( map { platform->sharedname($_) =>
6e1051a39Sopenharmony_ci                           $bldtop.platform->sharedlib($_) }
7e1051a39Sopenharmony_ci                 grep { !$unified_info{attributes}->{libraries}->{$_}->{noinst} }
8e1051a39Sopenharmony_ci                 @{$unified_info{libraries}} );
9e1051a39Sopenharmony_ci  "" -}
10e1051a39Sopenharmony_ci$       ! Create a local environment with the shared library logical names
11e1051a39Sopenharmony_ci$       ! properly set.  Undo this with unlocal_shlib.com
12e1051a39Sopenharmony_ci$
13e1051a39Sopenharmony_ci$       OPENSSL_NAMES := OPENSSL_NAMES_'F$GETJPI("","PID")'
14e1051a39Sopenharmony_ci$       CREATE/NAME_TABLE/PARENT_TABLE=LNM$PROCESS_DIRECTORY 'OPENSSL_NAMES'
15e1051a39Sopenharmony_ci$       DEFINE/TABLE='OPENSSL_NAMES' OSSL_FLAG YES
16e1051a39Sopenharmony_ci$
17e1051a39Sopenharmony_ci$       NAMES := {- join(",", keys %names); -}
18e1051a39Sopenharmony_ci{-
19e1051a39Sopenharmony_ci  join("\n", map { "\$       __$_ = \"".$names{$_}."\"" } sort keys %names);
20e1051a39Sopenharmony_ci-}      
21e1051a39Sopenharmony_ci$       I = 0
22e1051a39Sopenharmony_ci$       LOOP:
23e1051a39Sopenharmony_ci$           E = F$ELEMENT(I,",",NAMES)
24e1051a39Sopenharmony_ci$           I = I + 1
25e1051a39Sopenharmony_ci$           IF E .EQS. "," THEN GOTO ENDLOOP
26e1051a39Sopenharmony_ci$           EV = __'E'
27e1051a39Sopenharmony_ci$           OLDV = F$TRNLNM(E,"LNM$PROCESS")
28e1051a39Sopenharmony_ci$           IF OLDV .NES. "" THEN DEFINE/TABLE='OPENSSL_NAMES' 'E' 'OLDV'
29e1051a39Sopenharmony_ci$           DEFINE 'E' 'EV'
30e1051a39Sopenharmony_ci$           GOTO LOOP
31e1051a39Sopenharmony_ci$       ENDLOOP:
32