PageRenderTime 25ms CodeModel.GetById 21ms RepoModel.GetById 0ms app.codeStats 0ms

/src/package.lisp

http://github.com/skypher/cl-oauth
Lisp | 91 lines | 66 code | 19 blank | 6 comment | 0 complexity | 88cec8be2d475f1526fb953eb8f6e4ee MD5 | raw file
Possible License(s): LGPL-3.0
  1. (defmacro without-package-variance-warnings (&body body)
  2. `(eval-when (:compile-toplevel :load-toplevel :execute)
  3. (handler-bind (#+sbcl(sb-int:package-at-variance #'muffle-warning))
  4. ,@body)))
  5. (without-package-variance-warnings
  6. (defpackage #:cl-oauth
  7. (:nicknames #:oauth)
  8. (:use #:cl #:anaphora #:f-underscore)
  9. (:import-from #:hunchentoot
  10. #:create-prefix-dispatcher
  11. #:*dispatch-table*)
  12. (:import-from #:alexandria #:with-unique-names #:curry #:rcurry #:ensure-list #:compose)
  13. (:import-from #:split-sequence #:split-sequence)
  14. (:export
  15. #:*protocol-version*
  16. ;;; error handling
  17. #:http-error
  18. #:bad-request
  19. #:unauthorized
  20. #:raise-error
  21. #:default-error-handler
  22. #:protocol-assert
  23. ;;; tokens
  24. #:token
  25. #:token-key
  26. #:token-secret
  27. #:token-user-data
  28. #:token-consumer
  29. #:register-token
  30. #:unregister-token
  31. #:consumer-token
  32. #:make-consumer-token
  33. #:request-token
  34. #:make-request-token
  35. #:request-token-authorized-p
  36. #:request-token-callback-uri
  37. #:request-token-verification-code
  38. #:access-token
  39. #:make-access-token
  40. #:access-token-session-handle
  41. #:access-token-expires
  42. #:access-token-authorization-expires
  43. #:access-token-expired-p
  44. ;;; consumer functions
  45. #:obtain-access-token
  46. #:authorize-request-token
  47. #:authorize-request-token-from-request
  48. #:make-authorization-uri
  49. #:obtain-request-token
  50. #:access-protected-resource
  51. ;;; crypto
  52. #:signature-base-string
  53. #:hmac-key
  54. #:hmac-sha1
  55. #:encode-url
  56. #:encode-signature
  57. ;;; parameters
  58. #:remove-auth-parameters
  59. #:normalized-parameters
  60. ;;; service provider
  61. #:check-version
  62. #:check-nonce-and-timestamp
  63. #:check-signature
  64. #:check-verification-code
  65. #:validate-request-token-request
  66. #:request-token-response
  67. #:get-supplied-request-token
  68. #:finalize-callback-uri
  69. #:validate-access-token-request
  70. #:validate-access-token
  71. #:make-response
  72. )))