From dc8dbd7b7bf673a8932dc8f7207268fa831c0e3f Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sun, 4 Jul 2010 22:51:59 +0000 Subject: [PATCH] 2010-07-04 15:48 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/ideplugins.prg + Extended auto execuable scripts to have .hbs extension besides .prg. --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbide/ideplugins.prg | 14 ++++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1bd2c27945..103a00e5a0 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2010-07-04 15:48 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/ideplugins.prg + + Extended auto execuable scripts to have .hbs extension + besides .prg. + 2010-07-04 15:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/idemisc.prg + #include "hbextern.ch" diff --git a/harbour/contrib/hbide/ideplugins.prg b/harbour/contrib/hbide/ideplugins.prg index 999ef7b6b1..e0effe88cd 100644 --- a/harbour/contrib/hbide/ideplugins.prg +++ b/harbour/contrib/hbide/ideplugins.prg @@ -191,17 +191,19 @@ FUNCTION hbide_runAScript( cBuffer, cCompFlags, xParam ) /*----------------------------------------------------------------------*/ FUNCTION hbide_execAutoScripts() - LOCAL cPath, cMask, a_, dir_, cFileName, cBuffer + LOCAL cPath, a_, dir_, cFileName, cBuffer cPath := hb_dirBase() + hb_osPathSeparator() + "plugins" + hb_osPathSeparator() - cMask := "auto_*.prg" - dir_:= directory( cPath + cMask ) - FOR EACH a_ IN dir_ - cFileName := a_[ 1 ] + a_:= {} + dir_:= directory( cPath + "auto_*.prg" ) + aeval( dir_, {|e_| aadd( a_, e_[ 1 ] ) } ) + dir_:= directory( cPath + "auto_*.hbs" ) + aeval( dir_, {|e_| aadd( a_, e_[ 1 ] ) } ) + + FOR EACH cFileName IN a_ IF !empty( cBuffer := hb_memoRead( cPath + cFileName ) ) HB_TRACE( HB_TR_ALWAYS, cFileName ) - hbide_runAScript( cBuffer, /* No Compiler Flag */, hbide_setIde() ) ENDIF NEXT