mlterm-dev-ja Mailing List for mlterm(Multi Lingual TERMinal emulator)

坂本です。

> 荒木です:-)
> > #  Xtで設定画面を作る(gtkなくても設定を動的に変えられるように)
> > #ですが、適当に拡張した escape sequence を介して設定を変える cursesベースの 
> > #設定ツールというのはどうでしょう?
> プロトコルだけ決めて、curses ベースの外部プログラムは、南さんに製作・配布し
> ていただく、ということで:)

プロトコルを決めてもらえれば、w3m の local-CGI でも作ってみますよ。

例えば、title を変えるのであれば、こんな感じ。
/usr/local/lib/w3m/title.cgi として置いておいて、
  w3m /usr/local/lib/w3m/title.cgi
として使います。
# /dev/tty を /dev/ttyp2 とかに変更可能にすれば遠隔操作できるかも。
-----------------------------------
坂本 浩則 <hs...@mt...>
 http://www2u.biglobe.ne.jp/~hsaka/

#!/usr/bin/perl

for (split('&', $ENV{'QUERY_STRING'})) {
	s/^([^=]*)=//;
	$V{$1} = &form_decode($_);
}

if (defined($V{'title'})) {
	open(TTY, ">/dev/tty");
	print TTY "\033]2;$V{'title'}\007";
	close(TTY);
	$t = &html_quote($V{'title'});
} else {
	$t = "";
}

$CGI = $ENV{'SCRIPT_NAME'} || $0;
$CGI = &html_quote($CGI);
print <<EOF;
Content-Type: text/html

<form action="$CGI">
Title: <input type=text name=title value="$t">
</form>
EOF

sub html_quote {
  local($_) = @_;
  local(%QUOTE) = (
    '<', '&lt;',
    '>', '&gt;',
    '&', '&amp;',
    '"', '&quot;',
  );
  s/[<>&"]/$QUOTE{$&}/g;
  return $_;
}

sub form_decode {
  local($_) = @_;
  s/\+/ /g;
  s/%([\da-f][\da-f])/pack('c', hex($1))/egi;
  return $_;
}

	荒木です:-)

	Subject: Re: [Mlterm-dev-ja] image escape sqeuence
	From: MINAMI Hirokazu <mi...@ch...>
	Message-ID: <200...@ch...>
	Date: Fri, 11 Jan 2002 00:05:32 +0900
        
> #ToDo の
> #  Xtで設定画面を作る(gtkなくても設定を動的に変えられるように)
> #ですが、適当に拡張した escape sequence を介して設定を変える cursesベースの 
> #設定ツールというのはどうでしょう?

        あ、それ賢いですね。すばらしいアイデア。
        
        それなら、SIGCHILD シグナルに頼っている mlconfig と違って、いちいち設定画面
        を終了しなくてもすみますし。

        プロトコルだけ決めて、curses ベースの外部プログラムは、南さんに製作・配布し
        ていただく、ということで:)

        # 元メールは、個人宛でしたが、ネタ的に、mlterm-dev-ja にも Cc したほうがよい
        # ように思いましたので、この部分のみ、ML にもなげております_o_

	では
--
kiken
j00...@ip...

	荒木です:-)

        すみません、反応が遅くなりました。

	Subject: [Mlterm-dev-ja] image escape sqeuence
	From: MINAMI Hirokazu <mi...@ch...>
	Message-ID: <200...@ch...>
	Date: Thu, 10 Jan 2002 15:07:20 +0900

