Changeset 12831

Timestamp:

Sep 12, 2009, 4:49:34 PM (15 years ago)

Author:

Gary Byers

Message:

Install the Windows altconsole exe when building a standalone app bundle.

File:

• trunk/source/cocoa-ide/ide-bundle.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/ide-bundle.lisp

@@ -70 +70 @@
 ;;; and figuring out how to get make to do so - is left as an exercise.
 (defun install-altconsole (bundle-path)
-  #+cocotron (declare (ignore bundle-path))
   #-cocotron
   (let* ((altconsole-path (merge-pathnames ";Contents;Resources;AltConsole.app;" bundle-path))
@@ -90 +89 @@
     (recursive-copy-directory build-bundle-path altconsole-path)
     (ccl::touch altconsole-path)
-    t))
+    t)
+  #+cocotron
+  (let* ((path (probe-file "ccl:cocotron;WaltConsole;WaltConsole.exe")))
+    (when path
+      (copy-file path (merge-pathnames ";Contents;Resources;WaltConsole.exe" bundle-path))
+      t))
+  )
 
 (progn