Permalink
Browse files

Remove planet requires. Now treating racketlib as a holistic collection.

  • Loading branch information...
1 parent 10df328 commit 7ae32f46d0717eceb56d63eeddf31fb96382c084 @RayRacine committed Oct 30, 2012
Showing with 412 additions and 396 deletions.
  1. +21 −21 aws/a2s/a2s.rkt
  2. +18 −19 aws/a2s/search.rkt
  3. +5 −5 aws/auth.rkt
  4. +13 −14 aws/auth/authv2.rkt
  5. +14 −14 aws/auth/authv3.rkt
  6. +8 −8 aws/credential.rkt
  7. +1 −1 aws/dynamodb/createtable.rkt
  8. +6 −6 aws/dynamodb/deleteitem.rkt
  9. +1 −1 aws/dynamodb/deletetable.rkt
  10. +9 −9 aws/dynamodb/describetable.rkt
  11. +1 −1 aws/dynamodb/error.rkt
  12. +18 −18 aws/dynamodb/getitem.rkt
  13. +9 −9 aws/dynamodb/invoke.rkt
  14. +5 −5 aws/dynamodb/parse.rkt
  15. +1 −1 aws/dynamodb/putitem.rkt
  16. +1 −1 aws/dynamodb/query.rkt
  17. +9 −9 aws/dynamodb/request.rkt
  18. +6 −6 aws/dynamodb/response.rkt
  19. +1 −1 aws/dynamodb/scan.rkt
  20. +1 −1 aws/dynamodb/updateitem.rkt
  21. +1 −1 aws/s3/buckets.rkt
  22. +8 −8 aws/s3/invoke.rkt
  23. +35 −35 aws/s3/objects.rkt
  24. +3 −3 aws/scribblings/manual.scrbl
  25. +14 −14 aws/simpledb/simpledb.rkt
  26. +4 −4 aws/sqs/private/deletemsg.rkt
  27. +17 −17 aws/sqs/private/invoke.rkt
  28. +6 −6 aws/sqs/private/listqueues.rkt
  29. +4 −4 aws/sqs/private/receivemsg.rkt
  30. +4 −4 aws/sqs/private/sendmsg.rkt
  31. +6 −7 aws/sts/response.rkt
  32. +6 −6 aws/sts/session.rkt
  33. +12 −12 aws/sts/sts.rkt
  34. +8 −11 crypto/hash/sha256.rkt
  35. +13 −12 crypto/hmac.rkt
  36. +5 −4 crypto/private/util.rkt
  37. +1 −1 crypto/scribblings/manual.scrbl
  38. +13 −13 format/rss/rss20/rss.rkt
  39. +2 −2 google/gproduct/access.rkt
  40. +11 −11 google/gproduct/gproduct.rkt
  41. +4 −5 google/gproduct/request.rkt
  42. +10 −11 httpclient/http/http11.rkt
  43. +7 −7 httpclient/scribblings/http.scrbl
  44. +1 −1 httpclient/scribblings/manual.scrbl
  45. +4 −4 httpclient/scribblings/uri.scrbl
  46. +6 −5 httpclient/uri.rkt
  47. +6 −4 httpclient/uri/url/param.rkt
  48. +3 −3 iteratee/enumerators.rkt
  49. +7 −8 iteratee/iteratees.rkt
  50. +8 −1 prelude/std/prelude.rkt
  51. +13 −0 prelude/type/list.rkt
  52. +5 −5 tinyweb/dispatch.rkt
  53. +8 −8 tinyweb/example.rkt
  54. +9 −9 tinyweb/server.rkt
