[thirdparty/openssl.git] / util / unlocal_shlib.com.in

${-
  use File::Spec::Functions qw(rel2abs);

  my $bldtop = rel2abs($config{builddir});
  our %names = ( map { $_ => $bldtop.$_.".EXE" }
                 map { $unified_info{sharednames}->{$_} || () }
                 @{$unified_info{libraries}} );
  "" -}
$       ! Remove the local environment created by local_shlib.com
$
$       OPENSSL_NAMES := OPENSSL_NAMES_'F$GETJPI("","PID")'
$       IF F$TRNLNM("OSSL_FLAG",OPENSSL_NAMES) .EQS. "" THEN EXIT 0
$
$       NAMES := {- join(",", keys %names); -}
$       I = 0
$       LOOP:
$           E = F$ELEMENT(I,",",NAMES)
$           I = I + 1
$           IF E .EQS. "," THEN GOTO ENDLOOP
$           OLDV = F$TRNLNM(E,OPENSSL_NAMES)
$           DEASSIGN 'E'
$           IF OLDV .NES. "" THEN DEFINE 'E' 'OLDV'
$           GOTO LOOP
$       ENDLOOP:
$
$       DEASSIGN 'OPENSSL_NAMES' /TABLE=LNM$PROCESS_DIRECTORY
Commit	Line	Data
a74db02a RL	1	${-
	2	use File::Spec::Functions qw(rel2abs);
	3
	4	my $bldtop = rel2abs($config{builddir});
1ae4c07e RL	5	our %names = ( map { $_ => $bldtop.$_.".EXE" }
	6	map { $unified_info{sharednames}->{$_} \|\| () }
	7	@{$unified_info{libraries}} );
a74db02a RL	8	"" -}
	9	$ ! Remove the local environment created by local_shlib.com
	10	$
	11	$ OPENSSL_NAMES := OPENSSL_NAMES_'F$GETJPI("","PID")'
	12	$ IF F$TRNLNM("OSSL_FLAG",OPENSSL_NAMES) .EQS. "" THEN EXIT 0
	13	$
	14	$ NAMES := {- join(",", keys %names); -}
	15	$ I = 0
	16	$ LOOP:
	17	$ E = F$ELEMENT(I,",",NAMES)
	18	$ I = I + 1
	19	$ IF E .EQS. "," THEN GOTO ENDLOOP
	20	$ OLDV = F$TRNLNM(E,OPENSSL_NAMES)
	21	$ DEASSIGN 'E'
	22	$ IF OLDV .NES. "" THEN DEFINE 'E' 'OLDV'
	23	$ GOTO LOOP
	24	$ ENDLOOP:
	25	$
	26	$ DEASSIGN 'OPENSSL_NAMES' /TABLE=LNM$PROCESS_DIRECTORY