mirror of https://github.com/axmolengine/axmol.git
78 lines
2.5 KiB
Plaintext
78 lines
2.5 KiB
Plaintext
set fso = Wscript.CreateObject("Scripting.FileSystemObject")
|
|
|
|
dim szPrompt, msgRet
|
|
szPrompt = "Prompt"
|
|
|
|
function ReplaceFileContent(fileName, oldStr, newStr)
|
|
set f = fso.opentextfile(fileName)
|
|
s = replace(f.readall, oldStr, newStr)
|
|
f.close
|
|
set r = fso.opentextfile(fileName, 2, true)
|
|
r.write s
|
|
end function
|
|
|
|
function CopyFolder(srcFolder, desFolder)
|
|
if (fso.FolderExists(desFolder)) then
|
|
'msgbox("none:"+srcFolder+":"+desFolder)
|
|
'If the desFolder exist, do nothing.
|
|
else
|
|
CopyFolder = fso.CopyFolder(srcFolder, desFolder)
|
|
end if
|
|
end function
|
|
|
|
function ConfigureProject()
|
|
dim szProjectName
|
|
szProjectName = Inputbox("Please Input Project Name:", szPrompt)
|
|
|
|
if szProjectName = "" then
|
|
Wscript.quit
|
|
end if
|
|
|
|
if (0 = strcomp(szProjectName, "HelloWorld", 1) or 0 = strcomp(szProjectName, "tests", 1)) then
|
|
msgRet = msgbox("Can not create a project named with "+szProjectName+", Please input again!", 1, szPrompt)
|
|
if (msgRet = 1) then
|
|
call ConfigureProject
|
|
end if
|
|
Wscript.quit
|
|
end if
|
|
|
|
if (fso.FolderExists(szProjectName)) then
|
|
else
|
|
fso.CreateFolder(szProjectName)
|
|
end if
|
|
|
|
dim qnxFolder
|
|
qnxFolder = szProjectName + "\qnx"
|
|
if (fso.FolderExists(qnxFolder)) then
|
|
msgRet = msgbox("The '"+szProjectName+"' project exists, can't override! Please input again!", 1, szPrompt)
|
|
if (msgRet = 1) then
|
|
call ConfigureProject
|
|
end if
|
|
Wcript.quit
|
|
end if
|
|
|
|
dim szSrcClass, szSrcQnx, szSrcResource
|
|
dim szDesClass, szDesQnx, szDesResource
|
|
|
|
szSrcClass = "HelloWorld\Classes"
|
|
szSrcQnx = "HelloWorld\qnx"
|
|
szSrcResource = "HelloWorld\Resource"
|
|
|
|
szDesClass = szProjectName+"\Classes"
|
|
szDesQnx = szProjectName+"\qnx"
|
|
szDesResource = szProjectName+"\Resource"
|
|
|
|
call CopyFolder(szSrcClass, szDesClass)
|
|
call CopyFolder(szSrcQnx, szDesQnx)
|
|
call CopyFolder(szSrcResource, szDesResource)
|
|
|
|
call ReplaceFileContent(szProjectName+"\qnx\bar-descriptor.xml", "HelloWorld", szProjectName)
|
|
call ReplaceFileContent(szProjectName+"\qnx\.project", "HelloWorld", szProjectName)
|
|
call ReplaceFileContent(szProjectName+"\qnx\.cproject", "HelloWorld", szProjectName)
|
|
|
|
call msgbox("Congratulations, the '"+szProjectName+"' project have been created successfully, please input the project from QNX IDE!", 0, szPrompt)
|
|
|
|
end function
|
|
|
|
call ConfigureProject
|
|
Wscript.quit |