From 6be189711b8fdcafa90c9893cd016ed5b48d6319 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 2 Aug 2012 08:02:27 +0000 Subject: [PATCH] 2012-08-02 10:00 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbide/misc.prg % use core API instead of inferior local implementation * ChangeLog ! fixed mistyped ChangeLog entry headers in previous two commits --- harbour/ChangeLog | 12 ++++++++++-- harbour/contrib/hbide/misc.prg | 15 +++------------ 2 files changed, 13 insertions(+), 14 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0a796932fe..05b8a7ff78 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,11 +16,19 @@ The license applies to all entries newer than 2009-04-28. */ -2012-08:01 14:08 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) +2012-08-02 10:00 UTC+0200 Viktor Szakats (harbour syenar.net) + * contrib/hbide/misc.prg + % use core API instead of inferior local implementation + + * ChangeLog + ! fixed mistyped ChangeLog entry headers in previous + two commits + +2012-08-01 14:08 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/qtgui/hbqtgui.ch ! Fix to prev. -2012-08:01 14:01 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) +2012-08-01 14:01 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/qtgui/hbqtgui.ch + Added: QDir_* constants. diff --git a/harbour/contrib/hbide/misc.prg b/harbour/contrib/hbide/misc.prg index 142146ad91..f3dd2c15e9 100644 --- a/harbour/contrib/hbide/misc.prg +++ b/harbour/contrib/hbide/misc.prg @@ -1424,11 +1424,11 @@ STATIC PROCEDURE hbide_HBPLoad( aParams, cFileName ) #if 0 DO CASE CASE !( Left( cParamNQ, 1 ) == "-" ) .AND. Len( cParamNQ ) >= 1 .AND. Left( cParamNQ, 1 ) == "@" .AND. ; - !( Lower( hbide_HBPExtGet( cParamNQ ) ) == ".clp" ) + !( Lower( hb_FNameExt( cParamNQ ) ) == ".clp" ) /* skip recurse */ CASE !( Left( cParamNQ, 1 ) == "-" ) .AND. ; - ( Lower( hbide_HBPExtGet( cParamNQ ) ) == ".hbm" .OR. ; - Lower( hbide_HBPExtGet( cParamNQ ) ) == ".hbp" ) + ( Lower( hb_FNameExt( cParamNQ ) ) == ".hbm" .OR. ; + Lower( hb_FNameExt( cParamNQ ) ) == ".hbp" ) /* skip recurse */ OTHERWISE AAdd( aParams, { cParam, cFileName, cLine:__enumIndex() } ) @@ -1450,15 +1450,6 @@ STATIC FUNCTION hbide_HBPStrStripQuote( cString ) SubStr( cString, 2, Len( cString ) - 2 ),; cString ) -/*----------------------------------------------------------------------*/ - -STATIC FUNCTION hbide_HBPExtGet( cFileName ) - LOCAL cExt - - hb_FNameSplit( cFileName, , , @cExt ) - - RETURN cExt - /*----------------------------------------------------------------------*/ // /*----------------------------------------------------------------------*/