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

2012-10-08 22:09 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/gtwvg/activex.prg
  * contrib/gtwvg/class.prg
  * contrib/gtwvg/crt.prg
  * contrib/gtwvg/menubar.prg
  * contrib/gtwvg/paint.prg
  * contrib/gtwvg/parthdlr.prg
  * contrib/gtwvg/pushbut.prg
  * contrib/gtwvg/statbar.prg
  * contrib/gtwvg/static.prg
  * contrib/gtwvg/syswnd.prg
  * contrib/gtwvg/tabpage.prg
  * contrib/gtwvg/toolbar.prg
  * contrib/gtwvg/wnd.prg
  * extras/httpsrv/cgifunc.prg
  * extras/httpsrv/cookie.prg
  * extras/httpsrv/session.prg
  * extras/httpsrv/uhttpd.prg
    * use __defaultNIL() instead of DEFAULT TO
    * deleted common.ch from all files

  * contrib/hbmisc/numtxtru.prg
    % minor optimization

  * contrib/hbmisc/tests/numtxtru.prg
    * avoid using a .dbf as output, instead use STDOUT
    * added lines to make it work using hbrun
    * switched output and HVM to UTF-8, so it can be
      displayed on more systems (both as stdalone exe 
      and as hbrun script)
This commit is contained in:
Viktor Szakats
2012-10-08 20:14:46 +00:00
parent 6ba85d71df
commit 1f08777480
35 changed files with 268 additions and 264 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -85,7 +85,6 @@
#define FIXED_THREADS // This force application to use fixed number of running threads and no service threads
#include "fileio.ch"
#include "common.ch"
#include "inkey.ch"
#include "error.ch"
#include "hbmemory.ch"
@@ -1639,8 +1638,9 @@ PROCEDURE uhttpd_SetStatusCode(nStatusCode)
PROCEDURE uhttpd_SetHeader( cType, cValue )
//LOCAL nI
//DEFAULT lReplace TO .T. // Needed from SetCookie()
// LOCAL nI
// // Needed from SetCookie()
// __defaultNIL( @lReplace, .T. )
hb_HSet( _HTTP_RESPONSE, cType, cValue )
@@ -1658,7 +1658,7 @@ PROCEDURE uhttpd_SetHeader( cType, cValue )
FUNCTION uhttpd_GetHeader( cType )
RETURN uhttpd_HGetValue( _HTTP_RESPONSE, cType )
/*
DEFAULT nPos TO 1
__defaultNIL( @nPos, 1 )
nPos := hb_HPos( hHash, cKey ))
IF ( nPos := ASCAN( t_aHeader, {| x | UPPER( x[ 1 ] ) == UPPER( cType ) }, nPos ) ) > 0
@@ -1802,7 +1802,7 @@ FUNCTION uhttpd_split( cSeparator, cString, nMax )
LOCAL aRet := {}, nI
LOCAL nIter := 0
DEFAULT nMax TO 0
__defaultNIL( @nMax, 0 )
DO WHILE ( nI := AT( cSeparator, cString ) ) > 0
AADD( aRet, LEFT( cString, nI - 1 ) )