1

Option Explicit

     2

     3

Dim FSO

     4

Set FSO = CreateObject("Scripting.FileSystemObject")

     5

     6

Sub FindReplaceInFile(filename, to_find, replacement)

     7

	Dim file, data

     8

	Set file = FSO.OpenTextFile(filename, 1, 0, 0)

     9

	data = file.ReadAll

    10

	file.Close

    11

	data = Replace(data, to_find, replacement)

    12

	Set file = FSO.CreateTextFile(FileName, -1, 0)

    13

	file.Write data

    14

	file.Close

    15

End Sub

    16

    17

Sub UpdateFile(revision, version, cur_date, filename)

    18

	FSO.CopyFile filename & ".in", filename

    19

	FindReplaceInFile filename, "@@REVISION@@", revision

    20

	FindReplaceInFile filename, "@@VERSION@@", version

    21

	FindReplaceInFile filename, "@@DATE@@", cur_date

    22

End Sub

    23

    24

Sub UpdateFiles(version)

    25

	Dim WshShell, cur_date, revision, oExec

    26

	Set WshShell = CreateObject("WScript.Shell")

    27

	cur_date = DatePart("D", Date) & "." & DatePart("M", Date) & "." & DatePart("YYYY", Date)

    28

	revision = 0

    29

	Select Case Mid(version, 1, 1)

    30

		Case "r" ' svn

    31

			revision = Mid(version, 2)

    32

			If InStr(revision, "M") Then

    33

				revision = Mid(revision, 1, InStr(revision, "M") - 1)

    34

			End If

    35

			If InStr(revision, "-") Then

    36

				revision = Mid(revision, 1, InStr(revision, "-") - 1)

    37

			End If

    38

		Case "h" ' mercurial (hg)

    39

			Set oExec = WshShell.Exec("hg log -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../src")

    40

			If Err.Number = 0 Then

    41

				revision = Mid(OExec.StdOut.ReadLine(), 7)

    42

				revision = Mid(revision, 1, InStr(revision, ")") - 1)

    43

			End If

    44

		Case "g" ' git

    45

			Set oExec = WshShell.Exec("git log --pretty=format:%s --grep=" & Chr(34) & "^(svn r[0-9]*)" & Chr(34) & " -1 ../src")

    46

			if Err.Number = 0 Then

    47

				revision = Mid(oExec.StdOut.ReadLine(), 7)

    48

				revision = Mid(revision, 1, InStr(revision, ")") - 1)

    49

			End If

    50

	End Select

    51

    52

	UpdateFile revision, version, cur_date, "../src/rev.cpp"

    53

	UpdateFile revision, version, cur_date, "../src/ottdres.rc"

    54

End Sub

    55

    56

