synhighlightercpm.pas

SynEditStudio delphi 代码编辑器

  if KeyComp('FOLD') then Result := tkKey else
    if KeyComp('BEGIN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func41: TtkTokenKind;
begin
  if KeyComp('ELSE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func43: TtkTokenKind;
begin
  if KeyComp('BLOCK') then Result := tkKey else
    if KeyComp('LOCAL') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func44: TtkTokenKind;
begin
  if KeyComp('INCR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func47: TtkTokenKind;
begin
  if KeyComp('THEN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func48: TtkTokenKind;
begin
  if KeyComp('MERGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func49: TtkTokenKind;
begin
  if KeyComp('PARAM') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func53: TtkTokenKind;
begin
  if KeyComp('SUM') then Result := tkSystem else
    if KeyComp('DIVIDE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func54: TtkTokenKind;
begin
  if KeyComp('RAVAL') then Result := tkSystem else
    if KeyComp('SQR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func55: TtkTokenKind;
begin
  if KeyComp('FILEEND') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func56: TtkTokenKind;
begin
  if KeyComp('MEMBER') then Result := tkKey else
    if KeyComp('FLOW') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func57: TtkTokenKind;
begin
  if KeyComp('WHILE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func58: TtkTokenKind;
begin
  if KeyComp('LOOP') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func62: TtkTokenKind;
begin
  if KeyComp('FILEDATE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func63: TtkTokenKind;
begin
  if KeyComp('CLIENT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func65: TtkTokenKind;
begin
  if KeyComp('REPEAT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func66: TtkTokenKind;
begin
  if KeyComp('LENGTH') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func68: TtkTokenKind;
begin
  if KeyComp('GLOBALS') then Result := tkKey else
    if KeyComp('INCLUDE') then Result := tkKey else
      if KeyComp('ROOT') then Result := tkSystem else
        if KeyComp('LANGUAGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func69: TtkTokenKind;
begin
  if KeyComp('ASSIGN') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func72: TtkTokenKind;
begin
  if KeyComp('ROUND') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func74: TtkTokenKind;
begin
  if KeyComp('FOREIGN') then Result := tkSystem else
    if KeyComp('PARENT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func75: TtkTokenKind;
begin
  if KeyComp('MATCHING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func76: TtkTokenKind;
begin
  if KeyComp('USEDBY') then Result := tkKey else
    if KeyComp('TRUNC') then Result := tkSystem else
      if KeyComp('RASTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func79: TtkTokenKind;
begin
  if KeyComp('FILETIME') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func83: TtkTokenKind;
begin
  if KeyComp('FILEDELETE') then Result := tkSystem else
    if KeyComp('V_DATE') then Result := tkSpecialVar else
      if KeyComp('MIDSTR') then Result := tkSystem else
        if KeyComp('EXECUTE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func85: TtkTokenKind;
begin
  if KeyComp('PARSEINC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func86: TtkTokenKind;
begin
  if KeyComp('FILEREADLN') then Result := tkSystem else
    if KeyComp('FILECLOSE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func88: TtkTokenKind;
begin
  if KeyComp('FILEAPPEND') then Result := tkSystem else
    if KeyComp('SQL_ADD') then Result := tkSQLKey else
      if KeyComp('LTRUNC') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func89: TtkTokenKind;
begin
  if KeyComp('VARIABLES') then
    Result := tkKey
  else
    Result := tkIdentifier;
end;

function TSynCPMSyn.Func91: TtkTokenKind;
begin
  if KeyComp('FILESIZE') then Result := tkSystem else
    if KeyComp('COPYFILE') then Result := tkSystem else
      if KeyComp('FILECOPY') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func92: TtkTokenKind;
begin
  if KeyComp('PDRIVER') then Result := tkKey else
    if KeyComp('MESSAGEDLG') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func94: TtkTokenKind;
begin
  if KeyComp('CATEGORY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func95: TtkTokenKind;
begin
  if KeyComp('METAFLOW') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func96: TtkTokenKind;
begin
  if KeyComp('V_FALSE') then Result := tkSpecialVar else Result := tkIdentifier;
end;

function TSynCPMSyn.Func99: TtkTokenKind;
begin
  if KeyComp('FILERESET') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func100: TtkTokenKind;
begin
  if KeyComp('LLENSTR') then Result := tkSystem else
    if KeyComp('LEFTSTR') then Result := tkSystem else
      if KeyComp('V_TIME') then Result := tkSpecialVar else
        if KeyComp('PRINTER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func101: TtkTokenKind;
begin
  if KeyComp('FILEASSIGN') then Result := tkSystem else
    if KeyComp('CONTINUE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func104: TtkTokenKind;
begin
  if KeyComp('SUBTRACT') then Result := tkSystem else
    if KeyComp('FILESORT') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func105: TtkTokenKind;
begin
  if KeyComp('DEFINITION') then Result := tkKey else
    if KeyComp('SQL_EOF') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func106: TtkTokenKind;
begin
  if KeyComp('RLENSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func107: TtkTokenKind;
begin
  if KeyComp('STRPOS') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func108: TtkTokenKind;
begin
  if KeyComp('OPTIONS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func109: TtkTokenKind;
begin
  if KeyComp('SORTUP') then Result := tkKey else
    if KeyComp('PRINTFILE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func112: TtkTokenKind;
begin
  if KeyComp('LOCASESTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func113: TtkTokenKind;
begin
  if KeyComp('OUTPUT') then Result := tkKey else
    if KeyComp('SORTKEY') then Result := tkKey else
      if KeyComp('READINSTANCE') then Result := tkSystem else
        if KeyComp('SQL_MLADD') then Result := tkSQLKey else
          if KeyComp('SQL_FREE') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func114: TtkTokenKind;
begin
  if KeyComp('GROUPUP') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func116: TtkTokenKind;
begin
  if KeyComp('SUPPLIER') then Result := tkKey else
    if KeyComp('COUNTRY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func117: TtkTokenKind;
begin
  if KeyComp('V_TRUE') then Result := tkSpecialVar else
    if KeyComp('EQUALVALUE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func118: TtkTokenKind;
begin
  if KeyComp('GROUPHEADER') then Result := tkKey else
    if KeyComp('GROUPKEY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func119: TtkTokenKind;
begin
  if KeyComp('RIGHTSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func120: TtkTokenKind;
begin
  if KeyComp('ENTITYCODE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func122: TtkTokenKind;
begin
  if KeyComp('CENTERSTR') then Result := tkSystem else
    if KeyComp('UPCASESTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func125: TtkTokenKind;
begin
  if KeyComp('CONSTANTS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func126: TtkTokenKind;
begin
  if KeyComp('ALLENTITIES') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func127: TtkTokenKind;
begin
  if KeyComp('FILTERSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func128: TtkTokenKind;
begin
  if KeyComp('FILEEXISTS') then Result := tkSystem else
    if KeyComp('MULTIPLY') then Result := tkSystem else
      if KeyComp('SORTDOWN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func130: TtkTokenKind;
begin
  if KeyComp('FILEREWRITE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func131: TtkTokenKind;
begin
  if KeyComp('SQL_CREATE') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func133: TtkTokenKind;
begin
  if KeyComp('FILEWRITELN') then Result := tkSystem else
    if KeyComp('GROUPDOWN') then Result := tkKey else
      if KeyComp('SQL_DUMP') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func134: TtkTokenKind;
begin
  if KeyComp('SHOWMESSAGE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func136: TtkTokenKind;
begin
  if KeyComp('EMPTYSHEET') then Result := tkKey else
    if KeyComp('CHARRLENSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func137: TtkTokenKind;
begin
  if KeyComp('V_NONEREAL') then Result := tkSpecialVar else
    if KeyComp('LASTINSTANCE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func138: TtkTokenKind;
begin
  if KeyComp('GLOBALVARIABLES') then Result := tkKey else
    if KeyComp('REPEATCOUNT') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func139: TtkTokenKind;
begin
  if KeyComp('STRIPSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func141: TtkTokenKind;
begin
  if KeyComp('ALLPRODUCTS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func142: TtkTokenKind;
begin
  if KeyComp('ORGANISATION') then Result := tkKey else
    if KeyComp('SQL_NEXT') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func143: TtkTokenKind;
begin
  if KeyComp('EQUALSTRING') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func146: TtkTokenKind;
begin
  if KeyComp('PREVINSTANCE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func147: TtkTokenKind;
begin
  if KeyComp('CHARREPLACESTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func148: TtkTokenKind;
begin
  if KeyComp('NEXTINSTANCE') then Result := tkSystem else
    if KeyComp('REPORTLEVEL') then Result := tkKey else
      if KeyComp('CHARRLLENSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func149: TtkTokenKind;
begin
  if KeyComp('VAROPTIONS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func153: TtkTokenKind;
begin
  if KeyComp('SQL_ASFLOAT') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func154: TtkTokenKind;
begin
  if KeyComp('SKIPEMTPTY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func156: TtkTokenKind;
begin
  if KeyComp('GROUPFOOTER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func157: TtkTokenKind;
begin
  if KeyComp('FIRSTINSTANCE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func160: TtkTokenKind;
begin
  if KeyComp('ALLSUPPLIERS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func162: TtkTokenKind;
begin
  if KeyComp('SQL_EXECUTE') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func164: TtkTokenKind;
begin
  if KeyComp('SQL_SETVAR') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func165: TtkTokenKind;
begin
  if KeyComp('STROPTIONS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func166: TtkTokenKind;
begin
  if KeyComp('ALLPROPERTIES') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func170: TtkTokenKind;
begin
  if KeyComp('ZERORLENSTR') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func174: TtkTokenKind;
begin
  if KeyComp('GLOBALCONSTANTS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func178: TtkTokenKind;
begin
  if KeyComp('READREPEATINSTANCE') then Result := tkSystem else Result := tkIdentifier;
end;

function TSynCPMSyn.Func186: TtkTokenKind;
begin
  if KeyComp('SQL_ASSTRING') then Result := tkSQLKey else Result := tkIdentifier;
end;

function TSynCPMSyn.Func187: TtkTokenKind;
begin
  if KeyComp('V_PAR_LANGUAGE') then Result := tkSpecialVar else Result := tkIdentifier;
end;

function TSynCPMSyn.Func188: TtkTokenKind;
begin
  if KeyComp('SQL_MLMULTIADD') then Result := tkSQLKey else Result := tkIdentifier;
end;