Tool to rewrite Progress source code in standard form

[Chris Kelleher]

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>/***************************************************************************\
*****************************************************************************
** Program: beauty.p
** By: W. Bare
** Descript: Rewrites PROGRESS code in standard form
**
*****************************************************************************
\***************************************************************************/

/* Copyright (c) by PROGRESS SOFTWARE CORP. 1988, 1989, 1990
- All Rights Reserved */

/* stdhead.i - Standard header */
DISPLAY STRING(TODAY,"99/99/99") "Beautify Program" AT 32 "Ver 2.5" TO 77
WITH FRAME stdhead WIDTH 80.

DEFINE STREAM prog.

DEFINE NEW GLOBAL SHARED VARIABLE m-file AS c FORMAT "x(40)"
LABEL " Input File Spec" NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE m-Extend AS LOG
LABEL "Unabbreviate keywords" INITIAL NO.
DEFINE VARIABLE m-CFil AS c FORMAT "x(40)" NO-UNDO.
DEFINE VARIABLE m-filara AS c FORMAT "x(40)" EXTENT 1000 NO-UNDO.
DEFINE VARIABLE m-First AS l INITIAL YES.
DEFINE VARIABLE m-tmpfile AS c FORMAT "x(40)".
DEFINE VARIABLE m-filnum AS i NO-UNDO.
DEFINE VARIABLE m-linnum AS i LABEL "Line Number" NO-UNDO.
DEFINE VARIABLE m-Inp AS c FORMAT "x(40)" EXTENT 2.

DEFINE VARIABLE m-iline AS c FORMAT "x(250)" NO-UNDO.
DEFINE VARIABLE m-indent AS i NO-UNDO. /* # of spaces to indent next line */
DEFINE VARIABLE m-cont AS l NO-UNDO. /* this command was continued */
/* m-cont = no means we just found the end of a command. */
/* m-cont = yes means we are processing a command (not just comments, .i ..) */
/* m-cont = ? we finished a command but have not gotten to another yet */
DEFINE VARIABLE m-lpos AS i NO-UNDO. /* char position in current line */
DEFINE VARIABLE m-OLen AS i NO-UNDO. /* position of next potential word */
DEFINE VARIABLE m-LineLen AS i NO-UNDO. /* Length of current line */
DEFINE VARIABLE m-scr1 AS i NO-UNDO.
DEFINE VARIABLE m-scr2 AS i NO-UNDO.
DEFINE VARIABLE m-comment AS i NO-UNDO. /* nested comment level */
DEFINE VARIABLE m-quote AS l NO-UNDO. /* are we in a quoted string */
DEFINE VARIABLE m-curword AS c NO-UNDO. /* word we are working on */
DEFINE VARIABLE m-curwordpos AS i NO-UNDO. /* position of current word */
DEFINE VARIABLE m-CurlyNest AS INTEGER NO-UNDO. /* nested curly level */
DEFINE VARIABLE m-CurlyState AS LOG NO-UNDO. /* cont state @ start of curl */
DEFINE VARIABLE m-ITE AS INTEGER NO-UNDO. /* If then else Funct next level */
DEFINE VARIABLE m-CapIt AS LOGICAL NO-UNDO. /* should any more words */

DEFINE VARIABLE t-Inp AS CHARACTER FORMAT "x(40)".
DEFINE VARIABLE file-input AS CHARACTER.

ASSIGN
m-filara = ?
m-tmpfile = "tmp" + STRING(TIME,"99999")
file-input = SEARCH("beauty.fn").


FORMAT WITH FRAME out-prog NO-ATTR-SPACE NO-BOX NO-LABELS DOWN WIDTH 250.

IF file-input = ? THEN
UPDATE
m-file VALIDATE(m-file > "","Please enter input file spec") SKIP
m-Extend HELP "Do you want abbreviated keywords to be typed out"
WITH SIDE-LABELS 1 COLUMNS CENTERED FRAME info.
ELSE
DO:
INPUT FROM VALUE(file-input) NO-ECHO.
SET m-file m-Extend WITH FRAME info.
INPUT CLOSE.
END.


