configure.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-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: configure.vbs,v 1.3 2002/04/05 09:09:47 takayuki Exp $
'

	'----------------------------------------------------------'
	' 偙偺僗僋儕僾僩偼丆WScript.WshShell.Run傪巊梡偟偰偄傞偺偱 '
	'  巗斕偺僂傿儖僗僠僃僢僇偑擖偭偰偄傞偲埆幙偲敾抐偝傟傑偡  '
	'----------------------------------------------------------'

dim ws
dim msdev
dim rootdir

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

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

msgbox "TOPPERS/JSP Windows 傪巊梡偡傞偺偵昁梫側僾儘僌儔儉傪嶌惉偟傑偡丏"

ws.run "..\cfg\vc_project\make.vbs",1,true
ws.run "..\windev\make.vbs",1,true
set ws = nothing

msgbox "張棟偼惓忢偵廔椆偟傑偟偨"

if msgbox("Visual C++ 傪婲摦偟傑偡偐?",vbokcancel) = vbok then
	set msdev = CreateObject("MSDev.Application")
	msdev.visible = true
	msdev.documents.open rootdir + "vc_project\toppers.dsw"
	msdev.documents.open rootdir + "..\doc\windows.txt", "text", true
	set msdev = nothing
end if