[Prolint-cvs] SF.net SVN: prolint: [274] trunk/prolint
Brought to you by:
johnallengreen,
jurjen
Menu
▾
▴
[Prolint-cvs] SF.net SVN: prolint: [274] trunk/prolint
|
From: <ju...@us...> - 2006-08-05 10:34:42
|
Revision: 274 Author: jurjen Date: 2006-08-05 03:32:40 -0700 (Sat, 05 Aug 2006) ViewCVS: http://svn.sourceforge.net/prolint/?rev=274&view=rev Log Message: ----------- continued: clean up the root of prolint; move files to subdirectories (not finished yet, but it works so far) Modified Paths: -------------- trunk/prolint/core/filterplugins.p trunk/prolint/core/lintsuper.p trunk/prolint/core/prolint.p trunk/prolint/desktop.w trunk/prolint/dnewrule.w trunk/prolint/filters/filterparams.i trunk/prolint/help/desktop.htxt trunk/prolint/help/newrule.htxt trunk/prolint/help/rules/ifindent-details.htxt trunk/prolint/help/rules/ifindent.htxt trunk/prolint/lintcfg.w trunk/prolint/outputhandlers/PRO4mfile.p trunk/prolint/outputhandlers/dlgfilter.w trunk/prolint/outputhandlers/ed4win.p trunk/prolint/outputhandlers/logexcel.p trunk/prolint/outputhandlers/logfile.p trunk/prolint/outputhandlers/logwin.w trunk/prolint/outputhandlers/logwin8.w trunk/prolint/outputhandlers/prolintdb.p trunk/prolint/outputhandlers/regrlog.p trunk/prolint/outputhandlers/showhtml.p trunk/prolint/outputhandlers/tabfile.p trunk/prolint/prolintdb/dirstats.w trunk/prolint/prolintdb/incstats.w trunk/prolint/prolintdb/rulestats.w trunk/prolint/prolintdb/runffq.p trunk/prolint/rtb/checkin-handler.p trunk/prolint/rules/_template.p trunk/prolint/rules/abbrevkwd.p trunk/prolint/rules/abbrevtable.p trunk/prolint/rules/alertmessage.p trunk/prolint/rules/allfinds.p trunk/prolint/rules/backslash.p trunk/prolint/rules/blocklabel.p trunk/prolint/rules/colon-t.p trunk/prolint/rules/contains.p trunk/prolint/rules/create.p trunk/prolint/rules/dbtrigger.p trunk/prolint/rules/defaultname.p trunk/prolint/rules/do1.p trunk/prolint/rules/dotcomment.p trunk/prolint/rules/emptyblock.p trunk/prolint/rules/endtype.p trunk/prolint/rules/errortext.p trunk/prolint/rules/findstate-tt.p trunk/prolint/rules/findstate.p trunk/prolint/rules/fnusage.p trunk/prolint/rules/groupassign.p trunk/prolint/rules/i18nlength.p trunk/prolint/rules/idiskeyword.p trunk/prolint/rules/ifindent.p trunk/prolint/rules/ifparens.p trunk/prolint/rules/lexcolon.p trunk/prolint/rules/matches.p trunk/prolint/rules/maxchar.p trunk/prolint/rules/message.p trunk/prolint/rules/messagetype.p trunk/prolint/rules/namecheck.p trunk/prolint/rules/nameconv.i trunk/prolint/rules/nameconv.p trunk/prolint/rules/nobrackets.p trunk/prolint/rules/nocomment.p trunk/prolint/rules/noeffect.p trunk/prolint/rules/noerror.p trunk/prolint/rules/noundo.p trunk/prolint/rules/nowhere.p trunk/prolint/rules/obsoletenodes.p trunk/prolint/rules/oflink.p trunk/prolint/rules/query.p trunk/prolint/rules/runargs.p trunk/prolint/rules/runasnotfound.p trunk/prolint/rules/runname.p trunk/prolint/rules/runnotfound.p trunk/prolint/rules/sepdbui.p trunk/prolint/rules/sequence.p trunk/prolint/rules/shared.p trunk/prolint/rules/sharelock.p trunk/prolint/rules/sortaccess.p trunk/prolint/rules/strattrib.p trunk/prolint/rules/substitute.p trunk/prolint/rules/tablename.p trunk/prolint/rules/tableusage.p trunk/prolint/rules/ttlock.p trunk/prolint/rules/ttnoindex.p trunk/prolint/rules/undoretry.p trunk/prolint/rules/uninproc.p trunk/prolint/rules/unquoted.p trunk/prolint/rules/use-index.p trunk/prolint/rules/varusage.p trunk/prolint/rules/weakchar.p trunk/prolint/rules/when.p trunk/prolint/rules/where-udf.p trunk/prolint/rules/wholeindex.p trunk/prolint/selectfiles.w trunk/prolint/start.p Added Paths: ----------- trunk/prolint/core/_adetool.i trunk/prolint/core/add2protools.p trunk/prolint/core/checkrelease.p trunk/prolint/core/dlc-version.i trunk/prolint/core/openhtml.p trunk/prolint/core/ruleparams.i trunk/prolint/core/ttprocedure.i Removed Paths: ------------- trunk/prolint/_adetool.i trunk/prolint/add2protools.p trunk/prolint/checkrelease.p trunk/prolint/customize.i trunk/prolint/dlc-version.i trunk/prolint/openhtml.p trunk/prolint/ruleparams.i trunk/prolint/ttprocedure.i Deleted: trunk/prolint/_adetool.i =================================================================== --- trunk/prolint/_adetool.i 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/_adetool.i 2006-08-05 10:32:40 UTC (rev 274) @@ -1,53 +0,0 @@ -/********************************************************************* -* Copyright (C) 2000 by Progress Software Corporation ("PSC"), * -* 14 Oak Park, Bedford, MA 01730, and other contributors as listed * -* below. All Rights Reserved. * -* * -* The Initial Developer of the Original Code is PSC. The Original * -* Code is Progress IDE code released to open source December 1, 2000.* -* * -* The contents of this file are subject to the Possenet Public * -* License Version 1.0 (the "License"); you may not use this file * -* except in compliance with the License. A copy of the License is * -* available as of the date of this notice at * -* http://www.possenet.org/license.html * -* * -* Software distributed under the License is distributed on an "AS IS"* -* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* -* should refer to the License for the specific language governing * -* rights and limitations under the License. * -* * -* Contributors: * -* * -*********************************************************************/ - -/************************************************************************** - Procedure: _adetool.i - - Purpose: Defines an internal procedure called 'ADEPersistent'. This - should be included in any Persistent procedure which you do - not want to be automatically deleted by any ADE tools (e.g. - Editor, UIB). The program _runtool.p will check for the - existence of ADEPersistent in a procedure and will delete - it only if it doesn't exist. - - Syntax : {adecomm/_adetool.i} - - Parameters: None - - Description: - Notes : - Authors: Gerry Seidl - Date : 1/18/95 - - Notes : copied to directory prolint, in order to not have to install - directory adecomm just for proliny - Authors: Jurjen Dijkstra - Date : 8/30/2002 -**************************************************************************/ - -PROCEDURE ADEPersistent: - /* purpose : notify ADE so this persistent procedue will not be deleted */ - RETURN "OK":U. -END. - Deleted: trunk/prolint/add2protools.p =================================================================== --- trunk/prolint/add2protools.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/add2protools.p 2006-08-05 10:32:40 UTC (rev 274) @@ -1,55 +0,0 @@ -/* ==================================================================== - file : prolint/add2protools.p - by : Jurjen Dijkstra - purpose : Add Prolint Desktop to PRO*TOOLS palette - ==================================================================== */ - -DEFINE INPUT PARAMETER cAction AS CHARACTER NO-UNDO. -DEFINE OUTPUT PARAMETER lAlreadyInThere AS LOGICAL NO-UNDO INITIAL NO. - -DEFINE VARIABLE ProtoolsDatfile AS CHARACTER NO-UNDO. -DEFINE VARIABLE cProgram AS CHARACTER NO-UNDO. -DEFINE VARIABLE iOrder AS INTEGER NO-UNDO. -DEFINE VARIABLE iMaxOrder AS INTEGER NO-UNDO. -DEFINE VARIABLE hproc AS HANDLE NO-UNDO. - -GET-KEY-VALUE SECTION "ProTools" - KEY "FunctionDefs" VALUE ProtoolsDatfile. -IF ProtoolsDatfile=? THEN RETURN. - -/* read protools.dat */ -INPUT FROM VALUE(ProtoolsDatfile). -REPEAT: - ASSIGN cProgram = "" - iOrder = 0. - IMPORT ^ cProgram ^ ^ ^ iOrder ^. - IF cProgram MATCHES "*prolint*desktop*" THEN - lAlreadyInThere = TRUE. - IF iOrder > iMaxOrder THEN - iMaxOrder = iOrder. -END. -INPUT CLOSE. - -IF cAction = "ADD":U THEN DO: - /* append to protools.dat, if still needed */ - IF NOT lAlreadyInThere THEN DO: - OUTPUT TO VALUE(ProtoolsDatfile) APPEND. - PUT UNFORMATTED - SUBSTITUTE('"Prolint Desktop" "prolint/desktop.w" "prolint/protools.bmp" yes yes &1 no',STRING(iMaxOrder + 10)) - SKIP. - OUTPUT CLOSE. - lAlreadyInThere = TRUE. - - /* try to close protools palette */ - hproc = SESSION:FIRST-PROCEDURE. - DO WHILE (VALID-HANDLE(hProc)) AND NOT (hProc:FILE-NAME MATCHES "*protools*_protool*") : - hproc = hproc:NEXT-SIBLING. - END. - IF (VALID-HANDLE(hProc)) AND (hProc:FILE-NAME MATCHES "*protools*_protool*") THEN - RUN Destroy IN hProc NO-ERROR. - MESSAGE "Re-open the PRO*Tools palette to see the new Prolint Desktop option" - VIEW-AS ALERT-BOX. - END. -END. - - Deleted: trunk/prolint/checkrelease.p =================================================================== --- trunk/prolint/checkrelease.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/checkrelease.p 2006-08-05 10:32:40 UTC (rev 274) @@ -1,159 +0,0 @@ -/* =========================================================================== - file : prolint/checkrelease.p - purpose : check on internet if a new Prolint release is available - --------------------------------------------------------------------------- - - 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. - - 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/dlc-version.i} - -DEFINE VARIABLE RemoteRelease AS INTEGER NO-UNDO. -DEFINE VARIABLE LocalRelease AS INTEGER NO-UNDO. -DEFINE VARIABLE RemoteAvail AS LOGICAL NO-UNDO INITIAL YES. - -IF NOT (OPSYS MATCHES "win*") THEN DO: - MESSAGE "Sorry, need Windows for this feature." - VIEW-AS ALERT-BOX. - RETURN. -END. - -RUN GetRemoteRelease. -IF NOT RemoteAvail THEN - RETURN. - -RUN GetLocalRelease. - -IF RemoteRelease <= LocalRelease THEN - MESSAGE "Your release of Prolint is up to date." - VIEW-AS ALERT-BOX. -ELSE DO: - MESSAGE "You don't have the latest Prolint release:" SKIP - "release " RemoteRelease " is available," - "you are using release " LocalRelease SKIP(2) - "You will now be redirected to the Prolint website..." - VIEW-AS ALERT-BOX. - RUN prolint/openhtml.p("http://www.prolint.org/history.htm":U). -END. - -RETURN. - -/* ================ internal procs ========================== */ - -DEFINE VARIABLE remote_ini AS CHARACTER NO-UNDO. - -PROCEDURE GetRemoteRelease : - - DEFINE VARIABLE i AS INTEGER NO-UNDO. - DEFINE VARIABLE cLine AS CHARACTER NO-UNDO. - - RUN HTTPGet. - - DO i=1 TO NUM-ENTRIES(remote_ini, CHR(13)) : - cLine = TRIM(ENTRY(i, remote_ini, CHR(13)), CHR(10)). - - IF ENTRY(1, cLine, "=") = "prolint" THEN DO: - RemoteRelease = INTEGER(ENTRY(2, cLine, "=")). - RETURN. - END. - END. - -END PROCEDURE. - - -PROCEDURE GetLocalRelease : - - DEFINE VARIABLE cLine AS CHARACTER NO-UNDO. - - FILE-INFO:FILE-NAME = "prolint/help/release.ini". - - INPUT FROM VALUE(file-info:FULL-PATHNAME). - REPEAT: - IMPORT UNFORMATTED cLine NO-ERROR. - IF ENTRY(1, cLine, "=") = "prolint" THEN - LocalRelease = INTEGER(ENTRY(2, cLine, "=")). - END. - INPUT CLOSE. - -END PROCEDURE. - - -/* ============ the HTTP Get part : ============================== */ -/* (mostly copied from knowledgebase article 20011 and simplified) */ - -DEFINE VARIABLE vSocket AS HANDLE NO-UNDO. -DEFINE VARIABLE wloop AS LOGICAL NO-UNDO. -DEFINE VARIABLE vStr AS CHARACTER NO-UNDO. -DEFINE VARIABLE vBuffer AS MEMPTR NO-UNDO. - -PROCEDURE HTTPGet: - - DEFINE VARIABLE wstatus AS LOGICAL NO-UNDO. - - wloop = YES. - CREATE SOCKET vSocket. - vSocket:SET-READ-RESPONSE-PROCEDURE ("readHandler", THIS-PROCEDURE). - wstatus = vSocket:CONNECT("-H www.twiki.org -S 80") - NO-ERROR. - IF wstatus = NO THEN DO: - MESSAGE "Connection to http server is unavailable." - "There is perhaps a firewall or proxy problem.". - DELETE OBJECT vSocket. - RemoteAvail = FALSE. - RETURN. - END. - - vStr = "GET /release.ini HTTP/1.0~n~n~n". - - SET-SIZE(vBuffer) = LENGTH(vStr) + 1. - PUT-STRING(vBuffer,1) = vStr. - vSocket:WRITE(vBuffer, 1, LENGTH(vStr)). - SET-SIZE(vBuffer) = 0. - DO WHILE wloop: - WAIT-FOR READ-RESPONSE OF vSocket. - END. - vSocket:DISCONNECT(). - DELETE OBJECT vSocket. - - /* remove HHTP header */ - remote_ini = SUBSTRING (remote_ini, - INDEX(remote_ini, CHR(13) + CHR(10) + CHR(13) + CHR(10))). - -END PROCEDURE. - - -PROCEDURE readHandler: - DEFINE VARIABLE l AS INTEGER NO-UNDO. - DEFINE VARIABLE b AS MEMPTR NO-UNDO. - - l = vSocket:GET-BYTES-AVAILABLE(). - IF l > 0 THEN DO: - SET-SIZE(b) = l + 1. - vSocket:READ(b, 1, l, 1). - remote_ini = remote_ini + GET-STRING(b,1). - SET-SIZE(b) = 0. - wloop = YES. - END. - ELSE DO: - wloop = NO. - vSocket:DISCONNECT(). - END. -END. - - Copied: trunk/prolint/core/_adetool.i (from rev 250, trunk/prolint/_adetool.i) =================================================================== --- trunk/prolint/core/_adetool.i (rev 0) +++ trunk/prolint/core/_adetool.i 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,53 @@ +/********************************************************************* +* Copyright (C) 2000 by Progress Software Corporation ("PSC"), * +* 14 Oak Park, Bedford, MA 01730, and other contributors as listed * +* below. All Rights Reserved. * +* * +* The Initial Developer of the Original Code is PSC. The Original * +* Code is Progress IDE code released to open source December 1, 2000.* +* * +* The contents of this file are subject to the Possenet Public * +* License Version 1.0 (the "License"); you may not use this file * +* except in compliance with the License. A copy of the License is * +* available as of the date of this notice at * +* http://www.possenet.org/license.html * +* * +* Software distributed under the License is distributed on an "AS IS"* +* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* +* should refer to the License for the specific language governing * +* rights and limitations under the License. * +* * +* Contributors: * +* * +*********************************************************************/ + +/************************************************************************** + Procedure: _adetool.i + + Purpose: Defines an internal procedure called 'ADEPersistent'. This + should be included in any Persistent procedure which you do + not want to be automatically deleted by any ADE tools (e.g. + Editor, UIB). The program _runtool.p will check for the + existence of ADEPersistent in a procedure and will delete + it only if it doesn't exist. + + Syntax : {adecomm/_adetool.i} + + Parameters: None + + Description: + Notes : + Authors: Gerry Seidl + Date : 1/18/95 + + Notes : copied to directory prolint, in order to not have to install + directory adecomm just for proliny + Authors: Jurjen Dijkstra + Date : 8/30/2002 +**************************************************************************/ + +PROCEDURE ADEPersistent: + /* purpose : notify ADE so this persistent procedue will not be deleted */ + RETURN "OK":U. +END. + Copied: trunk/prolint/core/add2protools.p (from rev 250, trunk/prolint/add2protools.p) =================================================================== --- trunk/prolint/core/add2protools.p (rev 0) +++ trunk/prolint/core/add2protools.p 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,55 @@ +/* ==================================================================== + file : prolint/core/add2protools.p + by : Jurjen Dijkstra + purpose : Add Prolint Desktop to PRO*TOOLS palette + ==================================================================== */ + +DEFINE INPUT PARAMETER cAction AS CHARACTER NO-UNDO. +DEFINE OUTPUT PARAMETER lAlreadyInThere AS LOGICAL NO-UNDO INITIAL NO. + +DEFINE VARIABLE ProtoolsDatfile AS CHARACTER NO-UNDO. +DEFINE VARIABLE cProgram AS CHARACTER NO-UNDO. +DEFINE VARIABLE iOrder AS INTEGER NO-UNDO. +DEFINE VARIABLE iMaxOrder AS INTEGER NO-UNDO. +DEFINE VARIABLE hproc AS HANDLE NO-UNDO. + +GET-KEY-VALUE SECTION "ProTools" + KEY "FunctionDefs" VALUE ProtoolsDatfile. +IF ProtoolsDatfile=? THEN RETURN. + +/* read protools.dat */ +INPUT FROM VALUE(ProtoolsDatfile). +REPEAT: + ASSIGN cProgram = "" + iOrder = 0. + IMPORT ^ cProgram ^ ^ ^ iOrder ^. + IF cProgram MATCHES "*prolint*desktop*" THEN + lAlreadyInThere = TRUE. + IF iOrder > iMaxOrder THEN + iMaxOrder = iOrder. +END. +INPUT CLOSE. + +IF cAction = "ADD":U THEN DO: + /* append to protools.dat, if still needed */ + IF NOT lAlreadyInThere THEN DO: + OUTPUT TO VALUE(ProtoolsDatfile) APPEND. + PUT UNFORMATTED + SUBSTITUTE('"Prolint Desktop" "prolint/desktop.w" "prolint/protools.bmp" yes yes &1 no',STRING(iMaxOrder + 10)) + SKIP. + OUTPUT CLOSE. + lAlreadyInThere = TRUE. + + /* try to close protools palette */ + hproc = SESSION:FIRST-PROCEDURE. + DO WHILE (VALID-HANDLE(hProc)) AND NOT (hProc:FILE-NAME MATCHES "*protools*_protool*") : + hproc = hproc:NEXT-SIBLING. + END. + IF (VALID-HANDLE(hProc)) AND (hProc:FILE-NAME MATCHES "*protools*_protool*") THEN + RUN Destroy IN hProc NO-ERROR. + MESSAGE "Re-open the PRO*Tools palette to see the new Prolint Desktop option" + VIEW-AS ALERT-BOX. + END. +END. + + Copied: trunk/prolint/core/checkrelease.p (from rev 262, trunk/prolint/checkrelease.p) =================================================================== --- trunk/prolint/core/checkrelease.p (rev 0) +++ trunk/prolint/core/checkrelease.p 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,159 @@ +/* =========================================================================== + file : prolint/core/checkrelease.p + purpose : check on internet if a new Prolint release is available + --------------------------------------------------------------------------- + + 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. + + 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/core/dlc-version.i} + +DEFINE VARIABLE RemoteRelease AS INTEGER NO-UNDO. +DEFINE VARIABLE LocalRelease AS INTEGER NO-UNDO. +DEFINE VARIABLE RemoteAvail AS LOGICAL NO-UNDO INITIAL YES. + +IF NOT (OPSYS MATCHES "win*") THEN DO: + MESSAGE "Sorry, need Windows for this feature." + VIEW-AS ALERT-BOX. + RETURN. +END. + +RUN GetRemoteRelease. +IF NOT RemoteAvail THEN + RETURN. + +RUN GetLocalRelease. + +IF RemoteRelease <= LocalRelease THEN + MESSAGE "Your release of Prolint is up to date." + VIEW-AS ALERT-BOX. +ELSE DO: + MESSAGE "You don't have the latest Prolint release:" SKIP + "release " RemoteRelease " is available," + "you are using release " LocalRelease SKIP(2) + "You will now be redirected to the Prolint website..." + VIEW-AS ALERT-BOX. + RUN prolint/core/openhtml.p("http://www.prolint.org/history.htm":U). +END. + +RETURN. + +/* ================ internal procs ========================== */ + +DEFINE VARIABLE remote_ini AS CHARACTER NO-UNDO. + +PROCEDURE GetRemoteRelease : + + DEFINE VARIABLE i AS INTEGER NO-UNDO. + DEFINE VARIABLE cLine AS CHARACTER NO-UNDO. + + RUN HTTPGet. + + DO i=1 TO NUM-ENTRIES(remote_ini, CHR(13)) : + cLine = TRIM(ENTRY(i, remote_ini, CHR(13)), CHR(10)). + + IF ENTRY(1, cLine, "=") = "prolint" THEN DO: + RemoteRelease = INTEGER(ENTRY(2, cLine, "=")). + RETURN. + END. + END. + +END PROCEDURE. + + +PROCEDURE GetLocalRelease : + + DEFINE VARIABLE cLine AS CHARACTER NO-UNDO. + + FILE-INFO:FILE-NAME = "prolint/help/release.ini". + + INPUT FROM VALUE(file-info:FULL-PATHNAME). + REPEAT: + IMPORT UNFORMATTED cLine NO-ERROR. + IF ENTRY(1, cLine, "=") = "prolint" THEN + LocalRelease = INTEGER(ENTRY(2, cLine, "=")). + END. + INPUT CLOSE. + +END PROCEDURE. + + +/* ============ the HTTP Get part : ============================== */ +/* (mostly copied from knowledgebase article 20011 and simplified) */ + +DEFINE VARIABLE vSocket AS HANDLE NO-UNDO. +DEFINE VARIABLE wloop AS LOGICAL NO-UNDO. +DEFINE VARIABLE vStr AS CHARACTER NO-UNDO. +DEFINE VARIABLE vBuffer AS MEMPTR NO-UNDO. + +PROCEDURE HTTPGet: + + DEFINE VARIABLE wstatus AS LOGICAL NO-UNDO. + + wloop = YES. + CREATE SOCKET vSocket. + vSocket:SET-READ-RESPONSE-PROCEDURE ("readHandler", THIS-PROCEDURE). + wstatus = vSocket:CONNECT("-H www.twiki.org -S 80") + NO-ERROR. + IF wstatus = NO THEN DO: + MESSAGE "Connection to http server is unavailable." + "There is perhaps a firewall or proxy problem.". + DELETE OBJECT vSocket. + RemoteAvail = FALSE. + RETURN. + END. + + vStr = "GET /release.ini HTTP/1.0~n~n~n". + + SET-SIZE(vBuffer) = LENGTH(vStr) + 1. + PUT-STRING(vBuffer,1) = vStr. + vSocket:WRITE(vBuffer, 1, LENGTH(vStr)). + SET-SIZE(vBuffer) = 0. + DO WHILE wloop: + WAIT-FOR READ-RESPONSE OF vSocket. + END. + vSocket:DISCONNECT(). + DELETE OBJECT vSocket. + + /* remove HHTP header */ + remote_ini = SUBSTRING (remote_ini, + INDEX(remote_ini, CHR(13) + CHR(10) + CHR(13) + CHR(10))). + +END PROCEDURE. + + +PROCEDURE readHandler: + DEFINE VARIABLE l AS INTEGER NO-UNDO. + DEFINE VARIABLE b AS MEMPTR NO-UNDO. + + l = vSocket:GET-BYTES-AVAILABLE(). + IF l > 0 THEN DO: + SET-SIZE(b) = l + 1. + vSocket:READ(b, 1, l, 1). + remote_ini = remote_ini + GET-STRING(b,1). + SET-SIZE(b) = 0. + wloop = YES. + END. + ELSE DO: + wloop = NO. + vSocket:DISCONNECT(). + END. +END. + + Copied: trunk/prolint/core/dlc-version.i (from rev 262, trunk/prolint/dlc-version.i) =================================================================== --- trunk/prolint/core/dlc-version.i (rev 0) +++ trunk/prolint/core/dlc-version.i 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,20 @@ + +/* Which (main) version of Progress are we running? */ +&IF INTEGER(ENTRY(1,PROVERSION,'.'))=8 &THEN + &GLOBAL-DEFINE dlc-version 8 +&ELSEIF INTEGER(ENTRY(1,PROVERSION,'.'))=9 &THEN + &GLOBAL-DEFINE dlc-version 9 +&ELSEIF INTEGER(ENTRY(1,PROVERSION,'.'))=10 &THEN + &GLOBAL-DEFINE dlc-version 10 +&ENDIF + +/* Is this session running in GUI, ChUI or Batch? + This defines which outputhandlers are supported, and some more */ +{&_proparse_ prolint-nowarn(varusage)} +DEFINE VARIABLE SessionWindowSystem AS CHARACTER NO-UNDO. +IF SESSION:BATCH-MODE THEN + SessionWindowSystem="". +ELSE + SessionWindowSystem=SESSION:DISPLAY-TYPE. + + \ No newline at end of file Modified: trunk/prolint/core/filterplugins.p =================================================================== --- trunk/prolint/core/filterplugins.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/core/filterplugins.p 2006-08-05 10:32:40 UTC (rev 274) @@ -22,7 +22,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ------------------------------------------------------------------ */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE INPUT PARAMETER pProfileDirectory AS CHARACTER NO-UNDO. Modified: trunk/prolint/core/lintsuper.p =================================================================== --- trunk/prolint/core/lintsuper.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/core/lintsuper.p 2006-08-05 10:32:40 UTC (rev 274) @@ -22,7 +22,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ------------------------------------------------------------------ */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE INPUT PARAMETER hparser AS HANDLE NO-UNDO. DEFINE INPUT PARAMETER hpFilterPlugins AS HANDLE NO-UNDO. @@ -34,7 +34,7 @@ DEFINE VARIABLE AbortSearch AS LOGICAL NO-UNDO. /* tt_procedure lists every procedure and function in a compilation unit */ - {prolint/ttprocedure.i} + {prolint/core/ttprocedure.i} /* tt_cacheRelativeName makes function RelativeFilename slightly faster */ DEFINE TEMP-TABLE tt_cacheRelativeName NO-UNDO Copied: trunk/prolint/core/openhtml.p (from rev 250, trunk/prolint/openhtml.p) =================================================================== --- trunk/prolint/core/openhtml.p (rev 0) +++ trunk/prolint/core/openhtml.p 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,51 @@ +/* ======================================================================= + file : prolint/core/openhtml.p + purpose : open a HTML file in viewer + platform-independent + ======================================================================= */ + +DEFINE INPUT PARAMETER htmlfile AS CHARACTER NO-UNDO. + + DEFINE VARIABLE parentHwnd AS INTEGER NO-UNDO. + DEFINE VARIABLE cHelpfile AS CHARACTER NO-UNDO. + DEFINE VARIABLE cTopic AS CHARACTER NO-UNDO. + + IF OPSYS="WIN32":U THEN DO: + /* IF SESSION:DISPLAY-TYPE = "GUI":U THEN DO: + /* Windows GUI: try compiled HTML-help. Only because it's cool. */ + FILE-INFO:FILE-NAME = "prolint/prolint.chm". + chelpfile = FILE-INFO:FULL-PATHNAME. + cTopic = SUBSTRING(htmlfile, INDEX(chelpfile, "prolint.chm")). + SYSTEM-HELP chelpfile HELP-TOPIC ( cTopic ). + END. + ELSE */ DO: + /* Windows ChUI: open uncompiled HTML in default internet-browser. + Avoid OS-COMMAND because it does not seem to work very well. */ + IF FOCUS<>? THEN + parentHwnd = FOCUS:HWND. + ELSE + parentHwnd = 0. + RUN ShellExecuteA (parentHwnd, + "open":U, + htmlfile, + "", + "", + 1). + END. + END. + ELSE + /* Linux: open uncompiled HTML in default internet-browser */ + OS-COMMAND NO-WAIT START VALUE(htmlfile). + +RETURN. + +PROCEDURE ShellExecuteA EXTERNAL "shell32.dll":U PERSISTENT: + DEFINE INPUT PARAMETER HWND AS LONG NO-UNDO. + DEFINE INPUT PARAMETER lpOperation AS CHAR NO-UNDO. + DEFINE INPUT PARAMETER lpFile AS CHAR NO-UNDO. + DEFINE INPUT PARAMETER lpParameters AS CHAR NO-UNDO. + DEFINE INPUT PARAMETER lpDirectory AS CHAR NO-UNDO. + DEFINE INPUT PARAMETER nShowCmd AS LONG NO-UNDO. +END. + + Modified: trunk/prolint/core/prolint.p =================================================================== --- trunk/prolint/core/prolint.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/core/prolint.p 2006-08-05 10:32:40 UTC (rev 274) @@ -28,7 +28,7 @@ similar to bugfix 1.0d04 */ &SCOPED-DEFINE ProparseVersion "3.0b":U -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE INPUT PARAMETER pSourcefile AS CHARACTER NO-UNDO. /* a single filename to lint */ DEFINE INPUT PARAMETER hSourcefileList AS HANDLE NO-UNDO. /* handle to a list of filenames to lint */ Copied: trunk/prolint/core/ruleparams.i (from rev 273, trunk/prolint/ruleparams.i) =================================================================== --- trunk/prolint/core/ruleparams.i (rev 0) +++ trunk/prolint/core/ruleparams.i 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,56 @@ +/* ------------------------------------------------------------------ + file : prolint/ruleparams.i + purpose : parameters and standard stuff for rules + ------------------------------------------------------------------ + + 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. + + 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/core/dlc-version.i} + +{&_proparse_ prolint-nowarn(varusage)} +DEFINE INPUT PARAMETER xreffile AS CHARACTER NO-UNDO. /* name of file produced by "COMPILE compilationunit XREF xreffile" */ +{&_proparse_ prolint-nowarn(varusage)} +DEFINE INPUT PARAMETER listingfile AS CHARACTER NO-UNDO. /* name of file produced by "COMPILE compilationunit LISTING listingfile" */ +DEFINE INPUT PARAMETER hLintSuper AS HANDLE NO-UNDO. /* procedure-handle of prolint/core/lintsuper.p */ +DEFINE INPUT PARAMETER hparser AS HANDLE NO-UNDO. /* procedure-handle of proparse/api/proparse.p */ +{&_proparse_ prolint-nowarn(varusage)} +DEFINE INPUT PARAMETER hTopnode AS INTEGER NO-UNDO. /* node-handle of the "Program_root"-node */ +DEFINE INPUT PARAMETER compilationunit AS CHARACTER NO-UNDO. /* name of sourcefile under inspection */ +DEFINE INPUT PARAMETER severity AS INTEGER NO-UNDO. /* 0=informational, 9=critical */ +DEFINE INPUT PARAMETER rule_id AS CHARACTER NO-UNDO. /* identifier of this currently running rule */ +DEFINE INPUT PARAMETER pragma_number AS INTEGER NO-UNDO. /* attribute set on nodes following _proparse prolint-nowarn(rule_id) */ +DEFINE INPUT PARAMETER ignoreAB AS LOGICAL NO-UNDO. /* suppress warnings in AB/UIB generated code? */ +{&_proparse_ prolint-nowarn(varusage)} +DEFINE INPUT PARAMETER hpRulePersist AS HANDLE NO-UNDO. /* handle to persistent "rules/persist/[rule_id].p" */ + +IF LOGICAL(DYNAMIC-FUNCTION("ProlintProperty", "filters.IgnoreAppbuilderstuff"))=FALSE THEN + IgnoreAB = FALSE. + +RUN SetRuleParameters IN hLintSuper(pragma_number, severity, ignoreAB). +THIS-PROCEDURE:ADD-SUPER-PROCEDURE(hLintSuper). + +{proparse/api/proparse.i hparser} + +FUNCTION RelativeFilename RETURNS CHARACTER (pFileName AS CHARACTER) IN hLintSuper. +FUNCTION GetFieldnameFromFieldref RETURNS CHARACTER (INPUT nFieldRef AS INTEGER) IN hLintSuper. + + + + Copied: trunk/prolint/core/ttprocedure.i (from rev 250, trunk/prolint/ttprocedure.i) =================================================================== --- trunk/prolint/core/ttprocedure.i (rev 0) +++ trunk/prolint/core/ttprocedure.i 2006-08-05 10:32:40 UTC (rev 274) @@ -0,0 +1,7 @@ + + DEFINE TEMP-TABLE tt_procedure NO-UNDO + FIELD proctype AS CHARACTER + FIELD procname AS CHARACTER + FIELD startnode AS INTEGER + FIELD prototype AS LOGICAL + INDEX idx_proto AS PRIMARY prototype. Deleted: trunk/prolint/customize.i =================================================================== --- trunk/prolint/customize.i 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/customize.i 2006-08-05 10:32:40 UTC (rev 274) @@ -1,31 +0,0 @@ -/* ================================================================== - file : prolint/customize.i - purpose : include/exclude features - hint : copy this includefile to a location in the propath that is - found before the standard prolint/customize.i, because the - standard prolint/customize.i will be reset by each release - ----------------------------------------------------------------- - - Copyright (C) 2001,2002 Jurjen Dijkstra, Judy Hoffman Green - - 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 - ================================================================== */ - - - /* this include-file is empty. Prolint does not use it anymore. - Instead, we now use prolint/prolint.properties.p to set props at run-time! */ - Modified: trunk/prolint/desktop.w =================================================================== --- trunk/prolint/desktop.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/desktop.w 2006-08-05 10:32:40 UTC (rev 274) @@ -41,7 +41,7 @@ /* *************************** Definitions ************************** */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} /* Parameters Definitions --- */ @@ -489,7 +489,7 @@ FILE-INFO:FILE-NAME = "prolint/help/desktop.htm":U. htmlfile = file-info:FULL-PATHNAME. IF htmlfile<>? THEN - RUN prolint/openhtml.p(htmlfile). + RUN prolint/core/openhtml.p(htmlfile). END. @@ -524,7 +524,7 @@ ON CHOOSE OF Btn_protools IN FRAME DEFAULT-FRAME /* Add to protools */ DO: DEFINE VARIABLE done AS LOGICAL NO-UNDO. - RUN prolint/add2protools.p ("ADD":U, OUTPUT done). + RUN prolint/core/add2protools.p ("ADD":U, OUTPUT done). IF done THEN Btn_protools:VISIBLE = FALSE. END. @@ -586,7 +586,7 @@ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_update C-Win ON CHOOSE OF Btn_update IN FRAME DEFAULT-FRAME /* Check for updates */ DO: - RUN prolint/checkrelease.p. + RUN prolint/core/checkrelease.p. END. /* _UIB-CODE-BLOCK-END */ @@ -620,7 +620,7 @@ RUN enable_UI. DEFINE VARIABLE AlreadyInThere AS LOGICAL NO-UNDO. - RUN prolint/add2protools.p ("CHECK":U, OUTPUT AlreadyInThere). + RUN prolint/core/add2protools.p ("CHECK":U, OUTPUT AlreadyInThere). IF AlreadyInThere THEN Btn_protools:VISIBLE = FALSE. @@ -657,7 +657,7 @@ FILE-INFO:FILE-NAME = "prolint/help/adecomm.htm":U. htmlfile = file-info:FULL-PATHNAME. IF htmlfile<>? THEN - RUN prolint/openhtml.p(htmlfile). + RUN prolint/core/openhtml.p(htmlfile). END. END. Deleted: trunk/prolint/dlc-version.i =================================================================== --- trunk/prolint/dlc-version.i 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/dlc-version.i 2006-08-05 10:32:40 UTC (rev 274) @@ -1,20 +0,0 @@ - -/* Which (main) version of Progress are we running? */ -&IF INTEGER(ENTRY(1,PROVERSION,'.'))=8 &THEN - &GLOBAL-DEFINE dlc-version 8 -&ELSEIF INTEGER(ENTRY(1,PROVERSION,'.'))=9 &THEN - &GLOBAL-DEFINE dlc-version 9 -&ELSEIF INTEGER(ENTRY(1,PROVERSION,'.'))=10 &THEN - &GLOBAL-DEFINE dlc-version 10 -&ENDIF - -/* Is this session running in GUI, ChUI or Batch? - This defines which outputhandlers are supported, and some more */ -{&_proparse_ prolint-nowarn(varusage)} -DEFINE VARIABLE SessionWindowSystem AS CHARACTER NO-UNDO. -IF SESSION:BATCH-MODE THEN - SessionWindowSystem="". -ELSE - SessionWindowSystem=SESSION:DISPLAY-TYPE. - - \ No newline at end of file Modified: trunk/prolint/dnewrule.w =================================================================== --- trunk/prolint/dnewrule.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/dnewrule.w 2006-08-05 10:32:40 UTC (rev 274) @@ -266,7 +266,7 @@ FILE-INFO:FILE-NAME = "prolint/help/newrule.htm":U. {&_proparse_ prolint-nowarn(message)} IF FILE-INFO:FULL-PATHNAME<>? THEN - RUN prolint/openhtml.p (FILE-INFO:FULL-PATHNAME). + RUN prolint/core/openhtml.p (FILE-INFO:FULL-PATHNAME). ELSE MESSAGE "no help found for dnewrule.w":T VIEW-AS ALERT-BOX. Modified: trunk/prolint/filters/filterparams.i =================================================================== --- trunk/prolint/filters/filterparams.i 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/filters/filterparams.i 2006-08-05 10:32:40 UTC (rev 274) @@ -22,7 +22,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ------------------------------------------------------------------ */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE INPUT PARAMETER ProfileDirectory AS CHARACTER NO-UNDO. Modified: trunk/prolint/help/desktop.htxt =================================================================== --- trunk/prolint/help/desktop.htxt 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/help/desktop.htxt 2006-08-05 10:32:40 UTC (rev 274) @@ -32,7 +32,7 @@ This button determines which files are currently open in the AppBuilder, and will lint those files. <p> <h3>button "Check for updates"</h3> -run prolint/checkrelease.p<br> +run prolint/core/checkrelease.p<br> This button does a HTTP GET using Progress V9 sockets, to get the online copy of http://www.prolint.org/release.ini. This is a very small file. <br> It then compares it with file prolint/help/release.ini on your PC. If they are equal, you already have the latest release. Else you will be prompted to browse to http://www.prolint.org to download the newest release. Modified: trunk/prolint/help/newrule.htxt =================================================================== --- trunk/prolint/help/newrule.htxt 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/help/newrule.htxt 2006-08-05 10:32:40 UTC (rev 274) @@ -48,7 +48,7 @@ File "prolint/rules/_template.p is a template for a new rule. You can use it as a starting point, if you don't want to start from scratch. <p> -Each rule needs a couple of input parameters, which are defined by {prolint/ruleparams.i}. <br> +Each rule needs a couple of input parameters, which are defined by {prolint/core/ruleparams.i}. <br> I hope these parameters don't need introduction, although parameter "pragma_number" may be a stranger: <br> Pragmas are used for suppressing warnings. If the sourcefile contains a directive like {&_proparse prolint-nowarn(rule_id)}, then every node in the statement following the directive will get an attribute. The identifier of the attribute is an integer named "pragma_number", the value of the attribute is 1 (to indicate that the attribute is "set"). Modified: trunk/prolint/help/rules/ifindent-details.htxt =================================================================== --- trunk/prolint/help/rules/ifindent-details.htxt 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/help/rules/ifindent-details.htxt 2006-08-05 10:32:40 UTC (rev 274) @@ -127,17 +127,6 @@ Tabs: <br> Prolint treats Tab characters as only one single character, although they should contribute to a larger indent. We can fix that if you want. -<!-- -Tab characters can cause false positives when comparing indents. The rules -treat tabs in the hidden text as equivalent to 8 spaces. To modify -this value to be the most suitable for your environment, copy -the prolint/customize.i file to a location in your PROPATH that -is found before the standard prolint/customize.i, because the -standard prolint/customize.i will be reset by each release. Then, -set the IndentTabSize preprocessor in your copy of customize.i to your tab size. -Even this may not help if the developers of your code have used a -variety of tab widths during their development, but this is unlikely. ---> <p> <b>false positives</b><br> Preprocessing:<br> Modified: trunk/prolint/help/rules/ifindent.htxt =================================================================== --- trunk/prolint/help/rules/ifindent.htxt 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/help/rules/ifindent.htxt 2006-08-05 10:32:40 UTC (rev 274) @@ -12,7 +12,7 @@ <ol> <li>copy prolint/rules/ifindent1.p to prolint/custom/rules/ifindent1.p <li>remove all of the contents from prolint/custom/rules/ifindent1.p but be sure to keep the parameters: include <br> -{prolint/ruleparams.i} +{prolint/core/ruleparams.i} <li>create a file prolint/custom/rules/rules.d similar to prolint/rules/rules.d and make sure it contains a reference to "infindent1". <br>You now have a stub override for ifindent1.p. <li>Repeat steps 1-3 for ifindent2.p Modified: trunk/prolint/lintcfg.w =================================================================== --- trunk/prolint/lintcfg.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/lintcfg.w 2006-08-05 10:32:40 UTC (rev 274) @@ -54,7 +54,7 @@ CREATE WIDGET-POOL. /* *************************** Definitions ************************** */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} /* Parameters Definitions --- */ @@ -363,7 +363,7 @@ FILE-INFO:FILE-NAME = "prolint/help/lintcfg.htm":U. {&_proparse_ prolint-nowarn(message)} IF FILE-INFO:FULL-PATHNAME<>? THEN - RUN prolint/openhtml.p (FILE-INFO:FULL-PATHNAME). + RUN prolint/core/openhtml.p (FILE-INFO:FULL-PATHNAME). ELSE MESSAGE "no help found for lintcfg.w":T VIEW-AS ALERT-BOX. Deleted: trunk/prolint/openhtml.p =================================================================== --- trunk/prolint/openhtml.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/openhtml.p 2006-08-05 10:32:40 UTC (rev 274) @@ -1,51 +0,0 @@ -/* ======================================================================= - file : prolint/openhtml.p - purpose : open a HTML file in viewer - platform-independent - ======================================================================= */ - -DEFINE INPUT PARAMETER htmlfile AS CHARACTER NO-UNDO. - - DEFINE VARIABLE parentHwnd AS INTEGER NO-UNDO. - DEFINE VARIABLE cHelpfile AS CHARACTER NO-UNDO. - DEFINE VARIABLE cTopic AS CHARACTER NO-UNDO. - - IF OPSYS="WIN32":U THEN DO: - /* IF SESSION:DISPLAY-TYPE = "GUI":U THEN DO: - /* Windows GUI: try compiled HTML-help. Only because it's cool. */ - FILE-INFO:FILE-NAME = "prolint/prolint.chm". - chelpfile = FILE-INFO:FULL-PATHNAME. - cTopic = SUBSTRING(htmlfile, INDEX(chelpfile, "prolint.chm")). - SYSTEM-HELP chelpfile HELP-TOPIC ( cTopic ). - END. - ELSE */ DO: - /* Windows ChUI: open uncompiled HTML in default internet-browser. - Avoid OS-COMMAND because it does not seem to work very well. */ - IF FOCUS<>? THEN - parentHwnd = FOCUS:HWND. - ELSE - parentHwnd = 0. - RUN ShellExecuteA (parentHwnd, - "open":U, - htmlfile, - "", - "", - 1). - END. - END. - ELSE - /* Linux: open uncompiled HTML in default internet-browser */ - OS-COMMAND NO-WAIT START VALUE(htmlfile). - -RETURN. - -PROCEDURE ShellExecuteA EXTERNAL "shell32.dll":U PERSISTENT: - DEFINE INPUT PARAMETER HWND AS LONG NO-UNDO. - DEFINE INPUT PARAMETER lpOperation AS CHAR NO-UNDO. - DEFINE INPUT PARAMETER lpFile AS CHAR NO-UNDO. - DEFINE INPUT PARAMETER lpParameters AS CHAR NO-UNDO. - DEFINE INPUT PARAMETER lpDirectory AS CHAR NO-UNDO. - DEFINE INPUT PARAMETER nShowCmd AS LONG NO-UNDO. -END. - - Modified: trunk/prolint/outputhandlers/PRO4mfile.p =================================================================== --- trunk/prolint/outputhandlers/PRO4mfile.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/PRO4mfile.p 2006-08-05 10:32:40 UTC (rev 274) @@ -5,7 +5,7 @@ You can also import easily in Excel by : Jurjen Dijkstra & Yuriy Setrko (PRO4m adjustment) ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE logfile AS CHARACTER NO-UNDO. DEFINE VARIABLE delim AS CHARACTER NO-UNDO. Modified: trunk/prolint/outputhandlers/dlgfilter.w =================================================================== --- trunk/prolint/outputhandlers/dlgfilter.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/dlgfilter.w 2006-08-05 10:32:40 UTC (rev 274) @@ -39,7 +39,7 @@ ----------------------------------------------------------------------- */ /* *************************** Definitions ************************** */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} /* Parameters Definitions --- */ Modified: trunk/prolint/outputhandlers/ed4win.p =================================================================== --- trunk/prolint/outputhandlers/ed4win.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/ed4win.p 2006-08-05 10:32:40 UTC (rev 274) @@ -24,7 +24,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} SUBSCRIBE TO "Prolint_InitializeResults" ANYWHERE. SUBSCRIBE TO "Prolint_AddResult" ANYWHERE. Modified: trunk/prolint/outputhandlers/logexcel.p =================================================================== --- trunk/prolint/outputhandlers/logexcel.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/logexcel.p 2006-08-05 10:32:40 UTC (rev 274) @@ -22,7 +22,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ====================================================================== */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE logfile AS CHAR NO-UNDO INITIAL "prolint.xml":U. DEFINE VARIABLE chExcel AS COM-HANDLE. Modified: trunk/prolint/outputhandlers/logfile.p =================================================================== --- trunk/prolint/outputhandlers/logfile.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/logfile.p 2006-08-05 10:32:40 UTC (rev 274) @@ -22,7 +22,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE logfile AS CHAR NO-UNDO. Modified: trunk/prolint/outputhandlers/logwin.w =================================================================== --- trunk/prolint/outputhandlers/logwin.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/logwin.w 2006-08-05 10:32:40 UTC (rev 274) @@ -73,7 +73,7 @@ /* Local Variable Definitions --- */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE TEMP-TABLE tt_lint NO-UNDO FIELD ttDescription AS CHAR LABEL "description":T FORMAT "x(150)":U @@ -116,7 +116,7 @@ DEFINE VARIABLE isLocked AS INTEGER NO-UNDO INITIAL 0. /* make this window ADEPersistent */ -{prolint/_adetool.i} +{prolint/core/_adetool.i} {prolint/outputhandlers/logwin.i} &GLOBAL-DEFINE WHERE_TT WHERE tt_lint.ttDescription MATCHES fltDesc ~ @@ -2260,7 +2260,7 @@ {&_proparse_ prolint-nowarn(message)} IF fullpath<>? THEN - RUN prolint/openhtml.p(fullpath). + RUN prolint/core/openhtml.p(fullpath). ELSE MESSAGE "no help found for ":U pContext VIEW-AS ALERT-BOX. Modified: trunk/prolint/outputhandlers/logwin8.w =================================================================== --- trunk/prolint/outputhandlers/logwin8.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/logwin8.w 2006-08-05 10:32:40 UTC (rev 274) @@ -45,7 +45,7 @@ /* Local Variable Definitions --- */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE TEMP-TABLE tt_lint NO-UNDO FIELD ttDescription AS CHAR LABEL "description":T FORMAT "x(150)":U @@ -99,7 +99,7 @@ DEFINE VARIABLE cfgExtEditorParameters AS CHARACTER NO-UNDO. /* make this window ADEPersistent */ -{prolint/_adetool.i} +{prolint/core/_adetool.i} /* OS-COMMAND, but better: */ @@ -1278,7 +1278,7 @@ {&_proparse_ prolint-nowarn(message)} IF fullpath<>? THEN - RUN prolint/openhtml.p(fullpath). + RUN prolint/core/openhtml.p(fullpath). ELSE MESSAGE "no help found for ":U pContext VIEW-AS ALERT-BOX. Modified: trunk/prolint/outputhandlers/prolintdb.p =================================================================== --- trunk/prolint/outputhandlers/prolintdb.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/prolintdb.p 2006-08-05 10:32:40 UTC (rev 274) @@ -23,7 +23,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE cRuleList AS CHARACTER NO-UNDO. DEFINE VARIABLE dToday AS DATE NO-UNDO. Modified: trunk/prolint/outputhandlers/regrlog.p =================================================================== --- trunk/prolint/outputhandlers/regrlog.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/regrlog.p 2006-08-05 10:32:40 UTC (rev 274) @@ -23,7 +23,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE tempdir AS CHAR NO-UNDO. DEFINE VARIABLE logfile AS CHAR NO-UNDO. Modified: trunk/prolint/outputhandlers/showhtml.p =================================================================== --- trunk/prolint/outputhandlers/showhtml.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/showhtml.p 2006-08-05 10:32:40 UTC (rev 274) @@ -22,7 +22,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE logfile AS CHAR NO-UNDO. DEFINE VARIABLE oddrow AS LOGICAL NO-UNDO. @@ -155,7 +155,7 @@ FILE-INFO:FILE-NAME = logfile. fullname = FILE-INFO:FULL-PATHNAME. IF fullname NE ? THEN - RUN prolint/openhtml.p (fullname). + RUN prolint/core/openhtml.p (fullname). /* This procedure will not be invoked again, so it can exit */ DELETE PROCEDURE THIS-PROCEDURE. Modified: trunk/prolint/outputhandlers/tabfile.p =================================================================== --- trunk/prolint/outputhandlers/tabfile.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/outputhandlers/tabfile.p 2006-08-05 10:32:40 UTC (rev 274) @@ -24,7 +24,7 @@ License along with Prolint; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} DEFINE VARIABLE logfile AS CHARACTER NO-UNDO. DEFINE VARIABLE delim AS CHARACTER NO-UNDO. Modified: trunk/prolint/prolintdb/dirstats.w =================================================================== --- trunk/prolint/prolintdb/dirstats.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/prolintdb/dirstats.w 2006-08-05 10:32:40 UTC (rev 274) @@ -44,7 +44,7 @@ /* Parameters Definitions --- */ /* Local Variable Definitions --- */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME Modified: trunk/prolint/prolintdb/incstats.w =================================================================== --- trunk/prolint/prolintdb/incstats.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/prolintdb/incstats.w 2006-08-05 10:32:40 UTC (rev 274) @@ -41,7 +41,7 @@ /* *************************** Definitions ************************** */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} /* Parameters Definitions --- */ Modified: trunk/prolint/prolintdb/rulestats.w =================================================================== --- trunk/prolint/prolintdb/rulestats.w 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/prolintdb/rulestats.w 2006-08-05 10:32:40 UTC (rev 274) @@ -44,7 +44,7 @@ /* Parameters Definitions --- */ /* Local Variable Definitions --- */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME Modified: trunk/prolint/prolintdb/runffq.p =================================================================== --- trunk/prolint/prolintdb/runffq.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/prolintdb/runffq.p 2006-08-05 10:32:40 UTC (rev 274) @@ -26,7 +26,7 @@ ======================================================================================= */ - {prolint/dlc-version.i} + {prolint/core/dlc-version.i} DEFINE VARIABLE LogwinRunning AS LOGICAL NO-UNDO. DEFINE VARIABLE hw AS HANDLE NO-UNDO. Modified: trunk/prolint/rtb/checkin-handler.p =================================================================== --- trunk/prolint/rtb/checkin-handler.p 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/rtb/checkin-handler.p 2006-08-05 10:32:40 UTC (rev 274) @@ -25,7 +25,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ======================================================================================= */ -{prolint/dlc-version.i} +{prolint/core/dlc-version.i} {rtb/g/rtbglobl.i} Deleted: trunk/prolint/ruleparams.i =================================================================== --- trunk/prolint/ruleparams.i 2006-08-05 09:25:43 UTC (rev 273) +++ trunk/prolint/ruleparams.i 2006-08-05 10:32:40 UTC (rev 274) @@ -1,56 +0,0 @@ -/* ------------------------------------------------------------------ - file : prolint/ruleparams.i - purpose : parameters and standard stuff for rules - ------------------------------------------------------------------ - - 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. - - 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/dlc-version.i} - -{&_proparse_ prolint-nowarn(varusage)} -DEFINE INPUT PARAMETER xreffile AS CHARACTER NO-UNDO. /* name of file produced by "COMPILE compilationunit XREF xreffile" */ -{&_proparse_ prolint-nowarn(varusage)} -DEFINE INPUT PARAMETER listingfile AS CHARACTER NO-UNDO. /* name of file produced by "COMPILE compilationunit LISTING listingfile" */ -DEFINE INPUT PARAMETER hLintSuper AS HANDLE NO-UNDO. /* procedure-handle of prolint/core/lintsuper.p */ -DEFINE INPUT PARAMETER hparser AS HANDLE NO-UNDO. /* procedure-handle of proparse/api/proparse.p */ -{&_proparse_ prolint-nowarn(varusage)} -DEFINE INPUT PARAMETER hTopnode AS INTEGER NO-UNDO. /* node-handle of the "Program_root"-node */ -DEFINE INPUT PARAMETER compilationunit AS CHARACTER NO-UNDO. /* name of sour... [truncated message content] |
