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

2012-02-12 16:32 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbhttpd/core.prg
    * explicitly set HKEEPORDER to not depend on default setting

  * contrib/xhb/hbdll.ch
    % replaced huge CASE statment with one-liner. also fixing 
      typo in CASE statement. UNTESTED.
This commit is contained in:
Viktor Szakats
2012-02-12 15:34:33 +00:00
parent 9f59d4f4d0
commit af22f68276
3 changed files with 10 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-02-12 16:32 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbhttpd/core.prg
* explicitly set HKEEPORDER to not depend on default setting
* contrib/xhb/hbdll.ch
% replaced huge CASE statment with one-liner. also fixing
typo in CASE statement. UNTESTED.
2012-02-09 13:49 UTC+0100 Viktor Szakats (harbour syenar.net)
* src/rtl/hbjson.c
+ HB_JSONDECODE(): retain physical order of value pair in returned hash

1
harbour/contrib/hbhttpd/core.prg
View File

@@ -235,6 +235,7 @@ STATIC FUNCTION ParseFirewallFilter( cFilter, aFilter )
LOCAL cExpr, nI, cI, nPrefix, nAddr, nAddr2, nPos, nPos2, lDeny, aDeny, aI
aFilter := { => }
hb_HKeepOrder( aFilter, .F. )
aDeny := {}
FOR EACH cExpr IN hb_ATokens( cFilter, " " )
IF ! Empty( cExpr )

24
harbour/contrib/xhb/hbdll.ch
View File

@@ -124,29 +124,7 @@
IF t_cTemplate == NIL;;
t_cTemplate := DllPrepareCall( <(DllName)>, DC_CALL_STD, iif( <.DllFuncName.>, <(DllFuncName)>, #<FuncName> ) );;
end;;
SWITCH PCount();;
CASE 0;;
RETURN DllExecuteCall( t_cTemplate );;
CASE 1;;
RETURN DllExecuteCall( t_cTemplate, ...) );;
CASE 2;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2) );;
CASE 3;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3) );;
CASE 4;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3), hb_PValue(4) );;
CASE 5;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3), hb_PValue(4), hb_PValue(5) );;
CASE 6;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3), hb_PValue(4), hb_PValue(5), hb_PValue(6) );;
CASE 7;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3), hb_PValue(4), hb_PValue(5), hb_PValue(6), hb_PValue(7) );;
CASE 8;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3), hb_PValue(4), hb_PValue(5), hb_PValue(6), hb_PValue(7), hb_PValue(8) );;
CASE 9;;
RETURN DllExecuteCall( t_cTemplate, hb_PValue(1), hb_PValue(2), hb_PValue(3), hb_PValue(4), hb_PValue(5), hb_PValue(6), hb_PValue(7), hb_PValue(8), hb_PValue(9) );;
end;;
RETURN NIL
RETURN DllExecuteCall( t_cTemplate, ... )
// FWH
#xcommand DLL [<Qualifier: STATIC>] FUNCTION <FuncName>( [ <ArgName> AS <ArgType> ] [, <ArgNameN> AS <ArgTypeN> ] ) AS <Type> [<Pascal: PASCAL>] [ FROM <DllFuncName> ] LIB <(DllName)> => ;