gshlib bug using wrong version of sharedmem, and again

[gsh builtin scripts]
* BUG: List unable to list external gambas files correctly, wrong input used
* BUG: List did not detect when writing to file, so added control codes for highlighting - now checks
* BUG: gshlib wrong version of sharedmem after conversion to library

[gsh]
* OPT: Combine both of the required components into the main install process
* BUG: Fix variaous bugs caused by moving shared mem and gb.scripter to builtin libraries
* BUG: CTRL-C enter now exits a block being typed in

[General]

.hidden/CHANGELOG

@@ -4,6 +4,8 @@
 
 * Wed Dec 27 2023 Brian G <[email protected]> 1.6.2
 
+* Wed Dec 27 2023 Brian G <[email protected]> 1.6.2
+
 * Wed Dec 27 2023 Brian G <[email protected]> 1.6.2
 - updated to dynamic use of texthighlight
 

.hidden/subs/gshlib

@@ -17,6 +17,8 @@
 ' Foundation, Inc., 51 Franklin St, Fifth Floor,
 ' Boston, MA  02110-1301  USA
 '
+Class sharedmem
+
 Sub gshlib(...) As Collection  'manage the gsh online library
     '' this allows the user to search and retrieve programs from
     '' the online gsh library

.project

@@ -33,7 +33,7 @@ [email protected]
 Url=https://github.com/justlostintime/GambasShell/wiki
 License=General Public License
 PackageName=gsh-1.6.2
-PackageVersion=4
+PackageVersion=5
 CreateEachDirectory=1
 MimeTypes="gsh","/usr/bin/env gsh"
 RuntimeVersion="3.18"

.src/SubCls.module

@@ -353,6 +353,7 @@ Private Sub ProcessLibrary(LibName As String) As String
       LibEntry = LibEntry & ":" & sSplitLine[1]
     Else
       LibEntry = CheckLibVersions(LibEntry, sSplitLine[1])
+
       If LibEntry = "" Then
         LibEntry = "/usr/lib/gambas" & System.version &/ sSplitLine[0]
         If Exist(LibEntry & ":" & sSplitLine[1] & ".gambas") Then
@@ -380,6 +381,9 @@ Private Sub CheckLibVersions(sPath As String, Version As String) As String
 
   If sVersion.count > 0 Then
     Dim sDir As String = File.Dir(sPath)
+    If Not Exist(sDir) Then
+      Return ""
+    Endif
     Dim sName As String = File.Name(sPath) & ":" & sVersion[0] & ".*" & ".gambas"
     Dim sEntries As String[] = Dir(sDir, sName, gb.file).Sort()
     If sEntries.count > 0 Then