fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

! Corrected bug with nested #if...

Browse Source 
! Corrected handling of EOF.
     /* 2 minor bugs in PP of fwh/samples/fwbrow still pending. */
This commit is contained in:
Ron Pinkas
2000-10-19 17:34:50 +00:00
parent 37b5b14894
commit b60bc91148
1 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
harbour/contrib/dot/pp.prg
View File

@@ -601,7 +601,10 @@ FUNCTION ProcessFile( sSource, sSwitch )
FClose( hSource )
sLine += SubStr( sBuffer, nPosition )
//? sSource, nPosition, nMaxPos, nLen, SubStr( sLine, nPosition, 40 )
//WAIT
sLine += SubStr( sBuffer, nPosition, Max( 0, ( nMaxPos + 2 ) - nPosition ) )
sLine := StrTran( sLine, Chr(09), ' ' )
sLine := RTrim( sLine )
sLine := StrTran( sLine, Chr(10), '' )
@@ -706,7 +709,28 @@ FUNCTION ProcessLine( sLine, aDefined, aTranslated, aCommanded, nLine, sSource )
LOOP
ENDIF
IF sDirective == "ELSE"
IF sDirective == Left( "IFDEF", nLen ) .AND. nIfDef > 0 .AND. ! abIfDef[ nIfDef ]
nIfDef++
aSize( abIfDef, nIfDef )
abIfDef[ nIfDef ] := .F.
sLine := ''
LOOP
ELSEIF sDirective == Left( "IFNDEF", nLen ) .AND. nIfDef > 0 .AND. ! abIfDef[ nIfDef ]
nIfDef++
aSize( abIfDef, nIfDef )
abIfDef[ nIfDef ] := .F.
sLine := ''
LOOP
ELSEIF sDirective == "ELSE" .AND. nIfDef > 0 .AND. ! abIfDef[ nIfDef ]
sLine := ''
LOOP
ELSEIF sDirective == "ELSE"
abIfDef[ nIfDef ] := ! abIfDef[ nIfDef ]
sLine := ''