From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,XPRIO autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,7939196cc09b0686,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-11-05 04:44:08 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!news1.carrier1.net!newspeer.clara.net!news.clara.net!news5-gui.server.ntli.net!ntli.net!news6-win.server.ntlworld.com.POSTED!not-for-mail From: "chris.danx" Newsgroups: comp.lang.ada Subject: [OT] highlighter for ConTEXT MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="----=_NextPart_000_0047_01C165F6.E400C360" X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: Date: Mon, 5 Nov 2001 12:39:20 -0000 NNTP-Posting-Host: 62.252.149.248 X-Complaints-To: abuse@ntlworld.com X-Trace: news6-win.server.ntlworld.com 1004963934 62.252.149.248 (Mon, 05 Nov 2001 12:38:54 GMT) NNTP-Posting-Date: Mon, 05 Nov 2001 12:38:54 GMT Organization: ntlworld News Service Xref: archiver1.google.com comp.lang.ada:15800 Date: 2001-11-05T12:39:20+00:00 List-Id: This is a multi-part message in MIME format. ------=_NextPart_000_0047_01C165F6.E400C360 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Hi, The ConTEXT lacked a highlighter for Ada 95, (you couldn't get one at the site) so I've created one (it's not rocket science). Before it is submitted I'd like to know if anyone who uses (or might use) ConTEXT has any suggestions. I've checked as much as possible that all the reserved words are in there but maybe there are some I forgot to include. If there is let me know. It is attached and also follows this post. I thought about highlighting standard types, but that maybe more trouble than it's worth. Any thoughts? Regards, Chris //////////////////////////////////////////////////////////////////////////// // // // Ada 95 highlighter file by Danx (willowpl@hotmail.com) // //////////////////////////////////////////////////////////////////////////// // Language: Ada 95 Filter: Ada 95 files (*.ads,*.adb)|*.ads;*.adb HelpFile: CaseSensitive: 0 LineComment: -- BlockCommentBeg: BlockCommentEnd: IdentifierBegChars: a..z A..Z IdentifierChars: a..z A..Z _ 0..9 NumConstBegChars: # 0..9 NumConstChars: 0..9 abcdefABCDEF EscapeChar: KeyWords1: abort abs abstract accept access aliased all and array at begin body case constant declare delay delta digits do else elsif end entry exception exit for function generic goto if in is limited loop mod new null of or others out package pragma private procedure protected raise range record rem renames requeue return reverse select separate subtype tagged task then type until use when while with xor KeyWords2: KeyWords3: StringBegChar: " StringEndChar: " MultilineStrings: UsePreprocessor: 0 CurrLineHighlighted: 0 SpaceCol: clWindowText clWindow Keyword1Col: clBlue clWindow Keyword2Col: clMaroon clWindow Keyword3Col: clBlue clWindow IdentifierCol: clWindowText clWindow CommentCol: clRed clWindow NumberCol: clFuchsia clWindow StringCol: clTeal clWindow SymbolCol: clGray clWindow PreprocessorCol: clBlue clWindow SelectionCol: clWhite clNavy CurrentLineCol: clBlack clYellow ------=_NextPart_000_0047_01C165F6.E400C360 Content-Type: application/octet-stream; name="Ada 95.chl" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="Ada 95.chl" /////////////////////////////////////////////////////////////////////////= ///// // // Ada 95 highlighter file by Danx (willowpl@hotmail.com) // /////////////////////////////////////////////////////////////////////////= ///// Language: Ada 95 Filter: Ada 95 files (*.ads,*.adb)|*.ads;*.adb HelpFile: CaseSensitive: 0 LineComment: -- BlockCommentBeg: BlockCommentEnd: IdentifierBegChars: a..z A..Z IdentifierChars: a..z A..Z _ 0..9 NumConstBegChars: # 0..9 NumConstChars: 0..9 abcdefABCDEF EscapeChar: KeyWords1: abort abs abstract accept access aliased all and = array at begin body case constant declare delay delta digits do = else elsif end entry exception exit for function = generic goto if in is limited loop mod new null of or others out package pragma private = procedure protected raise range record rem renames requeue return reverse select separate subtype tagged = task then type until use when while with xor KeyWords2: KeyWords3: StringBegChar: " StringEndChar: " MultilineStrings: UsePreprocessor: 0 CurrLineHighlighted: 0 SpaceCol: clWindowText clWindow Keyword1Col: clBlue clWindow Keyword2Col: clMaroon clWindow Keyword3Col: clBlue clWindow IdentifierCol: clWindowText clWindow CommentCol: clRed clWindow NumberCol: clFuchsia clWindow StringCol: clTeal clWindow SymbolCol: clGray clWindow PreprocessorCol: clBlue clWindow SelectionCol: clWhite clNavy CurrentLineCol: clBlack clYellow ------=_NextPart_000_0047_01C165F6.E400C360--