1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
Const ForReading = 1, ForWriting = 2, ForAppending =8
Dim line, fs, baseName, outFile, depends, shell, srcPrefix
Set depends = CreateObject("Scripting.Dictionary")
Set fs = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject("WScript.Shell")
baseName = WScript.Arguments(0)
If InStr(1, shell.ExpandEnvironmentStrings("%WINRT%"), "yes") Then
baseName = Replace(baseName, "..\", "")
End If
Set outFile = fs.OpenTextFile(".depend.mak", ForAppending, True)
outFile.WriteLine("")
If WScript.Arguments.Count > 1 Then
srcPrefix = WScript.Arguments(1)
Else
srcPrefix = ""
End If
Do While Not WScript.StdIn.AtEndOfStream
line = WScript.StdIn.ReadLine()
line = Trim(line)
line = Replace(line, "..\..\..\..\..\slice", "$(slicedir)")
line = Replace(line, "..\..\..\..\slice", "$(slicedir)")
line = Replace(line, "..\..\..\slice", "$(slicedir)")
line = Replace(line, "..\..\slice", "$(slicedir)")
If len(line) > 0 Then
If InStr(len(line) - 2, line, ": \") Then
outFile.WriteLine(srcPrefix & line)
Else
If InStr(1, line, "$(slicedir)") Then
line = """" & Replace(line, ".ice", ".ice""")
End If
line = " " & line
If Not depends.Exists(line) Then
depends.Add line, ""
outFile.WriteLine(line)
End If
End If
End If
Loop
|
