------=_20050209191410_48873
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by ace.iiug.org id j19JGjxV005292

Don't know what I'm supposed to do with it...

--=20

Bye now,
Obnoxio

"C'est pas parce qu'on n'a rien =E0 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/im...nners/RTFM.gif
------=_20050209191410_48873
Content-Type: message/rfc822;
name="RE: 4gl code beautifier for Windows? [1410].eml"
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"
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
Content-Transfer-Encoding: quoted-printable

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=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=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 LOG LOG10 LOGN LONG =
LOW
syn keyword fglKeyword MAGENTA MAIN MARGIN MATCHES MAX MDY MEDIUM MEMORY =
MENU MESSAGE
syn keyword fglKeyword MESSAGE_LENGTH MESSAGE_TEXT MIN MINUTE MOD MODE =
MODIFY MODULE
syn keyword fglKeyword MONEY MONTH MORE
syn keyword fglKeyword NAME NCHAR NEED NEW NEXT NEXTPAGE NO NOCR NOENTRY =
NONE NORMAL
syn keyword fglKeyword NOT NOTFOUND NULL NULLABLE NUMBER NUMERIC =
NUM_ARGS NVARCHAR
syn keyword fglKeyword OCTET_LENGTH OF OFF OLD ON ONLY OPEN OPTIMIZATION =
OPTION OPTIONS
syn keyword fglKeyword OR ORDER OTHERWISE OUTER OUTPUT
syn keyword fglKeyword PAGE PAGENO PAUSE PDQPRIORITY PERCENT PICTURE =
PIPE POW PRECISION
syn keyword fglKeyword PREPARE PREVIOUS PREVPAGE PRIMARY PRINT PRINTER =
PRIOR PRIVATE
syn keyword fglKeyword PRIVILEGES PROCEDURE PROGRAM PROMPT PUBLIC PUT
syn keyword fglKeyword QUIT QUIT_FLAG
syn keyword fglKeyword RAISE RANGE READ READONLY REAL RECORD RECOVER RED =
REFERENCES
syn keyword fglKeyword REFERENCING REGISTER RELATIVE REMAINDER REMOVE =
RENAME REOPTIMIZATION
syn keyword fglKeyword REPEATABLE REPORT REQUIRED RESOLUTION RESOURCE =
RESTRICT
syn keyword fglKeyword RESUME RETURN RETURNED_SQLSTATE RETURNING REVERSE =
REVOKE RIGHT
syn keyword fglKeyword ROBIN ROLE ROLLBACK ROLLFORWARD ROOT ROUND ROW =
ROWID ROWIDS
syn keyword fglKeyword ROWS ROW_COUNT RUN
syn keyword fglKeyword SCALE SCHEMA SCREEN SCROLL SCR_LINE SECOND =
SECTION SELECT
syn keyword fglKeyword SERIAL SERIALIZABLE SERVER_NAME SESSION SET =
SET_COUNT SHARE
syn keyword fglKeyword SHORT SHOW SITENAME SIZE SIZEOF SKIP SLEEP =
SMALLFLOAT SMALLINT
syn keyword fglKeyword SOME SPACE SPACES SQL SQLAWARN SQLCA SQLCODE =
SQLERRD SQLERRM
syn keyword fglKeyword SQLERROR SQLERRP SQLSTATE SQLWARNING SQRT =
STABILITY START
syn keyword fglKeyword STARTLOG STATIC STATISTICS STATUS STDEV STEP STOP =
STRING STRUCT
syn keyword fglKeyword SUBCLASS_ORIGIN SUM SWITCH SYNONYM SYSTEM
syn keyword fglKeyword SysBlobs SysChecks SysColAuth SysColDepend =
SysColumns
syn keyword fglKeyword SysConstraints SysDefaults SysDepend SysDistrib =
SysFragAuth
syn keyword fglKeyword SysFragments SysIndexes SysObjState SysOpClstr =
SysProcAuth
syn keyword fglKeyword SysProcBody SysProcPlan SysProcedures =
SysReferences SysRoleAuth
syn keyword fglKeyword SysSynTable SysSynonyms SysTabAuth SysTables =
SysTrigBody
syn keyword fglKeyword SysTriggers SysUsers SysViews SysViolations
syn keyword fglKeyword TAB TABLE TABLES TAN TEMP TEXT THEN THROUGH THRU =
TIME TO
syn keyword fglKeyword TODAY TOP TOTAL TRACE TRAILER TRAILING =
TRANSACTION TRIGGER
syn keyword fglKeyword TRIGGERS TRIM TRUE TRUNC TYPE TYPEDEF
syn keyword fglKeyword UNCOMMITTED UNCONSTRAINED UNDERLINE UNION UNIQUE =
UNITS UNLOAD
syn keyword fglKeyword UNLOCK UNSIGNED UP UPDATE UPSHIFT USER USING
syn keyword fglKeyword VALIDATE VALUE VALUES VARCHAR VARIABLES VARIANCE =
VARYING
syn keyword fglKeyword VERIFY VIEW VIOLATIONS
syn keyword fglKeyword WAIT WAITING WARNING WEEKDAY WHEN WHENEVER WHERE =
WHILE WHITE
syn keyword fglKeyword WINDOW WITH WITHOUT WORDWRAP WORK WRAP WRITE
syn keyword fglKeyword YEAR YELLOW
syn keyword fglKeyword ZEROFILL

