You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
1.0 KiB
Racket
26 lines
1.0 KiB
Racket
8 years ago
|
#lang racket/base
|
||
|
|
(require (for-syntax racket/base br/syntax) br/define)
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define-macro (define-stub-stop ID)
|
||
|
|
(with-pattern ([ERROR-ID (suffix-id (prefix-id (syntax-source #'this) ":" #'ID) ":not-implemented")])
|
||
|
|
#'(define (ID . args)
|
||
|
|
(error 'ERROR-ID))))
|
||
|
|
|
||
|
|
(provide (rename-out [define-stub-stop define-stub]))
|
||
|
|
|
||
|
|
(define-macro (define-stub-go ID)
|
||
|
|
(with-pattern ([ERROR-ID (suffix-id (prefix-id (syntax-source #'this) ":" #'ID) ":not-implemented")])
|
||
|
|
#'(define (ID . args)
|
||
|
|
(displayln 'ERROR-ID))))
|
||
|
|
|
||
|
|
(define-macro (define-unfinished (ID . ARGS) . BODY)
|
||
|
|
(with-pattern ([ID-UNFINISHED (suffix-id (prefix-id (syntax-source #'this) ":" #'ID) ":unfinished")])
|
||
|
|
#'(define (ID . ARGS)
|
||
|
|
(begin . BODY)
|
||
|
|
(error 'ID-UNFINISHED))))
|
||
|
|
|
||
|
|
|
||
|
|
(define-macro (unfinished)
|
||
|
|
(with-pattern ([ID-UNFINISHED (prefix-id (syntax-source caller-stx) ":" (syntax-line caller-stx) ":" #'unfinished)])
|
||
|
|
#'(error 'ID-UNFINISHED)))
|