file-online-preview/server/libreoffice/share/basic/ScriptForge/SF_Root.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="SF_Root" script:language="StarBasic" script:moduleType="normal">REM =======================================================================================================================
REM ===			The ScriptForge library and its associated libraries are part of the LibreOffice project.				===
REM ===					Full documentation is available on https://help.libreoffice.org/								===
REM =======================================================================================================================

Option Compatible
Option ClassModule
Option Private Module

Option Explicit

&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;
&apos;&apos;&apos;	SF_Root
&apos;&apos;&apos;	=======
&apos;&apos;&apos;		FOR INTERNAL USE ONLY
&apos;&apos;&apos;		Singleton class holding all persistent variables shared
&apos;&apos;&apos;			by all the modules of the ScriptForge library
&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;&apos;

REM ============================================================= PRIVATE MEMBERS

&apos;	Internals
Private [Me]				As Object
Private [_Parent]			As Object
Private ObjectType			As String	&apos; Must be &quot;ROOT&quot;
Private MainFunction		As String	&apos; Name of method or property called by user script
Private MainFunctionArgs	As String	&apos; Syntax of method called by user script
Private StackLevel			As Integer	&apos; Depth of calls between internal methods

&apos;	Error management
Private ErrorHandler		As Boolean	&apos; True = error handling active, False = internal debugging
Private ConsoleLines()		As Variant	&apos; Array of messages displayable in console
Private ConsoleDialog		As Object	&apos; SFDialogs.Dialog object
Private ConsoleControl		As Object	&apos; SFDialogs.DialogControl object
Private DisplayEnabled		As Boolean	&apos; When True, display of console or error messages is allowed
Private StopWhenError		As Boolean	&apos; When True, process stops after error &gt; &quot;WARNING&quot;
Private DebugMode			As Boolean	&apos; When True, log enter/exit each official Sub

&apos;	Services management
Private ServicesList		As Variant	&apos; Dictionary of provided services

&apos;	Usual UNO services
Private FunctionAccess		As Object	&apos; com.sun.star.sheet.FunctionAccess
Private PathSettings		As Object	&apos; com.sun.star.util.PathSettings
Private PathSubstitution	As Object	&apos; com.sun.star.util.PathSubstitution
Private ScriptProvider		As Object	&apos; com.sun.star.script.provider.MasterScriptProviderFactory
Private SystemShellExecute	As Object	&apos; com.sun.star.system.SystemShellExecute
Private CoreReflection		As Object	&apos; com.sun.star.reflection.CoreReflection
Private DispatchHelper		As Object	&apos; com.sun.star.frame.DispatchHelper
Private TextSearch			As Object	&apos; com.sun.star.util.TextSearch
Private SearchOptions		As Object	&apos; com.sun.star.util.SearchOptions
Private Locale				As Object	&apos; com.sun.star.lang.Locale
Private CharacterClass		As Object	&apos; com.sun.star.i18n.CharacterClassification
Private FileAccess			As Object	&apos; com.sun.star.ucb.SimpleFileAccess
Private FilterFactory		As Object	&apos; com.sun.star.document.FilterFactory
Private FolderPicker		As Object	&apos; com.sun.star.ui.dialogs.FolderPicker
Private FilePicker			As Object	&apos; com.sun.star.ui.dialogs.FilePicker
Private URLTransformer		As Object	&apos; com.sun.star.util.URLTransformer
Private Introspection		As Object	&apos; com.sun.star.beans.Introspection
Private BrowseNodeFactory	As Object	&apos; com.sun.star.script.browse.BrowseNodeFactory
Private DatabaseContext		As Object	&apos; com.sun.star.sdb.DatabaseContext
Private ConfigurationProvider _
							As Object	&apos; com.sun.star.configuration.ConfigurationProvider
Private MailService			As Object	&apos; com.sun.star.system.SimpleCommandMail or com.sun.star.system.SimpleSystemMail

&apos;	Specific persistent services objects or properties
Private FileSystemNaming	As String	&apos; If &quot;SYS&quot;, file and folder naming is based on operating system notation
Private PythonHelper		As String	&apos; File name of Python helper functions (stored in $(inst)/share/Scripts/python)
Private Interface			As Object	&apos; ScriptForge own L10N service
Private OSName				As String	&apos; WIN, LINUX, MACOS
Private SFDialogs			As Variant	&apos; Persistent storage for the SFDialogs library

REM ====================================================== CONSTRUCTOR/DESTRUCTOR

REM -----------------------------------------------------------------------------
Private Sub Class_Initialize()
	Set [Me] = Nothing
	Set [_Parent] = Nothing
	ObjectType = &quot;ROOT&quot;
	MainFunction = &quot;&quot;
	MainFunctionArgs = &quot;&quot;
	StackLevel = 0
	ErrorHandler = True
	ConsoleLines = Array()
	Set ConsoleDialog = Nothing
	Set ConsoleControl = Nothing
	DisplayEnabled = True
	StopWhenError = True
	DebugMode = False
	ServicesList = Empty
	Set FunctionAccess = Nothing
	Set PathSettings = Nothing
	Set PathSubstitution = Nothing
	Set ScriptProvider = Nothing
	Set SystemShellExecute = Nothing
	Set CoreReflection = Nothing
	Set DispatchHelper = Nothing
	Set TextSearch = Nothing
	Set SearchOptions = Nothing
	Set Locale = Nothing
	Set CharacterClass = Nothing
	Set FileAccess = Nothing
	Set FilterFactory = Nothing
	Set FolderPicker = Nothing
	Set FilePicker = Nothing
	Set URLTransformer = Nothing
	Set Introspection = Nothing
	FileSystemNaming = &quot;ANY&quot;
	PythonHelper = &quot;ScriptForgeHelper.py&quot;
	Set Interface = Nothing
	Set BrowseNodeFactory = Nothing
	Set DatabaseContext = Nothing
	Set ConfigurationProvider = Nothing
	Set MailService = Nothing
	OSName = &quot;&quot;
	SFDialogs = Empty
