add --launcher'/-l' flag to `raco exe' to create launchers

This addition triggered several other changes:

 * -k for a Mac OS X embedding is now relative to the __PLTSCHEME
   segment (which means that executables won't break if you strip
   them, for example)

 * the command-line no longer has a limited size for Mac OS X
   launchers and embedding executables

 * Mac OS X GUI and Windows launchers record the creation-time
   collection path, unless they are created as "relative" launchers

original commit: 2c479683d1

collects/compiler/commands/exe.rkt

@@ -10,6 +10,7 @@
 
 (define gui (make-parameter #f))
 (define 3m (make-parameter #t))
+(define launcher (make-parameter #f))
 
 (define exe-output (make-parameter #f))
 (define exe-embedded-flags (make-parameter '("-U" "--")))
@@ -26,6 +27,8 @@
     (exe-output file)]
    [("--gui") "Generate GUI executable"
     (gui #t)]
+   [("-l" "--launcher") "Generate a launcher"
+    (launcher #t)]
    [("--collects-path") path "Set <path> as main collects for executable"
     (exe-embedded-collects-path path)]
    [("--collects-dest") dir "Write collection code to <dir>"
@@ -70,6 +73,17 @@
                  (extract-base-filename/ss source-file
                                            (string->symbol (short-program+command-name))))
              (gui))])
+  (cond
+   [(launcher)
+    (parameterize ([current-launcher-variant (if (3m) '3m 'cgc)])
+      ((if (gui) 
+           make-gracket-launcher 
+           make-racket-launcher)
+       (append (list "-t" (path->string (path->complete-path source-file)))
+               (exe-embedded-flags))
+       dest
+       (exe-aux)))]
+   [else
     (mzc:create-embedding-executable
      dest
      #:mred? (gui)
@@ -91,6 +105,6 @@
      #:cmdline (exe-embedded-flags)
      #:collects-path (exe-embedded-collects-path)
      #:collects-dest (exe-embedded-collects-dest)
-   #:aux (exe-aux))
+     #:aux (exe-aux))])
   (when (verbose)
     (printf " [output to \"~a\"]\n" dest)))

collects/tests/racket/embed.rktl

@@ -6,6 +6,7 @@
 (require compiler/embed
          mzlib/file
 	 mzlib/process
+         launcher
          compiler/distribute)
 
 (define (mk-dest-bin mred?)
@@ -67,12 +68,9 @@
     (test expect with-input-from-file (build-path (find-system-path 'temp-dir) "stdout") 
 	  (lambda () (read-string 5000)))))
 
-(define try-exe 
-  (case-lambda
-   [(exe expect mred?)
-    (try-exe exe expect mred? void)]
-   [(exe expect mred? dist-hook . collects)
+(define (try-exe exe expect mred? [dist-hook void] #:dist? [dist? #t] . collects)
   (try-one-exe exe expect mred?)
+  (when dist?
     ;; Build a distirbution directory, and try that, too:
     (printf " ... from distribution ...\n")
     (when (directory-exists? dist-dir)
@@ -84,7 +82,7 @@
                                  dist-mred-exe
                                  dist-mz-exe))
                  expect mred?)
-    (delete-directory/files dist-dir)]))
+    (delete-directory/files dist-dir)))
 
 (define (base-compile e)
   (parameterize ([current-namespace (make-base-namespace)])
@@ -109,6 +107,13 @@
      `(,(flags "l") ,(string-append "tests/racket/" filename)))
     (try-exe dest expect mred?)
 
+    ;; As a launcher:
+    (prepare dest filename)
+    ((if mred? make-gracket-launcher make-racket-launcher)
+     (list "-l" (string-append "tests/racket/" filename))
+     dest)
+    (try-exe dest expect mred? #:dist? #f)
+
     ;; Try explicit prefix:
     (printf ">>>explicit prefix\n")
     (let ([w/prefix
@@ -250,16 +255,38 @@
      `("-l" "tests/racket/embed-me5.rkt"))
     (try-exe mr-dest "This is 5: #<class:button%>\n" #t)))
 
-;; Try the mzc interface:
+;; Try the raco interface:
 (require setup/dirs
 	 mzlib/file)
 (define mzc (build-path (find-console-bin-dir) (if (eq? 'windows (system-type))
                                                    "mzc.exe"
                                                    "mzc")))
+(define raco (build-path (find-console-bin-dir) (if (eq? 'windows (system-type))
+                                                    "raco.exe"
+                                                    "raco")))
 
 (define (mzc-tests mred?)
   (parameterize ([current-directory (find-system-path 'temp-dir)])
 
+    ;; raco exe
+    (system* raco
+             "exe"
+	     "-o" (path->string (mk-dest mred?))
+	     (if mred? "--gui" "--")
+	     (path->string (build-path (collection-path "tests" "racket") "embed-me1.rkt")))
+    (try-exe (mk-dest mred?) "This is 1\n" mred?)
+
+    ;;raco exe --launcher
+    (system* raco
+             "exe"
+             "--launcher"
+	     "-o" (path->string (mk-dest mred?))
+	     (if mred? "--gui" "--")
+	     (path->string (build-path (collection-path "tests" "racket") "embed-me1.rkt")))
+    (try-exe (mk-dest mred?) "This is 1\n" mred? #:dist? #f)
+
+    ;; the rest use mzc...
+
     (system* mzc 
 	     (if mred? "--gui-exe" "--exe")
 	     (path->string (mk-dest mred?))