add batch build script for Windows

svn: r6987

src/worksp/README

@@ -14,8 +14,8 @@ This directory contains
     with Microsoft Visual Studio 8.0 (not Express, which doesn't
     support ATL and MFC).
 
-Visual Studio Express is available for free from Microsoft, and it is
-the recommended compiler for building MzScheme and MrEd.
+Visual Studio Express is available for free from Microsoft; it can be
+used to build MzScheme and MrEd, but not MzCOM and MysterX.
 
 MzScheme and MrEd also compile with Cygwin gcc (a free compiler from
 GNU and Cygnus Solutions), but the result is a Unix-style
@@ -41,6 +41,12 @@ As always, please report bugs via one of the following:
 Building MzScheme and MrEd
 ----------------------------------------------------------------------
 
+If you're using MSVC 8.0 (not Express), and if `devenv.exe' is in your
+path, then you can just run 
+       plt\src\worksp\build.bat
+from its won directory to perform all steps up to "Versioning",
+including the MzCOM and MysterX steps.
+
 The CGC variants of MzScheme, MzCOM, MrEd, and MysterX can be built
 via Visual Studio projects. The 3m variants are built by a Scheme
 script that runs the MSVC command-line tools. (See "CGC versus 3m"

src/worksp/build.bat

@@ -0,0 +1,37 @@
+cd mzscheme
+devenv mzscheme.sln /Build Release
+cd ..\mred
+devenv mred.sln /Build Release
+cd ..
+
+cd gc2
+..\..\..\mzschemecgc -qr make.ss
+cd ..
+
+cd mzcom
+devenv mzcom.sln /Build Release
+cd ..\libmysterx
+devenv libmysterx.sln /Build Release
+cd ..
+
+cd libmysterx
+..\..\..\mzschemecgc -qr xform.ss
+cd ..
+
+cd mzcom
+..\..\..\mzschemecgc -qr xform.ss
+cd ..
+
+cd mzcom
+devenv mzcom.sln /Build 3m
+cd ..\libmysterx
+devenv libmysterx.sln /Build 3m
+cd ..
+
+cd mzstart
+devenv mzstart.sln /Build Release
+cd ..\mrstart
+devenv mrstart.sln /Build Release
+cd ..
+
+..\..\mzscheme -mvqM- setup

src/worksp/libmysterx/xform.ss

@@ -25,7 +25,7 @@
 				[else dep])])
 		      (> t (file-or-directory-modify-seconds dep))))
 		  (append (if precomp?
-			      null
+			      (list "../../mzscheme/src/schvers.h")
 			      (if use-precomp (list use-precomp) null))
 			  (list src)
 			  (let ([deps (path-replace-suffix dest #".sdep")])