From 802feda7fc1a6dc0878d9f5fc488fb76ebacfefc Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Mon, 16 Jun 2014 13:24:04 +0200 Subject: [PATCH] Spaces were added in some strings for better readability. However, those spaces do not belong in file names, so when picking out the individual parts, remove the spaces Reviewed-by: Tim Hudson --- crypto/crypto-lib.com | 6 +++--- ssl/ssl-lib.com | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/crypto/crypto-lib.com b/crypto/crypto-lib.com index 809bc486c1..6d0799dc7f 100644 --- a/crypto/crypto-lib.com +++ b/crypto/crypto-lib.com @@ -380,7 +380,7 @@ $ MODULE_NEXT: $! $! Extract The Module Name From The Encryption List. $! -$ MODULE_NAME = F$ELEMENT(MODULE_COUNTER,",",ENCRYPT_TYPES) +$ MODULE_NAME = F$EDIT(F$ELEMENT(MODULE_COUNTER,",",ENCRYPT_TYPES),"COLLAPSE") $ IF MODULE_NAME.EQS."Basic" THEN MODULE_NAME = "" $ MODULE_NAME1 = MODULE_NAME $! @@ -464,7 +464,7 @@ $ THEN $! $! O.K, Extract The File Name From The File List. $! -$ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",'LIB_MODULE') +$ FILE_NAME = F$EDIT(F$ELEMENT(FILE_COUNTER,",",'LIB_MODULE'),"COLLAPSE") $! $! else $! @@ -491,7 +491,7 @@ $! SHOW SYMBOL APPLICATION* $! $ IF APPLICATION .NES. ";" $ THEN -$ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",APPLICATION_OBJECTS) +$ FILE_NAME = F$EDIT(F$ELEMENT(FILE_COUNTER,",",APPLICATION_OBJECTS),"COLLAPSE") $ IF FILE_NAME .EQS. "," $ THEN $ APPLICATION = "" diff --git a/ssl/ssl-lib.com b/ssl/ssl-lib.com index 7442e06497..a18d8aec2a 100644 --- a/ssl/ssl-lib.com +++ b/ssl/ssl-lib.com @@ -240,7 +240,7 @@ $ NEXT_FILE: $! $! O.K, Extract The File Name From The File List. $! -$ FILE_NAME = F$ELEMENT(FILE_COUNTER,",",LIB_SSL) +$ FILE_NAME = F$EDIT(F$ELEMENT(FILE_COUNTER,",",LIB_SSL),"COLLAPSE") $! $! Check To See If We Are At The End Of The File List. $! -- 2.25.1