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

2010-07-01 00:46 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* include/std.ch
    + Added .hbv version of SAVE TO / RESTORE FROM commands.
      Use 'SAVE HBV ...' and 'RESTORE HBV ...' commands to
      use Harbour specific mem file format (with .hbv extension).
      The file format supports long variable names and much
      larger amount of data then Clipper compatible .mem files. 
      The file format is NOT compatible with Clipper.
    ; Pls review. This is my first time extending Harbour
      commands, plus I'm not very much a command freak, so
      maybe there is more natural (and compatible) way to
      extend existing SAVE/RESTORE command.

  * utils/hbrun/hbrun.prg
    * Variable scope cleanup to prev.
This commit is contained in:
Viktor Szakats
2010-06-30 22:47:20 +00:00
parent 81947ae787
commit 4be088168f
3 changed files with 28 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/ChangeLog
View File

@@ -16,6 +16,22 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-07-01 00:46 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* include/std.ch
+ Added .hbv version of SAVE TO / RESTORE FROM commands.
Use 'SAVE HBV ...' and 'RESTORE HBV ...' commands to
use Harbour specific mem file format (with .hbv extension).
The file format supports long variable names and much
larger amount of data then Clipper compatible .mem files.
The file format is NOT compatible with Clipper.
; Pls review. This is my first time extending Harbour
commands, plus I'm not very much a command freak, so
maybe there is more natural (and compatible) way to
extend existing SAVE/RESTORE command.
* utils/hbrun/hbrun.prg
* Variable scope cleanup to prev.
2010-06-30 23:52 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/gttrm/gttrm.c
+ GTTRM will now generate HB_K_RESIZE Harbour INKEY() events

7
harbour/include/std.ch
View File

@@ -280,6 +280,13 @@
#command SAVE TO <(f)> ALL EXCEPT <p> => __MVSave( <(f)>, <(p)>, .f. )
#command SAVE [TO <(f)>] [ALL] => __MVSave( <(f)>, "*", .t. )
#command RESTORE HBV [FROM <(f)>] [<a:ADDITIVE>] => hb_MVRestore( <(f)>, <.a.> )
#command SAVE HBV TO <(f)> ALL LIKE <p> => hb_MVSave( <(f)>, <(p)>, .t. )
#command SAVE HBV ALL LIKE <p> TO <(f)> => hb_MVSave( <(f)>, <(p)>, .t. )
#command SAVE HBV ALL EXCEPT <p> TO <(f)> => hb_MVSave( <(f)>, <(p)>, .f. )
#command SAVE HBV TO <(f)> ALL EXCEPT <p> => hb_MVSave( <(f)>, <(p)>, .f. )
#command SAVE HBV [TO <(f)>] [ALL] => hb_MVSave( <(f)>, "*", .t. )
#command ERASE <(f)> => FErase( <(f)> )
#command DELETE FILE <(f)> => FErase( <(f)> )
#command RENAME <(old)> TO <(new)> => FRename( <(old)>, <(new)> )

10
harbour/utils/hbrun/hbrun.prg
View File

@@ -79,7 +79,6 @@ STATIC s_nCol := 0
STATIC s_aIncDir := {}
STATIC s_aHistory := {}
STATIC s_lPreserveHistory := .T.
STATIC s_lResize := .F.
/* ********************************************************************** */
@@ -181,6 +180,7 @@ STATIC PROCEDURE hbrun_Prompt( cCommand )
LOCAL nMaxRow, nMaxCol
LOCAL nHistIndex
LOCAL bKeyUP, bKeyDown, bKeyIns, bKeyResize
LOCAL lResize := .F.
CLEAR SCREEN
SET SCOREBOARD OFF
@@ -230,7 +230,7 @@ STATIC PROCEDURE hbrun_Prompt( cCommand )
s_aHistory[ ++nHistIndex ], ;
( nHistIndex := LEN( s_aHistory ) + 1, Space( HB_LINE_LEN ) ) ) } )
bKeyResize := SetKey( HB_K_RESIZE,;
{|| s_lResize := .T., hb_KeyPut( K_ENTER ) } )
{|| lResize := .T., hb_KeyPut( K_ENTER ) } )
READ
@@ -240,9 +240,9 @@ STATIC PROCEDURE hbrun_Prompt( cCommand )
SetKey( HB_K_RESIZE, bKeyResize )
IF LastKey() == K_ESC .OR. EMPTY( cLine ) .OR. ;
( s_lResize .AND. LastKey() == K_ENTER )
IF s_lResize
s_lResize := .F.
( lResize .AND. LastKey() == K_ENTER )
IF lResize
lResize := .F.
ELSE
cLine := NIL
ENDIF