From f79bb329269f2cdf38d64c371bb23dfe3fe4cd07 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 aed07c6a4d..a136f4b0b6 100644 --- a/crypto/crypto-lib.com +++ b/crypto/crypto-lib.com @@ -387,7 +387,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 $! @@ -471,7 +471,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 $! @@ -498,7 +498,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 25df08bc3a..7303bc4dd1 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.34.1