41 lines
1.2 KiB
Racket
41 lines
1.2 KiB
Racket
#lang racket/base
|
|
(require "../version-case/version-case.rkt"
|
|
"../logger.rkt"
|
|
racket/file
|
|
(prefix-in whalesong: "../version.rkt")
|
|
(for-syntax racket/base))
|
|
|
|
(version-case
|
|
[(and (version<= "5.1.1" (version))
|
|
(version< (version) "5.1.1.900"))
|
|
(begin
|
|
(log-debug "Using 5.1.1 bytecode parser")
|
|
(require "parse-bytecode-5.1.1.rkt")
|
|
(provide (except-out (all-from-out "parse-bytecode-5.1.1.rkt")
|
|
parse-bytecode)))]
|
|
[(version<= "5.1.1.900" (version))
|
|
(begin
|
|
(log-debug "Using 5.1.2 bytecode parser")
|
|
(require "parse-bytecode-5.1.2.rkt")
|
|
(provide (except-out (all-from-out "parse-bytecode-5.1.2.rkt")
|
|
parse-bytecode)))]
|
|
[else
|
|
(error 'parse-bytecode "Whalesong doesn't have a compatible parser for Racket ~a" (version))])
|
|
|
|
|
|
(provide (rename-out [my-parse-bytecode parse-bytecode]))
|
|
|
|
|
|
(define (my-parse-bytecode x)
|
|
(cond
|
|
[(path? x)
|
|
(parse-bytecode x)]
|
|
[else
|
|
(parse-bytecode x)]))
|
|
|
|
|
|
(define cache-dir (build-path (find-system-path 'pref-dir)
|
|
"whalesong"
|
|
whalesong:version))
|
|
(unless (directory-exists? cache-dir)
|
|
(make-directory* cache-dir)) |