unlocal_shlib.com.in 948 B

123456789101112131415161718192021222324252627
  1. ${-
  2. use File::Spec::Functions qw(rel2abs);
  3. my $bldtop = rel2abs($config{builddir});
  4. our %names = ( map { platform->sharedname($_) =>
  5. $bldtop.platform->sharedlib($_) }
  6. grep { !$unified_info{attributes}->{libraries}->{$_}->{noinst} }
  7. @{$unified_info{libraries}} );
  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(",", sort 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