vim, code beauty and 4gl

------=_20050209191410_48873 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 8bit Don't know what I'm supposed to do with it... -- Bye now, Obnoxio "C'est pas parce qu'on n'a rien ' dire qu'il faut fermer sa gueule" - Coluche "I'm trying to see things your way, but I can't get my head up my ass" - JCH "Ogni uomo mi guarda come se fossi una testa di cazzo" - Marco Travel broadens a person. You look as if you have been all over the world. I went to the airport to check in and they asked what I did because I looked like a terrorist. I said I was a comedian. They said, "Say something funny then." I told them I had just graduated from flying school. -- Ahmed Ahmed http://members.rogers.com/2remedy/images/smilies/banners/RTFM.gif ------=_20050209191410_48873 Content-Type: message/rfc822; name="RE: 4gl code beautifier for Windows? [1410].eml" Content-Transfer-Encoding: 8bit Content-Disposition: attachment; filename="RE: 4gl code beautifier for Windows? [1410].eml" Return-Path: <informatica@serpis.com> Delivered-To: obnoxio@serendipita.com Received: (qmail 10792 invoked from network); 9 Feb 2005 08:50:51 -0000 Received: from fe1-message1.clearmessage.com (HELO clearmessage.com) (146.101.136.67) by 82-69-147-185.dsl.in-addr.zen.co.uk with SMTP; 9 Feb 2005 08:50:51 -0000 Received: (qmail 24465 invoked by uid 1004); 9 Feb 2005 08:48:19 -0000 Received: (qmail-ldap/ctrl 24453 invoked from network); 9 Feb 2005 08:48:05 -0000 Received: from localhost (HELO message1.clearmessage.com) ([127.0.0.1]) (envelope-sender <informatica@serpis.com>) by message1-smtp.clearmessage.com (qmail-ldap-1.03) with SMTP for <obnoxio@serendipita.com>; 9 Feb 2005 08:48:05 -0000 Received: (qmail 24448 invoked by uid 0); 9 Feb 2005 08:48:04 -0000 Received: from llsa735-a01.servidoresdns.net (HELO smtp-01.servidoresdns.net) (82.223.190.26) by message1.clearmessage.com with SMTP; 9 Feb 2005 08:48:04 -0000 Received-SPF: none (message1.clearmessage.com: domain at serpis.com does not designate permitted sender hosts) Received: from sbs2000.serpis2k2.local (77.Red-213-97-82.pooles.rima-tde.net [213.97.82.77]) by smtp-01.servidoresdns.net (Postfix) with ESMTP id 3AF693C69EA; Wed, 9 Feb 2005 09:22:05 +0100 (CET) Subject: RE: 4gl code beautifier for Windows? [1410] Date: Wed, 9 Feb 2005 09:22:51 +0100 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Message-ID: <A23D9B316FD4B4428A91327FA738CCEAF527@localhost> content-class: urn:content-classes:message X-MS-Has-Attach: X-MimeOLE: Produced By Microsoft Exchange V6.0.6603.0 X-MS-TNEF-Correlator: Thread-Topic: 4gl code beautifier for Windows? [1410] Thread-Index: AcUOeVw6Il/YKSKAQrascofXoDTIjwABmQlg From: "Jose Luis Rico Botella" <informatica@serpis.com> To: "Obnoxio The...." <obnoxio@serendipita.com>, <forum.subscriber@iiug.org> X-Clearmessage-Information: Please contact http://www.clearmessage.com for more information X-CM-0: not spam, SpamAssassin (score=-4.9, required 0, BAYES_00 -4.90, UPPERCASE_25_50 0.00) X-CM-IP: X-CM-Scanner-Mail-From: informatica@serpis.com X-CM-Scanner-Rcpt-To: obnoxio@serendipita.com Vim 5.x and lastest can do indentation of 4gl Flg.vim =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D " Vim syntax file " Language: Informix 4GL " Maintainer: Rafal M. Sulejman <rms@poczta.onet.pl> " Update: 26 Sep 2002 " Changes: " - Dynamic 4GL/FourJs/4GL 7.30 pseudo comment directives (Julian = Bridle) " - Conditionally allow case insensitive keywords (Julian Bridle) " " For version 5.x: Clear all syntax items " For version 6.x: Quit when a syntax file was already loaded if version < 600 syntax clear elseif exists("b:current_syntax") finish endif syntax case ignore syn keyword fglKeyword ABORT ABS ABSOLUTE ACCEPT ACCESS ACOS ADD AFTER = ALL syn keyword fglKeyword ALLOCATE ALTER AND ANSI ANY APPEND ARG_VAL ARRAY = ARR_COUNT syn keyword fglKeyword ARR_CURR AS ASC ASCENDING ASCII ASIN AT ATAN = ATAN2 ATTACH syn keyword fglKeyword ATTRIBUTE ATTRIBUTES AUDIT AUTHORIZATION AUTO = AUTONEXT AVERAGE AVG syn keyword fglKeyword BEFORE BEGIN BETWEEN BLACK BLINK BLUE BOLD BORDER = BOTH BOTTOM syn keyword fglKeyword BREAK BUFFERED BY BYTE syn keyword fglKeyword CALL CASCADE CASE CHAR CHARACTER CHARACTER_LENGTH = CHAR_LENGTH syn keyword fglKeyword CHECK CLASS_ORIGIN CLEAR CLIPPED CLOSE CLUSTER = COLOR syn keyword fglKeyword COLUMN COLUMNS COMMAND COMMENT COMMENTS COMMIT = COMMITTED syn keyword fglKeyword COMPOSITES COMPRESS CONCURRENT CONNECT CONNECTION syn keyword fglKeyword CONNECTION_ALIAS CONSTRAINED CONSTRAINT = CONSTRAINTS CONSTRUCT syn keyword fglKeyword CONTINUE CONTROL COS COUNT CREATE CURRENT CURSOR = CYAN syn keyword fglKeyword DATA DATABASE DATASKIP DATE DATETIME DAY DBA = DBINFO DBSERVERNAME syn keyword fglKeyword DEALLOCATE DEBUG DEC DECIMAL DECLARE DEFAULT = DEFAULTS DEFER syn keyword fglKeyword DEFERRED DEFINE DELETE DELIMITER DELIMITERS DESC = DESCENDING syn keyword fglKeyword DESCRIBE DESCRIPTOR DETACH DIAGNOSTICS DIM DIRTY = DISABLED syn keyword fglKeyword DISCONNECT DISPLAY DISTINCT DISTRIBUTIONS DO = DORMANT DOUBLE syn keyword fglKeyword DOWN DOWNSHIFT DROP syn keyword fglKeyword EACH ELIF ELSE ENABLED END ENTRY ERROR ERRORLOG = ERR_GET syn keyword fglKeyword ERR_PRINT ERR_QUIT ESC ESCAPE EVERY EXCEPTION = EXCLUSIVE syn keyword fglKeyword EXEC EXECUTE EXISTS EXIT EXP EXPLAIN EXPRESSION = EXTEND EXTENT syn keyword fglKeyword EXTERN EXTERNAL syn keyword fglKeyword F1 F10 F11 F12 F13 F14 F15 F16 F17 F18 F19 F2 F20 = F21 F22 F23 syn keyword fglKeyword F24 F25 F26 F27 F28 F29 F3 F30 F31 F32 F33 F34 = F35 F36 F37 F38 syn keyword fglKeyword F39 F4 F40 F41 F42 F43 F44 F45 F46 F47 F48 F49 F5 = F50 F51 F52 syn keyword fglKeyword F53 F54 F55 F56 F57 F58 F59 F6 F60 F61 F62 F63 = F64 F7 F8 F9 syn keyword fglKeyword FALSE FETCH FGL_GETENV FGL_KEYVAL FGL_LASTKEY = FIELD FIELD_TOUCHED syn keyword fglKeyword FILE FILLFACTOR FILTERING FINISH FIRST FLOAT = FLUSH FOR syn keyword fglKeyword FOREACH FOREIGN FORM FORMAT FORMONLY FORTRAN = FOUND FRACTION syn keyword fglKeyword FRAGMENT FREE FROM FUNCTION GET_FLDBUF GLOBAL = GLOBALS GO GOTO syn keyword fglKeyword GRANT GREEN GROUP HAVING HEADER HELP HEX HIDE = HIGH HOLD HOUR syn keyword fglKeyword IDATA IF ILENGTH IMMEDIATE IN INCLUDE INDEX = INDEXES INDICATOR syn keyword fglKeyword INFIELD INIT INITIALIZE INPUT INSERT INSTRUCTIONS = INT INTEGER syn keyword fglKeyword INTERRUPT INTERVAL INTO INT_FLAG INVISIBLE IS = ISAM ISOLATION syn keyword fglKeyword ITYPE syn keyword fglKeyword KEY LABEL syn keyword fglKeyword LANGUAGE LAST LEADING LEFT LENGTH LET LIKE LINE syn keyword fglKeyword LINENO LINES LOAD LOCATE LOCK

