q3rally/engine/misc/msvc/glsl_stringify.vbs
zturtleman 866aa787cf ioquake3 resync to 3306 from 1951.
Update to ioquake3 revision 3306 from 1951 of the ioq3 Github repo via subversion. Over 4 years of changes.
2017-07-10 01:33:41 +00:00

18 lines
No EOL
584 B
Text

Dim fso, infile, outfile, line
Set fso = CreateObject("Scripting.FileSystemObject")
Set infile = fso.OpenTextFile(WScript.Arguments(0))
Set outfile = fso.CreateTextFile(WScript.Arguments(1), True)
outfile.WriteLine("const char *fallbackShader_" & fso.GetBaseName(WScript.Arguments(0)) & " =")
While Not infile.AtEndOfStream
line = infile.ReadLine
line = Replace(line, "\", "\\")
line = Replace(line, Chr(9), "\t")
line = Replace(line, Chr(34), "\" & chr(34))
line = Chr(34) & line & "\n" & Chr(34)
outfile.WriteLine(line)
Wend
outfile.WriteLine(";")
infile.Close
outfile.Close