コミット: 7ff76ca6a8e9398f6a2bc4fa1138c2a040b4bdc1 - xyzsh (git)

シェルスクリプト言語xyzshのソースコード。

コミットメタ情報

• リビジョン: 7ff76ca6a8e9398f6a2bc4fa1138c2a040b4bdc1 (tree)
• 日時: 2013-01-20 12:52:21
• 作者: ab25cq <ab25cq@gmai...>
• コミッター: ab25cq

ログメッセージ

1.3.2

変更サマリ

• modified: CHANGELOG
• modified: completion.xyzsh
• add: config.log
• modified: src/cmd_obj.c
• modified: src/cmd_str.c
• modified: src/fd.c
• modified: src/uobject.c
• modified: src/xyzsh.c
• modified: src/xyzsh/xyzsh.h

差分

--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,4 +1,16 @@
 
+2013 20th January version 1.3.2
+
+    1. Added "strip" and "objinfo" inner command
+
+    2. Improved some object completions
+
+2013 1月20日 version 1.3.2
+
+    1. stripとobjinfoコマンドを追加。
+
+    2. コマンドライン補完をいくつか修正。
+
 2013 17th January version 1.3.1
 
     1. Refactoring.
@@ -25,9 +37,9 @@
 
 2013 1月10日 version 1.3.0
 
-	1. ダイナミックライブラリーのバージョンアップ
+    1. ダイナミックライブラリーのバージョンアップ
 
-	2. リファクタリング。memcheckerの廃止。オブジェクトの消費メモリが少なくなりました。(1オブジェクトを32バイトまで落とせた)
+    2. リファクタリング。memcheckerの廃止。オブジェクトの消費メモリが少なくなりました。(1オブジェクトを32バイトまで落とせた)
 
 mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzshに対応します。
 
@@ -71,21 +83,21 @@ mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzsh
 
 2012 12月20日 version 1.2.7
 
-	1. グロブの展開がパーサー時ではなくて実行時に起こるように変更。
+    1. グロブの展開がパーサー時ではなくて実行時に起こるように変更。
 
-	いままでだとスクリプトをloadして、その中にグロブの記述がある場合、もし中でcdをしても、スクリプトをloadした時点でのカレントディレクトリでグロブが検索されていました。
+    いままでだとスクリプトをloadして、その中にグロブの記述がある場合、もし中でcdをしても、スクリプトをloadした時点でのカレントディレクトリでグロブが検索されていました。
 
-	> vim a.xyzsh
-	cd /
-	echo *
-	> echo *
-	a.c b.c d.c
-	> load a.xyzsh
-	a.c b.c d.c
+    > vim a.xyzsh
+    cd /
+    echo *
+    > echo *
+    a.c b.c d.c
+    > load a.xyzsh
+    a.c b.c d.c
 
-	↑おかしい
+    ↑おかしい
 
-	2.  ダイナミックライブラリのバージョンアップ。mfiler4にも影響があります。mfiler4は1.0.6から、このxyzshに対応します。
+    2.  ダイナミックライブラリのバージョンアップ。mfiler4にも影響があります。mfiler4は1.0.6から、このxyzshに対応します。
 
 2012 12月14日 version 1.2.6
 
@@ -100,76 +112,76 @@ mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzsh
     1. readlineコマンドが入力が空の時落ちていました。
 
 2012 8th December version 1.2.5c
-	
+    
     1. If input was empty, readline command would occur error on xyzsh previous version.
 
 2012 12月08日 version 1.2.5b
 
-	1. 最適化レベルを3にしてみました。問題があればまた1に戻します。
+    1. 最適化レベルを3にしてみました。問題があればまた1に戻します。
 
 2012 8th December version 1.2.5b
-	
-	1. Up optimize level from 1 to 3.
+    
+    1. Up optimize level from 1 to 3.
 
 2012 12月04日 version 1.2.5a
 
-	1. クォートの仕様が変わっています。
+    1. クォートの仕様が変わっています。
 
-	シングルクォートは今までと同じです。ダブルクォートはダブルクォートの中でクォートを使った場合動きが変わっています。
+    シングルクォートは今までと同じです。ダブルクォートはダブルクォートの中でクォートを使った場合動きが変わっています。
 
-	> print "Hello World\n"
-	Hello World
+    > print "Hello World\n"
+    Hello World
 
-	> print "\\\\ \n"
-	\\
+    > print "\\\\ \n"
+    \\
 
-	普通のスクリプト言語やbashと同じようになっています。
+    普通のスクリプト言語やbashと同じようになっています。
 
