make.vbs

嵌入式系统开发 TOPPERS and JSP Kernel Release 1.3 TOPPERS = Toyohashi Open Platform for Embedded Real-Tim

'
'   TOPPERS/JSP Kernel
'       Toyohashi Open Platform for Embedded Real-Time Systems/
'       Just Standard Profile Kernel
'  
'   Copyright (C) 2000-2002 by Embedded and Real-Time Systems Laboratory
'                               Toyohashi Univ. of Technology, JAPAN
'  
'   惧淡螟侯涪荚は·Free Software Foundation によって给山されている 
'   GNU General Public License の Version 2 に淡揭されている掘凤か·笆
'   布の(1)×(4)の掘凤を塔たす眷圭に嘎り·塑ソフトウェア∈塑ソフトウェ
'   アを猖恃したものを崔むˉ笆布票じ∷を蝗脱ˇ剩澜ˇ猖恃ˇ浩芹邵∈笆布·
'   网脱と钙ぶ∷することを痰浸で钓满するˉ
'   (1) 塑ソフトウェアをソ〖スコ〖ドの妨で网脱する眷圭には·惧淡の螟侯
'       涪山绩·この网脱掘凤および布淡の痰瘦沮惮年が·そのままの妨でソ〖
'       スコ〖ド面に崔まれていることˉ
'   (2) 塑ソフトウェアを浩网脱材墙なバイナリコ〖ド∈リロケ〖タブルオブ
'       ジェクトファイルやライブラリなど∷の妨で网脱する眷圭には·网脱
'       に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯涪山绩·
'       この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
'   (3) 塑ソフトウェアを浩网脱稍材墙なバイナリコ〖ドの妨または怠达に寥
'       み哈んだ妨で网脱する眷圭には·肌のいずれかの掘凤を塔たすことˉ
'     (a) 网脱に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯
'         涪山绩·この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
'     (b) 网脱の妨轮を·侍に年める数恕によって·惧淡螟侯涪荚に鼠桂する
'         ことˉ
'   (4) 塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じるいかなる禄
'       巢からも·惧淡螟侯涪荚を倘勒することˉ
'
'   塑ソフトウェアは·痰瘦沮で捏丁されているものであるˉ惧淡螟侯涪荚は·
'   塑ソフトウェアに簇して·その努脱材墙拉も崔めて·いかなる瘦沮も乖わ
'   ないˉまた·塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じたい
'   かなる禄巢に簇しても·その勒扦を砷わないˉ
'
'   @(#) $Id: make.vbs,v 1.3 2002/04/05 09:09:20 takayuki Exp $
'

dim model
dim msdev
dim rootdir

rootdir = left(Wscript.ScriptFullName, len(Wscript.scriptfullname) - len(wscript.scriptname))

if msgbox("TOPPERS/JSP Windows デバイスマネ〖ジャ および ATLデバイスコントロ〖ルを栏喇しますˉ借妄を倡幌してもよろしいですか?", vbYesno) = vbyes then

	if msgbox("リリ〖スビルドしますか? (≈いいえ∽を联ぶとデバッグ材墙な悸乖ファイルを栏喇します)",vbyesno) = vbyes then
		model = " - Win32 Unicode Release MinDependency"
	else
		model = " - Win32 Debug"
	end if

		'Visual C++ の弹瓢
	set msdev = CreateObject("MSDEV.APPLICATION")
	msdev.visible = true

		'デバイスマネ〖ジャの栏喇
	msdev.documents.open rootdir + "devicemanager\devicemanager.dsw"
	set msdev.activeproject = msdev.projects("devicemanager")
	set msdev.activeconfiguration = msdev.activeproject.configurations("devicemanager" + model)
	msdev.build

		'デバイスコントロ〖ラの栏喇
	msdev.documents.open rootdir + "devicecontrol\device.dsw"
	set msdev.activeproject = msdev.projects("device")
	set msdev.activeconfiguration = msdev.activeproject.configurations("device" + model)
	msdev.build


msdev.quit
set msdev = nothing

msgbox "链ての借妄が姜位しました"
end if