Changeset 681 in dev for trunk/ab5.0/abdev/abdev/ParameterHint.cpp

Timestamp:

Jul 12, 2008, 9:23:52 PM (15 years ago)

Author:

dai_9181

Message:

・TinyXMLをabdevプロジェクトで使えるようにした。
・コードハイライターを汎用的に実装しなおした。syntaxファイルを読み込む仕様とした。

File:

• trunk/ab5.0/abdev/abdev/ParameterHint.cpp (modified) (1 diff)

trunk/ab5.0/abdev/abdev/ParameterHint.cpp

@@ -72 +72 @@
     int CmdValue;
 
-    CmdValue=IsBasicReservedWord(Command);
-    if(CmdValue==COM_ABSTRACT)          lstrcpy(MethodCheckInfo.msg,"Abstract Sub/Function ([arglist]) [As type]]");
-    else if(CmdValue==COM_BEEP)         lstrcpy(MethodCheckInfo.msg,"Beep");
-    else if(CmdValue==COM_CHDIR)        lstrcpy(MethodCheckInfo.msg,"ChDir directory$");
-    else if(CmdValue==COM_CIRCLE)       lstrcpy(MethodCheckInfo.msg,"Circle (x, y), radius, [color], [start], [end], [aspect], [f], [brushcolor]");
-    else if(CmdValue==COM_CLOSE)        lstrcpy(MethodCheckInfo.msg,"Close [filenumber]");
-    else if(CmdValue==COM_CLASS)        lstrcpy(MethodCheckInfo.msg,"Class name");
-    else if(CmdValue==COM_CLS)          lstrcpy(MethodCheckInfo.msg,"Cls [number]");
-    else if(CmdValue==COM_COLOR)        lstrcpy(MethodCheckInfo.msg,"Color color, [backcolor]");
-    else if(CmdValue==COM_CONST)        lstrcpy(MethodCheckInfo.msg,"Const constname = expression");
-    else if(CmdValue==COM_DEBUG)        lstrcpy(MethodCheckInfo.msg,"Debug");
-    else if(CmdValue==COM_DECLARE)      lstrcpy(MethodCheckInfo.msg,"Declare Sub/Function name Lib \"libname\" [Alias \"aliasname\"] ([arglist]) [As type]]");
-    else if(CmdValue==COM_DEF)          lstrcpy(MethodCheckInfo.msg,"Def func([parms] [,parms2])=expression");
-    else if(CmdValue==COM_DIM)          lstrcpy(MethodCheckInfo.msg,"Dim variable [(subscripts)] As type, ...");
-    else if(CmdValue==COM_END)          lstrcpy(MethodCheckInfo.msg,"End [type]");
-    else if(CmdValue==COM_ENUM)         lstrcpy(MethodCheckInfo.msg,"Enum name");
-    else if(CmdValue==COM_FIELD)        lstrcpy(MethodCheckInfo.msg,"Field #filenumber, fieldbyte");
-    else if(CmdValue==COM_FOR)          lstrcpy(MethodCheckInfo.msg,"For variable=start To end [Step step]");
-    else if(CmdValue==COM_FUNCTION)     lstrcpy(MethodCheckInfo.msg,"Function name ([arglist]) [As type]");
-    else if(CmdValue==COM_GET)          lstrcpy(MethodCheckInfo.msg,"Get #filenumber, recode, StrBuffer");
-    else if(CmdValue==COM_GOSUB)        lstrcpy(MethodCheckInfo.msg,"GoSub label");
-    else if(CmdValue==COM_GOTO)         lstrcpy(MethodCheckInfo.msg,"Goto label");
-    else if(CmdValue==COM_IF)           lstrcpy(MethodCheckInfo.msg,"If judgment Then truecommand [Else falsecommand]");
-    else if(CmdValue==COM_INHERITS)     lstrcpy(MethodCheckInfo.msg,"Inherits BaseClass");
-    else if(CmdValue==COM_INPUT)        lstrcpy(MethodCheckInfo.msg,"Input [# filenumber, ] variable, [...]");
-    else if(CmdValue==COM_INTERFACE)    lstrcpy(MethodCheckInfo.msg,"Interface name");
-    else if(CmdValue==COM_KILL)         lstrcpy(MethodCheckInfo.msg,"Kill filename$");
-    else if(CmdValue==COM_LET)          lstrcpy(MethodCheckInfo.msg,"[Let] variable = expression");
-    else if(CmdValue==COM_LINE)         lstrcpy(MethodCheckInfo.msg,"Line [(sx, sy)] -[Step] (ex, ey), [color], [B/Bf], [color2]");
-    else if(CmdValue==COM_LOCATE)       lstrcpy(MethodCheckInfo.msg,"Locate x, y");
-    else if(CmdValue==COM_LOOP)         lstrcpy(MethodCheckInfo.msg,"Loop while/until judgment");
-    else if(CmdValue==COM_MKDIR)        lstrcpy(MethodCheckInfo.msg,"MkDir directory$");
-    else if(CmdValue==COM_MSGBOX)       lstrcpy(MethodCheckInfo.msg,"MsgBox hWnd, String$, [Title$], [BoxType], [retAns]");
-    else if(CmdValue==COM_NAMESPACE)    lstrcpy(MethodCheckInfo.msg,"Namespace namespaceStr");
-    else if(CmdValue==COM_NEXT)         lstrcpy(MethodCheckInfo.msg,"Next");
-    else if(CmdValue==COM_OPEN)         lstrcpy(MethodCheckInfo.msg,"Open filename$ [For Input/Output/Append] As number");
-    else if(CmdValue==COM_PAINT)        lstrcpy(MethodCheckInfo.msg,"Paint (x, y), brushcolor, [linecolor]");
-    else if(CmdValue==COM_PRINT)        lstrcpy(MethodCheckInfo.msg,"Print outdata, [...]");
-    else if(CmdValue==COM_PRIVATE)      lstrcpy(MethodCheckInfo.msg,"Private");
-    else if(CmdValue==COM_PROTECTED)    lstrcpy(MethodCheckInfo.msg,"Protected");
-    else if(CmdValue==COM_PSET)         lstrcpy(MethodCheckInfo.msg,"PSet (x, y), [color]");
-    else if(CmdValue==COM_PUBLIC)       lstrcpy(MethodCheckInfo.msg,"Public");
-    else if(CmdValue==COM_PUT)          lstrcpy(MethodCheckInfo.msg,"Put #filenumber, recode, StrBuffer");
-    else if(CmdValue==COM_RANDOMIZE)    lstrcpy(MethodCheckInfo.msg,"Randomize [number]");
-    else if(CmdValue==COM_REM)          lstrcpy(MethodCheckInfo.msg,"Rem [comment]");
-    else if(CmdValue==COM_RETURN)       lstrcpy(MethodCheckInfo.msg,"Return");
-    else if(CmdValue==COM_SELECT)       lstrcpy(MethodCheckInfo.msg,"Select Case testexpression");
-    else if(CmdValue==COM_SUB)          lstrcpy(MethodCheckInfo.msg,"Sub name ([arglist])");
-    else if(CmdValue==COM_TYPE)         lstrcpy(MethodCheckInfo.msg,"Type name");
-    else if(CmdValue==COM_TYPEDEF)      lstrcpy(MethodCheckInfo.msg,"TypeDef newtype = basetype");
-    else if(CmdValue==COM_VIRTUAL)      lstrcpy(MethodCheckInfo.msg,"Virtual Sub/Function ([arglist]) [As type]]");
-    else if(CmdValue==COM_OVERRIDE)     lstrcpy(MethodCheckInfo.msg,"Override Sub/Function ([arglist]) [As type]]");
-    else if(CmdValue==COM_WEND)         lstrcpy(MethodCheckInfo.msg,"Wend");
-    else if(CmdValue==COM_WHILE)        lstrcpy(MethodCheckInfo.msg,"While judgment");
-    else if(CmdValue==COM_WINDOW)       lstrcpy(MethodCheckInfo.msg,"Window hWnd, OwnerWnd, x, y, width, height, title$, style, [class$], [ID], [callbackfunction], [ExStyle]");
-    else if(CmdValue==COM_WITH)         lstrcpy(MethodCheckInfo.msg,"With object");
-    else if(CmdValue==COM_WRITE)        lstrcpy(MethodCheckInfo.msg,"Write [data, ...]");
-    else return 0;
-    return 1;
+    if( ActiveBasic::IDE::Program::ablang->IsExistReservedKeywordWithQuickHelp( Command ) )
+    {
+        lstrcpy( MethodCheckInfo.msg, ActiveBasic::IDE::Program::ablang->GetReservedKeywordWithQuickHelp( Command ).c_str() );
+        return 1;
+    }
+
+    return 0;
 }