-	シングルクォートの場合は今までと同じです。
+    シングルクォートの場合は今までと同じです。
 
-	> print 'Hello World\n'
-	Hello World\n
+    > print 'Hello World\n'
+    Hello World\n
 
-	> print '\\\\'
-	\\\\
+    > print '\\\\'
+    \\\\
 
 2012 4th December version 1.2.5a
 
-	1. Changed double quote way like below
+    1. Changed double quote way like below
 
-	> print "Hello World\n"
-	Hello World
+    > print "Hello World\n"
+    Hello World
 
-	> print "\\\\ \n"
-	\\
+    > print "\\\\ \n"
+    \\
 
-	Sigle quote way is
+    Sigle quote way is
 
-	> print 'Hello World\n'
-	Hello World\n
+    > print 'Hello World\n'
+    Hello World\n
 
-	> print '\\\\'
-	\\\\
+    > print '\\\\'
+    \\\\
 
 2012 11月30日 version 1.2.5
 
-	1. オプションに変数展開があると変数が展開されないバグを修正
+    1. オプションに変数展開があると変数が展開されないバグを修正
 
 2012 30th November version 1.2.5
 
-	1. Fixed a bug with expanding variables in option argument.
+    1. Fixed a bug with expanding variables in option argument.
 
 2012 11月29日 version 1.2.4a
 
-	1. xyzshの設定ファイルを修正。
+    1. xyzshの設定ファイルを修正。
 
-	2. forコマンドを追加
+    2. forコマンドを追加
 
 2012 29th November version 1.2.4a
 
     1. Changed xyzsh.xyzsh setting file.
 
-	  2. Added "for" iner command.
+      2. Added "for" iner command.
 
 2012 11月26日 version 1.2.4
 
@@ -267,51 +279,51 @@ mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzsh
 
 2012 11月25日 version 1.2.2d
 
-	1. グローバルパイプに追記機能を追加しました。
+    1. グローバルパイプに追記機能を追加しました。
 
 2012 25th November version 1.2.2d
 
-	1. Added appending data function to global pipe with |>>
+    1. Added appending data function to global pipe with |>>
 
 2012 11月24日 version 1.2.2c
 
-	1. 環境変数の補完を入れました。
+    1. 環境変数の補完を入れました。
 
-	2. readlineで=が単語の区切りになりました。
+    2. readlineで=が単語の区切りになりました。
 
 2012 24th November version 1.2.2c
 
-	1. Implematation of environment variable completion.
+    1. Implematation of environment variable completion.
 
-	2. Begin to use = character as word break character.
+    2. Begin to use = character as word break character.
 
 2012 11月24日 version 1.2.2b
 
-	1. パイプの中のオブジェクト数に制限をかけました。128個以上になるとエラーを出して止まります。
+    1. パイプの中のオブジェクト数に制限をかけました。128個以上になるとエラーを出して止まります。
 
-	2. print ""\nとした場合パーサーがエラーを出していたバグを修正。
+    2. print ""\nとした場合パーサーがエラーを出していたバグを修正。
 
 2012 24th November version 1.2.2b
 
-	1. Set limit to the number of objects in pipe.
+    1. Set limit to the number of objects in pipe.
 
-	2. Fixed bug which is err with 'print ""\n'.
+    2. Fixed bug which is err with 'print ""\n'.
 
 2012 11月22日 version 1.2.2a
 
-	1. ダイナミックライブラリのバージョンが1.5.1にあがりました。
+    1. ダイナミックライブラリのバージョンが1.5.1にあがりました。
 
-	2. var, ary, hash, objectに-newオプションができました。
+    2. var, ary, hash, objectに-newオプションができました。
 
-	3. times 関数を追加。
+    3. times 関数を追加。
 
 2012 22th November version 1.2.2a
 
-	1. Version up dynamic linked library
+    1. Version up dynamic linked library
 
-	2. Added -new option to "var", "ary", "hash", and "object" inner command.
+    2. Added -new option to "var", "ary", "hash", and "object" inner command.
 
-	3. Added "times" function.
+    3. Added "times" function.
 
 2012 11月22日 version 1.2.2
 
@@ -331,21 +343,21 @@ mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzsh
 
 2012 22th November version 1.2.1
 
-	1. Add -local option to "ref" command.
+    1. Add -local option to "ref" command.
 
-	2. Fixed sweep [object name] bug.
+    2. Fixed sweep [object name] bug.
 
 2012 11月22日 version 1.2.1
 
