make.vbs

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

' TOPPERS/JSP Kernel
'     Toyohashi Open Platform for Embedded Real-Time Systems/
'     Just Standard Profile Kernel
'
' Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
'                             Toyohashi Univ. of Technology, JAPAN
'
' 忋婰挊嶌尃幰偼丆埲壓偺 (1)乣(4) 偺忦審偐丆Free Software Foundation 
' 偵傛偭偰岞昞偝傟偰偄傞 GNU General Public License 偺 Version 2 偵婰
' 弎偝傟偰偄傞忦審傪枮偨偡応崌偵尷傝丆杮僜僼僩僂僃傾乮杮僜僼僩僂僃傾
' 傪夵曄偟偨傕偺傪娷傓丏埲壓摨偠乯傪巊梡丒暋惢丒夵曄丒嵞攝晍乮埲壓丆
' 棙梡偲屇傇乯偡傞偙偲傪柍彏偱嫋戻偡傞丏
' (1) 杮僜僼僩僂僃傾傪僜乕僗僐乕僪偺宍偱棙梡偡傞応崌偵偼丆忋婰偺挊嶌
'     尃昞帵丆偙偺棙梡忦審偍傛傃壓婰偺柍曐徹婯掕偑丆偦偺傑傑偺宍偱僜乕
'     僗僐乕僪拞偵娷傑傟偰偄傞偙偲丏
' (2) 杮僜僼僩僂僃傾傪丆儔僀僽儔儕宍幃側偳丆懠偺僜僼僩僂僃傾奐敪偵巊
'     梡偱偒傞宍偱嵞攝晍偡傞応崌偵偼丆嵞攝晍偵敽偆僪僉儏儊儞僩乮棙梡
'     幰儅僯儏傾儖側偳乯偵丆忋婰偺挊嶌尃昞帵丆偙偺棙梡忦審偍傛傃壓婰
'     偺柍曐徹婯掕傪宖嵹偡傞偙偲丏
' (3) 杮僜僼僩僂僃傾傪丆婡婍偵慻傒崬傓側偳丆懠偺僜僼僩僂僃傾奐敪偵巊
'     梡偱偒側偄宍偱嵞攝晍偡傞応崌偵偼丆師偺偄偢傟偐偺忦審傪枮偨偡偙
'     偲丏
'   (a) 嵞攝晍偵敽偆僪僉儏儊儞僩乮棙梡幰儅僯儏傾儖側偳乯偵丆忋婰偺挊
'       嶌尃昞帵丆偙偺棙梡忦審偍傛傃壓婰偺柍曐徹婯掕傪宖嵹偡傞偙偲丏
'   (b) 嵞攝晍偺宍懺傪丆暿偵掕傔傞曽朄偵傛偭偰丆TOPPERS僾儘僕僃僋僩偵
'       曬崘偡傞偙偲丏
' (4) 杮僜僼僩僂僃傾偺棙梡偵傛傝捈愙揑傑偨偼娫愙揑偵惗偠傞偄偐側傞懝
'     奞偐傜傕丆忋婰挊嶌尃幰偍傛傃TOPPERS僾儘僕僃僋僩傪柶愑偡傞偙偲丏
'
' 杮僜僼僩僂僃傾偼丆柍曐徹偱採嫙偝傟偰偄傞傕偺偱偁傞丏忋婰挊嶌尃幰偍
' 傛傃TOPPERS僾儘僕僃僋僩偼丆杮僜僼僩僂僃傾偵娭偟偰丆偦偺揔梡壜擻惈傕
' 娷傔偰丆偄偐側傞曐徹傕峴傢側偄丏傑偨丆杮僜僼僩僂僃傾偺棙梡偵傛傝捈
' 愙揑傑偨偼娫愙揑偵惗偠偨偄偐側傞懝奞偵娭偟偰傕丆偦偺愑擟傪晧傢側偄丏
'
' @(#) $Id: make.vbs,v 1.5 2003/06/30 15:58:39 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

		'cmdwatch偺惗惉
	msdev.documents.open rootdir + "cmdwatch\cmdwatch.dsw"
	set msdev.activeproject = msdev.projects("cmdwatch")
	set msdev.activeconfiguration = msdev.activeproject.configurations("cmdwatch" + model)
	msdev.build

		'僂僅僢僠儍僐儞僩儘乕儔偺惗惉
	msdev.documents.open rootdir + "watcher\watcher.dsw"
	set msdev.activeproject = msdev.projects("watcher")
	set msdev.activeconfiguration = msdev.activeproject.configurations("watcher" + model)
	msdev.build


msdev.quit
set msdev = nothing

msgbox "慡偰偺張棟偑廔椆偟傑偟偨"
end if