/git-version.rkt

http://github.com/elibarzilay/rudybot · Racket · 22 lines · 15 code · 4 blank · 3 comment · 4 complexity · 1b546fee11abd9c299b7768a3d20e415 MD5 · raw file 

    

  1. #lang racket/base
    2. 

  2. 

  3. (require scheme/contract "utils.rkt")
    4. 

  4. 

  5. (define git-versions (make-hash))
    6. 

  6. 

  7. (define (git-version [style 'short])
    8. 

  8.   (if (eq? style 'reset!)
    9. 

  9.     (set! git-versions (make-hash))
    10. 

  10.     ;; TODO -- run "git diff-index --name-only HEAD --" (just as
    11. 

  11.     ;; /usr/local/src/git/GIT-VERSION-GEN does) to see if the working
    12. 

  12.     ;; tree is "dirty", and so indicate in our output.
    13. 

  13.     (or (hash-ref git-versions style #f)
    14. 

  14.         (let ([r (run-command "git" "log"
    15. 

  15.                               (format "--pretty=format:%~a"
    16. 

  16.                                       (case style ((short) "h") (else "H")))
    17. 

  17.                               "-1")])
    18. 

  18.           (hash-set! git-versions style r)
    19. 

  19.           r))))
    20. 

  20. 

  21. (provide/contract
    22. 

  22.  [git-version (->* () ((or/c 'short 'complete 'reset!)) any)])
    23.