blob: 4ec8b8ae6bfb3f1b00020c388f55e2fd351c654a (
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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
(.module:
[lux #*
[data
["." text ("#@." equivalence)]
[collection
["." dictionary (#+ Dictionary)]
["." list ("#@." functor)]
["." set (#+ Set)]]]
[macro
["." code]]]
["." // #_
["/" profile]
["#." project (#+ Project)]
["#." dependency (#+ Dependency)]
["#." artifact (#+ Artifact)
["#/." type]]])
(type: #export (Format a)
(-> a Code))
(def: (license [name url type])
(Format /.License)
(`' {#name (~ (code.text name))
#url (~ (code.text url))
#type (~ (case type
#/.Repo
(' #repo)
#/.Manual
(' #manual)))}))
(def: (organization [name url])
(Format /.Organization)
(`' {#name (~ (code.text name))
#url (~ (code.text url))}))
(def: (developer [name url organization])
(Format /.Developer)
(case organization
#.None
(`' {#name (~ (code.text name))
#url (~ (code.text url))})
(#.Some value)
(`' {#name (~ (code.text name))
#url (~ (code.text url))
#organization (~ (..organization value))})))
(def: contributor
(Format /.Contributor)
..developer)
(type: Aggregate
(Dictionary Text Code))
(def: aggregate
(Format Aggregate)
(|>> dictionary.entries
(list@map (function (_ [key value])
[(code.local-tag key) value]))
code.record))
(def: empty
Aggregate
(dictionary.new text.hash))
(def: (on-maybe field value format aggregate)
(All [a]
(-> Text (Maybe a) (Format a) Aggregate Aggregate))
(case value
#.None
aggregate
(#.Some value)
(dictionary.put field (format value) aggregate)))
(def: (on-list field value format aggregate)
(All [a]
(-> Text (List a) (Format a) Aggregate Aggregate))
(case value
#.Nil
aggregate
value
(dictionary.put field (` [(~+ (list@map format value))]) aggregate)))
(def: (on-set field value format aggregate)
(All [a]
(-> Text (Set a) (Format a) Aggregate Aggregate))
(..on-list field (set.to-list value) format aggregate))
(def: (on-dictionary field value key-format value-format aggregate)
(All [k v]
(-> Text (Dictionary k v) (Format k) (Format v) Aggregate Aggregate))
(if (dictionary.empty? value)
aggregate
(dictionary.put field
(|> value
dictionary.entries
(list@map (function (_ [key value])
[(key-format key) (value-format value)]))
code.record)
aggregate)))
(def: (info value)
(Format /.Info)
(|> ..empty
(..on-maybe "url" (get@ #/.url value) code.text)
(..on-maybe "scm" (get@ #/.scm value) code.text)
(..on-maybe "description" (get@ #/.description value) code.text)
(..on-list "licenses" (get@ #/.licenses value) ..license)
(..on-maybe "organization" (get@ #/.organization value) ..organization)
(..on-list "developers" (get@ #/.developers value) ..developer)
(..on-list "contributors" (get@ #/.contributors value) ..contributor)
..aggregate))
(def: (artifact' [group name version])
(-> Artifact (List Code))
(list (code.text group)
(code.text name)
(code.text version)))
(def: (artifact value)
(Format Artifact)
(` [(~+ (..artifact' value))]))
(def: (dependency [artifact type])
(Format Dependency)
(if (text@= //artifact/type.lux-library type)
(` [(~+ (..artifact' artifact))])
(` [(~+ (..artifact' artifact))
(~ (code.text type))])))
(def: #export (profile value)
(Format /.Profile)
(|> ..empty
(..on-list "parents" (get@ #/.parents value) code.text)
(..on-maybe "identity" (get@ #/.identity value) ..artifact)
(..on-maybe "info" (get@ #/.info value) ..info)
(..on-set "repositories" (get@ #/.repositories value) code.text)
(..on-set "dependencies" (get@ #/.dependencies value) ..dependency)
(..on-set "sources" (get@ #/.sources value) code.text)
(..on-maybe "target" (get@ #/.target value) code.text)
(..on-maybe "program" (get@ #/.program value) code.text)
(..on-maybe "test" (get@ #/.test value) code.text)
(..on-dictionary "deploy-repositories" (get@ #/.deploy-repositories value) code.text code.text)
..aggregate))
(def: #export project
(Format Project)
(|>> dictionary.entries
(list@map (function (_ [key value])
[(code.text key) (..profile value)]))
code.record))
|
