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

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

Browse Source 
* src/common/hbverdsp.c
    ! fix to previous commit

  * contrib/xhb/trpc.prg
    * formatting

  * src/rtl/achoice.prg
    * modified in-source bug example to use hb_keyPut()
This commit is contained in:
Viktor Szakats
2012-10-07 20:58:29 +00:00
parent bc745c3b75
commit 9d167e87a4
4 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-10-07 22:56 UTC+0200 Viktor Szakats (harbour syenar.net)
* src/common/hbverdsp.c
! fix to previous commit
* contrib/xhb/trpc.prg
* formatting
* src/rtl/achoice.prg
* modified in-source bug example to use hb_keyPut()
2012-10-07 22:49 UTC+0200 Viktor Szakats (vszakats syenar.net)
* contrib/hbhttpd/readme.txt
* doc/dirstruc.txt

14
harbour/contrib/xhb/trpc.prg
View File

@@ -240,9 +240,9 @@ METHOD New( cFname, cSerial, nAuthLevel, oExec, oMeth ) CLASS tRPCFunction
QUIT
ENDIF
::cName := aFuncDef[2]
cParam := aFuncDef[3]
::cReturn := iif( Len( aFuncDef ) == 4, aFuncDef[4], aFuncDef[5] )
::cName := aFuncDef[ 2 ]
cParam := aFuncDef[ 3 ]
::cReturn := iif( Len( aFuncDef ) == 4, aFuncDef[ 4 ], aFuncDef[ 5 ] )
// analyze parameter list
IF Len( RTrim( cParam ) ) > 0
@@ -356,7 +356,7 @@ METHOD Describe() CLASS tRPCFunction
IF Len( ::aParameters ) > 0
FOR nCount := 1 TO Len( ::aParameters ) - 1
cRet += ::aParameters[nCount] + ","
cRet += ::aParameters[ nCount ] + ","
NEXT
cRet += ::aParameters[ -1 ]
ENDIF
@@ -559,7 +559,7 @@ METHOD RUN() CLASS tRPCServeCon
IF nSafeStatus == RPCS_STATUS_LOGGED
aData := ::RecvFunction( .F. , .F. )
IF aData != NIL
lBreak := ! ::FuncCall( aData[2] )
lBreak := ! ::FuncCall( aData[ 2 ] )
ELSE
lBreak := .T.
ENDIF
@@ -575,7 +575,7 @@ METHOD RUN() CLASS tRPCServeCon
IF nSafeStatus == RPCS_STATUS_LOGGED
aData := ::RecvFunction( .T. , .F. )
IF aData != NIL
lBreak := ! ::FuncCall( aData[2] )
lBreak := ! ::FuncCall( aData[ 2 ] )
ELSE
lBreak := .T.
ENDIF
@@ -754,7 +754,7 @@ METHOD LaunchChallenge( cUserid, cPassword ) CLASS tRPCServeCon
/* Let's generate the sequence */
cChallenge := Space( 255 )
FOR nCount := 1 TO 255
cChallenge[ nCount ] := Chr( HB_Random(0,255 ) )
cChallenge[ nCount ] := Chr( HB_Random(0, 255 ) )
NEXT
::nChallengeCRC := HB_Checksum( cChallenge )

4
harbour/src/common/hbverdsp.c
View File

@@ -92,11 +92,11 @@ void hb_verBuildInfo( void )
}
hb_conOutErr( "ChangeLog last entry: ", 0 );
hb_conOutErr( hb_verSvnLastEntry(), 0 );
hb_conOutErr( hb_verChangeLogLastEntry(), 0 );
hb_conOutErr( hb_conNewLine(), 0 );
hb_conOutErr( "ChangeLog ID: ", 0 );
hb_conOutErr( hb_verSvnChangeLogID(), 0 );
hb_conOutErr( hb_verChangeLogID(), 0 );
hb_conOutErr( hb_conNewLine(), 0 );
{

2
harbour/src/rtl/achoice.prg
View File

@@ -15,7 +15,7 @@
---
#include "inkey.ch"
CLS
KEYBOARD Chr( K_DOWN ) + Chr( K_UP ) // bogus '2' appears out of the area here.
hb_keyPut( { K_DOWN, K_UP } ) // bogus '2' appears out of the area here.
AChoice( 0, 0, 0, 0, { "1", "2" } )
---
*/