Stumpwm の contrib がなくなっと思ったら、別リポジトリになってたのね。
quicklisp には入ってないようなので、自分で git clone する。
cd ~/quicklisp/local-projects
git clone https://github.com/stumpwm/stumpwm-contrib.git
~/.stumpwmrm に次を追加。
(setf stumpwm::*contrib-dir* (pathname "~/quicklisp/local-projects/stumpwm-contrib/"))
(init-load-path stumpwm::*contrib-dir*)
Angular.js CoffeeScript Controller Base Class - Devign に書いてあるとおり。
inject や initialize のとこをちょこっと変えて、こんな感じになった。
AuthedCtrl を継承していれば $scope にログインユーザが自動的にセットされる。本番は mixin 自にやりたいけどそれはまた今度で。
class @BaseCtrl
@register: (name) ->
name ?= @name || @toString().match(/function\s*(.*?)\(/)?[1]
angular.module('ngappApp').controller name, @
@inject: (args...) ->
@$inject ?= ['$scope']
@$inject = @$inject.concat args
constructor: (@scope, args...) ->
for key, index in @constructor.$inject[1..]
@[key] = args[index]
for key, fn of @constructor.prototype
continue unless typeof fn is 'function'
continue if key in ['constructor', 'initialize'] or key[0] is '_'
@scope[key] = fn.bind?(@) || _.bind(fn, @)
@initialize()
initialize: ->
class @AuthedCtrl extends BaseCtrl
@inject 'AuthService'
initialize: =>
super()
@AuthService.user (user) =>
@currentUser = user
@scope.currentUser = user
class VacationsCtrl extends AuthedCtrl
@register()
@inject 'Vacation'
initialize: =>
super()
@scope.vacations = @Vacation.query()
@scope.vacation = new @Vacation
create: =>
console.debug(@scope.vacation)
@scope.vacation.$save (v) =>
console.debug(v)
@scope.vacations.push(v)
@scope.vacation = new @Vacation
いまさらながら AngularJS をさわってみたけど、 C と VB で書いてたむかしながらサーバクライアントアプリみたいで、ちょっと楽しい。
あるいは継続を使った web フレームワークのサーバ処理がごっそりクライアントサイドに移った感じ。
http://www.erlang.org/doc/apps/ssl/ssl_distribution.html に書かれているとおり。
/usr/lib/erlang/releases/17 にあるファイルをネタに次のファイルを作成。
start_ssl.rel
{release, {"Erlang/OTP","17"}, {erts, "6.1"},
[{kernel,"3.0.1"},
{stdlib,"2.1"},
{sasl, "2.4"},
{asn1, "3.0.1"},
{crypto, "3.4"},
{public_key, "0.22"},
{ssl, "5.3.5"}
]}.
boot ファイルを作成
systools:make_script("start_ssl",[]).
/home/ancient/letter/erlang/ssl/erlserver.pem にはサーバ証明書と鍵を書いておく cat pem key > erlserver.pem なイメージ
起動
erl -boot /home/ancient/letter/erlang/ssl/start_ssl -proto_dist inet_tls -ssl_dist_opt server_certfile "/home/ancient/letter/erlang/ssl/erlserver.pem" -ssl_dist_opt server_secure_renegotiate true client_secure_renegotiate true -sname ssl_test
erl -boot /home/ancient/letter/erlang/ssl/start_ssl -proto_dist inet_tls -ssl_dist_opt server_certfile "/home/ancient/letter/erlang/ssl/erlserver.pem" -ssl_dist_opt server_secure_renegotiate true client_secure_renegotiate true -sname ssl_test2
(ssl_test2@yarn)8> net_kernel:connect_node(ssl_test@yarn).
true
(ssl_test2@yarn)9> nodes().
[ssl_test@yarn]
ふと気付いた。ssl じゃなくて ssh でやりたかった。
ren に Clojure のマルチメソッドみたなものを実装してみた。
:g length dup type-of ;
:m length (( list )) erlang:length/1 ;
:m length (( tuple )) erlang:size/1 ;
:m length (( binary )) erlang:size/1 ;
:m length (( map )) erlang:map_size/1 ;
:g でジェネリックファンクションを定義する。やってることはスタックトップのオブジェクトのタイプをスタックにつむだけ。 :m でメソッドを定義する。スタックトップにつまれたタイプでパターマッチングしている。
Erlang にもマップが導入された。それを使ってこんなふうに OO っぽいことをやってみた。継承をどうするかが悩ましい。
:g + over type-of over type-of ; # x y -- x y type-of-x type-of-y
:m + (( integer _ )) erlang:+/2 ;
:m + (( float _ )) erlang:+/2 ;
:m + (( list list )) erlang:++/2 ;
: point{ ( 'point >typed-map ) '{ ;
:m + (( #{ x X1 y Y1 } #{ x X2 y Y2 } point point ))
point{ 'x X1 X2 + 'y Y1 Y2 + }
;
point{ 'x 1 'y 2 } point{ 'x 3 'y 4 } +
# => #{'-type-' => point,x => 4,y => 6} Erlang の出力のまま
Erlang ではほとんど関数引数のパターマッチでプログラムが書ける。それを連鎖性言語でやろうとするとデータスタックに対するパターンマッチになる。
Factor だと http://docs.factorcode.org/content/article-locals-examples.html な感じでいろいろできるようではあるが、とりあえず dup 等をそんな感じで実装してみた。
: drop (( _ )) ;
: dup (( X )) X X ;
: swap (( X Y )) Y X ;
: over (( X Y )) X Y X ;
: rot (( X Y Z )) Y Z X ;
: -rot (( X Y Z )) Z X Y ;
: nip (( _ X )) X ;
: tuck (( X Y )) Y X Y ;
わかりやすい。
reverse と map はこんな感じ
: reverse [] swap reverse' ;
: reverse'
(( [] ))
(( Acc [ H T .] )) [ H Acc .] T reverse'
: map [ -rot map' ; # list function -- [ list function
: map'
(( [] _ )) ]
(( [ H T .] F ))
H F call T F map'
そういえば case の書き方をかえたので、いま fib を書くとこうなる。
: fib
= N
N 2 =<
case
true
( 1 )
_
( N 1- fib N 2 - fib + )
;case
;
( ) でブロックというかクオートというかそんなものができる。 Factor の [ ] と同じようなもの。
( 1+ ) 100 swap call .
# => 101
1 10 ( + ) cons call .
# => 11
最近まったくブログ書いてなかった。できればまた書くようにしたい。
ちかごろまた Forth ライクな言語を作っている。名前は ren(仮)。chon を付けてもいいかもしれない。 Forth ライクな言語を作るのはこれで4つか5つめ。なんか Forth には思い入れがあるみたい。とても簡単に作れる、というのもある。
今回のは Erlang で書いている。ワードを Erlang の関数にコンパイルする。思えば Erlang もコンパイル関数があるいい言語だ。ワードを Erlang の関数にコンパイルし、呼び出しは普通の Erlang 関数と同じなのでリターンスタックがない。そこは残念なところ。パターンマッチングをきれいに取り込みたいけど、なかなかいい書き方を思い付かない。
いまの fib はこんな感じ。
: fib
= N
N 2 =<
case
true
1
;;
_
N 1- fib N 2 - fib +
;case
;
言語を実装するのは不毛な感じがするものの楽しいね。
SSD 買った。
Crucial M500 2.5インチ 内蔵型 SATA6Gbps 960GB CT960M500SSD1
起動が速っ! SBCL も速っ!
SSDOptimization - Debian Wiki を参別に設定。
マウントオプションに discard,noatime,commit=600 を付ける。/tmp を tmpfs にする。
sudo vi /etc/fstab
UUID=6a2b89d0-830d-4e8a-9e57-4d7de0426876 / ext4 discard,noatime,commit=600,errors=remount-ro 0 1
tmpfs /tmp tmpfs nodev,nosuid,size=40%,mode=1777 0 0
I/Oスケジューラ を変える。 deadline にするのがいいらしい。
sudo apt-get install sysfsutils sudo vi /etc/sysfs.conf
block/sda/queue/scheduler = deadline
echo deadline | sudo tee /sys/block/sda/queue/scheduler
cat /sys/block/sda/queue/scheduler
noop [deadline] cfq
あとなるべくスワップしないようにする。
sudo vi /etc/sysctl.d/local.conf
vm.swappiness=0
