平衡点

2006/12/21

_ gmail で ML へ投稿できない?

CC で ML へ投稿してたつもりだったんだけど, 実は投稿されていなかった, という.

はてさて. 多分私が悪いんだけど. どうするのが正しいのかしら.

_ ヒント: 港

ほぼ私信だったりして.

律儀につっこんでくれてありがとう > さなえさん.

…まあ, 確かに無いな. うん.

さて「ヒント: 港」に対して, 「青い海公園」と即答してしまった訳ですが, 別に青い海公園である必要は無い訳です. 「一万 t 岸壁」とか「合浦」という答もあった訳ですね. 要するに, 実家を離れて札幌に来て 10 年になる訳で, 実家に居た頃と違い海を眺める機会が激減している訳です.

まあ釣り好き + 戦車持ちならばそんな事も無かったのでしょうが, 釣りは好きでも戦車持ってませんし. 徹頭徹尾インドア派ですし.

インドア派の海好きは矛盾?

眺めるだけで良いんです. ぼーっと. できれば 2 時間ぐらい.

酸素と一緒です. 偶にやらないと気分がささくれ立ちます.

…と書いて, 最近イライラするのは海の成分が足りてないんだな, とか思いました.

カルシウムではありません. 多分.

海です. 海の成分です. ザパーンとか言う音と, どうでも良いぐらい変わらない景色です. 遠くでボーって音が聞こえたりする奴です. ついでに潮臭い風です.

来年からは神戸(?)なんで, 今迄より海が近いかも, とか思ってます.

某大学のサロンも景色は大変良かったし.

…微妙に, 目の前の工事が, 気になってたりする訳ですが.

[ツッコミを入れる]

2009/12/21

_ お買い物

一足遅いけれど.

R.I.P. / Merry Christmas
BUMP OF CHICKEN, TOY'S FACTORY Inc., ￥790

スピードチューンの方が好きなわけで, 久々に良い感じ.もう少しリズムセクションがラウドだったら申し分ない.

満足.

_ 「OpenMPI で "use mpi" が効きません」の続き

まさかと思って, gfortran-4.3 を install してから試してみた.

コードは以下の通り. 本来は configure 時に試すコードなので"print ..." は無いけれど.

program test
  use mpi
  integer :: err, rank, np
  call MPI_Init(err)
  call MPI_Comm_Rank(MPI_Comm_World, rank, err)
  print *, "hello! I'm proc=", rank
  call MPI_Comm_Size(MPI_Comm_World, np, err)
  call MPI_Finalize(err)
end program test

でもって OMPI_FC を指定して試してみると...

$ mpif90 conftest.f90
conftest.f90:2.9:

  use mpi
         1
Fatal Error: Parse error when checking module version for file
'mpi.mod' opened at (1)
$ OMPI_FC=/usr/bin/gfortran-4.3 mpif90 conftest.f90
$ mpiexec -np 4 ./a.out
 hello! I'm proc=           1
 hello! I'm proc=           2
 hello! I'm proc=           3
 hello! I'm proc=           0

( ゜д゜) 通ったヨ...ソウイウコトデスカ...

どうしよ. BTS すべき?(小心者)...

(追記) BTS しました. 我ながら変な英語…

Debian Bug reports #561914

[ツッコミを入れる]

2011/12/21

_ RD スタイルで CodeRay のシンタックスハイライトを

最近, ソースコードの色付けに google-code prettify を使っていたのだけれど,

イマイチしっくりこない(笑)
autopagerize などで継ぎ足されると動作しない

というのが気になってた.

どうしようかなぁ, と思っていたら

tDiaryのRDスタイルにCodeRayを使ったシンタックスハイライト機能を追加

と. そのものズバリでした. 須藤さん, 流石です. というわけで, 導入ついでに tDiary を 3.1.1 に上げてみたり.

以下はテスト

# source: ruby
 #!/usr/bin/env ruby
 require 'fileutils'

 # ディレクトリ内のファイルリスト. .svn と *.orig, .,  .., .git は無視
 dir = Dir.glob('.*').reject{|ign|
   ign =~ /((^\.svn)|(^\.*$)|(\.orig$)|(\.gpg$)|(^\.git)|(\.elc$))/
 }
 # 既存ファイルのバックアップを dotfiles/backup 以下に作成する
 backupd = Dir.pwd + '/backup'
 Dir.mkdir(backupd) unless FileTest.exist?(backupd)
 backupdir = backupd + "/" + Time.now.strftime("%Y%m%d-%H%M%S").to_s
 Dir.mkdir(backupdir) unless FileTest.exist?(backupdir)
 # メイン
 dir.each do |file|
   # ソースファイル
   dotfile = Dir.pwd + '/' + file
   # symlink の位置
   target = ENV['HOME'] + '/' + file
   # バックアップの位置
   backup = backupdir + '/' + file
   # ファイルが存在する場合
   if FileTest.exist?(target)
     # バックアップへの退避
     Flie.delete(target) if FileTest.symlink?(backup)
     FileUtils.move(target, backup) if FileTest.file?(target)
     FileUtils.move(target, backup) if FileTest.directory?(target)
     File.delete(backup) if FileTest.symlink?(backup)
     # symlink 作成
     File.symlink(dotfile, target)
   else
     # symlink 作成
     File.symlink(dotfile, target)
   end
 end

 # backup direcotry が空なら削除
 if Dir.entries(backupdir).reject{|i| i=~ /^\.*$/}.size == 0
   Dir.delete(backupdir)
   if Dir.entries(backupd).reject{|i| i=~ /^\.*$/}.size == 0
     Dir.delete(backupd)
   end
 end

 puts <<-EOS
 making symlink in ~/.
 if dotfile exist. mv ./backup/,
 but dotfile is symlink, delete it.
 if ./backup is empty, delet backup directory.
 EOS

[ツッコミを入れる]