;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Add the following 4 lines to 
;; (defconst hilit-default-face-table
    (gsres1         ForestGreen       palegreen       bold)
    (gsres2         magenta           peachpuff       bold)
    (gsfunc1        blue              powderblue      italic)
    (gsfunc2        red               pink            underline)
;;
;; They set up default colours to use with a light background, a dark 
;; background and a monochrome terminal respectively
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Add the following to the section that starts 
;; (let ((comments     '(("/\\*" "\\*/" comment)))
;;       (c++-comments '(("//.*$" nil comment)
;; 		      ("^/.*$" nil comment)))
;;       (strings      '((hilit-string-find ?' string)))
;;       (preprocessor '(("^#[ \t]*\\(undef\\|define\\).*$" "[^\\]$" define)
;; 		      ("^#.*$" nil include))))
;;
;; 

   (hilit-set-mode-patterns
    '(gsl-mode)
    (append
     comments strings
     '(
       ("\\s #.*$" nil comment)
       ("^#.*$" nil comment)
       ("[ \n\t]\\(and\\|break\\|const\\|continue\\|create\\|date\\|destroy\\|elif\\|else\\|endfor\\|endfunction\\|endif\\|endwhile\\|false\\|float\\|for\\|function\\|if\\|in\\|include\\|not\\|or\\|pi\\|print\\|quit\\|repaint\\|return\\|scope\\|set\\|step\\|stop\\|string\\|then\\|time\\|to\\|today\\|true\\|undef\\|while\\)[ ,\t\n+]" nil gsres1)
    ("[ \n\t]\\(Arrow\\|Axis\\|Bulletin\\|Button\\|Canvas\\|Command\\|Dialog\\|Domain\\|Folder\\|Graph\\|Icon\\|Label\\|Legend\\|Logo\\|Menu\\|Menubar\\|Note\\|Page\\|Panel\\|Popup\\|Separator\\|Switch\\|Text\\|Title\\|Toolbar\\|Viewport\\|XuN[a-zA-Z]*\\)[ ,\t\n+]" nil gsres2)
    ("[ \n\t]\\(GuiFileOpen\\|GuiFileSave\\|GuiFilePrintSetup\\|GuiFilePrint\\|GuiFileResetAll\\|GuiFileExit\\|GuiHelp\\|GuiCreateObject\\|GuiEditCut\\|GuiEditCopy\\|GuiEditPaste\\|GuiEditTemplate\\|GuiEditColors\\|GuiEditShades\\|GuiEditLines\\|GuiEditText\\|GuiEditFrames\\|GuiDeleteSelected\\|GuiViewRepaint\\|GuiViewReset\\|GuiOptionsText\\|GuiOptionsSnapGrid\\|GuiToolsDatapool\\|GuiToolsBrowser\\|GuiToolsProgramEditor\\|GuiToolsFunctionEditor\\|GuiPopupDialog\\|GuiPopdownDialog\\|GuiGetString\\|GuiSetString\\|GuiStopIcon\\|GuiResetStopIcon\\|GuiClipboardDropSite\\|GuiTrashcanDropSite\\|GuiViewportDropSite\\|GuiGroupDropSite\\|GuiAddGraphPopupCB\\|GuiGraphDropSite\\|GuiTitleDropSite\\|GuiNoteDropSite\\|GuiArrowDropSite\\|GuiLogoDropSite\\|GuiShowClipboard\\|GuiShowTrashcan\\|GuiCopyClipboard\\|PasteFromExcel\\|GuiSwitchGetState\\|GuiSwitchSetState\\|GuiAutoRepaint\\|GuiAutoRepaintOnDataChanged\\|GuiGraphPicking\\|GuiAutoApply\\|GuiAutoSave\\|GuiSnapRadius\\|GuiCommandClear\\|GuiMessageClear\\|GuiCommandLogging\\|GuiMessageLogging\\|GuiSetDeleteSelectedId\\|GuiDestroyDeleteSelectedId\\|GuiSetAutoRepaintId\\|GuiSetAutoRepaintOnDataChangedId\\|GuiDestroyAutoRepaintId\\|GuiDestroyAutoRepaintOnDataChangedId\\|GuiSetGraphPickingId\\|GuiDestroyGraphPickingId\\|GuiSetAutoApplyId\\|GuiDestroyAutoApplyId\\|GuiSetCommandToolbarId\\|GuiSetObjectToolbarId\\|GuiSetCommandLoggingId\\|GuiDestroyCommandLoggingId\\|GuiSetMessageLoggingId\\|GuiDestroyMessageLoggingId\\|GuiDestroyObjectToolbar\\|GuiDestroyCommandToolbar\\|Gui3DRotate\\|setsensitive\\|GuiPageClear\\|GuiCommandLineRedraw\\|GuiCommandLog\\|GuiLogCommand\\|GuiImagePrintDlg\\|GuiGetAllString\\|GuiHTMLHelp\\|GuiCheckDialog\\|GuiPageEditor\\|GuiViewportEditor\\|GuiArrowEditor\\|GuiNoteEditor\\|GuiLogoEditor\\|GuiLegendEditor\\|GuiGraphEditor\\|GuiTitleEditor\\|GuiAxisEditor\\|GuiDomainEditor\\|GuiSnapGridEditor\\|GuiTextOptEditor\\|GuiLineEditor\\|GuiTextEditor\\|GuiWarning\\|GuiSelectInterface\\|ShowObjectEditor\\|CanvasCB\\|GuiGraphPickingNew\\|DeleteObject\\|GuiDeleteObject\\|GuiDeleteCB\\|GuiEditObject\\|GuiEditCB\\|GuiEditSelected\\|GuiPageSetup\\|GuiImagePrintSetup\\|GuiOptionsInterface\\|WindowLayoutCB\\|GuiCreateObjects\\|GuiCreateIcons\\|GuiPack\\|GuiUnpack\\|GuiWarn\\|GuiInfo\\|GuiQuestion\\|GuiMultiline\\|GuiEchoCB\\|GuiEvalCB\\|GuiExecCB\\|GuiPopupCB\\|GuiPopdownCB\\|GuiDestroyCB\\|GuiPopupDialogCB\\|GuiPopdownDialogCB\\|GuiSetCanvasCallback\\|GuiShowSelectionCB\\|GuiSelectionMadeCB\\|GuiShowExample\\|ObjChildProtection\\|ObjBranchOf\\|ObjNewPathName\\|ObjPathCreate\\|ObjResourceEnumerateds\\|ObjTupleStrValue\\|ObjTupleValueStr\\|ObjTemplateName\\|ObjShortName\\|ObjNewName\\|ObjParent\\|ObjParentOfClass\\|ObjChildrenOfClass\\|ObjFindChild\\|ObjChildren\\|ObjFramesEnabled\\|ObjClasses\\|ObjBundleResources\\|ObjResourceBundles\\|ObjMultiMatch\\|ObjResourceValueString\\|XuClosestColor\\|XuTokenize\\|XuMsg\\|XuTrace\\|XuTuple2Str\\|XuGetArg\\|XuMaxDayNumber\\|XuIndexOf\\|XuSwap\\|XuWorkboxToMM\\|XuWorkboxToWorld\\|XuWorldToWorkbox\\|XuPercentWidth\\|XuPercentHeight\\|XuRelativeMM\\|XuFileList\\|XuUNIXFileList\\|XuWindowsFileList\\|XuVMSFileList\\|XuReadTextLines\\|XuReadTextFile\\|XuReadHTTPFile\\|XuWriteTextFile\\|XuTextReplace\\|XuBasename\\|GuiZoom_\\|GuiZoom\\|GuiZoomIn\\|GuiZoomOut\\|GuiZoomFactor\\|GuiZoomInit\\|GuiZoomRestore\\|GuiZoomUndo\\|GuiCreateMenubar\\|GuiCreateFileMenu\\|GuiCreateCreateMenu\\|GuiCreateTemplateMenu\\|GuiCreateEditMenu\\|GuiCreateDeleteMenu\\|GuiCreateViewMenu\\|GuiCreateOptionsMenu\\|GuiCreateToolsMenu\\|GuiCreateExampleMenu\\|GuiCreateCommandToolbar\\|GuiCreateCanvas\\|GuiCreateObjectToolbar\\|GuiCreateCommandLine\\|GuiCreateHelpMenu\\|GuiDefineDevices\\)[ =\t\n+]" nil gsfunc1)
    ("[ \n\t]\\(bounding_polygon\\|all\\|getresources\\|getenums\\|getunit\\|use_library\\|dbopt\\|append\\|count\\|countx\\|dropx\\|dropy\\|dropz\\|if\\|list\\|mask\\|redim\\|repeatx\\|repeaty\\|repeatz\\|reshape\\|reverse\\|size\\|sizex\\|sizey\\|sizez\\|slice\\|slicex\\|slicey\\|slicez\\|dateformat1\\|daynumber\\|dayrange\\|daysince\\|hournumber\\|hourrange\\|invdaysince\\|invsecsince\\|middayrange\\|midhourrange\\|midminuterange\\|midmonthrange\\|midquarterrange\\|midsecondrange\\|midweekrange\\|midyearrange\\|minutenumber\\|minuterange\\|monthnumber\\|monthrange\\|quarternumber\\|quarterrange\\|secondnumber\\|secondrange\\|secsince\\|timeformat1\\|todate\\|totime\\|weekday\\|weeknumber\\|weekrange\\|yearnumber\\|yearrange\\|abs\\|acos\\|accum\\|and\\|asin\\|atan\\|atan2\\|avg\\|avgx\\|cos\\|cosh\\|crosssum\\|crosstable\\|diff\\|differentiate\\|div\\|exp\\|exprnd\\|fact\\|fftabs\\|fftimag\\|fftcos\\|fftreal\\|fftsin\\|fprob\\|histogram\\|histosum\\|int\\|integrate\\|invfftimag\\|invfftreal\\|ln\\|log\\|log10\\|matdet\\|matinv\\|matmul\\|matsolve\\|max\\|max2\\|maxx\\|min\\|min2\\|minx\\|mod\\|moveavg\\|movesum\\|nicerange\\|nint\\|normprob\\|normrnd\\|not\\|or\\|range\\|rnd\\|round\\|seed\\|set_undef\\|sign\\|sin\\|sinh\\|sqrt\\|std\\|std1\\|std1x\\|stdx\\|step\\|step2\\|sum\\|sumx\\|tan\\|tanh\\|tprob\\|transpose\\|trunc\\|x2prob\\|bilinear\\|fault\\|polynomial\\|bivariate\\|expsemiv\\|krig2d\\|lags\\|linsemiv\\|polyfit\\|ransemiv\\|regular\\|smooth\\|sphsemiv\\|spline\\|xpmsemiv\\|export_ascii\\|export_binary\\|export_report\\|export_folder\\|import_ascii\\|import_field\\|import_binary\\|import_report\\|import_folder\\|import_csv\\|match\\|sprintf\\|strchr\\|strrchr\\|strlen\\|strstr\\|strvalue\\|substr\\|tokenize\\|tolower\\|tostring\\|toupper\\|tovalue\\|valuestr\\|convjp\\|nlsmsg\\|sort\\|sortby\\|unique\\|proj_coord\\|proj_false\\|proj_origin\\|proj_parallels\\|proj_scale_factor\\|proj_spheroid\\|proj_spheroid_select\\|proj_transform\\|proj_type\\|proj_unit\\|proj_utm_zone\\|batch\\|appseat\\|webedition\\|current_folder\\|current_object\\|define_device\\|echo\\|eval\\|exec\\|generate_gsl\\|getdir\\|getpid\\|member\\|message_level\\|set_messages\\|get_messages\\|namelist\\|filelist\\|nargs\\|pause\\|quit\\|printf\\|setdir\\|system\\|tmpnam\\|version\\|os_type\\|input_float\\|input_string\\|input_file\\|input_selection\\|input_dataset\\|beep\\|fopen\\|fflush\\|fclose\\|ftell\\|fseek\\|fread\\|fwrite\\|fprintf\\|rename\\|remove\\|import_worldmap\\|showcode\\|showcountry\\|getcountry\\|getcode\\|getenv\\|putenv\\)[ (\t\n+]" nil gsfunc2)
    )))