4GL syntax coloring file for UltraEdit

Hello, Does anybody know if there is a 4GL syntax coloring file for the UltraEdit source editor. If there is, where can it be obtained. Thanx, Henk

I don't know if such a file already exists but I made my own just for a try. It doesn't recognize more than 50% of the vocabulary but it's a beginning. I made it by extracting all the words of some of my programs (we use to write keywords uppercase) and sort them as it's required. You just have to add theses lines to your Wordfile.txt file or make your own and use it in the Configuration menu. If somebody knows a real one, think of me ... Henk van der Geld wrote: > Hello, > > Does anybody know if there is a 4GL syntax coloring file for the > UltraEdit source editor. If there is, where can it be obtained. > > Thanx, > Henk

Hi, This one (.4gl, .per, and .sql) is for GWD edit. C&P this to the syntax.hgl Oh, http://www.gwdsoft.com/index.html [Informix 4GL] FilePattern=*.4gl;*.err CaseSensitive=no UnixTexKeywords=no FortranComment=no CobolCommentPos=0 CobolCommentChar= FirstComment=# MultiComment={ } LineComment1=# LineComment2=-- MaxLineLen=0 StringDelim=" CharDelim=' QuoteChar= OpenCloseDelim=([ ]) Delimiters=,.: Operators=-+=*/<>@ Preprocess=| Words=0-9a-zA-Z_. Numbers=-+0-9eE. LineNumbers=yes HTML= Cobol=no Keyword1= Keyword2=atbyifinisnoofonorto Keyword3=ALLandANYavgdayendESCforkeyletlogmaxmdyminnotredrowrunsetsumtop Keyword4=blueBOLDcallcasecharcyandatedescDROPelseexitfileformFREEfromgotohelpHIDEHOLDHOURintolastleftlikelineloadLOCKmainmenuMODEnameNEEDnextnullopenpagePIPEquitREADrowsshowskipsortSTEPSTOPTEMPtextthenTIMEtrueWAITwhenwithWORKWRAPyear Keyword5=afterarrayasciiBEGINblinkclearclosecountDEFERDIRTYerroreveryfalsefetchfieldfirstfloatgreenGROUPindexinputlabellinesmoneymonthorderouterpauseprintrightsleepspacestartTABLEtodayunionUNITSusingwhereWHILEwhite Keyword6=ACCEPTbeforeborderbottomcolumncommitcreatecursordefinedeleteESCAPEexistsfinishformatHAVINGheaderinsertlengthlocatemarginMINUTEnormaloptionoutputPAGENOpromptrecordreportreturnSCREENscrollSECONDselectserialspacesstatusUNIQUEupdatevalueswindowyellow Keyword7=betweenclippedcolumnscommandcommentCURRENTDECIMALdeclaredisplayexecuteforeachglobalsinfieldintegerMAGENTAmatchesmessageNUMERICoptionsprepareprinterprogramreversetrailerupshiftVARCHARwaitingwithout Keyword8=ABSOLUTEcontinuedatabaseDATETIMEdefaultsDISTINCTEXTERNALFRACTIONfunctionINT_FLAGINTERVALNOTFOUNDpreviousROLLBACKsmallintwhenever Keyword9=attributecommittedconstructdelimiterdownshiftexclusiveINTERRUPTISOLATIONotherwisequit_flagreturning Keyword10=attributesinitializestatistics Keyword11=fgl_lastkey Keyword12= Keyword13=fgl_lastkey() Keyword14= Keyword15= Keyword16= ColorComment=3 ColorPreproc=13 ColorString=6 ColorNumber=6 ColorDelim=14 ColorOperator=13 ColorKeyword=10 ColorText=0 ColorBackground=0 ColorLineNumbers=8 [Informix PER] FilePattern=*.per CaseSensitive=no UnixTexKeywords=no FortranComment=no CobolCommentPos=0 CobolCommentChar= FirstComment= MultiComment={ } LineComment1= LineComment2= MaxLineLen=0 StringDelim=" CharDelim= QuoteChar= OpenCloseDelim=([ ]) Delimiters=;, Operators=-+=*/<>^ Preprocess=| Words=0-9a-zA-Z_ Numbers=-+0-9eE. LineNumbers=yes HTML= Cobol=no Keyword1= Keyword2=by Keyword3=endred Keyword4=bluecharcyandatekeyslikesizetype Keyword5=blackcolorgreentodaywhite Keyword6=formatrecordscreentablesyellow Keyword7=defaultincludeintegermagentanoentrypicturereversethroughUPSHIFT Keyword8=autonextcommentsCOMPRESSdatabaseformonlynoupdaterequiredsmallintWORDWRAP Keyword9=characterdownshift Keyword10=attributesdelimiters Keyword11= Keyword12=instructions Keyword13= Keyword14= Keyword15= Keyword16= ColorComment=3 ColorPreproc=13 ColorString=6 ColorNumber=6 ColorDelim=13 ColorOperator=13 ColorKeyword=10 ColorText=0 ColorBackground=0 ColorLineNumbers=8 [Informix SQL] FilePattern=*.sql CaseSensitive=no UnixTexKeywords=no FortranComment=no CobolCommentPos=0 CobolCommentChar= FirstComment= MultiComment={ } LineComment1=rem LineComment2=-- MaxLineLen=0 StringDelim=" CharDelim=' QuoteChar= OpenCloseDelim=([ ]) Delimiters=:@. Operators=-+=*/<> Preprocess= Words=0-9a-zA-Z_. Numbers=-+0-9eE. LineNumbers=yes HTML= Cobol=no Keyword1= Keyword2=asbyifinisnoofonorto Keyword3=addallandanyavgdaydbaendforintkeyletlogmaxmdyminmodnewnotoldprerowsetsum Keyword4=callchardatedropeachelifelseexitfilefromintolikeloadlockmodenullpostreadtemptextthenviewwaitwhenwithworkyear Keyword5=alterbeginclosecountdebugdirtyfloatgrantgroupindexmoneymonthorderouterraisetabletodaytraceunionunitswherewhile Keyword6=beforecommitcreatedefinedeleteexistsextendglobalinsertlengthminuteresumereturnrevokesecondselectserialsystemuniqueunloadupdatevalues Keyword7=connectcurrentdecimaldefaultexecuteforeachforeignintegermatchesprimarysynonymtriggervarcharweekday Keyword8=continuedatabasedatetimedocumentfractionintervalresourcerollbacksmallint Keyword9=exceptionisolationprocedurereturning Keyword10=constraintreferences Keyword11=referencing Keyword12= Keyword13= Keyword14= Keyword15= Keyword16= ColorComment=3 ColorPreproc=13 ColorString=6 ColorNumber=6 ColorDelim=14 ColorOperator=7 ColorKeyword=10 ColorText=0 ColorBackground=0 ColorLineNumbers=8 Henk van der Geld <H.van.der.Geld@net.HCC.nl> wrote: >Hello, > >Does anybody know if there is a 4GL syntax coloring file for the >UltraEdit source editor. If there is, where can it be obtained. > >Thanx, >Henk > #-------------------------------------------------------------------------- globals "std_disclaimer.4gl" case author when "John McNally" return "Informix Unleashed", "To develop with 4GL, developer does not have to be an expert programmer" when "Norman Fischer" return "Wired 7.01", "Real technology behind all our technologies is language" when "Pablo Picasso" return NULL, "Computers are useless. They can only give you answers" when "Andrej Falout", return "afalout@ihug.co.nz", "One and one is not two, but eleven" end case

