blob: 093201206d639efc243fd864a501205ce710f564 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#lang scheme/base
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; BASE.plt - common routines that are shared by all other bzlib modules
;;
;; in a way, base.plt is the most fundamental module of the whole bzlib stack
;; and as such it also is the lowest level code. We are not likely to
;; fix the code any time soon, and hence any of the functions here are
;; explicitly likely to be obsoleted or moved elsewhere.
;;
;; Proceed with caution.
;;
;;
;; Bonzai Lab, LLC. All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; version.ss - version comparison utilities as well as version-based macros
;; yc 1/18/2010 - first version
(require (prefix-in v: version/utils)
scheme/contract
(for-syntax scheme/base
(prefix-in v: version/utils))
mzlib/trace
)
(define (version? v)
(and (string? v)
(integer? (v:version->integer v))))
(define (vcomp? comp? v v2 vs)
(apply comp? (map v:version->integer (list* v v2 vs))))
(define (version<? v v2 . vs)
(vcomp? < v v2 vs))
;; (trace version<?)
(define (version<=? v v2 . vs)
(vcomp? <= v v2 vs))
;; (trace version<=?)
(define (version>=? v v2 . vs)
(vcomp? >= v v2 vs))
;; (trace version>=?)
(define (version>? v v2 . vs)
(vcomp? > v v2 vs))
;; (trace version>?)
(define (version=? v v2 . vs)
(vcomp? = v v2 vs))
;; (trace version=?)
(define (version!=? v v2 . vs)
(vcomp? (compose not =) v v2 vs))
;; (trace version!=?)
(define vcomp/c (->* (version? version?)
()
#:rest (listof version?)
boolean?))
(provide/contract
(version? (-> any/c boolean?))
(version<? vcomp/c)
(version<=? vcomp/c)
(version>=? vcomp/c)
(version>? vcomp/c)
(version=? vcomp/c)
(version!=? vcomp/c)
)
|