> eterm では (たぶん aterm でも)
>
> ESC ] 20 ; filename [; adjusting ] [: operation] BEL
>
> で背景画像が変えられるようです
> (http://www.eterm.org/docs/view.php?doc=ref#image)。

        そんなんがあるんですね。

        # というか、どこかでみたことのある... ^_^;
        
        # ちなみに、w3m-img は、ほんとうにたまたま(はじめてだったかも)坂本さんの掲示
        # 板を覗いてみつけたんですが、あのとき坂本さんにメールおくらなければ、今、絶
        # 対にこんなことしてないです。
        # 今から考えると、あれが分岐点だったような....

> どのくらい受け入れられている拡張なのかはよくしらないのですが、
> これ(ら)が使えると GUI なしでもある程度は端末設定が変更できて
> 便利そうなので、とりあえず画像の変更だけはできるようにしてみました。

        ありがとうございます。
        のちほど、commit させていただきます_o_

        # この辺は、ただでさえ、context によって、呼べたり呼べなかったりする関数
        # 満載な上、Bidi/ISCII 対応の結果、undocumented な制約が増えておりますの
        # で、いじりにくかったと思います。すみません。

> eterm とおなじく
>  echo -e "\e]20;/path/to/foo.jpg;\007" で背景を foo.jpg に変更
>  読み込みに失敗したら背景画像の使用を停止
> とかできるはずですが、いかがでしょう?

        以下のような修正をくわえされていただきましたがよろしいでしょうか?

        まず、VT100 シーケンスの場合と、mlconfig の場合で、背景画像はりつけに失敗
        した場合の処理が異なるのは、なんかいやですので、error がおこった場合には、
        set_wall_picture() 内で即座に背景画像を使用停止するように致しました。

        その上で、ml_vt100_cmd_change_wall_picture() 内では、
        ml_config_menu_event_listener_t:change_wall_picture を直接呼びだすだけに
        いたしました。
        また、vt100 シーケンス処理中にウィンドウ描画処理を行なうことになりますので、
        change_wall_picture() よびだし前後で、
        ml_term_screen_{start|stop}_vt100_cmd()
        を呼びだす必要があります。

        # この関数内部で、カーソルの消去や、画面イメージの logical order <=> visual order
        # の変換などを行なっております。

        それから、index() ですが、これはコメントしていただいておりました通り、ANSI C
        準拠ではありませんので、strchr() に修正させていただきました。

        最後に、勝手な話なのですが、わたしの趣味で tab 幅 は 8 で開発しておりま
        すため、それでみたときに明らかに indent がずれるケースについては、修正させ
        てください _o_

        パッチを添付いたしますので、ご確認などおねがいいたします。

	では
--
kiken
j00...@ip...

Index: src/ml_term_screen.c
===================================================================
RCS file: /home/ken/cvsroot/mlterm/src/ml_term_screen.c,v
retrieving revision 1.267
diff -u -r1.267 ml_term_screen.c
--- src/ml_term_screen.c	2002/01/09 04:26:23	1.267
+++ src/ml_term_screen.c	2002/01/10 13:33:48
@@ -748,7 +748,7 @@
 	
 	if( ! ml_picture_init( &pic , &termscr->window))
 	{
-		return  0 ;
+		goto  error ;
 	}
 	
 	if( ! ml_picture_load( &pic , termscr->pic_file_path))
@@ -756,16 +756,16 @@
 		kik_msg_printf( " wall picture file %s is not found.\n" ,
 			termscr->pic_file_path) ;
 
-		return  0 ;
+		ml_picture_final( &pic) ;
+		
+		goto  error ;
 	}
 	
 	if( ! ml_window_set_wall_picture( &termscr->window , pic.pixmap))
 	{
-		kik_msg_printf( "a wall picture failed to be set.\n") ;
-
 		ml_picture_final( &pic) ;
-	
-		return  0 ;
+		
+		goto  error ;
 	}
 	else
 	{
@@ -773,6 +773,14 @@
 
 		return  1 ;
 	}
+
+error:
+	free( termscr->pic_file_path) ;
+	termscr->pic_file_path = NULL ;
+
+	ml_window_unset_wall_picture( &termscr->window) ;
+
+	return  0 ;
 }
 
 static int
Index: src/ml_vt100_command.c
===================================================================
RCS file: /home/ken/cvsroot/mlterm/src/ml_vt100_command.c,v
retrieving revision 1.2
diff -u -r1.2 ml_vt100_command.c
--- src/ml_vt100_command.c	2002/01/06 22:25:44	1.2
+++ src/ml_vt100_command.c	2002/01/10 13:44:03
@@ -14,8 +14,8 @@
  * for VT100 commands
  *
  * !! Notice !!
- * these functions considers termscr->image not to be visual bidi order.
- * call ml_term_screen_stop_bidi() before using them.
+ * these functions considers termscr->image to be logical order.
+ * call ml_term_screen_start_vt100_cmd() before using them.
  */
 
 int
@@ -670,6 +670,39 @@
 	ml_image_fill_all( termscr->image , &e_ch) ;
 
 	ml_char_final( &e_ch) ;
+
+	return  1 ;
+}
+
+int
+ml_vt100_cmd_change_wall_picture(
+	ml_term_screen_t * termscr ,
+	char * path
+	)
+{
+	if( *path == '\0')
+	{
+		/* Do not change current image but alter diaplay setting */
+		/* XXX nothing can be done for now */
+
+		return 0 ;
+	}
+
+	/*
+	 * XXX
+	 * trigger config_menu_event_listener.
+	 */
+	if( termscr->config_menu_listener.change_wall_picture)
+	{
+		/*
+		 * without ml_term_screen_{start|stop}_vt100_cmd() , a cursor will
+		 * be drawn on an old position in change_wall_picture
+		 * (-> ml_window_set_wall_picture -> window_exposed).
+		 */
+		ml_term_screen_stop_vt100_cmd( termscr) ;
+		(*termscr->config_menu_listener.change_wall_picture)( termscr , path) ;
+		ml_term_screen_start_vt100_cmd( termscr) ;
+	}
 
 	return  1 ;
 }
