source-engine-2018-hl2_src/devtools/macros/Perforce.VB

<EFBFBD><EFBFBD>Imports EnvDTE
Imports System.Diagnostics

Public Module Perforce

    Function FindInPath(ByVal exeName As String)
        Dim env = System.Environment.GetEnvironmentVariable("Path")
        Dim Paths = Split(env, ";")
        Dim Element
        Dim p4Filename = ""
        For Each Element In Paths
            If Right(Element, 1) <> "\" And Right(Element, 1) <> "/" Then
                Element = Element + "\"
            End If
            If System.IO.File.Exists(Element + exeName) Then
                Return Element + exeName
            End If
        Next
        FindInPath = ""
    End Function

    Function StripLastDir(ByVal curPath As String)
        Dim testPath = curPath.Replace("/", "\")
        Dim lastIndex = testPath.LastIndexOf("\")
        If lastIndex = -1 Then
            Return ""
        Else
            Return Left(testPath, lastIndex)
        End If
    End Function

    Function EZRunCommand(ByVal exeName As String, ByVal args As String, ByVal p4StartDir As String)
        ' Find the p4 command.
        Dim p4Filename = FindInPath(exeName)
        If p4Filename = "" Then
            MsgBox("Can't find " + exeName + " in path.")
            Return ""
        End If

        ' Run p4 edit <filename>
        Dim p = New System.Diagnostics.Process
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardError = True
        p.StartInfo.Arguments = args
        p.StartInfo.FileName = p4Filename
        p.StartInfo.CreateNoWindow = True
        p.StartInfo.WorkingDirectory = ""
        p.Start()
        Dim outputStr = p.StandardError.ReadToEnd()
        p.WaitForExit()
        If p.ExitCode <> 0 Then
            MsgBox(outputStr)
            Return False
        Else
            Return True
        End If
    End Function

    Sub OutputDebugStr(ByVal str As String)
        Dim win As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)

        ' Create handles to the Output window and its panes.
        Dim OW As OutputWindow = win.Object

        Dim OWp As OutputWindowPane

        ' Add a new pane to the Output window.
        Try
            OWp = OW.OutputWindowPanes.Item("Build")
        Catch e As System.Exception
            OWp = OW.OutputWindowPanes.Add("Build")
        End Try

        ' Add a line of text to the new pane.
        OWp.OutputString(str + System.Environment.NewLine)
    End Sub

    Sub EditCurrentFile()
        If EZRunCommand("p4.exe", "edit " + Chr(34) + ActiveDocument.FullName + Chr(34), ActiveDocument.FullName) Then
            OutputDebugStr(ActiveDocument.FullName + " edited successfully.")
        End If
    End Sub

    Sub AddCurrentFile()
        If EZRunCommand("p4.exe", "add  " + Chr(34) + ActiveDocument.FullName + Chr(34), ActiveDocument.FullName) Then
            OutputDebugStr(ActiveDocument.FullName + " added successfully.")
        End If
    End Sub

    Sub RevertCurrentFile()
        If EZRunCommand("p4.exe", "revert  " + Chr(34) + ActiveDocument.FullName + Chr(34), ActiveDocument.FullName) Then
            OutputDebugStr(ActiveDocument.FullName + " reverted successfully.")
        End If
    End Sub

End Module