Permalink
Fetching contributors…
Cannot retrieve contributors at this time
53 lines (41 sloc) 1.7 KB
#lang racket/base
(require racket/path
racket/contract
(prefix-in js-vm: "js-vm/main.rkt")
"js-vm/private/misc.rkt"
"js-vm/private/log-port.rkt"
"src/android/android-packager.ss")
(provide/contract
[create-android-phone-package (path-string? path-string? . -> . any)]
[run-in-browser (path-string? . -> . any)])
;; make-package-name: path -> string
(define (make-package-name a-path)
(let-values ([(base name dir?)
(split-path a-path)])
(remove-filename-extension name)))
;; At the moment, reuse js-vm's run-in-browser. We may need to do some extra
;; work to add mock classes for cell-phone functionality.
(define run-in-browser js-vm:run-in-browser)
;; create-android-phone-package: path-string path-string -> void
;;
;; Compiles a-filename into an android package, and write it
;; out at the given output-file path.
(define (create-android-phone-package a-filename output-file)
(let ([a-filename (normalize-path a-filename)]
[output-file (normalize-path output-file)])
(with-handlers
([exn:fail?
(lambda (exn)
(log-warning (format "An internal error occurred during compilation: ~a\n"
(exn-message exn)))
(raise exn))])
(call-with-output-file output-file
(lambda (op)
(log-info (format "Writing package to file ~a...\n" output-file))
(log-info (format "This may take up to a minute. Please wait...\n"))
(write-bytes (build-android-package
(make-package-name output-file)
a-filename)
op))
#:exists 'replace)
(log-info "Done!\n"))))