fgl.vim (7274B)
1 " Vim syntax file 2 " Language: Informix 4GL 3 " Maintainer: Rafal M. Sulejman <rms@poczta.onet.pl> 4 " Update: 26 Sep 2002 5 " Changes: 6 " - Dynamic 4GL/FourJs/4GL 7.30 pseudo comment directives (Julian Bridle) 7 " - Conditionally allow case insensitive keywords (Julian Bridle) 8 " 9 10 " quit when a syntax file was already loaded 11 if exists("b:current_syntax") 12 finish 13 endif 14 15 if exists("fgl_ignore_case") 16 syntax case ignore 17 else 18 syntax case match 19 endif 20 syn keyword fglKeyword ABORT ABS ABSOLUTE ACCEPT ACCESS ACOS ADD AFTER ALL 21 syn keyword fglKeyword ALLOCATE ALTER AND ANSI ANY APPEND ARG_VAL ARRAY ARR_COUNT 22 syn keyword fglKeyword ARR_CURR AS ASC ASCENDING ASCII ASIN AT ATAN ATAN2 ATTACH 23 syn keyword fglKeyword ATTRIBUTE ATTRIBUTES AUDIT AUTHORIZATION AUTO AUTONEXT AVERAGE AVG 24 syn keyword fglKeyword BEFORE BEGIN BETWEEN BLACK BLINK BLUE BOLD BORDER BOTH BOTTOM 25 syn keyword fglKeyword BREAK BUFFERED BY BYTE 26 syn keyword fglKeyword CALL CASCADE CASE CHAR CHARACTER CHARACTER_LENGTH CHAR_LENGTH 27 syn keyword fglKeyword CHECK CLASS_ORIGIN CLEAR CLIPPED CLOSE CLUSTER COLOR 28 syn keyword fglKeyword COLUMN COLUMNS COMMAND COMMENT COMMENTS COMMIT COMMITTED 29 syn keyword fglKeyword COMPOSITES COMPRESS CONCURRENT CONNECT CONNECTION 30 syn keyword fglKeyword CONNECTION_ALIAS CONSTRAINED CONSTRAINT CONSTRAINTS CONSTRUCT 31 syn keyword fglKeyword CONTINUE CONTROL COS COUNT CREATE CURRENT CURSOR CYAN 32 syn keyword fglKeyword DATA DATABASE DATASKIP DATE DATETIME DAY DBA DBINFO DBSERVERNAME 33 syn keyword fglKeyword DEALLOCATE DEBUG DEC DECIMAL DECLARE DEFAULT DEFAULTS DEFER 34 syn keyword fglKeyword DEFERRED DEFINE DELETE DELIMITER DELIMITERS DESC DESCENDING 35 syn keyword fglKeyword DESCRIBE DESCRIPTOR DETACH DIAGNOSTICS DIM DIRTY DISABLED 36 syn keyword fglKeyword DISCONNECT DISPLAY DISTINCT DISTRIBUTIONS DO DORMANT DOUBLE 37 syn keyword fglKeyword DOWN DOWNSHIFT DROP 38 syn keyword fglKeyword EACH ELIF ELSE ENABLED END ENTRY ERROR ERRORLOG ERR_GET 39 syn keyword fglKeyword ERR_PRINT ERR_QUIT ESC ESCAPE EVERY EXCEPTION EXCLUSIVE 40 syn keyword fglKeyword EXEC EXECUTE EXISTS EXIT EXP EXPLAIN EXPRESSION EXTEND EXTENT 41 syn keyword fglKeyword EXTERN EXTERNAL 42 syn keyword fglKeyword F1 F10 F11 F12 F13 F14 F15 F16 F17 F18 F19 F2 F20 F21 F22 F23 43 syn keyword fglKeyword F24 F25 F26 F27 F28 F29 F3 F30 F31 F32 F33 F34 F35 F36 F37 F38 44 syn keyword fglKeyword F39 F4 F40 F41 F42 F43 F44 F45 F46 F47 F48 F49 F5 F50 F51 F52 45 syn keyword fglKeyword F53 F54 F55 F56 F57 F58 F59 F6 F60 F61 F62 F63 F64 F7 F8 F9 46 syn keyword fglKeyword FALSE FETCH FGL_GETENV FGL_KEYVAL FGL_LASTKEY FIELD FIELD_TOUCHED 47 syn keyword fglKeyword FILE FILLFACTOR FILTERING FINISH FIRST FLOAT FLUSH FOR 48 syn keyword fglKeyword FOREACH FOREIGN FORM FORMAT FORMONLY FORTRAN FOUND FRACTION 49 syn keyword fglKeyword FRAGMENT FREE FROM FUNCTION GET_FLDBUF GLOBAL GLOBALS GO GOTO 50 syn keyword fglKeyword GRANT GREEN GROUP HAVING HEADER HELP HEX HIDE HIGH HOLD HOUR 51 syn keyword fglKeyword IDATA IF ILENGTH IMMEDIATE IN INCLUDE INDEX INDEXES INDICATOR 52 syn keyword fglKeyword INFIELD INIT INITIALIZE INPUT INSERT INSTRUCTIONS INT INTEGER 53 syn keyword fglKeyword INTERRUPT INTERVAL INTO INT_FLAG INVISIBLE IS ISAM ISOLATION 54 syn keyword fglKeyword ITYPE 55 syn keyword fglKeyword KEY LABEL 56 syn keyword fglKeyword LANGUAGE LAST LEADING LEFT LENGTH LET LIKE LINE 57 syn keyword fglKeyword LINENO LINES LOAD LOCATE LOCK LOG LOG10 LOGN LONG LOW 58 syn keyword fglKeyword MAGENTA MAIN MARGIN MATCHES MAX MDY MEDIUM MEMORY MENU MESSAGE 59 syn keyword fglKeyword MESSAGE_LENGTH MESSAGE_TEXT MIN MINUTE MOD MODE MODIFY MODULE 60 syn keyword fglKeyword MONEY MONTH MORE 61 syn keyword fglKeyword NAME NCHAR NEED NEW NEXT NEXTPAGE NO NOCR NOENTRY NONE NORMAL 62 syn keyword fglKeyword NOT NOTFOUND NULL NULLABLE NUMBER NUMERIC NUM_ARGS NVARCHAR 63 syn keyword fglKeyword OCTET_LENGTH OF OFF OLD ON ONLY OPEN OPTIMIZATION OPTION OPTIONS 64 syn keyword fglKeyword OR ORDER OTHERWISE OUTER OUTPUT 65 syn keyword fglKeyword PAGE PAGENO PAUSE PDQPRIORITY PERCENT PICTURE PIPE POW PRECISION 66 syn keyword fglKeyword PREPARE PREVIOUS PREVPAGE PRIMARY PRINT PRINTER PRIOR PRIVATE 67 syn keyword fglKeyword PRIVILEGES PROCEDURE PROGRAM PROMPT PUBLIC PUT 68 syn keyword fglKeyword QUIT QUIT_FLAG 69 syn keyword fglKeyword RAISE RANGE READ READONLY REAL RECORD RECOVER RED REFERENCES 70 syn keyword fglKeyword REFERENCING REGISTER RELATIVE REMAINDER REMOVE RENAME REOPTIMIZATION 71 syn keyword fglKeyword REPEATABLE REPORT REQUIRED RESOLUTION RESOURCE RESTRICT 72 syn keyword fglKeyword RESUME RETURN RETURNED_SQLSTATE RETURNING REVERSE REVOKE RIGHT 73 syn keyword fglKeyword ROBIN ROLE ROLLBACK ROLLFORWARD ROOT ROUND ROW ROWID ROWIDS 74 syn keyword fglKeyword ROWS ROW_COUNT RUN 75 syn keyword fglKeyword SCALE SCHEMA SCREEN SCROLL SCR_LINE SECOND SECTION SELECT 76 syn keyword fglKeyword SERIAL SERIALIZABLE SERVER_NAME SESSION SET SET_COUNT SHARE 77 syn keyword fglKeyword SHORT SHOW SITENAME SIZE SIZEOF SKIP SLEEP SMALLFLOAT SMALLINT 78 syn keyword fglKeyword SOME SPACE SPACES SQL SQLAWARN SQLCA SQLCODE SQLERRD SQLERRM 79 syn keyword fglKeyword SQLERROR SQLERRP SQLSTATE SQLWARNING SQRT STABILITY START 80 syn keyword fglKeyword STARTLOG STATIC STATISTICS STATUS STDEV STEP STOP STRING STRUCT 81 syn keyword fglKeyword SUBCLASS_ORIGIN SUM SWITCH SYNONYM SYSTEM 82 syn keyword fglKeyword SysBlobs SysChecks SysColAuth SysColDepend SysColumns 83 syn keyword fglKeyword SysConstraints SysDefaults SysDepend SysDistrib SysFragAuth 84 syn keyword fglKeyword SysFragments SysIndexes SysObjState SysOpClstr SysProcAuth 85 syn keyword fglKeyword SysProcBody SysProcPlan SysProcedures SysReferences SysRoleAuth 86 syn keyword fglKeyword SysSynTable SysSynonyms SysTabAuth SysTables SysTrigBody 87 syn keyword fglKeyword SysTriggers SysUsers SysViews SysViolations 88 syn keyword fglKeyword TAB TABLE TABLES TAN TEMP TEXT THEN THROUGH THRU TIME TO 89 syn keyword fglKeyword TODAY TOP TOTAL TRACE TRAILER TRAILING TRANSACTION TRIGGER 90 syn keyword fglKeyword TRIGGERS TRIM TRUE TRUNC TYPE TYPEDEF 91 syn keyword fglKeyword UNCOMMITTED UNCONSTRAINED UNDERLINE UNION UNIQUE UNITS UNLOAD 92 syn keyword fglKeyword UNLOCK UNSIGNED UP UPDATE UPSHIFT USER USING 93 syn keyword fglKeyword VALIDATE VALUE VALUES VARCHAR VARIABLES VARIANCE VARYING 94 syn keyword fglKeyword VERIFY VIEW VIOLATIONS 95 syn keyword fglKeyword WAIT WAITING WARNING WEEKDAY WHEN WHENEVER WHERE WHILE WHITE 96 syn keyword fglKeyword WINDOW WITH WITHOUT WORDWRAP WORK WRAP WRITE 97 syn keyword fglKeyword YEAR YELLOW 98 syn keyword fglKeyword ZEROFILL 99 100 " Strings and characters: 101 syn region fglString start=+"+ skip=+\\\\\|\\"+ end=+"+ 102 syn region fglString start=+'+ skip=+\\\\\|\\"+ end=+'+ 103 104 " Numbers: 105 syn match fglNumber "-\=\<[0-9]*\.\=[0-9_]\>" 106 107 " Comments: 108 syn region fglComment start="{" end="}" 109 syn match fglComment "--.*" 110 syn match fglComment "#.*" 111 112 " Not a comment even though it looks like one (Dynamic 4GL/FourJs directive) 113 syn match fglSpecial "--#" 114 syn match fglSpecial "--@" 115 116 syn sync ccomment fglComment 117 118 " Define the default highlighting. 119 " Only when an item doesn't have highlighting yet 120 121 hi def link fglComment Comment 122 "hi def link fglKeyword fglSpecial 123 hi def link fglKeyword fglStatement 124 hi def link fglNumber Number 125 hi def link fglOperator fglStatement 126 hi def link fglSpecial Special 127 hi def link fglStatement Statement 128 hi def link fglString String 129 hi def link fglType Type 130 131 132 let b:current_syntax = "fgl" 133 134 " vim: ts=8