Index: src/ml_vt100_command.h
===================================================================
RCS file: /home/ken/cvsroot/mlterm/src/ml_vt100_command.h,v
retrieving revision 1.1
diff -u -r1.1 ml_vt100_command.h
--- src/ml_vt100_command.h	2002/01/05 09:36:04	1.1
+++ src/ml_vt100_command.h	2002/01/10 08:25:55
@@ -123,5 +123,7 @@
 
 int  ml_vt100_cmd_fill_all_with_e( ml_term_screen_t *  termscr) ;
 
+int  ml_vt100_cmd_change_wall_picture( ml_term_screen_t *  termscr , char * path) ;
+
 
 #endif
Index: src/ml_vt100_parser.c
===================================================================
RCS file: /home/ken/cvsroot/mlterm/src/ml_vt100_parser.c,v
retrieving revision 1.181
diff -u -r1.181 ml_vt100_parser.c
--- src/ml_vt100_parser.c	2002/01/08 16:18:31	1.181
+++ src/ml_vt100_parser.c	2002/01/10 08:29:08
@@ -1723,6 +1723,22 @@
 						ml_vt100_cmd_set_window_name( vt100_parser->termscr ,
 							pt) ;
 					}
+					else if( ps == 20)
+					{
+						/* image commands */
+						char * index_p;
+						
+						/* XXX discard all adjust./op. settings.*/
+						/* XXX may break multi-byte character string. */
+						if ( index_p = strchr(pt, ';')){ 
+							*index_p = '\0';
+						}
+						if ( index_p = strchr(pt, ':')){
+							*index_p = '\0';
+						}
+
+						ml_vt100_cmd_change_wall_picture( vt100_parser->termscr , pt);
+					}
 					else if( ps == 46)
 					{
 						/* change log file */

南です

On Thu, 10 Jan 2002 20:50:34 +0900 (JST)
Hironori Sakamoto <hs...@mt...> wrote:

> mlterm を知った頃の初期の w3m-img を思い出すなぁ。
>   http://www2u.biglobe.ne.jp/~hsaka/bbs.cgi?month=200107#20010706173101.08700
> 
> escape sqeuence は
>   ESC ] 100 ; x ; y ; w ; h ; filename BEL
> でした。 
> その頃の、mlterm にも実装されてたのですよね。
> # ああ、でも最初に eterm の実装を知っていたら、現在のように
> # 素の端末に表示しようとは思わなかったかもなぁ。

w3m-img をはじめて知ったときはとても驚いたのですが、
昔は x ; y ; w ; h で指定していくつもの画像を背景に張れるように
端末エミュレータを拡張して実現されていたのでしょうか?

複数の画像を貼るような使い方をするなら 位置/縮尺の制御も実装しないと
(常に上書きされて最後に指定された画像しか残らないのでは)
あまりおもしろくないですよね。

ただ、変形はともかく、透過画像など を imlib 1.x ベースで実現するのは
(alpha blend のサポートがなかったりして)辛そうなので、
可能なら画像まわりのライブラリを gdk-pixbuf とか imlib2 とかに
差し換えてからにした方がいい気がします。

$B:dK\$G$9!#(B

