runtime/syntax/fgl.vim

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