File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 22
33(provide check-clang-available
44 clang-version
5- clang-version-16 +?)
5+ clang-version-14 +?)
66
77(require racket/gui/dynamic)
88
4444 "" )))
4545 (get-output-string (current-output-port)))))
4646
47- (define (clang-version-16 +?)
47+ (define (clang-version-14 +?)
4848 (match (clang-version)
4949 [(list major _ _ )
50- (>= major 16 )]
50+ (>= major 14 )]
5151 [_ #f ]))
5252
5353;; -> [Maybe (list Natural Natural Natural)]
5454(define (clang-version)
5555 (match (clang-version-string)
5656 [#f #f ]
57- [(regexp #rx"version ([0-9]+)\\.([0-9]+)\\.([0-9]+) "
57+ [(regexp #rx"clang version ([0-9]+)\\.([0-9]+)\\.([0-9]+) "
5858 (list _
5959 (app string->number major)
6060 (app string->number minor)
6868 (error (format clang-missing-msg
6969 (getenv "PATH " )
7070 (if (and (drracket?) (macos?) (launched-with-finder?)) finder-launch-msg "" ))))
71- (unless (clang-version-16 +?)
71+ (unless (clang-version-14 +?)
7272 (eprintf "clang 16.0.0 or later is recommended; some features may not work as expected.\n " )))
Original file line number Diff line number Diff line change 99(check-equal? (ev '(! 0 )) 1 )
1010(check-equal? (ev '(~ 0 )) -1 )
1111
12- (when (clang-version-16 +?)
12+ (when (clang-version-14 +?)
1313 (check-equal? (ev '(< 1 2 )) 1 )
1414 (check-equal? (ev '(< 2 1 )) 0 )
1515 (check-equal? (ev '(? 1 2 3 )) 2 )
You can’t perform that action at this time.
0 commit comments