[Ttssh2-commit] [3710] 文字列中の / * をコメントの開始と誤認識していたのを修正。

Back to archive index

svnno****@sourc***** svnno****@sourc*****
2009年 12月 8日 (火) 20:47:09 JST


Revision: 3710
          http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=3710
Author:   doda
Date:     2009-12-08 20:47:09 +0900 (Tue, 08 Dec 2009)

Log Message:
-----------
文字列中の /* をコメントの開始と誤認識していたのを修正。

Modified Paths:
--------------
    trunk/teraterm/ttpmacro/ttmbuff.c


-------------- next part --------------
Modified: trunk/teraterm/ttpmacro/ttmbuff.c
===================================================================
--- trunk/teraterm/ttpmacro/ttmbuff.c	2009-12-06 15:14:26 UTC (rev 3709)
+++ trunk/teraterm/ttpmacro/ttmbuff.c	2009-12-08 11:47:09 UTC (rev 3710)
@@ -230,6 +230,7 @@
 	TName LabName;
 	WORD Err;
 	WORD VarType, VarId;
+	TStrVal tmp;
 
 	Buff[IBuff] = GlobalLock(BuffHandle[IBuff]);
 	if (Buff[IBuff]==NULL) {
@@ -256,11 +257,17 @@
 				Err = ErrSyntax;
 			}
 		}
+		else {
+		    LinePtr--;
+		}
 
 		/* ŽŸ‚̍s‚ÖˆÚ‚·‘O‚ɁACŒ¾ŒêƒRƒƒ“ƒg‚ð’T‚·‚½‚߁As––‚܂ŃXƒLƒƒƒ“‚·‚éB*/
-		do {
-			b = GetFirstChar();
-		} while (b != 0);
+		while ((b=GetFirstChar()) != 0) {
+			if (b=='"' || b=='\'' || b=='#') {
+				LinePtr--;
+				GetString(tmp, &Err);
+			}
+		}
 
 		if (Err>0) {
 			DispErr(Err);



Ttssh2-commit メーリングリストの案内
Back to archive index