https://www.dataaccess.com/js/syntaxhighlight/shBrushDataFlex.js

1/**
2 * SyntaxHighlighter
3 * http://alexgorbatchev.com/SyntaxHighlighter
4 *
5 * SyntaxHighlighter is donationware. If you are using it, please donate.
6 * http://alexgorbatchev.com/SyntaxHighlighter/donate.html
7 *
8 * @version
9 * 3.0.83 (July 02 2010)
10 * 
11 * @copyright
12 * Copyright (C) 2004-2010 Alex Gorbatchev.
13 *
14 * @license
15 * Dual licensed under the MIT and GPL licenses.
16 */
17;(function()
18{
19	// CommonJS
20	typeof(require) != 'undefined' ? SyntaxHighlighter = require('shCore').SyntaxHighlighter : null;
21
22	function Brush()
23	{
24		var keywords =	
25						'#COMMAND #IF #IFCLASS #IFDEF #IFNDEF #IFSAME BEGIN BEGIN_CONSTRAINTS BEGIN_ROW BEGIN_TRANSACTION CD_POPUP_OBJECT CLASS DFBEGINHEADER ENUM_LIST ENUMERATION_LIST FOR FUNCTION ITEM_LIST LOCK OBJECT PROCEDURE PROCEDURE_SECTION REPEAT REREAD STRUCT STRUCTURE_START TYPE WHILE ' +
26						'CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType ' +
27						'#ENDCOMMAND #ENDIF CD_END_OBJECT DFENDHEADER END END_CLASS END_CONSTRAINTS END_ENUM_LIST END_ENUMERATION_LIST END_FUNCTION END_ITEM_LIST END_OBJECT END_PROCEDURE END_ROW END_STRUCT END_TRANSACTION END_TYPE LOOP STRUCTURE_END UNLOCK UNTIL ' +
28						'EndHeader #Header #Include #IF #IFDEF #IFNDEF #ELSE #ENDIF #COMMAND #ENDCOMMAND #REPLACE #IFCLASS #IFSAME Abort Abort_transaction Activate_view Add Addressof Append_output Ascii Attach Begin_constraints Begin_transaction Broadcast Broadcast_focus Calc Calculate Call_driver Callback Cast Center Chain Channel Char Character Clear Close Close_input Close_output Cmdline Constrain Constrained_clear Constrained_find Constraint_set Constraint_validate Contains Copyfile Create_field Create_index Date Declare_datafile Decrement Default_Currency_Mask Default_Date_Mask Default_Numeric_Mask Deferred_view Define Delegate Delete Delete_db Delete_field Delete_index Derefc Derefdw Derefw Despool Direct_input Direct_output Directory End_constraints End_transaction Entry_item Entry_name_item Erasefile Err Errline Error Error_object_id Error_report Error_type Field Field_map Fieldindex File_exist Filenumber Fill_field Find Find_Recnum Finderr Forward Found Get_Address Get_argument_size Get_attribute Get_channel_position Get_channel_size Get_current_directory Get_cursor_visible Get_date_attribute Get_date_format Get_default_map_mode Get_directory Get_environment Get_field_value Get_FieldNumber Get_file_mod_time Get_file_path Get_filelist Get_foreign_profile_string Get_profile_string Get_program_key Get_registry_root Get_resource_name Get_transaction_retry Get_windows_directory Getbuff_string Getdskinfo GoSub GOSUB_RETURN Include_resource Increment Ind Indicate Indicator Insert InvokeXML Is_file_included IsDateValid Lasterr Left Length Load_def Load_driver Lock LockFile Login Logout Lowercase Matches Max Min Num_arguments On_item On_key Open Output Output_aux_file Overstrike Print Property Put Put_string Read Read_block Readln Relate Remove Remove_directory Renamefile Replace Replaces Reread RereadFile Runprogram Save Saverecord Seqeof Seqeol Set_app_profile_string Set_argument_size Set_attribute Set_channel_position Set_date_attribute Set_dfpath Set_field_value Set_foreign_profile_string Set_profile_string Set_registry_root Show Showln Sleep Sort Start_ui Storec Storedw Storew Structure_abort Structure_copy Structure_end Structure_start Subtract Sysdate Sysdate4 Time Unlock UnlockFile Uppercase Vconstrain Vfind Windowindex WinPrintId Write Writeln Zerofile Zerostring ' +
29						'Address BigInt Boolean Currency Decimal DWORD Float Handle Integer Number Pointer Real Short String UBigInt UChar UInteger UShort Variant ' +
30						'A An And Begin Break Case CD_end_object CD_popup_object Class Current_object Else End End_class End_Enum_List End_Enumeration_List End_function End_item_list End_object End_procedure End_Struct End_type Enum_List Enumeration_List External_function For From Function Function_return Get Iand If Import_class_protocol Ior Is Item_list Local Loop Move Not Object Of of Or or Procedure Procedure_return Procedure_Section Register_CD_Object Register_function Register_object Register_procedure Repeat Returns Self Send Set Struct To to Type Until Use While ' +
31						'Random Mod Eval Exp Right Round Rtrim Sqrt Log Ltrim Mid Pad Pos Append Trim Abs Acos Asin Atan Cos Sin Tan MemCopy MemSet Hi Low SortArray BinarySearchArray SearchArray SizeOfArray Re

31sizeArray CurrentDateTime DateGetDay DateGetDayofWeek DateGetDayofYear DateGetHour DateGetMinute DateGetMonth DateGetSecond DateGetYear DateSetDay DateSetHour DateSetMinute DateSetMonth DateSetSecond DateSetYear';
32						//'' - ! " $ % & ( ) * : ; ? @ \ ^ ` { | } ~ + < = > ';
33
34		var r = SyntaxHighlighter.regexLib;
35
36		this.regexList = [
37			//{ regex: /'.*$/gm,										css: 'comments' },			// one line comments
38			{ regex: r.singleLineCComments,							css: 'comments' },			// one line comments
39			{ regex: r.multiLineCComments,							css: 'comments' },			// multiline comments
40			// { regex: SyntaxHighlighter.regexLib.doubleQuotedString,	css: 'string' },			// strings
41			// { regex: /^\s*#.*$/gm,									css: 'preprocessor' },		// preprocessor tags like #region and #endregion
42			{ regex: new RegExp(this.getKeywords(keywords), 'gm'),	css: 'keyword' }			// vb keyword
43			];
44
45		this.forHtmlScript(SyntaxHighlighter.regexLib.aspScriptTags);
46	};
47
48	Brush.prototype	= new SyntaxHighlighter.Highlighter();
49	Brush.aliases	= ['DF', 'df', 'Df', 'dataflex', 'DataFlex'];
50
51	SyntaxHighlighter.brushes.Df = Brush;
52
53	// CommonJS
54	typeof(exports) != 'undefined' ? exports.Brush = Brush : null;
55})();