Rev | Line | |
---|
[26] | 1 | Dim fs
|
---|
| 2 | Dim InFile, OutFile
|
---|
| 3 | Dim str
|
---|
| 4 | Dim cmd
|
---|
| 5 | Dim Ws
|
---|
| 6 | Dim ccs
|
---|
| 7 |
|
---|
| 8 | Const ForReading = 1, ForWriting = 2, ForAppending = 3
|
---|
| 9 |
|
---|
| 10 | msgbox "TOPPERS/JSP ããã«ãããã®ã«å¿
|
---|
| 11 | è¦ãªãã¡ã¤ã«ãä½æãã¾ãï¼"
|
---|
| 12 |
|
---|
| 13 | Set fs = CreateObject("Scripting.FileSystemObject")
|
---|
| 14 | fs.copyfile "..\..\sample\sample1.c", ".\"
|
---|
| 15 | fs.copyfile "..\..\sample\sample1.h", ".\"
|
---|
| 16 |
|
---|
| 17 | Set InFile = fs.OpenTextFile("..\..\sample\sample1.cfg", ForReading, False)
|
---|
| 18 |
|
---|
| 19 | Set OutFile = fs.OpenTextFile(".\sample1.cfg", ForWriting, True)
|
---|
| 20 |
|
---|
| 21 | While not InFile.AtEndOfStream
|
---|
| 22 | str = InFile.ReadLine
|
---|
| 23 | str = Replace(str,"@(SRCDIR)", "../../")
|
---|
| 24 | OutFile.WriteLine str
|
---|
| 25 | Wend
|
---|
| 26 |
|
---|
| 27 | InFile.Close
|
---|
| 28 | OutFile.Close
|
---|
| 29 |
|
---|
| 30 | set Ws = WScript.CreateObject("WScript.Shell")
|
---|
| 31 | path = "c:\ti\c5400\cgtools\"
|
---|
| 32 | cmd = """" + path + "bin\ar500.exe"" -x """ + path + "lib\rts.src"" ldiv.asm udiv.asm lmpy.asm"
|
---|
| 33 | Ws.run cmd, 0, true
|
---|
| 34 |
|
---|
| 35 | cmd = "cl /E /D_MACRO_ONLY /EP /I ""../../kernel"" /I ""../../include"" /I ""../../config/tms320c54x"" /I ""../../config/tms320c54x/c5402dsk"" sample1.cfg > sample1_i.cfg"
|
---|
| 36 | Ws.run "cmd /c" & cmd, 0, true
|
---|
| 37 |
|
---|
| 38 | cmd = "..\..\cfg\cfg.exe -s sample1_i.cfg -c -v -lj -obj --ZERO ""x y[1]"""
|
---|
| 39 | Ws.run cmd, 0, true
|
---|
| 40 |
|
---|
| 41 | msgbox "æ£å¸¸ã«çµäºãã¾ãã"
|
---|
| 42 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.