cipher.sld 718 B

12345678910111213141516171819202122232425262728293031
  1. (define-library (macduffie cipher)
  2. (import (scheme base)
  3. (scheme case-lambda)
  4. (scheme char)
  5. (srfi 1)
  6. (macduffie queue))
  7. (export
  8. ;; cipher-ops.scm
  9. letter? letter->integer integer->letter letter+ letter-
  10. sanitize-chars restore-punctuation apply-cipher
  11. print-letters runkey-encipher runkey-decipher
  12. ;; autokey.scm
  13. autokey-encipher autokey-decipher
  14. ;; caesar.scm
  15. caesar-encipher caesar-decipher rot13
  16. ;; monokey.scm
  17. mono-encipher mono-decipher
  18. ;; reptkey.scm
  19. reptkey-encipher reptkey-decipher)
  20. (include "cipher-ops.scm")
  21. (include "autokey.scm")
  22. (include "caesar.scm")
  23. (include "monokey.scm")
  24. (include "reptkey.scm"))