mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
1918 lines
83 KiB
ObjectPascal
1918 lines
83 KiB
ObjectPascal
{-------------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
The Original Code is: SynHighlighterSQL.pas, released 2000-04-21.
|
|
The Original Code is based on the wmSQLSyn.pas and wmSybaseSyn.pas files from
|
|
the mwEdit component suite by Martin Waldenburg and other developers, the
|
|
Initial Author of these files is Willo van der Merwe. Initial Author of
|
|
SynHighlighterSQL.pas is Michael Hieke.
|
|
Portions created by Willo van der Merwe are Copyright 1999 Willo van der Merwe.
|
|
Portions created by Michael Hieke are Copyright 2000 Michael Hieke.
|
|
All Rights Reserved.
|
|
|
|
Contributors to the SynEdit and mwEdit projects are listed in the
|
|
Contributors.txt file.
|
|
|
|
Alternatively, the contents of this file may be used under the terms of the
|
|
GNU General Public License Version 2 or later (the "GPL"), in which case
|
|
the provisions of the GPL are applicable instead of those above.
|
|
If you wish to allow use of your version of this file only under the terms
|
|
of the GPL and not to allow others to use your version of this file
|
|
under the MPL, indicate your decision by deleting the provisions above and
|
|
replace them with the notice and other provisions required by the GPL.
|
|
If you do not delete the provisions above, a recipient may use your version
|
|
of this file under either the MPL or the GPL.
|
|
|
|
$Id: SynHighlighterSQL.pas,v 1.41 2005/01/07 12:11:55 markonjezic Exp $
|
|
|
|
You may retrieve the latest version of this file at the SynEdit home page,
|
|
located at http://SynEdit.SourceForge.net
|
|
|
|
Known Issues:
|
|
-------------------------------------------------------------------------------}
|
|
{
|
|
@abstract(SQL highlighter for SynEdit with support for different dialects.)
|
|
@author(Michael Hieke)
|
|
@created(2000-04-21)
|
|
@lastmod(2000-11-16)
|
|
The SynHighlighterSQL implements a highlighter for SQL for the SynEdit projects.
|
|
Different SQL dialects can be selected via the Dialect property.
|
|
}
|
|
|
|
{$IFNDEF QSYNHIGHLIGHTERSQL}
|
|
unit SynHighlighterSQL;
|
|
{$ENDIF}
|
|
|
|
{$I SynEdit.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF SYN_CLX}
|
|
Types,
|
|
QGraphics,
|
|
QSynEditTypes,
|
|
QSynEditHighlighter,
|
|
QSynHighlighterHashEntries,
|
|
{$ELSE}
|
|
Graphics,
|
|
Registry,
|
|
SynEditTypes,
|
|
SynEditHighlighter,
|
|
SynHighlighterHashEntries,
|
|
{$ENDIF}
|
|
SysUtils,
|
|
Classes;
|
|
|
|
type
|
|
TtkTokenKind = (tkComment, tkDatatype, tkDefaultPackage, tkException,
|
|
tkFunction, tkIdentifier, tkKey, tkNull, tkNumber, tkSpace, tkPLSQL,
|
|
tkSQLPlus, tkString, tkSymbol, tkTableName, tkUnknown, tkVariable,
|
|
tkConditionalComment, tkDelimitedIdentifier);
|
|
|
|
TRangeState = (rsUnknown, rsComment, rsString, rsConditionalComment);
|
|
|
|
TProcTableProc = procedure of object;
|
|
|
|
TSQLDialect = (sqlStandard, sqlInterbase6, sqlMSSQL7, sqlMySQL, sqlOracle,
|
|
sqlSybase, sqlIngres, sqlMSSQL2K);
|
|
|
|
type
|
|
PIdentifierTable = ^TIdentifierTable;
|
|
TIdentifierTable = array[Char] of ByteBool;
|
|
|
|
PHashTable = ^THashTable;
|
|
THashTable = array[Char] of Integer;
|
|
|
|
type
|
|
TSynSQLSyn = class(TSynCustomHighlighter)
|
|
private
|
|
fRange: TRangeState;
|
|
fLine: PChar;
|
|
fLineNumber: Integer;
|
|
fProcTable: array[#0..#255] of TProcTableProc;
|
|
Run: LongInt;
|
|
fStringLen: Integer;
|
|
fToIdent: PChar;
|
|
fTokenPos: Integer;
|
|
fTokenID: TtkTokenKind;
|
|
fKeywords: TSynHashEntryList;
|
|
fTableNames: TStrings;
|
|
fDialect: TSQLDialect;
|
|
fCommentAttri: TSynHighlighterAttributes;
|
|
fConditionalCommentAttri: TSynHighlighterAttributes;
|
|
fDataTypeAttri: TSynHighlighterAttributes;
|
|
fDefaultPackageAttri: TSynHighlighterAttributes;
|
|
fDelimitedIdentifierAttri: TSynHighlighterAttributes;
|
|
fExceptionAttri: TSynHighlighterAttributes;
|
|
fFunctionAttri: TSynHighlighterAttributes;
|
|
fIdentifierAttri: TSynHighlighterAttributes;
|
|
fKeyAttri: TSynHighlighterAttributes;
|
|
fNumberAttri: TSynHighlighterAttributes;
|
|
fPLSQLAttri: TSynHighlighterAttributes;
|
|
fSpaceAttri: TSynHighlighterAttributes;
|
|
fSQLPlusAttri: TSynHighlighterAttributes;
|
|
fStringAttri: TSynHighlighterAttributes;
|
|
fSymbolAttri: TSynHighlighterAttributes;
|
|
fTableNameAttri: TSynHighlighterAttributes;
|
|
fVariableAttri: TSynHighlighterAttributes;
|
|
fIdentifiersPtr: PIdentifierTable;
|
|
fmHashTablePtr: PHashTable;
|
|
function KeyHash(ToHash: PChar): Integer;
|
|
function KeyComp(const aKey: string): Boolean;
|
|
procedure AndSymbolProc;
|
|
procedure AsciiCharProc;
|
|
procedure CRProc;
|
|
procedure EqualProc;
|
|
procedure GreaterProc;
|
|
procedure IdentProc;
|
|
procedure LFProc;
|
|
procedure LowerProc;
|
|
procedure MinusProc;
|
|
procedure HashProc;
|
|
procedure NullProc;
|
|
procedure NumberProc;
|
|
procedure OrSymbolProc;
|
|
procedure PlusProc;
|
|
procedure SlashProc;
|
|
procedure SpaceProc;
|
|
procedure QuoteProc;
|
|
procedure BacktickProc;
|
|
procedure BracketProc;
|
|
procedure SymbolProc;
|
|
procedure SymbolAssignProc;
|
|
procedure VariableProc;
|
|
procedure UnknownProc;
|
|
function IdentKind(MayBe: PChar): TtkTokenKind;
|
|
procedure MakeMethodTables;
|
|
procedure AnsiCProc;
|
|
procedure DoAddKeyword(AKeyword: string; AKind: integer);
|
|
procedure SetDialect(Value: TSQLDialect);
|
|
procedure SetTableNames(const Value: TStrings);
|
|
procedure TableNamesChanged(Sender: TObject);
|
|
procedure InitializeKeywordLists;
|
|
procedure PutTableNamesInKeywordList;
|
|
protected
|
|
function GetIdentChars: TSynIdentChars; override;
|
|
function GetSampleSource : String; override;
|
|
function IsFilterStored: Boolean; override;
|
|
public
|
|
class function GetLanguageName: string; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
procedure Assign(Source: TPersistent); override;
|
|
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
|
|
override;
|
|
function GetEol: Boolean; override;
|
|
function GetRange: Pointer; override;
|
|
function GetToken: string; override;
|
|
function GetTokenAttribute: TSynHighlighterAttributes; override;
|
|
function GetTokenID: TtkTokenKind;
|
|
function GetTokenKind: integer; override;
|
|
function GetTokenPos: Integer; override;
|
|
function IsKeyword(const AKeyword: string): boolean; override;
|
|
procedure Next; override;
|
|
procedure ResetRange; override;
|
|
procedure SetLine(NewValue: string; LineNumber: Integer); override;
|
|
procedure SetRange(Value: Pointer); override;
|
|
published
|
|
property CommentAttri: TSynHighlighterAttributes read fCommentAttri
|
|
write fCommentAttri;
|
|
property ConditionalCommentAttri: TSynHighlighterAttributes
|
|
read fConditionalCommentAttri write fConditionalCommentAttri;
|
|
property DataTypeAttri: TSynHighlighterAttributes read fDataTypeAttri
|
|
write fDataTypeAttri;
|
|
property DefaultPackageAttri: TSynHighlighterAttributes
|
|
read fDefaultPackageAttri write fDefaultPackageAttri;
|
|
property DelimitedIdentifierAttri: TSynHighlighterAttributes
|
|
read fDelimitedIdentifierAttri write fDelimitedIdentifierAttri;
|
|
property ExceptionAttri: TSynHighlighterAttributes read fExceptionAttri
|
|
write fExceptionAttri;
|
|
property FunctionAttri: TSynHighlighterAttributes read fFunctionAttri
|
|
write fFunctionAttri;
|
|
property IdentifierAttri: TSynHighlighterAttributes read fIdentifierAttri
|
|
write fIdentifierAttri;
|
|
property KeyAttri: TSynHighlighterAttributes read fKeyAttri write fKeyAttri;
|
|
property NumberAttri: TSynHighlighterAttributes read fNumberAttri
|
|
write fNumberAttri;
|
|
property PLSQLAttri: TSynHighlighterAttributes read fPLSQLAttri
|
|
write fPLSQLAttri;
|
|
property SpaceAttri: TSynHighlighterAttributes read fSpaceAttri
|
|
write fSpaceAttri;
|
|
property SQLPlusAttri: TSynHighlighterAttributes read fSQLPlusAttri
|
|
write fSQLPlusAttri;
|
|
property StringAttri: TSynHighlighterAttributes read fStringAttri
|
|
write fStringAttri;
|
|
property SymbolAttri: TSynHighlighterAttributes read fSymbolAttri
|
|
write fSymbolAttri;
|
|
property TableNameAttri: TSynHighlighterAttributes read fTableNameAttri
|
|
write fTableNameAttri;
|
|
property TableNames: TStrings read fTableNames write SetTableNames;
|
|
property VariableAttri: TSynHighlighterAttributes read fVariableAttri
|
|
write fVariableAttri;
|
|
property SQLDialect: TSQLDialect read fDialect write SetDialect
|
|
default sqlStandard;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF SYN_CLX}
|
|
QSynEditStrConst;
|
|
{$ELSE}
|
|
SynEditStrConst;
|
|
{$ENDIF}
|
|
|
|
var
|
|
Identifiers: TIdentifierTable;
|
|
mHashTable: THashTable;
|
|
|
|
IdentifiersMSSQL7: TIdentifierTable;
|
|
mHashTableMSSQL7: THashTable;
|
|
|
|
const
|
|
//---"Standard" (ANSI SQL keywords (Version 1, 2 and 3) (www.sql.org)-----------
|
|
StandardKW: string =
|
|
'absolute,action,active,actor,add,after,alias,all,allocate,alter,' +
|
|
'and,any,are,as,asc,ascending,assertion,async,at,attributes,auto,' +
|
|
'base_name,before,begin,between,bit,bit_length,boolean,both,breadth,by,' +
|
|
'cache,call,cascade,cascaded,case,cast,catalog,char_length,' +
|
|
'character_length,check,coalesce,collate,collation,column,commit,' +
|
|
'committed,completion,computed,conditional,connect,connection,constraint,' +
|
|
'constraints,containing,convert,corresponding,count,create,cross,current,' +
|
|
'current_date,current_path,current_time,current_timestamp,current_user,' +
|
|
'cursor,cycle,data,database,date,day,deallocate,debug,declare,default,' +
|
|
'deferrable,deferred,delete,depth,desc,descending,describe,descriptor,' +
|
|
'destroy,diagnostics,dictionary,disconnect,distinct,do,domain,' +
|
|
'drop,each,element,else,elseif,end,end-exec,entry_point,equals,escape,' +
|
|
'except,exception,execute,exists,exit,external,extract,factor,false,' +
|
|
'filter,first,for,foreign,from,full,function,general,generator,get,' +
|
|
'global,grant,group,having,hold,hour,identity,if,ignore,immediate,in,' +
|
|
'inactive,index,initially,inner,input,insensitive,insert,instead,' +
|
|
'intersect,interval,into,is,isolation,join,key,last,leading,leave,left,' +
|
|
'less,level,like,limit,list,local,loop,lower,match,merge,minute,modify,' +
|
|
'month,names,national,natural,nchar,new,new_table,next,no,none,not,null,' +
|
|
'nullif,object,octet_length,of,off,old,old_table,on,only,operation,' +
|
|
'operator,operators,or,order,others,outer,output,overlaps,pad,' +
|
|
'parameter,parameters,partial,password,path,pendant,plan,position,' +
|
|
'postfix,prefix,preorder,prepare,preserve,primary,prior,private,' +
|
|
'privileges,procedure,protected,read,recursive,ref,referencing,relative,' +
|
|
'replace,resignal,restrict,retain,return,returns,revoke,right,role,' +
|
|
'rollback,routine,row,rows,savepoint,schema,scroll,search,second,select,' +
|
|
'sensitive,sequence,session,session_user,set,shadow,shared,signal,' +
|
|
'similar,size,snapshot,some,space,sqlexception,sqlstate,sqlwarning,start,' +
|
|
'state,structure,substring,suspend,symbol,system_user,table,temporary,' +
|
|
'term,test,then,there,time,timestamp,timezone_hour,timezone_minute,to,' +
|
|
'trailing,transaction,translate,translation,trigger,trim,true,tuple,type,' +
|
|
'uncommitted,under,union,unique,unknown,update,upper,usage,user,using,' +
|
|
'value,varchar,variable,varying,view,virtual,visible,wait,when,where,' +
|
|
'while,with,without,work,write,year,zone';
|
|
|
|
//---Sybase keywords------------------------------------------------------------
|
|
SybaseKW: string =
|
|
'absolute,action,add,after,alias,all,allocate,alter,and,any,are,' +
|
|
'arith_overflow,as,asc,assertion,async,at,authorization,avg,before,begin,' +
|
|
'between,bit,bit_length,boolean,both,breadth,break,browse,bulk,by,call,' +
|
|
'cascade,cascaded,case,cast,catalog,char,char_convert,char_length,' +
|
|
'character,character_length,check,checkpoint,close,clustered,coalesce,' +
|
|
'collate,collation,column,commit,completion,compute,confirm,' +
|
|
'connect,connection,constraint,constraints,continue,controlrow,convert,' +
|
|
'corresponding,count,create,cross,current,current_date,current_time,' +
|
|
'current_timestamp,current_user,cursor,cycle,data,database,date,day,dbcc,' +
|
|
'deallocate,dec,decimal,declare,default,deferrable,deferred,delete,depth,' +
|
|
'desc,describe,descriptor,diagnostics,dictionary,dis,disconnect,distinct,' +
|
|
'domain,double,drop,dummy,dump,each,else,elseif,en,end,endtran,equals,' +
|
|
'errlvl,errordata,errorexit,escape,except,exception,exclusive,exec,' +
|
|
'execute,exists,exit,exp_row_size,external,extract,false,fetch,' +
|
|
'fillfactor,first,float,for,foreign,found,from,full,general,get,global,' +
|
|
'go,goto,grant,group,having,holdlock,hour,identity,identity_gap,' +
|
|
'identity_insert,identity_start,if,ignore,immediate,in,index,indicator,' +
|
|
'initially,inner,input,insensitive,insert,install,int,integer,intersect,' +
|
|
'interval,into,is,isolation,jar,join,key,kill,language,last,leading,' +
|
|
'leave,left,less,level,like,limit,lineno,load,local,lock,loop,lower,' +
|
|
'match,max,max_rows_per_page,min,minute,mirror,mirrorexit,modify,module,' +
|
|
'month,names,national,natural,nchar,new,next,no,noholdlock,nonclustered,' +
|
|
'none,not,null,nullif,numeric,numeric_truncation,object,' +
|
|
'octet_length,of,off,offsets,oid,old,on,once,online,only,open,operation,' +
|
|
'operators,option,or,order,others,outer,output,over,overlaps,pad,' +
|
|
'parameters,partial,partition,pendant,perm,permanent,plan,position,' +
|
|
'precision,preorder,prepare,preserve,primary,print,prior,private,' +
|
|
'privileges,proc,procedure,processexit,protected,proxy_table,public,' +
|
|
'quiesce,raiserror,read,readpast,readtext,real,reconfigure,recursive,' +
|
|
'ref,reference,referencing,relative,remove,reorg,replace,replication,' +
|
|
'reservepagegap,resignal,restrict,return,returns,revoke,right,role,' +
|
|
'rollback,routine,row,rowcount,rows,rule,save,savepoint,schema,scroll,' +
|
|
'search,second,section,select,sensitive,sequence,session_user,set,' +
|
|
'setuser,shared,shutdown,signal,similar,size,smallint,some,space,sql,' +
|
|
'sqlcode,sqlerror,sqlexception,sqlstate,statistics,stripe,structure,' +
|
|
'substring,sum,syb_identity,syb_restree,system_user,table,temp,temporary,' +
|
|
'test,textsize,then,there,time,timestamp,timezone_hour,timezone_minute,' +
|
|
'to,trailing,tran,transaction,translate,translation,trigger,trim,true,' +
|
|
'truncate,tsequal,type,under,union,unique,unknown,unpartition,update,' +
|
|
'upper,usage,use,user,user_option,using,value,values,varchar,variable,' +
|
|
'varying,view,virtual,visible,wait,waitfor,when,whenever,where,while,' +
|
|
'with,without,work,write,writetext,year,zone';
|
|
|
|
//---Oracle---------------------------------------------------------------------
|
|
// Oracle SQL keywords
|
|
OracleKW: string =
|
|
'ACCESS,ACCESSED,ACCOUNT,ACTIVATE,ACTIVE_INSTANCE_COUNT,ADD,ADMIN,ADVISE,' +
|
|
'AGENT,ALL,ALLOCATE,ALTER,ANALYZE,ANCILLARY,AND,ANY,AQ_TM_PROCESSES,' +
|
|
'ARCHIVE_LAG_TARGET,ARCHIVELOG,AS,ASC,ASSOCIATE,ATTRIBUTES,AUDIT,' +
|
|
'AUDIT_FILE_DEST,AUDIT_SYS_OPERATIONS,AUDIT_TRAIL,AUTHENTICATED,AUTHID,' +
|
|
'AUTOALLOCATE,AUTOEXTEND,AUTOMATIC,BACKGROUND_CORE_DUMP,' +
|
|
'BACKGROUND_DUMP_DEST,BACKUP,BACKUP_TAPE_IO_SLAVES,BECOME,BEFORE,' +
|
|
'BEHALF,BETWEEN,BINDING,BITMAP,BITMAP_MERGE_AREA_SIZE,BLANK_TRIMMING,' +
|
|
'BLOCK,BLOCKSIZE,BUFFER_POOL,BUFFER_POOL_KEEP,BUFFER_POOL_RECYCLE,BY,' +
|
|
'CACHE,CANCEL,CASCADE,CAST,CATEGORY,CHAINED,CHANGE,CHARACTER,CHECK,' +
|
|
'CHECKPOINT,CHILD,CHUNK,CIRCUITS,CLASS,CLONE,CLUSTER,CLUSTER_DATABASE,' +
|
|
'CLUSTER_DATABASE_INSTANCES,CLUSTER_INTERCONNECTS,COALESCE,COBOL,' +
|
|
'COLUMN,COLUMNS,COMMENT,COMMIT_POINT_STRENGTH,COMPATIBLE,COMPILE,' +
|
|
'COMPLETE,COMPOSITE_LIMIT,COMPRESS,COMPUTE,CONNECT,' +
|
|
'CONNECT_TIME,CONSIDER,CONSTRAINT,CONSTRAINTS,CONTENTS,CONTEXT,CONTINUE,' +
|
|
'CONTROL,CONTROL_FILE_RECORD_KEEP_TIME,CONTROL_FILES,CONTROLFILE,' +
|
|
'CORE_DUMP_DEST,COST,CPU_COUNT,CPU_PER_CALL,CPU_PER_SESSION,CREATE,' +
|
|
'CREATE_BITMAP_AREA_SIZE,CREATE_STORED_OUTLINES,CURRENT,CURRENT_USER,' +
|
|
'CURSOR_SHARING,CURSOR_SPACE_FOR_TIME,CYCLE,DANGLING,DATAFILE,' +
|
|
'DB_BLOCK_BUFFERS,DB_BLOCK_CHECKING,DB_BLOCK_CHECKSUM,DB_BLOCK_SIZE,' +
|
|
'DB_CACHE_ADVICE,DB_CACHE_SIZE,DB_CREATE_FILE_DEST,DB_DOMAIN,' +
|
|
'DB_FILE_MULTIBLOCK_READ_COUNT,DB_FILE_NAME_CONVERT,DB_FILES,' +
|
|
'DB_KEEP_CACHE_SIZE,DB_NAME,DB_RECYCLE_CACHE_SIZE,DB_WRITER_PROCESSES,' +
|
|
'DBLINK_ENCRYPT_LOGIN,DBWR_IO_SLAVES,DEALLOCATE,DEBUG,DEFAULT,DEFERRED,' +
|
|
'DEFINER,DELETE,DEMAND,DETERMINES,DG_BROKER_START,DICTIONARY,DIMENSION,' +
|
|
'DIRECTORY,DISABLE,DISASSOCIATE,DISK_ASYNCH_IO,DISMOUNT,DISPATCHERS,' +
|
|
'DISTINCT,DISTRIBUTED,DISTRIBUTED_LOCK_TIMEOUT,DML,DML_LOCKS,DOCUMENT,' +
|
|
'DROP,DRS_START,ELSE,ENABLE,ENQUEUE_RESOURCES,ESCAPE,ESTIMATE,EVENT,' +
|
|
'EVENTS,EXCEPT,EXCEPTIONS,EXCHANGE,EXCLUDING,EXCLUSIVE,EXISTS,EXPIRE,' +
|
|
'EXPLAIN,EXTENT,EXTERNALLY,FAILED_LOGIN_ATTEMPTS,FAL_CLIENT,FAL_SERVER,' +
|
|
'FAST,FAST_START_IO_TARGET,FAST_START_MTTR_TARGET,' +
|
|
'FAST_START_PARALLEL_ROLLBACK,FILE,FILE_MAPPING,FILESYSTEMIO_OPTIONS,' +
|
|
'FIXED_DATE,FLUSH,FOR,FORCE,FOREIGN,FORTRAN,FREELIST,FREELISTS,FRESH,' +
|
|
'FROM,FROM_TZ,FUNCTIONS,GC_FILES_TO_LOCKS,GENERATED,GLOBAL,' +
|
|
'GLOBAL_CONTEXT_POOL_SIZE,GLOBAL_NAME,GLOBAL_NAMES,GLOBALLY,GO,GRANT,' +
|
|
'GROUP,GROUPS,HASH,HASH_AREA_SIZE,HASH_JOIN_ENABLED,HASHKEYS,HAVING,HEAP,' +
|
|
'HI_SHARED_MEMORY_ADDRESS,HIERARCHY,HS_AUTOREGISTER,IDENTIFIED,IDLE_TIME,' +
|
|
'IFILE,IMMEDIATE,IN,INCLUDING,INCREMENT,INDEX,INDEXTYPE,INDEXTYPES,' +
|
|
'INFILE,INITIAL,INITIALIZED,INITIALLY,INITRANS,INSERT,INSTANCE,' +
|
|
'INSTANCE_GROUPS,INSTANCE_NAME,INSTANCE_NUMBER,INT,INTERSECT,INTO,' +
|
|
'INVALIDATE,IS,ISOLATION,JAVA,JAVA_MAX_SESSIONSPACE_SIZE,JAVA_POOL_SIZE,' +
|
|
'JAVA_SOFT_SESSIONSPACE_LIMIT,JOB_QUEUE_PROCESSES,JOIN,KEEP,KEY,KILL,' +
|
|
'LARGE_POOL_SIZE,LAYERLISTS,LEVEL,LIBRARY,LICENSE_MAX_SESSIONS,' +
|
|
'LICENSE_MAX_USERS,LICENSE_SESSIONS_WARNING,LIKE,LIMIT,LINK,LIST,LOB,' +
|
|
'LOCAL,LOCAL_LISTENER,LOCATOR,LOCK,LOCK_NAME_SPACE,LOCK_SGA,' +
|
|
'LOG_ARCHIVE_DEST,LOG_ARCHIVE_DUPLEX_DEST,LOG_ARCHIVE_FORMAT,' +
|
|
'LOG_ARCHIVE_MAX_PROCESSES,LOG_ARCHIVE_MIN_SUCCEED_DEST,' +
|
|
'LOG_ARCHIVE_START,LOG_ARCHIVE_TRACE,LOG_BUFFER,LOG_CHECKPOINT_INTERVAL,' +
|
|
'LOG_CHECKPOINT_TIMEOUT,LOG_CHECKPOINTS_TO_ALERT,LOG_FILE_NAME_CONVERT,' +
|
|
'LOG_PARALLELISM,LOGFILE,LOGGING,LOGICAL_READS_PER_CALL,' +
|
|
'LOGICAL_READS_PER_SESSION,LOGMNR_MAX_PERSISTENT_SESSIONS,MANAGE,MANAGED,' +
|
|
'MANUAL,MAP,MASTER,MATCHED,MATERIALIZED,MAX_COMMIT_PROPAGATION_DELAY,' +
|
|
'MAX_DISPATCHERS,MAX_DUMP_FILE_SIZE,MAX_ENABLED_ROLES,' +
|
|
'MAX_ROLLBACK_SEGMENTS,MAX_SHARED_SERVERS,MAXDATAFILES,MAXEXTENTS,' +
|
|
'MAXINSTANCES,MAXLOGFILES,MAXLOGHISTORY,MAXLOGMEMBERS,MAXSIZE,MAXTRANS,' +
|
|
'MAXVALUE,MEMBER,MERGE,MINEXTENTS,MINIMIZE,MINIMUM,MINUS,MINVALUE,MODE,' +
|
|
'MODIFY,MODULE,MONITORING,MOUNT,MOVE,MOVEMENT,MULTISET,NAMED,NATIONAL,' +
|
|
'NESTED,NEVER,NEXT,NLS_CALENDAR,NLS_COMP,NLS_CURRENCY,NLS_DATE_FORMAT,' +
|
|
'NLS_DATE_LANGUAGE,NLS_DUAL_CURRENCY,NLS_ISO_CURRENCY,NLS_LANGUAGE,' +
|
|
'NLS_LENGTH_SEMANTICS,NLS_NCHAR_CONV_EXCP,NLS_NUMERIC_CHARACTERS,' +
|
|
'NLS_TERRITORY,NLS_TIMESTAMP_FORMAT,NLS_TIMESTAMP_TZ_FORMAT,NO,' +
|
|
'NOARCHIVELOG,NOAUDIT,NOCACHE,NOCOMPRESS,NOCOPY,NOCYCLE,NOFORCE,' +
|
|
'NOLOGGING,NOMAXVALUE,NOMINIMIZE,NOMINVALUE,NOMONITORING,NONE,' +
|
|
'NOORDER,NORELY,NORESETLOGS,NOREVERSE,NORMAL,NOROWDEPENDENCIES,NOSORT,' +
|
|
'NOT,NOTHING,NOVALIDATE,NOWAIT,NULL,O7_DICTIONARY_ACCESSIBILITY,' +
|
|
'OBJECT_CACHE_MAX_SIZE_PERCENT,OBJECT_CACHE_OPTIMAL_SIZE,OF,OFFLINE,OID,' +
|
|
'OLAP_PAGE_POOL_SIZE,ON,ONLINE,ONLY,OPEN_CURSORS,OPEN_LINKS,' +
|
|
'OPEN_LINKS_PER_INSTANCE,OPERATOR,OPTIMAL,OPTIMIZER_DYNAMIC_SAMPLING,' +
|
|
'OPTIMIZER_FEATURES_ENABLE,OPTIMIZER_INDEX_CACHING,' +
|
|
'OPTIMIZER_INDEX_COST_ADJ,OPTIMIZER_MAX_PERMUTATIONS,OPTIMIZER_MODE,' +
|
|
'OPTION,OR,ORACLE_TRACE_COLLECTION_NAME,ORACLE_TRACE_COLLECTION_PATH,' +
|
|
'ORACLE_TRACE_COLLECTION_SIZE,ORACLE_TRACE_ENABLE,' +
|
|
'ORACLE_TRACE_FACILITY_NAME,ORACLE_TRACE_FACILITY_PATH,ORDER,' +
|
|
'OS_AUTHENT_PREFIX,OS_ROLES,OUTLINE,OVERFLOW,OWN,PACKAGES,PARALLEL,' +
|
|
'PARALLEL_ADAPTIVE_MULTI_USER,PARALLEL_AUTOMATIC_TUNING,' +
|
|
'PARALLEL_EXECUTION_MESSAGE_SIZE,PARALLEL_INSTANCE_GROUP,' +
|
|
'PARALLEL_MAX_SERVERS,PARALLEL_MIN_PERCENT,PARALLEL_MIN_SERVERS,' +
|
|
'PARALLEL_THREADS_PER_CPU,PARAMETERS,PARTITION_VIEW_ENABLED,PARTITIONS,' +
|
|
'PASSWORD,PASSWORD_GRACE_TIME,PASSWORD_LIFE_TIME,PASSWORD_LOCK_TIME,' +
|
|
'PASSWORD_REUSE_MAX,PASSWORD_REUSE_TIME,PASSWORD_VERIFY_FUNCTION,' +
|
|
'PCTFREE,PCTINCREASE,PCTTHRESHOLD,PCTUSED,PCTVERSION,PERCENT,PERMANENT,' +
|
|
'PGA_AGGREGATE_TARGET,PIPELINED,PLAN,PLI,PLSQL_COMPILER_FLAGS,' +
|
|
'PLSQL_NATIVE_C_COMPILER,PLSQL_NATIVE_LIBRARY_DIR,' +
|
|
'PLSQL_NATIVE_LIBRARY_SUBDIR_COUNT,PLSQL_NATIVE_LINKER,' +
|
|
'PLSQL_NATIVE_MAKE_FILE_NAME,PLSQL_NATIVE_MAKE_UTILITY,' +
|
|
'PLSQL_V2_COMPATIBILITY,POST_TRANSACTION,PRE_PAGE_SGA,PREBUILD,PRECISION,' +
|
|
'PRIMARY,PRIOR,PRIVATE_SGA,PRIVILEGES,PROCESSES,PROFILE,PUBLIC,QUERY,' +
|
|
'QUERY_REWRITE_ENABLED,QUERY_REWRITE_INTEGRITY,QUIESCE,QUOTA,' +
|
|
'RDBMS_SERVER_DN,READ,READ_ONLY_OPEN_DELAYED,REBUILD,RECORDS_PER_BLOCK,' +
|
|
'RECOVER,RECOVERABLE,RECOVERY,RECOVERY_PARALLELISM,RECYCLE,REDUCED,' +
|
|
'REFERENCES,REFRESH,REGISTER,RELY,REMOTE_ARCHIVE_ENABLE,' +
|
|
'REMOTE_DEPENDENCIES_MODE,REMOTE_LISTENER,REMOTE_LOGIN_PASSWORDFILE,' +
|
|
'REMOTE_OS_AUTHENT,REMOTE_OS_ROLES,RENAME,' +
|
|
'REPLICATION_DEPENDENCY_TRACKING,RESET,RESETLOGS,RESIZE,RESOLVE,RESOLVER,' +
|
|
'RESOURCE,RESOURCE_LIMIT,RESOURCE_MANAGER_PLAN,RESTRICT,RESTRICTED,' +
|
|
'RESUMABLE,RESUME,REUSE,REVOKE,REWRITE,RNDS,RNPS,ROLE,ROLES,' +
|
|
'ROLLBACK_SEGMENTS,ROW,ROW_LOCKING,ROWDEPENDENCIES,ROWLABEL,ROWNUM,' +
|
|
'ROWS,SAMPLE,SCN,SCOPE,SECTION,SEGMENT,SELECT,SELECTIVITY,SEQUENCE,' +
|
|
'SERIAL_REUSE,SERVICE_NAMES,SESSION,SESSION_CACHED_CURSORS,' +
|
|
'SESSION_MAX_OPEN_FILES,SESSIONS,SESSIONS_PER_USER,SGA_MAX_SIZE,' +
|
|
'SHADOW_CORE_DUMP,SHARE,SHARED,SHARED_MEMORY_ADDRESS,SHARED_POOL,' +
|
|
'SHARED_POOL_RESERVED_SIZE,SHARED_POOL_SIZE,SHARED_SERVER_SESSIONS,' +
|
|
'SHARED_SERVERS,SHRINK,SIZE,SNAPSHOT,SOME,SORT,SORT_AREA_RETAINED_SIZE,' +
|
|
'SORT_AREA_SIZE,SOURCE,SPECIFICATION,SPECIFIED,SPFILE,SPLIT,SQL_TRACE,' +
|
|
'SQL92_SECURITY,STANDBY,STANDBY_ARCHIVE_DEST,STANDBY_FILE_MANAGEMENT,' +
|
|
'STAR_TRANSFORMATION_ENABLED,START,START_DATE,STATIC,STATISTICS,' +
|
|
'STATISTICS_LEVEL,STOP,STORAGE,STRUCTURE,SUBPARTITION,SUBPARTITIONS,' +
|
|
'SUCCESSFUL,SUSPEND,SWITCH,SYNONYM,SYSTEM,TABLE,TABLESPACE,' +
|
|
'TAPE_ASYNCH_IO,TEMPFILE,TEMPORARY,THE,THEN,THREAD,THROUGH,TIME,' +
|
|
'TIMED_OS_STATISTICS,TIMED_STATISTICS,TIMEOUT,TO,TRACE_ENABLED,' +
|
|
'TRACEFILE_IDENTIFIER,TRACING,TRANSACTION,TRANSACTION_AUDITING,' +
|
|
'TRANSACTIONS,TRANSACTIONS_PER_ROLLBACK_SEGMENT,TRIGGER,TRUNCATE,TRUST,' +
|
|
'TYPES,UNARCHIVED,UNDER,UNDO,UNDO_MANAGEMENT,UNDO_RETENTION,' +
|
|
'UNDO_SUPPRESS_ERRORS,UNDO_TABLESPACE,UNIFORM,UNION,UNIQUE,UNLIMITED,' +
|
|
'UNLOCK,UNQUIESCE,UNRECOVERABLE,UNTIL,UNUSABLE,UNUSED,UPDATE,USAGE,' +
|
|
'USE_INDIRECT_DATA_BUFFERS,USER_DUMP_DEST,VALIDATE,VALIDATION,VALUES,' +
|
|
'VARGRAPHIC,VARRAY,VIEW,WHERE,WITH,WITHOUT,WNDS,WNPS,' +
|
|
'WORKAREA_SIZE_POLICY';
|
|
|
|
// PLSQL keywords
|
|
OraclePLSQLKW: string =
|
|
'ABORT,ACCEPT,AFTER,ARRAY,ARRAYLEN,ASSERT,ASSIGN,AT,AUTHORIZATION,' +
|
|
'AUTONOMOUS_TRANSACTION,BASE_TABLE,BEGIN,BODY,BULK,BULK_ROWCOUNT,CALL,' +
|
|
'CALLING,CASE,CHAR_BASE,CHARSETFORM,CHARSETID,CLOSE,CLUSTERS,COLAUTH,' +
|
|
'COLLECT,COMMIT,CONNECTION,CONSTANT,COOKIE,COOKIE_TABLE,CRASH,CURRVAL,' +
|
|
'CURSOR,DATA_BASE,DATABASE,DBA,DEBUGOFF,DEBUGON,DECLARE,DEFINITION,' +
|
|
'DELAY,DELTA,DEQUEUE_OPTIONS_T,DETERMINISTIC,DIGITS,DISPOSE,DO,EACH,' +
|
|
'ELSIF,END,ENQUEUE_OPTIONS_T,ENTRY,EXCEPTION,EXCEPTION_INIT,EXIT,' +
|
|
'EXTERNAL,FALSE,FETCH,FIXED,FORALL,FORM,FOUND,FUNCTION,GENERIC,GOTO,IF,' +
|
|
'INDEXES,INDICATOR,INSTEAD,INTERFACE,ISOPEN,LANGUAGE,LCR$_DDL_RECORD,' +
|
|
'LCR$_ROW_LIST,LCR$_ROW_RECORD,LCR$_ROW_UNIT,LIMITED,LOOP,MAXLEN,' +
|
|
'MESSAGE_PROPERTIES_T,MGW_BASIC_MSG_T,MGW_MQSERIES_PROPERTIES,' +
|
|
'MGW_NAME_TYPE_ARRAY_T,MGW_NAME_VALUE_T,MGW_PROPERTIES,MGW_PROPERTY,' +
|
|
'MGW_RAW_VALUE_T,MGW_TEXT_VALUE_T,NAME,NEW,NEXTVAL,NOTFOUND,' +
|
|
'NUMBER_BASE,OLD,OPEN,OUT,PACKAGE,PARALLEL_ENABLE,PARTITION,PASCAL,' +
|
|
'PRAGMA,PRIVATE,PROCEDURE,RAISE,RANGE,RE$ATTRIBUTE_VALUE,' +
|
|
'RE$ATTRIBUTE_VALUE_LIST,RE$COLUMN_VALUE,RE$COLUMN_VALUE_LIST,' +
|
|
'RE$NAME_ARRAY,RE$NV_ARRAY,RE$NV_LIST,RE$NV_NODE,RE$RULE_HIT,' +
|
|
'RE$RULE_HIT_LIST,RE$TABLE_ALIAS,RE$TABLE_ALIAS_LIST,' +
|
|
'RE$TABLE_VALUE,RE$TABLE_VALUE_LIST,RE$VARIABLE_TYPE,' +
|
|
'RE$VARIABLE_TYPE_LIST,RE$VARIABLE_VALUE,RE$VARIABLE_VALUE_LIST,RECORD,' +
|
|
'REF,REFERENCING,RELEASE,REMR,REQ,RESP,RESTRICT_REFERENCES,RETURN,' +
|
|
'REVERSE,ROLLBACK,ROWCOUNT,ROWTYPE,RUNTIME_INFO,SAVEPOINT,SCHEMA,' +
|
|
'SELF,SEPARATE,SERIALLY_REUSABLE,SPACE,SQL,SQLERROR,STATEMENT,STRUCT,' +
|
|
'SUBTYPE,TABAUTH,TABLES,TASK,TDO,TERMINATE,TRUE,TYPE,USE,VARYING,VIEWS,' +
|
|
'WHEN,WHILE,WORK,WRITE,XOR';
|
|
|
|
// Oracle data types
|
|
OracleTypes: string =
|
|
'ANYDATA,ANYDATASET,ANYTYPE,BFILE,BINARY_INTEGER,BLOB,BOOLEAN,CHAR,CLOB,' +
|
|
'DATE,DAY,DBURIType,DEC,DECIMAL,DOUBLE,FLOAT,HTTPURIType,INTEGER,LONG,' +
|
|
'MLSLABEL,MONTH,NATURAL,NATURALN,NCHAR,NCLOB,NUMBER,NUMERIC,' +
|
|
'NVARCHAR2,PLS_INTEGER,POSITIVE,POSITIVEN,RAW,REAL,ROWID,SECOND,SMALLINT,' +
|
|
'TIMESTAMP,URIType,UROWID,VARCHAR,VARCHAR2,XDBURIType,XMLDATA,XMLType,' +
|
|
'YEAR,ZONE';
|
|
|
|
// Oracle built in exceptions
|
|
OracleExceptions: string =
|
|
'ACCESS_INTO_NULL,COLLECTION_IS_NULL,CURSOR_ALREADY_OPEN,' +
|
|
'DUP_VAL_ON_INDEX,INVALID_CURSOR,INVALID_NUMBER,LOGIN_DENIED,' +
|
|
'NO_DATA_FOUND,NOT_LOGGED_ON,OTHERS,PROGRAM_ERROR,ROWTYPE_MISMATCH,' +
|
|
'STORAGE_ERROR,SUBSCRIPT_BEYOND_COUNT,SUBSCRIPT_OUTSIDE_LIMIT,' +
|
|
'SYS_INVALID_ROWID,TIMEOUT_ON_RESOURCE,TOO_MANY_ROWS,VALUE_ERROR,' +
|
|
'ZERO_DIVIDE';
|
|
|
|
// Oracle built in functions
|
|
OracleFunctions: string =
|
|
'ABS,ACOS,ADD_MONTHS,AGGREGATE,ANALYTIC,ASCII,ASCIISTR,ASIN,ATAN,ATAN2,' +
|
|
'AVERAGE,AVG,BASE64_DECODE,BASE64_ENCODE,BEGIN_REQUEST,BFILENAME,' +
|
|
'BIN_TO_NUM,BIT_AND,BIT_COMPLEMENT,BIT_OR,BIT_XOR,BITAND,' +
|
|
'CAST_FROM_BINARY_INTEGER,CAST_FROM_NUMBER,CAST_TO_BINARY_INTEGER,' +
|
|
'CAST_TO_NUMBER,CAST_TO_RAW,CAST_TO_VARCHAR2,CEIL,CHARTOROWID,CHR,' +
|
|
'COLUMN_PRESENT,COMPARE,COMPARE_TEMPLATES,COMPOSE,CONCAT,CONVERSION,' +
|
|
'CONVERT,CONVERT_ANYDATA_TO_LCR_DDL,CONVERT_ANYDATA_TO_LCR_ROW,' +
|
|
'COPIES,COPY_TEMPLATE,CORR,COS,COSH,COUNT,COVAR_POP,COVAR_SAMP,' +
|
|
'CREATE_OBJECT_FROM_EXISTING,CREATE_PIPE,CREATE_REFRESH_TEMPLATE,' +
|
|
'CREATE_TEMPLATE_OBJECT,CREATE_TEMPLATE_PARM,CREATE_USER_AUTHORIZATION,' +
|
|
'CREATE_USER_PARM_VALUE,CRLF,CUBE,CUME_DIST,CURRENT_DATE,' +
|
|
'CURRENT_INSTANCE,CURRENT_TIMESTAMP,DATA_BLOCK_ADDRESS_BLOCK,' +
|
|
'DATA_BLOCK_ADDRESS_FILE,DBTIMEZONE,DECODE,DECOMPOSE,DELETE_BREAKPOINT,' +
|
|
'DELETE_OER_BREAKPOINT,DENSE_RANK,DEPTH,DEREF,DISABLE_BREAKPOINT,' +
|
|
'DISABLED,DISPLAY,DROP_ALL,DROP_ELEMENT,DROP_FILE,DUMP,' +
|
|
'EMPTY_BLOB,EMPTY_CLOB,ENABLE_BREAKPOINT,EQUALS_PATH,ESTIMATE_CPU_UNITS,' +
|
|
'EXCLUDE_PUSH,EXECUTE_AND_FETCH,EXECUTE_NON_QUERY,EXISTSNODE,EXP,EXTEND,' +
|
|
'EXTRACT,EXTRACTVALUE,FCOPY,FETCH_ROW,FETCH_ROWS,FGETPOS,FILEEXISTS,' +
|
|
'FILEISOPEN,FIRST,FIRST_VALUE,FLOOR,FLUSH_DATA,FOPEN,FOPEN_NCHAR,' +
|
|
'FORMAT_CALL_STACK,FORMAT_ERROR_STACK,FREMOVE,FRENAME,FROM_REMOTE,FSEEK,' +
|
|
'GET_ARG_FORM,GET_ARG_TYPE,GET_COOKIE_COUNT,GET_COOKIES,' +
|
|
'GET_DETAILED_SQLCODE,GET_DETAILED_SQLERRM,GET_ERROR_MESSAGE,' +
|
|
'GET_HASH_VALUE,GET_HEADER_COUNT,GET_INDEXES,GET_INFORMATION,' +
|
|
'GET_OBJECT_NULL_VECTOR_ARG,GET_PARAMETER_VALUE,' +
|
|
'GET_PERSISTENT_CONN_COUNT,GET_RAW,GET_RESPONSE,GET_RUNTIME_INFO,' +
|
|
'GET_RUNTIME_PARM_ID,GET_SESSION_TIMEOUT,GET_SYSTEM_CHANGE_NUMBER,' +
|
|
'GET_TAG,GET_TIME,GET_TIMEOUT,GET_TIMEOUT_BEHAVIOR,GET_VALUE,' +
|
|
'GETCHUNKSIZE,GETLENGTH,GLB,GREATEST,GREATEST_LB,GROUP_ID,GROUPING,' +
|
|
'GROUPING_ID,HEXTORAW,I_AM_A_REFRESH,INITCAP,INITIALIZE,' +
|
|
'INSTANTIATE_OFFLINE,INSTANTIATE_ONLINE,INSTR,INSTRB,' +
|
|
'INTERNAL_VERSION_CHECK,IS_CLUSTER_DATABASE,IS_LOCATOR,IS_OPEN,' +
|
|
'IS_ROLE_ENABLED,IS_SESSION_ALIVE,IS_TRIGGER_FIRE_ONCE,ISTEMPORARY,LAG,' +
|
|
'LAST,LAST_DAY,LAST_ERROR_POSITION,LAST_ROW_COUNT,LAST_ROW_ID,' +
|
|
'LAST_SQL__CODE,LAST_VALUE,LEAD,LEAST,LEAST_LB,LENGTH,LENGTHB,LINEAR,LN,' +
|
|
'LOCAL_TRANSACTION_ID,LOCALTIMESTAMP,LOG,LOWER,LPAD,LTRIM,LUB,' +
|
|
'MAKE_DATA_BLOCK_ADDRESS,MAKE_REF,MAP_ALL,MAP_ELEMENT,MAP_FILE,' +
|
|
'MAP_OBJECT,MAX,MIN,MINE_VALUE,MISCELLANEOUS,MOD,MONTHS_BETWEEN,NCHR,' +
|
|
'NEW_TIME,NEXT_DAY,NEXT_ITEM_TYPE,NLS_CHARSET_DECL_LEN,NLS_CHARSET_ID,' +
|
|
'NLS_CHARSET_NAME,NLS_INITCAP,NLS_LOWER,NLS_SORT,NLS_UPPER,NLSSORT,NTILE,' +
|
|
'NULLIF,NUMTODSINTERVAL,NUMTOYMINTERVAL,NVARRAY_FIND_NAME,' +
|
|
'NVARRAY_FIND_NAME_TYPE,NVARRAY_GET,NVARRAY_GET_BOOLEAN,NVARRAY_GET_BYTE,' +
|
|
'NVARRAY_GET_DATE,NVARRAY_GET_DOUBLE,NVARRAY_GET_FLOAT,' +
|
|
'NVARRAY_GET_INTEGER,NVARRAY_GET_LONG,NVARRAY_GET_RAW,NVARRAY_GET_SHORT,' +
|
|
'NVARRAY_GET_TEXT,NVL,NVL2,OBJECT,OPEN_CURSOR,OVER,OVERLAY,PATH,' +
|
|
'PAUSE_PROFILER,PERCENT_RANK,PERCENTILE_CONT,PERCENTILE_DISC,PMARKER,' +
|
|
'PORT_STRING,POWER,PURGE,PUSH,PUT_RAW,QUOTED_PRINTABLE_DECODE,' +
|
|
'QUOTED_PRINTABLE_ENCODE,RANDOM,RANK,RATIO_TO_REPORT,RATION_TO_REPORT,' +
|
|
'RAWTOHEX,RAWTONHEX,RECEIVE_MESSAGE,REFERENCE,REFTOHEX,REGR_AVGX,' +
|
|
'REGR_AVGY,REGR_COUNT,REGR_INTERCEPT,REGR_R2,REGR_SLOPE,REGR_SXX,' +
|
|
'REGR_SXY,REGR_SYY,REGRESSION,REMOVE_PIPE,REPLACE,REPLICATION_IS_ON,' +
|
|
'REQUEST,REQUEST_PIECES,RESTORE,RESUME_PROFILER,RETURNING,ROLLUP,ROUND,' +
|
|
'ROW_NUMBER,ROWID_BLOCK_NUMBER,ROWID_CREATE,ROWID_OBJECT,' +
|
|
'ROWID_RELATIVE_FNO,ROWID_ROW_NUMBER,ROWID_TO_ABSOLUTE_FNO,' +
|
|
'ROWID_TO_EXTENDED,ROWID_TO_RESTRICTED,ROWID_TYPE,ROWID_VERIFY,' +
|
|
'ROWIDTOCHAR,ROWIDTONCHAR,RPAD,RTRIM,SEND_MESSAGE,SESSIONTIMEZONE,' +
|
|
'SET_BREAKPOINT,SET_OER_BREAKPOINT,SET_TIMEOUT,SET_VALUE,SIGN,SIN,SINH,' +
|
|
'SOUNDEX,SPACE_ERROR_INFO,SQLCODE,SQLERRM,SQRT,START_PROFILER,STDDEV,' +
|
|
'STDDEV_POP,STDDEV_SAMP,STDDEVP,STDDEVS,STEP_ID,STOP_PROFILER,SUBSTR,' +
|
|
'SUBSTRB,SUM,SYNCHRONIZE,SYS_CONNECT_BY_PATH,SYS_CONTEXT,SYS_DBURIGEN,' +
|
|
'SYS_EXTRACT_UTC,SYS_GUID,SYS_TYPEID,SYS_XMLAGG,SYS_XMLGEN,SYSDATE,' +
|
|
'SYSTIMESTAMP,TAN,TANH,TO_CHAR,TO_CLOB,TO_DATE,TO_DSINTERVAL,TO_LABEL,' +
|
|
'TO_LOB,TO_MULTI_BYTE,TO_NCHAR,TO_NCLOB,TO_NUMBER,TO_SINGLE_BYTE,' +
|
|
'TO_TIMESTAMP,TO_TIMESTAMP_TZ,TO_YMINTERVAL,TRANSLATE,TRANSLITERATE,' +
|
|
'TREAT,TRIM,TRUNC,TZ_OFFSET,UID,UNDER_PATH,UNESCAPE,UNIQUE_SESSION_ID,' +
|
|
'UNIQUE_SESSION_NAME,UNISTR,UPDATEXML,UPPER,USER,USERENV,USING,UUDECODE,' +
|
|
'UUENCODE,VALUE,VAR_POP,VAR_SAMP,VARIANCE,VARP,VARS,VSIZE,WIDTH_BUCKET,' +
|
|
'XMLAGG,XMLCOLATTVAL,XMLCONCAT,XMLELEMENT,XMLFOREST,XMLSEQUENCE,' +
|
|
'XMLTRANSFORM,XRANGE';
|
|
|
|
OracleDefaultPackages: string =
|
|
'DBMS_ALERT,DBMS_APPLICATION_INFO,DBMS_APPLY_ADM,DBMS_AQ,' +
|
|
'DBMS_AQ_EXP_HISTORY_TABLES,DBMS_AQ_EXP_INDEX_TABLES,' +
|
|
'DBMS_AQ_EXP_QUEUE_TABLES,DBMS_AQ_EXP_QUEUES,' +
|
|
'DBMS_AQ_EXP_SUBSCRIBER_TABLES,DBMS_AQ_EXP_TIMEMGR_TABLES,' +
|
|
'DBMS_AQ_EXP_ZECURITY,DBMS_AQ_IMP_INTERNAL,DBMS_AQ_IMP_ZECURITY,' +
|
|
'DBMS_AQ_IMPORT_INTERNAL,DBMS_AQ_SYS_EXP_ACTIONS,' +
|
|
'DBMS_AQ_SYS_EXP_INTERNAL,DBMS_AQ_SYS_IMP_INTERNAL,DBMS_AQADM,' +
|
|
'DBMS_AQADM_SYS,DBMS_AQADM_SYSCALLS,DBMS_AQELM,DBMS_AQIN,' +
|
|
'DBMS_AQJMS,DBMS_BACKUP_RESTORE,DBMS_CAPTURE_ADM,DBMS_DDL,' +
|
|
'DBMS_DEBUG,DBMS_DEFER,DBMS_DEFER_IMPORT_INTERNAL,DBMS_DEFER_QUERY,' +
|
|
'DBMS_DEFER_SYS,DBMS_DESCRIBE,DBMS_DISTRIBUTED_TRUST_ADMIN,' +
|
|
'DBMS_EXPORT_EXTENSION,DBMS_FGA,DBMS_FLASHBACK,DBMS_HS_PASSTHROUGH,' +
|
|
'DBMS_IJOB,DBMS_INTERNAL_TRIGGER,DBMS_IOT,DBMS_IREFRESH,DBMS_ISNAPSHOT,' +
|
|
'DBMS_JAVA_TEST,DBMS_JOB,DBMS_LDAP,DBMS_LIBCACHE,DBMS_LOB,DBMS_LOCK,' +
|
|
'DBMS_LOGMNR,DBMS_LOGMNR_CDC_PUBLISH,DBMS_LOGMNR_CDC_SUBSCRIBE,' +
|
|
'DBMS_LOGMNR_D,DBMS_LOGSTDBY,DBMS_METADATA,DBMS_MGWADM,' +
|
|
'DBMS_MGWMSG,DBMS_MVIEW,DBMS_OBFUSCATION_TOOLKIT,DBMS_ODCI,' +
|
|
'DBMS_OFFLINE_OG,DBMS_OFFLINE_SNAPSHOT,DBMS_OLAP,' +
|
|
'DBMS_ORACLE_TRACE_AGENT,DBMS_ORACLE_TRACE_USER,DBMS_OUTLN,' +
|
|
'DBMS_OUTLN_EDIT,DBMS_OUTPUT,DBMS_PCLXUTIL,DBMS_PICKLER,DBMS_PIPE,' +
|
|
'DBMS_PITR,DBMS_PLUGTS,DBMS_PROFILER,DBMS_PROPAGATION_ADM,' +
|
|
'DBMS_PRVTAQIM,DBMS_PRVTAQIP,DBMS_PRVTAQIS,DBMS_PRVTRMIE,DBMS_PSP,' +
|
|
'DBMS_PSWMG_IMPORT,DBMS_RANDOM,DBMS_RCVMAN,DBMS_RECTIFIER_DIFF,' +
|
|
'DBMS_REDEFINITION,DBMS_REFRESH,DBMS_REFRESH_EXP_LWM,' +
|
|
'DBMS_REFRESH_EXP_SITES,DBMS_REPAIR,DBMS_REPCAT,DBMS_REPCAT_ADMIN,' +
|
|
'DBMS_REPCAT_AUTH,DBMS_REPCAT_INSTANTIATE,DBMS_REPCAT_RGT,DBMS_REPUTIL,' +
|
|
'DBMS_RESOURCE_MANAGER,DBMS_RESOURCE_MANAGER_PRIVS,DBMS_RESUMABLE,' +
|
|
'DBMS_RLS,DBMS_RMGR_GROUP_EXPORT,DBMS_RMGR_PACT_EXPORT,' +
|
|
'DBMS_RMGR_PLAN_EXPORT,DBMS_RMIN,DBMS_ROWID,DBMS_RULE,DBMS_RULE_ADM,' +
|
|
'DBMS_RULE_EXIMP,DBMS_SESSION,DBMS_SHARED_POOL,DBMS_SNAP_INTERNAL,' +
|
|
'DBMS_SNAP_REPAPI,DBMS_SNAPSHOT,DBMS_SNAPSHOT_UTL,DBMS_SPACE,' +
|
|
'DBMS_SPACE_ADMIN,DBMS_SQL,DBMS_STANDARD,DBMS_STATS,DBMS_STORAGE_MAP,' +
|
|
'DBMS_STREAMS,DBMS_STREAMS_ADM,DBMS_SUMADV,DBMS_SUMMARY,' +
|
|
'DBMS_SUMREF_CHILD,DBMS_SUMREF_PARENT,DBMS_SUMREF_UTIL,' +
|
|
'DBMS_SUMREF_UTIL2,DBMS_SUMVDM,DBMS_SYS_ERROR,DBMS_SYS_SQL,' +
|
|
'DBMS_SYSTEM,DBMS_TRACE,DBMS_TRANSACTION,DBMS_TRANSFORM,DBMS_TTS,' +
|
|
'DBMS_TYPES,DBMS_UTILITY,DBMS_WM,DBMS_XDB,DBMS_XDB_VERSION,DBMS_XDBT,' +
|
|
'DBMS_XMLDOM,DBMS_XMLGEN,DBMS_XMLPARSER,DBMS_XMLQUERY,' +
|
|
'DBMS_XMLSAVE,DBMS_XPLAN,DBMS_XSLPROCESSOR,DBMS_ZHELP,DBMS_ZHELP_IR,' +
|
|
'DBMSZEXP_SYSPKGGRNT,DEBUG_EXTPROC,DIANA,DIUTIL,ODCICONST,OUTLN_PKG,' +
|
|
'PBREAK,PBRPH,PBSDE,PBUTL,PIDL,PLITBLM,SDO_CS,SDO_GEOM,SDO_LRS,' +
|
|
'SDO_MIGRATE,SDO_TUNE,SDO_UTIL,STANDARD,SYS_STUB_FOR_PURITY_ANALYSIS,' +
|
|
'UTL_COLL,UTL_ENCODE,UTL_FILE,UTL_FILE_DIR,UTL_HTTP,UTL_INADDR,UTL_PG,' +
|
|
'UTL_RAW,UTL_REF,UTL_SMTP,UTL_TCP,UTL_URL';
|
|
|
|
OracleSQLPlusCommands: string =
|
|
'APP,APPINFO,AQ$_AGENT,AQ$_AGENT_LIST_T,AQ$_DESCRIPTOR,AQ$_POST_INFO,' +
|
|
'AQ$_POST_INFO_LIST,AQ$_RECIPIENT_LIST_T,AQ$_REG_INFO,AQ$_REG_INFO_LIST,' +
|
|
'AQ$_SUBSCRIBER_LIST_T,ARCHIVE,ARRAYSIZE,ATTRIBUTE,AUTOCOMMIT,AUTOP,' +
|
|
'AUTOPRINT,AUTORECOVERY,AUTOT,AUTOTRACE,BLO,BLOCKTERMINATOR,BRE,BREAK,' +
|
|
'BTI,BTITLE,BUFFER,CL,CLEAR,CLOSECURSOR,CMDS,CMDSEP,COL,COLSEP,COM,COMP,' +
|
|
'COMPAT,COMPATIBILITY,CON,CONN,COPY,COPYC,COPYCOMMIT,COPYTYPECHECK,DEF,' +
|
|
'DEFINE,DESC,DESCR,DESCRI,DESCRIB,DESCRIBE,DISC,DISCO,DISCON,DISCONN,' +
|
|
'DISCONNE,DISCONNEC,DISCONNECT,EA,ECHO,EDITF,EDITFILE,EMB,' +
|
|
'EMBEDDED,ESC,EXEC,EXECUTE,FAILURE,FEED,FEEDBACK,FLAGGER,FLU,FULL,GET,' +
|
|
'HEA,HEADING,HEADS,HEADSEP,HELP,HO,HOST,INPUT,INTERMED,INTERMEDIATE,INV,' +
|
|
'INVISIBLE,LIN,LINESIZE,LO,LOBOF,LOBOFFSET,LOGON,LOGSOURCE,LONGC,' +
|
|
'LONGCHUNKSIZE,MARKUP,MAXDATA,MIX,MIXED,NATIVE,NEWP,NEWPAGE,NUM,' +
|
|
'NUMF,NUMFORMAT,NUMWIDTH,OFF,OSERROR,PAGES,PAGESIZE,PASSW,PAU,PAUSE,' +
|
|
'PPRINT,PRI,PRINT,PROMPT,RECSEP,RECSEPCHAR,REPF,REPFOOTER,REPH,REPHEADER,' +
|
|
'RUN,SAVE,SCAN,SERVEROUTPUT,SET,SHIFT,SHIFTINOUT,SHO,SHOW,SHUTDOWN,' +
|
|
'SILENT,SPOOL,SQLBL,SQLBLANKLINES,SQLC,SQLCASE,SQLCO,SQLCONTINUE,SQLN,' +
|
|
'SQLNUMBER,SQLP,SQLPRE,SQLPREFIX,SQLPROMPT,SQLT,SQLTERMINATOR,STA,' +
|
|
'STARTUP,STATEMENT_ID,STORE,SUCCESS,SUF,SUFFIX,TAB,TERM,TERMOUT,TI,TIMI,' +
|
|
'TIMING,TRIMOUT,TRIMS,TRIMSPOOL,TTI,TTITLE,UND,UNDEF,UNDEFINE,' +
|
|
'UNDERLINE,UP,VAR,VARIABLE,VER,VERIFY,VERSION,VIS,VISIBLE,WHENEVER,WR,' +
|
|
'WRA,WRAP,WRAPPED';
|
|
|
|
OracleCommentKW: string =
|
|
'REM,REMA,REMAR,REMARK';
|
|
|
|
//---MS-SQL 7-------------------------------------------------------------------
|
|
// keywords
|
|
MSSQL7KW: string =
|
|
'ABSOLUTE,ADD,ALL,ALTER,ANY,AS,ASC,AUTHORIZATION,AVG,BACKUP,BEGIN,' +
|
|
'BETWEEN,BREAK,BROWSE,BULK,BY,CASCADE,CHECK,CHECKPOINT,CLOSE,CLUSTERED,' +
|
|
'COLUMN,COMMIT,COMMITTED,COMPUTE,CONFIRM,CONSTRAINT,CONTAINS,' +
|
|
'CONTAINSTABLE,CONTINUE,CONTROLROW,COUNT,CREATE,CROSS,CURRENT,' +
|
|
'CURRENT_DATE,CURRENT_TIME,CURSOR,DATABASE,DBCC,DEALLOCATE,DECLARE,' +
|
|
'DEFAULT,DELETE,DENY,DESC,DISK,DISTINCT,DISTRIBUTED,DOUBLE,DROP,DUMMY,' +
|
|
'DUMP,ELSE,END,ERRLVL,ERROREXIT,ESCAPE,EXCEPT,EXEC,EXECUTE,EXISTS,EXIT,' +
|
|
'FETCH,FILE,FILLFACTOR,FIRST,FLOPPY,FOR,FOREIGN,FREETEXT,FREETEXTTABLE,' +
|
|
'FROM,FULL,GLOBAL,GOTO,GRANT,GROUP,HAVING,HOLDLOCK,IDENTITY,IDENTITYCOL,' +
|
|
'IDENTITY_INSERT,IF,IN,INDEX,INNER,INSERT,INTERSECT,INTO,IS,ISOLATION,' +
|
|
'JOIN,KEY,KILL,LAST,LEFT,LEVEL,LIKE,LINENO,LOAD,MAX,MIN,MIRROREXIT,' +
|
|
'NATIONAL,NEXT,NOCHECK,NONCLUSTERED,NOT,NULL,OF,OFF,OFFSETS,ON,ONCE,' +
|
|
'ONLY,OPEN,OPENDATASOURCE,OPENQUERY,OPENROWSET,OPTION,OR,ORDER,OUTER,' +
|
|
'OVER,PERCENT,PERM,PERMANENT,PIPE,PLAN,PRECISION,PREPARE,PRIMARY,PRINT,' +
|
|
'PRIOR,PRIVILEGES,PROC,PROCEDURE,PROCESSEXIT,PUBLIC,RAISERROR,READ,' +
|
|
'READTEXT,RECONFIGURE,REFERENCES,RELATIVE,REPEATABLE,REPLICATION,RESTORE,' +
|
|
'RESTRICT,RETURN,REVOKE,RIGHT,ROLLBACK,ROWCOUNT,ROWGUIDCOL,RULE,SAVE,' +
|
|
'SCHEMA,SELECT,SERIALIZABLE,SET,SETUSER,SHUTDOWN,SOME,STATISTICS,SUM,' +
|
|
'TABLE,TAPE,TEMP,TEMPORARY,TEXTSIZE,THEN,TO,TOP,TRAN,TRANSACTION,TRIGGER,' +
|
|
'TRUNCATE,TSEQUAL,UNCOMMITTED,UNION,UNIQUE,UPDATE,UPDATETEXT,USE,USER,' +
|
|
'VALUES,VARYING,VIEW,WAITFOR,WHEN,WHERE,WHILE,WITH,WORK,WRITETEXT';
|
|
|
|
// functions
|
|
MSSQL7Functions: string =
|
|
'@@CONNECTIONS,@@CPU_BUSY,@@CURSOR_ROWS,@@DATEFIRST,@@DBTS,@@ERROR,' +
|
|
'@@FETCH_STATUS,@@IDENTITY,@@IDLE,@@IO_BUSY,@@LANGID,@@LANGUAGE,' +
|
|
'@@LOCK_TIMEOUT,@@MAX_CONNECTIONS,@@MAX_PRECISION,@@NESTLEVEL,@@OPTIONS,' +
|
|
'@@PACKET_ERRORS,@@PACK_RECEIVED,@@PACK_SENT,@@PROCID,@@REMSERVER,' +
|
|
'@@ROWCOUNT,@@SERVERNAME,@@SERVICENAME,@@SPID,@@TEXTSIZE,@@TIMETICKS,' +
|
|
'@@TOTAL_ERRORS,@@TOTAL_READ,@@TOTAL_WRITE,@@TRANCOUNT,@@VERSION,ABS,' +
|
|
'ACOS,AND,APP_NAME,ASCII,ASIN,ATAN,ATN2,CASE,CAST,CEILING,CHARINDEX,' +
|
|
'COALESCE,COLUMNPROPERTY,COL_LENGTH,COL_NAME,CONVERT,COS,COT,' +
|
|
'CURRENT_TIMESTAMP,CURRENT_USER,CURSOR_STATUS,DATABASEPROPERTY,' +
|
|
'DATALENGTH,DATEADD,DATEDIFF,DATENAME,DATEPART,DAY,DB_ID,DB_NAME,' +
|
|
'DEGREES,DIFFERENCE,EXP,FILEGROUPPROPERTY,FILEGROUP_ID,FILEGROUP_NAME,' +
|
|
'FILEPROPERTY,FILE_ID,FILE_NAME,FLOOR,FORMATMESSAGE,' +
|
|
'FULLTEXTCATALOGPROPERTY,FULLTEXTSERVICEPROPERTY,GETANSINULL,GETDATE,' +
|
|
'HOST_ID,HOST_NAME,IDENT_INCR,IDENT_SEED,INDEXPROPERTY,INDEX_COL,' +
|
|
'ISDATE,ISNULL,ISNUMERIC,IS_MEMBER,IS_SRVROLEMEMBER,LEN,LOG,LOG10,LOWER,' +
|
|
'LTRIM,MONTH,NEWID,NULLIF,OBJECTPROPERTY,OBJECT_ID,OBJECT_NAME,PARSENAME,' +
|
|
'PATINDEX,PERMISSIONS,PI,POWER,QUOTENAME,RADIANS,RAND,REPLACE,REPLICATE,' +
|
|
'REVERSE,ROUND,RTRIM,SESSION_USER,SIGN,SIN,SOUNDEX,SPACE,SQRT,SQUARE,' +
|
|
'STATS_DATE,STR,STUFF,SUBSTRING,SUSER_ID,SUSER_NAME,SUSER_SID,' +
|
|
'SUSER_SNAME,SYSTEM_USER,TAN,TEXTPTR,TEXTVALID,TYPEPROPERTY,UNICODE,' +
|
|
'UPPER,USER_ID,USER_NAME,YEAR';
|
|
|
|
// types
|
|
MSSQL7Types: string =
|
|
'BINARY,BIT,CHAR,DATETIME,DECIMAL,FLOAT,IMAGE,INT,MONEY,NCHAR,NTEXT,' +
|
|
'NUMERIC,NVARCHAR,REAL,SMALLDATETIME,SMALLINT,SMALLMONEY,SYSNAME,TEXT,' +
|
|
'TIMESTAMP,TINYINT,UNIQUEIDENTIFIER,VARBINARY,VARCHAR';
|
|
|
|
//---MS-SQL2K-------------------------------------------------------------------
|
|
// keywords
|
|
MSSQL2000KW =
|
|
'ADD,ALL,ALTER,AND,ANY,AS,ASC,AUTHORIZATION,BACKUP,' +
|
|
'BEGIN,BETWEEN,BREAK,BROWSE,BULK,BY,CASCADE,CASE,' +
|
|
'CHECK,CHECKPOINT,CLOSE,CLUSTERED,COLLATE,' +
|
|
'COLUMN,COMMIT,COMPUTE,CONSTRAINT,CONTAINS,CONTAINSTABLE,' +
|
|
'CONTINUE,CREATE,CROSS,CURRENT,CURSOR,DATABASE,' +
|
|
'DBCC,DEALLOCATE,DECLARE,DEFAULT,DELETE,DENY,DESC,DISK,' +
|
|
'DISTINCT,DISTRIBUTED,DOUBLE,DROP,DUMMY,DUMP,ELSE,END,' +
|
|
'ERRLVL,ESCAPE,EXCEPT,EXEC,EXECUTE,EXISTS,EXIT,FETCH,FILE,' +
|
|
'FILLFACTOR,FOR,FOREIGN,FORMSOF,FREETEXT,FREETEXTTABLE,FROM,FULL,' +
|
|
'FUNCTION,GOTO,GRANT,GROUP,HAVING,HOLDLOCK,IDENTITY,' +
|
|
'IDENTITYCOL,IDENTITY_INSERT,IF,IN,INFLECTIONAL,INDEX,INNER,INSERT,' +
|
|
'INTERSECT,INTO,IS,ISABOUT,JOIN,KEY,KILL,LEFT,LIKE,LINENO,LOAD,' +
|
|
'NATIONAL,NOCHECK,NONCLUSTERED,NOT,NULL,NULLIF,OF,OFF,' +
|
|
'OFFSETS,ON,OPEN,OPENDATASOURCE,OPENQUERY,OPENROWSET,OPENXML,' +
|
|
'OPTION,OR,ORDER,OUTER,OVER,PERCENT,PLAN,PRECISION,' +
|
|
'PRIMARY,PRINT,PROC,PROCEDURE,PUBLIC,RAISERROR,READ,' +
|
|
'READTEXT,RECONFIGURE,REFERENCES,REPLICATION,RESTORE,' +
|
|
'RESTRICT,RETURN,REVOKE,RIGHT,ROLLBACK,ROWCOUNT,ROWGUIDCOL,' +
|
|
'RULE,SAVE,SCHEMA,SELECT,SESSION_USER,SET,SETUSER,SHUTDOWN,' +
|
|
'SOME,STATISTICS,TABLE,TEXTSIZE,THEN,TO,TOP,TRAN,TRANSACTION,' +
|
|
'TRIGGER,TRUNCATE,TSEQUAL,UNION,UNIQUE,UPDATE,UPDATETEXT,' +
|
|
'USE,USER,VALUES,VARYING,VIEW,WAITFOR,WEIGHT,WHEN,WHERE,WHILE,' +
|
|
'WITH,WRITETEXT';
|
|
|
|
// functions
|
|
MSSQL2000Functions =
|
|
'@@CONNECTIONS,@@CPU_BUSY,@@CURSOR_ROWS,@@DATEFIRST,@@DBTS,@@ERROR,' +
|
|
'@@FETCH_STATUS,@@IDENTITY,@@IDLE,@@IO_BUSY,@@LANGID,@@LANGUAGE,' +
|
|
'@@LOCK_TIMEOUT,@@MAX_CONNECTIONS,@@MAX_PRECISION,@@NESTLEVEL,@@OPTIONS,' +
|
|
'@@PACKET_ERRORS,@@PACK_RECEIVED,@@PACK_SENT,@@PROCID,@@REMSERVER,' +
|
|
'@@ROWCOUNT,@@SERVERNAME,@@SERVICENAME,@@SPID,@@TEXTSIZE,@@TIMETICKS,' +
|
|
'@@TOTAL_ERRORS,@@TOTAL_READ,@@TOTAL_WRITE,@@TRANCOUNT,@@VERSION,' +
|
|
'ABS,ACOS,APP_NAME,ASCII,ASIN,ATAN,ATN2,AVG,BINARY_CHECKSUM,CAST,' +
|
|
'CEILING,CHARINDEX,CHECKSUM,CHECKSUM_AGG,COALESCE,COLLATIONPROPERTY,' +
|
|
'COLUMNPROPERTY,COL_LENGTH,COL_NAME,CONVERT,COS,COT,COUNT,' +
|
|
'COUNT_BIG,CURRENT_DATE,CURRENT_TIME,CURRENT_TIMESTAMP,' +
|
|
'CURRENT_USER,CURSOR_STATUS,DATABASEPROPERTY,DATABASEPROPERTYEX,' +
|
|
'DATALENGTH,DATEADD,DATEDIFF,DATENAME,DATEPART,DAY,DB_ID,DB_NAME,DEGREES,' +
|
|
'DIFFERENCE,EXP,FILEGROUPPROPERTY,FILEGROUP_ID,FILEGROUP_NAME,' +
|
|
'FILEPROPERTY,FILE_ID,FILE_NAME,FLOOR,fn_helpcollations,' +
|
|
'fn_listextendedproperty,fn_servershareddrives,fn_trace_geteventinfo,' +
|
|
'fn_trace_getfilterinfo,fn_trace_getinfo,fn_trace_gettable,' +
|
|
'fn_virtualfilestats,FORMATMESSAGE,FULLTEXTCATALOGPROPERTY,' +
|
|
'FULLTEXTSERVICEPROPERTY,GETANSINULL,GETDATE,GETUTCDATE,GROUPING,' +
|
|
'HAS_DBACCESS,HOST_ID,HOST_NAME,IDENT_CURRENT,IDENT_INCR,IDENT_SEED,' +
|
|
'INDEXKEY_PROPERTY,INDEXPROPERTY,INDEX_COL,ISDATE,ISNULL,ISNUMERIC,' +
|
|
'IS_MEMBER,IS_SRVROLEMEMBER,LEN,LOG,LOG10,LOWER,LTRIM,MAX,MIN,MONTH,' +
|
|
'NEWID,OBJECTPROPERTY,OBJECT_ID,OBJECT_NAME,PARSENAME,PATINDEX,' +
|
|
'PERMISSIONS,PI,POWER,QUOTENAME,RADIANS,RAND,REPLACE,REPLICATE,REVERSE,' +
|
|
'ROUND,ROWCOUNT_BIG,RTRIM,SCOPE_IDENTITY,SERVERPROPERTY,SESSIONPROPERTY,' +
|
|
'SIGN,SIN,SOUNDEX,SPACE,SQL_VARIANT_PROPERTY,SQRT,SQUARE,' +
|
|
'STATS_DATE,STDEV,STDEVP,STR,STUFF,SUBSTRING,SUM,SUSER_SID,SUSER_SNAME,' +
|
|
'SYSTEM_USER,TAN,TEXTPTR,TEXTVALID,TYPEPROPERTY,UNICODE,UPPER,' +
|
|
'USER_ID,USER_NAME,VAR,VARP,YEAR';
|
|
|
|
// types
|
|
MSSQL2000Types =
|
|
'bigint,binary,bit,char,character,datetime,' +
|
|
'dec,decimal,float,image,int,' +
|
|
'integer,money,nchar,ntext,numeric,nvarchar,real,' +
|
|
'rowversion,smalldatetime,smallint,smallmoney,' +
|
|
'sql_variant,sysname,text,timestamp,tinyint,uniqueidentifier,' +
|
|
'varbinary,varchar';
|
|
|
|
//---Interbase 6----------------------------------------------------------------
|
|
// functions
|
|
Interbase6Functions = 'AVG,CAST,COUNT,GEN_ID,MAX,MIN,SUM,UPPER';
|
|
|
|
// keywords
|
|
Interbase6KW: string = 'ACTIVE,ADD,AFTER,ALL,ALTER,AND,ANY,AS,ASC,' +
|
|
'ASCENDING,AT,AUTO,AUTODDL,BASED,BASENAME,BASE_NAME,BEFORE,BEGIN,BETWEEN,' +
|
|
'BLOBEDIT,BUFFER,BY,CACHE,CHARACTER_LENGTH,CHAR_LENGTH,CHECK,' +
|
|
'CHECK_POINT_LEN,CHECK_POINT_LENGTH,COLLATE,COLLATION,COLUMN,COMMIT,' +
|
|
'COMMITED,COMPILETIME,COMPUTED,CLOSE,CONDITIONAL,CONNECT,CONSTRAINT,' +
|
|
'CONTAINING,CONTINUE,CREATE,CURRENT,CURRENT_DATE,CURRENT_TIME,' +
|
|
'CURRENT_TIMESTAMP,CURSOR,DATABASE,DAY,DB_KEY,DEBUG,DEC,DECLARE,DEFAULT,' +
|
|
'DELETE,DESC,DESCENDING,DESCRIBE,DESCRIPTOR,DISCONNECT,DISTINCT,DO,' +
|
|
'DOMAIN,DROP,ECHO,EDIT,ELSE,END,ENTRY_POINT,ESCAPE,EVENT,EXCEPTION,' +
|
|
'EXECUTE,EXISTS,EXIT,EXTERN,EXTERNAL,EXTRACT,FETCH,FILE,FILTER,FOR,' +
|
|
'FOREIGN,FOUND,FROM,FULL,FUNCTION,GDSCODE,GENERATOR,GLOBAL,GOTO,GRANT,' +
|
|
'GROUP,GROUP_COMMIT_WAIT,GROUP_COMMIT_WAIT_TIME,HAVING,HELP,HOUR,IF,' +
|
|
'IMMEDIATE,IN,INACTIVE,INDEX,INDICATOR,INIT,INNER,INPUT,INPUT_TYPE,' +
|
|
'INSERT,INT,INTO,IS,ISOLATION,ISQL,JOIN,KEY,LC_MESSAGES,LC_TYPE,LEFT,' +
|
|
'LENGTH,LEV,LEVEL,LIKE,LOGFILE,LOG_BUFFER_SIZE,LOG_BUF_SIZE,LONG,MANUAL,' +
|
|
'MAXIMUM,MAXIMUM_SEGMENT,MAX_SEGMENT,MERGE,MESSAGE,MINIMUM,MINUTE,' +
|
|
'MODULE_NAME,MONTH,NAMES,NATIONAL,NATURAL,NCHAR,NO,NOAUTO,NOT,NULL,' +
|
|
'NUM_LOG_BUFFS,NUM_LOG_BUFFERS,OCTET_LENGTH,OF,ON,ONLY,OPEN,OPTION,OR,' +
|
|
'ORDER,OUTER,OUTPUT,OUTPUT_TYPE,OVERFLOW,PAGE,PAGELENGTH,PAGES,PAGE_SIZE,' +
|
|
'PARAMETER,PASSWORD,PLAN,POSITION,POST_EVENT,PRECISION,PREPARE,PROCEDURE,' +
|
|
'PROTECTED,PRIMARY,PRIVILEGES,PUBLIC,QUIT,RAW_PARTITIONS,READ,REAL,' +
|
|
'RECORD_VERSION,REFERENCES,RELEASE,RESERV,RESERVING,RETAIN,RETURN,' +
|
|
'RETURNING_VALUES,RETURNS,REVOKE,RIGHT,ROLLBACK,RUNTIME,SCHEMA,SECOND,' +
|
|
'SEGMENT,SELECT,SET,SHADOW,SHARED,SHELL,SHOW,SINGULAR,SIZE,SNAPSHOT,SOME,' +
|
|
'SORT,SQL,SQLCODE,SQLERROR,SQLWARNING,STABILITY,STARTING,STARTS,' +
|
|
'STATEMENT,STATIC,STATISTICS,SUB_TYPE,SUSPEND,TABLE,TERMINATOR,THEN,TO,' +
|
|
'TRANSACTION,TRANSLATE,TRANSLATION,TRIGGER,TRIM,TYPE,UNCOMMITTED,UNION,' +
|
|
'UNIQUE,UPDATE,USER,USING,VALUE,VALUES,VARIABLE,VARYING,VERSION,VIEW,' +
|
|
'WAIT,WEEKDAY,WHEN,WHENEVER,WHERE,WHILE,WITH,WORK,WRITE,YEAR,YEARDAY';
|
|
|
|
// types
|
|
Interbase6Types = 'BLOB,CHAR,CHARACTER,DATE,DECIMAL,DOUBLE,FLOAT,INTEGER,' +
|
|
'NUMERIC,SMALLINT,TIME,TIMESTAMP,VARCHAR';
|
|
|
|
//---MySQL----------------------------------------------------------------------
|
|
// keywords
|
|
MySqlKW: String =
|
|
'ACTION,AFTER,AGAINST,AGGREGATE,ALGORITHM,ALL,ALTER,ANALYZE,AND,ANY,AS,' +
|
|
'ASC,AT,AUTO_INCREMENT,AVG_ROW_LENGTH,BACKUP,BEFORE,BEGIN,BENCHMARK,BETWEEN,BINLOG,BIT,' +
|
|
'BOOL,BOTH,BY,CACHE,CALL,CASCADE,CASCADED,CHANGE,CHARACTER,CHARSET,CHECK,' +
|
|
'CHECKSUM,CLIENT,COLLATE,COLLATION,COLUMN,COLUMNS,COMMENT,COMMIT,' +
|
|
'COMMITTED,COMPLETION,CONCURRENT,CONNECTION,CONSISTENT,CONSTRAINT,' +
|
|
'CONVERT,CONTAINS,CONTENTS,CREATE,CROSS,DATA,DATABASE,DATABASES,' +
|
|
'DEALLOCATE,DEC,DEFAULT,DEFINER,DELAYED,DELAY_KEY_WRITE,DELETE,DESC,' +
|
|
'DETERMINISTIC,DIRECTORY,DISABLE,DISCARD,DESCRIBE,DISTINCT,DISTINCTROW,' +
|
|
'DIV,DROP,DUAL,DUMPFILE,DUPLICATE,EACH,ELSE,ENABLE,ENCLOSED,END,ENDS,' +
|
|
'ENGINE,ENGINES,ESCAPE,ESCAPED,ERRORS,EVENT,EVENTS,EVERY,EXECUTE,EXISTS,' +
|
|
'EXPANSION,EXPLAIN,FALSE,FIELDS,FILE,FIRST,FLUSH,FOR,FORCE,FOREIGN,FROM,' +
|
|
'FULL,FULLTEXT,FUNCTION,FUNCTIONS,GLOBAL,GRANT,GRANTS,GROUP,HAVING,HELP,' +
|
|
'HIGH_PRIORITY,HOSTS,IDENTIFIED,IGNORE,INDEX,INFILE,INNER,INSERT,' +
|
|
'INSERT_METHOD,INSTALL,INT1,INT2,INT3,INT4,INT8,INTO,IO_THREAD,IS,' +
|
|
'ISOLATION,INVOKER,JOIN,KEY,KEYS,KILL,LAST,LEADING,LEAVES,LEVEL,LESS,' +
|
|
'LIKE,LIMIT,LINEAR,LINES,LIST,LOAD,LOCAL,LOCK,LOGS,LONG,LOW_PRIORITY,' +
|
|
'MASTER,MASTER_HOST,MASTER_LOG_FILE,MASTER_LOG_POS,MASTER_CONNECT_RETRY,' +
|
|
'MASTER_PASSWORD,MASTER_PORT,MASTER_SSL,MASTER_SSL_CA,MASTER_SSL_CAPATH,' +
|
|
'MASTER_SSL_CERT,MASTER_SSL_CIPHER,MASTER_SSL_KEY,MASTER_USER,MATCH,' +
|
|
'MAX_ROWS,MAXVALUE,MIDDLEINT,MIN_ROWS,MOD,MODE,MODIFY,MODIFIES,NAMES,' +
|
|
'NATURAL,NEW,NO,NODEGROUP,NOT,NULL,OJ,OFFSET,OLD,ON,OPTIMIZE,OPTION,' +
|
|
'OPTIONALLY,OPEN,OR,ORDER,OUTER,OUTFILE,PACK_KEYS,PARTIAL,PARTITION,' +
|
|
'PARTITIONS,PLUGIN,PLUGINS,PREPARE,PRESERVE,PRIMARY,PRIVILEGES,PROCEDURE,' +
|
|
'PROCESS,PROCESSLIST,QUERY,RAID_CHUNKS,RAID_CHUNKSIZE,RAID_TYPE,RANGE,' +
|
|
'READ,REBUILD,REFERENCES,REGEXP,RELAY_LOG_FILE,RELAY_LOG_POS,RELOAD,' +
|
|
'RENAME,REORGANIZE,REPAIR,REPEATABLE,REPLACE,REPLICATION,RESTRICT,RESET,' +
|
|
'RESTORE,RETURN,RETURNS,REVOKE,RLIKE,ROLLBACK,ROLLUP,ROUTINE,ROW,' +
|
|
'ROW_FORMAT,ROWS,SAVEPOINT,SCHEDULE,SCHEMA,SCHEMAS,SECURITY,SELECT,' +
|
|
'SERIALIZABLE,SESSION,SET,SHARE,SHOW,SHUTDOWN,SIMPLE,SLAVE,SNAPSHOT,' +
|
|
'SONAME,SQL,SQL_BIG_RESULT,SQL_BUFFER_RESULT,SQL_CACHE,' +
|
|
'SQL_CALC_FOUND_ROWS,SQL_NO_CACHE,SQL_SMALL_RESULT,SQL_THREAD,START,' +
|
|
'STARTING,STARTS,STATUS,STOP,STORAGE,STRAIGHT_JOIN,SUBPARTITION,' +
|
|
'SUBPARTITIONS,SUPER,TABLE,TABLES,TABLESPACE,TEMPORARY,TERMINATED,THAN,' +
|
|
'THEN,TO,TRAILING,TRANSACTION,TRIGGER,TRIGGERS,TRUE,TYPE,UNCOMMITTED,' +
|
|
'UNINSTALL,UNIQUE,UNLOCK,UPDATE,UPGRADE,UNION,USAGE,USE,USING,VALUES,' +
|
|
'VARIABLES,VARYING,VIEW,WARNINGS,WHERE,WITH,WORK,WRITE';
|
|
|
|
MySQLTypes: String =
|
|
|
|
// Table Engines
|
|
'ARCHIVE,BDB,BERKELEYDB,BLACKHOLE,CSV,EXAMPLE,FEDERATED,HEAP,INNOBASE,' +
|
|
'InnoDB,ISAM,MEMORY,MERGE,MRG_ISAM,MRG_MYISAM,MyISAM,NDB,NDBCLUSTER,' +
|
|
|
|
// Index Types
|
|
'BTREE,HASH,' +
|
|
|
|
// Column Types
|
|
'bigint,blob,char,date,datetime,decimal,double,enum,float,' +
|
|
'geometry,geometrycollection,int,integer,linestring,longblob,longtext,' +
|
|
'mediumblob,mediumint,mediumtext,multilinestring,multipoint,multipolygon,' +
|
|
'national,numeric,point,polygon,precision,real,serial,signed,smallint,' +
|
|
'string,text,time,timestamp,tinyblob,tinyint,tinytext,unicode,unsigned,' +
|
|
'varbinary,varchar,year,zerofill,' +
|
|
|
|
// Row Formats
|
|
'COMPACT,COMPRESSED,DYNAMIC,FIXED,REDUNDANT,' +
|
|
|
|
// Raid Types
|
|
'RAID0,STRIPED,' +
|
|
|
|
// View Algorythm
|
|
'UNDEFINED,TEMPTABLE,' +
|
|
|
|
// Charsets
|
|
'armscii8,big5,binary,cp1250,cp1251,cp1256,cp1257,cp850,cp852,cp866,' +
|
|
'cp932,croat,czech,danish,dec8,dos,estonia,eucjpms,euckr,euc_kr,gb2312,' +
|
|
'gbk,geostd8,german1,greek,hp8,hebrew,hungarian,keybcs2,koi8_ru,koi8_ukr,' +
|
|
'koi8r,koi8u,latin1,latin1_de,latin2,latin5,latin7,macce,macroman,sjis,' +
|
|
'swe7,tis620,ucs2,ujis,usa7,utf8,win1250,win1251,win1251ukr,' +
|
|
|
|
'_armscii8,_big5,_binary,_cp1250,_cp1251,_cp1256,_cp1257,_cp850,_cp852,' +
|
|
'_cp866,_cp932,_croat,_czech,_danish,_dec8,_dos,_estonia,_eucjpms,_euckr,' +
|
|
'_euc_kr,_gb2312,_gbk,_geostd8,_german1,_greek,_hp8,_hebrew,_hungarian,' +
|
|
'_keybcs2,_koi8_ru,_koi8_ukr,_koi8r,_koi8u,_latin1,_latin1_de,_latin2,' +
|
|
'_latin5,_latin7,_macce,_macroman,_sjis,_swe7,_tis620,_ucs2,_ujis,_usa7,' +
|
|
'_utf8,_win1250,_win1251,_win1251ukr,' +
|
|
|
|
// Collations
|
|
'armscii8_bin,armscii8_general_ci,ascii_bin,ascii_general_ci,big5_bin,' +
|
|
'big5_chinese_ci,cp1250_bin,cp1250_croatian_ci,cp1250_czech_cs,' +
|
|
'cp1250_general_ci,cp1250_polish_ci,cp1251_bin,cp1251_bulgarian_ci,' +
|
|
'cp1251_general_ci,cp1251_general_cs,cp1251_ukrainian_ci,cp1256_bin,' +
|
|
'cp1256_general_ci,cp1257_bin,cp1257_general_ci,cp1257_lithuanian_ci,' +
|
|
'cp850_bin,cp850_general_ci,cp852_bin,cp852_general_ci,cp866_bin,' +
|
|
'cp866_general_ci,cp932_bin,cp932_japanese_ci,dec8_bin,dec8_swedish_ci,' +
|
|
'eucjpms_bin,eucjpms_japanese_ci,euckr_bin,euckr_korean_ci,gb2312_bin,' +
|
|
'gb2312_chinese_ci,gbk_bin,gbk_chinese_ci,geostd8_bin,geostd8_general_ci,' +
|
|
'greek_bin,greek_general_ci,hebrew_bin,hebrew_general_ci,hp8_bin,' +
|
|
'hp8_english_ci,keybcs2_bin,keybcs2_general_ci,koi8r_bin,' +
|
|
'koi8r_general_ci,koi8u_bin,koi8u_general_ci,latin1_bin,latin1_danish_ci,' +
|
|
'latin1_general_ci,latin1_general_cs,latin1_german1_ci,latin1_german2_ci,' +
|
|
'latin1_spanish_ci,latin1_swedish_ci,latin2_bin,latin2_croatian_ci,' +
|
|
'latin2_czech_cs,latin2_general_ci,latin2_hungarian_ci,latin5_bin,' +
|
|
'latin5_turkish_ci,latin7_bin,latin7_estonian_cs,latin7_general_ci,' +
|
|
'latin7_general_cs,macce_bin,macce_general_ci,macroman_bin,' +
|
|
'macroman_general_ci,sjis_bin,sjis_japanese_ci,swe7_bin,swe7_swedish_ci,' +
|
|
'tis620_bin,tis620_thai_ci,ucs2_bin,ucs2_czech_ci,ucs2_danish_ci,' +
|
|
'ucs2_esperanto_ci,ucs2_estonian_ci,ucs2_general_ci,ucs2_hungarian_ci,' +
|
|
'ucs2_icelandic_ci,ucs2_latvian_ci,ucs2_lithuanian_ci,ucs2_persian_ci,' +
|
|
'ucs2_polish_ci,ucs2_romanian_ci,ucs2_roman_ci,ucs2_slovak_ci,' +
|
|
'ucs2_slovenian_ci,ucs2_spanish2_ci,ucs2_spanish_ci,ucs2_swedish_ci,' +
|
|
'ucs2_turkish_ci,ucs2_unicode_ci,ujis_bin,ujis_japanese_ci,utf8_bin,' +
|
|
'utf8_czech_ci,utf8_danish_ci,utf8_esperanto_ci,utf8_estonian_ci,' +
|
|
'utf8_general_ci,utf8_hungarian_ci,utf8_icelandic_ci,utf8_latvian_ci,' +
|
|
'utf8_lithuanian_ci,utf8_persian_ci,utf8_polish_ci,utf8_romanian_ci,' +
|
|
'utf8_roman_ci,utf8_slovak_ci,utf8_slovenian_ci,utf8_spanish2_ci,' +
|
|
'utf8_spanish_ci,utf8_swedish_ci,utf8_turkish_ci,utf8_unicode_ci,';
|
|
|
|
// functions
|
|
MySQLFunctions: String =
|
|
'ABS,ACOS,ADD,ADDDATE,ADDTIME,ASCII,ASIN,ATAN,ATAN2,AVG,BIN,BIT_AND,' +
|
|
'BIT_COUNT,BIT_LENGTH,BIT_OR,BIT_XOR,CASE,CAST,CHARACTER_LENGTH,CEILING,' +
|
|
'CHAR_LENGTH,COALESCE,COERCIBILITY,COMPRESS,CONCAT,CONCAT_WS,' +
|
|
'CONNECTION_ID,CONV,CONVERT_TZ,COS,COT,COUNT,CRC32,CURDATE,CURRENT_DATE,' +
|
|
'CURRENT_TIME,CURRENT_TIMESTAMP,CURRENT_USER,CURTIME,DATE_ADD,' +
|
|
'DATE_FORMAT,DATE_SUB,DATEDIFF,DAY,DAYNAME,DAYOFMONTH,DAYOFWEEK,' +
|
|
'DAYOFYEAR,DAY_HOUR,DAY_MINUTE,DAY_SECOND,DECODE,DEGREES,ELT,ENCODE,' +
|
|
'ENCRYPT,EXP,EXPORT_SET,EXTRACT,EXTRACTVALUE,FIELD,FIND_IN_SET,FLOOR,' +
|
|
'FORMAT,FOUND_ROWS,FROM_DAYS,FROM_UNIXTIME,GET_FORMAT,GET_LOCK,GREATEST,' +
|
|
'GROUP_CONCAT,HEX,HOUR,HOUR_MINUTE,HOUR_SECOND,IF,IFNULL,IN,INET_ATON,' +
|
|
'INSERT_ID,INSTR,INTERVAL,ISNULL,IS_FREE_LOCK,IS_USED_LOCK,LAST_DAY,' +
|
|
'LAST_INSERT_ID,LCASE,LEAST,LEFT,LENGTH,LN,LOAD_FILE,LOCALTIME,' +
|
|
'LOCALTIMESTAMP,LOCATE,LOG,LOG10,LOG2,LOWER,LPAD,LTRIM,MAKEDATE,MAKETIME,' +
|
|
'MAKE_SET,MASTER_POS_LOG,MASTER_POS_WAIT,MAX,MD5,MICROSECOND,MID,MIN,' +
|
|
'MINUTE,MINUTE_SECOND,MONTH,MONTHNAME,NOW,NULLIF,OCT,OCTET_LENGTH,ORD,' +
|
|
'PASSWORD,PERIOD_ADD,PERIOD_DIFF,PI,POSITION,POW,POWER,QUARTER,QUOTE,' +
|
|
'RADIANS,RAND,RELEASE_LOCK,REPEAT,REVERSE,RIGHT,ROUND,ROW_COUNT,' +
|
|
'RPAD,RTRIM,SECOND,SEC_TO_TIME,SESSION_USER,SIGN,SIN,SOUNDEX,SLEEP,SPACE,' +
|
|
'SPATIAL,SQRT,STD,STDDEV,STDDEV_POP,STDDEV_SAMP,STRCMP,STR_TO_DATE,' +
|
|
'SUBDATE,SUBSTRING,SUBSTRING_INDEX,SUBTIME,SUM,SYSDATE,SYSTEM_USER,TAN,' +
|
|
'TIMEDIFF,TIMESTAMPADD,TIMESTAMPDIFF,TIME_FORMAT,TIME_TO_SEC,TO_DAYS,' +
|
|
'TRIM,TRUNCATE,UCASE,UNCOMPRESS,UNCOMPRESSED_LENGTH,UNHEX,UNIX_TIMESTAMP,' +
|
|
'UPDATEXML,UPPER,USER,UTC_DATE,UTC_TIME,UTC_TIMESTAMP,UUID,VARIANCE,' +
|
|
'VAR_POP,VAR_SAMP,VERSION,WEEK,WEEKDAY,WEEKOFYEAR,WHEN,YEARWEEK,YEAR_MONTH';
|
|
|
|
//---Ingres---------------------------------------------------------------------
|
|
// keywords
|
|
IngresKW: string =
|
|
'ABORT,ACTIVATE,ADD,ADDFORM,AFTER,AGGREGATE,ALL,ALTER,AND,APPEND,ARRAY,' +
|
|
'AS,ASC,AT,AUDIT_LOG,AUTHORIZATION,AUTOCOMMIT,AVGU,BEFORE,BEGIN,BETWEEN,' +
|
|
'BREAKDISPLAY,BY,BYREF,CACHE,CALL,CALLFRAME,CALLPROC,CASCADE,CHECK,CLEAR,' +
|
|
'CLEARROW,CLOSE,COLUMN,COMMAND,COMMENT,COMMIT,CONNECT,CONSTRAINT,' +
|
|
'CONTINUE,COPY,COUNTU,CPUFACTOR,CREATE,CURRENT,CURRENT_USER,CURSOR,DATA,' +
|
|
'DATAHANDLER,DATE_FORMAT,DBEVENT,DDL_CONCURRENCY,DEADLOCK,DECLARE,' +
|
|
'DEFAULT,DEFERRED,DEFINE,DELETE,DELETEROW,DESC,DESCRIBE,DESCRIPTOR,' +
|
|
'DESTROY,DIRECT,DISABLE,DISCONNECT,DISPLAY,DISTINCT,DISTRIBUTE,DO,DOWN,' +
|
|
'DROP,ELSE,ELSEIF,ENABLE,END,ENDDATA,ENDDISPLAY,ENDFORMS,ENDIF,ENDLOOP,' +
|
|
'ENDRETRIEVE,ENDSELECT,ENDWHILE,ERROR,ESCAPE,EXCLUDE,EXCLUDING,EXEC,' +
|
|
'EXECUTE,EXISTS,EXIT,FETCH,FIELD,FINALIZE,FOR,FOREIGN,FORMDATA,FORMINIT,' +
|
|
'FORMS,FROM,FULL,GET,GETFORM,GETOPER,GETROW,GLOBAL,GOTO,GRANT,GRANTED,' +
|
|
'HAVING,HELP,HELP_FORMS,HELP_FRS,HELPFILE,IDENTIFIED,IF,IIMESSAGE,' +
|
|
'IIPRINTF,IIPROMPT,IISTATEMENT,IMMEDIATE,IMPORT,IN,INCLUDE,INDEX,' +
|
|
'INDICATOR,INGRES,INITIALIZE,INITTABLE,INNER,INQUIRE_EQUEL,INQUIRE_FORMS,' +
|
|
'INQUIRE_FRS,INQUIRE_INGRES,INSERT,INSERTROW,INSTALLATION,INTEGRITY,INTO,' +
|
|
'IO_TRACE,IS,J_FREESZ1,J_FREESZ2,J_FREESZ3,J_FREESZ4,J_SORTBUFSZ,' +
|
|
'JCPUFACTOR,JOIN,JOINOP,JOURNALING,KEY,LEVEL,LIKE,LINK,LOADTABLE,LOCAL,' +
|
|
'LOCATION,LOCK_TRACE,LOG_TRACE,LOGDBEVENTS,LOGGING,MAXCOST,MAXCPU,' +
|
|
'MAXPAGE,MENUITEM,MESSAGE,MODE,MODIFY,MODULE,MONEY_FORMAT,MONEY_PREC,' +
|
|
'MOVE,NATURAL,NEXT,NODEADLOCK,NOECHO,NOIO_TRACE,NOJIONOP,NOJOURNALING,' +
|
|
'NOLOCK_TRACE,NOLOG_TRACE,NOLOGDBEVENTS,NOLOGGING,NOMAXCOST,NOMAXCPU,' +
|
|
'NOMAXIO,NOMAXPAGE,NOMAXQUERY,NOMAXROW,NOOPTIMIZEONLY,NOPRINTDBEVENTS,' +
|
|
'NOPRINTQRY,NOPRINTRULES,NOQEP,NORULES,NOSQL,NOSTATISTICS,NOT,NOTRACE,' +
|
|
'NULL,OF,ON,ONLY,OPEN,OPTIMIZEONLY,OPTION,OR,ORDER,OUT,PARAM,PERMIT,' +
|
|
'PREPARE,PRESERVE,PRIMARY,PRINT,PRINTDBEVENTS,PRINTQRY,PRINTSCREEN,' +
|
|
'PRIVILEGES,PROCEDURE,PROMPT,PUBLIC,PUT,PUTFORM,PUTOPER,PUTROW,QBUFSIZE,' +
|
|
'QEP,QRY,QUALIFICATION,QUERY_SIZE,RAISE,RANGE,READONLY,REDISPLAY,' +
|
|
'REFERENCES,REFERENCING,REGISTER,RELOCATE,REMOVE,RENAME,REPEAT,REPEATED,' +
|
|
'REPLACE,REPLICATE,RESTRICT,RESULT_STRUCTURE,RESUME,RET_INTO,RETRIEVE,' +
|
|
'RETURN,RETURNING,REVOKE,ROLLBACK,ROWS,RULE,RUN,SAVE,SAVEPOINT,SCHEMA,' +
|
|
'SCREEN,SCROLL,SCROLLDOWN,SCROLLUP,SECTION,SECURITY_ALARM,SECURITY_AUDIT,' +
|
|
'SELECT,SESSION,SET,SET_4GL,SET_EQUAL,SET_FORMS,SET_FRS,SET_INGRES,' +
|
|
'SET_SQL,SHORT_REMARK,SLEEP,SOME,SORT,SORTBUFSIZE,SQL,STATISTICS,STOP,' +
|
|
'SUBMENU,SUMU,SYNONYM,SYSTEM,TABLE,TABLEDATA,TEWMPORARY,THEN,TO,TRACE,' +
|
|
'TRANSACTION,TYPE,UNION,UNIQUE,UNLOADTABLE,UNTIL,UP,UPDATE,USER,USING,' +
|
|
'VALIDATE,VALIDROW,VALUES,VIEW,WHEN,WHENEVER,WHERE,WHILE,WITH,WORK';
|
|
|
|
// types
|
|
IngresTypes: string =
|
|
'BYTE,C,CHAR,CHARACTER,DATE,DECIMAL,FLOAT,FLOAT4,FLOAT8,INTEGER,INTEGER1,' +
|
|
'INTEGER2,INTEGER4,LONG,MONEY,OBJECT_KEY,SECURITY_LABEL,SHORT,SMALLINT,' +
|
|
'TABLE_KEY,TEXT,VARCHAR,VARYING';
|
|
|
|
// functions
|
|
IngresFunctions: string =
|
|
'_BINTIM,_CPU_MS,_DATE,_DIO_CNT,_ET_SEC,_PFAULT_CNT,_TIME,_VERSION,ABS,' +
|
|
'ANY,ATAN,AUTOCOMMIT_STATE,AVG,BIOCNT,CHAREXTRACT,COLLATION,CONCAT,' +
|
|
'CONNECT_TIME_LIMIT,COS,COUNT,CREATE_PROCEDURE,CREATE_TABLE,DATABASE,' +
|
|
'DATE_GMT,DATE_PART,DATE_TRUNC,DB_ADMIN,DB_DELIMITED_CASE,DB_NAME_CASE,' +
|
|
'DBA,DBMS_BIO,DBMS_CPU,DBMS_DIO,DBMSINFO,DOW,EXP,FLATTEN_AGGREGATE,' +
|
|
'FLATTEN_NONE,FLATTEN_OPTIMIZE,FLATTEN_SINGLETON,GROUP,HEX,' +
|
|
'IDLE_TIME_LIMIT,IFNULL,INITIAL_USER,INQUIRE_SQL,INT1,INT2,INT4,INTERVAL,' +
|
|
'LANGUAGE,LEFT,LENGTH,LOCATE,LOCKMODE,LOG,LONG_BYTE,LONG_VARCHAR,' +
|
|
'LOWERCASE,MAX,MAXCONNECT,MAXIDLE,MAXIO,MAXQUERY,MAXROW,MIN,MOD,NOTRIM,' +
|
|
'ON_ERROR_STATE,PAD,QUERY_IO_LIMIT,QUERY_LANGUAGE,QUERY_ROW_LIMIT,RIGHT,' +
|
|
'ROLE,SECURITY_AUDIT_LOG,SECURITY_AUDIT_STATE,SECURITY_PRIV,' +
|
|
'SELECT_SYSCAT,SERVER_CLASS,SESSION_ID,SESSION_PRIORITY,' +
|
|
'SESSION_PRIORITY_LIMIT,SESSION_PRIV,SESSION_SECLABEL,SESSION_USER,SHIFT,' +
|
|
'SIN,SIZE,SQRT,SQUEEZE,SUM,SYSTEM_USER,TABLE_STATISTICS,TERMINAL,' +
|
|
'TRANSACTION_STATE,TRIM,UPDATE_ROWCNT,UPDATE_SYSCAT,UPPERCASE,USERNAME,' +
|
|
'VARBYTE';
|
|
|
|
procedure MakeIdentTable;
|
|
var
|
|
c: char;
|
|
begin
|
|
FillChar(Identifiers, SizeOf(Identifiers), 0);
|
|
for c := 'a' to 'z' do
|
|
Identifiers[c] := TRUE;
|
|
for c := 'A' to 'Z' do
|
|
Identifiers[c] := TRUE;
|
|
for c := '0' to '9' do
|
|
Identifiers[c] := TRUE;
|
|
Identifiers['_'] := TRUE;
|
|
Identifiers['#'] := TRUE;
|
|
Identifiers['$'] := TRUE;
|
|
|
|
FillChar(mHashTable, SizeOf(mHashTable), 0);
|
|
mHashTable['_'] := 1;
|
|
for c := 'a' to 'z' do
|
|
mHashTable[c] := 2 + Ord(c) - Ord('a');
|
|
for c := 'A' to 'Z' do
|
|
mHashTable[c] := 2 + Ord(c) - Ord('A');
|
|
|
|
Move(Identifiers, IdentifiersMSSQL7, SizeOf(Identifiers));
|
|
Move(mHashTable, mHashTableMSSQL7, SizeOf(mHashTable));
|
|
IdentifiersMSSQL7['@'] := TRUE;
|
|
mHashTableMSSQL7['@'] := mHashTableMSSQL7['Z'] + 1;
|
|
end;
|
|
|
|
function TSynSQLSyn.KeyHash(ToHash: PChar): Integer;
|
|
begin
|
|
Result := 0;
|
|
while fIdentifiersPtr[ToHash^] do begin
|
|
{$IFOPT Q-}
|
|
Result := 2 * Result + fmHashTablePtr[ToHash^];
|
|
{$ELSE}
|
|
Result := (2 * Result + fmHashTablePtr[ToHash^]) and $FFFFFF;
|
|
{$ENDIF}
|
|
inc(ToHash);
|
|
end;
|
|
Result := Result and $FF; // 255
|
|
fStringLen := ToHash - fToIdent;
|
|
end;
|
|
|
|
function TSynSQLSyn.KeyComp(const aKey: string): Boolean;
|
|
var
|
|
i: integer;
|
|
pKey1, pKey2: PChar;
|
|
begin
|
|
pKey1 := fToIdent;
|
|
// Note: fStringLen is always > 0 !
|
|
pKey2 := pointer(aKey);
|
|
for i := 1 to fStringLen do
|
|
begin
|
|
if mHashTable[pKey1^] <> mHashTable[pKey2^] then
|
|
begin
|
|
Result := FALSE;
|
|
exit;
|
|
end;
|
|
Inc(pKey1);
|
|
Inc(pKey2);
|
|
end;
|
|
Result := TRUE;
|
|
end;
|
|
|
|
function TSynSQLSyn.IdentKind(MayBe: PChar): TtkTokenKind;
|
|
var
|
|
Entry: TSynHashEntry;
|
|
begin
|
|
fToIdent := MayBe;
|
|
Entry := fKeywords[KeyHash(MayBe)];
|
|
while Assigned(Entry) do begin
|
|
if Entry.KeywordLen > fStringLen then
|
|
break
|
|
else if Entry.KeywordLen = fStringLen then
|
|
if KeyComp(Entry.Keyword) then begin
|
|
Result := TtkTokenKind(Entry.Kind);
|
|
exit;
|
|
end;
|
|
Entry := Entry.Next;
|
|
end;
|
|
Result := tkIdentifier;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.MakeMethodTables;
|
|
var
|
|
I: Char;
|
|
begin
|
|
for I := #0 to #255 do
|
|
case I of
|
|
#0: fProcTable[I] := NullProc;
|
|
#10: fProcTable[I] := LFProc;
|
|
#13: fProcTable[I] := CRProc;
|
|
#39: fProcTable[I] := AsciiCharProc;
|
|
'=': fProcTable[I] := EqualProc;
|
|
'>': fProcTable[I] := GreaterProc;
|
|
'<': fProcTable[I] := LowerProc;
|
|
'-': fProcTable[I] := MinusProc;
|
|
'#': fProcTable[I] := HashProc;
|
|
'|': fProcTable[I] := OrSymbolProc;
|
|
'+': fProcTable[I] := PlusProc;
|
|
'/': fProcTable[I] := SlashProc;
|
|
'&': fProcTable[I] := AndSymbolProc;
|
|
#34: fProcTable[I] := QuoteProc;
|
|
'`': fProcTable[I] := BacktickProc;
|
|
'[': fProcTable[I] := BracketProc;
|
|
':', '@':
|
|
fProcTable[I] := VariableProc;
|
|
'A'..'Z', 'a'..'z', '_':
|
|
fProcTable[I] := IdentProc;
|
|
'0'..'9':
|
|
fProcTable[I] := NumberProc;
|
|
#1..#9, #11, #12, #14..#32:
|
|
fProcTable[I] := SpaceProc;
|
|
'^', '%', '*', '!':
|
|
fProcTable[I] := SymbolAssignProc;
|
|
'{', '}', '.', ',', ';', '?', '(', ')', ']', '~':
|
|
fProcTable[I] := SymbolProc;
|
|
else
|
|
fProcTable[I] := UnknownProc;
|
|
end;
|
|
end;
|
|
|
|
constructor TSynSQLSyn.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
fKeywords := TSynHashEntryList.Create;
|
|
fTableNames := TStringList.Create;
|
|
TStringList(fTableNames).OnChange := TableNamesChanged;
|
|
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
|
|
fCommentAttri.Style := [fsItalic];
|
|
AddAttribute(fCommentAttri);
|
|
fConditionalCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrConditionalComment);
|
|
fConditionalCommentAttri.Style := [fsItalic];
|
|
AddAttribute(fConditionalCommentAttri);
|
|
fDataTypeAttri := TSynHighlighterAttributes.Create(SYNS_AttrDataType);
|
|
fDataTypeAttri.Style := [fsBold];
|
|
AddAttribute(fDataTypeAttri);
|
|
fDefaultPackageAttri := TSynHighlighterAttributes.Create(SYNS_AttrDefaultPackage);
|
|
fDefaultPackageAttri.Style := [fsBold];
|
|
AddAttribute(fDefaultPackageAttri);
|
|
fDelimitedIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrDelimitedIdentifier);
|
|
AddAttribute(fDelimitedIdentifierAttri);
|
|
fExceptionAttri := TSynHighlighterAttributes.Create(SYNS_AttrException);
|
|
fExceptionAttri.Style := [fsItalic];
|
|
AddAttribute(fExceptionAttri);
|
|
fFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrFunction);
|
|
fFunctionAttri.Style := [fsBold];
|
|
AddAttribute(fFunctionAttri);
|
|
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
|
|
AddAttribute(fIdentifierAttri);
|
|
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
|
|
fKeyAttri.Style := [fsBold];
|
|
AddAttribute(fKeyAttri);
|
|
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
|
|
AddAttribute(fNumberAttri);
|
|
fPLSQLAttri := TSynHighlighterAttributes.Create(SYNS_AttrPLSQL);
|
|
fPLSQLAttri.Style := [fsBold];
|
|
AddAttribute(fPLSQLAttri);
|
|
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
|
|
AddAttribute(fSpaceAttri);
|
|
fSQLPlusAttri:=TSynHighlighterAttributes.Create(SYNS_AttrSQLPlus);
|
|
fSQLPlusAttri.Style := [fsBold];
|
|
AddAttribute(fSQLPlusAttri);
|
|
fStringAttri := TSynHighlighterAttributes.Create(SYNS_Attrstring);
|
|
AddAttribute(fStringAttri);
|
|
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
|
|
AddAttribute(fSymbolAttri);
|
|
fTableNameAttri := TSynHighlighterAttributes.Create(SYNS_AttrTableName);
|
|
AddAttribute(fTableNameAttri);
|
|
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable);
|
|
AddAttribute(fVariableAttri);
|
|
SetAttributesOnChange(DefHighlightChange);
|
|
MakeMethodTables;
|
|
fDefaultFilter := SYNS_FilterSQL;
|
|
fRange := rsUnknown;
|
|
fDialect := sqlStandard;
|
|
InitializeKeywordLists;
|
|
end;
|
|
|
|
destructor TSynSQLSyn.Destroy;
|
|
begin
|
|
fKeywords.Free;
|
|
fTableNames.Free;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.Assign(Source: TPersistent);
|
|
begin
|
|
inherited Assign(Source);
|
|
if (Source is TSynSQLSyn) then
|
|
SQLDialect := TSynSQLSyn(Source).SQLDialect;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SetLine(NewValue: string; LineNumber: Integer);
|
|
begin
|
|
fLine := PChar(NewValue);
|
|
Run := 0;
|
|
fLineNumber := LineNumber;
|
|
Next;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.AndSymbolProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
if fLine[Run] in ['=', '&'] then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.AsciiCharProc;
|
|
begin
|
|
// Oracle SQL allows strings to go over multiple lines
|
|
if fLine[Run] = #0 then
|
|
NullProc
|
|
else begin
|
|
fTokenID := tkString;
|
|
// else it's end of multiline string
|
|
if SQLDialect <> sqlMySql then begin
|
|
if (Run > 0) or (fRange <> rsString) or (fLine[Run] <> #39) then begin
|
|
fRange := rsString;
|
|
repeat
|
|
Inc(Run);
|
|
until fLine[Run] in [#0, #10, #13, #39];
|
|
end;
|
|
if fLine[Run] = #39 then begin
|
|
Inc(Run);
|
|
fRange := rsUnknown;
|
|
end;
|
|
end
|
|
else begin
|
|
if (Run > 0) or (fRange <> rsString) or ((fLine[Run] <> #39) and (fLine[Run-1] <> '\')) then begin
|
|
fRange := rsString;
|
|
repeat
|
|
if (fLine[Run] <> '\') and (fLine[Run+1] = #39) then begin
|
|
Inc(Run);
|
|
break;
|
|
end;
|
|
Inc(Run);
|
|
until fLine[Run] in [#0, #10, #13];
|
|
end;
|
|
if (fLine[Run] = #39) and not(fLine[Run-1] = '\') then begin
|
|
Inc(Run);
|
|
fRange := rsUnknown;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.CRProc;
|
|
begin
|
|
fTokenID := tkSpace;
|
|
Inc(Run);
|
|
if fLine[Run] = #10 then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.EqualProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
if fLine[Run] in ['=', '>'] then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.GreaterProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
if fLine[Run] in ['=', '>'] then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.IdentProc;
|
|
begin
|
|
fTokenID := IdentKind((fLine + Run));
|
|
inc(Run, fStringLen);
|
|
if fTokenID = tkComment then begin
|
|
while not (fLine[Run] in [#0, #10, #13]) do
|
|
Inc(Run);
|
|
end else
|
|
while fIdentifiersPtr[fLine[Run]] do inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.LFProc;
|
|
begin
|
|
fTokenID := tkSpace;
|
|
inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.LowerProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
case fLine[Run] of
|
|
'=': Inc(Run);
|
|
'<': begin
|
|
Inc(Run);
|
|
if fLine[Run] = '=' then Inc(Run);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.MinusProc;
|
|
begin
|
|
Inc(Run);
|
|
if fLine[Run] = '-' then begin
|
|
fTokenID := tkComment;
|
|
repeat
|
|
Inc(Run);
|
|
until fLine[Run] in [#0, #10, #13];
|
|
end else
|
|
fTokenID := tkSymbol;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.HashProc;
|
|
begin
|
|
if SQLDialect = sqlMySql then
|
|
begin
|
|
fTokenID := tkComment;
|
|
repeat
|
|
Inc(Run);
|
|
until fLine[Run] in [#0, #10, #13];
|
|
end
|
|
else
|
|
begin
|
|
Inc(Run);
|
|
fTokenID := tkUnknown;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.NullProc;
|
|
begin
|
|
fTokenID := tkNull;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.NumberProc;
|
|
begin
|
|
inc(Run);
|
|
fTokenID := tkNumber;
|
|
while FLine[Run] in ['0'..'9', '.', '-'] do begin
|
|
case FLine[Run] of
|
|
'.':
|
|
if FLine[Run + 1] = '.' then break;
|
|
end;
|
|
inc(Run);
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.OrSymbolProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
if fLine[Run] in ['=', '|'] then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.PlusProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
if fLine[Run] in ['=', '+'] then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SlashProc;
|
|
begin
|
|
Inc(Run);
|
|
case fLine[Run] of
|
|
'*':
|
|
begin
|
|
if (SQLDialect = sqlMySql) and (fLine[Run + 1] = '!') then
|
|
begin
|
|
fRange := rsConditionalComment;
|
|
fTokenID := tkConditionalComment;
|
|
end
|
|
else
|
|
begin
|
|
fRange := rsComment;
|
|
fTokenID := tkComment;
|
|
end;
|
|
repeat
|
|
Inc(Run);
|
|
if (fLine[Run] = '*') and (fLine[Run + 1] = '/') then begin
|
|
fRange := rsUnknown;
|
|
Inc(Run, 2);
|
|
break;
|
|
end;
|
|
until fLine[Run] in [#0, #10, #13];
|
|
end;
|
|
'=':
|
|
begin
|
|
Inc(Run);
|
|
fTokenID := tkSymbol;
|
|
end;
|
|
else
|
|
fTokenID := tkSymbol;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SpaceProc;
|
|
begin
|
|
fTokenID := tkSpace;
|
|
repeat
|
|
Inc(Run);
|
|
until (fLine[Run] > #32) or (fLine[Run] in [#0, #10, #13]);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.QuoteProc;
|
|
begin
|
|
fTokenID := tkDelimitedIdentifier;
|
|
Inc(Run);
|
|
while not (fLine[Run] in [#0, #10, #13]) do
|
|
begin
|
|
if fLine[Run] = #34 then
|
|
begin
|
|
Inc(Run);
|
|
if fLine[Run] <> #34 then
|
|
Break;
|
|
end;
|
|
Inc(Run);
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.BacktickProc;
|
|
begin
|
|
if SQLDialect = sqlMySql then
|
|
begin
|
|
fTokenID := tkDelimitedIdentifier;
|
|
Inc(Run);
|
|
while not (fLine[Run] in [#0, #10, #13]) do
|
|
begin
|
|
if fLine[Run] = '`' then
|
|
begin
|
|
Inc(Run);
|
|
if fLine[Run] <> '`' then
|
|
Break;
|
|
end;
|
|
Inc(Run);
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
Inc(Run);
|
|
fTokenID := tkUnknown;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.BracketProc;
|
|
begin
|
|
if SQLDialect in [sqlMSSQL7, sqlMSSQL2K] then
|
|
begin
|
|
fTokenID := tkDelimitedIdentifier;
|
|
Inc(Run);
|
|
while not (fLine[Run] in [#0, #10, #13]) do
|
|
begin
|
|
if fLine[Run] = ']' then
|
|
begin
|
|
Inc(Run);
|
|
if fLine[Run] <> ']' then
|
|
Break;
|
|
end;
|
|
Inc(Run);
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
Inc(Run);
|
|
fTokenID := tkSymbol;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SymbolProc;
|
|
begin
|
|
Inc(Run);
|
|
fTokenID := tkSymbol;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SymbolAssignProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
Inc(Run);
|
|
if fLine[Run] = '=' then Inc(Run);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.VariableProc;
|
|
var
|
|
i: integer;
|
|
begin
|
|
// MS SQL Server uses @@ to indicate system functions/variables
|
|
if (SQLDialect in [sqlMSSQL7, sqlMSSQL2K]) and (fLine[Run] = '@') and (fLine[Run + 1] = '@') then
|
|
IdentProc
|
|
else if (SQLDialect in [sqlMySql, sqlOracle]) and (fLine[Run] = '@') then
|
|
SymbolProc
|
|
// Oracle uses the ':' character to indicate bind variables
|
|
// Ingres II also uses the ':' character to indicate variables
|
|
else if not (SQLDialect in [sqlOracle, sqlIngres]) and (fLine[Run] = ':') then
|
|
SymbolProc
|
|
else
|
|
begin
|
|
fTokenID := tkVariable;
|
|
i := Run;
|
|
repeat
|
|
Inc(i);
|
|
until not (fIdentifiersPtr[fLine[i]]);
|
|
Run := i;
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.UnknownProc;
|
|
begin
|
|
{$IFDEF SYN_MBCSSUPPORT}
|
|
if FLine[Run] in LeadBytes then
|
|
Inc(Run, 2)
|
|
else
|
|
{$ENDIF}
|
|
Inc(Run);
|
|
fTokenID := tkUnknown;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.AnsiCProc;
|
|
begin
|
|
case fLine[Run] of
|
|
#0: NullProc;
|
|
#10: LFProc;
|
|
#13: CRProc;
|
|
else
|
|
begin
|
|
if fRange = rsConditionalComment then
|
|
fTokenID := tkConditionalComment
|
|
else
|
|
fTokenID := tkComment;
|
|
repeat
|
|
if (fLine[Run] = '*') and (fLine[Run + 1] = '/') then
|
|
begin
|
|
fRange := rsUnknown;
|
|
Inc(Run, 2);
|
|
Break;
|
|
end;
|
|
Inc(Run);
|
|
until fLine[Run] in [#0, #10, #13];
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TSynSQLSyn.IsKeyword(const AKeyword: string): boolean;
|
|
var
|
|
tk: TtkTokenKind;
|
|
begin
|
|
tk := IdentKind(PChar(AKeyword));
|
|
Result := tk in [tkDatatype, tkException, tkFunction, tkKey, tkPLSQL,
|
|
tkDefaultPackage];
|
|
end;
|
|
|
|
procedure TSynSQLSyn.Next;
|
|
begin
|
|
fTokenPos := Run;
|
|
case fRange of
|
|
rsComment, rsConditionalComment:
|
|
AnsiCProc;
|
|
rsString:
|
|
AsciiCharProc;
|
|
else
|
|
fProcTable[fLine[Run]];
|
|
end;
|
|
end;
|
|
|
|
function TSynSQLSyn.GetDefaultAttribute(Index: integer):
|
|
TSynHighlighterAttributes;
|
|
begin
|
|
case Index of
|
|
SYN_ATTR_COMMENT: Result := fCommentAttri;
|
|
SYN_ATTR_IDENTIFIER: Result := fIdentifierAttri;
|
|
SYN_ATTR_KEYWORD: Result := fKeyAttri;
|
|
SYN_ATTR_STRING: Result := fStringAttri;
|
|
SYN_ATTR_WHITESPACE: Result := fSpaceAttri;
|
|
SYN_ATTR_SYMBOL: Result := fSymbolAttri;
|
|
else
|
|
Result := nil;
|
|
end;
|
|
end;
|
|
|
|
function TSynSQLSyn.GetEol: Boolean;
|
|
begin
|
|
Result := fTokenID = tkNull;
|
|
end;
|
|
|
|
function TSynSQLSyn.GetRange: Pointer;
|
|
begin
|
|
Result := Pointer(fRange);
|
|
end;
|
|
|
|
function TSynSQLSyn.GetToken: string;
|
|
var
|
|
Len: LongInt;
|
|
begin
|
|
Len := Run - fTokenPos;
|
|
Setstring(Result, (FLine + fTokenPos), Len);
|
|
end;
|
|
|
|
function TSynSQLSyn.GetTokenID: TtkTokenKind;
|
|
begin
|
|
Result := fTokenId;
|
|
end;
|
|
|
|
function TSynSQLSyn.GetTokenAttribute: TSynHighlighterAttributes;
|
|
begin
|
|
case GetTokenID of
|
|
tkComment: Result := fCommentAttri;
|
|
tkConditionalComment: Result := fConditionalCommentAttri;
|
|
tkDatatype: Result := fDataTypeAttri;
|
|
tkDefaultPackage: Result := fDefaultPackageAttri;
|
|
tkDelimitedIdentifier: Result := fDelimitedIdentifierAttri;
|
|
tkException: Result := fExceptionAttri;
|
|
tkFunction: Result := fFunctionAttri;
|
|
tkIdentifier: Result := fIdentifierAttri;
|
|
tkKey: Result := fKeyAttri;
|
|
tkNumber: Result := fNumberAttri;
|
|
tkPLSQL: Result := fPLSQLAttri;
|
|
tkSpace: Result := fSpaceAttri;
|
|
tkSQLPlus: Result := fSQLPlusAttri;
|
|
tkString: Result := fStringAttri;
|
|
tkSymbol: Result := fSymbolAttri;
|
|
tkTableName: Result := fTableNameAttri;
|
|
tkVariable: Result := fVariableAttri;
|
|
tkUnknown: Result := fIdentifierAttri;
|
|
else
|
|
Result := nil;
|
|
end;
|
|
end;
|
|
|
|
function TSynSQLSyn.GetTokenKind: integer;
|
|
begin
|
|
Result := Ord(fTokenId);
|
|
end;
|
|
|
|
function TSynSQLSyn.GetTokenPos: Integer;
|
|
begin
|
|
Result := fTokenPos;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.ResetRange;
|
|
begin
|
|
fRange := rsUnknown;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SetRange(Value: Pointer);
|
|
begin
|
|
fRange := TRangeState(Value);
|
|
end;
|
|
|
|
function TSynSQLSyn.GetIdentChars: TSynIdentChars;
|
|
begin
|
|
Result := TSynValidStringChars;
|
|
if (fDialect = sqlMSSQL7) or (fDialect = sqlMSSQL2K) then
|
|
Include(Result, '@')
|
|
else if fDialect = sqlOracle then begin
|
|
Include(Result, '#');
|
|
Include(Result, '$');
|
|
end;
|
|
end;
|
|
|
|
function TSynSQLSyn.IsFilterStored: Boolean;
|
|
begin
|
|
Result := fDefaultFilter <> SYNS_FilterSQL;
|
|
end;
|
|
|
|
class function TSynSQLSyn.GetLanguageName: string;
|
|
begin
|
|
Result := SYNS_LangSQL;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.DoAddKeyword(AKeyword: string; AKind: integer);
|
|
var
|
|
HashValue: integer;
|
|
begin
|
|
HashValue := KeyHash(PChar(AKeyword));
|
|
fKeywords[HashValue] := TSynHashEntry.Create(AKeyword, AKind);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SetTableNames(const Value: TStrings);
|
|
begin
|
|
fTableNames.Assign(Value);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.TableNamesChanged(Sender: TObject);
|
|
begin
|
|
InitializeKeywordLists;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.PutTableNamesInKeywordList;
|
|
var
|
|
i: Integer;
|
|
Entry: TSynHashEntry;
|
|
begin
|
|
for i := 0 to (fTableNames.Count - 1) do
|
|
begin
|
|
Entry := fKeywords[KeyHash(PChar(fTableNames[i]))];
|
|
while Assigned(Entry) do
|
|
begin
|
|
if (UpperCase(Entry.Keyword) = Uppercase(fTableNames[i])) then
|
|
Break;
|
|
Entry := Entry.Next;
|
|
end;
|
|
if not Assigned(Entry) then
|
|
DoAddKeyword(fTableNames[i], Ord(tkTableName));
|
|
end;
|
|
end;
|
|
|
|
procedure TSynSQLSyn.InitializeKeywordLists;
|
|
begin
|
|
fKeywords.Clear;
|
|
if (fDialect in [sqlMSSQL7, sqlMSSQL2K]) then
|
|
begin
|
|
fIdentifiersPtr := @IdentifiersMSSQL7;
|
|
fmHashTablePtr := @mHashTableMSSQL7;
|
|
end else begin
|
|
fIdentifiersPtr := @Identifiers;
|
|
fmHashTablePtr := @mHashTable;
|
|
end;
|
|
|
|
case fDialect of
|
|
sqlIngres:
|
|
begin
|
|
EnumerateKeywords(Ord(tkDatatype), IngresTypes, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkKey), IngresKW, IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkFunction), IngresFunctions, IdentChars,
|
|
DoAddKeyword);
|
|
end;
|
|
sqlInterbase6:
|
|
begin
|
|
EnumerateKeywords(Ord(tkDatatype), Interbase6Types, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkFunction), Interbase6Functions, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkKey), Interbase6KW, IdentChars, DoAddKeyword);
|
|
end;
|
|
sqlMSSQL7:
|
|
begin
|
|
EnumerateKeywords(Ord(tkKey), MSSQL7KW, IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkDatatype), MSSQL7Types, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkFunction), MSSQL7Functions, IdentChars,
|
|
DoAddKeyword);
|
|
end;
|
|
sqlMSSQL2K:
|
|
begin
|
|
EnumerateKeywords(ord(tkKey), MSSQL2000KW, IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(ord(tkDataType), MSSQL2000Types, IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(ord(tkFunction), MSSQL2000Functions, IdentChars, DoAddKeyword);
|
|
end;
|
|
sqlMySql:
|
|
begin
|
|
EnumerateKeywords(Ord(tkKey), MySqlKW, IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkDatatype), MySqlTypes, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkFunction), MySqlFunctions, IdentChars,
|
|
DoAddKeyword);
|
|
end;
|
|
sqlOracle:
|
|
begin
|
|
EnumerateKeywords(Ord(tkKey), OracleKW, IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkDatatype), OracleTypes, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkException), OracleExceptions, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkFunction), OracleFunctions, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkComment), OracleCommentKW, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkDefaultPackage), OracleDefaultPackages,
|
|
IdentChars, DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkPLSQL), OraclePLSQLKW, IdentChars,
|
|
DoAddKeyword);
|
|
EnumerateKeywords(Ord(tkSQLPlus), OracleSQLPlusCommands, IdentChars,
|
|
DoAddKeyword);
|
|
end;
|
|
sqlStandard:
|
|
EnumerateKeywords(Ord(tkKey), StandardKW, IdentChars + ['-'], DoAddKeyword);
|
|
sqlSybase:
|
|
EnumerateKeywords(Ord(tkKey), SybaseKW, IdentChars, DoAddKeyword);
|
|
end;
|
|
PutTableNamesInKeywordList;
|
|
DefHighlightChange(Self);
|
|
end;
|
|
|
|
procedure TSynSQLSyn.SetDialect(Value: TSQLDialect);
|
|
begin
|
|
if (Value <> fDialect) then
|
|
begin
|
|
fDialect := Value;
|
|
InitializeKeywordLists;
|
|
end;
|
|
end;
|
|
|
|
function TSynSQLSyn.GetSampleSource: String;
|
|
begin
|
|
Result:= '';
|
|
case fDialect of
|
|
sqlStandard:
|
|
Result := '-- ANSI SQL sample source'#13#10 +
|
|
'SELECT *'#13#10 +
|
|
'FROM planets'#13#10 +
|
|
'WHERE diameter < 13000'#13#10 +
|
|
' AND name <> ''Earth''';
|
|
sqlInterbase6:
|
|
Result := '/* Interbase sample source */'#13#10 +
|
|
'SET TERM !! ;'#13#10 +
|
|
#13#10 +
|
|
'CREATE PROCEDURE HelloWorld(P_MSG VARCHAR(80)) AS'#13#10 +
|
|
'BEGIN'#13#10 +
|
|
' EXECUTE PROCEDURE WRITELN(:P_MSG);'#13#10 +
|
|
'END !!'#13#10 +
|
|
#13#10 +
|
|
'SET TERM ; !!';
|
|
sqlMySQL:
|
|
Result := '/* MySQL sample source*/'#13#10 +
|
|
'SET @variable = 1;'#13#10 +
|
|
#13#10 +
|
|
'CREATE /*!32302 TEMPORARY */ TABLE t (a INT);'#13#10 +
|
|
#13#10 +
|
|
'CREATE TABLE sample ('#13#10 +
|
|
' id INT NOT NULL,'#13#10 +
|
|
' first_name CHAR(30) NOT NULL,'#13#10 +
|
|
' PRIMARY KEY (id),'#13#10 +
|
|
' INDEX name (first_name));'#13#10 +
|
|
#13#10 +
|
|
'SELECT DATE_ADD(''1997-12-31 23:59:59'','#13#10 +
|
|
' INTERVAL 1 SECOND);'#13#10 +
|
|
#13#10 +
|
|
'# End of sample';
|
|
sqlOracle:
|
|
Result := 'PROMPT Oracle sample source'#13#10 +
|
|
'declare'#13#10 +
|
|
' x varchar2(2000);'#13#10 +
|
|
'begin -- Show some text here'#13#10 +
|
|
' select to_char(count(*)) into x'#13#10 +
|
|
' from tab;'#13#10 +
|
|
#13#10 +
|
|
' dbms_output.put_line(''Hello World: '' || x);'#13#10 +
|
|
'exception'#13#10 +
|
|
' when others then'#13#10 +
|
|
' null;'#13#10 +
|
|
'end;';
|
|
sqlSybase:
|
|
Result := '/* SyBase example source */'#13#10 +
|
|
'declare @Integer int'#13#10 +
|
|
#13#10 +
|
|
'/* Good for positive numbers only. */'#13#10 +
|
|
'select @Integer = 1000'#13#10 +
|
|
#13#10 +
|
|
'select "Positives Only" ='#13#10 +
|
|
' right(replicate("0",12) + '#13#10 +
|
|
' convert(varchar, @Integer),12)'#13#10 +
|
|
#13#10 +
|
|
'/* Good for positive and negative numbers. */'#13#10 +
|
|
'select @Integer = -1000'#13#10 +
|
|
#13#10 +
|
|
'select "Both Signs" ='#13#10 +
|
|
' substring( "- +", (sign(@Integer) + 2), 1) +'#13#10 +
|
|
' right(replicate("0",12) + '#13#10 +
|
|
' convert(varchar, abs(@Integer)),12)'#13#10 +
|
|
#13#10 +
|
|
'select @Integer = 1000'#13#10 +
|
|
#13#10 +
|
|
'select "Both Signs" ='#13#10 +
|
|
' substring( "- +", (sign(@Integer) + 2), 1) +'#13#10 +
|
|
' right(replicate("0",12) + '#13#10 +
|
|
' convert(varchar, abs(@Integer)),12)'#13#10 +
|
|
#13#10 +
|
|
'go';
|
|
sqlIngres:
|
|
Result := '/* Ingres example source */'#13#10 +
|
|
'DELETE'#13#10 +
|
|
'FROM t1'#13#10 +
|
|
'WHERE EXISTS'#13#10 +
|
|
'(SELECT t2.column1, t2.column2'#13#10 +
|
|
'FROM t2'#13#10 +
|
|
'WHERE t1.column1 = t2.column1 and'#13#10 +
|
|
't1.column2 = t2.column2)';
|
|
sqlMSSQL7:
|
|
Result := '/* SQL Server 7 example source */'#13#10 +
|
|
'SET QUOTED_IDENTIFIER ON'#13#10 +
|
|
'GO'#13#10 +
|
|
'SET ANSI_NULLS OFF'#13#10 +
|
|
'GO'#13#10 +
|
|
#13#10 +
|
|
'/* Object: Stored Procedure dbo.sp_PPQInsertOrder */'#13#10 +
|
|
'CREATE PROCEDURE sp_PPQInsertOrder'#13#10 +
|
|
' @Name varchar(25),'#13#10 +
|
|
' @Address varchar(255),'#13#10 +
|
|
' @ZipCode varchar(15)'#13#10 +
|
|
'AS'#13#10 +
|
|
' INSERT INTO PPQOrders(Name, Address, ZipCode, OrderDate)'#13#10 +
|
|
' VALUES (@Name, @Address, @ZipCode, GetDate())'#13#10 +
|
|
#13#10 +
|
|
' SELECT SCOPE_IDENTITY()'#13#10 +
|
|
'GO';
|
|
sqlMSSQL2K:
|
|
Result := '/* SQL Server2000 example source */'#13#10 +
|
|
'SET QUOTED_IDENTIFIER ON'#13#10 +
|
|
'GO'#13#10 +
|
|
'SET ANSI_NULLS OFF'#13#10 +
|
|
'GO'#13#10 +
|
|
#13#10 +
|
|
'/* Object: Stored Procedure dbo.sp_PPQInsertOrder */'#13#10 +
|
|
'CREATE PROCEDURE sp_PPQInsertOrder'#13#10 +
|
|
' @Name varchar(25),'#13#10 +
|
|
' @Address varchar(255),'#13#10 +
|
|
' @ZipCode varchar(15)'#13#10 +
|
|
'AS'#13#10 +
|
|
' INSERT INTO PPQOrders(Name, Address, ZipCode, OrderDate)'#13#10 +
|
|
' VALUES (@Name, @Address, @ZipCode, GetDate())'#13#10 +
|
|
#13#10 +
|
|
' SELECT SCOPE_IDENTITY()'#13#10 +
|
|
'GO';
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
MakeIdentTable;
|
|
{$IFNDEF SYN_CPPB_1}
|
|
RegisterPlaceableHighlighter(TSynSQLSyn);
|
|
{$ENDIF}
|
|
end.
|