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