End Sub		&apos;	ScriptForge.SF_Root Constructor

REM -----------------------------------------------------------------------------
Private Sub Class_Terminate()
	Call Class_Initialize()
End Sub		&apos;	ScriptForge.SF_Root Destructor

REM -----------------------------------------------------------------------------
Public Function Dispose() As Variant
	Call Class_Terminate()
	Set Dispose = Nothing
End Function	&apos;	ScriptForge.SF_Root Explicit destructor

REM =========================================================== PRIVATE FUNCTIONS

REM -----------------------------------------------------------------------------
Public Sub _AddToConsole(ByVal psLine As String)
&apos;&apos;&apos;	Add a new line to the console
&apos;&apos;&apos;	TAB characters are expanded before the insertion of the line
&apos;&apos;&apos;	NB: Array redimensioning of a member of an object must be done in the class module
&apos;&apos;&apos;	Args:
&apos;&apos;&apos;		psLine: the line to add

Dim lConsole As Long		&apos;	UBound of ConsoleLines
Dim sLine As String			&apos;	Alias of psLine

	&apos;	Resize ConsoleLines
	lConsole = UBound(ConsoleLines)
	If lConsole &lt; 0 Then
		ReDim ConsoleLines(0)
	Else
		ReDim Preserve ConsoleLines(0 To lConsole + 1)
	End If

	&apos;	Add a timestamp to the line and insert it (without date)
	sLine = Mid(SF_Utils._Repr(Now()), 12) &amp; &quot; -&gt; &quot; &amp; psLine
	ConsoleLines(lConsole + 1) = Mid(SF_Utils._Repr(Now()), 12) &amp; &quot; -&gt; &quot; &amp; psLine

	&apos;	Add the new line to the actual (probably non-modal) console, if active
	If Not IsNull(ConsoleDialog) Then
		If ConsoleDialog._IsStillAlive(False) Then	&apos;	False to not raise an error
			If IsNull(ConsoleControl) Then Set ConsoleControl = ConsoleDialog.Controls(SF_Exception.CONSOLENAME)	&apos;	Should not happen ...
			ConsoleControl.WriteLine(sLine)
		End If
	End If

End Sub		&apos;	ScriptForge.SF_Root._AddToConsole

REM -----------------------------------------------------------------------------
Public Sub _LoadLocalizedInterface(Optional ByVal psMode As String)
&apos;&apos;&apos;	Build the user interface in a persistent L10N object
&apos;&apos;&apos;	Executed - only once - at first ScriptForge invocation by a user script
&apos;&apos;&apos;	Args:
&apos;&apos;&apos;		psMode:	ADDTEXT =&gt;	the (english) labels are loaded from code below
&apos;&apos;&apos;				POFILE  =&gt;	the localized labels are loaded from a PO file
&apos;&apos;&apos;							the name of the file is &quot;la.po&quot; where la = language part of locale
&apos;&apos;&apos;							(fallback to ADDTEXT mode if file does not exist)

Dim sInstallFolder As String		&apos;	ScriptForge installation directory
Dim sPOFolder As String				&apos;	Folder containing the PO files
Dim sPOFile As String				&apos;	PO File to load
Dim sLocale As String				&apos;	Locale

	If ErrorHandler Then On Local Error GoTo Catch

