mirror of
https://github.com/jimeh/build-emacs-for-macos.git
synced 2026-02-19 13:06:38 +00:00
Compare commits
29 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
8d165b627b
|
|||
|
9c977a75b5
|
|||
|
2054c8c0aa
|
|||
|
ca09d1a95f
|
|||
|
f1e60e31d9
|
|||
|
8d197aea73
|
|||
|
844df73c8f
|
|||
|
f1fc68c8f5
|
|||
|
e19a6a7bc2
|
|||
|
1000999eb2
|
|||
|
a75047fb3a
|
|||
|
a1641946e4
|
|||
|
581594da3c
|
|||
|
bdad382e7f
|
|||
|
e25ceaa7e2
|
|||
|
03ae8750b8
|
|||
|
269dbdb1dd
|
|||
| 713c970da4 | |||
|
dca023daec
|
|||
|
e56c26d06f
|
|||
|
b2860f22c3
|
|||
|
d1c5e7afb1
|
|||
|
ab55f5421c
|
|||
|
eb09d5fa49
|
|||
|
a47d3e0c6a
|
|||
|
5a61a72a73
|
|||
| 9cdf67e71b | |||
|
946856e9c2
|
|||
|
|
2247158051
|
1
Brewfile
1
Brewfile
@@ -1,5 +1,6 @@
|
|||||||
# frozen_string_literal: true
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
brew 'autoconf'
|
||||||
brew 'coreutils'
|
brew 'coreutils'
|
||||||
brew 'curl'
|
brew 'curl'
|
||||||
brew 'expat'
|
brew 'expat'
|
||||||
|
|||||||
58
CHANGELOG.md
58
CHANGELOG.md
@@ -2,6 +2,64 @@
|
|||||||
|
|
||||||
All notable changes to this project will be documented in this file. See [standard-version](https://github.com/conventional-changelog/standard-version) for commit guidelines.
|
All notable changes to this project will be documented in this file. See [standard-version](https://github.com/conventional-changelog/standard-version) for commit guidelines.
|
||||||
|
|
||||||
|
### [0.4.10](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.9...0.4.10) (2021-04-25)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **cli:** correctly default to master branch if no git ref is given ([844df73](https://github.com/jimeh/build-emacs-for-macos/commit/844df73c8fa8440e657f7900ec89cdedb7c4c312))
|
||||||
|
|
||||||
|
### [0.4.9](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.8...0.4.9) (2021-04-08)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **cli:** default to "master" if no git ref is given ([e19a6a7](https://github.com/jimeh/build-emacs-for-macos/commit/e19a6a7bc24379292ee06ae4c805b8c5365f2d97)), closes [#35](https://github.com/jimeh/build-emacs-for-macos/issues/35)
|
||||||
|
* **native_comp:** skip symlink creation for recent builds which do not need symlinks ([1000999](https://github.com/jimeh/build-emacs-for-macos/commit/1000999eb2673dc207a390ff3f902b9987b99173))
|
||||||
|
|
||||||
|
### [0.4.8](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.7...0.4.8) (2021-02-27)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **native_comp:** add support for new --with-native-compilation flag ([581594d](https://github.com/jimeh/build-emacs-for-macos/commit/581594da3cfbf1dd2fa28e91710b767e21ff75d2))
|
||||||
|
|
||||||
|
### [0.4.7](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.6...0.4.7) (2021-02-21)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **native_comp:** add libgccjit include dir during build stage ([e25ceaa](https://github.com/jimeh/build-emacs-for-macos/commit/e25ceaa7e25b0e1b9947401597845b5ba43e6cd1)), closes [#20](https://github.com/jimeh/build-emacs-for-macos/issues/20)
|
||||||
|
|
||||||
|
### [0.4.6](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.5...0.4.6) (2021-02-15)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **native_comp:** improve env setup patch fixing potential issues ([dca023d](https://github.com/jimeh/build-emacs-for-macos/commit/dca023daecd8704f197cbc391380aa194bc47d62))
|
||||||
|
|
||||||
|
### [0.4.5](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.4...0.4.5) (2021-01-06)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **cli:** remove defunct --[no-]native-comp-macos-fixes option ([ab55f54](https://github.com/jimeh/build-emacs-for-macos/commit/ab55f5421c81dc629e487bf4b8bb402657cb1bc4))
|
||||||
|
|
||||||
|
### [0.4.4](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.3...0.4.4) (2021-01-02)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **deps:** add autoconf to Brewfile ([a47d3e0](https://github.com/jimeh/build-emacs-for-macos/commit/a47d3e0c6a8ea8161a3bad0eafdac2401cf53129))
|
||||||
|
|
||||||
|
### [0.4.3](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.2...0.4.3) (2020-12-28)
|
||||||
|
|
||||||
|
|
||||||
|
### Bug Fixes
|
||||||
|
|
||||||
|
* **big-sur:** add Xcode CLI tools lib directory to runtime LIBRARY_PATH ([946856e](https://github.com/jimeh/build-emacs-for-macos/commit/946856e9c242d4a6fb5f839d8cae0acfafecdfc6))
|
||||||
|
* **big-sur:** added support for building on Big Sur ([2247158](https://github.com/jimeh/build-emacs-for-macos/commit/2247158051d0f59933569b6974b2b5269f13c79e))
|
||||||
|
|
||||||
### [0.4.2](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.1...0.4.2) (2020-12-09)
|
### [0.4.2](https://github.com/jimeh/build-emacs-for-macos/compare/0.4.1...0.4.2) (2020-12-09)
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
2
Gemfile
2
Gemfile
@@ -5,4 +5,6 @@ source 'http://rubygems.org/'
|
|||||||
group :development do
|
group :development do
|
||||||
gem 'byebug'
|
gem 'byebug'
|
||||||
gem 'rubocop'
|
gem 'rubocop'
|
||||||
|
gem 'rubocop-daemon'
|
||||||
|
gem 'solargraph', '~> 0.39.17'
|
||||||
end
|
end
|
||||||
|
|||||||
17
Makefile
17
Makefile
@@ -1,9 +1,12 @@
|
|||||||
.PHONY: new-version
|
.PHONY: new-version
|
||||||
new-version:
|
new-version: check-npx
|
||||||
$(if $(shell which npx),,\
|
|
||||||
$(error No npx found in PATH, please install NodeJS))
|
|
||||||
$(if $(shell which standard-version),,\
|
|
||||||
$(error No standard-version found in PATH, install with: \
|
|
||||||
npm install -g standard-version))
|
|
||||||
|
|
||||||
npx standard-version
|
npx standard-version
|
||||||
|
|
||||||
|
.PHONY: next-version
|
||||||
|
next-version: check-npx
|
||||||
|
npx standard-version --dry-run
|
||||||
|
|
||||||
|
.PHONY: check-npx
|
||||||
|
check-npx:
|
||||||
|
$(if $(shell which npx),,\
|
||||||
|
$(error No npx execuable found in PATH, please install NodeJS))
|
||||||
|
|||||||
47
README.md
47
README.md
@@ -1,7 +1,8 @@
|
|||||||
# build-emacs-for-macos
|
# build-emacs-for-macos
|
||||||
|
|
||||||
My personal hacked together script for building a completely self-contained
|
My personal hacked together script for building a completely self-contained
|
||||||
Emacs.app application on macOS, from any git branch, tag, or ref.
|
Emacs.app application on macOS, from any git branch, tag, or ref. With support
|
||||||
|
for native-compilation.
|
||||||
|
|
||||||
Use this script at your own risk.
|
Use this script at your own risk.
|
||||||
|
|
||||||
@@ -18,7 +19,7 @@ Use this script at your own risk.
|
|||||||
|
|
||||||
## Status
|
## Status
|
||||||
|
|
||||||
As of writing (2020-10-04) it works for me on my machine. Your luck may vary.
|
As of writing (2021-04-25) it works for me on my machine. Your luck may vary.
|
||||||
|
|
||||||
I have successfully built:
|
I have successfully built:
|
||||||
|
|
||||||
@@ -29,8 +30,8 @@ I have successfully built:
|
|||||||
For reference, my machine is:
|
For reference, my machine is:
|
||||||
|
|
||||||
- 13-inch MacBook Pro (2020), 10th-gen 2.3 GHz Quad-Core Intel Core i7 (4c/8t)
|
- 13-inch MacBook Pro (2020), 10th-gen 2.3 GHz Quad-Core Intel Core i7 (4c/8t)
|
||||||
- macOS 10.15.6 (19G2021)
|
- macOS Big Sur 11.2.3 (20D91)
|
||||||
- Xcode 12.0
|
- Xcode 12.4 (12D4e)
|
||||||
|
|
||||||
## Limitations
|
## Limitations
|
||||||
|
|
||||||
@@ -74,8 +75,6 @@ Options:
|
|||||||
--[no-]xwidgets Enable/disable XWidgets (default: enabled if supported)
|
--[no-]xwidgets Enable/disable XWidgets (default: enabled if supported)
|
||||||
--[no-]native-comp Enable/disable native-comp (default: enabled if supported)
|
--[no-]native-comp Enable/disable native-comp (default: enabled if supported)
|
||||||
--[no-]native-full-aot Enable/disable NATIVE_FULL_AOT / Ahead of Time compilation (default: disabled)
|
--[no-]native-full-aot Enable/disable NATIVE_FULL_AOT / Ahead of Time compilation (default: disabled)
|
||||||
--[no-]native-comp-macos-fixes
|
|
||||||
Enable/disable fix based on feature/native-comp-macos-fixes branch (default: enabled if native-comp supported)
|
|
||||||
--rsvg Enable SVG image support via librsvg, can yield a unstable build (default: disabled)
|
--rsvg Enable SVG image support via librsvg, can yield a unstable build (default: disabled)
|
||||||
--no-titlebar Apply no-titlebar patch (default: disabled)
|
--no-titlebar Apply no-titlebar patch (default: disabled)
|
||||||
--no-frame-refocus Apply no-frame-refocus patch (default: disabled)
|
--no-frame-refocus Apply no-frame-refocus patch (default: disabled)
|
||||||
@@ -94,8 +93,8 @@ trash the corresponding directory from the `sources` directory.
|
|||||||
|
|
||||||
### Examples
|
### Examples
|
||||||
|
|
||||||
To download a tarball of the `master` branch (Emacs 28.x as of writing) and
|
To download a tarball of the `master` branch (Emacs 28.x with native-compilation
|
||||||
build Emacs.app from it:
|
as of writing) and build Emacs.app from it:
|
||||||
|
|
||||||
```
|
```
|
||||||
./build-emacs-for-macos
|
./build-emacs-for-macos
|
||||||
@@ -138,28 +137,24 @@ tools seems to use it to figure out the path to Emacs' executable, including
|
|||||||
|
|
||||||
## Native-Comp
|
## Native-Comp
|
||||||
|
|
||||||
Building a Emacs.app with native-comp support
|
_Note: On 2021-04-25 the `feature/native-comp` branch was
|
||||||
([gccemacs](https://akrl.sdf.org/gccemacs.html)) from the `feature/native-comp`
|
[merged](http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=289000eee729689b0cf362a21baa40ac7f9506f6)
|
||||||
branch is now supported without much hassle thanks to the newly released
|
into `master`._
|
||||||
`libgccjit` Homebrew formula.
|
|
||||||
|
|
||||||
Changes from the `feature/native-comp-macos-fixes` branch are also applied
|
The build script will automatically detect if the source tree being built
|
||||||
through a custom patch process which should be more future-proof compared to a
|
supports native-compilation, and enable it if available. You can override this
|
||||||
regular git diff patch.
|
to force it on/off by passing `--native-comp` or `--no-native-comp`
|
||||||
|
respectfully.
|
||||||
To build a Emacs.app with native compilation enabled, simply run:
|
|
||||||
|
|
||||||
```
|
|
||||||
./build-emacs-for-macos feature/native-comp
|
|
||||||
```
|
|
||||||
|
|
||||||
By default `NATIVE_FULL_AOT` is disabled which ensures a fast build by native
|
By default `NATIVE_FULL_AOT` is disabled which ensures a fast build by native
|
||||||
compiling as few lisp source files as possible to build the app. Any remaining
|
compiling as few elisp source files as possible to build Emacs itself. Any
|
||||||
lisp files will be dynamically compiled in the background the first time you use
|
remaining elisp files will be dynamically compiled in the background the first
|
||||||
them. To enable native full AoT, pass in the `--native-full-aot` option.
|
time they are used.
|
||||||
|
|
||||||
On my machine it takes around 10 minutes to build Emacs.app with
|
To enable native full Ahead-of-Time compilation, pass in the `--native-full-aot`
|
||||||
`NATIVE_FULL_AOT` disabled. With it enabled it takes around 20-25 minutes.
|
option, which will native-compile all of Emacs' elisp as built-time. On my
|
||||||
|
machine it takes around 10 minutes to build Emacs.app with `NATIVE_FULL_AOT`
|
||||||
|
disabled, and around 20-25 minutes with it enabled.
|
||||||
|
|
||||||
### Configuration
|
### Configuration
|
||||||
|
|
||||||
|
|||||||
52
bin/commit-info
Executable file
52
bin/commit-info
Executable file
@@ -0,0 +1,52 @@
|
|||||||
|
#!/usr/bin/env ruby
|
||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'optparse'
|
||||||
|
|
||||||
|
require_relative '../lib/commit_info'
|
||||||
|
require_relative '../lib/errors'
|
||||||
|
require_relative '../lib/log'
|
||||||
|
|
||||||
|
options = {
|
||||||
|
repo: 'emacs-mirror/emacs',
|
||||||
|
output: File.expand_path('../tarballs', __dir__),
|
||||||
|
log_level: :info
|
||||||
|
}
|
||||||
|
|
||||||
|
OptionParser.new do |opts|
|
||||||
|
opts.banner = <<~TXT
|
||||||
|
Usage: ./commit-info [options] <branch/tag/sha>
|
||||||
|
|
||||||
|
Fetch commit info of given GitHub repository branch, tag, or SHA.
|
||||||
|
|
||||||
|
Options:
|
||||||
|
TXT
|
||||||
|
|
||||||
|
opts.on('-r', '--repo STRING',
|
||||||
|
"GitHub repository (default: #{options[:repo]})") do |v|
|
||||||
|
options[:repo] = v
|
||||||
|
end
|
||||||
|
|
||||||
|
opts.on('-o', '--output DIR', 'Directory to save tarball in ' \
|
||||||
|
"(default: #{options[:output]})") do |v|
|
||||||
|
options[:output] = v
|
||||||
|
end
|
||||||
|
|
||||||
|
opts.on('-l', '--log-level LEVEL', 'Log level ' \
|
||||||
|
"(default: #{options[:log_level]})") do |v|
|
||||||
|
options[:log_level] = v.to_sym
|
||||||
|
end
|
||||||
|
end.parse!
|
||||||
|
|
||||||
|
begin
|
||||||
|
logger = Log.new('commit-info', options[:log_level])
|
||||||
|
commit = CommitInfo.new(
|
||||||
|
ref: ARGV[0],
|
||||||
|
repo: options[:repo],
|
||||||
|
logger: logger
|
||||||
|
).perform
|
||||||
|
|
||||||
|
puts commit.to_yaml
|
||||||
|
rescue Error => e
|
||||||
|
handle_error(e)
|
||||||
|
end
|
||||||
53
bin/download-tarball
Executable file
53
bin/download-tarball
Executable file
@@ -0,0 +1,53 @@
|
|||||||
|
#!/usr/bin/env ruby
|
||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'optparse'
|
||||||
|
|
||||||
|
require_relative '../lib/download_tarball'
|
||||||
|
require_relative '../lib/errors'
|
||||||
|
require_relative '../lib/log'
|
||||||
|
|
||||||
|
options = {
|
||||||
|
repo: 'emacs-mirror/emacs',
|
||||||
|
output: File.expand_path('../tarballs', __dir__),
|
||||||
|
log_level: :info
|
||||||
|
}
|
||||||
|
|
||||||
|
OptionParser.new do |opts|
|
||||||
|
opts.banner = <<~TXT
|
||||||
|
Usage: ./download-tarball [options] <branch/tag/sha>
|
||||||
|
|
||||||
|
Download a tarball of given GitHub repository branch, tag, or SHA.
|
||||||
|
|
||||||
|
Options:
|
||||||
|
TXT
|
||||||
|
|
||||||
|
opts.on('-r', '--repo STRING',
|
||||||
|
"GitHub repository (default: #{options[:repo]})") do |v|
|
||||||
|
options[:repo] = v
|
||||||
|
end
|
||||||
|
|
||||||
|
opts.on('-o', '--output DIR', 'Directory to save tarball in ' \
|
||||||
|
"(default: #{options[:output]})") do |v|
|
||||||
|
options[:output] = v
|
||||||
|
end
|
||||||
|
|
||||||
|
opts.on('-l', '--log-level LEVEL', 'Log level ' \
|
||||||
|
"(default: #{options[:log_level]})") do |v|
|
||||||
|
options[:log_level] = v.to_sym
|
||||||
|
end
|
||||||
|
end.parse!
|
||||||
|
|
||||||
|
begin
|
||||||
|
logger = Log.new('download-tarball', options[:log_level])
|
||||||
|
tarball = DownloadTarball.new(
|
||||||
|
ref: ARGV[0],
|
||||||
|
repo: options[:repo],
|
||||||
|
output: options[:output],
|
||||||
|
logger: logger
|
||||||
|
).perform
|
||||||
|
|
||||||
|
puts tarball.to_yaml
|
||||||
|
rescue Error => e
|
||||||
|
handle_error(e)
|
||||||
|
end
|
||||||
@@ -77,11 +77,13 @@ class Build
|
|||||||
attr_reader :source_dir
|
attr_reader :source_dir
|
||||||
attr_reader :ref
|
attr_reader :ref
|
||||||
attr_reader :options
|
attr_reader :options
|
||||||
|
attr_reader :gcc_info
|
||||||
|
|
||||||
def initialize(root_dir, ref = nil, options = {})
|
def initialize(root_dir, ref = nil, options = {})
|
||||||
@root_dir = root_dir
|
@root_dir = root_dir
|
||||||
@ref = ref
|
@ref = ref || 'master'
|
||||||
@options = options
|
@options = options
|
||||||
|
@gcc_info = GccInfo.new
|
||||||
end
|
end
|
||||||
|
|
||||||
def build
|
def build
|
||||||
@@ -99,7 +101,7 @@ class Build
|
|||||||
symlink_internals(app)
|
symlink_internals(app)
|
||||||
|
|
||||||
LibEmbedder.new(app, brew_dir, extra_libs).embed
|
LibEmbedder.new(app, brew_dir, extra_libs).embed
|
||||||
GccLibEmbedder.new(app, gcc_dir).embed if options[:native_comp]
|
GccLibEmbedder.new(app, gcc_info).embed if options[:native_comp]
|
||||||
|
|
||||||
archive_app(app)
|
archive_app(app)
|
||||||
end
|
end
|
||||||
@@ -122,19 +124,11 @@ class Build
|
|||||||
@brew_dir ||= `brew --prefix`.chomp
|
@brew_dir ||= `brew --prefix`.chomp
|
||||||
end
|
end
|
||||||
|
|
||||||
def gcc_dir
|
|
||||||
@gcc_dir ||= `brew --prefix gcc`.chomp
|
|
||||||
end
|
|
||||||
|
|
||||||
def libgccjit_dir
|
|
||||||
@libgccjit_dir ||= `brew --prefix libgccjit`.chomp
|
|
||||||
end
|
|
||||||
|
|
||||||
def extra_libs
|
def extra_libs
|
||||||
@extra_libs ||= [
|
@extra_libs ||= [
|
||||||
"#{brew_dir}/opt/expat/lib/libexpat.1.dylib",
|
File.join(brew_dir, 'opt/expat/lib/libexpat.1.dylib'),
|
||||||
"#{brew_dir}/opt/libiconv/lib/libiconv.2.dylib",
|
File.join(brew_dir, 'opt/libiconv/lib/libiconv.2.dylib'),
|
||||||
"#{brew_dir}/opt/zlib/lib/libz.1.dylib"
|
File.join(brew_dir, 'opt/zlib/lib/libz.1.dylib')
|
||||||
]
|
]
|
||||||
end
|
end
|
||||||
|
|
||||||
@@ -186,14 +180,20 @@ class Build
|
|||||||
@configure_help
|
@configure_help
|
||||||
end
|
end
|
||||||
|
|
||||||
def supports_native_comp?
|
|
||||||
@supports_native_comp ||= !!configure_help.match(/\s+--with-nativecomp\s+/)
|
|
||||||
end
|
|
||||||
|
|
||||||
def supports_xwidgets?
|
def supports_xwidgets?
|
||||||
@supports_xwidgets ||= !!configure_help.match(/\s+--with-xwidgets\s+/)
|
@supports_xwidgets ||= !!configure_help.match(/\s+--with-xwidgets\s+/)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
def supports_native_comp?
|
||||||
|
@supports_native_comp ||= !native_comp_configure_flag.nil?
|
||||||
|
end
|
||||||
|
|
||||||
|
def native_comp_configure_flag
|
||||||
|
@native_comp_configure_flag ||= configure_help.match(
|
||||||
|
/\s+(--with-native(?:comp|-compilation))\s+/
|
||||||
|
)&.[](1)
|
||||||
|
end
|
||||||
|
|
||||||
def detect_native_comp
|
def detect_native_comp
|
||||||
info 'Detecting native-comp support: ', newline: false
|
info 'Detecting native-comp support: ', newline: false
|
||||||
options[:native_comp] = supports_native_comp?
|
options[:native_comp] = supports_native_comp?
|
||||||
@@ -206,30 +206,6 @@ class Build
|
|||||||
err 'This emacs source tree does not support native-comp'
|
err 'This emacs source tree does not support native-comp'
|
||||||
end
|
end
|
||||||
|
|
||||||
def verify_libgccjit
|
|
||||||
err 'gcc not installed' unless Dir.exist?(gcc_dir)
|
|
||||||
err 'libgccjit not installed' unless Dir.exist?(libgccjit_dir)
|
|
||||||
|
|
||||||
if Dir["#{libgccjit_dir}/lib/**/libgccjit.so*"].empty?
|
|
||||||
err "Detected libgccjit (#{libgccjit_dir}) does not have any " \
|
|
||||||
'libgccjit.so* files. Please try reinstalling libgccjit: ' \
|
|
||||||
'brew reinstall libgccjit'
|
|
||||||
end
|
|
||||||
|
|
||||||
dirs = Dir["{#{gcc_dir},#{libgccjit_dir}}/lib/gcc/*"]
|
|
||||||
return if dirs.map { |dir| File.basename(dir) }.uniq == %w[10]
|
|
||||||
|
|
||||||
err 'Detected gcc and libgccjit library paths do not belong to the ' \
|
|
||||||
"same major version. Detected paths:\n - #{dirs.join(' - ')}"
|
|
||||||
end
|
|
||||||
|
|
||||||
def gcc_library_paths
|
|
||||||
@gcc_library_paths ||= Dir[
|
|
||||||
"{#{gcc_dir},#{libgccjit_dir}}/lib/gcc/*",
|
|
||||||
"{#{gcc_dir},#{libgccjit_dir}}/lib/gcc/*/gcc/*apple-darwin*/*"
|
|
||||||
].sort_by { |p| [p.size, p] }
|
|
||||||
end
|
|
||||||
|
|
||||||
def autogen
|
def autogen
|
||||||
FileUtils.cd(source_dir) do
|
FileUtils.cd(source_dir) do
|
||||||
if File.exist?('autogen/copy_autogen')
|
if File.exist?('autogen/copy_autogen')
|
||||||
@@ -241,10 +217,10 @@ class Build
|
|||||||
end
|
end
|
||||||
|
|
||||||
def compile_source(source)
|
def compile_source(source)
|
||||||
target = "#{source}/nextstep"
|
target = File.join(source, 'nextstep')
|
||||||
emacs_app = "#{target}/Emacs.app"
|
emacs_app = File.join(target, 'Emacs.app')
|
||||||
|
|
||||||
if File.exist?("#{target}/Emacs.app")
|
if File.exist?(emacs_app)
|
||||||
info 'Emacs.app already exists in ' \
|
info 'Emacs.app already exists in ' \
|
||||||
"\"#{target.gsub(root_dir + '/', '')}\", attempting to use."
|
"\"#{target.gsub(root_dir + '/', '')}\", attempting to use."
|
||||||
return emacs_app
|
return emacs_app
|
||||||
@@ -256,49 +232,62 @@ class Build
|
|||||||
if options[:native_comp]
|
if options[:native_comp]
|
||||||
info 'Compiling with native-comp enabled'
|
info 'Compiling with native-comp enabled'
|
||||||
verify_native_comp
|
verify_native_comp
|
||||||
verify_libgccjit
|
gcc_info.verify_libgccjit
|
||||||
|
|
||||||
apply_native_comp_env_setup_patch(source)
|
apply_native_comp_env_setup_patch(source)
|
||||||
|
|
||||||
ENV['CFLAGS'] = [
|
ENV['CFLAGS'] = [
|
||||||
"-I#{gcc_dir}/include",
|
"-I#{File.join(gcc_info.root_dir, 'include')}",
|
||||||
|
"-I#{File.join(gcc_info.libgccjit_root_dir, 'include')}",
|
||||||
'-O2',
|
'-O2',
|
||||||
'-march=native'
|
'-march=native',
|
||||||
|
ENV['CFLAGS']
|
||||||
].compact.join(' ')
|
].compact.join(' ')
|
||||||
|
|
||||||
ENV['LDFLAGS'] = [
|
ENV['LDFLAGS'] = [
|
||||||
gcc_library_paths.map { |path| "-L#{path}" },
|
"-L#{gcc_info.lib_dir}",
|
||||||
"-I#{gcc_dir}/include",
|
"-L#{gcc_info.darwin_lib_dir}",
|
||||||
"-I#{libgccjit_dir}/include"
|
"-L#{gcc_info.libgccjit_lib_dir}",
|
||||||
].flatten.compact.join(' ')
|
"-I#{File.join(gcc_info.root_dir, 'include')}",
|
||||||
|
"-I#{File.join(gcc_info.libgccjit_root_dir, 'include')}",
|
||||||
|
ENV['LDFLAGS']
|
||||||
|
].compact.join(' ')
|
||||||
|
|
||||||
ENV['LIBRARY_PATH'] = [
|
ENV['LIBRARY_PATH'] = [
|
||||||
gcc_library_paths,
|
gcc_info.lib_dir,
|
||||||
|
gcc_info.darwin_lib_dir,
|
||||||
|
gcc_info.libgccjit_lib_dir,
|
||||||
ENV['LIBRARY_PATH']
|
ENV['LIBRARY_PATH']
|
||||||
].flatten.compact.join(':')
|
].compact.join(':')
|
||||||
end
|
end
|
||||||
|
|
||||||
ENV['CC'] = 'clang'
|
ENV['CC'] = 'clang'
|
||||||
ENV['PKG_CONFIG_PATH'] = [
|
ENV['PKG_CONFIG_PATH'] = [
|
||||||
"#{brew_dir}/lib/pkgconfig",
|
File.join(brew_dir, 'lib/pkgconfig'),
|
||||||
"#{brew_dir}/share/pkgconfig",
|
File.join(brew_dir, 'share/pkgconfig'),
|
||||||
"#{brew_dir}/opt/expat/lib/pkgconfig",
|
File.join(brew_dir, 'opt/expat/lib/pkgconfig'),
|
||||||
"#{brew_dir}/opt/libxml2/lib/pkgconfig",
|
File.join(brew_dir, 'opt/libxml2/lib/pkgconfig'),
|
||||||
"#{brew_dir}/opt/ncurses/lib/pkgconfig",
|
File.join(brew_dir, 'opt/ncurses/lib/pkgconfig'),
|
||||||
"#{brew_dir}/opt/zlib/lib/pkgconfig",
|
File.join(brew_dir, 'opt/zlib/lib/pkgconfig'),
|
||||||
"#{brew_dir}/Homebrew/Library/Homebrew/os/mac/pkgconfig/#{OS.version}",
|
File.join(brew_dir, 'Homebrew/Library/Homebrew/os/mac/pkgconfig',
|
||||||
|
OS.version.to_s),
|
||||||
ENV['PKG_CONFIG_PATH']
|
ENV['PKG_CONFIG_PATH']
|
||||||
].compact.join(':')
|
].compact.join(':')
|
||||||
|
|
||||||
ENV['PATH'] = [
|
ENV['PATH'] = [
|
||||||
"#{brew_dir}/opt/make/libexec/gnubin",
|
File.join(brew_dir, 'opt/make/libexec/gnubin'),
|
||||||
"#{brew_dir}/opt/coreutils/libexec/gnubin",
|
File.join(brew_dir, 'opt/coreutils/libexec/gnubin'),
|
||||||
"#{brew_dir}/opt/gnu-sed/libexec/gnubin",
|
File.join(brew_dir, 'opt/gnu-sed/libexec/gnubin'),
|
||||||
"#{brew_dir}/bin",
|
File.join(brew_dir, 'bin'),
|
||||||
"#{brew_dir}/opt/texinfo/bin",
|
File.join(brew_dir, 'opt/texinfo/bin'),
|
||||||
ENV['PATH']
|
ENV['PATH']
|
||||||
].compact.join(':')
|
].compact.join(':')
|
||||||
|
|
||||||
|
ENV['LIBRARY_PATH'] = [
|
||||||
|
ENV['LIBRARY_PATH'],
|
||||||
|
'/Library/Developer/CommandLineTools/SDKs/MacOSX.sdk/usr/lib'
|
||||||
|
].compact.join(':')
|
||||||
|
|
||||||
configure_flags = [
|
configure_flags = [
|
||||||
'--with-ns',
|
'--with-ns',
|
||||||
'--with-modules',
|
'--with-modules',
|
||||||
@@ -309,7 +298,7 @@ class Build
|
|||||||
if options[:xwidgets] && supports_xwidgets?
|
if options[:xwidgets] && supports_xwidgets?
|
||||||
configure_flags << '--with-xwidgets'
|
configure_flags << '--with-xwidgets'
|
||||||
end
|
end
|
||||||
configure_flags << '--with-nativecomp' if options[:native_comp]
|
configure_flags << native_comp_configure_flag if options[:native_comp]
|
||||||
configure_flags << '--without-rsvg' unless options[:rsvg]
|
configure_flags << '--without-rsvg' unless options[:rsvg]
|
||||||
|
|
||||||
run_cmd './configure', *configure_flags
|
run_cmd './configure', *configure_flags
|
||||||
@@ -325,17 +314,17 @@ class Build
|
|||||||
make_flags = []
|
make_flags = []
|
||||||
make_flags += ['-j', options[:parallel].to_s] if options[:parallel]
|
make_flags += ['-j', options[:parallel].to_s] if options[:parallel]
|
||||||
|
|
||||||
if options[:native_full_aot]
|
|
||||||
info 'Using NATIVE_FULL_AOT=1'
|
|
||||||
make_flags << 'NATIVE_FULL_AOT=1'
|
|
||||||
ENV.delete('NATIVE_FAST_BOOT')
|
|
||||||
else
|
|
||||||
ENV.delete('NATIVE_FULL_AOT')
|
|
||||||
ENV['NATIVE_FAST_BOOT'] = '1'
|
|
||||||
end
|
|
||||||
|
|
||||||
if options[:native_comp]
|
if options[:native_comp]
|
||||||
make_flags << "BYTE_COMPILE_EXTRA_FLAGS=--eval '(setq comp-speed 2)'"
|
make_flags << "BYTE_COMPILE_EXTRA_FLAGS=--eval '(setq comp-speed 2)'"
|
||||||
|
|
||||||
|
if options[:native_full_aot]
|
||||||
|
info 'Using NATIVE_FULL_AOT=1'
|
||||||
|
make_flags << 'NATIVE_FULL_AOT=1'
|
||||||
|
ENV.delete('NATIVE_FAST_BOOT')
|
||||||
|
else
|
||||||
|
ENV.delete('NATIVE_FULL_AOT')
|
||||||
|
ENV['NATIVE_FAST_BOOT'] = '1'
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
run_cmd 'make', *make_flags
|
run_cmd 'make', *make_flags
|
||||||
@@ -350,13 +339,20 @@ class Build
|
|||||||
def symlink_internals(app)
|
def symlink_internals(app)
|
||||||
return unless options[:native_comp]
|
return unless options[:native_comp]
|
||||||
|
|
||||||
info 'Creating symlinks within Emacs.app needed for native-comp'
|
|
||||||
|
|
||||||
FileUtils.cd(File.join(app, 'Contents')) do
|
FileUtils.cd(File.join(app, 'Contents')) do
|
||||||
|
# Skip creation of symlinks if *.eln files are located under
|
||||||
|
# Resources/native-lisp. Emacs is capable of finding lisp sources and
|
||||||
|
# *.eln cache files without symlinks.
|
||||||
|
return if Dir['Resources/native-lisp/**/*.eln'].any?
|
||||||
|
|
||||||
|
info 'Creating symlinks within Emacs.app needed for native-comp'
|
||||||
|
|
||||||
FileUtils.ln_s('Resources/lisp', 'lisp') unless File.exist?('lisp')
|
FileUtils.ln_s('Resources/lisp', 'lisp') unless File.exist?('lisp')
|
||||||
|
|
||||||
source = Dir['MacOS/libexec/emacs/**/eln-cache',
|
source = Dir['MacOS/libexec/emacs/**/eln-cache',
|
||||||
'MacOS/lib/emacs/**/native-lisp'].first
|
'MacOS/lib/emacs/**/native-lisp'].first
|
||||||
|
err 'Failed to find native-lisp cache directory for symlink creation.'
|
||||||
|
|
||||||
target = File.basename(source)
|
target = File.basename(source)
|
||||||
FileUtils.ln_s(source, target) unless File.exist?(target)
|
FileUtils.ln_s(source, target) unless File.exist?(target)
|
||||||
end
|
end
|
||||||
@@ -407,6 +403,7 @@ class Build
|
|||||||
return @meta if @meta
|
return @meta if @meta
|
||||||
|
|
||||||
ref_sha = options[:git_sha] || ref
|
ref_sha = options[:git_sha] || ref
|
||||||
|
info "Fetching info for git ref: #{ref_sha}"
|
||||||
url = format(LATEST_URL, ref_sha)
|
url = format(LATEST_URL, ref_sha)
|
||||||
commit_json = http_get(url)
|
commit_json = http_get(url)
|
||||||
err "Failed to get commit info about: #{ref_sha}" if commit_json.nil?
|
err "Failed to get commit info about: #{ref_sha}" if commit_json.nil?
|
||||||
@@ -438,10 +435,14 @@ class Build
|
|||||||
file = 'lisp/emacs-lisp/comp.el'
|
file = 'lisp/emacs-lisp/comp.el'
|
||||||
return if `grep '#{term}' '#{file}'`.strip.size.positive?
|
return if `grep '#{term}' '#{file}'`.strip.size.positive?
|
||||||
|
|
||||||
apply_patch(
|
template = File.read(
|
||||||
{ file: "#{__dir__}/patches/native-comp-env-setup.patch" },
|
File.join(__dir__, 'patches/native-comp-env-setup.diff.erb')
|
||||||
source
|
|
||||||
)
|
)
|
||||||
|
patch = ERB.new(template).result(gcc_info.get_binding)
|
||||||
|
patch_file = File.join(source, 'macos_patches/native-comp-env-setup.diff')
|
||||||
|
|
||||||
|
File.write(patch_file, patch)
|
||||||
|
apply_patch({ file: patch_file }, source)
|
||||||
end
|
end
|
||||||
|
|
||||||
def effective_version
|
def effective_version
|
||||||
@@ -515,7 +516,7 @@ class Build
|
|||||||
patch_dir = "#{target}/macos_patches"
|
patch_dir = "#{target}/macos_patches"
|
||||||
run_cmd('mkdir', '-p', patch_dir)
|
run_cmd('mkdir', '-p', patch_dir)
|
||||||
|
|
||||||
patch_file = "#{patch_dir}/patch-{num}.diff"
|
patch_file = File.join(patch_dir, 'patch-{num}.diff')
|
||||||
num = 1
|
num = 1
|
||||||
while File.exist?(patch_file.gsub('{num}', num.to_s.rjust(3, '0')))
|
while File.exist?(patch_file.gsub('{num}', num.to_s.rjust(3, '0')))
|
||||||
num += 1
|
num += 1
|
||||||
@@ -558,16 +559,16 @@ class AbstractEmbedder
|
|||||||
|
|
||||||
private
|
private
|
||||||
|
|
||||||
|
def invocation_dir
|
||||||
|
File.join(app, 'Contents/MacOS')
|
||||||
|
end
|
||||||
|
|
||||||
def bin
|
def bin
|
||||||
"#{app}/Contents/MacOS/Emacs"
|
File.join(invocation_dir, 'Emacs')
|
||||||
end
|
end
|
||||||
|
|
||||||
def lib_dir
|
def lib_dir
|
||||||
"#{app}/Contents/MacOS/#{lib_dir_name}"
|
File.join(invocation_dir, 'lib')
|
||||||
end
|
|
||||||
|
|
||||||
def lib_dir_name
|
|
||||||
'lib'
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@@ -610,18 +611,18 @@ class LibEmbedder < AbstractEmbedder
|
|||||||
while_writable(exe) do
|
while_writable(exe) do
|
||||||
if match[2] == exe_file
|
if match[2] == exe_file
|
||||||
system('install_name_tool', '-id',
|
system('install_name_tool', '-id',
|
||||||
"@executable_path/#{rel_path}/#{match[2]}", exe)
|
File.join('@executable_path', rel_path, match[2].to_s), exe)
|
||||||
else
|
else
|
||||||
system('install_name_tool', '-change', match[1],
|
system('install_name_tool', '-change', match[1],
|
||||||
"@executable_path/#{rel_path}/#{match[2]}", exe)
|
File.join('@executable_path', rel_path, match[2].to_s), exe)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
next if match[2] == exe_file || File.exist?("#{lib_dir}/#{match[2]}")
|
next if match[2] == exe_file || File.exist?(File.join(lib_dir, match[2]))
|
||||||
|
|
||||||
FileUtils.mkdir_p(lib_dir)
|
FileUtils.mkdir_p(lib_dir)
|
||||||
FileUtils.cp(match[1], lib_dir)
|
FileUtils.cp(match[1], lib_dir)
|
||||||
copy_libs("#{lib_dir}/#{match[2]}", rel_path)
|
copy_libs(File.join(lib_dir, match[2].to_s), rel_path)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@@ -640,7 +641,7 @@ class LibEmbedder < AbstractEmbedder
|
|||||||
|
|
||||||
while_writable(target) do
|
while_writable(target) do
|
||||||
system('install_name_tool', '-id',
|
system('install_name_tool', '-id',
|
||||||
"@executable_path/#{rel_path}/#{lib_file}", target)
|
File.join('@executable_path', rel_path, lib_file), target)
|
||||||
end
|
end
|
||||||
|
|
||||||
copy_libs(target, rel_path)
|
copy_libs(target, rel_path)
|
||||||
@@ -664,7 +665,7 @@ class LibEmbedder < AbstractEmbedder
|
|||||||
while_writable(bin_path) do
|
while_writable(bin_path) do
|
||||||
system(
|
system(
|
||||||
'install_name_tool', '-change', match[1],
|
'install_name_tool', '-change', match[1],
|
||||||
"@executable_path/#{rel_path}/#{match[2]}",
|
File.join('@executable_path', rel_path, match[2].to_s),
|
||||||
bin_path
|
bin_path
|
||||||
)
|
)
|
||||||
end
|
end
|
||||||
@@ -676,16 +677,17 @@ class LibEmbedder < AbstractEmbedder
|
|||||||
mode = File.stat(file).mode
|
mode = File.stat(file).mode
|
||||||
File.chmod(0o775, file)
|
File.chmod(0o775, file)
|
||||||
yield
|
yield
|
||||||
|
ensure
|
||||||
File.chmod(mode, file)
|
File.chmod(mode, file)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
class GccLibEmbedder < AbstractEmbedder
|
class GccLibEmbedder < AbstractEmbedder
|
||||||
attr_reader :gcc_dir
|
attr_reader :gcc_info
|
||||||
|
|
||||||
def initialize(app, gcc_dir)
|
def initialize(app, gcc_info)
|
||||||
super(app)
|
super(app)
|
||||||
@gcc_dir = gcc_dir
|
@gcc_info = gcc_info
|
||||||
end
|
end
|
||||||
|
|
||||||
def embed
|
def embed
|
||||||
@@ -695,40 +697,121 @@ class GccLibEmbedder < AbstractEmbedder
|
|||||||
end
|
end
|
||||||
|
|
||||||
info 'Embedding libgccjit into Emacs.app'
|
info 'Embedding libgccjit into Emacs.app'
|
||||||
if gcc_version.empty?
|
|
||||||
err "No suitable GCC lib with libgccjit found in #{gcc_dir}"
|
if gcc_info.lib_dir.empty?
|
||||||
|
err "No suitable GCC lib dir found in #{gcc_info.root_dir}"
|
||||||
end
|
end
|
||||||
|
|
||||||
FileUtils.mkdir_p(File.dirname(target_dir))
|
FileUtils.mkdir_p(File.dirname(target_dir))
|
||||||
FileUtils.cp_r(source_dir, target_dir)
|
FileUtils.cp_r(source_dir, target_dir)
|
||||||
FileUtils.rm(Dir[File.join(target_dir, '**', '.DS_Store')], force: true)
|
FileUtils.rm(Dir[File.join(target_dir, '**/.DS_Store')], force: true)
|
||||||
end
|
end
|
||||||
|
|
||||||
private
|
private
|
||||||
|
|
||||||
def embedded?
|
def embedded?
|
||||||
Dir[File.join(target_dir, 'libgccjit.so*')].any?
|
Dir[File.join(target_dir, 'libgcc*')].any?
|
||||||
end
|
end
|
||||||
|
|
||||||
def target_dir
|
def target_dir
|
||||||
File.join(lib_dir, 'gcc', gcc_version)
|
File.join(invocation_dir, gcc_info.relative_lib_dir)
|
||||||
end
|
|
||||||
|
|
||||||
def gcc_version
|
|
||||||
@gcc_version ||= Dir[File.join(gcc_dir, 'lib', 'gcc', '*', 'libgcc*')]
|
|
||||||
.map { |path| File.basename(File.dirname(path)) }
|
|
||||||
.select { |path| path.match(/^\d+$/) }
|
|
||||||
.uniq.map(&:to_i).max.to_s
|
|
||||||
end
|
end
|
||||||
|
|
||||||
def source_dir
|
def source_dir
|
||||||
@source_dir ||= File.join(gcc_dir, 'lib', 'gcc', gcc_version)
|
gcc_info.lib_dir
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
class GccInfo
|
||||||
|
include Output
|
||||||
|
|
||||||
|
def root_dir
|
||||||
|
@root_dir ||= `brew --prefix gcc`.chomp
|
||||||
|
end
|
||||||
|
|
||||||
|
def major_version
|
||||||
|
@major_version ||= File.basename(lib_dir)
|
||||||
|
end
|
||||||
|
|
||||||
|
def lib_dir
|
||||||
|
@lib_dir ||= Dir[File.join(root_dir, 'lib/gcc/*/libgcc*')]
|
||||||
|
.map { |path| File.dirname(path) }
|
||||||
|
.select { |path| File.basename(path).match(/^\d+$/) }
|
||||||
|
.max_by { |path| File.basename(path).to_i }
|
||||||
|
end
|
||||||
|
|
||||||
|
def relative_lib_dir
|
||||||
|
@relative_lib_dir ||= relative_dir(lib_dir, root_dir)
|
||||||
|
end
|
||||||
|
|
||||||
|
def darwin_lib_dir
|
||||||
|
@darwin_lib_dir ||= Dir[
|
||||||
|
File.join(lib_dir, 'gcc/*apple-darwin*/*')
|
||||||
|
].max_by do |path|
|
||||||
|
[
|
||||||
|
File.basename(File.dirname(path)).match(/darwin(\d+)$/)[1].to_i,
|
||||||
|
File.basename(path).split('.').map(&:to_i)
|
||||||
|
]
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def relative_darwin_lib_dir
|
||||||
|
@relative_darwin_lib_dir ||= relative_dir(darwin_lib_dir, root_dir)
|
||||||
|
end
|
||||||
|
|
||||||
|
def libgccjit_root_dir
|
||||||
|
@libgccjit_root_dir ||= `brew --prefix libgccjit`.chomp
|
||||||
|
end
|
||||||
|
|
||||||
|
def libgccjit_major_version
|
||||||
|
@libgccjit_major_version ||= File.basename(libgccjit_lib_dir.to_s)
|
||||||
|
end
|
||||||
|
|
||||||
|
def libgccjit_lib_dir
|
||||||
|
@libgccjit_lib_dir ||= Dir[
|
||||||
|
File.join(libgccjit_root_dir, 'lib/gcc/*/libgccjit.so*')
|
||||||
|
]
|
||||||
|
.map { |path| File.dirname(path) }
|
||||||
|
.select { |path| File.basename(path).match(/^\d+$/) }
|
||||||
|
.max_by { |path| File.basename(path).to_i }
|
||||||
|
end
|
||||||
|
|
||||||
|
def verify_libgccjit
|
||||||
|
err 'gcc not installed' unless Dir.exist?(root_dir)
|
||||||
|
err 'libgccjit not installed' unless Dir.exist?(libgccjit_root_dir)
|
||||||
|
|
||||||
|
if libgccjit_lib_dir&.empty?
|
||||||
|
err "Detected libgccjit (#{libgccjit_root_dir}) does not have any " \
|
||||||
|
'libgccjit.so* files. Please try reinstalling libgccjit: ' \
|
||||||
|
'brew reinstall libgccjit'
|
||||||
|
end
|
||||||
|
|
||||||
|
return if major_version == libgccjit_major_version
|
||||||
|
|
||||||
|
err <<~TEXT
|
||||||
|
Detected GCC and libgccjit library paths do not belong to the same major
|
||||||
|
version of GCC. Detected paths:
|
||||||
|
- #{lib_dir}
|
||||||
|
- #{libgccjit_lib_dir}
|
||||||
|
TEXT
|
||||||
|
end
|
||||||
|
|
||||||
|
def get_binding
|
||||||
|
binding
|
||||||
|
end
|
||||||
|
|
||||||
|
private
|
||||||
|
|
||||||
|
def relative_dir(path, root)
|
||||||
|
root += '/' unless root[-1] == '/'
|
||||||
|
return if path[0..root.size - 1] != root
|
||||||
|
|
||||||
|
path[root.size..-1]
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
if __FILE__ == $PROGRAM_NAME
|
if __FILE__ == $PROGRAM_NAME
|
||||||
cli_options = {
|
cli_options = {
|
||||||
macos_fixes: true,
|
|
||||||
native_full_aot: false,
|
native_full_aot: false,
|
||||||
parallel: Etc.nprocessors,
|
parallel: Etc.nprocessors,
|
||||||
rsvg: false,
|
rsvg: false,
|
||||||
@@ -775,12 +858,6 @@ if __FILE__ == $PROGRAM_NAME
|
|||||||
cli_options[:native_full_aot] = v
|
cli_options[:native_full_aot] = v
|
||||||
end
|
end
|
||||||
|
|
||||||
opts.on('--[no-]native-comp-macos-fixes',
|
|
||||||
'Enable/disable fix based on feature/native-comp-macos-fixes ' \
|
|
||||||
'branch (default: enabled if native-comp supported)') do |v|
|
|
||||||
cli_options[:macos_fixes] = v
|
|
||||||
end
|
|
||||||
|
|
||||||
opts.on('--rsvg', 'Enable SVG image support via librsvg, ' \
|
opts.on('--rsvg', 'Enable SVG image support via librsvg, ' \
|
||||||
'can yield a unstable build (default: disabled)') do
|
'can yield a unstable build (default: disabled)') do
|
||||||
cli_options[:rsvg] = true
|
cli_options[:rsvg] = true
|
||||||
|
|||||||
9
lib/base_action.rb
Normal file
9
lib/base_action.rb
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require_relative './common'
|
||||||
|
require_relative './output'
|
||||||
|
|
||||||
|
class BaseAction
|
||||||
|
include Common
|
||||||
|
include Output
|
||||||
|
end
|
||||||
46
lib/commit.rb
Normal file
46
lib/commit.rb
Normal file
@@ -0,0 +1,46 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'json'
|
||||||
|
require 'time'
|
||||||
|
require 'yaml'
|
||||||
|
|
||||||
|
require_relative './errors'
|
||||||
|
require_relative './common'
|
||||||
|
|
||||||
|
class Commit
|
||||||
|
include Common
|
||||||
|
|
||||||
|
attr_reader :repo
|
||||||
|
attr_reader :ref
|
||||||
|
attr_reader :message
|
||||||
|
attr_reader :sha
|
||||||
|
attr_reader :time
|
||||||
|
|
||||||
|
def initialize(sha:, time:, repo: nil, ref: nil, message: nil)
|
||||||
|
@sha = sha
|
||||||
|
@time = time
|
||||||
|
@repo = repo
|
||||||
|
@ref = ref
|
||||||
|
@message = message
|
||||||
|
end
|
||||||
|
|
||||||
|
def sha_short
|
||||||
|
sha[0..6]
|
||||||
|
end
|
||||||
|
|
||||||
|
def to_hash
|
||||||
|
{
|
||||||
|
'repo' => repo,
|
||||||
|
'ref' => ref,
|
||||||
|
'sha' => sha,
|
||||||
|
'sha_short' => sha_short,
|
||||||
|
'time' => time.utc,
|
||||||
|
'timestamp' => time.utc.to_i,
|
||||||
|
'message' => message
|
||||||
|
}
|
||||||
|
end
|
||||||
|
|
||||||
|
def to_yaml
|
||||||
|
to_hash.to_yaml
|
||||||
|
end
|
||||||
|
end
|
||||||
43
lib/commit_info.rb
Normal file
43
lib/commit_info.rb
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require_relative './base_action'
|
||||||
|
require_relative './commit'
|
||||||
|
|
||||||
|
class CommitInfo < BaseAction
|
||||||
|
COMMIT_URL = 'https://api.github.com/repos/%s/commits/%s'
|
||||||
|
|
||||||
|
attr_reader :ref
|
||||||
|
attr_reader :repo
|
||||||
|
attr_reader :logger
|
||||||
|
|
||||||
|
def initialize(ref:, repo:, logger:)
|
||||||
|
@ref = ref
|
||||||
|
@repo = repo
|
||||||
|
@logger = logger
|
||||||
|
|
||||||
|
err 'branch/tag/sha argument cannot be empty' if ref.nil? || ref.empty?
|
||||||
|
end
|
||||||
|
|
||||||
|
def perform
|
||||||
|
info "Fetching info for git ref: #{ref}"
|
||||||
|
|
||||||
|
url = format(COMMIT_URL, repo, ref)
|
||||||
|
commit_json = http_get(url)
|
||||||
|
|
||||||
|
err "Failed to get commit info about: #{ref}" if commit_json.nil?
|
||||||
|
|
||||||
|
parsed = JSON.parse(commit_json)
|
||||||
|
commit = Commit.new(
|
||||||
|
repo: repo,
|
||||||
|
ref: ref,
|
||||||
|
sha: parsed&.dig('sha'),
|
||||||
|
message: parsed&.dig('commit', 'message'),
|
||||||
|
time: Time.parse(parsed&.dig('commit', 'committer', 'date')).utc
|
||||||
|
)
|
||||||
|
|
||||||
|
err 'Failed to get commit SHA' if commit.sha.nil? || commit.sha.empty?
|
||||||
|
err 'Failed to get commit time' if commit.time.nil?
|
||||||
|
|
||||||
|
commit
|
||||||
|
end
|
||||||
|
end
|
||||||
23
lib/common.rb
Normal file
23
lib/common.rb
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'net/http'
|
||||||
|
|
||||||
|
module Common
|
||||||
|
private
|
||||||
|
|
||||||
|
def self.included(base)
|
||||||
|
base.extend(self)
|
||||||
|
end
|
||||||
|
|
||||||
|
def run_cmd(*args)
|
||||||
|
info "executing: #{args.join(' ')}"
|
||||||
|
system(*args) || err("Exit code: #{$CHILD_STATUS.exitstatus}")
|
||||||
|
end
|
||||||
|
|
||||||
|
def http_get(url)
|
||||||
|
response = Net::HTTP.get_response(URI.parse(url))
|
||||||
|
return unless response.code == '200'
|
||||||
|
|
||||||
|
response.body
|
||||||
|
end
|
||||||
|
end
|
||||||
61
lib/download_tarball.rb
Normal file
61
lib/download_tarball.rb
Normal file
@@ -0,0 +1,61 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'fileutils'
|
||||||
|
require 'json'
|
||||||
|
require 'time'
|
||||||
|
|
||||||
|
require_relative './base_action'
|
||||||
|
|
||||||
|
require_relative './commit_info'
|
||||||
|
require_relative './tarball'
|
||||||
|
|
||||||
|
class DownloadTarball < BaseAction
|
||||||
|
TARBALL_URL = 'https://github.com/%s/tarball/%s'
|
||||||
|
|
||||||
|
attr_reader :ref
|
||||||
|
attr_reader :repo
|
||||||
|
attr_reader :output
|
||||||
|
attr_reader :logger
|
||||||
|
|
||||||
|
def initialize(ref:, repo:, output:, logger:)
|
||||||
|
@ref = ref
|
||||||
|
@repo = repo
|
||||||
|
@output = output
|
||||||
|
@logger = logger
|
||||||
|
|
||||||
|
err 'branch/tag/sha argument cannot be empty' if ref.nil? || ref.empty?
|
||||||
|
end
|
||||||
|
|
||||||
|
def perform
|
||||||
|
FileUtils.mkdir_p(output)
|
||||||
|
tarball = Tarball.new(file: target, commit: commit)
|
||||||
|
|
||||||
|
if File.exist?(target)
|
||||||
|
info "#{filename} already exists locally, attempting to use."
|
||||||
|
return tarball
|
||||||
|
end
|
||||||
|
|
||||||
|
info 'Downloading tarball from GitHub. This could take a while, ' \
|
||||||
|
'please be patient.'
|
||||||
|
result = run_cmd('curl', '-L', url, '-o', target)
|
||||||
|
err 'Download failed.' if !result || !File.exist?(target)
|
||||||
|
|
||||||
|
tarball
|
||||||
|
end
|
||||||
|
|
||||||
|
def url
|
||||||
|
@url ||= format(TARBALL_URL, repo, commit.sha)
|
||||||
|
end
|
||||||
|
|
||||||
|
def filename
|
||||||
|
@filename ||= "#{repo.gsub(/[^\w]/, '-')}-#{commit.sha_short}.tgz"
|
||||||
|
end
|
||||||
|
|
||||||
|
def target
|
||||||
|
@target ||= File.join(output, filename)
|
||||||
|
end
|
||||||
|
|
||||||
|
def commit
|
||||||
|
@commit ||= CommitInfo.new(ref: ref, repo: repo, logger: logger).perform
|
||||||
|
end
|
||||||
|
end
|
||||||
12
lib/errors.rb
Normal file
12
lib/errors.rb
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
def handle_error(err)
|
||||||
|
warn "ERROR: #{err.message}"
|
||||||
|
Process.exit 1
|
||||||
|
end
|
||||||
|
|
||||||
|
class Error < StandardError; end
|
||||||
|
|
||||||
|
class CommitNotFound < Error; end
|
||||||
|
class NoCommitSHA < Error; end
|
||||||
|
class NoCommitTime < Error; end
|
||||||
31
lib/log.rb
Normal file
31
lib/log.rb
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
class Log
|
||||||
|
extend Forwardable
|
||||||
|
|
||||||
|
attr_reader :name
|
||||||
|
attr_reader :level
|
||||||
|
|
||||||
|
def initialize(name, level = :info)
|
||||||
|
@name = name
|
||||||
|
@level = level
|
||||||
|
end
|
||||||
|
|
||||||
|
def_delegators :logger, :debug, :info, :warn, :error, :fatal, :unkonwn
|
||||||
|
|
||||||
|
private
|
||||||
|
|
||||||
|
def logger
|
||||||
|
@logger ||= Logger.new($stderr).tap do |l|
|
||||||
|
l.progname = name
|
||||||
|
l.level = level
|
||||||
|
l.formatter = formatter
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def formatter
|
||||||
|
proc do |severity, _datetime, progname, msg|
|
||||||
|
"==> [#{progname}] #{severity}: #{msg}\n"
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
28
lib/output.rb
Normal file
28
lib/output.rb
Normal file
@@ -0,0 +1,28 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'forwardable'
|
||||||
|
require 'logger'
|
||||||
|
|
||||||
|
require_relative './errors'
|
||||||
|
|
||||||
|
module Output
|
||||||
|
extend Forwardable
|
||||||
|
|
||||||
|
def self.included(base)
|
||||||
|
base.extend(ClassMethods)
|
||||||
|
end
|
||||||
|
|
||||||
|
module ClassMethods
|
||||||
|
def logger_name(name = nil)
|
||||||
|
return @logger_name if name.nil?
|
||||||
|
|
||||||
|
@logger_name = name
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
def_delegators :logger, :debug, :info, :warn, :error, :fatal, :unkonwn
|
||||||
|
|
||||||
|
def err(msg = nil)
|
||||||
|
raise Error, msg
|
||||||
|
end
|
||||||
|
end
|
||||||
24
lib/tarball.rb
Normal file
24
lib/tarball.rb
Normal file
@@ -0,0 +1,24 @@
|
|||||||
|
# frozen_string_literal: true
|
||||||
|
|
||||||
|
require 'yaml'
|
||||||
|
|
||||||
|
class Tarball
|
||||||
|
attr_reader :file
|
||||||
|
attr_reader :commit
|
||||||
|
|
||||||
|
def initialize(file:, commit:)
|
||||||
|
@file = file
|
||||||
|
@commit = commit
|
||||||
|
end
|
||||||
|
|
||||||
|
def to_hash
|
||||||
|
{
|
||||||
|
'file' => file,
|
||||||
|
'commit' => commit.to_hash
|
||||||
|
}
|
||||||
|
end
|
||||||
|
|
||||||
|
def to_yaml
|
||||||
|
to_hash.to_yaml
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -1,10 +1,10 @@
|
|||||||
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
|
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
|
||||||
index 25e2de9..bcedd31 100644
|
index 4036080976..2ff8dbd74c 100644
|
||||||
--- a/lisp/emacs-lisp/comp.el
|
--- a/lisp/emacs-lisp/comp.el
|
||||||
+++ b/lisp/emacs-lisp/comp.el
|
+++ b/lisp/emacs-lisp/comp.el
|
||||||
@@ -2801,6 +2801,53 @@ queued with LOAD %"
|
@@ -4079,6 +4079,52 @@ of (commands) to run simultaneously."
|
||||||
(comp-run-async-workers)
|
(let ((load (not (not load))))
|
||||||
(message "Compilation started."))))
|
(native--compile-async paths recursively load selector)))
|
||||||
|
|
||||||
+;;;###autoload
|
+;;;###autoload
|
||||||
+(defun native-compile-setup-environment-variables (&rest _args)
|
+(defun native-compile-setup-environment-variables (&rest _args)
|
||||||
@@ -13,25 +13,24 @@ index 25e2de9..bcedd31 100644
|
|||||||
+ (string-match-p "\.app\/Contents\/MacOS\/?$"
|
+ (string-match-p "\.app\/Contents\/MacOS\/?$"
|
||||||
+ invocation-directory))
|
+ invocation-directory))
|
||||||
+ (let* ((library-path-env (getenv "LIBRARY_PATH"))
|
+ (let* ((library-path-env (getenv "LIBRARY_PATH"))
|
||||||
+ (gcc-base-dir (concat invocation-directory "lib/gcc"))
|
+ (devtools-dir
|
||||||
+ (gcc-version (car (seq-filter
|
+ "/Library/Developer/CommandLineTools/SDKs/MacOSX.sdk/usr/lib")
|
||||||
+ (lambda (dir) (string-match-p "^[0-9]+$" dir))
|
+ (gcc-dir (expand-file-name
|
||||||
+ (directory-files gcc-base-dir))))
|
+ "<%= relative_lib_dir %>"
|
||||||
+ (gcc-dir (concat gcc-base-dir "/" gcc-version))
|
+ invocation-directory))
|
||||||
+ (darwin-base-dir (car (file-expand-wildcards
|
+ (darwin-dir (expand-file-name
|
||||||
+ (concat gcc-dir "/gcc/*apple-darwin*"))))
|
+ "<%= relative_darwin_lib_dir %>"
|
||||||
+ (darwin-version (car (seq-filter
|
+ invocation-directory))
|
||||||
+ (lambda (dir)
|
+ (lib-paths (list)))
|
||||||
+ (string-match-p
|
|
||||||
+ "^[0-9]+\\(\.[0-9]+\\(\.[0-9]+\\)?\\)?$" dir))
|
|
||||||
+ (directory-files darwin-base-dir))))
|
|
||||||
+ (darwin-dir (concat darwin-base-dir "/" darwin-version))
|
|
||||||
+ (lib-paths (append
|
|
||||||
+ (list gcc-dir darwin-dir)
|
|
||||||
+ (if library-path-env (list library-path-env) (list)))))
|
|
||||||
+
|
+
|
||||||
+ (when (and gcc-dir darwin-dir)
|
+ (if library-path-env
|
||||||
+ (setenv "LIBRARY_PATH" (mapconcat 'identity lib-paths ":")))))
|
+ (push library-path-env lib-paths))
|
||||||
|
+ (if (file-directory-p devtools-dir)
|
||||||
|
+ (push devtools-dir lib-paths))
|
||||||
|
+ (push darwin-dir lib-paths)
|
||||||
|
+ (push gcc-dir lib-paths)
|
||||||
|
+
|
||||||
|
+ (setenv "LIBRARY_PATH" (mapconcat 'identity lib-paths ":"))))
|
||||||
+
|
+
|
||||||
+ ;; Remove advice, as it only needs to run once.
|
+ ;; Remove advice, as it only needs to run once.
|
||||||
+ (advice-remove 'native-compile
|
+ (advice-remove 'native-compile
|
||||||
Reference in New Issue
Block a user