MAPO!

久々のブログ投稿。ずいぶん書いてなかったな。

中国がネット規制回避のVPN全面禁止へ、中国在住日本人への影... - Record China

レコードチャイナにこの記事が出て以来、自分が観測する範囲でネットは大騒ぎらしい。 やれ「VPNを禁止するなんて！」とか「ネット鎖国か？」といった論調が目立つ。

ただ肝心の中国政府による告知を参照できるニュースソースは皆無だったのでここに載せておく。

工业和信息化部关于清理规范互联网网络接入服务市场的通知

その中でもVPNに言及しているのは以下の一節だけである。

4.违规开展跨境业务问题。未经电信主管部门批准，不得自行建立或租用专线（含虚拟专用网络VPN）等其他信道开展跨境经营活动。基础电信企业向用户出租的国际专线，应集中建立用户档案，向用户明确使用用途仅供其内部办公专用，不得用于连接境内外的数据中心或业务平台开展电信业务经营活动。

要約すると以下のようになる。

4.違法に行われる越境サービスの問題。

電気通信部門の許可を得ない者は、VPNを含む専用線を用意する等の経路によって越境した経営活動を行ってはならない。 ユーザに国際専用線を割り当てる電気通信企業は、ユーザマニュアルを用意し、ユーザに対して使用用途を明確にした上で、内部の事務のみに限って提供しなければならない。 国内外のデータセンターまたはサービスプラットフォームに接続する電気通信業務の為に経営活動を行ってはならない。

まず明らかにしておきたいのは、この書類はあくまで「工业和信息化部による通知」であって、新たに法律を定めるとか罰則を設けるといった内容は存在しない。 レコードチャイナが何をもって「禁止」と判断したかは定かで無いが、そもそも中国では政府に管理されていない暗号通信は、厳密には全て違法である。 その為通信時にSSLトンネルを抜ける L2TP/IPSec や IKEv2 はおろか、ブラウザで https のサイトを開いただけでも違法になり得る。

そもそも通信の秘匿は国家にとって通貨の発行と同じくらい重要な関心事で、洋の東西を問わず制限されてきた。 アメリカではかつてPGPで一悶着あったし、暗号の輸出規制が後になってOpenSSLのダウングレード攻撃に繋がったのも記憶に新しい。

ということで、今回の騒ぎについて個人的には「何を今更」感が強い。

やたら時間取られたよ。こんなことで。

ネックはphp 5.3.3が要求するlibxml2がOSX 10.10では新しすぎるのと、opensslが古すぎる点。

まず古いlibxml2をコンパイルして適当な場所にインストールします

$ mkdir -p $HOME/libxml2-2.7.8/dist $ cd $HOME/libxml2-2.7.8 $ wget ftp://xmlsoft.org/libxml2/libxml2-2.7.8.tar.gz $ tar zxvf libxml2-2.7.8.tar.gz $ cd libxml2-2.7.8 $ ./configure --prefix $HOME/libxml2-2.7.8/dist $ make && make install

opensslを新しくします

$ brew install openssl $ brew link openssl --force $ exec $SHELL -l

コンパイルオプションでlibxml2のディレクトリを指定します

$ /usr/bin/sed -i '' -e '1i\'$'\n'"configure_option -R \"--with-libxml-dir=$HOME/libxml2-2.7.8/dist\"" $HOME/.phpenv/plugins/php-build/share/php-build/definitions/5.3.3

おもむろにインストール

$ phpenv install 5.3.3

なんでか知らんがtmpに残ってるダウンロード済みphpのソースを一旦消すと上手くいったりいかなかったり。php触りたくない。

シェルスクリプトでyes-noプロンプトを手軽に出すconfirm書いた。

ああ、ここ数日はホントに憂鬱だったよ。これを見つけるまでは。

メインのブラウザは相変わらずFirefoxで、離れられない理由の8割がvimperatorだとしたら残りの2割は元祖VerticalTabsのせいだと思う。タブの色がどうとかツリー構造がどうとかには目もくれず、小粒でピリッとしたこのアドオンは前から大好きだった。

なんでFirefoxがアプリケーションにまでborder-radiusの流行病を持って来たがるのか全然理解できない。 とにかくFirefoxはバージョン32でVerticalTabsを壊してしまった。タブが縦に並ばなくなった。

quickfixネタでもう一つ。 quickfixが揃ってないのが気になるわけですよ。

stackoverflow にも書いたけど、set modifiableとperlを組み合わせてこいつらをsprintfしようという話。