IF OPSYS = "UNIX" THEN
DO:
INPUT THROUGH ls VALUE(m-file) NO-ECHO.
REPEAT m-filnum = 1 TO 1000:
SET m-filara[m-filnum] WITH NO-BOX NO-LABELS.
END.
INPUT CLOSE.
END.
ELSE
IF OPSYS = "MSDOS" THEN
DO:
DOS SILENT dir VALUE(m-file) > VALUE(m-tmpfile + ".t").
INPUT FROM VALUE(m-tmpfile + ".t") NO-ECHO.
SET ^.
SET ^.
SET ^ ^ t-Inp.
SET ^.
REPEAT m-filnum = 1 TO 1000:
ASSIGN m-Inp = "".
SET m-Inp.
IF NOT CAN-DO("<dir>,file(s)",m-Inp[2]) THEN
ASSIGN m-filara[m-filnum] = t-Inp + "~\" + m-Inp[1] + "." + m-Inp[2].
END.
INPUT CLOSE.
DOS SILENT del VALUE(m-tmpfile + ".t").
END.
ELSE
IF OPSYS = "VMS" THEN
DO:
VMS SILENT VALUE("dir/size/vers=1/output=" + m-tmpfile + ".t " + m-file).
INPUT FROM VALUE(m-tmpfile + ".t") NO-ECHO.
ASSIGN m-filnum = 0.
REPEAT:
ASSIGN m-Inp = "".
SET m-Inp WITH NO-BOX NO-LABELS.
IF m-Inp[1] = "DIRECTORY" THEN
ASSIGN t-Inp = m-Inp[2].
IF INDEX(m-Inp[1],";") > 0 THEN
ASSIGN
m-filnum = m-filnum + 1
m-filara[m-filnum] = t-Inp +
SUBSTRING(m-Inp[1],1,INDEX(m-Inp[1],";") - 1).
END.
INPUT CLOSE.
END.
ELSE
IF OPSYS = "BTOS" THEN
DO:
BTOS SILENT "[Sys]<Sys>Files.run" Files VALUE(m-file) "NO"
VALUE(m-tmpfile + ".t") "NO" 1.
INPUT FROM VALUE(m-tmpfile + ".t") NO-ECHO.
REPEAT m-filnum = 1 TO 1000:
ASSIGN m-filara[m-filnum] = "".
SET m-filara[m-filnum] WITH NO-BOX NO-LABELS.
END.
INPUT CLOSE.
END.
get-file:
REPEAT m-filnum = 1 TO 1000:
ASSIGN m-CFil = SEARCH(m-filara[m-filnum]).
IF m-CFil = ? THEN
NEXT.
DISPLAY m-CFil @ m-file WITH FRAME info.

IF OPSYS = "UNIX" THEN
UNIX SILENT VALUE(SEARCH("quoter") + " " +
m-CFil + ">" + m-tmpfile + ".q").
ELSE
IF OPSYS = "MSDOS" THEN
DOS SILENT quoter.exe VALUE(m-CFil) > VALUE(m-tmpfile + ".q").
ELSE
IF OPSYS = "VMS" THEN
DO:
/* the following lines are used if progress commands not available in shell
i.e. at Progress */
OUTPUT TO VALUE(m-tmpfile + ".t").
DISPLAY
"$ set command dlcrogress" SKIP
"$ progress/tools=quoter/output=" + m-tmpfile + ".q " + m-CFil
FORMAT "x(80)" WITH FRAME VMS-cmd NO-ATTR-SPACE NO-LABELS NO-BOX.
OUTPUT CLOSE.
VMS SILENT VALUE("@" + m-tmpfile + ".t").
/* Use this line instead if you progress commands are available in a shell
VMS SILENT VALUE("PROGRESS/TOOLS=quoter/OUTPUT=" + m-tmpfile + ".q") m-CFil.
*/
END.
ELSE
IF OPSYS="BTOS" THEN
BTOS VALUE(SEARCH("quoter.run") + " quoter "
+ m-CFil + " >" + m-tmpfile + ".q").
INPUT FROM VALUE(m-tmpfile + ".q") NO-ECHO.
OUTPUT STREAM prog TO VALUE(m-tmpfile + ".n").

ASSIGN
m-CurlyNest = 0
m-indent = 0
m-comment = 0
m-linnum = 1
m-cont = ?
m-ITE = 0
m-quote = FALSE
m-First = YES.
REPEAT ON ERROR UNDO, NEXT get-file:
SET m-iline WITH NO-ATTR-SPACE FRAME iline WIDTH 250 NO-BOX NO-LABELS.

IF m-First = YES AND SUBSTRING(m-iline,1,2) <> "/*" THEN
DISPLAY STREAM prog
"/" + FILL("*",75) + "~\" FORMAT "x(77)"
FILL("*",77) FORMAT "x(77)"
"** Program: " + m-filara[m-filnum] FORMAT "x(40)" SKIP
"** By:" SKIP
"** Descript:" SKIP
"**" SKIP
FILL("*",77) FORMAT "x(77)"
"~\" + FILL("*",75) + "/" FORMAT "x(77)" SKIP(1)
WITH FRAME prg-hd NO-BOX NO-LABELS NO-ATTR-SPACE.
ASSIGN m-First = NO.
/* loop for each command in an input line */
line-loop:
DO WHILE TRUE ON ERROR UNDO, NEXT get-file:

