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

2012-11-21 01:07 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* utils/hbmk2/hbmk2.prg
    + implemented theoretically correct solution to extract
      linker output _while_ displaying it. It means that
      missing function hinting feature doesn't require
      a second pass to the linker anymore.
    ; Please test on all platforms.
    ; For those two people interested, it will create output like this:
      ---
      hbmk2: Hint: Add option 'hbct.hbc' for missing function(s): CharMirr()
      hbmk2: Hint: Add option 'hbusb.hbc' for missing function(s): libusb_exit()
      hbmk2: Hint: Add option 'hbsms.hbc' for missing function(s): smsctx_PIN()
      hbmk2: Error: Referenced, missing, but unknown function(s): NOTANYWHERE()
      ---

  * extras/httpsrv/uhttpd.prg
    ! fixed some code for unicode
    % fixed to not call FCLOSE() on a HB_PROCESSOPEN() handle
    * use F_ERROR instead of -1 literal
    * commented code converted to #if 0/#endif guarded one

  * src/rtl/hbprocfn.c
    * formatting

  * tests/fixcase.hb
    * new extension exceptions
This commit is contained in:
Viktor Szakats
2012-11-21 00:16:52 +00:00
parent ba3ed238e1
commit 9c50617dbe
5 changed files with 74 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harbour/extras/httpsrv/uhttpd.prg
View File

@@ -1517,7 +1517,7 @@ STATIC FUNCTION CGIExec( cProc, /*@*/ cOutPut )
// hb_ToOutDebug( "New 2 Path: %s\n\r", hb_CurDrive() + hb_osDriveSeparator() + hb_ps() + CurDir() )
IF hProc > -1
IF hProc != F_ERROR
// hb_ToOutDebug( "Process handler: %s\n\r", hProc )
// hb_ToOutDebug( "Error: %s\n\r", FError() )
@@ -1536,21 +1536,21 @@ STATIC FUNCTION CGIExec( cProc, /*@*/ cOutPut )
// hb_ToOutDebug( "Reading output\n\r" )
cData := Space( 1000 )
cOutPut := ""
DO WHILE ( nLen := FRead( hOut, @cData, Len( cData ) ) ) > 0
cOutPut += SubStr( cData, 1, nLen )
DO WHILE ( nLen := FRead( hOut, @cData, hb_BLen( cData ) ) ) > 0
cOutPut += hb_BLeft( cData, nLen )
cData := Space( 1000 )
ENDDO
/*
#if 0
cData := Space( 1000 )
cError := ""
DO WHILE ( nLen := FRead( hErr, @cData, Len( cData ) ) ) > 0
cError += SubStr( cData, 1, nLen )
DO WHILE ( nLen := FRead( hErr, @cData, hb_BLen( cData ) ) ) > 0
cError += hb_BLeft( cData, nLen )
cData := Space( 1000 )
ENDDO
cOutPut += cError
*/
#endif
// hb_ToOutDebug( "Received: cOutPut = %s\n\r", cOutPut )
@@ -1570,7 +1570,6 @@ STATIC FUNCTION CGIExec( cProc, /*@*/ cOutPut )
nErrorLevel := nKillExit
ENDIF
FClose( hProc )
FClose( hIn )
FClose( hOut )
// FClose( hErr )