configure.vbs

JAPAN RTOS TOPPERS/JSP kernel 1.4 PreRelease simulation environment JSP kernel Windows simulation

Dim fs
Dim InFile, OutFile
Dim str
Dim cmd
Dim Ws
Dim ccs

Const ForReading = 1, ForWriting = 2, ForAppending = 3

msgbox "TOPPERS/JSP 傪價儖僪偡傞偺偵昁梫側僼傽僀儖傪嶌惉偟傑偡丏"

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile "..\sample\sample1.c", ".\"
fs.copyfile "..\sample\sample1.h", ".\"

Set InFile = fs.OpenTextFile("..\sample\sample1.cfg", ForReading, False)

Set OutFile = fs.OpenTextFile(".\sample1.cfg", ForWriting, True)

While not InFile.AtEndOfStream
	str = InFile.ReadLine
	str = Replace(str,"@(SRCDIR)",  "..\")
	OutFile.WriteLine str
Wend

InFile.Close
OutFile.Close

set Ws = WScript.CreateObject("WScript.Shell")

cmd = "..\..\..\c5400\cgtools\bin\ar500.exe -x ..\..\..\c5400\cgtools\lib\rts.src ldiv.asm udiv.asm lmpy.asm"
Ws.run cmd, 0, true

path = "c:/Program Files/ti/myprojects/jsp"
cmd = "cl /E /D_MACRO_ONLY /EP /I ""../kernel"" /I ""../include"" /I ""../config/tms320c54x"" /I ""../config/tms320c54x/c5402dsk"" sample1.cfg > sample1_i.cfg"
Ws.run "cmd /c" & cmd, 0, true

cmd = "..\cfg\cfg.exe -s sample1_i.cfg  -c -v -lj -obj --ZERO ""x y[1]"""
Ws.run cmd, 0, true

msgbox "惓忢偵廔椆偟傑偟偨"