romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 658 - Indicación del número de línea real y contenido de la misma

Browse Source
This commit is contained in:
fdbozzo
2015-03-02 01:18:44 +01:00
parent 657de7c568
commit 43cf365c78
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
foxbin2prg.prg
View File

@@ -10781,8 +10781,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
PROCEDURE set_UserValue
LPARAMETERS toEx as Exception
LOCAL lcMethods, I, lcLine, laCodeLines(1), lcMethod, lcLocation
LOCAL lcMethods, I, lcLine, laCodeLines(1), lcMethod, lcLocation, lnErrorLine
STORE '' TO lcMethods, lcLine, laCodeLines, lcMethod, lcLocation
STORE 0 TO lnErrorLine, I
toEx.UserValue = toEx.UserValue + CR_LF
@@ -10805,10 +10806,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
DO CASE
CASE LEFT(lcLine, 10) == 'PROCEDURE '
lcMethod = ALLTRIM( SUBSTR( lcLine, 11) )
lnErrorLine = THIS.n_Methods_LineNo - I
EXIT
CASE LEFT(lcLine, 9) == 'FUNCTION '
lcMethod = ALLTRIM( SUBSTR( lcLine, 10) )
lnErrorLine = THIS.n_Methods_LineNo - I
EXIT
ENDCASE
@@ -10821,7 +10824,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
lcLocation = 'Method: ' + lcLocation + '.' + lcMethod
ENDIF
IF lnErrorLine > 0 THEN
lcLocation = lcLocation + ', Line ' + TRANSFORM(lnErrorLine)
ENDIF
toEx.UserValue = toEx.UserValue + lcLocation + CR_LF
toEx.UserValue = toEx.UserValue + '> ' + laCodeLines(THIS.n_Methods_LineNo) + CR_LF
ENDIF
toEx.UserValue = toEx.UserValue + 'Recno: ' + TRANSFORM(RECNO()) + CR_LF