> $BFn$G$9(B
> eterm $B$G$O(B ($B$?$V$s(B aterm $B$G$b(B)
> ESC ] 20 ; filename [; adjusting ] [: operation] BEL
> $B$GGX7J2hA|$,JQ$($i$l$k$h$&$G$9(B

mlterm $B$rCN$C$?:"$N=i4|$N(B w3m-img $B$r;W$$=P$9$J$!!#(B
  http://www2u.biglobe.ne.jp/~hsaka/bbs.cgi?month=200107#20010706173101.08700

escape sqeuence $B$O(B
  ESC ] 100 ; x ; y ; w ; h ; filename BEL
$B$G$7$?!#(B 
$B$=$N:"$N!"(Bmlterm $B$K$b<BAu$5$l$F$?$N$G$9$h$M!#(B
# $B$"$"!"$G$b:G=i$K(B eterm $B$N<BAu$rCN$C$F$$$?$i!"8=:_$N$h$&$K(B
# $BAG$NC<Kv$KI=<($7$h$&$H$O;W$o$J$+$C$?$+$b$J$!!#(B
----------------------------------- 
$B:dK\(B $B9@B'(B <hs...@mt...> 
 http://www2u.biglobe.ne.jp/~hsaka/

南です

eterm では (たぶん aterm でも)

ESC ] 20 ; filename [; adjusting ] [: operation] BEL

で背景画像が変えられるようです
(http://www.eterm.org/docs/view.php?doc=ref#image)。

どのくらい受け入れられている拡張なのかはよくしらないのですが、
これ(ら)が使えると GUI なしでもある程度は端末設定が変更できて
便利そうなので、とりあえず画像の変更だけはできるようにしてみました。

eterm とおなじく
  echo -e "\e]20;/path/to/foo.jpg;\007" で背景を foo.jpg に変更
   読み込みに失敗したら背景画像の使用を停止
とかできるはずですが、いかがでしょう?

diff -u2 -r ../../cvs-orig/mlterm/src/ml_term_screen.c src/ml_term_screen.c
--- ../../cvs-orig/mlterm/src/ml_term_screen.c	Wed Jan  9 22:56:25 2002
+++ src/ml_term_screen.c	Thu Jan 10 13:08:41 2002
@@ -3907,2 +3907,48 @@
 	return  font ;
 }
+
+int
+ml_term_screen_change_wall_picture(
+	void *  p ,
+	char *  file_path
+	)
+{
+	ml_term_screen_t *  termscr = p;
+	char * old_path = termscr->pic_file_path;
+
+	if (!file_path){
+	  return 0;
+	}
+	if ( *file_path == '\0'){
+	  /* Do not change current image but alter diaplay setting */
+	  /* XXX nothing can be done for now */
+	  return 0;
+	}
+
+	termscr->pic_file_path = strdup( file_path) ;
+	if ( !set_wall_picture( termscr)){
+		if( old_path){
+			free(termscr->pic_file_path);
+			termscr->pic_file_path = old_path;
+		}
+		unset_wall_picture( termscr);	    
+		return 0;
+	}	    
+	free( old_path);
+	return 1;
+}
diff -u2 -r ../../cvs-orig/mlterm/src/ml_term_screen.h src/ml_term_screen.h
--- ../../cvs-orig/mlterm/src/ml_term_screen.h	Wed Jan  9 22:56:25 2002
+++ src/ml_term_screen.h	Wed Jan  9 23:34:51 2002
@@ -181,4 +181,5 @@
 ml_font_t *  ml_term_screen_get_font( ml_term_screen_t *  termscr , ml_font_attr_t  attr) ;
 
+int ml_term_screen_change_wall_picture( void *  p , char *  file_path );
 
 #endif
diff -u2 -r ../../cvs-orig/mlterm/src/ml_vt100_command.c src/ml_vt100_command.c
--- ../../cvs-orig/mlterm/src/ml_vt100_command.c	Tue Jan  8 11:49:17 2002
+++ src/ml_vt100_command.c	Thu Jan 10 10:59:46 2002
@@ -674,2 +674,12 @@
 	return  1 ;
 }
+
+int
+ml_vt100_cmd_change_wall_picture(
+				 ml_term_screen_t * termscr,
+				 char * path
+				 )
+{
+  return ml_term_screen_change_wall_picture( termscr , path);
+}
diff -u2 -r ../../cvs-orig/mlterm/src/ml_vt100_command.h src/ml_vt100_command.h
--- ../../cvs-orig/mlterm/src/ml_vt100_command.h	Sun Jan  6 13:23:42 2002
+++ src/ml_vt100_command.h	Wed Jan  9 21:15:01 2002
@@ -124,4 +124,6 @@
 int  ml_vt100_cmd_fill_all_with_e( ml_term_screen_t *  termscr) ;
 
+int  ml_vt100_cmd_change_wall_picture( ml_term_screen_t *  termscr , char * path) ;
 
 #endif
diff -u2 -r ../../cvs-orig/mlterm/src/ml_vt100_parser.c src/ml_vt100_parser.c
--- ../../cvs-orig/mlterm/src/ml_vt100_parser.c	Wed Jan  9 22:56:25 2002
+++ src/ml_vt100_parser.c	Thu Jan 10 14:13:57 2002
@@ -1724,4 +1724,27 @@
 							pt) ;
 					}
+					else if( ps == 20)
+					{
+					/* image commands */
+						char * index_p;
+						/* XXX discard all adjust./op. settings.*/
+						/* XXX may break multi-byte character string. */
+						/* XXX "index" do not conforms to ANSI-C */
+						if ( index_p = index(pt, ';')){ 
+							*index_p = '\0';
+						}
+						if ( index_p = index(pt, ':')){
+							*index_p = '\0';
+						}
+
+						ml_vt100_cmd_change_wall_picture( vt100_parser->termscr , pt);
+					}
 					else if( ps == 46)
 					{