TERM

で、アドバイスを頂いた。普通に、make-default-console 出来るか？ これは、問題なくできた。今度は少しいたずら。

sakae@fbox:~ $ export TERM=hogefuga
Cannot read termcap database;
using dumb terminal settings.
sakae@fbox:~ $ echo $TERM
hogefuga
sakae@fbox:~ $ emacs
emacs: Cannot open terminfo database file
sakae@fbox:~ $ vi
vi: No terminal database found
sakae@fbox:~ $ MINE/bin/gosh -fno-read-edit
gosh> (use text.console)
gosh> (make-default-console)
*** ERROR: Unsupported terminal type: hogefuga
Stack Trace:
_______________________________________
  0  (eval expr env)
        at "/home/sakae/MINE/share/gauche-0.98/0.9.12/lib/gauche/interactive.scm":336

viでの反応を少し調べる。 /usr/src/contrib/nvi/cl/cl_main.c

term_init(char *ttype)
{
        int err;

        /* Set up the terminal database information. */
        setupterm(ttype, STDOUT_FILENO, &err);
        switch (err) {
        case -1:
                errx(1, "No terminal database found");
        case 0:
                errx(1, "%s: unknown terminal type", ttype);
        }
}

The setupterm routine reads in the terminfo database, initializing the
terminfo structures, but does not set up the output virtualization
structures used by curses.  These are its parameters:

        If ERR is returned, examine errret:

        1    means that the terminal is hardcopy, cannot be used for
             curses applications.

             setupterm determines if the entry is a hardcopy type by
             checking the hc (hardcopy) capability.

        0    means that the terminal could not be found, or that it is
             a generic type, having too little information for curses
             applications to run.

             setupterm determines if the entry is a generic type by
             checking the gn (generic) capability.

        -1   means that the terminfo database could not be found.

ふむ、何かライブラリィーを用意してるのかな？

sakae@fbox:~ $ ldd /usr/bin/vi
/usr/bin/vi:
        libutil.so.9 => /lib/libutil.so.9 (0x2049f000)
        libncursesw.so.9 => /lib/libncursesw.so.9 (0x204b6000)
        libc.so.7 => /lib/libc.so.7 (0x2051e000)

emacsにも、/lib/libncursesw.so.9 が含まれていたぞ。ncursesのワイド版、日本語対応って事かな。

lib/gauche/interactive.scm を散策してたら、ヒストリーファイルなんてのに出会った。 こちら方面がどういう応答か見ておく。 OpenBSDでは、ちゃんとヒストリーファイルに記録されるのに、FreeBSDのコンソールから起動した場合、ログが残らない。

但し、PuTTYを使ってFreeBSDに乗入れ、そこでgoshを起動すると、ちゃんとヒストリーも残り、REPLも正常に動く。FreeBSD自身の端末ドライバーを使った場合、応答が異常になるっていう総合診断を下さざるを得ない。pty(4),pts(4)の関係かしら？

sakae@fbox:~ $ cat .gosh_history
(gauche-history-version 1)
"1234"
"(+ 123 456)"

コンソールでは、REPLが受け付けるのは、 ^C で、Input interrupted って反応と、^\ のSIGQUIT で、goshを終了する反応だけのように見える。それ以外は、123と入力するも、それに対するechoすら無い。

goshのマニュアル見ていたら、ヒストリーファイルは、goshが正常終了した場合に作成されるとなってた。上記の場合は、強制quitと言うかSIGQUITだから、正常とは看做されないのだな。

まずは、コンソールから gdb gosh して走らせる。gosh$ になった所で123とか、わざとエラーになるようにAAAとかを評価するも、何の反応も無い。現象再現。

端末環境がどうなってるか、C-c してgdbに戻り、そこで ! stty -a >LOG した。だって、コピペ出来無いもの。ログをPuTTYな端末から確認。

speed 9600 baud; 25 rows; 80 columns;
lflags: icanon isig iexten echo echoe -echok echoke -echonl echoctl
        -echoprt -altwerase -noflsh -tostop -flusho -pendin -nokerninfo
        -extproc
iflags: -istrip icrnl -inlcr -igncr ixon -ixoff ixany imaxbel -ignbrk
        brkint -inpck -ignpar -parmrk
oflags: opost onlcr -ocrnl tab0 -onocr -onlret
cflags: cread cs8 -parenb -parodd hupcl -clocal -cstopb -crtscts -dsrflow
        -dtrflow -mdmbuf rtsdtr
cchars: discard = ^O; dsusp = ^Y; eof = ^D; eol = <undef>;
        eol2 = <undef>; erase = ^?; erase2 = ^H; intr = ^C; kill = ^U;
        lnext = ^V; min = 1; quit = ^\; reprint = ^R; start = ^Q;
        status = ^T; stop = ^S; susp = ^Z; time = 0; werase = ^W;

こちらは、対比する為のPuTTY端末。マスター/スレーブな端末だ。