On Thu, 29 Apr 1999 22:38:33 +0200, Henk van der Geld <H.van.der.Geld@net.HCC.nl> wrote: >Hello, > >Does anybody know if there is a 4GL syntax coloring file for the >UltraEdit source editor. If there is, where can it be obtained. > >Thanx, >Henk Here are my definitions for 4gl, sql and per. The per isn't very good due to the interesting syntax quirks but it works for me. --------------8< snip >8----------------------- /L6"i4gl" Nocase Line Comment = # Block Comment On = { Block Comment Off = } String Chars = "' File Extensions = 4gl /Function String = "%function" /Indent Strings = "then" /Unindent Strings = "else" "end" /C1 after at attribute before border bottom by call case clear clipped close column command construct continue cursor database declare defaults defer define display else end error every exit field finish first for foreach form format function header if initialize input interrupt key last left let like line lines main margin menu message name need next of on open option otherwise output page print prompt quit report return returning right row run skip start then to top using when whenever while window with without wrap /C2 create delete drop fetch from group insert into order prepare select setrowid table temp update values where /C3 globals /C4 arg_val null pageno set_count sqlca.sqlcode status time today /C6 and is not or /C7 array char date decimal integer money record smallint /L7"sql" Nocase Block Comment On = { Block Comment Off = } String Chars = "' File Extensions = sql /C1 create delete drop fetch from group index insert into on order prepare select setrowid table temp unique update values where /C6 and is not or /C7 array char date decimal integer money record smallint /L8"per" Nocase String Chars = "' File Extensions = per /Marker Characters = "[]{}" /C1 attributes autonext comments database delimiters end instructions record reverse screen tables type upshift /C4 [] /C7 array char date decimal integer money record smallint --------------8< snip >8-----------------------