20 lines
580 B
Racket
20 lines
580 B
Racket
#lang racket
|
|
|
|
(define-struct svn-rev () #:prefab)
|
|
(define-struct (svn-rev-nolog svn-rev) () #:prefab)
|
|
(define-struct (svn-rev-log svn-rev) (num author date msg changes) #:prefab)
|
|
(define-struct svn-change (action path) #:prefab)
|
|
|
|
(provide/contract
|
|
[struct svn-rev ()]
|
|
[struct (svn-rev-nolog svn-rev) ()]
|
|
[struct (svn-rev-log svn-rev)
|
|
([num exact-nonnegative-integer?]
|
|
[author string?]
|
|
[date string?]
|
|
[msg string?]
|
|
[changes (listof svn-change?)])]
|
|
[struct svn-change
|
|
([action symbol?]
|
|
[path path-string?])])
|