--- a
+++ b/websites/build/trunk/docroot/builds/scripts/guests/orxbuildwin.copy.rex
@@ -0,0 +1,107 @@
+/*----------------------------------------------------------------------------*/
+/*                                                                            */
+/* Description: This is a build script for the Windows build machine.         */
+/*                                                                            */
+/* Copyright (c) 2010-2011 Rexx Language Association. All rights reserved.    */
+/*                                                                            */
+/* This program and the accompanying materials are made available under       */
+/* the terms of the Common Public License v1.0 which accompanies this         */
+/* distribution. A copy is also available at the following address:           */
+/* http://www.ibm.com/developerworks/oss/CPLv1.0.htm                          */
+/*                                                                            */
+/* Redistribution and use in source and binary forms, with or                 */
+/* without modification, are permitted provided that the following            */
+/* conditions are met:                                                        */
+/*                                                                            */
+/* Redistributions of source code must retain the above copyright             */
+/* notice, this list of conditions and the following disclaimer.              */
+/* Redistributions in binary form must reproduce the above copyright          */
+/* notice, this list of conditions and the following disclaimer in            */
+/* the documentation and/or other materials provided with the distribution.   */
+/*                                                                            */
+/* Neither the name of Rexx Language Association nor the names                */
+/* of its contributors may be used to endorse or promote products             */
+/* derived from this software without specific prior written permission.      */
+/*                                                                            */
+/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS        */
+/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT          */
+/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS          */
+/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT   */
+/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,      */
+/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED   */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,        */
+/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY     */
+/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING    */
+/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS         */
+/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.               */
+/*                                                                            */
+/* Author: W. David Ashley                                                    */
+/*                                                                            */
+/* Notes:                                                                     */
+/*    1. On Windows we need to avoid any RexxUtil functions because they      */
+/*       reside in RXAPI and that gets stopped and restarted multiple times   */
+/*       during the build process.                                            */
+/*                                                                            */
+/*----------------------------------------------------------------------------*/
+
+
+-- initialization
+email = arg(1)~strip()
+hostbuilds = 'p:'
+builddir = value('osname', , 'ENVIRONMENT')
+osname = 'winxpsp3-i386'
+targetdir = hostbuilds'\www\build\docroot\builds\interpreter-main'
+statusdir = hostbuilds'\www\build\docroot\builds\status'
+
+-- create the subdirectories to store the build files
+svnver = getsvnrevision()
+newdir = targetdir'\'svnver
+'md' newdir
+newdir = newdir'\'osname
+'md' newdir
+
+-- copy the build files
+'copy ooRexx*.exe' newdir
+if osname~pos('i386') > 0 then do
+   'copy Win32Rel\Win32Rel.log' newdir'\Win32RelLog.txt'
+   'copy Win32Dbg\Win32Dbg.log' newdir'\Win32DbgLog.txt'
+   end
+else if osname~pos('x86_64') > 0 then do
+   'copy Win64Rel\Win64Rel.log' newdir'\Win64RelLog.txt'
+   'copy Win64Dbg\Win64Dbg.log' newdir'\Win64DbgLog.txt'
+   end
+else nop
+
+-- create the status file
+strm = .stream~new(statusdir'\' || builddate || '-' || osname)
+strm~open('write append')
+msg = date('S') time('N') msg
+strm~lineout( date('S') time('N') 'Built SVN revision' svnver'.')
+strm~lineout( date('S') time('N') 'Finished build.')
+strm~close()
+
+-- email the results
+if email <> '' then do
+   -- TODO: email the results
+   end
+
+return
+
+
+/*----------------------------------------------------------------------------*/
+/* getsvnrevision                                                             */
+/*----------------------------------------------------------------------------*/
+
+getsvnrevision: procedure
+'svn info > svntemp'
+strm = .stream~new('svntemp')
+retc = strm~open('read')
+if retc <> 'READY:' then return 'unknown'
+lines = strm~arrayIn()
+retc = strm~close()
+revline = lines[5]
+parse var revline . svnver .
+if svnver = '' then svnver = 'unknown'
+-- say 'The SVN Revision is' svnver
+return svnver
+