Try:
	&apos;TODO: Modify default value
	If IsMissing(psMode) Then psMode = &quot;POFILE&quot;

	If psMode = &quot;POFILE&quot; Then		&apos;	Use this mode in production
		&apos;	Build the po file name
		With SF_FileSystem
			sInstallFolder = ._SFInstallFolder()	&apos;	ScriptForge installation folder
			sLocale = SF_Utils._GetUNOService(&quot;Locale&quot;).Language
			sPOFolder = .BuildPath(sInstallFolder, &quot;po&quot;)
			sPOFile = .BuildPath(sPOFolder, sLocale &amp; &quot;.po&quot;)
			If Not .FileExists(sPOFile) Then	&apos;	File not found =&gt; load texts from code below
				psMode = &quot;ADDTEXT&quot;
			Else
				Set Interface = CreateScriptService(&quot;L10N&quot;, sPOFolder, sLocale)
			End If
		End With
	End If

	If psMode = &quot;ADDTEXT&quot; Then		&apos;	Use this mode in development to prepare a new POT file
		Set Interface = CreateScriptService(&quot;L10N&quot;)
		With Interface
	&apos;	SF_Exception.Raise
			.AddText(	Context := &quot;CLOSEBUTTON&quot; _
						, MsgId := &quot;Close&quot; _
						, Comment := &quot;Text in close buttons of progress and console dialog boxes&quot; _
					)
			.AddText(	Context := &quot;ERRORNUMBER&quot; _
						, MsgId := &quot;Error %1&quot; _
						, Comment := &quot;Title in error message box\n&quot; _
									&amp; &quot;%1: an error number&quot; _
					)
			.AddText(	Context := &quot;ERRORLOCATION&quot; _
						, MsgId := &quot;Location : %1&quot; _
						, Comment := &quot;Error message box\n&quot; _
									&amp; &quot;%1: a line number&quot; _
					)
			.AddText(	Context := &quot;LONGERRORDESC&quot; _
						, MsgId := &quot;Error %1 - Location = %2 - Description = %3&quot; _
						, Comment := &quot;Logfile record&quot; _
					)
			.AddText(	Context := &quot;STOPEXECUTION&quot; _
						, MsgId := &quot;THE EXECUTION IS CANCELLED.&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message&quot; _
					)
	&apos;	SF_Exception.RaiseAbort
			.AddText(	Context := &quot;INTERNALERROR&quot; _
						, MsgId := &quot;The ScriptForge library has crashed. The reason is unknown.\n&quot; _
									&amp; &quot;Maybe a bug that could be reported on\n&quot; _
									&amp; &quot;\thttps://bugs.documentfoundation.org/\n\n&quot; _
									&amp; &quot;More details : \n\n&quot; _
						, Comment :=	&quot;SF_Exception.RaiseAbort error message&quot; _
					)
	&apos;	SF_Utils._Validate
			.AddText(	Context := &quot;VALIDATESOURCE&quot; _
						, MsgId := &quot;Library : \t%1\nService : \t%2\nMethod : \t%3&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: probably ScriptForge\n&quot; _
									&amp;	&quot;%2: service or module name\n&quot; _
									&amp;	&quot;%3: property or method name where the error occurred&quot; _
					)
			.AddText(	Context := &quot;VALIDATEARGS&quot; _
						, MsgId := &quot;Arguments: %1&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: list of arguments of the method&quot; _
					)
			.AddText(	Context := &quot;VALIDATEERROR&quot; _
						, MsgId := &quot;A serious error has been detected in your code on argument : « %1 ».&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name&quot; _
					)
			.AddText(	Context := &quot;VALIDATIONRULES&quot; _
						, MsgId := &quot;\tValidation rules :&quot;, Comment := &quot;SF_Utils.Validate error message&quot; _
					)
			.AddText(	Context := &quot;VALIDATETYPES&quot; _
						, MsgId := &quot;\t\t« %1 » must have next type (or one of next types) : %2&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: Comma separated list of allowed types&quot; _
					)
			.AddText(	Context := &quot;VALIDATEVALUES&quot; _
						, MsgId := &quot;\t\t« %1 » must contain one of next values : %2&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: Comma separated list of allowed values&quot; _
					)
			.AddText(	Context := &quot;VALIDATEREGEX&quot; _
						, MsgId := &quot;\t\t« %1 » must match next regular expression : %2&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: A regular expression&quot; _
					)
			.AddText(	Context := &quot;VALIDATECLASS&quot; _
						, MsgId := &quot;\t\t« %1 » must be a Basic object of class : %2&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: The name of a Basic class&quot; _
					)
			.AddText(	Context := &quot;VALIDATEACTUAL&quot; _
						, MsgId := &quot;The actual value of « %1 » is : &apos;%2&apos;&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: The value of the argument as a string&quot; _
					)
			.AddText(	Context := &quot;VALIDATEMISSING&quot; _
						, MsgId := &quot;The « %1 » argument is mandatory, yet it is missing.&quot; _
						, Comment :=	&quot;SF_Utils._Validate error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name&quot; _
					)
	&apos;	SF_Utils._ValidateArray
			.AddText(	Context := &quot;VALIDATEARRAY&quot; _
						, MsgId := &quot;\t\t« %1 » must be an array.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateArray error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name&quot; _
					)
			.AddText(	Context := &quot;VALIDATEDIMS&quot; _
						, MsgId := &quot;\t\t« %1 » must have exactly %2 dimension(s).&quot; _
						, Comment :=	&quot;SF_Utils._ValidateArray error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: Number of dimensions of the array&quot; _
					)
			.AddText(	Context := &quot;VALIDATEALLTYPES&quot; _
						, MsgId := &quot;\t\t« %1 » must have all elements of the same type : %2&quot; _
						, Comment :=	&quot;SF_Utils._ValidateArray error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;%2: Either one single type or &apos;String, Date, Numeric&apos;&quot; _
					)
			.AddText(	Context := &quot;VALIDATENOTNULL&quot; _
						, MsgId := &quot;\t\t« %1 » must not contain any NULL or EMPTY elements.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateArray error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;NULL and EMPTY should not be translated&quot; _
					)
	&apos;	SF_Utils._ValidateFile
			.AddText(	Context := &quot;VALIDATEFILE&quot; _
						, MsgId := &quot;\t\t« %1 » must be of type String.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateFile error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;&apos;String&apos; should not be translated&quot; _
					)
			.AddText(	Context := &quot;VALIDATEFILESYS&quot; _
						, MsgId := &quot;\t\t« %1 » must be a valid file or folder name expressed in the operating system native notation.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateFile error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name&quot; _
					)
			.AddText(	Context := &quot;VALIDATEFILEURL&quot; _
						, MsgId := &quot;\t\t« %1 » must be a valid file or folder name expressed in the portable URL notation.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateFile error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;&apos;URL&apos; should not be translated&quot; _
					)
			.AddText(	Context := &quot;VALIDATEFILEANY&quot; _
						, MsgId := &quot;\t\t« %1 » must be a valid file or folder name.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateFile error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name&quot; _
					)
			.AddText(	Context := &quot;VALIDATEWILDCARD&quot; _
						, MsgId := &quot;\t\t« %1 » may contain one or more wildcard characters (?, *) in its last path component only.&quot; _
						, Comment :=	&quot;SF_Utils._ValidateFile error message\n&quot; _
									&amp;	&quot;%1: Wrong argument name\n&quot; _
									&amp;	&quot;&apos;(?, *)&apos; is to be left as is&quot; _
					)
	&apos;	SF_Array.RangeInit
			.AddText(	Context := &quot;ARRAYSEQUENCE&quot; _
						, MsgId := &quot;The respective values of &apos;From&apos;, &apos;UpTo&apos; and &apos;ByStep&apos; are incoherent.\n\n&quot; _
									&amp; &quot;\t« From » = %1\n&quot; _
									&amp; &quot;\t« UpTo » = %2\n&quot; _
									&amp; &quot;\t« ByStep » = %3&quot; _
						, Comment :=	&quot;SF_Array.RangeInit error message\n&quot; _
									&amp;	&quot;%1, %2, %3: Numeric values\n&quot; _
									&amp;	&quot;&apos;From&apos;, &apos;UpTo&apos;, &apos;ByStep&apos; should not be translated&quot; _
					)
	&apos;	SF_Array.AppendColumn, AppendRow, PrependColumn, PrependRow
			.AddText(	Context := &quot;ARRAYINSERT&quot; _
						, MsgId := &quot;The array and the vector to insert have incompatible sizes.\n\n&quot; _
									&amp; &quot;\t« Array_2D » = %2\n&quot; _
									&amp; &quot;\t« %1 » = %3&quot; _
						, Comment :=	&quot;SF_Array.AppendColumn (...) error message\n&quot; _
									&amp;	&quot;%1: &apos;Column&apos; or &apos;Row&apos; of a matrix\n&quot; _
									&amp;	&quot;%2, %3: array contents\n&quot; _
									&amp;	&quot;&apos;Array_2D&apos; should not be translated&quot; _
					)
	&apos;	SF_Array.ExtractColumn, ExtractRow
			.AddText(	Context := &quot;ARRAYINDEX1&quot; _
						, MsgId := &quot;The given index does not fit within the bounds of the array.\n\n&quot; _
									&amp; &quot;\t« Array_2D » = %2\n&quot; _
									&amp; &quot;\t« %1 » = %3&quot; _
						, Comment :=	&quot;SF_Array.ExtractColumn (...) error message\n&quot; _
									&amp;	&quot;%1: &apos;Column&apos; or &apos;Row&apos; of a matrix\n&quot; _
									&amp;	&quot;%2, %3: array contents\n&quot; _
									&amp;	&quot;&apos;Array_2D&apos; should not be translated&quot; _
					)
	&apos;	SF_Array.ExtractColumn, ExtractRow
			.AddText(	Context := &quot;ARRAYINDEX2&quot; _
						, MsgId := &quot;The given slice limits do not fit within the bounds of the array.\n\n&quot; _
									&amp; &quot;\t« Array_2D » = %1\n&quot; _
									&amp; &quot;\t« From »     = %2\n&quot; _
									&amp; &quot;\t« UpTo »     = %3&quot; _
						, Comment :=	&quot;SF_Array.ExtractColumn (...) error message\n&quot; _
									&amp;	&quot;%1: &apos;Column&apos; or &apos;Row&apos; of a matrix\n&quot; _
									&amp;	&quot;%2, %3: array contents\n&quot; _
									&amp;	&quot;&apos;Array_2D&apos;, &apos;From&apos; and &apos;UpTo&apos; should not be translated&quot; _
					)
	&apos;	SF_Array.ImportFromCSVFile
			.AddText(	Context := &quot;CSVPARSING&quot; _
						, MsgId := &quot;The given file could not be parsed as a valid CSV file.\n\n&quot; _
									&amp; &quot;\t« File name »   = %1\n&quot; _
									&amp; &quot;\tLine number     = %2\n&quot; _
									&amp; &quot;\tContent         = %3&quot; _
						, Comment :=	&quot;SF_Array.ImportFromCSVFile error message\n&quot; _
									&amp;	&quot;%1: a file name\n&quot; _
									&amp;	&quot;%2: numeric\n&quot; _
									&amp;	&quot;%3: a long string&quot; _
					)
	&apos;	SF_Dictionary.Add/ReplaceKey
			.AddText(	Context := &quot;DUPLICATEKEY&quot; _
						, MsgId := &quot;The insertion of a new key &quot; _
									&amp; &quot;into a dictionary failed because the key already exists.\n&quot; _
									&amp; &quot;Note that the comparison between keys is NOT case-sensitive.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_Dictionary Add/ReplaceKey error message\n&quot; _
									&amp;	&quot;%1: An identifier&quot; _
									&amp;	&quot;%2: a (potentially long) string&quot; _
					)
	&apos;	SF_Dictionary.Remove/ReplaceKey/ReplaceItem
			.AddText(	Context := &quot;UNKNOWNKEY&quot; _
						, MsgId := &quot;The requested key does not exist in the dictionary.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_Dictionary Remove/ReplaceKey/ReplaceItem error message\n&quot; _
									&amp;	&quot;%1: An identifier&quot; _
									&amp;	&quot;%2: a (potentially long) string&quot; _
					)
	&apos;	SF_Dictionary.Add/ReplaceKey
			.AddText(	Context := &quot;INVALIDKEY&quot; _
						, MsgId := &quot;The insertion or the update of an entry &quot; _
									&amp; &quot;into a dictionary failed because the given key contains only spaces.&quot; _
						, Comment :=	&quot;SF_Dictionary Add/ReplaceKey error message\n&quot; _
					)
	&apos;	SF_FileSystem.CopyFile/MoveFile/DeleteFile/CreateScriptService(&quot;L10N&quot;)
			.AddText(	Context := &quot;UNKNOWNFILE&quot; _
						, MsgId := &quot;The given file could not be found on your system.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/delete error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name&quot; _
					)
	&apos;	SF_FileSystem.CopyFolder/MoveFolder/DeleteFolder/Files/SubFolders
			.AddText(	Context := &quot;UNKNOWNFOLDER&quot; _
						, MsgId := &quot;The given folder could not be found on your system.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/delete error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A folder name&quot; _
					)
	&apos;	SF_FileSystem.CopyFile/MoveFolder/DeleteFile
			.AddText(	Context := &quot;NOTAFILE&quot; _
						, MsgId := &quot;« %1 » contains the name of an existing folder, not that of a file.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/delete error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name&quot; _
					)
	&apos;	SF_FileSystem.CopyFolder/MoveFolder/DeleteFolder/Files/SubFolders
			.AddText(	Context := &quot;NOTAFOLDER&quot; _
						, MsgId := &quot;« %1 » contains the name of an existing file, not that of a folder.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/delete error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A folder name&quot; _
					)
	&apos;	SF_FileSystem.Copy+Move/File+Folder/CreateTextFile/OpenTextFile
			.AddText(	Context := &quot;OVERWRITE&quot; _
						, MsgId := &quot;You tried to create a new file which already exists. Overwriting it has been rejected.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/... error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name&quot; _
					)
	&apos;	SF_FileSystem.Copy+Move+Delete/File+Folder
			.AddText(	Context := &quot;READONLY&quot; _
						, MsgId := &quot;Copying or moving a file to a destination which has its read-only attribute set, or deleting such a file or folder is forbidden.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/delete error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name&quot; _
					)
	&apos;	SF_FileSystem.Copy+Move+Delete/File+Folder
			.AddText(	Context := &quot;NOFILEMATCH&quot; _
						, MsgId := &quot;When « %1 » contains wildcards. at least one file or folder must match the given filter. Otherwise the operation is rejected.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem copy/move/delete error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file or folder name with wildcards&quot; _
					)
	&apos;	SF_FileSystem.CreateFolder
			.AddText(	Context := &quot;FOLDERCREATION&quot; _
						, MsgId := &quot;« %1 » contains the name of an existing file or an existing folder. The operation is rejected.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_FileSystem CreateFolder error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file or folder name&quot; _
					)
	&apos;	SF_Services.CreateScriptService
			.AddText(	Context := &quot;UNKNOWNSERVICE&quot; _
						, MsgId := &quot;No service named &apos;%4&apos; has been registered for the library &apos;%3&apos;.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_Services.CreateScriptService error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: A Basic library name\n&quot; _
									&amp;	&quot;%4: A service (1 word) name&quot; _
					)
	&apos;	SF_Services.CreateScriptService
			.AddText(	Context := &quot;SERVICESNOTLOADED&quot; _
						, MsgId := &quot;The library &apos;%3&apos; and its services could not been loaded.\n&quot; _
									&amp; &quot;The reason is unknown.\n&quot; _
									&amp; &quot;However, checking the &apos;%3.SF_Services.RegisterScriptServices()&apos; function and its return value can be a good starting point.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_Services.CreateScriptService error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: A Basic library name&quot; _
					)
	&apos;	SF_Session.ExecuteCalcFunction
			.AddText(	Context := &quot;CALCFUNC&quot; _
						, MsgId := &quot;The Calc &apos;%1&apos; function encountered an error. Either the given function does not exist or its arguments are invalid.&quot; _
						, Comment :=	&quot;SF_Session.ExecuteCalcFunction error message\n&quot; _
									&amp;	&quot;&apos;Calc&apos; should not be translated&quot; _
					)
	&apos;	SF_Session._GetScript
			.AddText(	Context := &quot;NOSCRIPT&quot; _
						, MsgId := &quot;The requested %1 script could not be located in the given libraries and modules.\n&quot; _
									&amp; &quot;« %2 » = %3\n&quot; _
									&amp; &quot;« %4 » = %5&quot; _
						, Comment :=	&quot;SF_Session._GetScript error message\n&quot; _
									&amp;	&quot;%1: &apos;Basic&apos; or &apos;Python&apos;\n&quot; _
									&amp;	&quot;%2: An identifier\n&quot; _
									&amp;	&quot;%3: A string\n&quot; _
									&amp;	&quot;%2: An identifier\n&quot; _
									&amp;	&quot;%3: A string&quot; _
					)
	&apos;	SF_Session.ExecuteBasicScript
			.AddText(	Context := &quot;SCRIPTEXEC&quot; _
						, MsgId := &quot;An exception occurred during the execution of the Basic script.\n&quot; _
									&amp; &quot;Cause: %3\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_Session.ExecuteBasicScript error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: A (long) string&quot; _
					)
	&apos;	SF_Session.SendMail
			.AddText(	Context := &quot;WRONGEMAIL&quot; _
						, MsgId := &quot;One of the email addresses has been found invalid.\n&quot; _
									&amp; &quot;Invalid mail = « %1 »&quot; _
						, Comment :=	&quot;SF_Session.SendMail error message\n&quot; _
									&amp;	&quot;%1 = a mail address&quot; _
					)
	&apos;	SF_Session.SendMail
			.AddText(	Context := &quot;SENDMAIL&quot; _
						, MsgId := &quot;The message could not be sent due to a system error.\n&quot; _
									&amp; &quot;A possible cause is that LibreOffice could not find any mail client.&quot; _
						, Comment :=	&quot;SF_Session.SendMail error message&quot; _
					)
	&apos;	SF_TextStream._IsFileOpen
			.AddText(	Context := &quot;FILENOTOPEN&quot; _
						, MsgId := &quot;The requested file operation could not be executed because the file was closed previously.\n\n&quot; _
									&amp; &quot;File name = &apos;%1&apos;&quot; _
						, Comment :=	&quot;SF_TextStream._IsFileOpen error message\n&quot; _
									&amp;	&quot;%1: A file name&quot; _
					)
	&apos;	SF_TextStream._IsFileOpen
			.AddText(	Context := &quot;FILEOPENMODE&quot; _
						, MsgId := &quot;The requested file operation could not be executed because it is incompatible with the mode in which the file was opened.\n\n&quot; _
									&amp; &quot;File name = &apos;%1&apos;\n&quot; _
									&amp; &quot;Open mode = %2&quot; _
						, Comment :=	&quot;SF_TextStream._IsFileOpen error message\n&quot; _
									&amp;	&quot;%1: A file name\n&quot; _
									&amp;	&quot;%2: READ, WRITE or APPEND&quot; _
					)
	&apos;	SF_UI.Document
			.AddText(	Context := &quot;DOCUMENT&quot; _
						, MsgId := &quot;The requested document could not be found.\n\n&quot; _
									&amp; &quot;%1 = &apos;%2&apos;&quot; _
						, Comment :=	&quot;SF_UI.GetDocument error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string&quot; _
					)
	&apos;	SF_UI.Create
			.AddText(	Context := &quot;DOCUMENTCREATION&quot; _
						, MsgId := &quot;The creation of a new document failed.\n&quot; _
									&amp; &quot;Something must be wrong with some arguments.\n\n&quot; _
									&amp; &quot;Either the document type is unknown, or no template file was given,\n&quot; _
									&amp; &quot;or the given template file was not found on your system.\n\n&quot; _
									&amp; &quot;%1 = &apos;%2&apos;\n&quot; _
									&amp; &quot;%3 = &apos;%4&apos;&quot; _
						, Comment :=	&quot;SF_UI.GetDocument error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A string&quot; _
					)
	&apos;	SF_UI.OpenDocument
			.AddText(	Context := &quot;DOCUMENTOPEN&quot; _
						, MsgId := &quot;The opening of the document failed.\n&quot; _
									&amp; &quot;Something must be wrong with some arguments.\n\n&quot; _
									&amp; &quot;Either the file does not exist, or the password is wrong, or the given filter is invalid.\n\n&quot; _
									&amp; &quot;%1 = &apos;%2&apos;\n&quot; _
									&amp; &quot;%3 = &apos;%4&apos;\n&quot; _
									&amp; &quot;%5 = &apos;%6&apos;&quot; _
						, Comment :=	&quot;SF_UI.OpenDocument error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A string\n&quot; _
									&amp;	&quot;%5: An identifier\n&quot; _
									&amp;	&quot;%6: A string&quot; _
					)
	&apos;	SF_UI.OpenBaseDocument
			.AddText(	Context := &quot;BASEDOCUMENTOPEN&quot; _
						, MsgId := &quot;The opening of the Base document failed.\n&quot; _
									&amp; &quot;Something must be wrong with some arguments.\n\n&quot; _
									&amp; &quot;Either the file does not exist, or the file is not registered under the given name.\n\n&quot; _
									&amp; &quot;%1 = &apos;%2&apos;\n&quot; _
									&amp; &quot;%3 = &apos;%4&apos;&quot; _
						, Comment :=	&quot;SF_UI.OpenDocument error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A string&quot; _
					)
	&apos;	SF_Document._IsStillAlive
			.AddText(	Context := &quot;DOCUMENTDEAD&quot; _
						, MsgId := &quot;The requested action could not be executed because the document was closed inadvertently.\n\n&quot; _
									&amp; &quot;The concerned document is &apos;%1&apos;&quot; _
						, Comment :=	&quot;SF_Document._IsStillAlive error message\n&quot; _
									&amp;	&quot;%1: A file name&quot; _
					)
	&apos;	SF_Document.Save
			.AddText(	Context := &quot;DOCUMENTSAVE&quot; _
						, MsgId := &quot;The document could not be saved.\n&quot; _
									&amp; &quot;Either the document has been opened read-only, or the destination file has a read-only attribute set, &quot; _
									&amp; &quot;or the file where to save to is undefined.\n\n&quot; _
									&amp; &quot;%1 = &apos;%2&apos;&quot; _
						, Comment :=	&quot;SF_Document.SaveAs error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name\n&quot; _
					)
	&apos;	SF_Document.SaveAs
			.AddText(	Context := &quot;DOCUMENTSAVEAS&quot; _
						, MsgId := &quot;The document could not be saved.\n&quot; _
									&amp; &quot;Either the document must not be overwritten, or the destination file has a read-only attribute set, &quot; _
									&amp; &quot;or the given filter is invalid.\n\n&quot; _
									&amp; &quot;%1 = &apos;%2&apos;\n&quot; _
									&amp; &quot;%3 = %4\n&quot; _
									&amp; &quot;%5 = &apos;%6&apos;&quot; _
						, Comment :=	&quot;SF_Document.SaveAs error message\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: True or False\n&quot; _
									&amp;	&quot;%5: An identifier\n&quot; _
									&amp;	&quot;%6: A string&quot; _
					)
	&apos;	SF_Document.any update
			.AddText(	Context := &quot;DOCUMENTREADONLY&quot; _
						, MsgId := &quot;You tried to edit a document which is not modifiable. The document has not been changed.\n\n&quot; _
									&amp; &quot;« %1 » = %2&quot; _
						, Comment :=	&quot;SF_Document any update\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A file name&quot; _
					)
	&apos;	SF_Base.GetDatabase
			.AddText(	Context := &quot;DBCONNECT&quot; _
						, MsgId := &quot;The database related to the actual Base document could not be retrieved.\n&quot; _
									&amp; &quot;Check the connection/login parameters.\n\n&quot; _
									&amp; &quot;« %1 » = &apos;%2&apos;\n&quot; _
									&amp; &quot;« %3 » = &apos;%4&apos;\n&quot; _
									&amp; &quot;« Document » = %5&quot; _
						, Comment :=	&quot;SF_Base GetDatabase\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A user name\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A password\n&quot; _
									&amp;	&quot;%5: A file name&quot; _
					)
	&apos;	SF_Calc._ParseAddress (sheet)
			.AddText(	Context := &quot;CALCADDRESS1&quot; _
						, MsgId := &quot;The given address does not correspond with a valid sheet name.\n\n&quot; _
									&amp; &quot;« %1 » = %2\n&quot; _
									&amp; &quot;« %3 » = %4&quot; _
						, Comment :=	&quot;SF_Calc _ParseAddress (sheet)\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A file name&quot; _
					)
	&apos;	SF_Calc._ParseAddress (range)
			.AddText(	Context := &quot;CALCADDRESS2&quot; _
						, MsgId := &quot;The given address does not correspond with a valid range of cells.\n\n&quot; _
									&amp; &quot;« %1 » = %2\n&quot; _
									&amp; &quot;« %3 » = %4&quot; _
						, Comment :=	&quot;SF_Calc _ParseAddress (range)\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A file name&quot; _
					)
	&apos;	SF_Calc.InsertSheet
			.AddText(	Context := &quot;DUPLICATESHEET&quot; _
						, MsgId := &quot;There exists already in the document a sheet with the same name.\n\n&quot; _
									&amp; &quot;« %1 » = %2\n&quot; _
									&amp; &quot;« %3 » = %4&quot; _
						, Comment :=	&quot;SF_Calc InsertSheet\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A file name&quot; _
					)
	&apos;	SF_Calc.Offset
			.AddText(	Context := &quot;OFFSETADDRESS&quot; _
						, MsgId := &quot;The computed range falls beyond the sheet boundaries or is meaningless.\n\n&quot; _
									&amp; &quot;« %1 » = %2\n&quot; _
									&amp; &quot;« %3 » = %4\n&quot; _
									&amp; &quot;« %5 » = %6\n&quot; _
									&amp; &quot;« %7 » = %8\n&quot; _
									&amp; &quot;« %9 » = %10\n&quot; _
									&amp; &quot;« %11 » = %12&quot; _
						, Comment :=	&quot;SF_Calc Offset\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A Calc reference\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A number\n&quot; _
									&amp;	&quot;%5: An identifier\n&quot; _
									&amp;	&quot;%6: A number\n&quot; _
									&amp;	&quot;%7: An identifier\n&quot; _
									&amp;	&quot;%8: A number\n&quot; _
									&amp;	&quot;%9: An identifier\n&quot; _
									&amp;	&quot;%10: A number\n&quot; _
									&amp;	&quot;%11: An identifier\n&quot; _
									&amp;	&quot;%12: A file name&quot; _
					)
	&apos;	SF_Dialog._NewDialog
			.AddText(	Context := &quot;DIALOGNOTFOUND&quot; _
						, MsgId := &quot;The requested dialog could not be located in the given container or library.\n&quot; _
									&amp; &quot;« %1 » = %2\n&quot; _
									&amp; &quot;« %3 » = %4\n&quot; _
									&amp; &quot;« %5 » = %6\n&quot; _
									&amp; &quot;« %7 » = %8&quot; _
						, Comment :=	&quot;SF_Dialog creation\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: A string\n&quot; _
									&amp;	&quot;%3: An identifier\n&quot; _
									&amp;	&quot;%4: A file name\n&quot; _
									&amp;	&quot;%5: An identifier\n&quot; _
									&amp;	&quot;%6: A string\n&quot; _
									&amp;	&quot;%7: An identifier\n&quot; _
									&amp;	&quot;%8: A string&quot; _
					)
	&apos;	SF_Dialog._IsStillAlive
			.AddText(	Context := &quot;DIALOGDEAD&quot; _
						, MsgId := &quot;The requested action could not be executed because the dialog was closed inadvertently.\n\n&quot; _
									&amp; &quot;The concerned dialog is &apos;%1&apos;.&quot; _
						, Comment :=	&quot;SF_Dialog._IsStillAlive error message\n&quot; _
									&amp;	&quot;%1: An identifier&quot; _
					)
	&apos;	SF_DialogControl._SetProperty
			.AddText(	Context := &quot;CONTROLTYPE&quot; _
						, MsgId := &quot;The control &apos;%1&apos; in dialog &apos;%2&apos; is of type &apos;%3&apos;.\n&quot; _
									&amp; &quot;The property &apos;%4&apos; is not applicable on that type of dialog controls.&quot; _
						, Comment :=	&quot;SF_DialogControl property setting\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: An identifier\n&quot; _
									&amp;	&quot;%3: A string\n&quot; _
									&amp;	&quot;%4: An identifier&quot; _
					)
	&apos;	SF_DialogControl.WriteLine
			.AddText(	Context := &quot;TEXTFIELD&quot; _
						, MsgId := &quot;The control &apos;%1&apos; in dialog &apos;%2&apos; is not a multiline text field.\n&quot; _
									&amp; &quot;The requested method could not be executed.&quot; _
						, Comment :=	&quot;SF_DialogControl add line in textbox\n&quot; _
									&amp;	&quot;%1: An identifier\n&quot; _
									&amp;	&quot;%2: An identifier&quot; _
					)
	&apos;	SF_Database.RunSql
			.AddText(	Context := &quot;DBREADONLY&quot; _
						, MsgId := &quot;The database has been opened in read-only mode.\n&quot; _
									&amp; &quot;The &apos;%1&apos; method must not be executed in this context.&quot; _
						, Comment :=	&quot;SF_Database when running update SQL statement\n&quot; _
									&amp;	&quot;%1: The concerned method&quot; _
					)
	&apos;	SF_Database._ExecuteSql
			.AddText(	Context := &quot;SQLSYNTAX&quot; _
						, MsgId := &quot;An SQL statement could not be interpreted or executed by the database system.\n&quot; _
									&amp; &quot;Check its syntax, table and/or field names, ...\n\n&quot; _
									&amp; &quot;SQL Statement : « %1 »&quot; _
						, Comment :=	&quot;SF_Database can&apos;t interpret SQL statement\n&quot; _
									&amp;	&quot;%1: The statement&quot; _
					)
		End With
	End If