sakae@fbox:/tmp $ tty
/dev/pts/1
sakae@fbox:/tmp $ stty -a
speed 9600 baud; 31 rows; 80 columns;
lflags: icanon isig iexten echo echoe -echok echoke -echonl echoctl
        -echoprt -altwerase -noflsh -tostop -flusho -pendin -nokerninfo
        -extproc
iflags: -istrip icrnl -inlcr -igncr ixon -ixoff ixany imaxbel -ignbrk
        brkint -inpck -ignpar -parmrk
oflags: opost onlcr -ocrnl tab0 -onocr -onlret
cflags: cread cs8 -parenb -parodd hupcl -clocal -cstopb -crtscts -dsrflow
        -dtrflow -mdmbuf rtsdtr
cchars: discard = ^O; dsusp = ^Y; eof = ^D; eol = <undef>;
        eol2 = <undef>; erase = ^?; erase2 = ^H; intr = ^C; kill = ^U;
        lnext = ^V; min = 1; quit = ^\; reprint = ^R; start = ^Q;
        status = ^T; stop = ^S; susp = ^Z; time = 0; werase = ^W;

結果はrowsを除いて、同一だった。ひょっとして、goshの環境じゃなくてgdbの環境を見ているのかな。ならば、 viを起動して、その環境でstty -aを確認。

sakae@fbox:/tmp $ diff LOG VI
1,2c1,2
< speed 9600 baud; 25 rows; 80 columns;
< lflags: icanon isig iexten echo echoe -echok echoke -echonl echoctl
---
> speed 9600 baud; 31 rows; 80 columns;
> lflags: icanon isig iexten echo echoe echok echoke -echonl echoctl

コンソールでgoshを起動しておいて、gdbをアタッチしてみる。勿論、gdbはコピペ出来るPuTTY上から、emacs経由。

(gdb) bt
#0  0x20ace2ad in _read () from /lib/libc.so.7
#1  0x209a3ed1 in ?? () from /lib/libthr.so.3
#2  0x20acc5cf in read () from /lib/libc.so.7
#3  0x205cbde3 in file_filler (p=0x20e62ee0, cnt=1) at port.c:1304
#4  0x205c938a in bufport_fill (p=<optimized out>, min=1, allow_less=0) at port.c:1020
#5  0x205c94ff in Scm_Getc (p=0x20e62ee0) at ./portapi.c:638
#6  0x2059cf3d in run_loop () at ./vminsn.scm:1339
#7  0x2057a04d in user_eval_inner (program=<optimized out>, codevec=0xffbfeb14) at vm.c:1572
#8  0x2057afc4 in apply_rec (vm=<optimized out>, proc=<optimized out>, nargs=<optimized out>) at vm.c:1691
#9  Scm_ApplyRec (proc=<optimized out>, args=<optimized out>) at vm.c:1711
#10 safe_eval_wrap (kind=1, arg0=0xb, args=0xb, cstr=0x401f46 "(read-eval-print-loop)", env=0x20871f34 <userModule>, result=0x0) at vm.c:1844
#11 0x2057b10a in Scm_EvalCString (expr=0x401f46 "(read-eval-print-loop)", env=0x20871f34 <userModule>, packet=0x0) at vm.c:1877
#12 0x00405d24 in enter_repl () at main.c:753
#13 0x00406498 in main (ac=1, av=0xffbfed14) at main.c:897

frame 4 あたりまでは、下働きっぽいので、 Scm_Getc にBPを張ってみる。そしてREPLに、9RETURN を入力。

Thread 1 hit Breakpoint 1, Scm_Getc (p=0x20e62ee0) at ./portapi.c:687
687                 if (c == '\n') PORT_LINE(p)++;
(gdb) p/c c
$1 = 57 '9'
(gdb) c
Continuing.

Thread 1 hit Breakpoint 1, Scm_Getc (p=0x20e62ee0) at ./portapi.c:687
687                 if (c == '\n') PORT_LINE(p)++;
(gdb) p/c c
$2 = 13 '\r'
(gdb) c
Continuing.

REPLに9が表示するはずだけど、何も出てこない。

(gdb) display/c c
1: /c c = 81 'Q'
(gdb) c
Continuing.

Thread 1 hit Breakpoint 1, Scm_Getc (p=0x20e62ee0) at ./portapi.c:687
687                 if (c == '\n') PORT_LINE(p)++;
1: /c c = 13 '\r'
(gdb) c
Continuing.

今度は、エラーを期待して、QRETURN するも、梨の礫。

RETURNを受け取った後の挙動をnextで追跡するも、VMマシンに阻まれて、路を見失ってしまった。まあ、入力はちゃんと受け取っていると予想されるから、出力系に不都合な真実が隠されているのかな。

待て、REPLから、(exit)と入力しても終了しないでgosh$のプロンプトのままって事は、あながち表示系だけの問題ではないのかも。でもSIGQUITはちゃんと機能するからなあ。