/*
* if we are not in quoted material
* Strip off leading spaces then insert proper indent
*/
IF NOT m-quote THEN
DO:
DO WHILE m-iline BEGINS CHR(9) OR m-iline BEGINS " ":
SUBSTRING(m-iline,1,1) = "".
END.
ASSIGN
m-lpos = 1 + m-indent + IF m-cont OR m-CurlyNest > 0 THEN 2 ELSE 0
SUBSTRING(m-iline,1,0) = FILL(" ",m-lpos - 1).
END.
ELSE
ASSIGN m-lpos = 1.

ASSIGN
m-LineLen = LENGTH(m-iline)
m-CapIt = IF m-cont = ? THEN YES ELSE m-CapIt.

/* loop through the characters in a command */
cmd-loop:
DO WHILE m-lpos <= m-LineLen ON ERROR UNDO, NEXT get-file:

/* Skip over comment sections */
IF (m-comment > 0 OR SUBSTRING(m-iline,m-lpos,2) = "/*")
AND NOT m-quote THEN
DO:
ASSIGN m-scr1 = INDEX(SUBSTRING(m-iline,m-lpos),"/*")
m-scr2 = INDEX(SUBSTRING(SSIGN m-lpos = m-LineLen + 1.

/* found a beginning marker before an ending marker */
ELSE
IF m-scr1 > 0 AND (m-scr1 < m-scr2 OR m-scr2 = 0) THEN
ASSIGN m-comment = m-comment + 1
m-lpos = m-scr1 + m-lpos + 1.

/* must have found a ending marker before an beginning marker */
ELSE
ASSIGN m-comment = IF m-comment > 0 THEN m-comment - 1 ELSE 0
m-lpos = m-scr2 + m-lpos + 1.

NEXT cmd-loop.
END. /* end of comment check */

/* Skip over quoted material */
IF m-quote OR SUBSTRING(m-iline,m-lpos,1) = """" THEN
DO:
ASSIGN m-scr1 = INDEX(SUBSTRING(m-iline,m-lpos),"""")
M-lpos = m-lpos + m-scr1.

/* if no markers found goto next line - dont change status */
IF m-scr1 = 0 THEN
ASSIGN m-lpos = m-LineLen + 1.

ELSE
IF SUBSTRING(m-iline,m-lpos - 1,1) NE "~~" THEN
ASSIGN m-quote = NOT m-quote.
NEXT cmd-loop.
END. /* end of quote check */

/* Skip over any delimiters before the next word */
IF INDEX("~{~}()[],=+ " + CHR(9),SUBSTRING(m-iline,m-lpos,1)) > 0 THEN
nxt_word:
DO:
DO WHILE
INDEX("~{~}()[],=+ " + CHR(9),SUBSTRING(m-iline,m-lpos,1)) > 0
AND m-lpos <= m-LineLen:
/* if we find anything other than a space after a command then
* it needs to go on its own line
*/
IF SUBSTRING(m-iline,m-lpos,1) NE " " AND NOT m-cont THEN
LEAVE nxt_word.
IF SUBSTRING(m-iline,m-lpos,1) = "~{" THEN
ASSIGN
m-CurlyNest = m-CurlyNest + 1
m-CurlyState =
(IF m-CurlyNest = 1 THEN m-cont ELSE m-CurlyState).
ELSE
IF SUBSTRING(m-iline,m-lpos,1) = "~}" THEN
ASSIGN
m-CurlyNest = m-CurlyNest - 1
m-cont =
(IF m-CurlyNest > 0 THEN m-cont ELSE m-CurlyState).
ASSIGN m-lpos = m-lpos + 1.
END.
NEXT cmd-loop.
END.

/* If we just found the end of a command on the last iteration */
/* of this loop then this is the second command on this line and */
/* we need to write the first command out to a line of it's own */
IF NOT m-cont THEN
DO:
ASSIGN m-lpos = m-lpos - 1.
LEAVE cmd-loop.
END.

/* find the next word */
ASSIGN m-OLen = 1.
DO WHILE INDEX("~{~}()[],=+ " + CHR(9),
SUBSTRING(m-iline,m-lpos + m-OLen,1)) = 0
AND m-lpos + m-OLen <= m-LineLen:
ASSIGN m-OLen = m-OLen + 1.
END.

/* Get the next word */
ASSIGN m-curword = SUBSTRING(m-iline,m-lpos,m-OLen).

/* It is possible to concatinate a comment
to the end of a command or "word" in PROGRESS. Although this is ugly
programming we need to code for it. I decrement m-lpos after I strip
off the comment so that it will point to the beginning of the comment
after the increment which follows it. */

IF INDEX(m-curword,"/*") > 0 THEN
ASSIGN
m-comment = 1
m-curword = SUBSTRING(m-curword,1,INDEX(m-curword,"/*") - 1).

/* does word end in a . or a :? */
IF INDEX(".:",SUBSTRING(m-curword,LENGTH(m-curword),1)) > 0 AND
SUBSTRING(m-iline,m-lpos + LENGTH(m-curword),1) <= " " THEN
ASSIGN SUBSTRING(m-curword,LENGTH(m-curword),1) = ""
m-cont = NO.

/* did we find an if then else function */
IF m-curword = "IF" AND m-cont = YES THEN
ASSIGN m-ITE = m-ITE + 1.

ELSE
IF m-ITE > 0 AND m-curword = "ELSE" THEN
ASSIGN m-ITE = m-ITE - 1.

/* is this a THEN or an ELSE - if so then start a new command */
ELSE
IF CAN-DO("THEN,ELSE",m-curword) AND m-ITE = 0 THEN
ASSIGN m-cont = NO.

/* O.K., we have our word now. Does it define a new block? */
ELSE
IF CAN-DO("do,for,repeat,editing",m-curword) AND m-cont NE YES THEN
DO:
IF m-lpos > 1 AND SUBSTRING(m-iline,1,m-lpos - 1) GT " " THEN
DO:
ASSIGN
m-lpos = m-lpos - 1.
LEAVE cmd-loop.
END.

/* indent following commands. */
ASSIGN m-indent = m-indent + 2.
END.

/* is it the end of a block */
ELSE
IF m-curword = "end" AND m-iline BEGINS " " THEN
ASSIGN SUBSTRING(m-iline,1,2) = ""
m-LineLen = m-LineLen - 2
m-lpos = m-lpos - 2
m-indent = m-indent - 2.

/* if it is a keyword then cap it */
ASSIGN t-Inp = KEYWORD(m-curword).
IF t-Inp NE ? AND m-CapIt THEN
DO:
IF m-Extend THEN
ASSIGN
m-OLen = m-OLen - LENGTH(m-curword) + LENGTH(t-Inp)
SUBSTRING(m-iline,m-lpos,LENGTH(m-curword)) = t-Inp
m-LineLen = LENGTH(m-iline).
ELSE
ASSIGN SUBSTRING(m-iline,m-lpos) = CAPS(m-curword).
IF CAN-DO("THRU,THROUGH,DOS,UNIX,VMS,BTOS,CTOS",t-Inp) THEN
ASSIGN m-CapIt = NO.

IF m-cont = ? AND LENGTH(t-inp) > 1 THEN
ASSIGN m-cont = YES.
END.

/* position pointer after the current word */
ASSIGN m-lpos = m-lpos + m-OLen.
END. /* end of word parse cmd-loop */

/* Write out our command to program file */
DISPLAY STREAM prog
SUBSTRING(m-iline,1,m-lpos) FORMAT "x(250)"
WITH FRAME out-prog.
DOWN STREAM prog WITH FRAME out-prog.

/* Write out new line to screen */
DISPLAY m-linnum WITH FRAME info.

/* if we are not at the end of current command then we're continued */
ASSIGN m-linnum = m-linnum + 1
m-cont = IF m-cont = NO THEN ? ELSE m-cont
m-iline = SUBSTRING(m-iline,m-lpos + 1).
IF m-iline = "" THEN
LEAVE line-loop.
END. /* end of individule line parser line-loop */
END. /* end of line reading loop get-file */
OUTPUT STREAM prog CLOSE.
IF OPSYS = "UNIX" THEN
UNIX SILENT cp VALUE(m-tmpfile + ".n " + m-CFil)
"&&" rm VALUE(m-tmpfile + ".[nq]").
IF OPSYS = "MSDOS" THEN
DO:
DOS SILENT copy VALUE(m-tmpfile + ".n " + m-CFil).
DOS SILENT del VALUE(m-tmpfile + ".*").
END.
IF OPSYS = "VMS" THEN
DO:
VMS SILENT copy VALUE(m-tmpfile + ".n " + m-CFil).
VMS SILENT DELETE VALUE(m-tmpfile + ".~*~;~*").
END.
IF OPSYS = "BTOS" THEN
DO:
BTOS SILENT OS-COPY VALUE(m-tmpfile + ".n") VALUE(m-CFil).
BTOS SILENT OS-DELETE VALUE(m-tmpfile + ".t").
BTOS SILENT OS-DELETE VALUE(m-tmpfile + ".q").
END.
END. /* end of multi file loop */
[/code]

 

[Chris Kelleher]

Brendan-

Here is an updated copy of the beauty.p program written by Matt Brooks.

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>

/***************************************************************************\
*****************************************************************************
** Program: beauty.p
** By: W. Bare
** Descript: Rewrites PROGRESS code in standard form
** Fixed for Win32 & V8 and took out auto caping of keywords - M.Brooks
*****************************************************************************
\***************************************************************************/

/* Copyright (c) by PROGRESS SOFTWARE CORP. 1988, 1989, 1990
- All Rights Reserved */

/* stdhead.i - Standard header */
DISPLAY STRING(TODAY,"99/99/9999") form "x(10)"
"Beautify Program" AT 32 "Ver 2.7-MB" TO 77
WITH FRAME stdhead WIDTH 80.

DEFINE STREAM prog.

DEFINE NEW GLOBAL SHARED VARIABLE m-file AS c FORMAT "x(40)"
LABEL " Input File Spec" NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE m-Extend AS LOG
LABEL "Unabbreviate keywords" INITIAL NO.
DEFINE VARIABLE m-CFil AS c FORMAT "x(40)" NO-UNDO.
DEFINE VARIABLE m-filara AS c FORMAT "x(40)" EXTENT 1000 NO-UNDO.
DEFINE VARIABLE m-First AS l INITIAL YES.
DEFINE VARIABLE m-tmpfile AS c FORMAT "x(40)".
DEFINE VARIABLE m-filnum AS i NO-UNDO.
DEFINE VARIABLE m-linnum AS i LABEL "Line Number" NO-UNDO.
DEFINE VARIABLE m-Inp AS c FORMAT "x(40)" EXTENT 2.

DEFINE VARIABLE m-iline AS c FORMAT "x(250)" NO-UNDO.
DEFINE VARIABLE m-indent AS i NO-UNDO. /* # of spaces to indent next line */
DEFINE VARIABLE m-cont AS l NO-UNDO. /* this command was continued */
/* m-cont = no means we just found the end of a command. */
/* m-cont = yes means we are processing a command (not just comments, .i ..) */
/* m-cont = ? we finished a command but have not gotten to another yet */
DEFINE VARIABLE m-lpos AS i NO-UNDO. /* char position in current line */
DEFINE VARIABLE m-OLen AS i NO-UNDO. /* position of next potential word */
DEFINE VARIABLE m-LineLen AS i NO-UNDO. /* Length of current line */
DEFINE VARIABLE m-scr1 AS i NO-UNDO.
DEFINE VARIABLE m-scr2 AS i NO-UNDO.
DEFINE VARIABLE m-comment AS i NO-UNDO. /* nested comment level */
DEFINE VARIABLE m-quote AS l NO-UNDO. /* are we in a quoted string */
DEFINE VARIABLE m-curword AS c NO-UNDO. /* word we are working on */
DEFINE VARIABLE m-curwordpos AS i NO-UNDO. /* position of current word */
DEFINE VARIABLE m-CurlyNest AS INTEGER NO-UNDO. /* nested curly level */
DEFINE VARIABLE m-CurlyState AS LOG NO-UNDO. /* cont state @ start of curl */
DEFINE VARIABLE m-ITE AS INTEGER NO-UNDO. /* If then else Funct next level */
DEFINE VARIABLE m-CapIt AS LOGICAL NO-UNDO. /* should any more words */
DEFINE var cap-keys AS log LABEL "Capitalize Key".
DEFINE VARIABLE t-Inp AS CHARACTER FORMAT "x(40)".
DEFINE VARIABLE file-input AS CHARACTER.

ASSIGN
m-filara = ?
m-tmpfile = "tmp" + STRING(TIME,"99999")
file-input = SEARCH("beauty.fn").


FORMAT WITH FRAME out-prog NO-ATTR-SPACE NO-BOX NO-LABELS DOWN WIDTH 250
STREAM-IO.

IF file-input = ? THEN
UPDATE
m-file VALIDATE(m-file > "","Please enter input file spec") SKIP
m-Extend HELP "Do you want abbreviated keywords to be typed out"
cap-keys
WITH SIDE-LABELS 1 COLUMNS CENTERED FRAME info.
ELSE
DO:
INPUT FROM VALUE(file-input) NO-ECHO.
SET m-file m-Extend WITH FRAME info.
INPUT CLOSE.
END.


IF OPSYS = "UNIX" THEN
DO:
INPUT THROUGH ls VALUE(m-file) NO-ECHO.
REPEAT m-filnum = 1 TO 1000:
SET m-filara[m-filnum] WITH NO-BOX NO-LABELS.
END.
INPUT CLOSE.
END.
ELSE
IF OPSYS = "MSDOS" THEN
DO:
DOS SILENT dir VALUE(m-file) > VALUE(m-tmpfile + ".ttt").
INPUT FROM VALUE(m-tmpfile + ".ttt") NO-ECHO.
SET ^.
SET ^.
SET ^ ^ t-Inp.
SET ^.
REPEAT m-filnum = 1 TO 1000:
ASSIGN m-Inp = "".
SET m-Inp.
IF NOT CAN-DO("<dir>,file(s)",m-Inp[2]) THEN
ASSIGN m-filara[m-filnum] = t-Inp + "~\" + m-Inp[1] + "." + m-Inp[2].
END.
INPUT CLOSE.
DOS SILENT del VALUE(m-tmpfile + ".ttt").
END.
IF OPSYS BEGINS "win" THEN
DO:
m-filara[1] = m-file.
END.
ELSE
IF OPSYS = "VMS" THEN
DO:
VMS SILENT VALUE("dir/size/vers=1/output=" + m-tmpfile + ".t " + m-file).
INPUT FROM VALUE(m-tmpfile + ".t") NO-ECHO.
ASSIGN m-filnum = 0.
REPEAT:
ASSIGN m-Inp = "".
SET m-Inp WITH NO-BOX NO-LABELS.
IF m-Inp[1] = "DIRECTORY" THEN
ASSIGN t-Inp = m-Inp[2].
IF INDEX(m-Inp[1],";") > 0 THEN
ASSIGN
m-filnum = m-filnum + 1
m-filara[m-filnum] = t-Inp +
SUBSTRING(m-Inp[1],1,INDEX(m-Inp[1],";") - 1).
END.
INPUT CLOSE.
END.
ELSE
IF OPSYS = "BTOS" THEN
DO:
BTOS SILENT "[Sys]<Sys>Files.run" Files VALUE(m-file) "NO"
VALUE(m-tmpfile + ".t") "NO" 1.
INPUT FROM VALUE(m-tmpfile + ".t") NO-ECHO.
REPEAT m-filnum = 1 TO 1000:
ASSIGN m-filara[m-filnum] = "".
SET m-filara[m-filnum] WITH NO-BOX NO-LABELS.
END.
INPUT CLOSE.
END.

get-file:
REPEAT m-filnum = 1 TO 1000:
ASSIGN m-CFil = SEARCH(m-filara[m-filnum]).
IF m-CFil = ? THEN
LEAVE.
DISPLAY m-CFil @ m-file WITH FRAME info.

IF OPSYS = "UNIX" THEN
UNIX SILENT VALUE(SEARCH("quoter") + " " +
m-CFil + ">" + m-tmpfile + ".q").
ELSE
IF OPSYS = "MSDOS" OR OPSYS BEGINS "win" THEN
DOS SILENT quoter.exe VALUE(m-CFil) > VALUE(m-tmpfile + ".q").
ELSE
IF OPSYS = "VMS" THEN
DO:
/* the following lines are used if progress commands not available in shell
i.e. at Progress */
OUTPUT TO VALUE(m-tmpfile + ".t").
DISPLAY
"$ set command dlcrogress" SKIP
"$ progress/tools=quoter/output=" + m-tmpfile + ".q " + m-CFil
FORMAT "x(80)" WITH FRAME VMS-cmd NO-ATTR-SPACE NO-LABELS NO-BOX
STREAM-IO.
OUTPUT CLOSE.
VMS SILENT VALUE("@" + m-tmpfile + ".t").
/* Use this line instead if you progress commands are available in a shell
VMS SILENT VALUE("PROGRESS/TOOLS=quoter/OUTPUT=" + m-tmpfile + ".q") m-CFil.
*/
END.
ELSE
IF OPSYS="BTOS" THEN
BTOS VALUE(SEARCH("quoter.run") + " quoter "
+ m-CFil + " >" + m-tmpfile + ".q").
INPUT FROM VALUE(m-tmpfile + ".q") NO-ECHO.
OUTPUT STREAM prog TO VALUE(m-tmpfile + ".n").

ASSIGN
m-CurlyNest = 0
m-indent = 0
m-comment = 0
m-linnum = 1
m-cont = ?
m-ITE = 0
m-quote = FALSE
m-First = YES.
REPEAT ON ERROR UNDO, NEXT get-file:
SET m-iline WITH NO-ATTR-SPACE FRAME iline WIDTH 250 NO-BOX NO-LABELS
STREAM-IO.

IF m-First = YES AND SUBSTRING(m-iline,1,2) <> "/*" THEN
DISPLAY STREAM prog
"/" + FILL("*",75) + "~\" FORMAT "x(77)"
FILL("*",77) FORMAT "x(77)"
"** Program: " + m-filara[m-filnum] FORMAT "x(40)" SKIP
"** By:" SKIP
"** Descript:" SKIP
"**" SKIP
FILL("*",77) FORMAT "x(77)"
"~\" + FILL("*",75) + "/" FORMAT "x(77)" SKIP(1)
WITH FRAME prg-hd NO-BOX NO-LABELS NO-ATTR-SPACE.
ASSIGN m-First = NO.

/* loop for each command in an input line */
line-loop:
DO WHILE TRUE ON ERROR UNDO, NEXT get-file:

/*
* if we are not in quoted material
* Strip off leading spaces then insert proper indent
*/
IF NOT m-quote THEN
DO:
DO WHILE m-iline BEGINS CHR(9) OR m-iline BEGINS " ":
SUBSTRING(m-iline,1,1) = "".
END.
ASSIGN
m-lpos = 1 + m-indent + IF m-cont OR m-CurlyNest > 0 THEN 2
ELSE 0
SUBSTRING(m-iline,1,0) = FILL(" ",m-lpos - 1).
END.
ELSE
ASSIGN m-lpos = 1.

ASSIGN
m-LineLen = LENGTH(m-iline)
m-CapIt = IF m-cont = ? THEN YES ELSE m-CapIt.

/* loop through the characters in a command */
cmd-loop:
DO WHILE m-lpos <= m-LineLen ON ERROR UNDO, NEXT get-file:

/* Skip over comment sections */
IF (m-comment > 0 OR SUBSTRING(m-iline,m-lpos,2) = "/*")
AND NOT m-quote THEN
DO:
ASSIGN m-scr1 = INDEX(SUBSTRING(m-iline,m-lpos),"/*")
m-scr2 = INDEX(SUBSTRING(m-iline,m-lpos),"*/").

/* if no markers found goto next line - dont change status */
IF m-scr1 = 0 AND m-scr2 = 0 THEN
ASSIGN m-lpos = m-LineLen + 1.

/* found a beginning marker before an ending marker */
ELSE
IF m-scr1 > 0 AND (m-scr1 < m-scr2 OR m-scr2 = 0) THEN
ASSIGN m-comment = m-comment + 1
m-lpos = m-scr1 + m-lpos + 1.

/* must have found a ending marker before an beginning marker */
ELSE
ASSIGN m-comment = IF m-comment > 0 THEN m-comment - 1 ELSE 0
m-lpos = m-scr2 + m-lpos + 1.

NEXT cmd-loop.
END. /* end of comment check */

/* Skip over quoted material */
IF m-quote OR SUBSTRING(m-iline,m-lpos,1) = """" THEN
DO:
ASSIGN m-scr1 = INDEX(SUBSTRING(m-iline,m-lpos),"""")
M-lpos = m-lpos + m-scr1.

/* if no markers found goto next line - dont change status */
IF m-scr1 = 0 THEN
ASSIGN m-lpos = m-LineLen + 1.

ELSE
IF SUBSTRING(m-iline,m-lpos - 1,1) NE "~~" THEN
ASSIGN m-quote = NOT m-quote.
NEXT cmd-loop.
END. /* end of quote check */

/* Skip over any delimiters before the next word */
IF INDEX("~{~}()[],=+ " + CHR(9),SUBSTRING(m-iline,m-lpos,1)) > 0 THEN
nxt_word:
DO:
DO WHILE
INDEX("~{~}()[],=+ " + CHR(9),SUBSTRING(m-iline,m-lpos,1)) > 0
AND m-lpos <= m-LineLen:
/* if we find anything other than a space after a command then
* it needs to go on its own line
*/
IF SUBSTRING(m-iline,m-lpos,1) NE " " AND NOT m-cont THEN
LEAVE nxt_word.
IF SUBSTRING(m-iline,m-lpos,1) = "~{" THEN
ASSIGN
m-CurlyNest = m-CurlyNest + 1
m-CurlyState =
(IF m-CurlyNest = 1 THEN m-cont ELSE m-CurlyState).
ELSE
IF SUBSTRING(m-iline,m-lpos,1) = "~}" THEN
ASSIGN
m-CurlyNest = m-CurlyNest - 1
m-cont =
(IF m-CurlyNest > 0 THEN m-cont ELSE m-CurlyState).
ASSIGN m-lpos = m-lpos + 1.
END.
NEXT cmd-loop.
END.

/* If we just found the end of a command on the last iteration */
/* of this loop then this is the second command on this line and */
/* we need to write the first command out to a line of it's own */
IF NOT m-cont THEN
DO:
ASSIGN m-lpos = m-lpos - 1.
LEAVE cmd-loop.
END.

/* find the next word */
ASSIGN m-OLen = 1.
DO WHILE INDEX("~{~}()[],=+ " + CHR(9),
SUBSTRING(m-iline,m-lpos + m-OLen,1)) = 0
AND m-lpos + m-OLen <= m-LineLen:
ASSIGN m-OLen = m-OLen + 1.
END.

/* Get the next word */
ASSIGN m-curword = SUBSTRING(m-iline,m-lpos,m-OLen).

/* It is possible to concatinate a comment
to the end of a command or "word" in PROGRESS. Although this is ugly
programming we need to code for it. I decrement m-lpos after I strip
off the comment so that it will point to the beginning of the comment
after the increment which follows it. */

IF INDEX(m-curword,"/*") > 0 THEN
ASSIGN
m-comment = 1
m-curword = SUBSTRING(m-curword,1,INDEX(m-curword,"/*") - 1).

/* does word end in a . or a :? */
IF INDEX(".:",SUBSTRING(m-curword,LENGTH(m-curword),1)) > 0 AND
SUBSTRING(m-iline,m-lpos + LENGTH(m-curword),1) <= " " THEN
ASSIGN SUBSTRING(m-curword,LENGTH(m-curword),1) = ""
m-cont = NO.

/* did we find an if then else function */
IF m-curword = "IF" AND m-cont = YES THEN
ASSIGN m-ITE = m-ITE + 1.

ELSE
IF m-ITE > 0 AND m-curword = "ELSE" THEN
ASSIGN m-ITE = m-ITE - 1.

/* is this a THEN or an ELSE - if so then start a new command */
ELSE
IF CAN-DO("THEN,ELSE",m-curword) AND m-ITE = 0 THEN
ASSIGN m-cont = NO.

/* O.K., we have our word now. Does it define a new block? */
ELSE
IF CAN-DO("do,for,repeat,editing,procedure,case",m-curword)
AND m-cont NE YES THEN
DO:
IF m-lpos > 1 AND SUBSTRING(m-iline,1,m-lpos - 1) GT " " THEN
DO:
ASSIGN
m-lpos = m-lpos - 1.
LEAVE cmd-loop.
END.

/* indent following commands. */
ASSIGN m-indent = m-indent + 2.
END.

/* is it the end of a block */
ELSE
IF m-curword = "end" AND m-iline BEGINS " " THEN
ASSIGN SUBSTRING(m-iline,1,2) = ""
m-LineLen = m-LineLen - 2
m-lpos = m-lpos - 2
m-indent = m-indent - 2.

/* if it is a keyword then cap it */
ASSIGN t-Inp = KEYWORD(m-curword).
IF t-Inp NE ? AND m-CapIt THEN
DO:
IF m-Extend THEN
ASSIGN
m-OLen = m-OLen - LENGTH(m-curword) + LENGTH(t-Inp)
SUBSTRING(m-iline,m-lpos,LENGTH(m-curword)) = t-Inp
m-LineLen = LENGTH(m-iline).
ELSE
IF cap-keys THEN
ASSIGN SUBSTRING(m-iline,m-lpos) = CAPS(m-curword).
ELSE
ASSIGN SUBSTRING(m-iline,m-lpos) = m-curword.

IF CAN-DO("THRU,THROUGH,DOS,UNIX,VMS,BTOS,CTOS",t-Inp) THEN
ASSIGN m-CapIt = NO.

IF m-cont = ? AND LENGTH(t-inp) > 1 THEN
ASSIGN m-cont = YES.
END.

/* position pointer after the current word */
ASSIGN m-lpos = m-lpos + m-OLen.
END. /* end of word parse cmd-loop */

/* Write out our command to program file */
DISPLAY STREAM prog
SUBSTRING(m-iline,1,m-lpos) FORMAT "x(250)"
WITH FRAME out-prog.
DOWN STREAM prog WITH FRAME out-prog.

/* Write out new line to screen */
DISPLAY m-linnum WITH FRAME info.

/* if we are not at the end of current command then we're continued */
ASSIGN m-linnum = m-linnum + 1
m-cont = IF m-cont = NO THEN ? ELSE m-cont
m-iline = SUBSTRING(m-iline,m-lpos + 1).
IF m-iline = "" THEN
LEAVE line-loop.
END. /* end of individule line parser line-loop */
END. /* end of line reading loop get-file */
OUTPUT STREAM prog CLOSE.
IF OPSYS = "UNIX" THEN
UNIX SILENT cp VALUE(m-tmpfile + ".n " + m-CFil)
&& rm VALUE(m-tmpfile + ".[nq]").
IF OPSYS = "MSDOS" OR OPSYS BEGINS "win" THEN
DO:
DOS SILENT copy VALUE(m-tmpfile + ".n " + m-CFil).
DOS SILENT del VALUE(m-tmpfile + ".*").
END.
IF OPSYS = "VMS" THEN
DO:
VMS SILENT copy VALUE(m-tmpfile + ".n " + m-CFil).
VMS SILENT DELETE VALUE(m-tmpfile + ".~*~;~*").
END.
IF OPSYS = "BTOS" THEN
DO:
BTOS SILENT OS-COPY VALUE(m-tmpfile + ".n") VALUE(m-CFil).
BTOS SILENT OS-DELETE VALUE(m-tmpfile + ".t").
BTOS SILENT OS-DELETE VALUE(m-tmpfile + ".q").
END.
END. /* end of multi file loop */

[/code]

 

[Brendan McCaffrey]

Hi,
Is this version of beauty.p compatible with
V7 code ?

I have doubts if it is.
I have heard that somewhere out there, someone has developed a V7 beautifier.
Any possibilities of having this one ?

 

[paruthi]

how do i use this with my program ?
when i try to run with my program my file is getting zero size.
can you give one example?

 

[PDECODE]

You can try also some other alternative, it's internal function of Piew (free win32 editor):
http://progress-tools.x10.mx/piew.html check "Tools / Code Beautifier"
Check also other functions that can make your source looks better:
- Remove empty lines
- Remove Comments
- Auto case keywords