lang/js/query.rkt
#lang racket/base

(require racket/contract
         racket/runtime-path
         racket/gui/base
         syntax/modresolve)


(provide/contract [query (module-path? . -> . (listof string?))]
                  [has-javascript-implementation? (module-path? . -> . boolean?)]
                  
                  [redirected? (path? . -> . boolean?)]
                  [follow-redirection (path? . -> . path?)]
                  [collect-redirections-to (path? . -> . (listof path?))]

                  [lookup-module-requires (path? . -> . (listof path?))])

(define-runtime-path record.rkt "record.rkt")
(define ns (make-gui-namespace))


(define (my-resolve-module-path a-module-path)
  (resolve-module-path a-module-path #f))



;; query: module-path -> string?
;; Given a module, see if it's implemented via Javascript.
(define (query a-module-path)
  (let ([resolved-path (my-resolve-module-path a-module-path)])
    (parameterize ([current-namespace ns])
      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
      ((dynamic-require-for-syntax record.rkt 'lookup-javascript-implementation) resolved-path))))


;; has-javascript-implementation?:  module-path -> boolean
(define (has-javascript-implementation? a-module-path)  
  (let ([resolved-path (my-resolve-module-path a-module-path)])
    (parameterize ([current-namespace ns])
      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
      ((dynamic-require-for-syntax record.rkt 'has-javascript-implementation?) resolved-path))))
  


;; redirected? path -> boolean
(define (redirected? a-module-path)
  (let ([resolved-path (my-resolve-module-path a-module-path)])
    (parameterize ([current-namespace ns])
      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
      (path? ((dynamic-require-for-syntax record.rkt 'follow-redirection)
              resolved-path)))))


;; follow-redirection: module-path -> path
(define (follow-redirection a-module-path)
  (let ([resolved-path (my-resolve-module-path a-module-path)])
    (parameterize ([current-namespace ns])
      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
      ((dynamic-require-for-syntax record.rkt 'follow-redirection)
       resolved-path))))



;; collect-redirections-to: module-path -> (listof path)
(define (collect-redirections-to a-module-path)
  (let ([resolved-path (my-resolve-module-path a-module-path)])
    (parameterize ([current-namespace ns])
      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
      ((dynamic-require-for-syntax record.rkt 'collect-redirections-to)
       resolved-path))))


(define (lookup-module-requires a-module-path)
  (let ([resolved-path (my-resolve-module-path a-module-path)])
    (parameterize ([current-namespace ns])
      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
      ((dynamic-require-for-syntax record.rkt 'lookup-module-requires) resolved-path))))