�� 2006-01

2006-01-01

�� 2006

��ᤳ�Ȥ��

��ʤ櫓�� 2005 ǯ�� SEGV �ǽ��ޤ�� SIGSEGV �Ͽ��ǯ��𤲤륷��ʥ�Ȥ��Ȥ��

(17:29)

�� cvs/svn/svk ��ư�ڤ��ؤ�

��äѤ��ݤ�� ʤ��˽񤤤� cvs/svn/svk ��ư�ڤ��ؤ��ޥ�ɤ�񤤤Ƥߤ�� cvsc �Ȥ� cvsdiffl �ߤ��ȼ��ޥ�ɤ�Ƥ٤뤳�Ȥȡ� svk ���󥰥��ԡ��θ��Ф�Ŭ��̢�䤷�Ƥ��Τ��ħ��

#!/bin/sh
# $Id: vs.sh,v 1.3 2006/01/01 17:52:06 aamine Exp $
��
guess_vs() {
    if [ -d CVS ]
    then
        echo "cvs"
    elif [ -d .svn ]
    then
        echo "svn"
    elif grep -q "`pwd`:" $HOME/.svk/config
    then
        echo "svk"
    else
        echo "not under control of CVS/SVN/SVK" 1>&2
        exit 1
    fi
}
��
cmd_suffix() {
    basename $1 | sed 's/^vs//'
}
��
`guess_vs``cmd_suffix $0` ${@+"$@"}

�ʤ�Ȥʤ��԰¤ǤϤ��뤬��ȤäƤߤ褦��

�ġĤ��󡢤ɤ��Ƥ� cvs ��ǤäƤ��ޤ��ʡ�

(03:00)

2006-01-03

�� Ĥ��

��ǯ�᡹��ߤ��п��Τդ��դ��Ȳ��Ƥ��Τ�ȯ��

(11:38)

2006-01-08

�� Ȳ�ȸ��ƽ�

�ͥåȥ��Ǥ��ƥ֥饦��᡼�� IRC ��Ȥ�� 椾��Ȥ��Ρֻ�Ȳ�Ȥ��Ķ��פ��Ⱥ�ȸ�Ψ��ȤƤ⤤��Ȥ��狼�ä�� 󥿡��ͥåȤ�ȯ��Ǻ�ο�� 108 �ɤ��ǤϤʤ��Τ��

��⤦��ͥåȥ��ڤ��äȡ�

(09:51)

�� դĤ�� H

where ��Ȥ��ʬŬ�Ѥʤ��Ǥ� fgrep ��񤱤뤳�Ȥ˵��դ��ɡ� where ��ѿ��ͭ��Τ��ʬŬ�Ѥ�� ɤ��餬��򤷤ˤ��̯�ʤȤ��Ǥ��ʡ� �ʤ�Ȥʤ��Java �ʿͤʤ� where �Τ��ñ��ʵ��ɡ�

-- where ��Ȥ�
import System
import List
��
main = do args <- getArgs
          cs <- getContents
          putStr $ fgrep (head args) cs
��
fgrep pattern cs = unlines $ filter match $ lines cs
  where
    match line = any prefixp $ tails line
��
    prefixp str = pattern `isPrefixOf` str
��
-- ��ʬŬ�Ѥ�Ȥ�
import System
import List
��
main = do args <- getArgs
          cs <- getContents
          putStr $ fgrep (head args) cs
��
fgrep pattern cs = unlines $ filter (match pattern) $ lines cs
��
match pattern line = any (pattern `isPrefixOf`) $ tails line

��ʬŬ�Ѥ��ȴؿ��Ȥ��ʤäƤ��ޤ��ʡġġ�

��ʤߤ˺ǽ�Ū�ˤϤ��ʤ롣

-- �ǽ���
import System
import List
��
main :: IO ()
main = do args <- getArgs
          case args of
            [pattern] -> putStr . fgrep pattern =<< getContents
            _         -> error "wrong argument"
��
fgrep :: String -> String -> String
fgrep pattern = unlines . filter (match pattern) . lines
��
match :: String -> String -> Bool
match pattern = any (pattern `isPrefixOf`) . tails

(10:21)