Any chance of posting Flg.vim as plain text? -- Regards, Doug Lawry www.douglawry.webhop.org "Obnoxio The Chav" <obnoxio@serendipita.com> wrote in message news:1107983449.d4894ffb7ffd558dbfc1ae0d685e4be5@teranews... > > ------=_20050209191410_48873 > Content-Type: text/plain; charset="iso-8859-1" > Content-Transfer-Encoding: 8bit > > Don't know what I'm supposed to do with it... > > -- > > Bye now, > Obnoxio > > "C'est pas parce qu'on n'a rien ' dire qu'il faut fermer sa gueule" > - Coluche > > "I'm trying to see things your way, but I can't get my head up my ass" > - JCH > > "Ogni uomo mi guarda come se fossi una testa di cazzo" > - Marco > > Travel broadens a person. You look as if you have been all over the world. > > I went to the airport to check in and they asked what I did because I > looked like a terrorist. I said I was a comedian. They said, "Say > something funny then." I told them I had just graduated from flying > school. > > -- Ahmed Ahmed > > http://members.rogers.com/2remedy/images/smilies/banners/RTFM.gif > ------=_20050209191410_48873 > Content-Type: message/rfc822; > name="RE: 4gl code beautifier for Windows? [1410].eml" > Content-Transfer-Encoding: 8bit > Content-Disposition: attachment; > filename="RE: 4gl code beautifier for Windows? [1410].eml" > > Return-Path: <informatica@serpis.com> > Delivered-To: obnoxio@serendipita.com > Received: (qmail 10792 invoked from network); 9 Feb 2005 08:50:51 -0000 > Received: from fe1-message1.clearmessage.com (HELO clearmessage.com) > (146.101.136.67) > by 82-69-147-185.dsl.in-addr.zen.co.uk with SMTP; 9 Feb 2005 08:50:51 -0000 > Received: (qmail 24465 invoked by uid 1004); 9 Feb 2005 08:48:19 -0000 > Received: (qmail-ldap/ctrl 24453 invoked from network); 9 Feb 2005 > 08:48:05 -0000 > Received: from localhost (HELO message1.clearmessage.com) ([127.0.0.1]) > (envelope-sender <informatica@serpis.com>) > by message1-smtp.clearmessage.com (qmail-ldap-1.03) with SMTP > for <obnoxio@serendipita.com>; 9 Feb 2005 08:48:05 -0000 > Received: (qmail 24448 invoked by uid 0); 9 Feb 2005 08:48:04 -0000 > Received: from llsa735-a01.servidoresdns.net (HELO smtp-01.servidoresdns.net) > (82.223.190.26) > by message1.clearmessage.com with SMTP; 9 Feb 2005 08:48:04 -0000 > Received-SPF: none (message1.clearmessage.com: domain at serpis.com does not > designate permitted sender hosts) > Received: from sbs2000.serpis2k2.local (77.Red-213-97-82.pooles.rima-tde.net > [213.97.82.77]) > by smtp-01.servidoresdns.net (Postfix) with ESMTP > id 3AF693C69EA; Wed, 9 Feb 2005 09:22:05 +0100 (CET) > Subject: RE: 4gl code beautifier for Windows? [1410] > Date: Wed, 9 Feb 2005 09:22:51 +0100 > MIME-Version: 1.0 > Content-Type: text/plain; > charset="iso-8859-1" > Content-Transfer-Encoding: quoted-printable > Message-ID: <A23D9B316FD4B4428A91327FA738CCEAF527@localhost> > content-class: urn:content-classes:message > X-MS-Has-Attach: > X-MimeOLE: Produced By Microsoft Exchange V6.0.6603.0 > X-MS-TNEF-Correlator: > Thread-Topic: 4gl code beautifier for Windows? [1410] > Thread-Index: AcUOeVw6Il/YKSKAQrascofXoDTIjwABmQlg > From: "Jose Luis Rico Botella" <informatica@serpis.com> > To: "Obnoxio The...." <obnoxio@serendipita.com>, > <forum.subscriber@iiug.org> > X-Clearmessage-Information: Please contact http://www.clearmessage.com for > more information > X-CM-0: not spam, SpamAssassin (score=-4.9, required 0, BAYES_00 -4.90, > UPPERCASE_25_50 0.00) > X-CM-IP: > X-CM-Scanner-Mail-From: informatica@serpis.com > X-CM-Scanner-Rcpt-To: obnoxio@serendipita.com > > Vim 5.x and lastest can do indentation of 4gl > > Flg.vim > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= > =3D=3D=3D=3D > > " Vim syntax file > " Language: Informix 4GL > " Maintainer: Rafal M. Sulejman <rms@poczta.onet.pl> > " Update: 26 Sep 2002 > " Changes: > " - Dynamic 4GL/FourJs/4GL 7.30 pseudo comment directives (Julian = > Bridle) > " - Conditionally allow case insensitive keywords (Julian Bridle) > " > > " For version 5.x: Clear all syntax items > " For version 6.x: Quit when a syntax file was already loaded > if version < 600 > syntax clear > elseif exists("b:current_syntax") > finish > endif > > syntax case ignore > > syn keyword fglKeyword ABORT ABS ABSOLUTE ACCEPT ACCESS ACOS ADD AFTER = > ALL > syn keyword fglKeyword ALLOCATE ALTER AND ANSI ANY APPEND ARG_VAL ARRAY = > ARR_COUNT > syn keyword fglKeyword ARR_CURR AS ASC ASCENDING ASCII ASIN AT ATAN = > ATAN2 ATTACH > syn keyword fglKeyword ATTRIBUTE ATTRIBUTES AUDIT AUTHORIZATION AUTO = > AUTONEXT AVERAGE AVG > syn keyword fglKeyword BEFORE BEGIN BETWEEN BLACK BLINK BLUE BOLD BORDER = > BOTH BOTTOM > syn keyword fglKeyword BREAK BUFFERED BY BYTE > syn keyword fglKeyword CALL CASCADE CASE CHAR CHARACTER CHARACTER_LENGTH = > CHAR_LENGTH > syn keyword fglKeyword CHECK CLASS_ORIGIN CLEAR CLIPPED CLOSE CLUSTER = > COLOR > syn keyword fglKeyword COLUMN COLUMNS COMMAND COMMENT COMMENTS COMMIT = > COMMITTED > syn keyword fglKeyword COMPOSITES COMPRESS CONCURRENT CONNECT CONNECTION > syn keyword fglKeyword CONNECTION_ALIAS CONSTRAINED CONSTRAINT = > CONSTRAINTS CONSTRUCT > syn keyword fglKeyword CONTINUE CONTROL COS COUNT CREATE CURRENT CURSOR = > CYAN > syn keyword fglKeyword DATA DATABASE DATASKIP DATE DATETIME DAY DBA = > DBINFO DBSERVERNAME > syn keyword fglKeyword DEALLOCATE DEBUG DEC DECIMAL DECLARE DEFAULT = > DEFAULTS DEFER > syn keyword fglKeyword DEFERRED DEFINE DELETE DELIMITER DELIMITERS DESC = > DESCENDING > syn keyword fglKeyword DESCRIBE DESCRIPTOR DETACH DIAGNOSTICS DIM DIRTY = > DISABLED > syn keyword fglKeyword DISCONNECT DISPLAY DISTINCT DISTRIBUTIONS DO = > DORMANT DOUBLE > syn keyword fglKeyword DOWN DOWNSHIFT DROP > syn keyword fglKeyword EACH ELIF ELSE ENABLED END ENTRY ERROR ERRORLOG = > ERR_GET > syn keyword fglKeyword ERR_PRINT ERR_QUIT ESC ESCAPE EVERY EXCEPTION = > EXCLUSIVE > syn keyword fglKeyword EXEC EXECUTE EXISTS EXIT EXP EXPLAIN EXPRESSION = > EXTEND EXTENT > syn keyword fglKeyword EXTERN EXTERNAL > syn keyword fglKeyword F1 F10 F11 F12 F13 F14 F15 F16 F17 F18 F19 F2 F20 = > F21 F22 F23 > syn keyword fglKeyword F24 F25 F26 F27 F28 F29 F3 F30 F31 F32 F33 F34 = > F35 F36 F37 F38 > syn keyword fglKeyword F39 F4 F40 F41 F42 F43 F44 F45 F46 F47 F48 F49 F5 = > F50 F51 F52 > syn keyword fglKeyword F53 F54 F55 F56 F57 F58 F59 F6 F60 F61 F62 F63 = > F64 F7 F8 F9 > syn keyword fglKeyword FALSE FETCH FGL_GETENV FGL_KEYVAL FGL_LASTKEY = > FIELD FIELD_TOUCHED > syn keyword fglKeyword FILE FILLFACTOR FILTERING FINISH FIRST FLOAT = > FLUSH FOR > syn keyword fglKeyword FOREACH FOREIGN FORM FORMAT FORMONLY FORTRAN = > FOUND FRACTION > syn keyword fglKeyword FRAGMENT FREE FROM FUNCTION GET_FLDBUF GLOBAL = > GLOB