-	1. refコマンドに-localオプションを追加
+    1. refコマンドに-localオプションを追加
 
-	2. sweep オブジェクト名でxyzshが落ちていたバグを修正。
+    2. sweep オブジェクト名でxyzshが落ちていたバグを修正。
 
 2012 22th November version 1.2.1
 
-	1. Add -local option to "ref" command.
+    1. Add -local option to "ref" command.
 
-	2. Fixed sweep [object name] bug.
+    2. Fixed sweep [object name] bug.
 
 2012 11月12日 version 1.2.0
 
@@ -399,24 +411,24 @@ mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzsh
 
 2012 5th Norvember version 1.1.8a
 
-	Fixed errror message.
+    Fixed errror message.
 
 2012 30th Octorber version 1.1.8
 
-	Added -index option to "add" inner command and "del" inner command.
+    Added -index option to "add" inner command and "del" inner command.
 
-	Added ~/.xyzsh/program mechanizm to entry external program for root
-	object. See USAGE or USAGE.ja
+    Added ~/.xyzsh/program mechanizm to entry external program for root
+    object. See USAGE or USAGE.ja
 
 2012 30th Octorber version 1.1.7a
 
-	Deleted castamized code for CYGWIN. It has not been required.
+    Deleted castamized code for CYGWIN. It has not been required.
 
 2012 30th Octorber version 1.1.7
 
-	Fixed a bug with expanding environmet on redirects
+    Fixed a bug with expanding environmet on redirects
 
-	Fixed Makefile.in
+    Fixed Makefile.in
 
 2012 30th Octorber version 1.1.6
 
@@ -555,68 +567,68 @@ mfiler4にも影響があります。mfiler4は1.0.9以上から、このxyzsh
 
 2012 2nd Octorber version 1.0.2
 
-	Version up dynamic linked library
+    Version up dynamic linked library
 
-	Add interface for xyzsh
+    Add interface for xyzsh
 
-	Made sObject memory size smaller
+    Made sObject memory size smaller
 
 2012 12th August version 1.0.1a
 
-	Version up dynamic linked library
+    Version up dynamic linked library
 
-	Add interface for xyzsh
+    Add interface for xyzsh
 
 2012 12th August version 1.0.1
 
-	Deleted write command which behave like a redirect, and make newer write command.
+    Deleted write command which behave like a redirect, and make newer write command.
 
 2012 12th August version 1.0.0b
 
-	Fixed valid file archive type.
+    Fixed valid file archive type.
 
 2012 12th August version 1.0.0a
-	
-	Fixed dead lock of pipes with big data.
+    
+    Fixed dead lock of pipes with big data.
 
 2012 12th August version 1.0.0
-	
-	Added redirects(<) to xyzsh.
+    
+    Added redirects(<) to xyzsh.
 
-	Fixed write inner command.
+    Fixed write inner command.
 
 2012 12th August version 0.9.9g
-	
-	Fixed WINCH signal.
+    
+    Fixed WINCH signal.
 
 2012 12th August version 0.9.9f
-	
-	Fixed tcsetpgrp argument.
+    
+    Fixed tcsetpgrp argument.
 
 2012 12th August version 0.9.9e
 
-	Gabage Collection bug was fixed.
+    Gabage Collection bug was fixed.
 
 2012 9th August version 0.9.9d
 
-	Fixed STDOUT buffer bugs.
+    Fixed STDOUT buffer bugs.
 
 2012 8th August version 0.9.9c
 
-	Fiexed completion bugs. I'm sorry I've found the bugs yet.
+    Fiexed completion bugs. I'm sorry I've found the bugs yet.
 
 2012 8th August version 0.9.9b
 
-	Fixed completion bugs. I think maybe desipated all completion bugs.
+    Fixed completion bugs. I think maybe desipated all completion bugs.
 
-	Version 0.9.9b is Released
+    Version 0.9.9b is Released
 
 2012 7th August version 0.9.9a
 
-	Fixed completion bugs
+    Fixed completion bugs
 
-	Version 0.9.9a is Released
+    Version 0.9.9a is Released
 
 2012 5th August version 0.9.9
-	Version 0.9.9 is Released
+    Version 0.9.9 is Released
 

