| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 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 | |
| Bram Moolenaar | 89bcfda | 2016-08-30 23:26:57 +0200 | [diff] [blame] | 10 | " quit when a syntax file was already loaded |
| 11 | if exists("b:current_syntax") |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 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. |
| Bram Moolenaar | 89bcfda | 2016-08-30 23:26:57 +0200 | [diff] [blame] | 119 | " Only when an item doesn't have highlighting yet |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 120 | |
| Bram Moolenaar | f37506f | 2016-08-31 22:22:10 +0200 | [diff] [blame] | 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 |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 130 | |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 131 | |
| 132 | let b:current_syntax = "fgl" |
| 133 | |
| 134 | " vim: ts=8 |