prelude: add _chop and _chop_space procs

Signed-off-by: Masatake YAMATO <[email protected]>

Author: masatake

Tmain/common-prelude.d/chop.expected

@@ -0,0 +1,6 @@
+(abcx)
+(abc)
+(abc )
+(abc)
+(abcx)
+(abcx)

Tmain/common-prelude.d/chop.ps

@@ -1,6 +1,7 @@
 aindex.ps...0
 amember.ps...0
 buildstring.ps...0
+chop.ps...0
 dedup.ps...0
 dedup_spaces.ps...0
 ndup.ps...0

Tmain/common-prelude.d/stdout-expected.txt

@@ -119,6 +119,27 @@ const char ctagsCommonPrelude []=
 "    exch copy pop\n"
 "} __bddef\n"
 "\n"
+"(string _CHOP string)\n"
+"/_chop {\n"
+"    mark exch {} forall pop _buildstring\n"
+"} __bddef\n"
+"\n"
+"(string _CHOP_SPACE string)\n"
+"/_chop_space {\n"
+"    dup length dup 0 gt {\n"
+"        % string length\n"
+"        1 sub\n"
+"        % string `length - 1`\n"
+"        1 index exch\n"
+"        % string string `length - 1`\n"
+"        get (\\n\\t\\r\\f\\v ) exch _amember {\n"
+"            _chop\n"
+"        } if\n"
+"    } {\n"
+"        pop                     % pop the length\n"
+"    } ifelse\n"
+"} __bddef\n"
+"\n"
 "% /x mark 40 (a) 32 32 10 (b) 10 10 9 9 (xyz) 9 9 41 _buildstring def\n"
 "% x _normalize_spaces! x pstack\n"
 "\n"