|
64202
|
1 |
/* Title: Pure/Admin/build_release.scala
|
|
|
2 |
Author: Makarius
|
|
|
3 |
|
|
|
4 |
Build full Isabelle distribution from repository.
|
|
|
5 |
*/
|
|
|
6 |
|
|
|
7 |
package isabelle
|
|
|
8 |
|
|
|
9 |
|
|
|
10 |
object Build_Release
|
|
|
11 |
{
|
|
64203
|
12 |
sealed case class Release_Info(
|
|
|
13 |
date: Date, name: String, dist_dir: Path, dist_archive: Path, dist_library_archive: Path)
|
|
|
14 |
|
|
64208
|
15 |
private val default_platform_families = List("linux", "windows", "windows64", "macos")
|
|
64204
|
16 |
|
|
64202
|
17 |
def build_release(base_dir: Path,
|
|
|
18 |
progress: Progress = Ignore_Progress,
|
|
|
19 |
rev: String = "",
|
|
|
20 |
official_release: Boolean = false,
|
|
|
21 |
release_name: String = "",
|
|
64208
|
22 |
platform_families: List[String] = default_platform_families,
|
|
64202
|
23 |
build_library: Boolean = false,
|
|
|
24 |
parallel_jobs: Int = 1,
|
|
64203
|
25 |
remote_mac: String = ""): Release_Info =
|
|
64202
|
26 |
{
|
|
|
27 |
/* release info */
|
|
|
28 |
|
|
64203
|
29 |
val release_info =
|
|
|
30 |
{
|
|
|
31 |
val date = Date.now()
|
|
|
32 |
val name = if (release_name != "") release_name else "Isabelle_" + Date.Format.date(date)
|
|
|
33 |
val dist_dir = base_dir + Path.explode("dist-" + name)
|
|
|
34 |
val dist_archive = dist_dir + Path.explode(name + ".tar.gz")
|
|
|
35 |
val dist_library_archive = dist_dir + Path.explode(name + "_library.tar.gz")
|
|
|
36 |
Release_Info(date, name, dist_dir, dist_archive, dist_library_archive)
|
|
|
37 |
}
|
|
64202
|
38 |
|
|
64208
|
39 |
val main_platform_bundles =
|
|
|
40 |
List("linux" -> (release_info.name + "_app.tar.gz"),
|
|
64204
|
41 |
"windows" -> (release_info.name + "-win32.exe"),
|
|
|
42 |
"windows64" -> (release_info.name + "-win64.exe"),
|
|
|
43 |
"macos" -> (release_info.name + ".dmg"))
|
|
|
44 |
|
|
64208
|
45 |
val fallback_platform_bundles =
|
|
|
46 |
List("macos" -> (release_info.name + "_dmg.tar.gz"))
|
|
|
47 |
|
|
64204
|
48 |
val platform_bundles =
|
|
|
49 |
for (platform_family <- platform_families) yield {
|
|
64208
|
50 |
main_platform_bundles.toMap.get(platform_family) match {
|
|
64204
|
51 |
case None => error("Unknown platform family " + quote(platform_family))
|
|
|
52 |
case Some(bundle) => (platform_family, bundle)
|
|
|
53 |
}
|
|
|
54 |
}
|
|
|
55 |
|
|
64202
|
56 |
|
|
|
57 |
/* make distribution */
|
|
|
58 |
|
|
64203
|
59 |
val jobs_option = " -j" + parallel_jobs.toString
|
|
|
60 |
|
|
|
61 |
if (release_info.dist_archive.is_file)
|
|
64209
|
62 |
progress.echo("### Release archive already exists: " + release_info.dist_archive.implode)
|
|
64203
|
63 |
else {
|
|
64209
|
64 |
progress.echo("Producing release archive " + release_info.dist_archive.implode + " ...")
|
|
64203
|
65 |
progress.bash(
|
|
|
66 |
"isabelle makedist -d " + File.bash_path(base_dir) + jobs_option +
|
|
|
67 |
(if (official_release) " -O" else "") +
|
|
|
68 |
(if (release_name != "") " -r " + File.bash_string(release_name) else "") +
|
|
|
69 |
(if (rev != "") " " + File.bash_string(rev) else ""),
|
|
|
70 |
echo = true).check
|
|
|
71 |
}
|
|
64202
|
72 |
|
|
|
73 |
|
|
|
74 |
/* make application bundles */
|
|
|
75 |
|
|
64204
|
76 |
for ((platform_family, platform_bundle) <- platform_bundles) {
|
|
64203
|
77 |
val bundle_archive =
|
|
64210
|
78 |
release_info.dist_dir +
|
|
|
79 |
Path.explode(
|
|
|
80 |
(if (remote_mac.isEmpty) fallback_platform_bundles.toMap.get(platform_family) else None)
|
|
|
81 |
getOrElse platform_bundle)
|
|
64203
|
82 |
if (bundle_archive.is_file)
|
|
64209
|
83 |
progress.echo("### Application bundle already exists: " + bundle_archive.implode)
|
|
64203
|
84 |
else {
|
|
64209
|
85 |
progress.echo("\nApplication bundle for " + platform_family + ": " + bundle_archive.implode)
|
|
64203
|
86 |
progress.bash(
|
|
|
87 |
"isabelle makedist_bundle " + File.bash_path(release_info.dist_archive) +
|
|
|
88 |
" " + File.bash_string(platform_family) +
|
|
|
89 |
(if (remote_mac == "") "" else " " + File.bash_string(remote_mac)),
|
|
|
90 |
echo = true).check
|
|
|
91 |
}
|
|
64202
|
92 |
}
|
|
|
93 |
|
|
|
94 |
|
|
|
95 |
/* minimal website */
|
|
|
96 |
|
|
64206
|
97 |
val existing_platform_bundles =
|
|
64208
|
98 |
Library.distinct(
|
|
|
99 |
for {
|
|
|
100 |
(a, b) <- main_platform_bundles ::: fallback_platform_bundles
|
|
|
101 |
p = release_info.dist_dir + Path.explode(b)
|
|
|
102 |
if p.is_file
|
|
|
103 |
} yield (a, b), (x: (String, String), y: (String, String)) => x._1 == y._1)
|
|
64206
|
104 |
|
|
64203
|
105 |
File.write(release_info.dist_dir + Path.explode("index.html"),
|
|
64202
|
106 |
"""<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2//EN">
|
|
|
107 |
<html>
|
|
|
108 |
<head>
|
|
64203
|
109 |
<title>""" + HTML.output(release_info.name) + """</title>
|
|
64202
|
110 |
</head>
|
|
|
111 |
|
|
|
112 |
<body>
|
|
64203
|
113 |
<h1>""" + HTML.output(release_info.name) + """</h1>
|
|
64202
|
114 |
<ul>
|
|
64203
|
115 |
""" +
|
|
64206
|
116 |
cat_lines(existing_platform_bundles.map({ case (a, b) =>
|
|
64203
|
117 |
"<li><a href=" + quote(HTML.output(a)) + ">" + HTML.output(b) + "</a></li>" })) +
|
|
|
118 |
"""
|
|
64202
|
119 |
</ul>
|
|
|
120 |
</body>
|
|
|
121 |
|
|
|
122 |
</html>
|
|
|
123 |
""")
|
|
|
124 |
|
|
|
125 |
|
|
|
126 |
/* HTML library */
|
|
|
127 |
|
|
64203
|
128 |
if (build_library) {
|
|
|
129 |
if (release_info.dist_library_archive.is_file)
|
|
64209
|
130 |
progress.echo("### Library archive already exists: " +
|
|
|
131 |
release_info.dist_library_archive.implode)
|
|
64203
|
132 |
else {
|
|
|
133 |
progress.bash("\"$ISABELLE_HOME/Admin/Release/build_library\"" + jobs_option + " " +
|
|
|
134 |
File.bash_path(release_info.dist_dir +
|
|
|
135 |
Path.explode(release_info.name + "_" +
|
|
|
136 |
Isabelle_System.getenv_strict("ISABELLE_PLATFORM_FAMILY") + ".tar.gz"))).check
|
|
|
137 |
}
|
|
|
138 |
}
|
|
|
139 |
|
|
|
140 |
|
|
|
141 |
release_info
|
|
64202
|
142 |
}
|
|
|
143 |
|
|
|
144 |
|
|
|
145 |
|
|
|
146 |
/** command line entry point **/
|
|
|
147 |
|
|
|
148 |
def main(args: Array[String])
|
|
|
149 |
{
|
|
|
150 |
Command_Line.tool0 {
|
|
|
151 |
var remote_mac = ""
|
|
|
152 |
var official_release = false
|
|
|
153 |
var release_name = ""
|
|
|
154 |
var parallel_jobs = 1
|
|
|
155 |
var build_library = false
|
|
64208
|
156 |
var platform_families = default_platform_families
|
|
64202
|
157 |
var rev = ""
|
|
|
158 |
|
|
|
159 |
val getopts = Getopts("""
|
|
|
160 |
Usage: Admin/build_release [OPTIONS] BASE_DIR
|
|
|
161 |
|
|
|
162 |
Options are:
|
|
|
163 |
-M USER@HOST remote Mac OS X for dmg build
|
|
|
164 |
-O official release (not release-candidate)
|
|
|
165 |
-R RELEASE proper release with name
|
|
|
166 |
-j INT maximum number of parallel jobs (default 1)
|
|
|
167 |
-l build library
|
|
64204
|
168 |
-p NAMES platform families (comma separated list, default: """ +
|
|
64208
|
169 |
default_platform_families.mkString(",") + """)
|
|
64202
|
170 |
-r REV Mercurial changeset id (default: RELEASE or tip)
|
|
|
171 |
|
|
|
172 |
Build Isabelle release in base directory, using the local repository clone.
|
|
|
173 |
""",
|
|
|
174 |
"M:" -> (arg => remote_mac = arg),
|
|
|
175 |
"O" -> (_ => official_release = true),
|
|
|
176 |
"R:" -> (arg => release_name = arg),
|
|
|
177 |
"j:" -> (arg => parallel_jobs = Value.Int.parse(arg)),
|
|
64204
|
178 |
"l" -> (_ => build_library),
|
|
|
179 |
"p:" -> (arg => platform_families = Library.space_explode(',', arg)),
|
|
|
180 |
"r:" -> (arg => rev = arg))
|
|
64202
|
181 |
|
|
|
182 |
val more_args = getopts(args)
|
|
|
183 |
val base_dir = more_args match { case List(base_dir) => base_dir case _ => getopts.usage() }
|
|
|
184 |
|
|
|
185 |
val progress = new Console_Progress()
|
|
|
186 |
|
|
|
187 |
build_release(Path.explode(base_dir), progress = progress, rev = rev,
|
|
|
188 |
official_release = official_release, release_name = release_name,
|
|
64204
|
189 |
platform_families =
|
|
64208
|
190 |
if (platform_families.isEmpty) default_platform_families else platform_families,
|
|
64202
|
191 |
build_library = build_library, parallel_jobs = parallel_jobs, remote_mac = remote_mac)
|
|
|
192 |
}
|
|
|
193 |
}
|
|
|
194 |
}
|