天泣記

(coding-system-put
 'sjis 'translation-table-for-decode
 (make-translation-table
  `((?\\ . ,(make-char 'latin-jisx0201 92))
    (?~ . ,(make-char 'latin-jisx0201 126)))))

#3

しかし、この類の式を書く時にいつも思うのは . の後に , を書いていいのだろうか、ということである。まぁ、動くから書いてしまうし、ここに ,@ を使いたくはないのだが...

#4

,@ を使っても中身がリストじゃないのに使ってもいいのかという疑念が新たに芽生えるだけか...

#5

情報提供によれば、XEmacs では

`(1 ,.(+ 1 1))

とかけるそうな。

#6

そういえば、その昔、1.2 はひとつのトークンになるのだから、 a.b もやはり一つのトークンになるべきではないか、と主張してあるひとを納得させかけたことがあったものだ。

ふとためしてみると... うぅむ。そのとおりになっている。

だが .a はならないようだ。.1 はなるのに。

2000/08/05

#1

cvs に --chroot オプションをつけるパッチ

#2

情報提供に付記されてのだが、 Emacs でも中途半端に動くらしい。

(read "`(1 ,. 2)") => (\` (1 (\,\. 2)))
(eval '(\` (1 (\,\. 2)))) => (1 (\,\. 2))

つまりリーダーはサポートしているが、backquote macro はサポートしていないということのようである。

なお、XEmacs では

(read "`(1 ,. 2)") => (backquote (1 (\,\. 2)))
(eval '(backquote (1 (\,\. 2)))) => (1 . 2)

となる。

#3

というわけで advice してしまえば動く模様。動いたからどうだというものでもないが。

(defadvice backquote-process (around commadot activate)
  (let ((s (ad-get-arg 0)))
    (if (and (consp s) (eq (car s) '\,\.))
        (setq ad-return-value (cons 2 (nth 1 s)))
      ad-do-it)))

2000/08/06

#1

しばらく前から IRC が不調だった原因を調べてみる。というわけで、とりあえず plum を strace する。

...
 0.026955 time()                    = 965492648 <0.000110>
 0.000415 stat("plum.conf", {st_mode=S_IFREG|0600, st_size=6220, ...}) = 0 <0.000935>
 0.001519 read(6, "PING :irc.kyoto.wide.ad.jp\r\n", 1024) = 28 <0.000118>
 0.001911 time()                    = 965492648 <0.000110>
 0.000396 poll([{fd=4, events=POLLRDNORM}, {fd=6, events=POLLOUT|POLLRDNORM, revents=POLLOUT}], 2, 120000000) = 1 <0.000110>
 0.001131 getsockname(4, {sin_family=AF_INET, sin_port=htons(6659), sin_addr=inet_addr("0.0.0.0")}}, [16]) = 0 <0.000152>
 0.001173 door_info(0x5, 0xefffd4d0, 0x14, 0x2136c4, 0xef622eb4) = 0 <0.000113>
 0.000337 door_call(0x5, 0xefffd4b8, 0, 0x13, 0xef622eb4) = 0 <0.000171>
 0.000756 time()                    = 965492648 <0.000110>
 0.000389 stat("plum.conf", {st_mode=S_IFREG|0600, st_size=6220, ...}) = 0 <0.000125>
 0.000652 time()                    = 965492648 <0.000105>
 0.000722 write(6, "PONG :irc.kyoto.wide.ad.jp\r\n", 28) = 28 <0.000172>
 0.000550 time()                    = 965492648 <0.000104>
 0.000912 poll([{fd=4, events=POLLRDNORM}, {fd=6, events=POLLRDNORM, revents=POLLRDNORM}], 2, 120000000) = 1 <90.472528>
90.473943 getsockname(4, {sin_family=AF_INET, sin_port=htons(6659), sin_addr=inet_addr("0.0.0.0")}}, [16]) = 0 <0.000172>
 0.000702 door_info(0x5, 0xefffd4d0, 0x14, 0x2136a8, 0xef622eb4) = 0 <0.000118>
 0.000350 door_call(0x5, 0xefffd4b8, 0, 0x13, 0xef622eb4) = 0 <0.005926>
 0.006590 time()                    = 965492738 <0.000108>
 0.000413 stat("plum.conf", {st_mode=S_IFREG|0600, st_size=6220, ...}) = 0 <0.000869>
 0.002104 read(6, "ERROR :Closing Link: akr[akr@mule.m17n.org] (Ping timeout)\r\n", 1024) = 60 <0.000120>
 0.001300 time()                    = 965492738 <0.000108>
 0.000390 poll([{fd=4, events=POLLRDNORM}, {fd=6, events=POLLRDNORM, revents=POLLRDNORM}], 2, 120000000) = 1 <0.000109>
 0.001133 getsockname(4, {sin_family=AF_INET, sin_port=htons(6659), sin_addr=inet_addr("0.0.0.0")}}, [16]) = 0 <0.000152>
 0.000559 door_info(0x5, 0xefffd4d0, 0x14, 0x2136d8, 0xef622eb4) = 0 <0.000110>
 0.000862 door_call(0x5, 0xefffd4b8, 0, 0x13, 0xef622eb4) = 0 <0.000174>
 0.000760 time()                    = 965492738 <0.000110>
 0.000388 stat("plum.conf", {st_mode=S_IFREG|0600, st_size=6220, ...}) = 0 <0.000126>
 0.000646 read(6, "", 1024)         = 0 <0.000113>
 0.000587 close(6)                  = 0 <0.000228>
 0.000451 llseek(0x6, 0, 0, 0x1)    = -1 EBADF (Bad file number) <0.000101>
 0.000328 close(6)                  = -1 EBADF (Bad file number) <0.000096>
 0.001353 time()                    = 965492738 <0.001605>
 0.001882 poll(

ぬぅ。サーバは Ping timeout といっているが、届いた PING にはすべて PONG を返している。ブロックしているのは poll だけだからブロック中に PING が来て timeout したというのも考えられない。なにが起きている? write したのに届いていないってのか?

#2

初期設定に入れる。

ついでに tibet を使って Sony のフォントの OVERLINE をまっすぐに延ばす。

#3

cvs log -r1.492 doc/cvs.texinfo 
cvs diff -r1.491 -r1.492 doc/cvs.texinfo

ぬぅ。

#4

情報提供のさらなる付記に、 ,. が Common Lisp 由来とあったのだが...

「",@" が用いられるところはどこでも、",." 構文が代わりに用いられる。それは ",." の後に続くフォームが生成するリストを破壊しても良いことを表すためにである。たとえば、もっと効率の良いコードを許すのに append の代わりに nconc を用いるようなものである。」 COMMON LISP 第2版, Guy L. Steele Jr.

とゆーわけで ,. というのは実は全然疑問の解答になっていないのであった。

結局、(Common Lisp 的な)解答としては結局 (1 . ,(+ 2 3)) が正しいらしい。

,@ の中にリスト以外をいれるというのは append の非最後尾の引数にリスト以外を与えるのと等価なのに対し、 . のあとに , というのはまさにそのものの定義があって問題なく使えるようである。

#5

akanga is an rc based shell interpreter with additions for

file locking,
temporary files,
reading standard input and
builtins for let and expr.

#6

Surfraw: Shell Users' Revolutionary Front Against the World wide web

#7

SSH_ORIGINAL_COMMAND for OpenSSH

#8

CBE is revision control system with integrated make-like functions written in pure Java.

CBE can either be used file-based (like CVS) or with a database backend.

2000/08/07

#1

IRC をもう少し調べる。とりあえず PING に PONG と答えるだけのクライアントを作ってみる。

#!/usr/local/bin/zsh

coproc strace -rT -o/tmp/ping-pong -s200 socket irc.kyoto.wide.ad.jp 6669
echo pid:$!

print -rp - \
'PASS :ぱすわーど^M
NICK :a0b1^M
USER a0b1 * * :Tanaka Akira^M'

while read -rp line; do
  print -r - "$SECONDS $line"
  if [[ "$line" == PING* ]]; then
    print -rp - "PONG${line#PING}"
    print -r - "[PONG${${line#PING}%^M}]"
  fi
done

まぁ、zsh なのはご愛敬として、やはりしばらくすると Ping timeout する。

ためしに、PONG のあとにこっちから PING してみる。

#!/usr/local/bin/zsh

coproc strace -rT -o/tmp/ping-pong -s200 socket irc.kyoto.wide.ad.jp 6669
echo pid:$!

print -rp - \
'PASS :ひみつ^M
NICK :a0b1^M
USER a0b1 * * :Tanaka Akira^M'

while read -rp line; do
  print -r - "$SECONDS $line"
  if [[ "$line" == PING* ]]; then
    print -rp - "PONG${line#PING}"
    print -r - "[PONG${${line#PING}%^M}]"
    print -rp - "PING a0b1 irc.kyoto.wide.ad.jp^M"
    print -r - "[PING a0b1 irc.kyoto.wide.ad.jp]"
  fi
done

Ping timeout する直前にはこちらからの PING に反応がない。

ついでにいえば、それ以外のタイミングでも PING への反応が数十秒かかることはざらであることが観測された。むろん即座に返ってくることもあるのだが。

...
1 :irc.kyoto.wide.ad.jp 376 a0b1 :End of MOTD command.
92 PING :irc.kyoto.wide.ad.jp
[PONG :irc.kyoto.wide.ad.jp]
[PING a0b1 irc.kyoto.wide.ad.jp]
92 :irc.kyoto.wide.ad.jp PONG irc.kyoto.wide.ad.jp :a0b1
183 PING :irc.kyoto.wide.ad.jp
[PONG :irc.kyoto.wide.ad.jp]
[PING a0b1 irc.kyoto.wide.ad.jp]
214 :irc.kyoto.wide.ad.jp PONG irc.kyoto.wide.ad.jp :a0b1
306 PING :irc.kyoto.wide.ad.jp
[PONG :irc.kyoto.wide.ad.jp]
[PING a0b1 irc.kyoto.wide.ad.jp]
326 :irc.kyoto.wide.ad.jp PONG irc.kyoto.wide.ad.jp :a0b1
418 PING :irc.kyoto.wide.ad.jp
[PONG :irc.kyoto.wide.ad.jp]
[PING a0b1 irc.kyoto.wide.ad.jp]
474 :irc.kyoto.wide.ad.jp PONG irc.kyoto.wide.ad.jp :a0b1
566 PING :irc.kyoto.wide.ad.jp
[PONG :irc.kyoto.wide.ad.jp]
[PING a0b1 irc.kyoto.wide.ad.jp]
655 ERROR :Closing Link: a0b1[akr@mule.m17n.org] (Ping timeout)

また、最後以外のタイミングでも PING への反応が数十秒かかることはざらであることが観測された。

最後の PING からきっかり 90秒で ERROR が返ってくるところを見ると、すくなくともサーバからクライアントへのデータ通信には問題なさそう。どこで時間がかかっているのやら。

#2

こうなるとクライアント側でできることはあまりないので、ネットワークやサーバ側の事情を知っている人に尋ねるか、あきらめるしかない。

とりあえずあきらめることにして、.org からつなげる他のサーバを使う。 ident/socks が通らないので、最初に接続する時にナニかの timeout を待たなければならないが、 bot 経由であればあまり問題はない。

2000/08/08

#1

課題、追記。

uid は各コミッターで違うものにする。
NFS を使って、anonymous では chroot jail 全体を noexec, リポジトリは read-only とする。
anonymous 以外でも、可能な範囲で noexec/read-only にする。 commitinfo/loginfo を exec せずに動かせる?
FreeBSD 4.x にして jail 内で cvs server を動かす。 (外からの)pserver/ssh コネクション以外のネットワークトラフィックを全部落す。
VMware で同様のことが可能どうか調べる。
さらに、VMware 上で FreeBSD 4.x を動かす価値があるかどうか考える。 (とはいえ VMware の Guest OS のリストには FreeBSD 4.x は載ってないか...)

#2

dia の man に書いてあるコマンドラインオプションが全く効かないことに気がつく。 --export-to-ps=OUTPUT が使えないと Makefile に .dia -> .eps なルールが書けないのでとても困る。というわけで調べてみると、install するときに popt が必要だった、というオチであった。というわけで、popt を install して作り直す。

% dia -e triangle.eps triangle.dia
/dev/dsp: No such file or directory
%

げーん。

% cd /dev
% sudo sh MAKEDEV snd8
% dia
/dev/dsp: Device not configured
%

まぁ、そらそうだよな。

#3

ふと、Ruby の class や module って Pascal の with に似てるよな、とか思う。

#4

Zorp: Modular Proxy Firewall

#5

ProPolice: Protecting from stack-smashing attacks

2000/08/09

#1

予備実験。127.0.0.2 で jail を作って動かすとしたら ipfw はこんな感じにすればいいのかなぁ。

00010 deny tcp from 127.0.0.2 to any setup
00011 allow tcp from 127.0.0.2 22,2401 to any
00012 deny ip from 127.0.0.2 to any
00013 allow tcp from any to 127.0.0.2 22,2401
00014 deny ip from any to 127.0.0.2

#2

でも、(ipfw による制限の無い場合でも)jail 内のから 127.0.0.1 のサーバにつなげないのは謎だ。 jail でなければつなげるのに...

# netstat -a -n|grep 79    
tcp4       0      0  127.0.0.1.79           *.*                    LISTEN
# jail path-to-jail xxx 127.0.0.2 /telnet 127.0.0.1 79         
Trying 127.0.0.1...
telnet: connect to address 127.0.0.1: Connection refused
telnet: Unable to connect to remote host
# telnet -s 127.0.0.2 127.0.0.1 79                           
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.