" quickfix au BufRead quickfix setl modifiable \| silent exe "%!perl -ple ' \my ($file, $pos, $msg) = split qr{[|]}, $_, 3; \my $aligned_pos = sub { \ my @p = split qr{[ ]}, shift; \ return if @p == 0; \ return sprintf q{\\%3s}, @p if @p == 1; \ return sprintf q{\\%3s \\%s}, @p if @p == 2; \ return sprintf q{\\%3s \\%s \\%2s}, @p if @p == 3; \ return sprintf q{\\%3s \\%s \\%2s \\%-8s}, @p if @p == 4; \ return join q{ }, @p; \}->($pos); \$_ = join q{|}, $file, $aligned_pos, $msg; \'" \| setl nomodifiable

いろんなerrorformat参考にしながら組んだら結局イカツい感じになってしまった。

コードリーディングやると関数の定義位置へのジャンプとか使われてる場所の検索は必須。

vimでやろうとするとctagsやcscopeと組み合わせてタグジャンプが定石なんだろうけど、今どきなんでもgitの管理下にあるしgit grepが思いの外速いのでそっちでやってみる。

外部プラグイン嫌いなのでFugitiveはナシで。

nnoremap gG :grep '\b<cword>\b'<CR>\|:if len(getqflist())\|:botright copen 3\|else\|ccl\|endif\|cc<CR> set grepprg=git\ grep\ -n\ $*\ --\ $(git\ rev-parse\ --show-cdup)

こんだけ。あとはvimの中でキーワードにカーソル持ってってgGすればズラッとquickfixが出てくる。

Ctrl-r でさかのぼって検索できるの便利だけど、行き過ぎてああーってなって、バックしたい時あります。

Ctrl-sがそれなんだけど、stopシグナルとバッティングしてるらしくそのままだとダメ。

日本語でググるとstty stop undefしろ的なtipsが沢山出てくるけど、どうもscpで死ぬらしい。

んで何回か試行錯誤した結果、こんな感じに落ち着いた:

[[ $- == *i* ]] && stty -ixon

ビルトインのopenを上書きしたい

腫れ物のような古いperlのコードを、外からテストできないかと思案してたら時間があっという間に過ぎてしまった。

対象のコードに触らずopen を無理やり書き換えられるか。という話。

例えばsendmail(1)に直でパイプ繋いだメール送信プログラムで

テストはやりたいんだけど、実際にメールが送られてしまうと辛い

けど、ファイル読み込みはopen経由でファイルハンドル取ってもらいたい

とかって場面。ありがち。

上書きしてみた

