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(version, cur_date, filename)

    18

	FSO.CopyFile filename & ".in", filename

    19

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

    20

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

    21

End Sub

    22

    23

Sub UpdateFiles(version)

    24

	Dim cur_date

    25

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

    26

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

    27

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

    28

End Sub

    29

    30

Function DetermineSVNVersion()

    31

	Dim WshShell, version, url, oExec

    32

	Set WshShell = CreateObject("WScript.Shell")

    33

	On Error Resume Next

    34

    35

	' Try TortoiseSVN

    36

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

    37

	Dim sTortoise

    38

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

    39

    40

	Dim file

    41

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

    42

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

    43

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

    44

	file.WriteLine "$WCURL$"

    45

	file.Close

    46

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

    47

	' Wait till the application is finished ...

    48

	Do

    49

		OExec.StdOut.ReadLine()

    50

	Loop While Not OExec.StdOut.atEndOfStream

    51

    52

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

    53

	version = file.ReadLine

    54

	url = file.ReadLine

    55

	file.Close

    56

    57

	Set file = FSO.GetFile("tsvn_tmp")

    58

	file.Delete

    59

    60

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

    61

	If InStr(version, "$") Then

    62

		' Reset error and version

    63

		Err.Clear

    64

		version = "norev000"

    65

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

    66

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

    67

		If Err.Number = 0 Then

    68

			Dim modified

    69

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

    70

				modified = "M"

    71

			Else

    72

				modified = ""

    73

			End If

    74

    75

			' Set the environment to english

    76

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

    77

    78

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

    79

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

    80

			If Err.Number = 0 Then

    81

				Dim line

    82

				Do

    83

					line = OExec.StdOut.ReadLine()

    84

					If InStr(line, "URL") Then

    85

						url = line

    86

					End If

    87

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

    88

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

    89

					End If

    90

				Loop While Not OExec.StdOut.atEndOfStream

    91

			End If

    92

		End If

    93

	End If

    94

    95

	If version <> "norev000" Then

    96

		If InStr(url, "branches") Then

    97

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

    98

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

    99

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

   100

		End If

   101

	End If

   102

   103

	DetermineSVNVersion = version

   104

End Function

   105

   106

Function IsCachedVersion(version)

   107

	Dim cache_file, cached_version

   108

	cached_version = ""

   109

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

   110

	If Not cache_file.atEndOfStream Then

   111

		cached_version = cache_file.ReadLine()

   112

	End If

   113

	cache_file.Close

   114

   115

	If version <> cached_version Then

   116

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

   117

		cache_file.WriteLine(version)

   118

		cache_file.Close

   119

		IsCachedVersion = False

   120

	Else

   121

		IsCachedVersion = True

   122

	End If

   123

End Function

   124

   125

Dim version

   126

version = DetermineSVNVersion

   127

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

   128

	UpdateFiles version

   129

End If