際際滷

GNU make 4.0に
採かいる
@emasaka

GNU make 4.0鞠��
￠

10/8リリ�`ス

￠

麼な仟�C嬬
�C

--output-sync��K双�g佩で竃薦が詞ざるのを契ぐ

�C

--trace��g佩するコマンドを竃薦

�C

Guileを�Mみ�zめる

Guile�
￠

GNUのSchemeインタ�`プリタ

￠

アプリ�Mみ�zみが麼な朕議
�C

TclとかLuaとかmrubyとかと揖�

やってみる1
￠

Guileをインスト�`ルしておく
�C

￠

$ sudo apt-get install guile-2.0 guile-2.0-devs

仝guile-2.0々パッケ�`ジはなくてもいいと房うけ
ど、Schemeコ�`ドの�嘛�_�Jのため

やってみる2
￠

GNU make 4.0のソ�`スをもってきて婢�_

￠

./configure
�C

このときにGuile�ライブラリ�が秘っていると、makeの
Guileサポ�`トが嗤�燭砲覆�
￠

�C

おそらくLinuxディストロでは�o�燭砲覆襪里任錬�

--with-guile=noで苧幣議に�o�燭�

やってみる3
￠
￠

$ make
$ ldd ./make | grep guile
libguile-2.0.so.22 => /usr/lib/libguile-2.0.so.22
(0x00007f6482291000)

�_�J
￠

.FEATURES�篳�法�guile￣が秘っていればOK

$?cat?features.mk
all:
????????@echo?$(.FEATURES)
$?./make??f?features.mk
target?specific?order?only?second?expansion?else?if?
shortest?stem?undefine?oneshell?archives?jobserver?
output?sync?check?symlink?guile?load

聞いかた
￠

$(guile ?)�v方

￠

ようは$(shell ?)�v方でシェルを柵ぶのといっしょ

箭1�とりあえず竃薦
all:
echo?$(guile?'("Hello,?World!"))

箭2�なんかSchemeっぽいの
sexp?=?(map?(lambda?(x)?(+?x?3))?(iota?10))
all:
@echo?$(guile?$(sexp))

箭3�FizzBuzz�shell井�
http://d.hatena.ne.jp/eel3/20110924/1316791928 より

all:?$(shell?seq?1?1?100)
$(shell?seq?3?3?100):
@echo?Fizz
$(shell?seq?5?5?100):
@echo?Buzz
$(shell?seq?15?15?100):
@echo?FizzBuzz
.DEFAULT:
@echo?$@

箭3�FizzBuzz�guile井�
all:?$(guile?(use?modules?(srfi?srfi?1)))?$
(guile?(iota?100?1?1))
$(guile?(iota?100?3?3)):
@echo?Fizz
$(guile?(iota?100?5?5)):
@echo?Buzz
$(guile?(iota?100?15?15)):
@echo?FizzBuzz
.DEFAULT:
@echo?$@

箭3�FizzBuzz��g佩�r�g�
$?time?./make??f?fb?scm.mk?>&?/dev/null
./make??f?fb?scm.mk?>&/dev/null??0.10s?user?
0.06s?system?47%?cpu?0.337?total
$?time?./make??f?fb?sh.mk?>&?/dev/null
./make??f?fb?sh.mk?>&/dev/null??0.05s?user?
0.04s?system?35%?cpu?0.258?total

shell井のほうが堀い�

箭4�SchemeでmakeのDSL
define?dsl
(use?modules?(srfi?srfi?1))
(define?targets?'())
(define?(showtargets)
??(string?join?(reverse?targets)?"n")?)
(define?macro?(push!?place?item)
??`(set!?,place?(cons?,item?,place))?)
(define?(mklist?>str?lst)
??(string?join?(map?symbol?>string?lst))?)
(define?macro?(deftarget?tgt?dep?.?cmds)
??(push!?targets
?(format?#f?"~a:~a~a"
?tgt?(mklist?>str?dep)
?(fold?(lambda?(x?r)
?(string?append?r?"nt"?(mklist?>str?x)))?""?cmds?))?))
(deftarget?all?(foo)
??(@./foo))
(deftarget?foo?(foo.c)
??(cc?foo.c??o?foo)?)
endef
dummy?:=?$(guile?$(dsl))
$(guile?(gmk?eval?(showtargets)))

際際滷

GNU make 4.0に採かいる

More Related Content

GNU make 4.0に採かいる