blob: c2e20a174a504a974b898e7d5ebf56914b251639 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
Guile AWS is pre-alpha software. At the very least it’s yet another demonstration that Guile’s compiler tower can be used to generate an embedded domain specific language from JSON specifications.
Here is an example session to create an EFS and make it ready for mounting on an EC2 instance:
#+begin_src scheme
(import (aws api elasticfilesystem-2015-02-01))
(CreateFileSystem
#:CreationToken "my-guile-aws-filesystem")
#; (("ThroughputMode" . "bursting")
("Tags" . #())
("SizeInBytes"
("ValueInStandard" . 0)
("ValueInIA" . 0)
("Value" . 0)
("Timestamp" . null))
("ReplicationPolicies" . null)
("ProvisionedThroughputInMibps" . null)
("PerformanceMode" . "generalPurpose")
("OwnerId" . "439516136713")
("NumberOfMountTargets" . 0)
("Name" . null)
("LifeCycleState" . "creating")
("KmsKeyId" . null)
("FileSystemId" . "fs-8bee03d0")
("FileSystemArn"
.
"arn:aws:elasticfilesystem:eu-central-1:439516136713:file-system/fs-3c759b67")
("Encrypted" . #f)
("CreationToken" . "my-guile-aws-filesystem")
("CreationTime" . 1614808760.0)
("AvailabilityZoneName" . null)
("AvailabilityZoneId" . null))
(CreateAccessPoint
#:ClientToken "my-guile-aws-filesystem"
#:FileSystemId "fs-8bee03d0")
#;
(("Tags" . #())
("RootDirectory"
("Path" . "/")
("CreationInfo" . null))
("PosixUser" . null)
("OwnerId" . "439516136713")
("Name" . null)
("LifeCycleState" . "creating")
("FileSystemId" . "fs-8bee03d0")
("ClientToken" . "my-guile-aws-filesystem")
("AccessPointId" . "fsap-0d9a986284d086526")
("AccessPointArn"
.
"arn:aws:elasticfilesystem:eu-central-1:439516136713:access-point/fsap-0d9a986284d086526"))
;; Use the same subnet identifier as your EC2 instances.
(CreateMountTarget
#:FileSystemId "fs-8bee03d0"
#:SubnetId "subnet-7f6a7102")
#;
(("VpcId" . "vpc-8e31f4e4")
("SubnetId" . "subnet-7f6a7102")
("OwnerId" . "439516136713")
("NetworkInterfaceId" . "eni-08df70c51f2ecbc33")
("MountTargetId" . "fsmt-023b3e5b")
("LifeCycleState" . "creating")
("IpAddress" . "172.31.44.41")
("FileSystemId" . "fs-3c759b67")
("AvailabilityZoneName" . "eu-central-1b")
("AvailabilityZoneId" . "euc1-az3"))
;; Tear down
(DeleteMountTarget
#:MountTargetId "fsmt-284b4e71")
#; #t
(DeleteAccessPoint
#:AccessPointId "fsap-0d9a986284d086526")
#; #t
(DeleteFileSystem
#:FileSystemId "fs-8bee03d0")
#; #t
#+end_src
You can also separate the request definition from submitting the request. This is useful if you want your requests type-checked well before even getting near to submission:
#+begin_src scheme
;; This is type-checked right away, so any errors will show up here.
(define req
(DeleteFileSystemRequest
#:FileSystemId "fs-8bee03d0"))
;; Actually submit the request
(DeleteFileSystem req)
#+end_src
As you can see, the output is pretty bad as it is currently unprocessed SXML or JSON. It may not even work at all, because the AWS APIs are all a little different.
Considering all these caveats there are a couple of obvious things to work on:
** Extend requestUri formatting
The =(aws request)= module interprets the =requestUri= field and substitutes placeholders. However, this was only tested with the EFS API. The S3 API uses fancier placeholders such as ="/{Bucket}/{Key+}?restore"= — it is not clear yet how to interpret the plus.
** Create aliases
The S3 API (for example) defines aliases for some operations, such as “PostObjectRestore” for “RestoreObject”. The compiler should process the “alias” field.
** Record possible errors
The S3 API and the EFS API (for example) define possible error names. While their shape is not specified anywhere we should generate values for these error conditions.
** Process output shapes
We generate types for all defined shapes — including output shapes — but we don’t mashall the output SXML into appropriate Scheme values yet.
** Turn errors into Scheme conditions
This is easier said than done because different APIs return different kinds of errors.
|
