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