mirror of
https://github.com/Veridise/Picus.git
synced 2026-04-19 03:00:11 -04:00
19 lines
363 B
Racket
19 lines
363 B
Racket
#lang racket/base
|
|
|
|
(provide get-tmpdir
|
|
clean-tmpdir!)
|
|
(require racket/file
|
|
"logging.rkt")
|
|
|
|
(define tmpdir #f)
|
|
|
|
(define (get-tmpdir)
|
|
(unless tmpdir
|
|
(set! tmpdir (make-temporary-directory "picus~a"))
|
|
(picus:log-info "working directory: ~a" tmpdir))
|
|
tmpdir)
|
|
|
|
(define (clean-tmpdir!)
|
|
(when tmpdir
|
|
(delete-directory/files tmpdir)))
|