1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

(define-module (plugin captcha-interface)
  #:use-module (srfi srfi-9)            ;records
  #:use-module (srfi srfi-9 gnu)        ;immutable records
  #:export (make-captcha-plugin
            captcha-plugin?
            captcha-plugin-name
            captcha-plugin-generate-challenge
            captcha-plugin-render-challenge
            captcha-plugin-validate-input))

(define-immutable-record-type <captcha-plugin>
  (make-captcha-plugin name generate-challenge render-challenge validate-input)
  captcha-plugin?
  (name captcha-plugin-name)
  (generate-challenge captcha-plugin-generate-challenge)
  (render-challenge captcha-plugin-render-challenge)
  (validate-input captcha-plugin-validate-input))