author | wenzelm |
Thu, 03 Mar 2022 17:11:43 +0100 | |
changeset 75202 | 4fdde010086f |
parent 74734 | f345da8defff |
child 75393 | 87ebf5a50283 |
permissions | -rw-r--r-- |
74482
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
1 |
/* Title: Pure/Admin/build_minisat.scala |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
2 |
Author: Makarius |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
3 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
4 |
Build Isabelle Minisat from sources. |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
5 |
*/ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
6 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
7 |
package isabelle |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
8 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
9 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
10 |
object Build_Minisat |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
11 |
{ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
12 |
val default_download_url = "https://github.com/stp/minisat/archive/releases/2.2.1.tar.gz" |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
13 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
14 |
def make_component_name(version: String): String = "minisat-" + version |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
15 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
16 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
17 |
/* build Minisat */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
18 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
19 |
def build_minisat( |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
20 |
download_url: String = default_download_url, |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
21 |
component_name: String = "", |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
22 |
verbose: Boolean = false, |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
23 |
progress: Progress = new Progress, |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
24 |
target_dir: Path = Path.current): Unit = |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
25 |
{ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
26 |
Isabelle_System.with_tmp_dir("build")(tmp_dir => |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
27 |
{ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
28 |
/* component */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
29 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
30 |
val Archive_Name = """^.*?([^/]+)$""".r |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
31 |
val Version = """^v?([0-9.]+)\.tar.gz$""".r |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
32 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
33 |
val archive_name = |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
34 |
download_url match { |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
35 |
case Archive_Name(name) => name |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
36 |
case _ => error("Failed to determine source archive name from " + quote(download_url)) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
37 |
} |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
38 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
39 |
val version = |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
40 |
archive_name match { |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
41 |
case Version(version) => version |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
42 |
case _ => error("Failed to determine component version from " + quote(archive_name)) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
43 |
} |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
44 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
45 |
val component = proper_string(component_name) getOrElse make_component_name(version) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
46 |
val component_dir = Isabelle_System.new_directory(target_dir + Path.basic(component)) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
47 |
progress.echo("Component " + component_dir) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
48 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
49 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
50 |
/* platform */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
51 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
52 |
val platform_name = |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
53 |
proper_string(Isabelle_System.getenv("ISABELLE_PLATFORM64")) getOrElse |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
54 |
error("No 64bit platform") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
55 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
56 |
val platform_dir = Isabelle_System.make_directory(component_dir + Path.basic(platform_name)) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
57 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
58 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
59 |
/* download source */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
60 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
61 |
val archive_path = tmp_dir + Path.basic(archive_name) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
62 |
Isabelle_System.download_file(download_url, archive_path, progress = progress) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
63 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
64 |
Isabelle_System.bash("tar xzf " + File.bash_path(archive_path), cwd = tmp_dir.file).check |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
65 |
val source_name = File.get_dir(tmp_dir) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
66 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
67 |
Isabelle_System.bash( |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
68 |
"tar xzf " + archive_path + " && mv " + Bash.string(source_name) + " src", |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
69 |
cwd = component_dir.file).check |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
70 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
71 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
72 |
/* build */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
73 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
74 |
progress.echo("Building Minisat for " + platform_name + " ...") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
75 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
76 |
val build_dir = tmp_dir + Path.basic(source_name) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
77 |
Isabelle_System.copy_file(build_dir + Path.explode("LICENSE"), component_dir) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
78 |
|
74483 | 79 |
if (Platform.is_macos) { |
75202 | 80 |
File.change(build_dir + Path.explode("Makefile")) { |
81 |
_.replaceAll("--static", "").replaceAll("-Wl,-soname\\S+", "") |
|
82 |
} |
|
74483 | 83 |
} |
74482
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
84 |
progress.bash("make r", build_dir.file, echo = verbose).check |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
85 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
86 |
Isabelle_System.copy_file( |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
87 |
build_dir + Path.explode("build/release/bin/minisat").platform_exe, platform_dir) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
88 |
|
74734
f345da8defff
repackage minisat-2.2.1 with cygwin1.dll: required to run the executable without existing Cygwin context (normally provided by bash_process);
wenzelm
parents:
74484
diff
changeset
|
89 |
if (Platform.is_windows) { |
f345da8defff
repackage minisat-2.2.1 with cygwin1.dll: required to run the executable without existing Cygwin context (normally provided by bash_process);
wenzelm
parents:
74484
diff
changeset
|
90 |
Isabelle_System.copy_file(Path.explode("/bin/cygwin1.dll"), platform_dir) |
f345da8defff
repackage minisat-2.2.1 with cygwin1.dll: required to run the executable without existing Cygwin context (normally provided by bash_process);
wenzelm
parents:
74484
diff
changeset
|
91 |
} |
f345da8defff
repackage minisat-2.2.1 with cygwin1.dll: required to run the executable without existing Cygwin context (normally provided by bash_process);
wenzelm
parents:
74484
diff
changeset
|
92 |
|
74482
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
93 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
94 |
/* settings */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
95 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
96 |
val etc_dir = Isabelle_System.make_directory(component_dir + Path.basic("etc")) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
97 |
File.write(etc_dir + Path.basic("settings"), |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
98 |
"""# -*- shell-script -*- :mode=shellscript: |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
99 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
100 |
MINISAT_HOME="$COMPONENT/$ISABELLE_PLATFORM64" |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
101 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
102 |
ISABELLE_MINISAT="$MINISAT_HOME/minisat" |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
103 |
""") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
104 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
105 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
106 |
/* README */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
107 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
108 |
File.write(component_dir + Path.basic("README"), |
74484 | 109 |
"This Isabelle component provides Minisat " + version + """ using the |
74482
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
110 |
sources from """.stripMargin + download_url + """ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
111 |
|
74483 | 112 |
The executables have been built via "make r"; macOS requires to |
113 |
remove options "--static" and "-Wl,-soname,..." from the Makefile. |
|
74482
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
114 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
115 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
116 |
Makarius |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
117 |
""" + Date.Format.date(Date.now()) + "\n") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
118 |
}) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
119 |
} |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
120 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
121 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
122 |
/* Isabelle tool wrapper */ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
123 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
124 |
val isabelle_tool = |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
125 |
Isabelle_Tool("build_minisat", "build prover component from sources", Scala_Project.here, |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
126 |
args => |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
127 |
{ |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
128 |
var target_dir = Path.current |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
129 |
var download_url = default_download_url |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
130 |
var component_name = "" |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
131 |
var verbose = false |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
132 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
133 |
val getopts = Getopts(""" |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
134 |
Usage: isabelle build_minisat [OPTIONS] |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
135 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
136 |
Options are: |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
137 |
-D DIR target directory (default ".") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
138 |
-U URL download URL |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
139 |
(default: """" + default_download_url + """") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
140 |
-n NAME component name (default: """" + make_component_name("VERSION") + """") |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
141 |
-v verbose |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
142 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
143 |
Build prover component from official download. |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
144 |
""", |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
145 |
"D:" -> (arg => target_dir = Path.explode(arg)), |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
146 |
"U:" -> (arg => download_url = arg), |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
147 |
"n:" -> (arg => component_name = arg), |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
148 |
"v" -> (_ => verbose = true)) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
149 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
150 |
val more_args = getopts(args) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
151 |
if (more_args.nonEmpty) getopts.usage() |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
152 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
153 |
val progress = new Console_Progress() |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
154 |
|
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
155 |
build_minisat(download_url = download_url, component_name = component_name, |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
156 |
verbose = verbose, progress = progress, target_dir = target_dir) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
157 |
}) |
bd5998580edb
build minisat, using recent fork from original sources;
wenzelm
parents:
diff
changeset
|
158 |
} |