2012-09-22 11:28 UTC+0200 Viktor Szakats (harbour syenar.net)
+ contrib/hbide/xbpaddons/dbstruct.ui
+ contrib/hbide/xbpaddons/fetchdate.ui
+ contrib/hbide/xbpaddons/tables.ui
- contrib/hbide/xbpaddons/xbpdbstruct.ui
- contrib/hbide/xbpaddons/xbpfetchdate.ui
- contrib/hbide/xbpaddons/xbptables.ui
! redone the naming scheme introduced few month ago
and added to this new component yesterday, which
was since undone by Pritpal.
* contrib/hbide/xbpaddons/xbpaddons.hbp
* contrib/hbide/hbide.hbp
! deleted wrongly added -L option by Pritpal
.hbc should take care of it.
* utils/hbmk2/hbmk2.prg
! hbshell_gtInteractive() will now create new GT only when necessary
+ internal changes to support multiple initial commands
This commit is contained in:
@@ -16,6 +16,26 @@
|
||||
The license applies to all entries newer than 2009-04-28.
|
||||
*/
|
||||
|
||||
2012-09-22 11:28 UTC+0200 Viktor Szakats (harbour syenar.net)
|
||||
+ contrib/hbide/xbpaddons/dbstruct.ui
|
||||
+ contrib/hbide/xbpaddons/fetchdate.ui
|
||||
+ contrib/hbide/xbpaddons/tables.ui
|
||||
- contrib/hbide/xbpaddons/xbpdbstruct.ui
|
||||
- contrib/hbide/xbpaddons/xbpfetchdate.ui
|
||||
- contrib/hbide/xbpaddons/xbptables.ui
|
||||
! redone the naming scheme introduced few month ago
|
||||
and added to this new component yesterday, which
|
||||
was since undone by Pritpal.
|
||||
|
||||
* contrib/hbide/xbpaddons/xbpaddons.hbp
|
||||
* contrib/hbide/hbide.hbp
|
||||
! deleted wrongly added -L option by Pritpal
|
||||
.hbc should take care of it.
|
||||
|
||||
* utils/hbmk2/hbmk2.prg
|
||||
! hbshell_gtInteractive() will now create new GT only when necessary
|
||||
+ internal changes to support multiple initial commands
|
||||
|
||||
2012-09-21 19:41 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
|
||||
* contrib/hbide/hbide.hbp
|
||||
- contrib/hbide/hbqreportsmanager.prg
|
||||
@@ -30,14 +50,14 @@
|
||||
- contrib/hbide/tables.ui
|
||||
* contrib/hbide/hbide.hbp
|
||||
* contrib/hbide/misc.prg
|
||||
- Deleted: two more resources which have already been moved to
|
||||
- Deleted: two more resources which have already been moved to
|
||||
xbpaddons library.
|
||||
|
||||
2012-09-21 18:07 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
|
||||
- contrib/hbide/idedbu/*
|
||||
+ contrib/hbide/xbpaddons/*
|
||||
- Deleted xbpaddons consumed resources from hbide/resources.
|
||||
|
||||
|
||||
2012-09-21 12:04 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
|
||||
* contrib/hbide/hbide.hbp
|
||||
* contrib/hbxbp/hbxbp.hbp
|
||||
|
||||
@@ -25,7 +25,6 @@ hbformat.hbc
|
||||
|
||||
xbpaddons/xbpaddons.hbp
|
||||
xbpaddons/xbpaddons.hbc
|
||||
-Lxbpaddons
|
||||
|
||||
-env:HB_DYNLOAD_RDDADS=yes
|
||||
rddads.hbc
|
||||
|
||||
@@ -16,6 +16,6 @@ reports.prg
|
||||
|
||||
xbp.qrc
|
||||
|
||||
xbpdbstruct.ui
|
||||
xbpfetchdate.ui
|
||||
xbptables.ui
|
||||
dbstruct.ui
|
||||
fetchdate.ui
|
||||
tables.ui
|
||||
|
||||
@@ -569,6 +569,7 @@ STATIC s_nCol := 0
|
||||
STATIC s_aHistory := {}
|
||||
STATIC s_lPreserveHistory := .T.
|
||||
STATIC s_lWasLoad := .F.
|
||||
STATIC s_lInteractive := .T.
|
||||
|
||||
PROCEDURE _APPMAIN( ... )
|
||||
LOCAL aArgsProc
|
||||
@@ -12328,6 +12329,8 @@ STATIC PROCEDURE __hbshell( cFile, ... )
|
||||
SWITCH cExt
|
||||
CASE ".hb"
|
||||
|
||||
s_lInteractive := .F.
|
||||
|
||||
/* NOTE: Assumptions:
|
||||
- one dynamic lib belongs to one .hbc file (true for dynamic builds in contrib)
|
||||
- dynamic libs will reference and automatically load all their dependencies
|
||||
@@ -12370,13 +12373,14 @@ STATIC PROCEDURE __hbshell( cFile, ... )
|
||||
ENDIF
|
||||
|
||||
CASE ".hrb"
|
||||
s_lInteractive := .F.
|
||||
__hbshell_ext_init( aExtension )
|
||||
hb_argShift( .T. )
|
||||
hb_hrbRun( cFile, ... )
|
||||
EXIT
|
||||
CASE ".dbf"
|
||||
__hbshell_ext_init( aExtension )
|
||||
__hbshell_prompt( hb_AParams(), "USE " + cFile + " SHARED" )
|
||||
__hbshell_prompt( hb_AParams(), { "USE " + cFile + " SHARED" } )
|
||||
EXIT
|
||||
ENDSWITCH
|
||||
ELSE
|
||||
@@ -12757,7 +12761,7 @@ STATIC PROCEDURE __hbshell_plugins_unload( plugins )
|
||||
#include "setcurs.ch"
|
||||
|
||||
/* TODO: rewrite the full-screen shell to be a simple stdout/stdin shell */
|
||||
STATIC PROCEDURE __hbshell_prompt( aParams, cCommand )
|
||||
STATIC PROCEDURE __hbshell_prompt( aParams, aCommand )
|
||||
LOCAL GetList
|
||||
LOCAL cLine
|
||||
LOCAL nMaxRow, nMaxCol
|
||||
@@ -12765,6 +12769,7 @@ STATIC PROCEDURE __hbshell_prompt( aParams, cCommand )
|
||||
LOCAL bKeyUP, bKeyDown, bKeyIns, bKeyResize
|
||||
LOCAL lResize := .F.
|
||||
LOCAL plugins
|
||||
LOCAL cCommand
|
||||
|
||||
LOCAL cDomain := ""
|
||||
LOCAL cPrompt
|
||||
@@ -12798,10 +12803,14 @@ STATIC PROCEDURE __hbshell_prompt( aParams, cCommand )
|
||||
|
||||
__hbshell_Exec( "?? hb_Version()" )
|
||||
|
||||
IF HB_ISSTRING( cCommand )
|
||||
AAdd( s_aHistory, PadR( cCommand, HB_LINE_LEN ) )
|
||||
__hbshell_Info( cCommand )
|
||||
__hbshell_Exec( cCommand )
|
||||
IF HB_ISARRAY( aCommand )
|
||||
FOR EACH cCommand IN aCommand
|
||||
IF HB_ISSTRING( cCommand )
|
||||
AAdd( s_aHistory, PadR( cCommand, HB_LINE_LEN ) )
|
||||
__hbshell_Info( cCommand )
|
||||
__hbshell_Exec( cCommand )
|
||||
ENDIF
|
||||
NEXT
|
||||
ELSE
|
||||
cCommand := ""
|
||||
ENDIF
|
||||
@@ -13150,7 +13159,9 @@ FUNCTION hbshell_ProgName()
|
||||
RETURN s_cProgName_hbshell
|
||||
|
||||
FUNCTION hbshell_gtInteractive()
|
||||
hb_gtSelect( hb_gtCreate( __hbshell_gtDefault() ) )
|
||||
IF !( "GT" + hb_gtVersion( 0 ) == __hbshell_gtDefault() )
|
||||
hb_gtSelect( hb_gtCreate( __hbshell_gtDefault() ) )
|
||||
ENDIF
|
||||
RETURN NIL
|
||||
|
||||
STATIC FUNCTION __hbshell_gtDefault()
|
||||
|
||||
Reference in New Issue
Block a user