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

2010-07-04 15:48 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/ideplugins.prg
    + Extended auto execuable scripts to have .hbs extension 
      besides .prg.
This commit is contained in:
Pritpal Bedi
2010-07-04 22:51:59 +00:00
parent 683038d42e
commit dc8dbd7b7b
2 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -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"

14
harbour/contrib/hbide/ideplugins.prg
View File

@@ -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