mumurik

if (WScript.Arguments.Count() != 2) {
   WScript.Echo("Usage: Cscript.exe zip.js targetfolder zipfile");
   WScript.Quit();
}

var fso = new ActiveXObject("Scripting.FileSystemObject");
var shell = new ActiveXObject("Shell.Application");

var zipfile = WScript.Arguments.Item(1);
var fso = new ActiveXObject("Scripting.FileSystemObject");

mumurik

robocopy /E ..\xyzzy\lisp %1\lisp
robocopy /E ..\xyzzy\etc %1\etc

mumurik

(require "glob")
(defvar basedir "your-path-to-your-release-dir")
(defun batch-compile(dirname)
  (byte-compile-dir (merge-pathnames "lisp" (merge-pathnames dirname basedir))))

(defun byte-compile-dir(dir)
  (interactive "DByte compile files under: ")
  (glob-exec (glob-expand dir)
       :recursive nil
       :file-only t :wild "*.l"

mumurik

@set xyzzypath=%~dp0%xyzzy_for_bytecompile\xyzzy.exe
@set evalarg=(batch-compile \"%1\")
%xyzzypath% -l byte_compile_dir.l -e "%evalarg%"

mumurik

set _new=xyzzy_new
mkdir %_new%
robocopy /E xyzzy-0.2.2.235\xyzzy %_new%
copy ..\xyzzy\readme_multiframe.txt %_new%\
copy ..\xyzzy\Release\updater.exe %_new%\
copy /Y ..\xyzzy\xyzzycli.exe %_new%\xyzzycli.exe
copy /Y ..\xyzzy\src\r\xyzzy.exe %_new%\xyzzy.exe
call update_lisp.bat %_new%
call byte_compile.bat %_new%
Cscript zip.js %_new% %1.zip