" Strings and characters:
syn region fglString start=3D+"+ skip=3D+\\\\\|\\"+ =
end=3D+"+
syn region fglString start=3D+'+ skip=3D+\\\\\|\\"+ =
end=3D+'+

" Numbers:
syn match fglNumber "-\=3D\<[0-9]*\.\=3D[0-9_]\>"

" Comments:
syn region fglComment start=3D"{" end=3D"}"
syn match fglComment "--.*"
syn match fglComment "#.*"

" Not a comment even though it looks like one (Dynamic 4GL/FourJs =
directive)
syn match fglSpecial "--#"
syn match fglSpecial "--@"

syn sync ccomment fglComment

" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting =
yet
if version >=3D 508 || !exists("did_fgl_syntax_inits")
if version < 508
let did_fgl_syntax_inits =3D 1
command -nargs=3D+ HiLink hi link <args>
else
command -nargs=3D+ HiLink hi def link <args>
endif

HiLink fglComment Comment
"HiLink fglKeyword fglSpecial
HiLink fglKeyword fglStatement
HiLink fglNumber Number
HiLink fglOperator fglStatement
HiLink fglSpecial Special
HiLink fglStatement Statement
HiLink fglString Structure
HiLink fglType Type

delcommand HiLink
endif

let b:current_syntax =3D "fgl"

" vim: ts=3D8
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3 D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

-----Mensaje original-----
De: forum.subscriber@iiug.org [mailto:forum.subscriber@iiug.org] En =
nombre de Obnoxio The....
Enviado el: mi=E9rcoles, 09 de febrero de 2005 8:17
Para: classics@iiug.org
Asunto: RE: 4gl code beautifier for Windows? [1410]=20



Jim Cramer said:
> Obnoxio:
>
> Well, from the looks of the on-line .pdf manual, it can do some=20
> automatic indentation for C, C++, and Java. There is also a script=20
> available for indenting 4gl, to make it more readable, as you type.
>
> I am after a program which will take an existing 4gl file, and make it =

> more readable by indenting 4gl statement blocks, which the amount of=20
> indentation corresponding to the degree of nesting of the blocks.
>
> I don't think that Vim can do this, but please correct me
> if I am wrong.

Hmmm. I wonder if it's possible to write a macro to do this. Not sure =
I've got the chops for it, though! )

>> -----Original Message-----
>> From: Obnoxio The Chav [mailtobnoxio@serendipita.com]
>> Sent: Tuesday, February 08, 2005 4:29 PM
>> To: Jim Cramer
>> Cc: classics@iiug.org
>> Subject: Re: 4gl code beautifier for Windows? [1405]
>>
>>
>> Jim Cramer said:
>> >
>> > I write quite a bit of my I4GL code with a Windows editor called=20
>> > TextPad ( http://www.textpad.com/ ), which can edit Unix-style or=20
>> > Windows-style text files.
>> >
>> >
>> > A nice syntax highlighter that uses colors to make the code more=20
>> > readable is available for Textpad.
>> >
>> > What I am looking for is a Windows program that can indent and make =

>> > more readable my nested 4gl IF, CASE, FOR, WHILE and other such=20
>> > statement blocks. I guess that such a thing would fall into the=20
>> > category of "code beautifier".
>> > What would really be nice is if the beautifier could
>> present each 4gl
>> > statement block with the +/- widget to collapse and expand
>> the block,
>> > kind of like XML.
>> >
>> > What would be even better would be if there was an add-in
>> for TextPad
>> > to do this or if there is some application that integrates with=20
>> > TextPad like CSE HTML Validator does.
>> >
>> > If anybody knows of any utility that might do any of the
>> above, please
>> > let me know.
>>
>> Can't vim do this? www.vim.org
>>
>> I remember back in the day, IBM (of all people) had a brilliant=20
>> programmable editor called "E" that you could configure to do just=20
>> about anything. No idea where you'd get it now, though.
>>
>> --
>>
>> Bye now,
>> Obnoxio
>>
>> "C'est pas parce qu'on n'a rien =E0 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=20
>> ass"
>> - JCH
>>
>> "Ogni uomo mi guarda come se fossi una testa di cazzo"
>> - Marco
>>
>> You are better at sex than anyone. Now all you need is a partner.
>>
>> 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=20
>> something funny then." I told them I had just graduated from flying=20
>> school.
>>
>> -- Ahmed Ahmed
>>
>> http://members.rogers.com/2remedy/im...nners/RTFM.gif
>>
>
>
>


--=20

Bye now,
Obnoxio

"C'est pas parce qu'on n'a rien =E0 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/im...nners/RTFM.gif


------=_20050209191410_48873--

sending to informix-list
sending to informix-list