dunestorm/GBM
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated path replacing for #152

Browse Source
This commit is contained in:
MikeMaximus
2018-09-08 08:16:34 -06:00
parent 8800c4ebf4
commit fd6ddd4b85
4 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.gitignore
Vendored
+1 -3
View File
@@ -186,6 +186,4 @@ FakesAssemblies/
GeneratedArtifacts/
_Pvt_Extensions/
ModelManifest.xml
/.vs/slnx.sqlite
/.vs/VSWorkspaceState.json
/.vs/Game Backup Monitor/v15
/.vs
GBM/Classes/clsBackup.vb
+1 -1
View File
@@ -74,7 +74,7 @@
Property RestorePath As String
Get
Return Environment.ExpandEnvironmentVariables(sRestorePath)
Return mgrPath.ReplaceSpecialPaths(sRestorePath)
End Get
Set(value As String)
sRestorePath = mgrPath.ReverseSpecialPaths(value)
GBM/Classes/clsGame.vb
+1 -1
View File
@@ -93,7 +93,7 @@ Public Class clsGame
sPath = mgrPath.ReverseSpecialPaths(value)
End Set
Get
Return Environment.ExpandEnvironmentVariables(sPath)
Return mgrPath.ReplaceSpecialPaths(sPath)
End Get
End Property
GBM/Managers/mgrPath.vb
+6 -9
View File
@@ -334,7 +334,7 @@ Public Class mgrPath
End Sub
Private Shared Function ProcessEnvironmentVariables(ByVal sValue As String) As String
Public Shared Function ReplaceSpecialPaths(ByVal sValue As String) As String
Dim sXdgData As String = "${XDG_DATA_HOME:-~/.local/share}"
Dim sEnvAppDataLocal As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
Dim sXdgConfig As String = "${XDG_CONFIG_HOME:-~/.config}"
@@ -344,11 +344,11 @@ Public Class mgrPath
If mgrCommon.IsUnix Then
'$VAR_iable
Dim oParse As new Regex("\$([a-zA-Z0-9_]+)")
Dim oParse As New Regex("\$([a-zA-Z0-9_]+)")
'${VAR_iable} but not advanced syntax like ${VAR:-iable}
Dim oParseBracketed As new Regex("\$\{([a-zA-Z0-9_]+?)\}")
Dim oParseBracketed As New Regex("\$\{([a-zA-Z0-9_]+?)\}")
'~ not inside ${...}
Dim oParseTilde As new Regex("~(?![^\$\{]*\})")
Dim oParseTilde As New Regex("~(?![^\$\{]*\})")
If sEnvCurrentUser = String.Empty Then
'Fall back
sEnvCurrentUser = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
@@ -361,7 +361,7 @@ Public Class mgrPath
'$HOME to ${HOME}
sValue = oParse.Replace(sValue, "${$1}")
'Special notations for home directory
sValue = oParseTilde.Replace(sValue,"${HOME}")
sValue = oParseTilde.Replace(sValue, "${HOME}")
'XDG Base Directory Specification has default values
sValue = sValue.Replace("${XDG_DATA_HOME}", sXdgData)
sValue = sValue.Replace("${XDG_CONFIG_HOME}", sXdgConfig)
@@ -382,7 +382,7 @@ Public Class mgrPath
If mgrCommon.IsUnix Then
'Transform missing variables back
Dim oParse As new Regex("%([a-zA-Z0-9_]+?)%")
Dim oParse As New Regex("%([a-zA-Z0-9_]+?)%")
sValue = oParse.Replace(sValue, "${$1}")
'Unscape real Windows variables
sValue = sValue.Replace("\%", "%")
@@ -407,9 +407,6 @@ Public Class mgrPath
Dim sEnvCurrentUser As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
Dim oCustomVariable As clsPathVariable
sValue = ProcessEnvironmentVariables(sValue)
For Each oCustomVariable In hshCustomVariables.Values
If sValue.Contains(oCustomVariable.Path) Then
Return sValue.Replace(oCustomVariable.Path, oCustomVariable.FormattedName)