18 lines
439 B
Text
Executable file
18 lines
439 B
Text
Executable file
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Name = WScript.Arguments(0)
|
|
|
|
IPath = "../template/vst.cpp"
|
|
OPath = "../crap/vst/"&Name&".cpp"
|
|
Inc = "crap/"&Name&".hpp"
|
|
|
|
Set File = FSO.OpenTextFile(IPath)
|
|
Text = File.ReadAll
|
|
File.Close
|
|
|
|
Text = Replace(Text, "//#INCLUDE", "#include """&Inc&"""")
|
|
Text = Replace(Text, "//#REDEFINE", "#define CrapPlug Crap_"&Name)
|
|
|
|
Set File = FSO.CreateTextFile(OPath, True)
|
|
File.Write Text
|
|
File.Close
|