View
@@ -18,29 +18,29 @@
(require
racket/pretty
(only-in (planet lizorkin/sxml:2:1/sxml)
- sxpath sxml:text srl:sxml->html)
- (only-in (planet rpr/prelude:1/text/util)
- weave-string-separator)
- (only-in (planet rpr/httpclient:1/uri/url/encode)
- url-encode-string)
- (only-in (planet rpr/httpclient:1/uri)
- make-uri uri->start-line-path-string)
- (only-in (planet rpr/httpclient:1/http/header)
- Header Headers host-header header->string)
- (only-in (planet rpr/httpclient:1/http/http11)
- http-invoke HTTPConnection-in)
- (only-in (planet rpr/prelude:1/type/date)
- current-date-string-iso-8601)
- (only-in (planet rpr/crypto:1/hmac)
- hmac-sha256)
- (only-in (planet rpr/crypto:1/base64)
- base64-encode)
+ sxpath sxml:text srl:sxml->html)
+ (only-in "../../prelude/text/util.rkt"
+ weave-string-separator)
+ (only-in "../../httpclient/uri/url/encode.rkt"
+ url-encode-string)
+ (only-in "../../httpclient/uri.rkt"
+ make-uri uri->start-line-path-string)
+ (only-in "../../httpclient/http/header.rkt"
+ Header Headers host-header header->string)
+ (only-in "../../httpclient/http/http11.rkt"
+ http-invoke HTTPConnection-in)
+ (only-in "../../prelude/type/date.rkt"
+ current-date-string-iso-8601)
+ (only-in "../../crypto/hmac.rkt"
+ hmac-sha256)
+ (only-in "../../crypto/base64.rkt"
+ base64-encode)
(only-in "../configuration.rkt"
- a2s-ns a2s-host a2s-path)
+ a2s-ns a2s-host a2s-path)
(only-in "../credential.rkt"
- current-aws-credential
- BaseCredential-secret-key
- BaseCredential-access-key))
+ current-aws-credential
+ BaseCredential-secret-key
+ BaseCredential-access-key))
(: empty-response (List Symbol))
(define empty-response '(*TOP*))
View
@@ -4,23 +4,22 @@
browse-node-search)
(require
- racket/pretty
- (only-in (planet rpr/httpclient:1/uri/url/encode)
- url-encode-string)
- (only-in (planet rpr/httpclient:1/uri)
- make-uri)
- (only-in (planet rpr/httpclient:1/http/http11)
- http-invoke)
- (only-in (planet rpr/httpclient:1/http/header)
- Header
- Headers)
+ (only-in "../../httpclient/uri/url/encode.rkt"
+ url-encode-string)
+ (only-in "../../httpclient/uri.rkt"
+ make-uri)
+ (only-in "../../httpclient/http/http11.rkt"
+ http-invoke)
+ (only-in "../../httpclient/http/header.rkt"
+ Header
+ Headers)
(only-in "../credential.rkt"
- AwsCredential-associate-tag
- BaseCredential-secret-key
- BaseCredential-access-key)
+ AwsCredential-associate-tag
+ BaseCredential-secret-key
+ BaseCredential-access-key)
(only-in "../configuration.rkt"
- a2s-ns
- a2s-host)
+ a2s-ns
+ a2s-host)
"a2s.rkt")
(: search-op-parm Header)
@@ -45,11 +44,11 @@
((Attributes) "ItemAttributes")
((Nodes) "BrowseNodes")
((Offer) "OfferSummary")
- ((Rank) "SalesRank")
- ((Small) "Small")
+ ((Rank) "SalesRank")
+ ((Small) "Small")
((Large) "Large")
- ((Review) "EditorialReview")
- ((Ids) "ItemIds")
+ ((Review) "EditorialReview")
+ ((Ids) "ItemIds")
(else "Small")))
;; ((Images) "Images")
View
@@ -28,15 +28,15 @@
(require
(only-in racket/pretty
pretty-print)
- (only-in (planet rpr/prelude:1/text/util)
+ (only-in "../prelude/text/util.rkt"
weave-string-separator)
- (only-in (planet rpr/crypto:1/base64)
+ (only-in "../crypto/base64.rkt"
base64-encode)
- (only-in (planet rpr/crypto:1/hmac)
+ (only-in "../crypto/hmac.rkt"
hmac-sha1 hmac-sha256)
- (only-in (planet rpr/httpclient:1/uri/url/encode)
+ (only-in "../httpclient/uri/url/encode.rkt"
url-encode-string)
- (only-in (planet rpr/httpclient:1/uri/url/param)
+ (only-in "../httpclient/uri/url/param.rkt"
params->query Param Params))
(: ddb-base String)
View
@@ -4,21 +4,20 @@
authv2-signature)
(require
- racket/pretty
- (only-in (planet rpr/prelude:1/type/date)
- current-date-string-iso-8601)
- (only-in (planet rpr/prelude:1/text/util)
- weave-string-separator)
- (only-in (planet rpr/httpclient:1/uri/url/param)
- param Param Params params->query)
- (only-in (planet rpr/httpclient:1/uri/url/encode)
- url-encode-string)
- (only-in (planet rpr/crypto:1/base64)
- base64-encode)
- (only-in (planet rpr/crypto:1/hmac)
- hmac-sha256)
+ (only-in "../../prelude/type/date.rkt"
+ current-date-string-iso-8601)
+ (only-in "../../prelude/text/util.rkt"
+ weave-string-separator)
+ (only-in "../../httpclient/uri/url/param.rkt"
+ param Param Params params->query)
+ (only-in "../../httpclient/uri/url/encode.rkt"
+ url-encode-string)
+ (only-in "../../crypto/base64.rkt"
+ base64-encode)
+ (only-in "../../crypto/hmac.rkt"
+ hmac-sha256)
(only-in "../credential.rkt"
- BaseCredential-secret-key BaseCredential-access-key current-aws-credential))
+ BaseCredential-secret-key BaseCredential-access-key current-aws-credential))
(: sep String)
(define sep "\n")
View
@@ -5,20 +5,20 @@
(require
racket/pretty
- (only-in (planet rpr/prelude:1/text/util)
- weave-string-separator)
- (only-in (planet rpr/httpclient:1/http/header)
- header->string)
- (only-in (planet rpr/httpclient:1/uri/url/encode)
- url-encode-string)
- (only-in (planet rpr/crypto:1/hash/sha256)
- sha256)
- (only-in (planet rpr/crypto:1/base64)
- base64-encode)
- (only-in (planet rpr/crypto:1/hmac)
- hmac-sha256)
- (only-in (planet rpr/httpclient:1/uri/url/param)
- param Param Params)
+ (only-in "../../prelude/text/util.rkt"
+ weave-string-separator)
+ (only-in "../../httpclient/http/header.rkt"
+ header->string)
+ (only-in "../../httpclient/uri/url/encode.rkt"
+ url-encode-string)
+ (only-in "../../crypto/hash/sha256.rkt"
+ sha256)
+ (only-in "../../crypto/base64.rkt"
+ base64-encode)
+ (only-in "../../crypto/hmac.rkt"
+ hmac-sha256)
+ (only-in "../../httpclient/uri/url/param.rkt"
+ param Param Params)
(only-in "../credential.rkt"
AwsCredential-session BaseCredential-secret-key
current-aws-credential))
View
@@ -41,21 +41,21 @@
((read read-creds) (Input-Port -> (Listof (Pair Symbol String)))))
(require
- (only-in (planet rpr/prelude:1/std/opt)
- opt-apply-orelse)
- (only-in (planet rpr/prelude:1/type/date)
- Time))
+ (only-in "../prelude/std/opt.rkt"
+ opt-apply-orelse)
+ (only-in "../prelude/type/date.rkt"
+ Time))
(struct: BaseCredential ((access-key : String)
(secret-key : String)) #:transparent)
(struct: SessionCredential BaseCredential
- ([token : String]
- [expiration : Time]) #:transparent)
+ ([token : String]
+ [expiration : Time]) #:transparent)
(struct: AwsCredential BaseCredential ([account-id : String]
- [associate-tag : String]
- [session : (Option SessionCredential)]) #:mutable #:transparent)
+ [associate-tag : String]
+ [session : (Option SessionCredential)]) #:mutable #:transparent)
;; struct-copy is broken in TR
(: add-session-credential (SessionCredential -> AwsCredential))
@@ -22,7 +22,7 @@
(require
racket/pretty
- (only-in (planet rpr/format:1/json/tjson)
+ (only-in "../../format/json/tjson.rkt"
Json JsObject JsObject? json->string)
(only-in "types.rkt"
Throughput-write Throughput-read Throughput Throughput?
@@ -5,16 +5,16 @@
(require
racket/pretty
- (only-in (planet rpr/format:1/json/tjson)
- Json JsObject jsobject json->string)
+ (only-in "../../format/json/tjson.rkt"
+ Json JsObject jsobject json->string)
(only-in "types.rkt" KeyVal
- ItemKey Exists Item ReturnValues)
+ ItemKey Exists Item ReturnValues)
(only-in "action.rkt"
- DELETE-ITEM)
+ DELETE-ITEM)
(only-in "invoke.rkt"
- dynamodb)
+ dynamodb)
(only-in "request.rkt"
- return-values-json itemkey-json))
+ return-values-json itemkey-json))
(struct: DeleteItemResult () #:transparent)
@@ -24,7 +24,7 @@
(require
racket/pretty
- (only-in (planet rpr/format:1/json/tjson)
+ (only-in "../../format/json/tjson.rkt"
Json JsObject JsObject? json->string jsobject)
(only-in "types.rkt"
Throughput
@@ -24,20 +24,20 @@
(require
racket/pretty
- (only-in (planet rpr/format:1/json/tjson)
- Json JsObject JsObject? json->string jsobject)
+ (only-in "../../format/json/tjson.rkt"
+ Json JsObject JsObject? json->string jsobject)
(only-in "action.rkt"
- DESCRIBE-TABLE)
+ DESCRIBE-TABLE)
(only-in "invoke.rkt"
- dynamodb)
+ dynamodb)
(only-in "parse.rkt"
- parse-capacity parse-key-schema
- invalid-error attr-value)
+ parse-capacity parse-key-schema
+ invalid-error attr-value)
(only-in "types.rkt"
- TableStatus TableStatus? string->TableStatus
- KeySchema Throughput Throughput? DDBType? Key)
+ TableStatus TableStatus? string->TableStatus
+ KeySchema Throughput Throughput? DDBType? Key)
(only-in "error.rkt"
- DDBFailure DDBFailure?))
+ DDBFailure DDBFailure?))
;; Some values are optional and/or set to 0 to support when a table is state transitioning i.e. deleting.
(struct: DescribeTableResp ([name : String]
@@ -31,7 +31,7 @@
InvokeConditionsNotMet InvokeConditionsNotMet?)
(require
- (only-in (planet rpr/format:1/json/tjson)
+ (only-in "../../format/json/tjson.rkt"
Json JsObject JsObject? json->string string->json jsobject))
(struct: DDBFailure exn:fail () #:transparent)
@@ -22,29 +22,29 @@
get-item GetItemResp GetItemResp? GetItemResp-items GetItemResp-consumed)
(require
- (only-in (planet rpr/format:1/json/tjson)
- JsObject-empty
- Json JsObject JsObject? json->string string->json jsobject
- jsobject-add-attribute jsobject-remove-attribute)
- (only-in (planet rpr/prelude:1/std/opt)
- opt-orelse)
+ (only-in "../../format/json/tjson.rkt"
+ JsObject-empty
+ Json JsObject JsObject? json->string string->json jsobject
+ jsobject-add-attribute jsobject-remove-attribute)
+ (only-in "../../prelude/std/opt.rkt"
+ opt-orelse)
(only-in "types.rkt"
- ddbtype-symbol DDBType
- Item
- Key Key? Key-name Key-type
- KeyVal KeyVal? KeyVal-value KeyVal-type
- ItemKey)
+ ddbtype-symbol DDBType
+ Item
+ Key Key? Key-name Key-type
+ KeyVal KeyVal? KeyVal-value KeyVal-type
+ ItemKey)
(only-in "action.rkt"
- GET-ITEM)
+ GET-ITEM)
(only-in "invoke.rkt"
- dynamodb)
+ dynamodb)
(only-in "request.rkt"
- itemkey-json)
+ itemkey-json)
(only-in "response.rkt"
- parse-consumed-capacity
- parse-fail
- parse-items))
-
+ parse-consumed-capacity
+ parse-fail
+ parse-items))
+
(struct: GetItemResp ([items : (HashTable String Item)] [consumed : Float]) #:transparent)
(: get-item-request (String ItemKey (Listof String) Boolean -> String))
@@ -23,23 +23,23 @@
(require
(only-in racket/pretty
pretty-print)
- (only-in (planet rpr/prelude:1/std/control)
+ (only-in "../../prelude/std/control.rkt"
aif)
- (only-in (planet rpr/httpclient:1/uri/url/encode)
+ (only-in "../../httpclient/uri/url/encode.rkt"
url-encode-string)
- (only-in (planet rpr/httpclient:1/uri)
+ (only-in "../../httpclient/uri.rkt"
Uri Uri-query make-uri parse-uri uri->string)
- (only-in (planet rpr/httpclient:1/http/http11)
+ (only-in "../../httpclient/http/http11.rkt"
HTTPPayload HTTPConnection-in
http-successful? http-close-connection http-invoke)
- (only-in (planet rpr/httpclient:1/uri/url/param)
+ (only-in "../../httpclient/uri/url/param.rkt"
param Param Params encode-param)
- (only-in (planet rpr/httpclient:1/http/header)
+ (only-in "../../httpclient/http/header.rkt"
Header Headers make-header)
- (only-in (planet rpr/prelude:1/type/date)
+ (only-in "../../prelude/type/date.rkt"
current-date-string-rfc-2822
current-date-string-iso-8601)
- (only-in (planet rpr/format:1/json/tjson)
+ (only-in "../../format/json/tjson.rkt"
Json JsObject JsObject? read-json write-json)
(only-in "error.rkt"
DDBFailure DDBFailure? ddb-failure
@@ -50,7 +50,7 @@
auth-signature)
(only-in "config.rkt"
ddb-host)
- (only-in (planet rpr/aws:1/credential)
+ (only-in "../credential.rkt"
SessionCredential SessionCredential?
AwsCredential-session AwsCredential? BaseCredential-secret-key BaseCredential-access-key
SessionCredential-token current-aws-credential))
Oops, something went wrong.

0 comments on commit 7ae32f4

Please sign in to comment.