--- a/completion.xyzsh
+++ b/completion.xyzsh
@@ -49,21 +49,21 @@ class object_completion (
         inputing |chomp | split :: | lines 0..-2 | if( | -n) (
             | join ::| var -local PREFIX
             if(KIND | = all\n) (
-                eval "${PREFIX}::show" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::'; |print ) else (|print) ) | scan '(.+?:?:?):' | each ( | add -number 0 ${PREFIX}:: )
+                eval "${PREFIX}::show" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::' ) else (|print) ) | scan '(.+?:?:?):' | each ( | add -number 0 ${PREFIX}:: )
             ) else (
-                eval "${PREFIX}::show" | egrep ": $KIND\$|: object\$" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::'; | print ) else (|print) ) | scan '(.+?:?:?):' | each ( | add -number 0 ${PREFIX}:: )
+                eval "${PREFIX}::show" | egrep ": $KIND\$|: object\$" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::' ) else (|print) ) | scan '(.+?:?:?):' | each ( | add -number 0 ${PREFIX}:: )
             )
         )
     ) else (
         pwo  | var -local current
         while(true) (
             if(KIND | = all\n) (
-                eval "${current}show" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::'; |print ) else (|print) ) | root::scan '(^.+?:?:?):' 
+                eval "${current}::show" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::' ) else (|print) ) | root::scan '(^.+?:?:?):' 
             ) else (
-                eval "${current}show" | egrep ": $KIND\$|: object\$" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::'; |print ) else (|print) ) | root::scan '(^.+?:?:?):' 
+                eval "${current}::show" | egrep ": $KIND\$|: object\$" | each ( | if(|=~ ': object$') (| sub '(.+):' '\1:::'  ) else (|print) ) | root::scan '(^.+?:?:?):' 
             )
-            if(current | = root::\n) ( break )
-            current | split :: | lines 0..-4 | join :: |chomp| add :: | var -local current
+            if(current | = root\n) ( break )
+            current | strip | split :: | lines 0..-2| join :: | var -local current
         )
     )
 )
@@ -108,6 +108,16 @@ completion ref (
     hash COMPLETION_OPTIONS -key ref
 )
 
+completion defined (
+    | object_completion all
+    hash COMPLETION_OPTIONS -key defined
+)
+
+completion objinfo (
+    | object_completion all
+    hash COMPLETION_OPTIONS -key defined
+)
+
 completion export (
     sys::env | scan '(.+?)='
 )
@@ -117,9 +127,6 @@ completion sweep (
     hash COMPLETION_OPTIONS -key sweep
 )
 
