Route 477

■ [ruby] bitclustに関するメモ

Ruby合宿中に聞いとけばよかった…。

ディレクトリ構成はとりあえず

% ls
bitclust/
doctree/
db-1_8_7/

みたいにする。

まずDBフォルダを作る。

% ./bitclust/bin/bitclust.rb -d ./db-1_8_7 init version=1.8.7 encoding=euc-jp

encoding=utf8とかしても、入力を自動的にUTF8に変換してくれたりはしないので注意(今のところ)。

次にリファレンスを読み込む。svn upを忘れずにな。

% ruby -I bitclust/lib/ bitclust/bin/bitclust.rb -d ./db-1_8_7/ update --stdlibtree=./doctree/refm/api/src

末尾に「&& echo ^G」(^GはC-v C-g)とかしとくと終わったときにベルが鳴って良い。「&& say 'finished'」でもいいけど(Mac限定)。

んでサーバ起動。

% ./bitclust/standalone.rb --debug --database=db-1_9_7 --port=10081 --baseurl=""

--debugを付けないと^Cで止められないので注意。

ここまではいいんだ。ここまでは。

ツリーの一部分だけ更新したい

えーと

一部分だけやろうとするとOpenSSLあたりのドキュメントでエラーになるんでDB作るところからやり直さんといかんのだが、 リファレンス書くだけならbc-tohtmlで部分的にHTML作ればいい気がしてきた。

Tips

bitclust/theme/default/style.cssで s/33a/3a3/g とかすると、デザインが青から緑になるのでローカルだとわかりやすくなって良い。

■ [haskell] ParsecでS式をパーズしてみた

てか48時間Scheme(via http://kzk9.net/column/haskell_parsec.html)そのままだが。

import Text.ParserCombinators.Parsec

data Value = IntValue Int | StrValue String | ListValue [Value]
  deriving (Eq, Show)

parseSexp :: Parser Value
parseSexp = parseAtom
        <|> parseList

parseAtom :: Parser Value
parseAtom = parseInt
        <|> parseStr

parseInt :: Parser Value
parseInt = do s <- many1 digit
              return $ IntValue (read s)

parseStr :: Parser Value
parseStr = do char '"'
              x <- many stringParts
              char '"'
              return $ StrValue $ concat x
  where 
    stringParts :: Parser String
    stringParts = do c1 <- char '\\' 
                     c2 <- anyChar
                     return $ c1:[c2]
              <|> do c <- try $ noneOf "\""
                     return $ [c]

parseList :: Parser Value
parseList = do char '('
               ls <- sepBy parseSexp (skipMany1 space)
               char ')'
               return $ ListValue ls

main = print $ parse parseSexp "" "(\"1\" (2) 3)"

値をValueで包まんといかんのが嫌なんだが、なんとかならんかなぁ。

IntとStringだけでよければ型クラス?でなんとかなりそうな気がするが、それらのリスト(とリストのリストとか)をどうしたらいいのかわからん。

■ [ruby] Rubyライブラリのサンプルコードを書くときのTips

Rubyのライブラリは大抵、

bin/ (あれば)
lib/foo.rb
lib/foo/bar.rb
test/test_foo.rb
example/baz.rb

みたいになるわけだが、example/baz.rbからlib/foo.rbをrequireするにはどうすればいいか？という問題がある。

もちろん、インストールしてしまえば

require 'foo'

でいいわけだが、開発中はそういうわけにもいかない。

「サンプルコードはトップレベルで実行してね」(または、example以下で実行してね)と決めてしまえば、

require 'lib/foo'

とか

require '../lib/foo'

でrequireできるが、これだと決められたディレクトリで実行しないとLoadErrorになってしまう。

そこで、example/baz.rbの最初に以下のように書いておくと、どこから実行しても require 'foo' でいけるようになる。

$LOAD_PATH << File.expand_path("../lib", File.dirname(__FILE__))

何をしているかというと、__FILE__で自分自身(つまりexample/baz.rb)のパスを取得して、baz.rbのある ディレクトリから ../lib を相対的にたどり、requireがライブラリを探す対象として登録している。

(8/26追記: 場合によっては、$LOAD_PATH << より $LOAD_PATH.unshift の方が良いかも。<<は末尾に追加するので、fooというライブラリが既にインストールされてたりするとそっちを読みこんでしまう。)

ちなみにこのTipsはサンプルコードだけでなく、ユニットテストにも使える。

$LOAD_PATH << File.expand_path("../lib", File.dirname(__FILE__))
require 'rspec'
require 'foo'

とかね。

■ [haskell] HaskellでS式のライタを書きたいんですけど

とりあえず IntとStringと[a]をSexpValueのインスタンスにしようとしたんですけど、String（つまり[Char])と[a]がバッティングして動いてくれません（＞＜）

{-# OPTIONS_GHC -XTypeSynonymInstances #-}                                               
{-# OPTIONS_GHC -XFlexibleInstances #-}                                                  
{-# OPTIONS_GHC -XFlexibleContexts #-}                                                   
import Data.List                                                                         
                                                                                         
takeChars :: String -> [Int] -> [String]                                                 
takeChars str ns = map (\n -> [str !! n]) ns                                             
                                                                                         
class SexpValue a where                                                                  
  toSexp :: (SexpValue a) => a -> String                                                 
instance SexpValue Int where                                                             
  toSexp n = show n                                                                      
instance SexpValue String where                                                          
  toSexp s = show s                                                                      
instance SexpValue a => SexpValue [a] where                                              
  toSexp ls = "(" ++                                                                     
              (concat $ intersperse "," (map toSexp ls)) ++                              
              ")"                                                                        
                                                                                         
main = putStr $ toSexp $ takeChars "abcde" [1,3]   

どうしたらいいんだろう。Showとかはどうやってるのかな。

■ [vim][mac] Vim.appがうまく動かない

• 新しくファイルを開いてインサートモードに入ると、なぜかIMEがオンの状態になる(オフであってほしい)
• UTF-8のファイルで「\」キーを押すと円マークが入力されてしまい、バックスラッシュが入力できない。(\nが書けなくて困る)
• インサートモードでBSを押しても、入力を開始した地点より前が削除できない

設定でなんとかなるんだろうか…。。

(8/29追記: 1番目は~/.vimrcに set iminsert=0 と set imsearch=0 を追加したら直りました。ありがとうございます＞znzさん)