svnno****@sourc*****
svnno****@sourc*****
2011年 7月 26日 (火) 23:59:35 JST
Tera TermRevision: 4532
http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=4532
Author: maya
Date: 2011-07-26 23:59:34 +0900 (Tue, 26 Jul 2011)
Log Message:
-----------
strspecial マクロコマンドを拡張
第2引数を渡した場合、第2引数を変換したものを第1引数に返すようにした
Modified Paths:
--------------
trunk/teraterm/ttpmacro/ttl.c
-------------- next part --------------
Modified: trunk/teraterm/ttpmacro/ttl.c
===================================================================
--- trunk/teraterm/ttpmacro/ttl.c 2011-07-26 08:50:11 UTC (rev 4531)
+++ trunk/teraterm/ttpmacro/ttl.c 2011-07-26 14:59:34 UTC (rev 4532)
@@ -3820,18 +3820,27 @@
WORD TTLStrSpecial()
{
WORD Err, VarId;
- char *srcptr;
+ TStrVal srcstr;
Err = 0;
GetStrVar(&VarId,&Err);
-
- if ((Err==0) && (GetFirstChar()!=0))
- Err = ErrSyntax;
if (Err!=0) return Err;
- srcptr = StrVarPtr(VarId);
- RestoreNewLine(srcptr);
+ if (CheckParameterGiven()) { // strspecial strvar strval
+ GetStrVal(srcstr,&Err);
+ if ((Err==0) && (GetFirstChar()!=0))
+ Err = ErrSyntax;
+ if (Err!=0) {
+ return Err;
+ }
+ RestoreNewLine(srcstr);
+ SetStrVal(VarId, srcstr);
+ }
+ else { // strspecial strvar
+ RestoreNewLine(StrVarPtr(VarId));
+ }
+
return Err;
}