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$       ! Remove the local environment created by local_shlib.com
11e1051a39Sopenharmony_ci$
12e1051a39Sopenharmony_ci$       OPENSSL_NAMES := OPENSSL_NAMES_'F$GETJPI("","PID")'
13e1051a39Sopenharmony_ci$       IF F$TRNLNM("OSSL_FLAG",OPENSSL_NAMES) .EQS. "" THEN EXIT 0
14e1051a39Sopenharmony_ci$
15e1051a39Sopenharmony_ci$       NAMES := {- join(",", sort keys %names); -}
16e1051a39Sopenharmony_ci$       I = 0
17e1051a39Sopenharmony_ci$       LOOP:
18e1051a39Sopenharmony_ci$           E = F$ELEMENT(I,",",NAMES)
19e1051a39Sopenharmony_ci$           I = I + 1
20e1051a39Sopenharmony_ci$           IF E .EQS. "," THEN GOTO ENDLOOP
21e1051a39Sopenharmony_ci$           OLDV = F$TRNLNM(E,OPENSSL_NAMES)
22e1051a39Sopenharmony_ci$           DEASSIGN 'E'
23e1051a39Sopenharmony_ci$           IF OLDV .NES. "" THEN DEFINE 'E' 'OLDV'
24e1051a39Sopenharmony_ci$           GOTO LOOP
25e1051a39Sopenharmony_ci$       ENDLOOP:
26e1051a39Sopenharmony_ci$
27e1051a39Sopenharmony_ci$       DEASSIGN 'OPENSSL_NAMES' /TABLE=LNM$PROCESS_DIRECTORY
28