BEGIN { use Symbol (); *CORE::GLOBAL::open = sub : prototype(*;$@) { no strict 'refs'; $_[0] = defined $_[0] ? $_[0] : Symbol::qualify($_[0], scalar caller); return CORE::open($_[0]) if @_ == 1; return 1 if $_[1] =~ /sendmail/; return CORE::open($_[0], $_[1]) if @_ == 2; return 1 if $_[2] =~ /sendmail/; return CORE::open($_[0], $_[1], $_[2]) if @_ == 3 && defined $_[2]; return CORE::open($_[0], $_[1], undef) if @_ == 3; return CORE::open($_[0], $_[1], @_[2..$#_]); }; }

perldoc の引用付きのやつはgistに上げた。

うーん。雑い。

あとはこれをテストコードに放り込んで本ちゃんのファイルをdoするなりrequireするなりevalするなり。

この記事は、Dave Cheneyさんの記事You don’t need to set GOROOT, rea…

そうそう、なんか$GOROOT設定してるとワヤになるんだよね。というのをrebuild.fm聞いてて思い出して、vimのランタイムパスで$GOROOT参照してたのをやめた。

https://github.com/ernix/dotfiles/commit/4af24afa87680ce1fea9c1920dfa31c66c09827d

Mac版のsqlplusが32bitでしか入らんので、DBD::Oracle使う場合Perlも32bitに合わせる必要があった。 使う必要は無いと思うけどthreads込みでPerl 5.8をコンパイル。

plenv install 5.8.9 \ -Dcc=gcc \ -Dld=g++ \ -Dusethreads \ -Duseithreads \ -Duseshrplib \ -Accflags="-isysroot /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.8.sdk" \ -Accflags="-mmacosx-version-min=10.6" \ -Accflags="-arch i386 -DUSE_SITECUSTOMIZE -Duselargefiles -fno-merge-constants" \ -Aldflags="-Wl,-search_paths_first -arch i386" \ -Aldflags="-syslibroot,/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.8.sdk -mmacosx-version-min=10.6" \ -Alddlflags="-Wl,-search_paths_first -arch i386" \ -Alddlflags="-syslibroot,/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.8.sdk -mmacosx-version-min=10.6" \ --as 5.8.9-i386

んで、~/.plenv/versions/5.8.9-i386/lib/perl5/darwin-thread-multi-2level/Config.pmの修正。 これはcpanmとかから*::XSなモジュール入れるときにコンパイルする必要あるからかな。たぶん。リンカってどうなってんだっけ？

s/cc => 'gcc'/cc => 'gcc -m32'/

最後に確認

$ plenv global 5.8.9-i386 $ perl -e "print length pack 'P', -1" 4

いままでscreenで気づかなかったけど、tmuxはloginモードでシェルを立ち上げるみたい。

phpenv試してたら"~/.phpenv/shims"より"/usr/bin"が"$PATH"の前側に来てあれーってなってた。

原因

/etc/profile を２回読んでる。

解決

~/.bashrcの先頭に以下追加:

[ -f /etc/profile ] && PATH= && source /etc/profile

乱暴だけど、まぁ当面はこれで。

症状：

$ reply > a Use of uninitialized value $package in concatenation (.) or string at /Users/shin/perl5/perlbrew/perls/perl-5.16.3/lib/site_perl/5.16.3/Reply/Plugin/Defaults.pm line 59, <> line 1. syntax error at (eval 29) line 4, at EOF BEGIN not safe after errors--compilation aborted at (eval 29) line 9, <> line 1.

原因： ~/.replyrcを先に書いてしまった。

fo-tableがいつの間にかjを使えるようになってた。これでrと対になった。

j Where it makes sense, remove a comment leader when joining lines. For example, joining: int i; // the index ~ // in the list ~ Becomes: int i; // the index in the list ~

これが使えるのはv7.3.550以降らしい。

4392 7.3.550 (after 7.3.541) with "j" in 'fo' a list leader is not removed

ので、.vimrcも変更する

set fo=1cqmnB if has("patch550") set fo+=j endif

vimでjavascript触ってて何の気なしに\s検索したらハイライトされない空白が目に止まった。おそるおそるカーソルを持って行ってgaしたら

< >; 160, Hex 00a0, Octal 240

って出た。ﾋｨって変な声も出た。Unicodeの空白文字。

ファイルの数が膨大だったので、ルートにlcdしてとりあえずゴミを探すことにする。

:vim /[\u000A-\u000D\u0085\u00A0\u1680\u180E\u2000-\u200A\u2028\u2029\u202F\u205F\u3000]/ **/*.js | cw

どんなエディタをどんな風に使ったらこんな事になっちゃったんだろう。

83py行ったつもりが、なぜか83goだったので触ってみる

チュートリアルはHow to Write Go Codeをたよりに。

とりまGoインストール

$ brew install go

んで.vimと.bashrcをそれぞれ設定

~/.bashrc

if [ -d "$(brew --prefix go)" ]; then export GOROOT="$(brew --prefix go)" export GOPATH="$HOME/mygo" export PATH="$PATH:$GOROOT/bin" fi

~/.vimrc

" go set rtp+=$GOROOT/misc/vim au BufNewFile,BufRead *.go setl filetype=go

ぽちっと

$ source ~/.bashrc

example/newmathパッケージ作ってみる

$ mkdir -p $GOPATH/src/example/newmath $ cd $GOPATH/src/example $ vim newmath/sqrt.go

sqrt.go

package newmath func Sqrt(x float64) float64 { z := 0.0 for i := 0; i < 1000; i++ { z -= (z*z - x) / (2 * x) } return z }

作ったパッケージをインストール

$ go install example/newmath

hello作ってそこから呼び出してみる

$ mkdir hello $ vim hello/hello.go

hello.go

package main import ( "example/newmath" "fmt" ) func main(){ fmt.Printf("Hello world. Sqrt(2) = %v\n", newmath.Sqrt(2)) }

オハローハロー

$ go install example/hello

実行

$ hello Hello world. Sqrt(2) = 1.414213562373095

テストも書く

$ vim newmath/sqrt_test.go

sqrt_test.go

package newmath import "testing" func TestSqrt(t *testing.T) { const in, out = 4, 2 if x := Sqrt(in); x != out { t.Errorf("Sqrt(%v) = %v, want %v", in, x, out) } }

論よりRunよりTest

$ go test example/newmath ok example/newmath 0.013s

コードがまずいからテストしなきゃいかんのだよ

自分で書いたことのないマズいコードを手直しする場面ってのはしょっちゅうある。 今日見たのはこんなコード:

function fooclose(){ $("#foo").hide(); $("#bar").html(""); // ... $("#buz").show(); window.top.location.reload(); }

とにかくテストを走らせないことには始まらない。 今回はこのwindow.top.location.reload()をどうやって黙らせるかがポイント。

で、結局qUnitでこんな感じになった：

<script src="path/to/ugly.js"></script> <script> test('fooclose', function(){ var _close, _rel, _window = { top: { location: { reload: function(){_rel = true;} } } }; eval([ '(function(window){', fooclose.toString(), ';_close = fooclose;', '})(_window);' ].join('')); _close(); deepEqual(_rel, true, 'successfully reloaded'); }); </script>