-completion defined (
-    self | egrep -v external\ program\$ | egrep -v native\ function\$ | egrep -v '^root:|^self:|^parent:|^run:'| root::scan '(^.+?):' 
-)
 
 completion help (
     root::self | egrep native\ function\$ | root::scan '(^.+?):' | add sub\nsplit\nscan\n | each ( | chomp | quote | pomch )

--- /dev/null
+++ b/config.log
@@ -0,0 +1,184 @@
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+
+It was created by configure, which was
+generated by GNU Autoconf 2.68.  Invocation command line was
+
+  $ ./configure --with-migemo --with-debug --with-system-migemodir=/usr/local/share/migemo/
+
+## --------- ##
+## Platform. ##
+## --------- ##
+
+hostname = ab25cq-PC
+uname -m = i686
+uname -r = 1.7.17(0.262/5/3)
+uname -s = CYGWIN_NT-6.1-WOW64
+uname -v = 2012-10-19 14:39
+
+/usr/bin/uname -p = unknown
+/bin/uname -X     = unknown
+
+/bin/arch              = i686
+/usr/bin/arch -k       = unknown
+/usr/convex/getsysinfo = unknown
+/usr/bin/hostinfo      = unknown
+/bin/machine           = unknown
+/usr/bin/oslevel       = unknown
+/bin/universe          = unknown
+
+PATH: /home/ab25cq/bin
+PATH: /usr/local/bin
+PATH: /usr/bin
+PATH: /cygdrive/c/Windows/system32
+PATH: /cygdrive/c/Windows
+PATH: /cygdrive/c/Windows/System32/Wbem
+PATH: /cygdrive/c/Windows/System32/WindowsPowerShell/v1.0
+PATH: /cygdrive/c/Program Files (x86)/QuickTime/QTSystem
+PATH: /cygdrive/c/Program Files/Microsoft SQL Server/110/Tools/Binn
+
+
+## ----------- ##
+## Core tests. ##
+## ----------- ##
+
+configure:2076: checking for gcc
+configure:2092: found /usr/bin/gcc
+configure:2103: result: gcc
+configure:2332: checking for C compiler version
+configure:2341: gcc --version >&5
+gcc (GCC) 4.5.3
+Copyright (C) 2010 Free Software Foundation, Inc.
+This is free software; see the source for copying conditions.  There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+configure:2352: $? = 0
+configure:2341: gcc -v >&5
+Using built-in specs.
+COLLECT_GCC=gcc
+COLLECT_LTO_WRAPPER=/usr/lib/gcc/i686-pc-cygwin/4.5.3/lto-wrapper.exe
+Target: i686-pc-cygwin
+Configured with: /gnu/gcc/releases/respins/4.5.3-3/gcc4-4.5.3-3/src/gcc-4.5.3/configure --srcdir=/gnu/gcc/releases/respins/4.5.3-3/gcc4-4.5.3-3/src/gcc-4.5.3 --prefix=/usr --exec-prefix=/usr --bindir=/usr/bin --sbindir=/usr/sbin --libexecdir=/usr/lib --datadir=/usr/share --localstatedir=/var --sysconfdir=/etc --datarootdir=/usr/share --docdir=/usr/share/doc/gcc4 -C --datadir=/usr/share --infodir=/usr/share/info --mandir=/usr/share/man -v --with-gmp=/usr --with-mpfr=/usr --enable-bootstrap --enable-version-specific-runtime-libs --libexecdir=/usr/lib --enable-static --enable-shared --enable-shared-libgcc --disable-__cxa_atexit --with-gnu-ld --with-gnu-as --with-dwarf2 --disable-sjlj-exceptions --enable-languages=ada,c,c++,fortran,java,lto,objc,obj-c++ --enable-graphite --enable-lto --enable-java-awt=gtk --disable-symvers --enable-libjava --program-suffix=-4 --enable-libgomp --enable-libssp --enable-libada --enable-threads=posix --with-arch=i686 --with-tune=generic --enable-libgcj-sublibs CC=gcc-4 CXX=g++-4 CC_FOR_TARGET=gcc-4 CXX_FOR_TARGET=g++-4 GNATMAKE_FOR_TARGET=gnatmake GNATBIND_FOR_TARGET=gnatbind --with-ecj-jar=/usr/share/java/ecj.jar
+Thread model: posix
+gcc version 4.5.3 (GCC) 
+configure:2352: $? = 0
+configure:2341: gcc -V >&5
+gcc: '-V' option must have argument
+configure:2352: $? = 1
+configure:2341: gcc -qversion >&5
+gcc: unrecognized option '-qversion'
+gcc: no input files
+configure:2352: $? = 1
+configure:2372: checking whether the C compiler works
+configure:2394: gcc    conftest.c  >&5
+configure:2398: $? = 0
+configure:2446: result: yes
+configure:2449: checking for C compiler default output file name
+configure:2451: result: a.exe
+configure:2457: checking for suffix of executables
+configure:2464: gcc -o conftest.exe    conftest.c  >&5
+
+## ---------------- ##
+## Cache variables. ##
+## ---------------- ##
+
+ac_cv_env_CC_set=
+ac_cv_env_CC_value=
+ac_cv_env_CFLAGS_set=
+ac_cv_env_CFLAGS_value=
+ac_cv_env_CPPFLAGS_set=
+ac_cv_env_CPPFLAGS_value=
+ac_cv_env_CPP_set=
+ac_cv_env_CPP_value=
+ac_cv_env_LDFLAGS_set=
+ac_cv_env_LDFLAGS_value=
+ac_cv_env_LIBS_set=
+ac_cv_env_LIBS_value=
+ac_cv_env_build_alias_set=
+ac_cv_env_build_alias_value=
+ac_cv_env_host_alias_set=
+ac_cv_env_host_alias_value=
+ac_cv_env_target_alias_set=
+ac_cv_env_target_alias_value=
+ac_cv_exeext=.exe
+ac_cv_prog_ac_ct_CC=gcc
+
+## ----------------- ##
+## Output variables. ##
+## ----------------- ##
+
+CC='gcc'
+CFLAGS=''
+CPP=''
+CPPFLAGS=''
+DEFS=''
+ECHO_C=''
+ECHO_N='-n'
+ECHO_T=''
+EGREP=''
+EXEEXT=''
+GREP=''
+INSTALL_DATA=''
+INSTALL_PROGRAM=''
+INSTALL_SCRIPT=''
+LDFLAGS=''
+LIBOBJS=''
+LIBS=''
+LIBXYZSHA=''
+LIBXYZSHASTRIP=''
+LIBXYZSHSO1=''
+LIBXYZSHSO=''
+LTLIBOBJS=''
+OBJ=''
+OBJEXT=''
+PACKAGE_BUGREPORT=''
+PACKAGE_NAME=''
+PACKAGE_STRING=''
+PACKAGE_TARNAME=''
+PACKAGE_URL=''
+PACKAGE_VERSION=''
+PATH_SEPARATOR=':'
+SHELL='/bin/sh'
+SO_VERSION=''
+SYSTEM_MIGEMODIR=''
+ac_ct_CC='gcc'
+bindir='${exec_prefix}/bin'
+build_alias=''
+datadir='${datarootdir}'
+datarootdir='${prefix}/share'
+docdir='${datarootdir}/doc/${PACKAGE}'
+dvidir='${docdir}'
+exec_prefix='NONE'
+host_alias=''
+htmldir='${docdir}'
+includedir='${prefix}/include'
+infodir='${datarootdir}/info'
+libdir='${exec_prefix}/lib'
+libexecdir='${exec_prefix}/libexec'
+localedir='${datarootdir}/locale'
+localstatedir='${prefix}/var'
+mandir='${datarootdir}/man'
+oldincludedir='/usr/include'
+pdfdir='${docdir}'
+prefix='NONE'
+program_transform_name='s,x,x,'
+psdir='${docdir}'
+sbindir='${exec_prefix}/sbin'
+sharedstatedir='${prefix}/com'
+sysconfdir='${prefix}/etc'
+target_alias=''
+
+## ----------- ##
+## confdefs.h. ##
+## ----------- ##
+
+/* confdefs.h */
+#define PACKAGE_NAME ""
+#define PACKAGE_TARNAME ""
+#define PACKAGE_VERSION ""
+#define PACKAGE_STRING ""
+#define PACKAGE_BUGREPORT ""
+#define PACKAGE_URL ""
+
+configure: caught signal 2
+configure: exit 1

--- a/src/cmd_obj.c
+++ b/src/cmd_obj.c
@@ -54,13 +54,14 @@ BOOL cmd_mshow(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
 BOOL cmd_defined(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
 {
     if(runinfo->mArgsNumRuntime > 1) {
-        sObject* object = runinfo->mCurrentObject;
         int i;
         for(i=1; i<runinfo->mArgsNumRuntime; i++) {
-            sObject* reciever = runinfo->mCurrentObject;
-            sObject* obj = access_object(runinfo->mArgsRuntime[i], &reciever, runinfo->mRunningObject);
+            sObject* object;
+            if(!get_object_from_str(&object, runinfo->mArgsRuntime[i], runinfo->mCurrentObject, runinfo->mRunningObject, runinfo)) {
+                return FALSE;
+            }
 
-            if(obj) {
+            if(object) {
                 runinfo->mRCode = 0;
             }
             else {
@@ -73,6 +74,189 @@ BOOL cmd_defined(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
     return TRUE;
 }
 
+BOOL object_info(sObject* object, sObject* nextin, sObject* nextout, sRunInfo* runinfo)
+{
+    char buf[128];
+
+    switch(TYPE(object)) {
+        case T_STRING :
+            snprintf(buf, 128, "Type: string\nLength: %d\nMallocLen: %d\n", SSTRING(object).mLen, SSTRING(object).mMallocLen);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_VECTOR:
+            snprintf(buf, 128, "Type: vector\nTable Size: %d\nCount: %d\n", SVECTOR(object).mTableSize, SVECTOR(object).mCount);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_HASH:
+            snprintf(buf, 128, "Type: hash\nTable Size: %d\nCount: %d\n", SHASH(object).mTableSize, SHASH(object).mCounter);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_LIST:
+            snprintf(buf, 128, "Type: list\nCount: %d\n", SLIST(object).mCount);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_NFUN:
+            snprintf(buf, 128, "Type: native function\nParent: %s\n", SNFUN(object).mParent ? "exists" : "no parent");
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_BLOCK:
+            snprintf(buf, 128, "Type: block\nStatment Number: %d\nStatment Size %d\n", SBLOCK(object).mStatmentsNum, SBLOCK(object).mStatmentsSize);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_FD:
+            snprintf(buf, 128, "Type: file discriptor\n\nBuffer Size %d\nBuffer Length: %d\nLine Number %d\nLine Field %d\nReaded Line Number %d\n", SFD(object).mBufSize, SFD(object).mBufLen, vector_count(SFD(object).mLines), SFD(object).mLinesLineField, SFD(object).mReadedLineNumber);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_FD2:
+            snprintf(buf, 128, "Type: file discriptor2\nFile Discriptor %d\n", SFD2(object).mFD);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_JOB:
+            snprintf(buf, 128, "Type: job\nName %s\nProcess Group %d\nSuspended %d\n", SJOB(object).mName, SJOB(object).mPGroup, SJOB(object).mSuspended);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_UOBJECT: 
+            snprintf(buf, 128, "Type: user object\nTable Size %d\nCount %d\nName %s\nParent %s", SUOBJECT(object).mTableSize, SUOBJECT(object).mCounter, SUOBJECT(object).mName, SUOBJECT(object).mParent ? SUOBJECT(SUOBJECT(object).mParent).mName: "no parent");
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_FUN:
+            snprintf(buf, 128, "Type: function\nParent: %s\nNo StackFrame: %d\n", SFUN(object).mParent ? "exists": "no parent", SFUN(object).mFlags & FUN_FLAGS_NO_STACKFRAME);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_CLASS:
+            snprintf(buf, 128, "Type: class\nParent: %s\nNo StackFrame: %d\n", SCLASS(object).mParent ? "exists": "no parent", SCLASS(object).mFlags & FUN_FLAGS_NO_STACKFRAME);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_EXTPROG:
+            snprintf(buf, 128, "Type: external program\nPath: %s\n", SEXTPROG(object).mPath);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        case T_COMPLETION: {
+            sObject* block = SCOMPLETION(object).mBlock;
+            snprintf(buf, 128, "Type: completion\nStatment Number: %d\nStatment Size %d\n", SBLOCK(block).mStatmentsNum, SBLOCK(block).mStatmentsSize);
+
+            if(!fd_write(nextout, buf, strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            }
+            break;
+
+        case T_EXTOBJ:
+            if(!fd_write(nextout, "no info", strlen(buf))) {
+                err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                return FALSE;
+            }
+            break;
+
+        default:
+            fprintf(stderr,"unexpected err in object_info\n");
+            exit(1);
+    }
+}
+
+BOOL cmd_objinfo(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
+{
+    if(runinfo->mArgsNumRuntime > 1) {
+        int i;
+        for(i=1; i<runinfo->mArgsNumRuntime; i++) {
+            sObject* object;
+            if(!get_object_from_str(&object, runinfo->mArgsRuntime[i], runinfo->mCurrentObject, runinfo->mRunningObject, runinfo)) {
+                return FALSE;
+            }
+
+            if(object) {
+                if(!object_info(object, nextin, nextout, runinfo)) {
+                    return FALSE;
+                }
+                runinfo->mRCode = 0;
+            }
+        }
+    }
+
+    return TRUE;
+}
+
 BOOL cmd_mrun(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
 {
     if(runinfo->mBlocksNum == 1) {
@@ -148,6 +332,8 @@ BOOL cmd_pwo(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
         return FALSE;
     }
 
+    fd_trunc(nextout, SFD(nextout).mBufLen-2);  // delete last ::
+
     if(!fd_write(nextout, "\n", 1)) {
         err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
         runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;

--- a/src/cmd_str.c
+++ b/src/cmd_str.c
@@ -892,6 +892,53 @@ BOOL cmd_chop(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
     return TRUE;
 }
 
+BOOL cmd_strip(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
+{
+    if(runinfo->mFilter) {
+        BOOL first = TRUE;
+        char* last_point = NULL;
+        char* p = SFD(nextin).mBuf;
+        while(*p) {
+            if(*p == '\n' || *p =='\r' || *p == '\t' || *p == ' ' || *p == '\a')
+            {
+                if(!first) {
+                    if(!fd_writec(nextout, *p++)) {
+                        err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                        runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                        return FALSE;
+                    }
+                }
+                else {
+                    p++;
+                }
+            }
+            else {
+                first = FALSE;
+                last_point = p;
+                if(!fd_writec(nextout, *p++)) {
+                    err_msg("signal interrupt", runinfo->mSName, runinfo->mSLine, runinfo->mArgs[0]);
+                    runinfo->mRCode = RCODE_SIGNAL_INTERRUPT;
+                    return FALSE;
+                }
+            }
+        }
+
+        const int space_of_tail_len = SFD(nextin).mBufLen - (last_point - SFD(nextin).mBuf) - 1;
+        if(space_of_tail_len > 0) {
+            fd_trunc(nextout, SFD(nextout).mBufLen - space_of_tail_len);
+        }
+
+        if(SFD(nextin).mBufLen == 0) {
+            runinfo->mRCode = RCODE_NFUN_NULL_INPUT;
+        }
+        else {
+            runinfo->mRCode = 0;
+        }
+    }
+
+    return TRUE;
+}
+
 BOOL cmd_pomch(sObject* nextin, sObject* nextout, sRunInfo* runinfo)
 {
     eLineField lf = gLineField;

--- a/src/fd.c
+++ b/src/fd.c
@@ -352,6 +352,14 @@ BOOL fd_flash(sObject* self, int fd)
     return TRUE;
 }
 
+void fd_trunc(sObject* self, int index)
+{
+    if(index >= 0 && index < SFD(self).mBufLen) {
+        SFD(self).mBufLen = index;
+        SFD(self).mBuf[SFD(self).mBufLen] = 0;
+    }
+}
+
 sObject* fd2_new_on_stack(uint fd)
 {
     sObject* self = stack_get_free_object(T_FD2);

--- a/src/uobject.c
+++ b/src/uobject.c
@@ -162,6 +162,7 @@ void uobject_root_init(sObject* self)
     uobject_put(self, "block", NFUN_NEW_GC(cmd_block, NULL, TRUE));
     uobject_put(self, "lc", NFUN_NEW_GC(cmd_lc, NULL, TRUE));
     uobject_put(self, "uc", NFUN_NEW_GC(cmd_uc, NULL, TRUE));
+    uobject_put(self, "strip", NFUN_NEW_GC(cmd_strip, NULL, TRUE));
     uobject_put(self, "chomp", NFUN_NEW_GC(cmd_chomp, NULL, TRUE));
     uobject_put(self, "chop", NFUN_NEW_GC(cmd_chop, NULL, TRUE));
     uobject_put(self, "pomch", NFUN_NEW_GC(cmd_pomch, NULL, TRUE));
@@ -176,6 +177,7 @@ void uobject_root_init(sObject* self)
     uobject_put(self, "errmsg", NFUN_NEW_GC(cmd_errmsg, NULL, TRUE));
     uobject_put(self, "prompt", NFUN_NEW_GC(cmd_prompt, NULL, TRUE));
     uobject_put(self, "defined", NFUN_NEW_GC(cmd_defined, NULL, TRUE));
+    uobject_put(self, "objinfo", NFUN_NEW_GC(cmd_objinfo, NULL, TRUE));
 
     uobject_put(self, "-n", NFUN_NEW_GC(cmd_condition_n, NULL, TRUE));
     uobject_put(self, "-z", NFUN_NEW_GC(cmd_condition_z, NULL, TRUE));

--- a/src/xyzsh.c
+++ b/src/xyzsh.c
@@ -85,7 +85,7 @@ static void xyzsh_read_rc()
 
 void xyzsh_init(enum eAppType app_type, BOOL no_runtime_script)
 {
-    setenv("XYZSH_VERSION", "1.3.1", 1);
+    setenv("XYZSH_VERSION", "1.3.2", 1);
     setenv("XYZSH_DATAROOTDIR", DATAROOTDIR, 1);
 
     setlocale(LC_ALL, "");

--- a/src/xyzsh/xyzsh.h
+++ b/src/xyzsh/xyzsh.h
@@ -516,6 +516,7 @@ BOOL fd_write(sObject* self, char* str, int size);
 void fd_split(sObject* self, eLineField lf);
 BOOL fd_guess_lf(sObject* self, eLineField* lf);
 void fd_put(sObject* self, MANAGED char* buf, int buf_size, int buf_len);
+void fd_trunc(sObject* self, int index);
 
 sObject* fd2_new_on_stack(uint fd);
 #define FD2_NEW_STACK(o) fd2_new_on_stack(o)
@@ -562,6 +563,7 @@ typedef BOOL (*fInternalCommand)(sObject*, sObject*, sRunInfo*);
 extern fInternalCommand kInternalCommands[kInnerCommand];
 extern char * gCommandKindStrs[kCommandMax];
 
+BOOL cmd_objinfo(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 BOOL cmd_kanjicode(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 BOOL cmd_defined(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 BOOL cmd_funinfo(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
@@ -689,6 +691,7 @@ BOOL cmd_condition_ef(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 BOOL cmd_condition_re(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 BOOL cmd_sub(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 BOOL cmd_time(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
+BOOL cmd_strip(sObject* nextin, sObject* nextout, sRunInfo* runinfo);
 
 #if defined(HAVE_MIGEMO_H)
 BOOL cmd_migemo_match(sObject* nextin, sObject* nextout, sRunInfo* runinfo);