prolint-cvs Mailing List for Prolint (Page 3)
Brought to you by:
johnallengreen,
jurjen
Menu
▾
▴
prolint-cvs — automated notification of commits to CVS repository
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(22) |
Sep
(22) |
Oct
(40) |
Nov
(16) |
Dec
(7) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(3) |
Feb
(1) |
Mar
(3) |
Apr
(43) |
May
(4) |
Jun
(1) |
Jul
|
Aug
|
Sep
(14) |
Oct
(24) |
Nov
(17) |
Dec
(20) |
| 2005 |
Jan
(4) |
Feb
|
Mar
|
Apr
(2) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
| 2006 |
Jan
(2) |
Feb
|
Mar
(18) |
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
(11) |
Sep
(1) |
Oct
|
Nov
|
Dec
|
|
From: <ju...@us...> - 2003-12-08 22:28:14
|
Update of /cvsroot/prolint/prolint/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv15178/rules
Modified Files:
ifparens.p
Log Message:
removed very many false positives
Index: ifparens.p
===================================================================
RCS file: /cvsroot/prolint/prolint/rules/ifparens.p,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ifparens.p 1 Dec 2003 22:10:28 -0000 1.1
--- ifparens.p 8 Dec 2003 22:28:11 -0000 1.2
***************
*** 40,45 ****
DEFINE OUTPUT PARAMETER SearchChildren AS LOGICAL NO-UNDO INITIAL YES.
! DEFINE VARIABLE child AS INTEGER NO-UNDO.
! DEFINE VARIABLE nodetype AS CHARACTER NO-UNDO.
/* is "IF" a statehead? If yes, then it is not a function -> return. */
--- 40,50 ----
DEFINE OUTPUT PARAMETER SearchChildren AS LOGICAL NO-UNDO INITIAL YES.
! DEFINE VARIABLE child AS INTEGER NO-UNDO.
! DEFINE VARIABLE elsenode AS INTEGER NO-UNDO.
! DEFINE VARIABLE nodetype AS CHARACTER NO-UNDO.
! DEFINE VARIABLE elseLine AS INTEGER NO-UNDO.
! DEFINE VARIABLE numResults AS INTEGER NO-UNDO.
! DEFINE VARIABLE i1 AS INTEGER NO-UNDO.
! DEFINE VARIABLE linebreak AS LOGICAL NO-UNDO INITIAL FALSE.
/* is "IF" a statehead? If yes, then it is not a function -> return. */
***************
*** 49,52 ****
--- 54,58 ----
ASSIGN
child = parserGetHandle()
+ elsenode = parserGetHandle()
nodetype = parserNodeFirstChild(theNode,child). /* boolean expression */
***************
*** 54,64 ****
nodetype = parserNodeNextSibling(child,child). /* the 'then' value */
IF "ELSE":U = parserNodeNextSibling(child,child) THEN DO:
! nodetype = parserNodeNextSibling(child,child). /* the 'else' value */
! IF parserAttrGet(child, "operator":U)<>"" THEN
! RUN PublishResult {&insuper} (compilationunit,
! parserGetNodeFilename(theNode),
! parserGetNodeLine(theNode),
! "IF function is confusing, use parentheses":T,
! rule_id).
END.
END.
--- 60,83 ----
nodetype = parserNodeNextSibling(child,child). /* the 'then' value */
IF "ELSE":U = parserNodeNextSibling(child,child) THEN DO:
! nodetype = parserNodeNextSibling(child,elsenode). /* the 'else' value */
! IF parserAttrGet(elsenode, "operator":U)<>"" THEN DO:
! /* if the expression in the ELSE node contains a newline, then
! raise a warning */
! elseLine = parserGetNodeLine(elsenode).
! numResults = parserQueryCreate(elsenode, "ifparens":U, "":U).
! do i1 = 1 to numResults :
! parserQueryGetResult("ifparens":U, i1, child).
! IF parserGetNodeLine(child) <> elseLine THEN
! IF parserGetNodeLine(child) <> 0 THEN /* skip synthetic nodes */
! linebreak = TRUE.
! end.
! parserQueryClear ("ifparens":U).
! IF linebreak THEN
! RUN PublishResult {&insuper} (compilationunit,
! parserGetNodeFilename(theNode),
! parserGetNodeLine(theNode),
! "IF function is confusing, use parentheses":T,
! rule_id).
! END.
END.
END.
***************
*** 66,69 ****
--- 85,89 ----
/* release every proparse handle that was declared in this context */
parserReleaseHandle(child).
+ parserReleaseHandle(elsenode).
END PROCEDURE.
|
|
From: <ju...@us...> - 2003-12-08 22:28:14
|
Update of /cvsroot/prolint/prolint/regrtest
In directory sc8-pr-cvs1:/tmp/cvs-serv15178/regrtest
Modified Files:
ifparens.p
Log Message:
removed very many false positives
Index: ifparens.p
===================================================================
RCS file: /cvsroot/prolint/prolint/regrtest/ifparens.p,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ifparens.p 1 Dec 2003 22:10:26 -0000 1.1
--- ifparens.p 8 Dec 2003 22:28:11 -0000 1.2
***************
*** 5,9 ****
IF a=b THEN a=b.
! a = IF b=2 THEN 23 ELSE 876 + 2.
a = 2 + IF b=2 THEN 23 ELSE 876.
--- 5,12 ----
IF a=b THEN a=b.
! a = IF b=2
! THEN 23
! ELSE 876
! + 2.
a = 2 + IF b=2 THEN 23 ELSE 876.
***************
*** 15,20 ****
a = IF b=2 THEN 23 ELSE (876 + 2).
! a = IF b=2 THEN 23 ELSE (876 + 2) + 5.
{&_proparse_ prolint-nowarn(ifparens)}
a = IF b=2 THEN 23 ELSE (876 + 2) + 5.
--- 18,38 ----
a = IF b=2 THEN 23 ELSE (876 + 2).
! a = IF b=2
! THEN 23
! ELSE (876 + 2)
! + 5.
!
! a = IF b=2
! THEN 23
! ELSE (876
! + 2)
! + 5.
+ a = (IF b=2
+ THEN 23
+ ELSE (876
+ + 2))
+ + 5.
+
{&_proparse_ prolint-nowarn(ifparens)}
a = IF b=2 THEN 23 ELSE (876 + 2) + 5.
|
|
From: <ju...@us...> - 2003-12-08 22:27:22
|
Update of /cvsroot/prolint/prolint/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv15074/rules
Modified Files:
sharelock.p
Log Message:
added check on PRESELECT
Index: sharelock.p
===================================================================
RCS file: /cvsroot/prolint/prolint/rules/sharelock.p,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sharelock.p 10 Oct 2002 18:32:39 -0000 1.2
--- sharelock.p 8 Dec 2003 22:27:19 -0000 1.3
***************
*** 29,33 ****
RUN searchNode {&insuper} (hTopnode, /* "Program_root" node */
"InspectNode":U, /* name of callback procedure */
! "FOR,FIND,OPEN":U). /* list of statements to search, ?=all */
RETURN.
--- 29,33 ----
RUN searchNode {&insuper} (hTopnode, /* "Program_root" node */
"InspectNode":U, /* name of callback procedure */
! "FOR,FIND,OPEN,PRESELECT":U). /* list of statements to search, ?=all */
RETURN.
|
|
From: <ju...@us...> - 2003-12-08 22:23:51
|
Update of /cvsroot/prolint/prolint/regrtest
In directory sc8-pr-cvs1:/tmp/cvs-serv14301/regrtest
Modified Files:
defaultname.w
Log Message:
bug 818893: false positive on filename of WRX file in procedure "control_load"
Index: defaultname.w
===================================================================
RCS file: /cvsroot/prolint/prolint/regrtest/defaultname.w,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** defaultname.w 5 Oct 2002 18:53:26 -0000 1.1
--- defaultname.w 8 Dec 2003 22:23:47 -0000 1.2
***************
*** 349,353 ****
DEFINE VARIABLE OCXFile AS CHARACTER NO-UNDO.
! OCXFile = SEARCH( "defaultname.wrx":U ).
IF OCXFile = ? THEN
OCXFile = SEARCH(SUBSTRING(THIS-PROCEDURE:FILE-NAME, 1,
--- 349,353 ----
DEFINE VARIABLE OCXFile AS CHARACTER NO-UNDO.
! OCXFile = SEARCH( "prolint\regrtest\defaultname.wrx":U ).
IF OCXFile = ? THEN
OCXFile = SEARCH(SUBSTRING(THIS-PROCEDURE:FILE-NAME, 1,
***************
*** 362,366 ****
RUN initialize-controls IN THIS-PROCEDURE NO-ERROR.
END.
! ELSE MESSAGE "defaultname.wrx":U SKIP(1)
"The binary control file could not be found. The controls cannot be loaded."
VIEW-AS ALERT-BOX TITLE "Controls Not Loaded".
--- 362,366 ----
RUN initialize-controls IN THIS-PROCEDURE NO-ERROR.
END.
! ELSE MESSAGE "prolint\regrtest\defaultname.wrx":U SKIP(1)
"The binary control file could not be found. The controls cannot be loaded."
VIEW-AS ALERT-BOX TITLE "Controls Not Loaded".
|
|
From: <ju...@us...> - 2003-12-08 22:23:50
|
Update of /cvsroot/prolint/prolint/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv14301/rules
Modified Files:
backslash.p
Log Message:
bug 818893: false positive on filename of WRX file in procedure "control_load"
Index: backslash.p
===================================================================
RCS file: /cvsroot/prolint/prolint/rules/backslash.p,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** backslash.p 28 Aug 2002 09:32:14 -0000 1.1.1.1
--- backslash.p 8 Dec 2003 22:23:47 -0000 1.2
***************
*** 64,67 ****
--- 64,84 ----
parserReleaseHandle(childnode).
END.
+
+
+ /* ignore backslashes in alternative WRX location in AB-generated procedure control_load.
+ You can safely ignore these, because WRX will not run on UNIX anyway */
+ FIND tt_procedure WHERE tt_procedure.proctype = "PROCEDURE":U
+ AND tt_procedure.procname = "control_load":U
+ NO-LOCK NO-ERROR.
+ IF AVAILABLE tt_procedure THEN DO:
+ childnode = parserGetHandle().
+ numResults = parserQueryCreate(tt_procedure.startnode, "control_load":U, "QSTRING":U).
+ DO i=1 TO numResults :
+ IF parserQueryGetResult("control_load":U, i, childnode) THEN
+ parserAttrSet(childnode, pragma_number, 1).
+ END.
+ parserQueryClear("control_load":U).
+ parserReleaseHandle(childnode).
+ END.
FOR EACH tt_procedure :
|
|
From: <ju...@us...> - 2003-12-02 22:04:19
|
Update of /cvsroot/prolint/prolint/help/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv4746
Modified Files:
ifparens.htxt
Log Message:
oops, bad help
Index: ifparens.htxt
===================================================================
RCS file: /cvsroot/prolint/prolint/help/rules/ifparens.htxt,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ifparens.htxt 1 Dec 2003 22:10:27 -0000 1.1
--- ifparens.htxt 2 Dec 2003 22:04:16 -0000 1.2
***************
*** 12,23 ****
ASSIGN answer = IF x>0
THEN 10
! ELSE 20 + 3000.
DISPLAY answer.
</pre></td></tr></table>
<p>
'answer' will be 3020 when x<=0. <br>
! 'answer' will be 3010 (not just 10) when x>0. The programmer may have
! been confused and intended the value of 'answer' to be 10.
!
<p>
<b>the risc:</b><br>
--- 12,24 ----
ASSIGN answer = IF x>0
THEN 10
! ELSE 20
! + 3000.
DISPLAY answer.
</pre></td></tr></table>
<p>
'answer' will be 3020 when x<=0. <br>
! 'answer' will be 10 (not 3010) when x>0. The programmer may have
! been confused and intended the value of 'answer' to be 3010.
!
<p>
<b>the risc:</b><br>
***************
*** 27,31 ****
can make a huge difference and will certainly make the statement easier to
understand.
!
<p>
<b>how to solve this:</b><br>
--- 28,32 ----
can make a huge difference and will certainly make the statement easier to
understand.
!
<p>
<b>how to solve this:</b><br>
***************
*** 36,45 ****
ASSIGN answer = (IF x>0
THEN 10
! ELSE 20) + 3000.
! <span class=src-comment>/* or re-arrange the operands when possible: */</span>
! ASSIGN answer = 3000 + IF x>0
! THEN 10
! ELSE 20.
</pre></td></tr></table>
--- 37,47 ----
ASSIGN answer = (IF x>0
THEN 10
! ELSE 20)
! + 3000.
! <span class=src-comment>/* or: */</span>
! ASSIGN answer = IF x>0
! THEN 10
! ELSE (20 + 3000).
</pre></td></tr></table>
|
|
From: <ju...@us...> - 2003-12-02 12:29:32
|
Update of /cvsroot/prolint/prolint
In directory sc8-pr-cvs1:/tmp/cvs-serv7622
Modified Files:
filterplugins.p
Log Message:
bugfix: pragmas for "wholeindex" did not worl
Index: filterplugins.p
===================================================================
RCS file: /cvsroot/prolint/prolint/filterplugins.p,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** filterplugins.p 27 Oct 2003 22:19:06 -0000 1.3
--- filterplugins.p 1 Dec 2003 22:08:28 -0000 1.4
***************
*** 180,184 ****
AND tt_ignore.LineNumber = pLineNumber).
! IF NOT filtered THEN
FOR EACH tt_filters :
RUN GetFilterResult IN tt_filters.hpFilter (pCompilationUnit,
--- 180,186 ----
AND tt_ignore.LineNumber = pLineNumber).
! IF filtered THEN
! filteredby = "pragma":U.
! ELSE
FOR EACH tt_filters :
RUN GetFilterResult IN tt_filters.hpFilter (pCompilationUnit,
|
|
From: <ju...@us...> - 2003-12-02 10:35:58
|
Update of /cvsroot/prolint/prolint/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv8099/rules
Modified Files:
rules.d
Added Files:
ifparens.p
Log Message:
new rule "ifparens"
--- NEW FILE: ifparens.p ---
/* -----------------------------------------------------------------------------
file : prolint/rules/ifparens.p
purpose : find IF functions (not statements) that should better be
surrounded by parentheses
-----------------------------------------------------------------------------
Copyright (C) 2003 Jurjen Dijkstra
This file is part of Prolint.
Prolint is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
Prolint is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with Prolint; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--------------------------------------------------------------------------------- */
{prolint/ruleparams.i}
RUN searchNode {&insuper} (hTopnode, /* "Program_root" node */
"InspectNode":U, /* name of callback procedure */
"IF":U). /* list of nodetypes to search for */
RETURN.
PROCEDURE InspectNode :
/* InspectNode is where the actual rule is implemented.
it is called from SearchNode */
DEFINE INPUT PARAMETER theNode AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER AbortSearch AS LOGICAL NO-UNDO INITIAL NO.
DEFINE OUTPUT PARAMETER SearchChildren AS LOGICAL NO-UNDO INITIAL YES.
DEFINE VARIABLE child AS INTEGER NO-UNDO.
DEFINE VARIABLE nodetype AS CHARACTER NO-UNDO.
/* is "IF" a statehead? If yes, then it is not a function -> return. */
IF parserAttrGet(theNode, "statehead":U)<>"" THEN
RETURN.
ASSIGN
child = parserGetHandle()
nodetype = parserNodeFirstChild(theNode,child). /* boolean expression */
IF "THEN":U = parserNodeNextSibling(child,child) THEN DO:
nodetype = parserNodeNextSibling(child,child). /* the 'then' value */
IF "ELSE":U = parserNodeNextSibling(child,child) THEN DO:
nodetype = parserNodeNextSibling(child,child). /* the 'else' value */
IF parserAttrGet(child, "operator":U)<>"" THEN
RUN PublishResult {&insuper} (compilationunit,
parserGetNodeFilename(theNode),
parserGetNodeLine(theNode),
"IF function is confusing, use parentheses":T,
rule_id).
END.
END.
/* release every proparse handle that was declared in this context */
parserReleaseHandle(child).
END PROCEDURE.
Index: rules.d
===================================================================
RCS file: /cvsroot/prolint/prolint/rules/rules.d,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** rules.d 23 Oct 2003 17:43:01 -0000 1.19
--- rules.d 1 Dec 2003 22:10:28 -0000 1.20
***************
*** 20,23 ****
--- 20,24 ----
"ifindent1" 8 yes no no no yes "IF statement with indenting that could indicate a bug"
"ifindent2" 2 yes no no no yes "IF statement with questionable indenting or couldn't check"
+ "ifparens" 8 yes no no no no "IF function is confusing, use parentheses"
"matches" 9 yes no no no yes "Find all 'MATCHES' statements."
"maxchar" 7 yes no no no no "string constant too long for Tranman"
|
|
From: <ju...@us...> - 2003-12-02 03:25:50
|
Update of /cvsroot/prolint/prolint/help/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv8099/help/rules
Modified Files:
generate-htm.p
Added Files:
ifparens.htxt
Log Message:
new rule "ifparens"
--- NEW FILE: ifparens.htxt ---
<h1>IF function is confusing, use parentheses</h1>
Rule "ifparens" gives this warning when it finds an IF function (not
an IF statement) where ELSE is followed by an operator. This may cause
confusion, which can be solved by putting parentheses around the IF
function.
<p>
<table class=example>
<tr><td>
<pre>
ASSIGN answer = IF x>0
THEN 10
ELSE 20 + 3000.
DISPLAY answer.
</pre></td></tr></table>
<p>
'answer' will be 3020 when x<=0. <br>
'answer' will be 3010 (not just 10) when x>0. The programmer may have
been confused and intended the value of 'answer' to be 10.
<p>
<b>the risc:</b><br>
The IF function can be very confusing, depending on how the code is indented.
There is a good chance that the statement containing the IF function does not
behave how the programmer intended. Parentheses around the IF fuction
can make a huge difference and will certainly make the statement easier to
understand.
<p>
<b>how to solve this:</b><br>
<table class=example>
<tr><td>
<pre>
<span class=src-comment>/* simply add parentheses around the IF function: */</span>
ASSIGN answer = (IF x>0
THEN 10
ELSE 20) + 3000.
<span class=src-comment>/* or re-arrange the operands when possible: */</span>
ASSIGN answer = 3000 + IF x>0
THEN 10
ELSE 20.
</pre></td></tr></table>
<p>
<b>How to suppress these warnings:</b><br>
You can put the directive {&_proparse_ prolint-nowarn(ifparens)} directly before
the statement that contains the IF function. See also: <a href="../nowarn.htm">suppress warnings</a>.
Index: generate-htm.p
===================================================================
RCS file: /cvsroot/prolint/prolint/help/rules/generate-htm.p,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** generate-htm.p 25 Nov 2003 23:12:07 -0000 1.1
--- generate-htm.p 1 Dec 2003 22:10:27 -0000 1.2
***************
*** 168,171 ****
--- 168,172 ----
REPEAT:
IMPORT STREAM sTxt UNFORMATTED vLine.
+ IF vLine="" THEN vLine=" ".
PUT STREAM sNew UNFORMATTED vLine SKIP.
END.
|
|
From: <ju...@us...> - 2003-12-02 03:24:07
|
Update of /cvsroot/prolint/prolint/regrtest
In directory sc8-pr-cvs1:/tmp/cvs-serv8099/regrtest
Modified Files:
expect.log
Added Files:
ifparens.p
Log Message:
new rule "ifparens"
--- NEW FILE: ifparens.p ---
/* test cases for rule "ifparens" */
DEFINE VARIABLE a AS INTEGER NO-UNDO.
DEFINE VARIABLE b AS INTEGER NO-UNDO.
IF a=b THEN a=b.
a = IF b=2 THEN 23 ELSE 876 + 2.
a = 2 + IF b=2 THEN 23 ELSE 876.
a = (IF b=2 THEN 23 ELSE 876) + 2.
a = (IF b=2 THEN 23 ELSE 876 + 2).
a = IF b=2 THEN 23 ELSE (876 + 2).
a = IF b=2 THEN 23 ELSE (876 + 2) + 5.
{&_proparse_ prolint-nowarn(ifparens)}
a = IF b=2 THEN 23 ELSE (876 + 2) + 5.
Index: expect.log
===================================================================
RCS file: /cvsroot/prolint/prolint/regrtest/expect.log,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** expect.log 27 Sep 2003 23:28:56 -0000 1.5
--- expect.log 1 Dec 2003 22:10:25 -0000 1.6
***************
*** 15,28 ****
rule=abbrevkwd; source=prolint/regrtest/where-udf.i; line= 9; descr=Abbreviated CHAR for CHARACTER
rule=abbrevtable; source=prolint/regrtest/abbrevkwd.i; line= 16; descr=Abbreviation of table Customer used (custome)
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 104; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 106; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 108; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 111; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 141; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 223; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 363; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 374; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 405; descr=MESSAGE not an Alert Box
- rule=alertmessage; source=prolint/regrtest/ifindent.i; line= 428; descr=MESSAGE not an Alert Box
rule=alertmessage; source=prolint/regrtest/ifindentextra.i; line= 1; descr=MESSAGE not an Alert Box
rule=alertmessage; source=prolint/regrtest/ifindentextra.i; line= 13; descr=MESSAGE not an Alert Box
--- 15,18 ----
***************
*** 32,46 ****
rule=alertmessage; source=prolint/regrtest/ifindentextra.i; line= 24; descr=MESSAGE not an Alert Box
rule=alertmessage; source=prolint/regrtest/message.i; line= 8; descr=MESSAGE not an Alert Box
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 193; descr=FIND FIRST customer statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 297; descr=CANFIND FIRST customer statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 298; descr=CANFIND LAST customer statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 304; descr=CANFIND FIRST order statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 402; descr=FIND FIRST order statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 415; descr=FIND FIRST order statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 423; descr=FIND FIRST order statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 438; descr=FIND FIRST customer statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 439; descr=FIND FIRST invoice statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 450; descr=FIND FIRST customer statement included.
- rule=allfinds; source=prolint/regrtest/ifindent.i; line= 451; descr=FIND FIRST invoice statement included.
rule=allfinds; source=prolint/regrtest/nowhere.i; line= 9; descr=FIND FIRST customer statement included.
rule=allfinds; source=prolint/regrtest/nowhere.i; line= 10; descr=FIND NEXT customer statement included.
--- 22,25 ----
***************
*** 69,76 ****
rule=blocklabel; source=prolint/regrtest/blocklabel.i; line= 6; descr=LEAVE should specify a blocklabel
rule=blocklabel; source=prolint/regrtest/blocklabel.i; line= 18; descr=NEXT should specify a blocklabel
- rule=blocklabel; source=prolint/regrtest/ifindent.i; line= 274; descr=LEAVE should specify a blocklabel
- rule=blocklabel; source=prolint/regrtest/ifindent.i; line= 279; descr=LEAVE should specify a blocklabel
- rule=blocklabel; source=prolint/regrtest/ifindent.i; line= 284; descr=LEAVE should specify a blocklabel
- rule=blocklabel; source=prolint/regrtest/ifindent.i; line= 384; descr=NEXT should specify a blocklabel
rule=colon-t; source=prolint/regrtest/colon-t.i; line= 5; descr=attrib :T will trim "this is a "
rule=colon-t; source=prolint/regrtest/colon-t.i; line= 6; descr=attrib :T will trim " test "
--- 48,51 ----
***************
*** 78,84 ****
rule=colon-t; source=prolint/regrtest/substitute.i; line= 10; descr=attrib :T will trim "should "
rule=colon-t; source=prolint/regrtest/substitute.i; line= 21; descr=attrib :T will trim "should "
- rule=create; source=prolint/regrtest/ifindent.i; line= 189; descr=CREATE customer table statement used in this program
- rule=create; source=prolint/regrtest/ifindent.i; line= 211; descr=CREATE customer table statement used in this program
- rule=create; source=prolint/regrtest/ifindent.i; line= 348; descr=CREATE customer table statement used in this program
rule=defaultname; source=prolint/regrtest/defaultname.w; line= 96; descr=BUTTON-1 is no meaningfull widget name
rule=defaultname; source=prolint/regrtest/defaultname.w; line= 100; descr=COMBO-BOX-1 is no meaningfull widget name
--- 53,56 ----
***************
*** 89,110 ****
rule=defaultname; source=prolint/regrtest/defaultname.w; line= 125; descr=TOGGLE-1 is no meaningfull widget name
rule=defaultname; source=prolint/regrtest/defaultname.w; line= 130; descr=FILL-IN-2 is no meaningfull widget name
rule=do1; source=prolint/regrtest/do1.i; line= 14; descr="DO:" contains only one statement
rule=do1; source=prolint/regrtest/do1.i; line= 20; descr="DO:" contains only one statement
rule=do1; source=prolint/regrtest/do1.i; line= 54; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 144; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 170; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 178; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 238; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 251; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 290; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 294; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 398; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 417; descr="DO:" contains only one statement
- rule=do1; source=prolint/regrtest/ifindent.i; line= 476; descr="DO:" contains only one statement
rule=do1; source=prolint/regrtest/ifindentpreproc.i; line= 1; descr="DO:" contains only one statement
rule=dotcomment; source=prolint/regrtest/dotcomment.i; line= 6; descr=PERIOD comments a statement
rule=dotcomment; source=prolint/regrtest/dotcomment.i; line= 16; descr=PERIOD comments a statement
rule=dotcomment; source=prolint/regrtest/dotcomment.i; line= 19; descr=PERIOD comments a statement
- rule=endtype; source=prolint/regrtest/ifindent.i; line= 323; descr=Use END CASE to terminate a case block
rule=endtype; source=prolint/regrtest/ifindentextra.i; line= 21; descr=Use END CASE to terminate a case block
rule=endtype; source=prolint/regrtest/noeffect.i; line= 12; descr=Use END FUNCTION to terminate a function block
--- 61,72 ----
rule=defaultname; source=prolint/regrtest/defaultname.w; line= 125; descr=TOGGLE-1 is no meaningfull widget name
rule=defaultname; source=prolint/regrtest/defaultname.w; line= 130; descr=FILL-IN-2 is no meaningfull widget name
+ rule=defaultname; source=prolint/regrtest/test3.p; line= 4; descr=RADIO-SET-2 is no meaningfull widget name
rule=do1; source=prolint/regrtest/do1.i; line= 14; descr="DO:" contains only one statement
rule=do1; source=prolint/regrtest/do1.i; line= 20; descr="DO:" contains only one statement
rule=do1; source=prolint/regrtest/do1.i; line= 54; descr="DO:" contains only one statement
rule=do1; source=prolint/regrtest/ifindentpreproc.i; line= 1; descr="DO:" contains only one statement
rule=dotcomment; source=prolint/regrtest/dotcomment.i; line= 6; descr=PERIOD comments a statement
rule=dotcomment; source=prolint/regrtest/dotcomment.i; line= 16; descr=PERIOD comments a statement
rule=dotcomment; source=prolint/regrtest/dotcomment.i; line= 19; descr=PERIOD comments a statement
rule=endtype; source=prolint/regrtest/ifindentextra.i; line= 21; descr=Use END CASE to terminate a case block
rule=endtype; source=prolint/regrtest/noeffect.i; line= 12; descr=Use END FUNCTION to terminate a function block
***************
*** 115,126 ****
rule=findstate-tt; source=prolint/regrtest/wholeindex.i; line= 18; descr=FIND tt_wholeindex statement defined without qualifer [ FIRST | LAST | NEXT | PREV | CURRENT ]
rule=findstate-tt; source=prolint/regrtest/wholeindex.i; line= 21; descr=FIND buf_wholeindex statement defined without qualifer [ FIRST | LAST | NEXT | PREV | CURRENT ]
- rule=findstate; source=prolint/regrtest/ifindent.i; line= 207; descr=FIND customer statement defined without qualifer [ FIRST | LAST | NEXT | PREV | CURRENT ]
- rule=findstate; source=prolint/regrtest/ifindent.i; line= 344; descr=FIND customer statement defined without qualifer [ FIRST | LAST | NEXT | PREV | CURRENT ]
rule=findstate; source=prolint/regrtest/wholeindex.i; line= 15; descr=FIND buf_customer statement defined without qualifer [ FIRST | LAST | NEXT | PREV | CURRENT ]
rule=i18nlength; source=prolint/regrtest/i18nlength.i; line= 11; descr=LENGTH function called without TYPE parameter
rule=i18nlength; source=prolint/regrtest/i18nlength.i; line= 22; descr=LENGTH function called without TYPE parameter
- rule=i18nlength; source=prolint/regrtest/ifindent.i; line= 409; descr=LENGTH function called without TYPE parameter
- rule=i18nlength; source=prolint/regrtest/ifindent.i; line= 410; descr=LENGTH function called without TYPE parameter
- rule=i18nlength; source=prolint/regrtest/ifindent.i; line= 410; descr=SUBSTRING function called without TYPE parameter
rule=idiskeyword; source=prolint/regrtest/idiskeyword.p; line= 5; descr=name of variable 'X' is a keyword
rule=idiskeyword; source=prolint/regrtest/idiskeyword.p; line= 8; descr=name of parameter 'ERROR' is a keyword
--- 77,83 ----
***************
*** 134,138 ****
rule=idiskeyword; source=prolint/regrtest/idiskeyword.p; line= 22; descr=name of index 'key' is a keyword
rule=idiskeyword; source=prolint/regrtest/idiskeyword.p; line= 25; descr=name of buffer 'border-b' is a keyword
- rule=idiskeyword; source=prolint/regrtest/ifindent.i; line= 10; descr=name of variable 'ok' is a keyword
rule=ifindent1; source=prolint/regrtest/ifindent.i; line= 27; descr=#101: Node IF has greater indent than IF on line 25. Expected to be 0, is 2.
rule=ifindent1; source=prolint/regrtest/ifindent.i; line= 28; descr=#102: More indent expected for node ELSE. Node's indent should be at least 2, is 0.
--- 91,94 ----
***************
*** 180,184 ****
rule=ifindent2; source=prolint/regrtest/ifindentextra.i; line= 36; descr=#202: Node IF has less indent than IF on line 33. Expected to be 1, is 0.
rule=ifindent2; source=prolint/regrtest/ifindentextra.i; line= 40; descr=#202: Node IF has less indent than IF on line 38. Expected to be 33, is 2.
! rule=matches; source=prolint/regrtest/ifindent.i; line= 199; descr=MATCHES statement used in this program
rule=message; source=prolint/regrtest/dotcomment.i; line= 6; descr=use MESSAGE only in debug-mode
rule=message; source=prolint/regrtest/dotcomment.i; line= 9; descr=use MESSAGE only in debug-mode
--- 136,142 ----
rule=ifindent2; source=prolint/regrtest/ifindentextra.i; line= 36; descr=#202: Node IF has less indent than IF on line 33. Expected to be 1, is 0.
rule=ifindent2; source=prolint/regrtest/ifindentextra.i; line= 40; descr=#202: Node IF has less indent than IF on line 38. Expected to be 33, is 2.
! rule=ifparens; source=prolint/regrtest/ifparens.p; line= 7; descr=IF function is confusing, use parentheses
! rule=ifparens; source=prolint/regrtest/ifparens.p; line= 13; descr=IF function is confusing, use parentheses
! rule=ifparens; source=prolint/regrtest/ifparens.p; line= 17; descr=IF function is confusing, use parentheses
rule=message; source=prolint/regrtest/dotcomment.i; line= 6; descr=use MESSAGE only in debug-mode
rule=message; source=prolint/regrtest/dotcomment.i; line= 9; descr=use MESSAGE only in debug-mode
***************
*** 187,205 ****
rule=message; source=prolint/regrtest/dotcomment.i; line= 14; descr=use MESSAGE only in debug-mode
rule=message; source=prolint/regrtest/dotcomment.i; line= 16; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 59; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 104; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 106; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 108; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 111; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 118; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 141; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 223; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 363; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 374; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 399; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 402; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 405; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 418; descr=use MESSAGE only in debug-mode
- rule=message; source=prolint/regrtest/ifindent.i; line= 428; descr=use MESSAGE only in debug-mode
rule=message; source=prolint/regrtest/ifindentextra.i; line= 1; descr=use MESSAGE only in debug-mode
rule=message; source=prolint/regrtest/ifindentextra.i; line= 13; descr=use MESSAGE only in debug-mode
--- 145,148 ----
***************
*** 220,228 ****
rule=messagetype; source=prolint/regrtest/dotcomment.i; line= 14; descr=ALERT BOX is missing alert type
rule=messagetype; source=prolint/regrtest/dotcomment.i; line= 16; descr=ALERT BOX is missing alert type
- rule=messagetype; source=prolint/regrtest/ifindent.i; line= 59; descr=ALERT BOX is missing alert type
- rule=messagetype; source=prolint/regrtest/ifindent.i; line= 118; descr=ALERT BOX is missing alert type
- rule=messagetype; source=prolint/regrtest/ifindent.i; line= 399; descr=ALERT BOX is missing alert type
- rule=messagetype; source=prolint/regrtest/ifindent.i; line= 402; descr=ALERT BOX is missing alert type
- rule=messagetype; source=prolint/regrtest/ifindent.i; line= 418; descr=ALERT BOX is missing alert type
rule=messagetype; source=prolint/regrtest/message.i; line= 6; descr=ALERT BOX is missing alert type
rule=messagetype; source=prolint/regrtest/message.i; line= 11; descr=ALERT BOX is missing alert type
--- 163,166 ----
***************
*** 245,254 ****
rule=noeffect; source=prolint/regrtest/noeffect.i; line= 27; descr=Statement has no effect
rule=noeffect; source=prolint/regrtest/noeffect.i; line= 47; descr=Statement has no effect
- rule=noerror; source=prolint/regrtest/ifindent.i; line= 193; descr=find first customer statement defined without no-error
- rule=noerror; source=prolint/regrtest/ifindent.i; line= 423; descr=find FIRST order statement defined without no-error
- rule=noerror; source=prolint/regrtest/ifindent.i; line= 438; descr=find FIRST customer statement defined without no-error
- rule=noerror; source=prolint/regrtest/ifindent.i; line= 439; descr=find FIRST invoice statement defined without no-error
- rule=noerror; source=prolint/regrtest/ifindent.i; line= 450; descr=find FIRST customer statement defined without no-error
- rule=noerror; source=prolint/regrtest/ifindent.i; line= 451; descr=find FIRST invoice statement defined without no-error
rule=noerror; source=prolint/regrtest/nowhere.i; line= 9; descr=find FIRST customer statement defined without no-error
rule=noerror; source=prolint/regrtest/nowhere.i; line= 10; descr=find NEXT customer statement defined without no-error
--- 183,186 ----
***************
*** 265,271 ****
rule=noerror; source=prolint/regrtest/wholeindex.i; line= 21; descr=find buf_wholeindex buf_wholeindex statement defined without no-error
rule=noerror; source=prolint/regrtest/wholeindex.i; line= 22; descr=find NEXT buf_wholeindex statement defined without no-error
- rule=noundo; source=prolint/regrtest/ifindent.i; line= 12; descr=variable 'pay-stat' defined without NO-UNDO
- rule=noundo; source=prolint/regrtest/ifindent.i; line= 14; descr=variable 'a' defined without NO-UNDO
- rule=noundo; source=prolint/regrtest/ifindent.i; line= 20; descr=variable 'h' defined without NO-UNDO
rule=noundo; source=prolint/regrtest/ifindentextra.i; line= 8; descr=variable 'i' defined without NO-UNDO
rule=noundo; source=prolint/regrtest/noundo.i; line= 5; descr=variable 'noundo_1' defined without NO-UNDO
--- 197,200 ----
***************
*** 280,303 ****
rule=noundo; source=prolint/regrtest/wholeindex.i; line= 4; descr=temp-table 'tt_wholeindex' defined without NO-UNDO
rule=nowhere; source=prolint/regrtest/defaultname.w; line= 411; descr=no WHERE-clause on table Customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 140; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 193; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 207; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 218; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 218; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 344; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 356; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 356; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 367; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 367; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 402; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 402; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 408; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 413; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 415; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 423; descr=no WHERE-clause on table order
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 438; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 439; descr=no WHERE-clause on table invoice
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 450; descr=no WHERE-clause on table customer
- rule=nowhere; source=prolint/regrtest/ifindent.i; line= 451; descr=no WHERE-clause on table invoice
rule=nowhere; source=prolint/regrtest/nowhere.i; line= 10; descr=no WHERE-clause on table customer
rule=nowhere; source=prolint/regrtest/nowhere.i; line= 15; descr=no WHERE-clause on table order
--- 209,212 ----
***************
*** 310,315 ****
rule=nowhere; source=prolint/regrtest/wholeindex.i; line= 16; descr=no WHERE-clause on table buf_customer
rule=nowhere; source=prolint/regrtest/wholeindex.i; line= 24; descr=no WHERE-clause on table customer
- rule=obsoletenodes; source=prolint/regrtest/ifindent.i; line= 232; descr=UNIX keyword used, rewrite to OS-COMMAND
- rule=obsoletenodes; source=prolint/regrtest/ifindent.i; line= 246; descr=UNIX keyword used, rewrite to OS-COMMAND
rule=obsoletenodes; source=prolint/regrtest/recid.i; line= 3; descr=RECID used, rewrite to ROWID
rule=obsoletenodes; source=prolint/regrtest/recid.i; line= 4; descr=RECID used, rewrite to ROWID
--- 219,222 ----
***************
*** 336,340 ****
rule=runname; source=prolint/regrtest/runname.i; line= 65; descr=progname in RUN-statement is not Unix-compatible
rule=sepdbui; source=prolint/regrtest/defaultname.w; line= 137; descr=Separate UI from DB-access (UI in line 364 of prolint/regrtest/defaultname.w)
- rule=sepdbui; source=prolint/regrtest/ifindent.i; line= 140; descr=Separate UI from DB-access (UI in line 59 of prolint/regrtest/ifindent.i)
rule=sepdbui; source=prolint/regrtest/varusage.i; line= 37; descr=Separate UI from DB-access (UI in line 6 of prolint/regrtest/message.i)
rule=shared; source=prolint/regrtest/shared.i; line= 13; descr=avoid SHARED on variable 'shared_c'
--- 243,246 ----
***************
*** 345,362 ****
rule=shared; source=prolint/regrtest/shared.i; line= 31; descr=avoid SHARED on buffer 'shared_cust'
rule=sharelock; source=prolint/regrtest/abbrevkwd.i; line= 16; descr=OPEN QUERY custome has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 207; descr=FIND customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 218; descr=FOR customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 218; descr=FOR order has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 344; descr=FIND customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 356; descr=FOR customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 356; descr=FOR order has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 367; descr=FOR customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 367; descr=FOR order has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 402; descr=FOR order has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 423; descr=FIND order has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 438; descr=FIND customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 439; descr=FIND invoice has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 450; descr=FIND customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sharelock; source=prolint/regrtest/ifindent.i; line= 451; descr=FIND invoice has no NO-LOCK / EXCLUSIVE-LOCK
rule=sharelock; source=prolint/regrtest/sharelock.i; line= 13; descr=FIND customer has no NO-LOCK / EXCLUSIVE-LOCK
rule=sharelock; source=prolint/regrtest/sharelock.i; line= 14; descr=FIND buf_cust has no NO-LOCK / EXCLUSIVE-LOCK
--- 251,254 ----
***************
*** 369,442 ****
rule=sharelock; source=prolint/regrtest/wholeindex.i; line= 15; descr=FIND buf_customer has no NO-LOCK / EXCLUSIVE-LOCK
rule=sharelock; source=prolint/regrtest/wholeindex.i; line= 16; descr=FIND buf_customer has no NO-LOCK / EXCLUSIVE-LOCK
- rule=sortaccess; source=prolint/regrtest/ifindent.i; line= 413; descr=SORT-ACCESS found in xref on table Customer
rule=sortaccess; source=prolint/regrtest/sortaccess.i; line= 5; descr=SORT-ACCESS found in xref on table Customer
rule=sortaccess; source=prolint/regrtest/wholeindex.i; line= 24; descr=SORT-ACCESS found in xref on table Customer
rule=strattrib; source=prolint/regrtest/defaultname.w; line= 103; descr=no string attributes on "Item 1"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 5; descr=no string attributes on "Bye"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 7; descr=no string attributes on "oops"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 26; descr=no string attributes on "correct"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 29; descr=no string attributes on "oops"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 33; descr=no string attributes on "correct"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 37; descr=no string attributes on "oops"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 43; descr=no string attributes on "Hello"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 44; descr=no string attributes on "oops"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 49; descr=no string attributes on "Red"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 50; descr=no string attributes on "Green"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 63; descr=no string attributes on "Hello"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 65; descr=no string attributes on "Goodbye"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 69; descr=no string attributes on "Hello"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 71; descr=no string attributes on "Red"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 104; descr=no string attributes on "This account is unpaid."
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 106; descr=no string attributes on "This account is partially..."
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 108; descr=no string attributes on "This account is paid in f..."
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 111; descr=no string attributes on "vlog = FALSE."
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 118; descr=no string attributes on "oops"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 125; descr=no string attributes on "blue"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 128; descr=no string attributes on "W"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 141; descr=no string attributes on "Customer: "
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 154; descr=no string attributes on "blank"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 162; descr=no string attributes on "blank"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 165; descr=no string attributes on "not blank"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 184; descr=no string attributes on "END"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 191; descr=no string attributes on "Test"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 199; descr=no string attributes on "*"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 221; descr=no string attributes on " Editing customer: "
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 222; descr=no string attributes on "RETURN"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 223; descr=no string attributes on "Pressed Return"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 231; descr=no string attributes on "L"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 232; descr=no string attributes on "UNIX"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 233; descr=no string attributes on "MSDOS"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 234; descr=no string attributes on "os2"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 239; descr=no string attributes on "blue"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 245; descr=no string attributes on "L"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 246; descr=no string attributes on "UNIX"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 247; descr=no string attributes on "MSDOS"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 248; descr=no string attributes on "os2"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 252; descr=no string attributes on "blue"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 300; descr=no string attributes on "red"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 306; descr=no string attributes on "green"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 312; descr=no string attributes on "Blue"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 315; descr=no string attributes on "Red"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 319; descr=no string attributes on "Green"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 321; descr=no string attributes on "Orange"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 326; descr=no string attributes on "W"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 362; descr=no string attributes on "RETURN"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 363; descr=no string attributes on " Press the space bar to e..."
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 373; descr=no string attributes on "RETURN"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 374; descr=no string attributes on " Press the space bar to e..."
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 399; descr=no string attributes on "TRUE"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 402; descr=no string attributes on "avail order"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 405; descr=no string attributes on "oops"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 410; descr=no string attributes on 'XX'
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 418; descr=no string attributes on "n/a order"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 425; descr=no string attributes on "20"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 425; descr=no string attributes on "40"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 428; descr=no string attributes on "boo"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 460; descr=no string attributes on "Test"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 472; descr=no string attributes on "Green"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 473; descr=no string attributes on "Orange"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 474; descr=no string attributes on "Red"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 475; descr=no string attributes on "Yellow"
- rule=strattrib; source=prolint/regrtest/ifindent.i; line= 489; descr=no string attributes on "OK"
rule=strattrib; source=prolint/regrtest/ifindentextra.i; line= 1; descr=no string attributes on "firstline"
rule=strattrib; source=prolint/regrtest/ifindentextra.i; line= 13; descr=no string attributes on "hi"
--- 261,267 ----
***************
*** 464,467 ****
--- 289,293 ----
rule=strattrib; source=prolint/regrtest/strattrib.i; line= 47; descr=no string attributes on 'prolint'
rule=strattrib; source=prolint/regrtest/strattrib.i; line= 57; descr=no string attributes on "title"
+ rule=strattrib; source=prolint/regrtest/test3.p; line= 6; descr=no string attributes on "w3"
rule=strattrib; source=prolint/regrtest/where-udf.i; line= 19; descr=no string attributes on "hello"
rule=strattrib; source=prolint/regrtest/where-udf.i; line= 27; descr=no string attributes on "hello"
***************
*** 527,530 ****
--- 353,359 ----
rule=uninproc; source=prolint/regrtest/varusage.i; line= 116; descr=Internal Procedure ip_varusage_2 may not be used.
rule=uninproc; source=prolint/regrtest/varusage.i; line= 142; descr=Internal Procedure ip_varusage_browse may not be used.
+ rule=unquoted; source=prolint/regrtest/test3.p; line= 6; descr=unquoted string: w1
+ rule=unquoted; source=prolint/regrtest/test3.p; line= 6; descr=unquoted string: w2
+ rule=unquoted; source=prolint/regrtest/test3.p; line= 10; descr=unquoted string: myfile
rule=use-index; source=prolint/regrtest/use-index.i; line= 9; descr=avoid using USE-INDEX
rule=varusage; source=prolint/regrtest/abbrevkwd.i; line= 5; descr=variable abbrev2 is assigned but never accessed
***************
*** 533,539 ****
rule=varusage; source=prolint/regrtest/defaultname.w; line= 348; descr=variable UIB_S is assigned but never accessed
rule=varusage; source=prolint/regrtest/i18nlength.i; line= 6; descr=variable i18nlength_2 is assigned but never accessed
- rule=varusage; source=prolint/regrtest/ifindent.i; line= 4; descr=variable vd1 is assigned but never accessed
- rule=varusage; source=prolint/regrtest/ifindent.i; line= 6; descr=variable x1 is assigned but never accessed
- rule=varusage; source=prolint/regrtest/ifindent.i; line= 14; descr=variable a is assigned but never accessed
rule=varusage; source=prolint/regrtest/nocomment.i; line= 54; descr=parameter test1 is never used
rule=varusage; source=prolint/regrtest/nocomment.i; line= 54; descr=parameter test1 is never used
--- 362,365 ----
***************
*** 556,559 ****
--- 382,386 ----
rule=varusage; source=prolint/regrtest/shared.i; line= 16; descr=variable shared_e is never used
rule=varusage; source=prolint/regrtest/shared.i; line= 17; descr=variable shared_f is never used
+ rule=varusage; source=prolint/regrtest/test3.p; line= 4; descr=variable RADIO-SET-2 is never used
rule=varusage; source=prolint/regrtest/varusage.i; line= 9; descr=variable v_varusage_1 is assigned but never accessed
rule=varusage; source=prolint/regrtest/varusage.i; line= 20; descr=variable v_varusage_12 is never used
***************
*** 596,617 ****
rule=wholeindex; source=prolint/regrtest/blocklabel.i; line= 28; descr=WHOLE-INDEX found in xref on table Customer
rule=wholeindex; source=prolint/regrtest/defaultname.w; line= 411; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 140; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 193; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 218; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 297; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 297; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 304; descr=WHOLE-INDEX found in xref on table Order
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 356; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 367; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 402; descr=WHOLE-INDEX found in xref on table Order
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 402; descr=WHOLE-INDEX found in xref on table Order
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 408; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 413; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 423; descr=WHOLE-INDEX found in xref on table Order
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 438; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 439; descr=WHOLE-INDEX found in xref on table Invoice
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 450; descr=WHOLE-INDEX found in xref on table Customer
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 451; descr=WHOLE-INDEX found in xref on table Invoice
- rule=wholeindex; source=prolint/regrtest/ifindent.i; line= 492; descr=WHOLE-INDEX found in xref on table Customer
rule=wholeindex; source=prolint/regrtest/nowhere.i; line= 10; descr=WHOLE-INDEX found in xref on table Customer
rule=wholeindex; source=prolint/regrtest/sharelock.i; line= 25; descr=WHOLE-INDEX found in xref on table Order
--- 423,426 ----
|
|
From: <ju...@us...> - 2003-12-02 03:22:08
|
Update of /cvsroot/prolint/prolint/help In directory sc8-pr-cvs1:/tmp/cvs-serv10229 Modified Files: history.htxt release.ini Log Message: release 56 Index: history.htxt =================================================================== RCS file: /cvsroot/prolint/prolint/help/history.htxt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** history.htxt 25 Nov 2003 23:12:07 -0000 1.1 --- history.htxt 1 Dec 2003 22:20:35 -0000 1.2 *************** *** 9,12 **** --- 9,21 ---- - when running TTY, how do you change settings? --> + <h5>prolint release 56, 1 december 2003:</h5> + <ul> + <li>added new rule <a href="rules/ifparens.htm">ifparens</a>:<br> + checks if every IF function to see if it needs parentheses. + <li>bugfixes in processing of _proparse_ prolint-nowarn directives + <li>bugfix in outputhandlers/logwin.w regarding reading the system registry. + <li>added feature: window selectfiles.w remembers the most recently used profile. + </ul> + <h5>prolint release 55, 25 november 2003:</h5> Index: release.ini =================================================================== RCS file: /cvsroot/prolint/prolint/help/release.ini,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** release.ini 25 Nov 2003 22:39:17 -0000 1.19 --- release.ini 1 Dec 2003 22:20:35 -0000 1.20 *************** *** 1,3 **** [current] ! prolint=55 --- 1,3 ---- [current] ! prolint=56 |
|
From: <ju...@us...> - 2003-11-29 01:34:51
|
Update of /cvsroot/prolint/prolint/outputhandlers
In directory sc8-pr-cvs1:/tmp/cvs-serv9814
Modified Files:
logwin.w
Log Message:
fixed error "UNLOAD failed" when registry section did not exist yet.
Index: logwin.w
===================================================================
RCS file: /cvsroot/prolint/prolint/outputhandlers/logwin.w,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** logwin.w 25 Nov 2003 21:21:45 -0000 1.5
--- logwin.w 29 Nov 2003 01:34:48 -0000 1.6
***************
*** 1616,1658 ****
DEFINE VARIABLE cFilterRule AS CHARACTER NO-UNDO.
! LOAD "Software\Prolint\Output Handlers\logwin" NO-ERROR.
!
! IF ERROR-STATUS:ERROR THEN DO:
! UNLOAD "Software\Prolint\Output Handlers\logwin".
! RETURN.
! END.
!
! USE "Software\Prolint\Output Handlers\logwin" NO-ERROR.
! IF ERROR-STATUS:ERROR THEN DO:
! UNLOAD "Software\Prolint\Output Handlers\logwin".
! RETURN.
! END.
/* Display Properties */
! GET-KEY-VALUE SECTION "" KEY "ShowTree" VALUE cShowTree .
! GET-KEY-VALUE SECTION "" KEY "ShowCodePreview" VALUE cShowCodePreview .
/* Main Window Properties */
! GET-KEY-VALUE SECTION "" KEY "X" VALUE cX .
! GET-KEY-VALUE SECTION "" KEY "Y" VALUE cY .
! GET-KEY-VALUE SECTION "" KEY "SizeX" VALUE cSizeX .
! GET-KEY-VALUE SECTION "" KEY "SizeY" VALUE cSizeY .
/* Code Preview Window Properties */
! GET-KEY-VALUE SECTION "" KEY "CodePreviewX" VALUE cCodePreviewX.
! GET-KEY-VALUE SECTION "" KEY "CodePreviewY" VALUE cCodePreviewY.
! GET-KEY-VALUE SECTION "" KEY "CodePreviewSizeX" VALUE cCodePreviewSizeX.
! GET-KEY-VALUE SECTION "" KEY "CodePreviewSizeY" VALUE cCodePreviewSizeY.
/* Filter Settings */
! GET-KEY-VALUE SECTION "" KEY "FilterPersistent" VALUE cFilterPersistent .
! GET-KEY-VALUE SECTION "" KEY "FilterDesc" VALUE cFilterDesc .
! GET-KEY-VALUE SECTION "" KEY "FilterMaxSeverity" VALUE cFilterMaxSeverity .
! GET-KEY-VALUE SECTION "" KEY "FilterMinSeverity" VALUE cFilterMinSeverity .
! GET-KEY-VALUE SECTION "" KEY "FilterCompunit" VALUE cFilterCompunit .
! GET-KEY-VALUE SECTION "" KEY "FilterSource" VALUE cFilterSource .
! GET-KEY-VALUE SECTION "" KEY "FilterRule" VALUE cFilterRule .
! UNLOAD "Software\Prolint\Output Handlers\logwin".
/* Now that we have the values, apply the user settings */
--- 1616,1651 ----
DEFINE VARIABLE cFilterRule AS CHARACTER NO-UNDO.
! LOAD "SOFTWARE":U BASE-KEY "HKEY_CURRENT_USER":U.
! USE "SOFTWARE":U.
/* Display Properties */
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "ShowTree" VALUE cShowTree .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "ShowCodePreview" VALUE cShowCodePreview .
/* Main Window Properties */
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "X" VALUE cX .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "Y" VALUE cY .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "SizeX" VALUE cSizeX .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "SizeY" VALUE cSizeY .
/* Code Preview Window Properties */
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewX" VALUE cCodePreviewX.
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewY" VALUE cCodePreviewY.
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewSizeX" VALUE cCodePreviewSizeX.
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewSizeY" VALUE cCodePreviewSizeY.
/* Filter Settings */
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterPersistent" VALUE cFilterPersistent .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterDesc" VALUE cFilterDesc .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterMaxSeverity" VALUE cFilterMaxSeverity .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterMinSeverity" VALUE cFilterMinSeverity .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterCompunit" VALUE cFilterCompunit .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterSource" VALUE cFilterSource .
! GET-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterRule" VALUE cFilterRule .
! UNLOAD "SOFTWARE".
!
! /* values are empty if the section did not exist yet. In that case return. */
! IF cShowTree = "" OR cShowTree = ? THEN RETURN.
/* Now that we have the values, apply the user settings */
***************
*** 2129,2162 ****
OUTPUT giCodePreviewSizeY ).
! LOAD "Software\Prolint\Output Handlers\logwin" NEW NO-ERROR.
!
! USE "Software\Prolint\Output Handlers\logwin" NO-ERROR.
/* Display Properties */
! PUT-KEY-VALUE SECTION "" KEY "ShowTree" VALUE ( IF glShowTree THEN "1" ELSE "0" ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "ShowCodePreview" VALUE ( IF VALID-HANDLE( ghCodePreview ) THEN "1" ELSE "0" ) NO-ERROR.
/* Main Window Properties */
! PUT-KEY-VALUE SECTION "" KEY "X" VALUE ( STRING( {&WINDOW-NAME}:X ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "Y" VALUE ( STRING( {&WINDOW-NAME}:Y ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "SizeX" VALUE ( STRING( {&WINDOW-NAME}:WIDTH-PIXELS ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "SizeY" VALUE ( STRING( {&WINDOW-NAME}:HEIGHT-PIXELS ) ) NO-ERROR.
/* Code Preview Window Properties */
! PUT-KEY-VALUE SECTION "" KEY "CodePreviewX" VALUE ( STRING( giCodePreviewX ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "CodePreviewY" VALUE ( STRING( giCodePreviewY ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "CodePreviewSizeX" VALUE ( STRING( giCodePreviewSizeX ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "CodePreviewSizeY" VALUE ( STRING( giCodePreviewSizeY ) ) NO-ERROR.
/* Filter Settings */
! PUT-KEY-VALUE SECTION "" KEY "FilterPersistent" VALUE ( IF fltPersistent THEN "1" ELSE "0" ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "FilterDesc" VALUE ( STRING( fltDesc ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "FilterMaxSeverity" VALUE ( STRING( fltMaxSeverity ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "FilterMinSeverity" VALUE ( STRING( fltMinSeverity ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "FilterCompunit" VALUE ( STRING( fltCompunit ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "FilterSource" VALUE ( STRING( fltSource ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "" KEY "FilterRule" VALUE ( STRING( fltRule ) ) NO-ERROR.
! UNLOAD "Software\Prolint\Output Handlers\logwin".
END PROCEDURE.
--- 2122,2154 ----
OUTPUT giCodePreviewSizeY ).
! LOAD "SOFTWARE":U BASE-KEY "HKEY_CURRENT_USER":U.
! USE "SOFTWARE":U.
/* Display Properties */
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "ShowTree" VALUE ( IF glShowTree THEN "1" ELSE "0" ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "ShowCodePreview" VALUE ( IF VALID-HANDLE( ghCodePreview ) THEN "1" ELSE "0" ) NO-ERROR.
/* Main Window Properties */
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "X" VALUE ( STRING( {&WINDOW-NAME}:X ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "Y" VALUE ( STRING( {&WINDOW-NAME}:Y ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "SizeX" VALUE ( STRING( {&WINDOW-NAME}:WIDTH-PIXELS ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "SizeY" VALUE ( STRING( {&WINDOW-NAME}:HEIGHT-PIXELS ) ) NO-ERROR.
/* Code Preview Window Properties */
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewX" VALUE ( STRING( giCodePreviewX ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewY" VALUE ( STRING( giCodePreviewY ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewSizeX" VALUE ( STRING( giCodePreviewSizeX ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "CodePreviewSizeY" VALUE ( STRING( giCodePreviewSizeY ) ) NO-ERROR.
/* Filter Settings */
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterPersistent" VALUE ( IF fltPersistent THEN "1" ELSE "0" ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterDesc" VALUE ( STRING( fltDesc ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterMaxSeverity" VALUE ( STRING( fltMaxSeverity ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterMinSeverity" VALUE ( STRING( fltMinSeverity ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterCompunit" VALUE ( STRING( fltCompunit ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterSource" VALUE ( STRING( fltSource ) ) NO-ERROR.
! PUT-KEY-VALUE SECTION "Prolint\Output Handlers\logwin" KEY "FilterRule" VALUE ( STRING( fltRule ) ) NO-ERROR.
! UNLOAD "SOFTWARE".
END PROCEDURE.
|
|
From: <ju...@us...> - 2003-11-29 01:24:31
|
Update of /cvsroot/prolint/prolint
In directory sc8-pr-cvs1:/tmp/cvs-serv8594
Modified Files:
selectfiles.w
Log Message:
Save most recently used profile in registry.
Show a welcome message on first use.
Initial profile is now "relaxed" (was "none").
Index: selectfiles.w
===================================================================
RCS file: /cvsroot/prolint/prolint/selectfiles.w,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** selectfiles.w 28 Aug 2002 09:31:37 -0000 1.1.1.1
--- selectfiles.w 29 Nov 2003 01:24:27 -0000 1.2
***************
*** 301,305 ****
END.
END.
!
APPLY "go":U TO FRAME {&FRAME-NAME}.
END.
--- 301,314 ----
END.
END.
!
! /* save pProfile in registry as most recently used profile */
! IF OPSYS = "WIN32":U THEN DO:
! LOAD "SOFTWARE":U BASE-KEY "HKEY_CURRENT_USER":U.
! USE "SOFTWARE":U.
! PUT-KEY-VALUE SECTION "Prolint\Selectfiles":U
! KEY "mruprofile":U
! VALUE pProfile.
! UNLOAD "SOFTWARE":U.
! END.
APPLY "go":U TO FRAME {&FRAME-NAME}.
END.
***************
*** 487,491 ****
&ANALYZE-RESUME
! &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GetProfiles Dialog-Frame
PROCEDURE GetProfiles :
/*------------------------------------------------------------------------------
--- 496,500 ----
&ANALYZE-RESUME
! &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GetProfiles Dialog-Frame
PROCEDURE GetProfiles :
/*------------------------------------------------------------------------------
***************
*** 496,499 ****
--- 505,509 ----
DEFINE VARIABLE fullpath AS CHAR NO-UNDO.
DEFINE VARIABLE attribs AS CHAR NO-UNDO.
+ DEFINE VARIABLE mruprofile AS CHAR NO-UNDO.
DEFINE VARIABLE dirlist AS CHAR NO-UNDO INITIAL "<none>":U.
***************
*** 520,529 ****
END.
! DO WITH FRAME {&FRAME-NAME} :
! cb_profile:LIST-ITEMS = dirlist.
IF SessionWindowSystem="TTY":U THEN
! cb_profile:SCREEN-VALUE = "batchrun":U.
ELSE
! cb_profile:SCREEN-VALUE = "<none>":U.
APPLY "value-changed":U TO cb_profile.
END.
--- 530,559 ----
END.
! /* read most recently used profile (mruprofile) from Registry */
! mruprofile=?.
! IF OPSYS = "WIN32":U THEN DO:
! LOAD "SOFTWARE":U BASE-KEY "HKEY_CURRENT_USER":U.
! USE "SOFTWARE":U.
! GET-KEY-VALUE SECTION "Prolint\Selectfiles":U
! KEY "mruprofile":U
! VALUE mruprofile.
! UNLOAD "SOFTWARE":U.
! END.
! IF mruprofile=? THEN DO:
! MESSAGE "This appears to be the first time you're using Prolint. Welcome!" SKIP(1)
! "You will now select a profile, and enter some filenames or directorynames in the editor widget." SKIP
! "A profile is a customizable set of rules and outputhandlers." SKIP
! "You can also drag files or directories from the Explorer and drop them into the editor widget."
! VIEW-AS ALERT-BOX TITLE "Welcome to Prolint".
IF SessionWindowSystem="TTY":U THEN
! mruprofile = "batchrun":U.
ELSE
! mruprofile = "relaxed":U.
! END.
!
! DO WITH FRAME {&FRAME-NAME} :
! cb_profile:LIST-ITEMS = dirlist.
! IF LOOKUP(mruprofile,dirlist)>0 THEN
! cb_profile:SCREEN-VALUE = mruprofile.
APPLY "value-changed":U TO cb_profile.
END.
|
|
From: <ju...@us...> - 2003-11-28 15:54:49
|
Update of /cvsroot/prolint/prolint
In directory sc8-pr-cvs1:/tmp/cvs-serv6427
Modified Files:
prolint.p
Log Message:
fixed support for EXCLUDE-SupportPragmas
Index: prolint.p
===================================================================
RCS file: /cvsroot/prolint/prolint/prolint.p,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** prolint.p 25 Nov 2003 21:21:07 -0000 1.22
--- prolint.p 28 Nov 2003 15:54:46 -0000 1.23
***************
*** 503,507 ****
--- 503,511 ----
/* enable reading of PROPARSE-DIRECTIVE for Prolint pragma's */
IF VALID-HANDLE(hParser) THEN
+ &IF DEFINED(EXCLUDE-SupportPragmas)=0 &THEN
parserConfigSet("show-proparse-directives":U, "true":U).
+ &ELSE
+ parserConfigSet("show-proparse-directives":U, "false":U).
+ &ENDIF
/* define database aliases: */
|
|
From: <ju...@us...> - 2003-11-25 22:46:26
|
Update of /cvsroot/prolint/prolint/help/rtb In directory sc8-pr-cvs1:/tmp/cvs-serv14093/rtb Removed Files: check-in.htm config.htm index.htm Log Message: removing all HTM files, these will be replaced by content-only files which are to be merged with a layout template --- check-in.htm DELETED --- --- config.htm DELETED --- --- index.htm DELETED --- |
Update of /cvsroot/prolint/prolint/help/source In directory sc8-pr-cvs1:/tmp/cvs-serv14093/source Removed Files: customrule.htm newrule.htm outputhandler.htm overview.htm proparse.htm regrtest.htm v8pubsub.htm Log Message: removing all HTM files, these will be replaced by content-only files which are to be merged with a layout template --- customrule.htm DELETED --- --- newrule.htm DELETED --- --- outputhandler.htm DELETED --- --- overview.htm DELETED --- --- proparse.htm DELETED --- --- regrtest.htm DELETED --- --- v8pubsub.htm DELETED --- |
|
From: <ju...@us...> - 2003-11-25 22:46:23
|
Update of /cvsroot/prolint/prolint/help/issues In directory sc8-pr-cvs1:/tmp/cvs-serv14093/issues Removed Files: index.htm rules.htm Log Message: removing all HTM files, these will be replaced by content-only files which are to be merged with a layout template --- index.htm DELETED --- --- rules.htm DELETED --- |
Update of /cvsroot/prolint/prolint/help/rules In directory sc8-pr-cvs1:/tmp/cvs-serv14093/rules Removed Files: abbrevkwd.htm abbrevtable.htm alertmessage.htm allfinds.htm backslash.htm blocklabel.htm colon-t.htm compiler.htm contains.htm create.htm dbtrigger.htm defaultname.htm do1.htm dotcomment.htm endtype.htm errortext.htm findstate-tt.htm findstate.htm i18nlength.htm idiskeyword.htm ifindent-details.htm ifindent.htm ifindent1.htm ifindent2.htm matches.htm maxchar.htm message.htm messagetype.htm nobrackets.htm nocomment.htm noeffect.htm noerror.htm noproparse.htm noundo.htm nowhere.htm obsoletenodes.htm prolint.htm proparse.htm query.htm recid.htm rules.htm runargs.htm runname.htm sepdbui.htm sequence.htm shared.htm sharelock.htm sortaccess.htm strattrib.htm substitute.htm tablename.htm ttnoindex.htm uninproc.htm unquoted.htm use-index.htm varusage.htm version.htm when.htm where-udf.htm wholeindex.htm Log Message: removing all HTM files, these will be replaced by content-only files which are to be merged with a layout template --- abbrevkwd.htm DELETED --- --- abbrevtable.htm DELETED --- --- alertmessage.htm DELETED --- --- allfinds.htm DELETED --- --- backslash.htm DELETED --- --- blocklabel.htm DELETED --- --- colon-t.htm DELETED --- --- compiler.htm DELETED --- --- contains.htm DELETED --- --- create.htm DELETED --- --- dbtrigger.htm DELETED --- --- defaultname.htm DELETED --- --- do1.htm DELETED --- --- dotcomment.htm DELETED --- --- endtype.htm DELETED --- --- errortext.htm DELETED --- --- findstate-tt.htm DELETED --- --- findstate.htm DELETED --- --- i18nlength.htm DELETED --- --- idiskeyword.htm DELETED --- --- ifindent-details.htm DELETED --- --- ifindent.htm DELETED --- --- ifindent1.htm DELETED --- --- ifindent2.htm DELETED --- --- matches.htm DELETED --- --- maxchar.htm DELETED --- --- message.htm DELETED --- --- messagetype.htm DELETED --- --- nobrackets.htm DELETED --- --- nocomment.htm DELETED --- --- noeffect.htm DELETED --- --- noerror.htm DELETED --- --- noproparse.htm DELETED --- --- noundo.htm DELETED --- --- nowhere.htm DELETED --- --- obsoletenodes.htm DELETED --- --- prolint.htm DELETED --- --- proparse.htm DELETED --- --- query.htm DELETED --- --- recid.htm DELETED --- --- rules.htm DELETED --- --- runargs.htm DELETED --- --- runname.htm DELETED --- --- sepdbui.htm DELETED --- --- sequence.htm DELETED --- --- shared.htm DELETED --- --- sharelock.htm DELETED --- --- sortaccess.htm DELETED --- --- strattrib.htm DELETED --- --- substitute.htm DELETED --- --- tablename.htm DELETED --- --- ttnoindex.htm DELETED --- --- uninproc.htm DELETED --- --- unquoted.htm DELETED --- --- use-index.htm DELETED --- --- varusage.htm DELETED --- --- version.htm DELETED --- --- when.htm DELETED --- --- where-udf.htm DELETED --- --- wholeindex.htm DELETED --- |
Update of /cvsroot/prolint/prolint/help In directory sc8-pr-cvs1:/tmp/cvs-serv14093 Removed Files: 2joanju.htm contact.html desktop.htm ed4win.htm excludelst.htm filters.htm firstrun.htm history.htm index.htm install.htm license.htm lintcfg.htm logwin.htm nowarn.htm nowarnlst.htm opensource.htm pro4m.htm profiles.htm prolint.htm prolintdb.htm run_prolint.htm selectfiles.htm settings.htm standard.css structure.htm turbolint.htm Log Message: removing all HTM files, these will be replaced by content-only files which are to be merged with a layout template --- 2joanju.htm DELETED --- --- contact.html DELETED --- --- desktop.htm DELETED --- --- ed4win.htm DELETED --- --- excludelst.htm DELETED --- --- filters.htm DELETED --- --- firstrun.htm DELETED --- --- history.htm DELETED --- --- index.htm DELETED --- --- install.htm DELETED --- --- license.htm DELETED --- --- lintcfg.htm DELETED --- --- logwin.htm DELETED --- --- nowarn.htm DELETED --- --- nowarnlst.htm DELETED --- --- opensource.htm DELETED --- --- pro4m.htm DELETED --- --- profiles.htm DELETED --- --- prolint.htm DELETED --- --- prolintdb.htm DELETED --- --- run_prolint.htm DELETED --- --- selectfiles.htm DELETED --- --- settings.htm DELETED --- --- standard.css DELETED --- --- structure.htm DELETED --- --- turbolint.htm DELETED --- |
|
From: <ju...@us...> - 2003-11-25 22:39:20
|
Update of /cvsroot/prolint/prolint/help In directory sc8-pr-cvs1:/tmp/cvs-serv12852 Modified Files: release.ini Log Message: release 55 Index: release.ini =================================================================== RCS file: /cvsroot/prolint/prolint/help/release.ini,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** release.ini 27 Oct 2003 22:29:20 -0000 1.18 --- release.ini 25 Nov 2003 22:39:17 -0000 1.19 *************** *** 1,3 **** [current] ! prolint=54 --- 1,3 ---- [current] ! prolint=55 |
|
From: <ju...@us...> - 2003-11-25 21:21:49
|
Update of /cvsroot/prolint/prolint/outputhandlers
In directory sc8-pr-cvs1:/tmp/cvs-serv27141
Modified Files:
logwin8.w logwin.w dlgfilter.w
Log Message:
minor changes to new logwin.w
Index: logwin8.w
===================================================================
RCS file: /cvsroot/prolint/prolint/outputhandlers/logwin8.w,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** logwin8.w 23 Nov 2003 22:57:39 -0000 1.1
--- logwin8.w 25 Nov 2003 21:21:45 -0000 1.2
***************
*** 526,529 ****
--- 526,530 ----
DO:
DEFINE VARIABLE numVisible AS INTEGER NO-UNDO INITIAL 0.
+ DEFINE VARIABLE fltPersistent AS LOGICAL NO-UNDO INITIAL FALSE.
RUN prolint/outputhandlers/dlgfilter.w (INPUT-OUTPUT fltDesc,
***************
*** 532,536 ****
INPUT-OUTPUT fltCompunit,
INPUT-OUTPUT fltSource,
! INPUT-OUTPUT fltRule).
/* show number of visible warnings in the status bar */
--- 533,538 ----
INPUT-OUTPUT fltCompunit,
INPUT-OUTPUT fltSource,
! INPUT-OUTPUT fltRule,
! INPUT-OUTPUT fltPersistent).
/* show number of visible warnings in the status bar */
Index: logwin.w
===================================================================
RCS file: /cvsroot/prolint/prolint/outputhandlers/logwin.w,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** logwin.w 23 Nov 2003 23:01:23 -0000 1.4
--- logwin.w 25 Nov 2003 21:21:45 -0000 1.5
***************
*** 93,96 ****
--- 93,97 ----
DEFINE VARIABLE fltSource AS CHARACTER NO-UNDO INITIAL "*":U.
DEFINE VARIABLE fltRule AS CHARACTER NO-UNDO INITIAL "*":U.
+ DEFINE VARIABLE fltPersistent AS LOGICAL NO-UNDO INITIAL FALSE.
/* external source editor: */
***************
*** 367,371 ****
CREATE WINDOW C-Win ASSIGN
HIDDEN = YES
! TITLE = "Prolint results - V2":T
HEIGHT = 18.24
WIDTH = 128
--- 368,372 ----
CREATE WINDOW C-Win ASSIGN
HIDDEN = YES
! TITLE = "Prolint results":T
HEIGHT = 18.24
WIDTH = 128
***************
*** 625,629 ****
INPUT-OUTPUT fltCompunit,
INPUT-OUTPUT fltSource,
! INPUT-OUTPUT fltRule).
/* show number of visible warnings in the status bar */
--- 626,631 ----
INPUT-OUTPUT fltCompunit,
INPUT-OUTPUT fltSource,
! INPUT-OUTPUT fltRule,
! INPUT-OUTPUT fltPersistent).
/* show number of visible warnings in the status bar */
***************
*** 842,847 ****
/* set private-data to a unique value, so Prolint can determine if this window is already running.
if prolint can't find a window with this private data, it will lauch one. */
! /* Ildefonzo Arocha - In theory it should be prolint_outputhandler_logwin.w, but it seems
! that the program name logwin.w is hardcoded in several programs. I will "reuse" the private-data */
c-win:PRIVATE-DATA = "prolint_outputhandler_logwin.w":U.
--- 844,848 ----
/* set private-data to a unique value, so Prolint can determine if this window is already running.
if prolint can't find a window with this private data, it will lauch one. */
! /* Notice logwin8.w and logwin.w both set the same private-data. This is not a bug. */
c-win:PRIVATE-DATA = "prolint_outputhandler_logwin.w":U.
***************
*** 1607,1610 ****
--- 1608,1612 ----
DEFINE VARIABLE cCodePreviewSizeY AS CHARACTER NO-UNDO.
+ DEFINE VARIABLE cFilterPersistent AS CHARACTER NO-UNDO.
DEFINE VARIABLE cFilterDesc AS CHARACTER NO-UNDO.
DEFINE VARIABLE cFilterMaxSeverity AS CHARACTER NO-UNDO.
***************
*** 1644,1647 ****
--- 1646,1650 ----
/* Filter Settings */
+ GET-KEY-VALUE SECTION "" KEY "FilterPersistent" VALUE cFilterPersistent .
GET-KEY-VALUE SECTION "" KEY "FilterDesc" VALUE cFilterDesc .
GET-KEY-VALUE SECTION "" KEY "FilterMaxSeverity" VALUE cFilterMaxSeverity .
***************
*** 1690,1699 ****
/* Filter Settings */
ASSIGN
! fltDesc = cFilterDesc
! fltMaxSeverity = INTEGER( cFilterMaxSeverity )
! fltMinSeverity = INTEGER( cFilterMinSeverity )
! fltCompunit = cFilterCompunit
! fltSource = cFilterSource
! fltRule = cFilterRule.
RUN checkButtonState.
--- 1693,1706 ----
/* Filter Settings */
ASSIGN
! fltPersistent = cFilterPersistent="1":U.
!
! IF fltPersistent THEN
! ASSIGN
! fltDesc = cFilterDesc
! fltMaxSeverity = INTEGER( cFilterMaxSeverity )
! fltMinSeverity = INTEGER( cFilterMinSeverity )
! fltCompunit = cFilterCompunit
! fltSource = cFilterSource
! fltRule = cFilterRule.
RUN checkButtonState.
***************
*** 1906,1913 ****
starttime = ETIME(NO).
! /* If we clear the filter, we loose the user saved settings
! RUN ClearFilter.
! */
!
IF pClearOutput THEN DO:
EMPTY TEMP-TABLE tt_lint.
--- 1913,1919 ----
starttime = ETIME(NO).
! IF NOT fltPersistent THEN
! RUN ClearFilter.
!
IF pClearOutput THEN DO:
EMPTY TEMP-TABLE tt_lint.
***************
*** 2144,2147 ****
--- 2150,2154 ----
/* Filter Settings */
+ PUT-KEY-VALUE SECTION "" KEY "FilterPersistent" VALUE ( IF fltPersistent THEN "1" ELSE "0" ) NO-ERROR.
PUT-KEY-VALUE SECTION "" KEY "FilterDesc" VALUE ( STRING( fltDesc ) ) NO-ERROR.
PUT-KEY-VALUE SECTION "" KEY "FilterMaxSeverity" VALUE ( STRING( fltMaxSeverity ) ) NO-ERROR.
Index: dlgfilter.w
===================================================================
RCS file: /cvsroot/prolint/prolint/outputhandlers/dlgfilter.w,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** dlgfilter.w 9 May 2003 20:17:34 -0000 1.2
--- dlgfilter.w 25 Nov 2003 21:21:45 -0000 1.3
***************
*** 6,12 ****
/*------------------------------------------------------------------------
! File:
! Description:
Input Parameters:
--- 6,12 ----
/*------------------------------------------------------------------------
! File: prolint/outputhandlers/dlgfilter.w
! Description: set filter parameters for logwin.w
Input Parameters:
***************
*** 16,27 ****
<none>
- Author:
! Created:
! ------------------------------------------------------------------------*/
! /* This .W file was created with the Progress AppBuilder. */
! /*----------------------------------------------------------------------*/
/* *************************** Definitions ************************** */
/* Parameters Definitions --- */
--- 16,46 ----
<none>
! -------------------------------------------------------------------------
!
! Copyright (C) 2003 Jurjen Dijkstra
!
! This file is part of Prolint.
!
! Prolint is free software; you can redistribute it and/or
! modify it under the terms of the GNU Lesser General Public
! License as published by the Free Software Foundation; either
! version 2.1 of the License, or (at your option) any later version.
!
! Prolint is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
! Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public
! License along with Prolint; if not, write to the Free Software
! Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
!
! ----------------------------------------------------------------------- */
/* *************************** Definitions ************************** */
+ {prolint/customize.i}
+ {prolint/dlc-version.i}
+
/* Parameters Definitions --- */
***************
*** 32,35 ****
--- 51,55 ----
DEFINE INPUT-OUTPUT PARAMETER fltSource AS CHARACTER NO-UNDO INITIAL "*":U.
DEFINE INPUT-OUTPUT PARAMETER fltRule AS CHARACTER NO-UNDO INITIAL "*":U.
+ DEFINE INPUT-OUTPUT PARAMETER fltPersistent AS LOGICAL NO-UNDO INITIAL FALSE.
/* Local Variable Definitions --- */
***************
*** 51,57 ****
/* Standard List Definitions */
&Scoped-Define ENABLED-OBJECTS ed_Desc tg_error ed_MinSeverity ~
! ed_MaxSeverity ed_Compunit ed_Source ed_Rule Btn_OK
&Scoped-Define DISPLAYED-OBJECTS ed_Desc tg_error ed_MinSeverity ~
! ed_MaxSeverity ed_Compunit ed_Source ed_Rule
/* Custom List Definitions */
--- 71,77 ----
/* Standard List Definitions */
&Scoped-Define ENABLED-OBJECTS ed_Desc tg_error ed_MinSeverity ~
! ed_MaxSeverity ed_Compunit ed_Source ed_Rule tg_persistent Btn_OK
&Scoped-Define DISPLAYED-OBJECTS ed_Desc tg_error ed_MinSeverity ~
! ed_MaxSeverity ed_Compunit ed_Source ed_Rule tg_persistent
/* Custom List Definitions */
***************
*** 108,111 ****
--- 128,136 ----
SIZE 24 BY .81 NO-UNDO.
+ DEFINE VARIABLE tg_persistent AS LOGICAL INITIAL no
+ LABEL "Save filter settings in registry"
+ VIEW-AS TOGGLE-BOX
+ SIZE 35 BY .81 NO-UNDO.
+
/* ************************ Frame Definitions *********************** */
***************
*** 119,124 ****
ed_Source AT ROW 6.71 COL 24 COLON-ALIGNED
ed_Rule AT ROW 7.91 COL 24 COLON-ALIGNED
! Btn_OK AT ROW 9.33 COL 34
! SPACE(38.39) SKIP(0.62)
WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER
SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE
--- 144,150 ----
ed_Source AT ROW 6.71 COL 24 COLON-ALIGNED
ed_Rule AT ROW 7.91 COL 24 COLON-ALIGNED
! tg_persistent AT ROW 9.33 COL 26
! Btn_OK AT ROW 10.76 COL 33
! SPACE(39.39) SKIP(0.47)
WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER
SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE
***************
*** 179,183 ****
ed_Compunit
ed_Source
! ed_Rule.
END.
--- 205,210 ----
ed_Compunit
ed_Source
! ed_Rule
! tg_Persistent.
END.
***************
*** 188,192 ****
fltCompunit = ed_CompUnit
fltSource = ed_Source
! fltRule = ed_Rule.
END.
--- 215,220 ----
fltCompunit = ed_CompUnit
fltSource = ed_Source
! fltRule = ed_Rule
! fltPersistent = tg_Persistent.
END.
***************
*** 246,252 ****
ed_Compunit = fltCompunit
ed_Source = fltSource
! ed_Rule = fltRule.
RUN enable_UI.
WAIT-FOR GO OF FRAME {&FRAME-NAME}.
END.
--- 274,287 ----
ed_Compunit = fltCompunit
ed_Source = fltSource
! ed_Rule = fltRule
! tg_Persistent = fltPersistent.
RUN enable_UI.
+ &IF {&dlc-version}=8 &THEN
+ ASSIGN
+ tg_Persistent:VISIBLE = FALSE
+ tg_Persistent:HIDDEN = TRUE.
+ &ENDIF
+
WAIT-FOR GO OF FRAME {&FRAME-NAME}.
END.
***************
*** 288,295 ****
------------------------------------------------------------------------------*/
DISPLAY ed_Desc tg_error ed_MinSeverity ed_MaxSeverity ed_Compunit ed_Source
! ed_Rule
WITH FRAME Dialog-Frame.
ENABLE ed_Desc tg_error ed_MinSeverity ed_MaxSeverity ed_Compunit ed_Source
! ed_Rule Btn_OK
WITH FRAME Dialog-Frame.
VIEW FRAME Dialog-Frame.
--- 323,330 ----
------------------------------------------------------------------------------*/
DISPLAY ed_Desc tg_error ed_MinSeverity ed_MaxSeverity ed_Compunit ed_Source
! ed_Rule tg_persistent
WITH FRAME Dialog-Frame.
ENABLE ed_Desc tg_error ed_MinSeverity ed_MaxSeverity ed_Compunit ed_Source
! ed_Rule tg_persistent Btn_OK
WITH FRAME Dialog-Frame.
VIEW FRAME Dialog-Frame.
|
|
From: <ju...@us...> - 2003-11-25 21:21:10
|
Update of /cvsroot/prolint/prolint
In directory sc8-pr-cvs1:/tmp/cvs-serv27058
Modified Files:
prolint.p
Log Message:
changed expected proparse version to 2.1a
Index: prolint.p
===================================================================
RCS file: /cvsroot/prolint/prolint/prolint.p,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** prolint.p 23 Nov 2003 22:57:40 -0000 1.21
--- prolint.p 25 Nov 2003 21:21:07 -0000 1.22
***************
*** 27,31 ****
/* Only the first four digits must match, because for example release 1.0d is functionally
similar to bugfix 1.0d04 */
! &SCOPED-DEFINE ProparseVersion "2.0b":U
/* customize.i allows to switch some features on/off */
--- 27,31 ----
/* Only the first four digits must match, because for example release 1.0d is functionally
similar to bugfix 1.0d04 */
! &SCOPED-DEFINE ProparseVersion "2.1a":U
/* customize.i allows to switch some features on/off */
|
|
From: <ju...@us...> - 2003-11-23 23:01:27
|
Update of /cvsroot/prolint/prolint/outputhandlers
In directory sc8-pr-cvs1:/tmp/cvs-serv15717
Modified Files:
logwin.w
Added Files:
delete.gif desktop.gif exit.gif filter.gif help.gif
hideTree.gif logwin.wrx openlog.gif preview.gif prolint.gif
savelog.gif codepreview.w
Log Message:
new version of outputhandler "logwin", by Ildefonzo Arocha
--- NEW FILE: delete.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: desktop.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: exit.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: filter.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: help.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: hideTree.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: logwin.wrx ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: openlog.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: preview.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: prolint.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: savelog.gif ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: codepreview.w ---
&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 GUI
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS C-Win
/*------------------------------------------------------------------------
File: prolint/outputhandlers/codepreview.w
Description: Displays the source of the currently selected source on
the ProLint Result Browser.
Input Parameters:
phCalleHandle - The handle of the caller procedure that run this
procedure
Output Parameters:
<none>
Author: Ildefonzo Arocha
Created: 17.October.2003
------------------------------------------------------------------------*/
/* This .W file was created with the Progress AppBuilder. */
/*----------------------------------------------------------------------*/
/* Create an unnamed pool to store all the widgets created
by this procedure. This is a good default which assures
that this procedure's triggers and internal procedures
will execute in this procedure's storage, and that proper
cleanup will occur on deletion of the procedure. */
CREATE WIDGET-POOL.
/* *************************** Definitions ************************** */
/* Parameters Definitions --- */
/* Local Variable Definitions --- */
&SCOPED-DEFINE WINTITLE Code Preview
&IF DEFINED( AppBuilder_is_Running ) <> 0 &THEN
DEFINE VARIABLE phCallerHandle AS HANDLE NO-UNDO.
&ELSE
DEFINE INPUT PARAMETER phCallerHandle AS HANDLE NO-UNDO.
&ENDIF
DEFINE VARIABLE ghParentWindow AS HANDLE NO-UNDO.
DEFINE VARIABLE gcFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE glDock AS LOGICAL NO-UNDO INITIAL FALSE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
/* ******************** Preprocessor Definitions ******************** */
&Scoped-define PROCEDURE-TYPE Window
&Scoped-define DB-AWARE no
/* Name of first Frame and/or Browse and/or first Query */
&Scoped-define FRAME-NAME DEFAULT-FRAME
/* Standard List Definitions */
&Scoped-Define ENABLED-OBJECTS btn_close EdEditor
&Scoped-Define DISPLAYED-OBJECTS EdEditor
/* Custom List Definitions */
/* List-1,List-2,List-3,List-4,List-5,List-6 */
/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME
/* *********************** Control Definitions ********************** */
/* Define the widget handle for the window */
DEFINE VAR C-Win AS WIDGET-HANDLE NO-UNDO.
/* Definitions of the field level widgets */
DEFINE BUTTON btn_close
IMAGE-UP FILE "prolint/outputhandlers/exit.gif":U NO-FOCUS FLAT-BUTTON
LABEL "Exit"
SIZE 4.8 BY 1.14 TOOLTIP "Close this window"
BGCOLOR 8 .
DEFINE VARIABLE EdEditor AS CHARACTER
VIEW-AS EDITOR NO-WORD-WRAP SCROLLBAR-HORIZONTAL SCROLLBAR-VERTICAL LARGE
SIZE 80 BY 14.67
FONT 0 NO-UNDO.
/* ************************ Frame Definitions *********************** */
DEFINE FRAME DEFAULT-FRAME
btn_close AT ROW 1.1 COL 75.8
EdEditor AT ROW 2.33 COL 1 NO-LABEL
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 80 BY 16.
/* *********************** Procedure Settings ************************ */
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
Type: Window
Allow: Basic,Browse,DB-Fields,Window,Query
Other Settings: COMPILE
*/
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS
/* ************************* Create Window ************************** */
&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
CREATE WINDOW C-Win ASSIGN
HIDDEN = YES
TITLE = "Code Preview"
HEIGHT = 16
WIDTH = 80
MAX-HEIGHT = 16
MAX-WIDTH = 80
VIRTUAL-HEIGHT = 16
VIRTUAL-WIDTH = 80
SMALL-TITLE = yes
SHOW-IN-TASKBAR = yes
CONTROL-BOX = no
MIN-BUTTON = no
MAX-BUTTON = no
RESIZE = yes
SCROLL-BARS = no
STATUS-AREA = no
BGCOLOR = ?
FGCOLOR = ?
KEEP-FRAME-Z-ORDER = yes
THREE-D = yes
MESSAGE-AREA = no
SENSITIVE = yes.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.
/* END WINDOW DEFINITION */
&ANALYZE-RESUME
/* *********** Runtime Attributes and AppBuilder Settings *********** */
&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW C-Win
VISIBLE,,RUN-PERSISTENT */
/* SETTINGS FOR FRAME DEFAULT-FRAME
*/
ASSIGN
EdEditor:RETURN-INSERTED IN FRAME DEFAULT-FRAME = TRUE
EdEditor:READ-ONLY IN FRAME DEFAULT-FRAME = TRUE.
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win)
THEN C-Win:HIDDEN = no.
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME
/* ************************ Control Triggers ************************ */
&Scoped-define SELF-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON END-ERROR OF C-Win /* Code Preview */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO:
/* This case occurs when the user presses the "Esc" key.
In a persistently run window, just ignore this. If we did not, the
application would exit. */
IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON WINDOW-CLOSE OF C-Win /* Code Preview */
DO:
RUN destroyObject.
RETURN NO-APPLY.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON WINDOW-RESIZED OF C-Win /* Code Preview */
DO:
RUN resizeTo( {&WINDOW-NAME}:WIDTH-PIXELS , {&WINDOW-NAME}:HEIGHT-PIXELS ).
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME btn_close
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_close C-Win
ON CHOOSE OF btn_close IN FRAME DEFAULT-FRAME /* Exit */
DO:
RUN destroyObject.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&UNDEFINE SELF-NAME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK C-Win
/* *************************** Main Block *************************** */
/* Set CURRENT-WINDOW: this will parent dialog-boxes and frames. */
ASSIGN CURRENT-WINDOW = {&WINDOW-NAME}
THIS-PROCEDURE:CURRENT-WINDOW = {&WINDOW-NAME}.
/* The CLOSE event can be used from inside or outside the procedure to */
/* terminate it. */
ON CLOSE OF THIS-PROCEDURE DO:
RUN destroyObject.
RUN disable_UI.
END.
/* Best default for GUI applications is... */
PAUSE 0 BEFORE-HIDE.
/* set the minimum and maximum window size */
ASSIGN
{&WINDOW-NAME}:MIN-WIDTH-PIXELS = 80
{&WINDOW-NAME}:MIN-HEIGHT-PIXELS = 16
{&WINDOW-NAME}:MAX-WIDTH-PIXELS = SESSION:WIDTH-PIXELS
{&WINDOW-NAME}:MAX-HEIGHT-PIXELS = SESSION:HEIGHT-PIXELS
/* Default the window position to the bottom right corner of the session.
Progress 9.1c23, Progress is not returning correctly the Work Area Size if you have
customized the size of the Task Bar, I use a double sized Task Bar for example */
{&WINDOW-NAME}:X = SESSION:WORK-AREA-WIDTH-PIXELS - ( {&WINDOW-NAME}:WIDTH-PIXELS + 10 )
{&WINDOW-NAME}:Y = SESSION:WORK-AREA-HEIGHT-PIXELS - ( {&WINDOW-NAME}:HEIGHT-PIXELS + 10 ).
/* Get the parent window handle for docking function */
IF VALID-HANDLE( phCallerHandle ) THEN
ghParentWindow = phCallerHandle:CURRENT-WINDOW.
/* Now enable the interface and wait for the exit condition. */
/* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */
MAIN-BLOCK:
DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK
ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK:
EdEditor:PROGRESS-SOURCE = TRUE.
RUN enable_UI.
IF NOT THIS-PROCEDURE:PERSISTENT THEN
WAIT-FOR CLOSE OF THIS-PROCEDURE.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
/* ********************** Internal Procedures *********************** */
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE applyUserSettings C-Win
PROCEDURE applyUserSettings :
/*------------------------------------------------------------------------------
Purpose: Applies User Settings, like position and Size
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER piX AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER piY AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER piSizeX AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER piSizeY AS INTEGER NO-UNDO.
IF piSizeX > 0 AND piSizeY > 0 THEN DO:
ASSIGN
{&WINDOW-NAME}:X = piX
{&WINDOW-NAME}:Y = piY
{&WINDOW-NAME}:WIDTH-PIXELS = piSizeX
{&WINDOW-NAME}:HEIGHT-PIXELS = piSizeY.
RUN resizeTo( piSizeX , piSizeY ).
END.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE destroyObject C-Win
PROCEDURE destroyObject :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
/* Notify the Parent we are closing down */
PUBLISH "codePreviewClosed".
/* This event will close the window and terminate the procedure. */
APPLY "CLOSE":U TO THIS-PROCEDURE.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI C-Win _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
Purpose: DISABLE the User Interface
Parameters: <none>
Notes: Here we clean-up the user-interface by deleting
dynamic widgets we have created and/or hide
frames. This procedure is usually called when
we are ready to "clean-up" after running.
------------------------------------------------------------------------------*/
/* Delete the WINDOW we created */
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win)
THEN DELETE WIDGET C-Win.
IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dockWindow C-Win
PROCEDURE dockWindow :
/*------------------------------------------------------------------------------
Purpose: This procedure "Docks" the code preview below the Result Window
This functionallity is currently not working as in order to
it to work properly I will need a "WINDOW-MOVED" event, which
Progress does not support at the moment.
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
IF NOT VALID-HANDLE( ghParentWindow ) THEN RETURN.
/* Set the new window position */
ASSIGN
{&WINDOW-NAME}:Y = ghParentWindow:Y + ghParentWindow:HEIGHT-PIXELS
{&WINDOW-NAME}:X = ghParentWindow:X.
/* Resize Width to parent window */
RUN resizeTo( {&WINDOW-NAME}:HEIGHT-PIXELS , ghParentWindow:WIDTH-PIXELS ).
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI C-Win _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
Purpose: ENABLE the User Interface
Parameters: <none>
Notes: Here we display/view/enable the widgets in the
user-interface. In addition, OPEN all queries
associated with each FRAME and BROWSE.
These statements here are based on the "Other
Settings" section of the widget Property Sheets.
------------------------------------------------------------------------------*/
DISPLAY EdEditor
WITH FRAME DEFAULT-FRAME IN WINDOW C-Win.
ENABLE btn_close EdEditor
WITH FRAME DEFAULT-FRAME IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-DEFAULT-FRAME}
VIEW C-Win.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getUsetSettings C-Win
PROCEDURE getUsetSettings :
/*------------------------------------------------------------------------------
Purpose: Returns the User Settings for the Code Preview Window
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE OUTPUT PARAMETER piX AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER piY AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER piSizeX AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER piSizeY AS INTEGER NO-UNDO.
ASSIGN
piX = {&WINDOW-NAME}:X
piY = {&WINDOW-NAME}:Y
piSizeX = {&WINDOW-NAME}:WIDTH-PIXELS
piSizeY = {&WINDOW-NAME}:HEIGHT-PIXELS.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE loadFile C-Win
PROCEDURE loadFile :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER pcFileName AS CHARACTER NO-UNDO.
/* Already loaded ? return */
IF gcFileName = pcFileName THEN RETURN.
DO WITH FRAME {&FRAME-NAME}:
ASSIGN
gcFileName = "".
EdEditor:SCREEN-VALUE = "".
FILE-INFO:FILE-NAME = pcFileName.
IF FILE-INFO:FULL-PATHNAME = ? THEN DO:
MESSAGE "Cannot locate source file " + pcFileName VIEW-AS ALERT-BOX ERROR.
RETURN.
END.
IF EdEditor:INSERT-FILE( FILE-INFO:FULL-PATHNAME ) THEN DO:
gcFileName = pcFileName.
{&WINDOW-NAME}:TITLE = SUBSTITUTE( "{&WINTITLE} - &1":U , pcFileName ).
END.
ELSE DO:
MESSAGE "Error when loading " + FILE-INFO:FULL-PATHNAME VIEW-AS ALERT-BOX ERROR.
RETURN.
END.
END.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE parentResized C-Win
PROCEDURE parentResized :
/*------------------------------------------------------------------------------
Purpose: Runs if the parent has been resized - used for docking function
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
IF glDock THEN
RUN dockWindow.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE repositionToLine C-Win
PROCEDURE repositionToLine :
/*------------------------------------------------------------------------------
Purpose: Repositions the Editor to some line
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER piLineNumber AS INTEGER NO-UNDO.
DEFINE VARIABLE iOffSet AS INTEGER NO-UNDO.
IF gcFileName = "" THEN RETURN.
IF piLineNumber = ? OR piLineNumber = 0 THEN piLineNumber = 1.
DO WITH FRAME {&FRAME-NAME}:
ASSIGN
/* Get the offset for Column 1 and line number in piLineNumber */
iOffSet = EdEditor:CONVERT-TO-OFFSET( piLineNumber , 1 )
/* Change window title */
{&WINDOW-NAME}:TITLE = SUBSTITUTE( "{&WINTITLE} - &1 (&2)":U , gcFileName , piLineNumber ).
/* Select the line for easy visualization */
EdEditor:SET-SELECTION ( iOffSet ,
EdEditor:CONVERT-TO-OFFSET( piLineNumber + 1 , 1 ) - 1 ).
END.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resizeTo C-Win
PROCEDURE resizeTo :
/*------------------------------------------------------------------------------
Purpose: Resizes the window - I hate resizing procedures :(
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER piNewWidth AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER piNewHeight AS INTEGER NO-UNDO.
DO WITH FRAME {&FRAME-NAME}:
ASSIGN
{&WINDOW-NAME}:WIDTH-PIXELS = piNewWidth
{&WINDOW-NAME}:HEIGHT-PIXELS = piNewHeight.
IF piNewHeight < FRAME {&FRAME-NAME}:HEIGHT-PIXELS THEN
ASSIGN
EdEditor:HEIGHT-PIXELS = piNewHeight - EdEditor:Y
FRAME {&FRAME-NAME}:VIRTUAL-HEIGHT-PIXELS = piNewHeight.
IF piNewHeight > FRAME {&FRAME-NAME}:HEIGHT-PIXELS THEN
ASSIGN
FRAME {&FRAME-NAME}:HEIGHT-PIXELS = piNewHeight
EdEditor:HEIGHT-PIXELS = piNewHeight - EdEditor:Y.
IF piNewWidth < FRAME {&FRAME-NAME}:WIDTH-PIXELS THEN
ASSIGN
btn_close:X = piNewWidth - ( btn_close:WIDTH-PIXELS + 2 )
EdEditor:WIDTH-PIXELS = piNewWidth - EdEditor:X
FRAME {&FRAME-NAME}:VIRTUAL-WIDTH-PIXELS = piNewWidth.
IF piNewWidth > FRAME {&FRAME-NAME}:WIDTH-PIXELS THEN
ASSIGN
FRAME {&FRAME-NAME}:WIDTH-PIXELS = piNewWidth
EdEditor:WIDTH-PIXELS = piNewWidth - EdEditor:X
btn_close:X = piNewWidth - ( btn_close:WIDTH-PIXELS + 2 ).
END.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
Index: logwin.w
===================================================================
RCS file: /cvsroot/prolint/prolint/outputhandlers/logwin.w,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** logwin.w 9 Sep 2002 13:30:42 -0000 1.3
--- logwin.w 23 Nov 2003 23:01:23 -0000 1.4
***************
*** 1,7 ****
&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI
&ANALYZE-RESUME
- /* Connected Databases
- sports2000 PROGRESS
- */
&Scoped-define WINDOW-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS C-Win
--- 1,4 ----
***************
*** 10,15 ****
[...2355 lines suppressed...]
+ Notes:
+ ------------------------------------------------------------------------------*/
+ DEFINE VARIABLE cWhereExp AS CHARACTER NO-UNDO.
+
+ /* Note when adding this expressions. As the resulting where clause will be used with buffers of tt_list (like tt_list# for example)
+ we cannot add the table qualifier to the expressions, Progress will scope the fields to the buffer
+ */
+
+ cWhereExp = "":U.
+ IF fltDesc <> "*":U THEN cWhereExp = cWhereExp + MINIMUM( cWhereExp , " AND ":U ) + "ttDescription MATCHES '":U + fltDesc + "'":U.
+ IF fltMinSeverity <> 0 THEN cWhereExp = cWhereExp + MINIMUM( cWhereExp , " AND ":U ) + "ttSeverity >= ":U + STRING( fltMinSeverity ).
+ IF fltMaxSeverity <> 9 THEN cWhereExp = cWhereExp + MINIMUM( cWhereExp , " AND ":U ) + "ttSeverity <= ":U + STRING( fltMaxSeverity ).
+ IF fltCompunit <> "*":U THEN cWhereExp = cWhereExp + MINIMUM( cWhereExp , " AND ":U ) + "ttCompunit MATCHES '":U + fltCompunit + "'":U.
+ IF fltSource <> "*":U THEN cWhereExp = cWhereExp + MINIMUM( cWhereExp , " AND ":U ) + "ttSource MATCHES '":U + fltSource + "'":U.
+ IF fltRule <> "*":U THEN cWhereExp = cWhereExp + MINIMUM( cWhereExp , " AND ":U ) + "ttRuleID MATCHES '":U + fltRule + "'":U.
+
+ RETURN ( IF cWhereExp = ? OR cWhereExp = "" THEN "TRUE":U ELSE cWhereExp) .
+ END FUNCTION.
/* _UIB-CODE-BLOCK-END */
|
|
From: <ju...@us...> - 2003-11-23 22:57:43
|
Update of /cvsroot/prolint/prolint
In directory sc8-pr-cvs1:/tmp/cvs-serv14558
Modified Files:
desktop.w prolint.p
Log Message:
preparing for new version of "logwin" outputhandler:
copied original logwin to logwin8.
"logwin" will be run by default unless you're using DLC8: in that case you will get "logwin8".
Index: desktop.w
===================================================================
RCS file: /cvsroot/prolint/prolint/desktop.w,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** desktop.w 5 Apr 2003 23:58:10 -0000 1.5
--- desktop.w 23 Nov 2003 22:57:39 -0000 1.6
***************
*** 42,45 ****
--- 42,48 ----
/* *************************** Definitions ************************** */
+ {prolint/customize.i}
+ {prolint/dlc-version.i}
+
/* Parameters Definitions --- */
***************
*** 520,524 ****
--- 523,531 ----
ON CHOOSE OF Btn_results IN FRAME DEFAULT-FRAME /* Results Window */
DO:
+ &IF {&dlc-version}=8 &THEN
+ RUN prolint/outputhandlers/logwin8.w PERSISTENT.
+ &ELSE
RUN prolint/outputhandlers/logwin.w PERSISTENT.
+ &ENDIF
END.
Index: prolint.p
===================================================================
RCS file: /cvsroot/prolint/prolint/prolint.p,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** prolint.p 21 Oct 2003 22:05:20 -0000 1.20
--- prolint.p 23 Nov 2003 22:57:40 -0000 1.21
***************
*** 452,456 ****
--- 452,460 ----
END.
IF NOT LogwinRunning THEN
+ &IF {&dlc-version}=8 &THEN
+ RUN prolint/outputhandlers/logwin8.w PERSISTENT.
+ &ELSE
RUN prolint/outputhandlers/logwin.w PERSISTENT.
+ &ENDIF
END.
|
|
From: <ju...@us...> - 2003-11-23 22:57:43
|
Update of /cvsroot/prolint/prolint/outputhandlers
In directory sc8-pr-cvs1:/tmp/cvs-serv14558/outputhandlers
Modified Files:
choices.d
Added Files:
logwin8.w
Log Message:
preparing for new version of "logwin" outputhandler:
copied original logwin to logwin8.
"logwin" will be run by default unless you're using DLC8: in that case you will get "logwin8".
--- NEW FILE: logwin8.w ---
&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI
&ANALYZE-RESUME
/* Connected Databases
sports2000 PROGRESS
*/
&Scoped-define WINDOW-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS C-Win
/*------------------------------------------------------------------------
File: prolint/outputhandlers/logwin.w
Copyright (C) 2001,2002 Jurjen Dijkstra
This file is part of Prolint.
Prolint is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
[...1313 lines suppressed...]
/* show in statusbar if there is an active filter */
IF fltDesc="*":U AND
fltMaxSeverity=9 AND
fltMinSeverity=0 AND
fltCompunit="*":U AND
fltSource="*":U AND
fltRule="*":U
THEN
RUN adecomm/_statdsp.p (hStatusBAr, 5, "").
ELSE
RUN adecomm/_statdsp.p (hStatusBAr, 5, "filtered").
APPLY "value-changed":U TO brw_results IN FRAME {&FRAME-NAME}.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
Index: choices.d
===================================================================
RCS file: /cvsroot/prolint/prolint/outputhandlers/choices.d,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** choices.d 5 Oct 2002 18:48:26 -0000 1.2
--- choices.d 23 Nov 2003 22:57:39 -0000 1.3
***************
*** 1,3 ****
! "logwin.w" 8 "GUI" "the Prolint Results window shows results in a browse widget"
"logfile.p" 8 "*" "writes to file prolint.log, using some really useless experimental format :-)"
"showhtml.p" 8 "*" "writes to lint_results.htm and shows it in default browser"
--- 1,4 ----
! "logwin.w" 9 "GUI" "the Prolint Results window shows results in a browse widget. Requires DLC 9"
! "logwin8.w" 8 "GUI" "the Prolint Results window shows results in a browse widget. DLC 8 compatible"
"logfile.p" 8 "*" "writes to file prolint.log, using some really useless experimental format :-)"
"showhtml.p" 8 "*" "writes to lint_results.htm and shows it in default browser"
|
