Control.Concurrent.ChanはHaskellで並行処理をするときに使うことができるFIFOキューライブラリ。複数のスレッドからキューにデータを流し込んで、別のスレッドがそのデータを読み取って処理をしたりすることができる。

Control.Concurrent.Chanを使えば、スレッド間の排他処理とかを全く考えずに済むので、簡単に並行処理プログラムを書けるかと思っていたけど、処理終了時の扱いに悩んだので、ちょこちょこと試行錯誤してみた。

詳細は続きで。

基本的には、

• How NTFS Works: Local File Systems
• NTFS - Wikipedia, the free encyclopedia

の二つのサイトに書いてあることから必要な部分を抜粋しているだけだけど、説明を省略してる部分もあるし間違ってる部分もあるかも。

5つの文字を置換するだけだから簡単そうに思えるけど、選択範囲だけを対象にしようとするとなかなか難しくて、今まで納得のいくものを作れずにいた。それが、たまたま今日挑戦してみたら、そこそこいい感じのスクリプトが書けたので、記念にブログポストしてみる。

vnoremap <Leader>e "xx:call <SID>EscapeXml('x')<CR>"xP

function s:EscapeXml(regname)
  let x = getreg(a:regname)
  let x = substitute(x, '&', '\&amp;', 'g')
  let x = substitute(x, '<', '\&lt;', 'g')
  let x = substitute(x, '>', '\&gt;', 'g')
  let x = substitute(x, "'", '\&apos;', 'g')
  let x = substitute(x, '"', '\&quot;', 'g')
  call setreg(a:regname, x)
endfunction

使い方やコードの解説は続きで。

table = [[Infix (char '*' >> return (*)) AssocLeft,
          Infix (char '/' >> return div) AssocLeft],
         [Infix (char '+' >> return (+)) AssocLeft,
          Infix (char '-' >> return (-)) AssocLeft]]

table = [ [ Infix (char '*' >> return (*)) AssocLeft,
            Infix (char '/' >> return div) AssocLeft ],
          [ Infix (char '+' >> return (+)) AssocLeft,
            Infix (char '-' >> return (-)) AssocLeft ] ]

だから何かっていうわけではないけど、ちょっとうれしかったからメモ。

Haskellのコーディングスタンダードみたいなものってないのかなー

LiosK's Finance--Quote--YahooJapan at master - GitHub

A Perl module that enables GnuCash to get quotes of Japanese stocks and funds from Yahoo! JAPAN.

GNUプロジェクトの財務管理ソフトウェアであるGnuCashには、Web上のデータソースから株式や投資信託の価格を自動で取得する便利な機能がついています。

Features | GnuCash (投資ポートフォリオに関する機能を抜粋)

Stock/Mutual Fund Portfolios

Track stocks individually (one per account) or in portfolio of accounts (a group of accounts that can be displayed together).

Online Stock & Mutual Fund Quotes

Get Stock & Mutual Fund quotes from various web sites, update portfolio automatically. Additional pricing sources are added regularly.

この機能を使えばGnuCashで投資ポートフォリオを管理するのがだいぶ楽になるのですが、残念なことにデフォルトでは日本の株式や投資信託の価格を取得することができませんでした。おそらく、日本では株式等の価格をCSVのような再利用可能な形で簡単に手に入れることができないために、GnuCashの方で対応してもらえなかったのでしょう。金融後進国は不便ですね...

というわけで、Yahoo!ファイナンスの検索結果ページをスクレイプして、日本の株価や投資信託価格をGnuCashで取り込めるようにするPerlモジュールを作成したので、GitHubで公開しましたよ！というのがこの記事の本題です。使い方等の詳細は続きで。

エクスペリエンスインデックスの最大値は5.9だから、10万円そこそこのノートPCで5.3は結構いいほうなのかな？

ちなみに、↑のスクリーンショットで表示されているのは、GeForce 9500MをONにしたときの数字。オンボードのGeForce 9400M Gを使う省電力モードでは、ゲーム用グラフィックのスコアが5.2になってそこがボトルネックになる。

よし。とりあえず、Windows 7 RCとUbuntu 9.04を入れてみるかなー

注文したのはDellから発売されているStudio XPS 13。13型のハイエンドノートらしい。

まだ届いていないからレビューをするわけではないけど、いろいろと感慨深くていい時代になったなーと思ったから記事に残しておく。

本日を以ってブログ「文系大学的IT系の悲哀」はタイトルを変更し、「LiosK-free EnergyBlog」という名前のブログになりました。

今後ともよろしくお願いします。

変更の経緯や新ブログ名の由来は続きで。

手元のノートパソコンにXubuntu 8.10をインストールした後にやったことをメモしておく。