Separation of concerns.

This commit is contained in:
2025-10-09 15:18:10 +02:00
parent 79d00df746
commit 74bcddfcdb
6 changed files with 356 additions and 94 deletions

View File

@@ -0,0 +1,45 @@
(module web-racket-version racket/base
(require racket/string)
(provide ww-version
ww-version-major
ww-version-minor
ww-version-patch
ww-ffi-version
ww-ffi-version-major
ww-ffi-version-minor
ww-ffi-version-patch
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Utils
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (mk-version a b c)
(string-join
(map number->string (list a b c))
"."))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Web Wire Version
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define ww-version-major 0)
(define ww-version-minor 1)
(define ww-version-patch 3)
(define ww-version (mk-version ww-version-major ww-version-minor ww-version-patch))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Web Wire FFI Version
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define ww-ffi-version-major 0)
(define ww-ffi-version-minor 2)
(define ww-ffi-version-patch 1)
(define ww-ffi-version (mk-version ww-ffi-version-major ww-ffi-version-minor ww-ffi-version-patch))
)