20 lines
477 B
Plaintext
Executable File
20 lines
477 B
Plaintext
Executable File
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Name = WScript.Arguments(0)
|
|
Kind = WScript.Arguments(1)
|
|
|
|
IPath = "../template/"&Kind&".cpp"
|
|
OPath = "../crap/"&Kind&"/"&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
|