[Prolint-cvs] SF.net SVN: prolint: [277] trunk/prolint
Brought to you by:
johnallengreen,
jurjen
Menu
▾
▴
[Prolint-cvs] SF.net SVN: prolint: [277] trunk/prolint
|
From: <ju...@us...> - 2006-08-05 18:23:50
|
Revision: 277 Author: jurjen Date: 2006-08-05 11:23:35 -0700 (Sat, 05 Aug 2006) ViewCVS: http://svn.sourceforge.net/prolint/?rev=277&view=rev Log Message: ----------- renamed the mvo-* procedures, so the "mvo-" prefix is now gone. Modified Paths: -------------- trunk/prolint/desktop.w Added Paths: ----------- trunk/prolint/launch/lintCurrent.p trunk/prolint/launch/lintFileList.p trunk/prolint/launch/lintOpen.p Removed Paths: ------------- trunk/prolint/launch/mvo-lintCurrent.p trunk/prolint/launch/mvo-lintFileList.p trunk/prolint/launch/mvo-lintOpen.p Modified: trunk/prolint/desktop.w =================================================================== --- trunk/prolint/desktop.w 2006-08-05 17:58:17 UTC (rev 276) +++ trunk/prolint/desktop.w 2006-08-05 18:23:35 UTC (rev 277) @@ -425,7 +425,7 @@ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_current C-Win ON CHOOSE OF Btn_current IN FRAME DEFAULT-FRAME /* Lint Active AB */ DO: - RUN prolint/launch/mvo-lintcurrent.p. + RUN prolint/launch/lintcurrent.p. END. /* _UIB-CODE-BLOCK-END */ @@ -512,7 +512,7 @@ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Open C-Win ON CHOOSE OF Btn_Open IN FRAME DEFAULT-FRAME /* Lint Open AB */ DO: - RUN prolint/launch/mvo-lintopen.p. + RUN prolint/launch/lintopen.p. END. /* _UIB-CODE-BLOCK-END */ Copied: trunk/prolint/launch/lintCurrent.p (from rev 276, trunk/prolint/launch/mvo-lintCurrent.p) =================================================================== --- trunk/prolint/launch/lintCurrent.p (rev 0) +++ trunk/prolint/launch/lintCurrent.p 2006-08-05 18:23:35 UTC (rev 277) @@ -0,0 +1,10 @@ +/* ------------------------------------------------------------- + file : prolint/launch/lintCurrent.p + by : Martijn Voncken + purpose : Lints current file in UIB. (no procedure editor files) + ------------------------------------------------------------- */ +DEF VAR cInfo AS CHAR NO-UNDO. + +RUN adeuib/_uibinfo.p(?,?,"FILE-NAME",output cInfo). + +RUN prolint/launch/lintfileList.p(cInfo). Copied: trunk/prolint/launch/lintFileList.p (from rev 276, trunk/prolint/launch/mvo-lintFileList.p) =================================================================== --- trunk/prolint/launch/lintFileList.p (rev 0) +++ trunk/prolint/launch/lintFileList.p 2006-08-05 18:23:35 UTC (rev 277) @@ -0,0 +1,66 @@ +/* ------------------------------------------------------------- + file : prolint/launch/lintFileList.p + by : Martijn Voncken + : took start.p by Jurjen Dijkstra and modified it for string-input + purpose : Prolint pcFileList(,-erperated char) and launch prolint.p. + ------------------------------------------------------------- */ + +DEFINE INPUT PARAMETER pcFileList AS CHAR NO-UNDO. + +DEFINE VARIABLE profile AS CHARACTER NO-UNDO. +DEFINE VARIABLE ClearOutput AS LOGICAL NO-UNDO. +DEFINE VARIABLE iFile AS INTEGER NO-UNDO. +DEFINE VARIABLE mruprofile AS CHARACTER NO-UNDO. + +IF pcFileList = "?":U OR pcFileList = "" OR pcFileList = ? THEN DO: + MESSAGE "No files to prolint":T VIEW-AS ALERT-BOX. + RETURN. +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. + IF mruprofile <> ? THEN profile = mruprofile. +END. + +iFile = 0. /*!*/ + +RUN prolint/core/prolint.p ("", + THIS-PROCEDURE:HANDLE, + profile, + ClearOutput). + +PROCEDURE GetFirstLintSource : + /* purpose: prolint.p calls this ip to ask for the first sourcefile to analyze. + return ? if you don't have any sourcefiles. */ + DEFINE OUTPUT PARAMETER pSourceFile AS CHARACTER NO-UNDO. + + /*next == first*/ + RUN GetNextLintSource(OUTPUT pSourceFile). + +END PROCEDURE. + + +PROCEDURE GetNextLintSource : + /* purpose: prolint.p calls this ip to ask for the next sourcefile to analyze. + return ? if you don't have any sourcefiles. */ + DEFINE OUTPUT PARAMETER pSourceFile AS CHARACTER NO-UNDO INITIAL ?. + + iFile = iFile + 1. + IF NUM-ENTRIES(pcFileList) >= iFile THEN DO: + pSourceFile = SEARCH(entry(iFile,pcFileList)). + + IF pSourceFile = ? THEN /*invalid entry..*/ + RUN GetNextLintSource(OUTPUT pSourceFile). + END. + ELSE pSourceFile = ?. + +END PROCEDURE. + + Copied: trunk/prolint/launch/lintOpen.p (from rev 276, trunk/prolint/launch/mvo-lintOpen.p) =================================================================== --- trunk/prolint/launch/lintOpen.p (rev 0) +++ trunk/prolint/launch/lintOpen.p 2006-08-05 18:23:35 UTC (rev 277) @@ -0,0 +1,11 @@ +/* ------------------------------------------------------------- + file : prolint/launch/lintCurrent.p + by : Martijn Voncken + purpose : Lints all open files in UIB. (no procedure editor files) + ------------------------------------------------------------- */ + +DEF VAR cInfo AS CHAR NO-UNDO. + +RUN adeuib/_uibinfo.p(?,"SESSION","PROCEDURES RETURN NAME",output cInfo). + +RUN prolint/launch/lintfileList.p(cInfo). Deleted: trunk/prolint/launch/mvo-lintCurrent.p =================================================================== --- trunk/prolint/launch/mvo-lintCurrent.p 2006-08-05 17:58:17 UTC (rev 276) +++ trunk/prolint/launch/mvo-lintCurrent.p 2006-08-05 18:23:35 UTC (rev 277) @@ -1,10 +0,0 @@ -/* ------------------------------------------------------------- - file : prolint/launch/mvo-lintCurrent.p - by : Martijn Voncken - purpose : Lints current file in UIB. (no procedure editor files) - ------------------------------------------------------------- */ -DEF VAR cInfo AS CHAR NO-UNDO. - -RUN adeuib/_uibinfo.p(?,?,"FILE-NAME",output cInfo). - -RUN prolint/launch/mvo-lintfileList.p(cInfo). Deleted: trunk/prolint/launch/mvo-lintFileList.p =================================================================== --- trunk/prolint/launch/mvo-lintFileList.p 2006-08-05 17:58:17 UTC (rev 276) +++ trunk/prolint/launch/mvo-lintFileList.p 2006-08-05 18:23:35 UTC (rev 277) @@ -1,66 +0,0 @@ -/* ------------------------------------------------------------- - file : prolint/launch/mvo-lintFileList.p - by : Martijn Voncken - : took start.p by Jurjen Dijkstra and modified it for string-input - purpose : Prolint pcFileList(,-erperated char) and launch prolint.p. - ------------------------------------------------------------- */ - -DEFINE INPUT PARAMETER pcFileList AS CHAR NO-UNDO. - -DEFINE VARIABLE profile AS CHARACTER NO-UNDO. -DEFINE VARIABLE ClearOutput AS LOGICAL NO-UNDO. -DEFINE VARIABLE iFile AS INTEGER NO-UNDO. -DEFINE VARIABLE mruprofile AS CHARACTER NO-UNDO. - -IF pcFileList = "?":U OR pcFileList = "" OR pcFileList = ? THEN DO: - MESSAGE "No files to prolint":T VIEW-AS ALERT-BOX. - RETURN. -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. - IF mruprofile <> ? THEN profile = mruprofile. -END. - -iFile = 0. /*!*/ - -RUN prolint/core/prolint.p ("", - THIS-PROCEDURE:HANDLE, - profile, - ClearOutput). - -PROCEDURE GetFirstLintSource : - /* purpose: prolint.p calls this ip to ask for the first sourcefile to analyze. - return ? if you don't have any sourcefiles. */ - DEFINE OUTPUT PARAMETER pSourceFile AS CHARACTER NO-UNDO. - - /*next == first*/ - RUN GetNextLintSource(OUTPUT pSourceFile). - -END PROCEDURE. - - -PROCEDURE GetNextLintSource : - /* purpose: prolint.p calls this ip to ask for the next sourcefile to analyze. - return ? if you don't have any sourcefiles. */ - DEFINE OUTPUT PARAMETER pSourceFile AS CHARACTER NO-UNDO INITIAL ?. - - iFile = iFile + 1. - IF NUM-ENTRIES(pcFileList) >= iFile THEN DO: - pSourceFile = SEARCH(entry(iFile,pcFileList)). - - IF pSourceFile = ? THEN /*invalid entry..*/ - RUN GetNextLintSource(OUTPUT pSourceFile). - END. - ELSE pSourceFile = ?. - -END PROCEDURE. - - Deleted: trunk/prolint/launch/mvo-lintOpen.p =================================================================== --- trunk/prolint/launch/mvo-lintOpen.p 2006-08-05 17:58:17 UTC (rev 276) +++ trunk/prolint/launch/mvo-lintOpen.p 2006-08-05 18:23:35 UTC (rev 277) @@ -1,11 +0,0 @@ -/* ------------------------------------------------------------- - file : prolint/launch/mvo-lintCurrent.p - by : Martijn Voncken - purpose : Lints all open files in UIB. (no procedure editor files) - ------------------------------------------------------------- */ - -DEF VAR cInfo AS CHAR NO-UNDO. - -RUN adeuib/_uibinfo.p(?,"SESSION","PROCEDURES RETURN NAME",output cInfo). - -RUN prolint/launch/mvo-lintfileList.p(cInfo). This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