Function DetermineSVNVersion()

    57

	Dim WshShell, version, url, oExec, line

    58

	Set WshShell = CreateObject("WScript.Shell")

    59

	On Error Resume Next

    60

    61

	' Try TortoiseSVN

    62

	' Get the directory where TortoiseSVN (should) reside(s)

    63

	Dim sTortoise

    64

	sTortoise = WshShell.RegRead("HKLM\SOFTWARE\TortoiseSVN\Directory")

    65

    66

	Dim file

    67

	' Write some "magic" to a temporary file so we can acquire the svn revision/state

    68

	Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0)

    69

	file.WriteLine "r$WCREV$$WCMODS?M:$"

    70

	file.WriteLine "$WCURL$"

    71

	file.Close

    72

	Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp")

    73

	' Wait till the application is finished ...

    74

	Do

    75

		OExec.StdOut.ReadLine()

    76

	Loop While Not OExec.StdOut.atEndOfStream

    77

    78

	Set file = FSO.OpenTextFile("tsvn_tmp", 1, 0, 0)

    79

	version = file.ReadLine

    80

	url = file.ReadLine

    81

	file.Close

    82

    83

	Set file = FSO.GetFile("tsvn_tmp")

    84

	file.Delete

    85

    86

	' Looks like there is no TortoiseSVN installed either. Then we don't know it.

    87

	If InStr(version, "$") Then

    88

		' Reset error and version

    89

		Err.Clear

    90

		version = "norev000"

    91

		' Do we have subversion installed? Check immediatelly whether we've got a modified WC.

    92

		Set oExec = WshShell.Exec("svnversion ../src")

    93

		If Err.Number = 0 Then

    94

			Dim modified

    95

			If InStr(OExec.StdOut.ReadLine(), "M") Then

    96

				modified = "M"

    97

			Else

    98

				modified = ""

    99

			End If

   100

   101

			' Set the environment to english

   102

			WshShell.Environment("PROCESS")("LANG") = "en"

   103

   104

			' And use svn info to get the correct revision and branch information.

   105

			Set oExec = WshShell.Exec("svn info ../src")

   106

			If Err.Number = 0 Then

   107

				Do

   108

					line = OExec.StdOut.ReadLine()

   109

					If InStr(line, "URL") Then

   110

						url = line

   111

					End If

   112

					If InStr(line, "Last Changed Rev") Then

   113

						version = "r" & Mid(line, 19) & modified

   114

					End If

   115

				Loop While Not OExec.StdOut.atEndOfStream

   116

			End If

   117

		End If

   118

	End If

   119

   120

	If version <> "norev000" Then

   121

		If InStr(url, "branches") Then

   122

			url = Mid(url, InStr(url, "branches") + 8)

   123

			url = Mid(url, 1, InStr(2, url, "/") - 1)

   124

			version = version & Replace(url, "/", "-")

   125

		End If

   126

	Else

   127

		' svn detection failed, reset error and try git

   128

		Err.Clear

   129

		Set oExec = WshShell.Exec("git rev-parse --verify --short=8 HEAD")

   130

		If Err.Number = 0 Then

   131

			version = "g" & oExec.StdOut.ReadLine()

   132

			Set oExec = WshShell.Exec("git diff-index --exit-code --quiet HEAD ../src")

   133

			Do While oExec.Status = 0 And Err.Number = 0

   134

			Loop

   135

			If Err.Number = 0 And oExec.ExitCode = 1 Then

   136

				version = version & "M"

   137

			End If

   138

   139

			Set oExec = WshShell.Exec("git symbolic-ref HEAD")

   140

			If Err.Number = 0 Then

   141

				line = oExec.StdOut.ReadLine()

   142

				line = Mid(line, InStrRev(line, "/")+1)

   143

				If line <> "master" Then

   144

					version = version & "-" & line

   145

				End If

   146

			End If

   147

		Else

   148

			' try mercurial (hg)

   149

			Err.Clear

   150

			Set oExec = WshShell.Exec("hg tip")

   151

			If Err.Number = 0 Then

   152

				version = "h" & Mid(OExec.StdOut.ReadLine(), 19, 8)

   153

				Set oExec = WshShell.Exec("hg status ../src")

   154

				If Err.Number = 0 Then

   155

					Do

   156

						line = OExec.StdOut.ReadLine()

   157

						If Mid(line, 1, 1) <> "?" Then

   158

							version = version & "M"

   159

							Exit Do

   160

						End If

   161

					Loop While Not OExec.StdOut.atEndOfStream

   162

				End If

   163

				Set oExec = WshShell.Exec("hg branch")

   164

				If Err.Number = 0 Then

   165

						line = OExec.StdOut.ReadLine()

   166

						If line <> "default" Then

   167

							version = version & "-" & line

   168

						End If

   169

				End If

   170

			End If

   171

		End If

   172

	End If

   173

   174

	DetermineSVNVersion = version

   175

End Function

   176

   177

Function IsCachedVersion(version)

   178

	Dim cache_file, cached_version

   179

	cached_version = ""

   180

	Set cache_file = FSO.OpenTextFile("../config.cache.version", 1, True, 0)

   181

	If Not cache_file.atEndOfStream Then

   182

		cached_version = cache_file.ReadLine()

   183

	End If

   184

	cache_file.Close

   185

   186

	If version <> cached_version Then

   187

		Set cache_file = fso.CreateTextFile("../config.cache.version", True)

   188

		cache_file.WriteLine(version)

   189

		cache_file.Close

   190

		IsCachedVersion = False

   191

	Else

   192

		IsCachedVersion = True

   193

	End If

   194

End Function

   195

   196

Dim version

   197

version = DetermineSVNVersion

   198

If Not (IsCachedVersion(version) And FSO.FileExists("../src/rev.cpp") And FSO.FileExists("../src/ottdres.rc")) Then

   199

	UpdateFiles version

   200

End If