Finally:
	Exit Sub
Catch:
	GoTo Finally
End Sub		&apos;	ScriptForge.SF_Root._LoadLocalizedInterface

REM -----------------------------------------------------------------------------
Public Function _Repr() As String
&apos;&apos;&apos;	Convert the unique SF_Root instance to a readable string, typically for debugging purposes (DebugPrint ...)
&apos;&apos;&apos;	Args:
&apos;&apos;&apos;	Return:
&apos;&apos;&apos;		&quot;[Root] (MainFunction: xxx, Console: yyy lines, ServicesList)&quot;

Dim sRoot As String				&apos;	Return value
Const cstRoot = &quot;[Root] (&quot;

	sRoot = cstRoot &amp; &quot;MainFunction: &quot; &amp; MainFunction &amp; &quot;, Console: &quot; &amp; UBound(ConsoleLines) + 1 &amp; &quot; lines&quot; _
						&amp; &quot;, Libraries:&quot; &amp; SF_Utils._Repr(ServicesList.Keys) _
						&amp; &quot;)&quot;

	_Repr = sRoot

End Function	&apos;	ScriptForge.SF_Root._Repr

REM -----------------------------------------------------------------------------
Public Sub _StackReset()
&apos;&apos;&apos;	Reset private members after a fatal/abort error to leave
&apos;&apos;&apos;	a stable persistent storage after an unwanted interrupt

	MainFunction = &quot;&quot;
	MainFunctionArgs = &quot;&quot;
	StackLevel = 0

End Sub		&apos;		ScriptForge.SF_Root._StackReset

REM ================================================== END OF SCRIPTFORGE.SF_ROOT
</script:module>