[plamo:13684] Re: ircii の日本語パッチ

[Yoshinori Ariie]

寺岡さま、先日はありがとうございました。
有家です。

date: Mon, Apr 22, 2002 at 07:36:37PM +0900
from: Teraoka Yoshinori <yteraoka@bb.mbn.or.jp>
>
> もはや ircII はどうでもよかったりするかもしれませんが
> ftp://ftp.dti.ad.jp/pub/FreeBSD/FreeBSD-current/ports/japanese/ircII/Makefile
> を見る限り、日本語版はいまでも
> ircii-2.8.2.tar.gz + ircii-2.8.2-jp.patch.gz
> のようです。
> ftp://ftp.dti.ad.jp/pub/FreeBSD/FreeBSD-current/ports/irc/ircII/Makefile
> は patch 無しですけど。


epic/ircii それぞれのソースアーカイブにある version 履歴などより
以下のような図を描いて見ました。

+ ircii2.2    (19930208)
+ ..
+ ircii2.6    (19941018)
+ ircii2.6.1  (19941108)
+ ircii2.6.2  (19941114)-------- 〜 --------+ EPICpre1      - 11/15/94
+ ircii2.6.3  (19941127)                    + EPIC1         - 12/01/94
+ ircii2.6.4  (19941219)                    + ..
+ ircii2.6.5  (19941219)                    + ..
+ ircii2.6.6  (19941221)                    + ..
+ ircii2.6.7  (19941229)                    + ..
+ ircii2.6.8  (19950103)                    + ..
+ ircii2.6.9  (19950105)                    + ..
+ ..                                        + ..
+ ircii2.8.2  (19950405)--> 日本語パッチ    + ..
+ ..                                        + ..
+ 2.9alpha5   (19970420)--> 本家JIS対応     + ..
+ ..                                        + EPIC4pre1     - 07/14/97
+ ircii4.4Z   (20000831)                    + ..
+ ircii20001007                             + EPIC4pre2.003 - 02/24/99
+ ..                          EPIC-2000 <---+
+ ..                       日本語パッチ     + EPIC4-1.0     - 04/01/01
+ ..                                        + EPIC4-1.0.1   - 04/17/01
+ ..
+ ircii20020403


▼
先週末よりepic等のドキュメントと格闘しているのですが
基本コマンドの /link や /names で、引数を付けるのを忘れて
IRCサーバーとの接続が切れるエラーが頻出します。
このコマンド設計には、少し問題があるように思います。(--);

そこでラッパーを書いてみました。(.ircrc の中で使います）
それぞれ /n /l が /names /list のラッパーで
引数の無い場合には現在のチャネルが操作対象になるようにしました。

（注意）以下の ^C の部分は "^" + "C" ではなくて ^C(\003) です!
        vi系では Ctrl+V Ctrl+C などで入力します。


# avail 'names' for specified channel : n [<channel>]
# last modified 23 Apr 2002
#
alias n { # wrapper of 'names'
    if ([$0]) { # argument $0 specified
        if ([$index(\* $0)] == [-1]){ # no wildcard used
            names $*
        }{ # wildcard '*' used
            echo $strftime(%X) ^C04***^C00 wildcard(*) used in $0
        }
    }{ # with no argument
        if ([$C]) { # in channel
            if ([$index(\* $C)] == [-1]){ # no wildcard used
                echo $strftime(%X) ^C05***^C15 names $C
                names $C
            }{ # wildcard used, suppose $C as "#*:*.jp" style
                ^assign svr %$strip(# $word(0 $split(: $C)))
                echo $strftime(%X) ^C05***^C15 names $svr
                names $svr
                ^assign -svr
            }
        }{ # not in channel
            echo $strftime(%X) ^C04***^C15 not in channel
        }
    }
}

同様にして
この中のコマンド names を list に書き換え list のwrapperを作ります。

alias l { # wrapper of 'list': l [<channel>]
..
}


# .ircrcプログラミングでの文字列処理は、一昔以上前のBASICに似ています。
# 正規表現の扱える関数もあるようですが、まだよくわかりません。

-- 
pba00250@nifty.com
yoariie@ehime.med.or.jp
-------------------------
有家佳紀  Yoshinori Ariie