! Syntax Highlighting Patterns for 4GL
!
! Version: 1.1, February 20, 2003
! (submitted by Lajos Rohoska <rohoska@freemail.hu>)
! Version: 1.0, April 26, 2000
! (submitted by Evgeny Gorbachev <Eugeny.Gorbachev@iname.com>)
!
! Notice that these patterns are based on Informix 4GL and there is no
! guarantee that they'll work correctly for other versions of 4GL.
! Finally, they aren't maintained by author.
! The patterns were written for NEdit version 5.0.x
!
! INSTALLATION
!
! In NEdit Version 5.0.1 and beyond, load this pattern by starting nedit with:
!
!     nedit -import <name of this file>
!
! Then, check that the patterns were loaded correctly, and choose Save Defaults
! from the Preferences menu.  The new patterns will now be incorporated into
! your own .nedit file, so the next time you start NEdit, you will no longer
! need to use -import.
!
! In version 5.0, without -import, you must edit your .nedit file by hand and
! add the contents of each resource below to the corresponding list in your
! .nedit file.  Be sure to separate new entries with \n, and continue resource
! strings by escaping all newlines within a resource value with \ (backslash),
! leaving only the last line of the resource value not ending in \.
!
nedit.highlightPatterns: \
	4GL:1:0{\n\
		Comment:"\\{":"\\}"::Comment::\n\
		Comment #:"#":"$"::Comment::\n\
		Comment --:"--":"$"::Comment::\n\
		String:"""":"""":"\\n":String::\n\
		Character constant:"'":"'":"[^\\\\][^']":Character Const::\n\
		Numeric constant:"<((0(x|X)[0-9a-fA-F]*)|(([0-9]+\\.?[0-9]*)|(\\.[0-9]+))((e|E)(\\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f)?>":::Numeric Const::D\n\
		Braces:"[()[\\]]":::Keyword::D\n\
		Storage keyword:"<(byte|smallint|integer|int|decimal|dec|numeric|smallfloat|float|money|nchar|nvarchar|character|char|varchar|date|datetime|interval|like|record|array|BYTE|SMALLINT|INTEGER|INT|DECIMAL|DEC|NUMERIC|SMALLFLOAT|FLOAT|MONEY|NCHAR|NVARCHAR|CHARACTER|CHAR|VARCHAR|DATE|DATETIME|INTERVAL|LIKE|RECORD|ARRAY)>":::Storage Type::D\n\
		Keyword:"<(attributes|ATTRIBUTES|call|CALL|case|CASE|clipped|CLIPPED|column|COLUMN|continue|CONTINUE|defer|DEFER|define|DEFINE|display|DISPLAY|do|DO|else|ELSE|end|END|exit|EXIT|for|FOR|go|GO|goto|GOTO|if|IF|initialize|INITIALIZE|label|LABEL|let|LET|menu|MENU|message|MESSAGE|otherwise|OTHERWISE|pause|PAUSE|program|PROGRAM|prompt|PROMPT|return|RETURN|returning|RETURNING|reverse|REVERSE|run|RUN|sleep|SLEEP|startlog|STARTLOG|then|THEN|through|THROUGH|thru|THRU|units|UNITS|when|WHEN|whenever|WHENEVER|while|WHILE|wrap|WRAP)>":::Keyword::D\n\
		Preprocessor line:"<([gG]lobals|GLOBALS)>":"$"::Preprocessor::\n\
		SQL:"<([aA]lter|ALTER|[aA]nd|AND|[aA]ny|ANY|[aA]s|AS|[aA]sc|ASC|[aA]scending|ASCENDING|[aA]t|AT|[aA]verage|AVERAGE|[aA]vg|AVG|[bB]efore|BEFORE|[bB]egin|BEGIN|[bB]etween|BETWEEN|[bB]y|BY|[cC]lose|CLOSE|[cC]ommit|COMMIT|[cC]ommitted|COMMITTED|[cC]onnect|CONNECT|[cC]onstraint|CONSTRAINT|[cC]reate|CREATE|[cC]urrent|CURRENT|[cC]ursor|CURSOR|[dD]atabase|DATABASE|[dD]ba|DBA|[dD]eclare|DECLARE|[dD]elete|DELETE|[dD]elimiter|DELIMITER|[dD]esc|DESC|[dD]escending|DESCENDING|[dD]istinct|DISTINCT|[dD]rop|DROP|[eE]xecute|EXECUTE|[eE]xists|EXISTS|[fF]etch|FETCH|[fF]oreach|FOREACH|[fF]ound|FOUND|[fF]ree|FREE|[fF]rom|FROM|[gG]rant|GRANT|[gG]roup|GROUP|[hH]aving|HAVING|[hH]old|HOLD|[iI]n|IN|[iI]ndex|INDEX|[iI]nsert|INSERT|[iI]nto|INTO|[iI]s|IS|[iI]solation|ISOLATION|[jJ]oin|JOIN|[lL]oad|LOAD|[lL]ock|LOCK|[lL]og|LOG|[mM]atches|MATCHES|[mM]ode|MODE|[nN]ext|NEXT|[nN]o|NO|[nN]ot|NOT|[nN]ot[fF]ound|NOTFOUND|[nN]ull|NULL|[oO]f|OF|[oO]pen|OPEN|[oO]r|OR|[oO]rder|ORDER|[oO]uter|OUTER|[pP]repare|PREPARE|[pP]revious|PREVIOUS|[pP]ublic|PUBLIC|[pP]ut|PUT|[rR]ecover|RECOVER|[rR]evoke|REVOKE|[rR]ollback|ROLLBACK|[sS]croll|SCROLL|[sS]elect|SELECT|[sS]et|SET|[tT]able|TABLE|[tT]emp|TEMP|[tT]o|TO|[tT]oday|TODAY|[uU]nion|UNION|[uU]nique|UNIQUE|[uU]nload|UNLOAD|[uU]nlock|UNLOCK|[uU]pdate|UPDATE|[uU]ser|USER|[uU]sing|USING|[vV]alues|VALUES|[vV]iew|VIEW|[wW]ait|WAIT|[wW]here|WHERE|[wW]ith|WITH|[wW]ork|WORK)>":::Text Arg1::D\n\
		Report:"<([aA]fter|AFTER|[bB]efore|BEFORE|[bB]ottom|BOTTOM|[eE]very|EVERY|[fF]inish|FINISH|[fF]irst|FIRST|[fF]ormat|FORMAT|[hH]eader|HEADER|[lL]ast|LAST|[lL]eft|LEFT|[lL]ine|LINE|[lL]ineno|LINENO|[lL]ines|LINES|[mM]argin|MARGIN|[oO]utput|OUTPUT|[pP]age|PAGE|[pP]ageno|PAGENO|[pP]rint|PRINT|[rR]eport|REPORT|[rR]ight|RIGHT|[rR]ow|ROW|[rR]ows|ROWS|[sS]kip|SKIP|[sS]pace|SPACE|[sS]paces|SPACES|[sS]tart|START|[tT]op|TOP|[tT]railer|TRAILER)>":::Text Key1::\n\
		Function:"<([mM]ain|MAIN|[fF]unction|FUNCTION)>[\\t ]*([a-zA-Z0-9_]*)":::Subroutine::\n\
		FunctionName:"\\1":""::Subroutine1:Function:C\n\
	}
nedit.languageModes:     4GL:.4gl .per::Auto:None:::