b1cd0953df
* src/pp/ppcore.c
* src/pp/hbpp.c
* src/vm/macro.c
* src/vm/runner.c
* src/vm/estack.c
* src/vm/itemapi.c
* src/vm/hvm.c
* src/vm/cmdarg.c
* src/vm/maindllp.c
* src/vm/fm.c
* src/vm/thread.c
* src/vm/memvars.c
* src/vm/eval.c
* src/vm/extend.c
* src/vm/classes.c
* src/debug/dbgentry.c
* src/common/expropt1.c
* src/common/expropt2.c
* src/common/hbhash.c
* src/nortl/nortl.c
* src/macro/macrolex.c
* src/rtl/gtxwc/gtxwc.c
* src/rtl/gtstd/gtstd.c
* src/rtl/gtcgi/gtcgi.c
* src/rtl/errapi.c
* src/rtl/hbprocfn.c
* src/rtl/hbsocket.c
* src/rtl/gtpca/gtpca.c
* src/rtl/filebuf.c
* src/rtl/hbproces.c
* src/rdd/dbfntx/dbfntx1.c
* src/rdd/dbsql.c
* src/rdd/hbdbsort.c
* src/rdd/workarea.c
* src/rdd/wacore.c
* src/rdd/sdf1.c
* src/rdd/dbcmdx.c
* src/rdd/dbfnsx/dbfnsx1.c
* src/rdd/dbcmd.c
* src/rdd/dbfcdx/dbfcdx1.c
* src/rdd/delim1.c
* src/rdd/dbf1.c
* src/rdd/hsx/hsx.c
* src/rdd/usrrdd/usrrdd.c
* src/rdd/wafunc.c
* src/rdd/dbffpt/dbffpt1.c
* src/rdd/hbsix/sxord.c
* src/rdd/hbsix/sxfname.c
* src/rdd/hbsix/sxtable.c
* src/rdd/hbsix/sxutil.c
* src/rdd/hbsix/sxcrypt.c
* src/compiler/ppcomp.c
* src/compiler/hbmain.c
* src/compiler/compi18n.c
* src/compiler/cmdcheck.c
* src/compiler/hbdbginf.c
* src/compiler/hbpcode.c
* src/compiler/genhrb.c
* src/compiler/hbdead.c
* src/compiler/complex.c
* src/compiler/genobj32.c
* src/compiler/genc.c
* src/compiler/hbopt.c
* src/compiler/hbident.c
* src/compiler/gencc.c
* src/compiler/hbcmplib.c
* src/compiler/hblbl.c
* src/compiler/harbour.yyc
* src/compiler/harbour.y
* include/hbpp.h
* include/hbrdddbf.h
* include/hbvmpub.h
* include/hbrddnsx.h
* include/hbstack.h
* include/hbgtcore.h
* include/hbapifs.h
* include/hbthread.h
* include/hbdefs.h
* include/hbmacro.h
* include/hbinit.h
* include/hbtypes.h
* include/hbrddsdf.h
* include/hbapi.h
* include/hbapiitm.h
* include/hbrddntx.h
* include/hbvm.h
* include/hbapidbg.h
* include/hbcomp.h
* include/hbapirdd.h
* include/hbcompdf.h
* include/hbrdddel.h
* include/hbexpra.c
* include/hbexprop.h
* include/hbrddcdx.h
* include/hbapicls.h
* include/hbapierr.h
* include/hbrddfpt.h
* include/hbhash.h
* include/hbregex.h
* include/hbexprb.c
* contrib/hbct/screen2.c
* contrib/hbct/token2.c
* contrib/hbct/dbftools.c
* contrib/hbct/atadjust.c
* contrib/hbct/ctwin.c
* contrib/hbct/files.c
* contrib/hbct/dattime3.c
* contrib/hbct/ctstr.c
* contrib/hbct/screen1.c
* contrib/hbct/token1.c
* contrib/hbct/ctc.c
* contrib/hbct/ct.h
* contrib/hbct/atnum.c
* contrib/hbct/asciisum.c
* contrib/hbct/numat.c
* contrib/hbct/atrepl.c
* contrib/xhb/bkgtsks.c
* contrib/xhb/hbcrypt.c
* contrib/xhb/fparse.c
* contrib/xhb/datesxhb.c
* contrib/xhb/hbnxs.h
* contrib/hbqt/gtqtc/gtqtc.cpp
* contrib/xpp/dbcmdx.c
* contrib/hbnf/dispc.c
* contrib/hbnf/ftattr.c
* contrib/hbmemio/memio.c
* contrib/hbnetio/netiocli.c
* contrib/rddsql/sddmy/mysqldd.c
* contrib/rddsql/sddpg/pgsqldd.c
* contrib/rddsql/sddfb/fbirddd.c
* contrib/rddsql/sddodbc/odbcdd.c
* contrib/rddsql/hbrddsql.h
* contrib/rddsql/sqlbase.c
* contrib/rddsql/sqlmix.c
* contrib/rddads/adsx.c
* contrib/rddads/adsfunc.c
* contrib/rddads/rddads.h
* contrib/rddads/ads1.c
* contrib/rddads/adsmgmnt.c
* contrib/hbmisc/spd.c
* contrib/hbtip/utils.c
* contrib/hbtip/encmthd.c
* contrib/hbbmcdx/bmdbfcdx.c
* contrib/hbbmcdx/hbbmcdx.h
* contrib/hbbtree/hb_btree.h
* contrib/hbbtree/hb_btree.c
* ULONG -> HB_ULONG, HB_SIZE
(except for external (OS) API specific usage)
* Formatting.
; NOTE: I converted ULONG to HB_SIZE where I felt it appropriate,
but didn't touch compiler, codeblock handling, low-level
RDD (Set/GetVarLen method) and high-level contrib RDDs, so
this needs to be cleaned.
Also there may be cases where I didn't change the whole
call chain to HB_SIZE.
; NOTE: It would be probably worthy to add new types for these purposes:
- line number (HB_USHORT)
- record number (HB_ULONG)
- RDD connection (HB_ULONG)
- parameter count / stack position / class member positions / etc (HB_USHORT, sometimes HB_ULONG)
- pcode (HB_BYTE and char)
- flags / modes (HB_USHORT / HB_ULONG)
- timers (HB_ULONG, HB_MAXINT)
- GT API character (HB_USHORT)
; REQUESTS:
- Pls don't over-align variable declarations. It makes
modification much much slower. Sometimes declarations are
aligned even if there was only one or two of them in a block.
- Pls always add variable names in declarations, otherwise the purpose
of the function is very slow to decipher when looking at it.
- Keep up the nice formatting according to Harbour standards,
it makes modifications much much easier.
; TODO:
- Verify with grep script
- Verify with HB_USER_CFLAGS=-DHB_LEGACY_TYPES_OFF
- Make HB_LEGACY_TYPES_OFF default for Harbour builds.
- Tie HB_LEGACY_TYPES_OFF to HB_LEGACY_LEVEL3
- Replace current windows.h inclusion hack with regular method
- Delete hacks dealing with former type chaos:
HB_CLIPPER_INT_ITEMS, HB_DONT_DEFINE_BASIC_TYPES, HB_DONT_DEFINE_BOOL, HB_DONT_DEFINE_BYTE, HB_DONT_DEFINE_LONG
- Retest hbfimage on *nix, delete hacks
- Normalize HB_BYTE vs. HB_UCHAR usage
- Type cleanups, f.e. HB_SIZE vs. HB_ULONG
- Add new special types (see above)
- Switch HB_SIZE to signed (big project), and delete HB_ISIZ afterwards.
432 lines
14 KiB
C
432 lines
14 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* File......: saveatt.asm
|
|
* Author....: Ted Means
|
|
* CIS ID....: 73067,3332
|
|
*
|
|
* This is an original work by Ted Means and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.2 03 Oct 1992 14:35:14 GLENN
|
|
* Ted Means made modifications to support use of dispBegin()/dispEnd().
|
|
*
|
|
* Rev 1.1 15 Aug 1991 23:07:58 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.0 12 Jun 1991 01:30:20 GLENN
|
|
* Initial revision.
|
|
*
|
|
|
|
* $DOC$
|
|
* $FUNCNAME$
|
|
* FT_SAVEATT()
|
|
* $CATEGORY$
|
|
* Video
|
|
* $ONELINER$
|
|
* Save the attribute bytes of a specified screen region.
|
|
* $SYNTAX$
|
|
* FT_SAVEATT( <nTop>, <nLeft>, <nBottom>, <nRight> ) -> cAttributes
|
|
* $ARGUMENTS$
|
|
* <nTop>, <nLeft>, <nBottom>, and <nRight> define the screen region.
|
|
* $RETURNS$
|
|
* A character string containing the screen attribute bytes for the
|
|
* specified region. If the memory to store the return value could
|
|
* not be allocated, the function returns NIL.
|
|
* $DESCRIPTION$
|
|
* This function is similar to Clipper's SaveScreen(), except that it only
|
|
* saves the attribute bytes. This is useful if you want to change the
|
|
* screen color without affecting the text.
|
|
*
|
|
* *** INTERNALS ALERT ***
|
|
*
|
|
* This function calls the Clipper internal __gtMaxCol to obtain the
|
|
* maximum column value for the current video mode. If you're too gutless
|
|
* to use internals, then this function isn't for you.
|
|
* $EXAMPLES$
|
|
* // Save attributes of row 4
|
|
* cBuffer := FT_SAVEATT( 4, 0, 4, maxcol())
|
|
*
|
|
* // Save attributes from middle of screen
|
|
* cBuffer := FT_SAVEATT(10,20,14,59)
|
|
* $SEEALSO$
|
|
* FT_RESTATT()
|
|
* $END$
|
|
*
|
|
*/
|
|
|
|
/* This is the original FT_SAVEATT() code
|
|
IDEAL
|
|
|
|
Public FT_SaveAtt
|
|
|
|
Extrn __ParNI:Far
|
|
Extrn __RetCLen:Far
|
|
Extrn __xGrab:Far
|
|
Extrn __xFree:Far
|
|
Extrn __gtSave:Far
|
|
|
|
nTop EQU Word Ptr BP - 2
|
|
nLeft EQU Word Ptr BP - 4
|
|
nBottom EQU Word Ptr BP - 6
|
|
nRight EQU Word Ptr BP - 8
|
|
nAttr EQU Byte Ptr BP - 10
|
|
nBufLen EQU Word Ptr BP - 12
|
|
|
|
cBuffer EQU DWord Ptr BP - 16
|
|
nBufOfs EQU Word Ptr BP - 16
|
|
nBufSeg EQU Word Ptr BP - 14
|
|
|
|
Segment _NanFor Word Public "CODE"
|
|
Assume CS:_NanFor
|
|
|
|
Proc FT_SaveAtt Far
|
|
|
|
Push BP ; Save BP
|
|
Mov BP,SP ; Set up stack reference
|
|
Sub SP,16 ; Allocate locals
|
|
|
|
Mov CX,4 ; Set param count
|
|
@@Coord: Push CX ; Put on stack
|
|
Call __ParNI ; Retrieve param
|
|
Pop CX ; Get count back
|
|
Push AX ; Put value on stack
|
|
Loop @@Coord ; Get next value
|
|
|
|
Pop [nTop] ; Store top coordinate
|
|
Pop [nLeft] ; Store left coordinate
|
|
Pop [nBottom] ; Store bottom coordinate
|
|
Pop [nRight] ; Store right coordinate
|
|
|
|
Mov AX,[nBottom] ; Load bottom coordinate
|
|
Sub AX,[nTop] ; Subtract top
|
|
Inc AX ; Calc length
|
|
|
|
Mov CX,[nRight] ; Load right coordinate
|
|
Sub CX,[nLeft] ; Subtract left
|
|
Inc CX ; Calc width
|
|
Mul CX ; Multiply length by width
|
|
SHL AX,1 ; Calc buffer size
|
|
Mov [nBufLen],AX ; Store buffer size
|
|
|
|
@@Alloc: Push AX ; Put size on stack
|
|
Call __xGrab ; Allocate memory
|
|
Add SP,2 ; Realign stack
|
|
Mov [nBufSeg],DX ; Store segment
|
|
Mov [nBufOfs],AX ; Store offset
|
|
|
|
Push DX ; Load parameters for __gtSave
|
|
Push AX ; onto stack
|
|
Push [nRight]
|
|
Push [nBottom]
|
|
Push [nLeft]
|
|
Push [nTop]
|
|
Call __gtSave ; Grab screen image
|
|
|
|
Push DS ; Save required registers
|
|
Push SI
|
|
Push DI
|
|
|
|
Mov DS,[nBufSeg] ; Load pointer to buffer
|
|
Mov SI,[nBufOfs] ; into DS:SI
|
|
|
|
Push DS ; Duplicate pointer in ES:DI
|
|
Push SI
|
|
Pop DI
|
|
Pop ES
|
|
Inc SI ; Start with attribute byte
|
|
|
|
Mov CX,[nBufLen] ; Load buffer length
|
|
SHR CX,1 ; Divide by two
|
|
@@Attr: Lodsw ; Grab a screen word
|
|
Stosb ; Store attribute only
|
|
Loop @@Attr ; Do next
|
|
|
|
Pop DI ; Restore registers
|
|
Pop SI
|
|
Pop DS
|
|
|
|
Done: Mov AX,[nBufLen] ; Load buffer length
|
|
SHR AX,1 ; Divide by 2
|
|
Push AX ; Put length on stack
|
|
Push [nBufSeg] ; Put segment on stack
|
|
Push [nBufOfs] ; Put offset on stack
|
|
Call __RetClen ; Return attribute string
|
|
Call __xFree ; Free memory
|
|
Mov SP,BP ; Realign stack
|
|
Pop BP ; Restore BP
|
|
Ret
|
|
Endp FT_SaveAtt
|
|
Ends _NanFor
|
|
End
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
#include "hbapigt.h"
|
|
|
|
/* This is the New one Rewriten in C */
|
|
|
|
HB_FUNC( FT_SAVEATT )
|
|
{
|
|
int iTop = hb_parni( 1 ); /* Defaults to zero on bad type */
|
|
int iLeft = hb_parni( 2 ); /* Defaults to zero on bad type */
|
|
int iMaxRow = hb_gtMaxRow();
|
|
int iMaxCol = hb_gtMaxCol();
|
|
int iBottom = HB_ISNUM( 3 ) ? hb_parni( 3 ) : iMaxRow;
|
|
int iRight = HB_ISNUM( 4 ) ? hb_parni( 4 ) : iMaxRow;
|
|
|
|
HB_SIZE ulSize;
|
|
char * pBuffer;
|
|
char * pAttrib;
|
|
|
|
if( iTop < 0 )
|
|
iTop = 0;
|
|
if( iLeft < 0 )
|
|
iLeft = 0;
|
|
if( iBottom > iMaxRow )
|
|
iBottom = iMaxRow;
|
|
if( iRight > iMaxCol )
|
|
iRight = iMaxCol;
|
|
|
|
if( iTop <= iBottom && iLeft <= iRight )
|
|
{
|
|
ulSize = ( iBottom - iTop + 1 ) * ( iRight - iLeft + 1 );
|
|
pBuffer = pAttrib = ( char * ) hb_xgrab( ulSize + 1 );
|
|
while( iTop <= iBottom )
|
|
{
|
|
int iCol = iLeft;
|
|
while( iCol <= iRight )
|
|
{
|
|
int iColor;
|
|
HB_BYTE bAttr;
|
|
HB_USHORT usChar;
|
|
hb_gtGetChar( iTop, iCol, &iColor, &bAttr, &usChar );
|
|
*pBuffer++ = ( char ) iColor;
|
|
++iCol;
|
|
}
|
|
++iTop;
|
|
}
|
|
hb_retclen_buffer( pAttrib, ulSize );
|
|
}
|
|
else
|
|
hb_retc_null();
|
|
}
|
|
|
|
/*
|
|
* File......: restatt.asm
|
|
* Author....: Ted Means
|
|
* CIS ID....: 73067,3332
|
|
*
|
|
* This is an original work by Ted Means and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.2 03 Oct 1992 14:33:46 GLENN
|
|
* Ted Means made modifications so these functions will work with
|
|
* dispBegin() and dispEnd().
|
|
*
|
|
* Rev 1.1 15 Aug 1991 23:08:02 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.0 12 Jun 1991 01:30:14 GLENN
|
|
* Initial revision.
|
|
*
|
|
|
|
* $DOC$
|
|
* $FUNCNAME$
|
|
* FT_RESTATT()
|
|
* $CATEGORY$
|
|
* Video
|
|
* $ONELINER$
|
|
* Restore the attribute bytes of a specified screen region.
|
|
* $SYNTAX$
|
|
* FT_RESTATT( <nTop>, <nLeft>, <nBottom>, <nRight>, <cAttributes> ) -> NIL
|
|
* $ARGUMENTS$
|
|
* <nTop>, <nLeft>, <nBottom>, and <nRight> define the screen region.
|
|
* <cAttributes> is a character string containing the attribute bytes
|
|
* for the screen region. This will most often be a string
|
|
* previously returned by FT_SAVEATT(), but any character
|
|
* string may be used (provided it is of the proper size).
|
|
* $RETURNS$
|
|
* NIL
|
|
* $DESCRIPTION$
|
|
* This function is similar to Clipper's RestScreen(), except that it only
|
|
* restores the attribute bytes. This is useful if you want to change the
|
|
* screen color without affecting the text.
|
|
*
|
|
* *** INTERNALS ALERT ***
|
|
*
|
|
* This function calls the Clipper internals __gtSave and __gtRest to
|
|
* manipulate the the screen image. If you're too gutless to use
|
|
* internals, then this function isn't for you.
|
|
* $EXAMPLES$
|
|
* // Restore attributes of row 4
|
|
* FT_RESTATT( 4, 0, 4, maxcol(), cBuffer)
|
|
*
|
|
* // Restore attributes to middle of screen
|
|
* FT_RESTATT(10,20,14,59,cBuffer)
|
|
* $SEEALSO$
|
|
* FT_SAVEATT()
|
|
* $END$
|
|
*
|
|
*/
|
|
|
|
/* This is the Original FT_RESTATT() code
|
|
IDEAL
|
|
|
|
Public FT_RestAtt
|
|
|
|
Extrn __ParNI:Far
|
|
Extrn __ParC:Far
|
|
Extrn __XGrab:Far
|
|
Extrn __XFree:Far
|
|
Extrn __gtSave:Far
|
|
Extrn __gtRest:Far
|
|
|
|
nTop EQU Word Ptr BP - 2
|
|
nLeft EQU Word Ptr BP - 4
|
|
nBottom EQU Word Ptr BP - 6
|
|
nRight EQU Word Ptr BP - 8
|
|
nAttr EQU Byte Ptr BP - 10
|
|
nBufLen EQU Word Ptr BP - 12
|
|
|
|
cBuffer EQU DWord Ptr BP - 16
|
|
nBufOfs EQU Word Ptr BP - 16
|
|
nBufSeg EQU Word Ptr BP - 14
|
|
|
|
Segment _NanFor Word Public "CODE"
|
|
Assume CS:_NanFor
|
|
|
|
Proc FT_RestAtt Far
|
|
|
|
Push BP ; Save BP
|
|
Mov BP,SP ; Set up stack reference
|
|
Sub SP,16 ; Allocate locals
|
|
|
|
Mov CX,4 ; Set param count
|
|
@@Coord: Push CX ; Put on stack
|
|
Call __ParNI ; Retrieve param
|
|
Pop CX ; Get count back
|
|
Push AX ; Put value on stack
|
|
Loop @@Coord ; Get next value
|
|
|
|
Pop [nTop] ; Store top coordinate
|
|
Pop [nLeft] ; Store left coordinate
|
|
Pop [nBottom] ; Store bottom coordinate
|
|
Pop [nRight] ; Store right coordinate
|
|
|
|
Mov AX,[nBottom] ; Load bottom coordinate
|
|
Sub AX,[nTop] ; Subtract top
|
|
Inc AX ; Calc length
|
|
|
|
Mov CX,[nRight] ; Load right coordinate
|
|
Sub CX,[nLeft] ; Subtract left
|
|
Inc CX ; Calc width
|
|
Mul CX ; Multiply length by width
|
|
SHL AX,1 ; Calc buffer size
|
|
Mov [nBufLen],AX ; Store buffer size
|
|
|
|
@@Alloc: Push AX ; Put size on stack
|
|
Call __xGrab ; Allocate memory
|
|
Add SP,2 ; Realign stack
|
|
Mov [nBufSeg],DX ; Store segment
|
|
Mov [nBufOfs],AX ; Store offset
|
|
|
|
Push DX ; Load parameters for __gtSave
|
|
Push AX ; onto stack
|
|
Push [nRight]
|
|
Push [nBottom]
|
|
Push [nLeft]
|
|
Push [nTop]
|
|
Call __gtSave ; Grab screen image
|
|
|
|
Push DS ; Save required registers
|
|
Push SI
|
|
Push DI
|
|
|
|
Mov AX,5 ; Specify 5th param
|
|
Push AX ; Put on stack
|
|
Call __ParC ; Get pointer to attr string
|
|
Add SP,2 ; Realign stack
|
|
|
|
Mov DS,DX ; Load pointer to string
|
|
Mov SI,AX ; into DS:SI
|
|
Mov ES,[nBufSeg] ; Load pointer to buffer
|
|
Mov DI,[nBufOfs] ; into ES:DI
|
|
Mov CX,[nBufLen] ; Load buffer length
|
|
SHR CX,1 ; Divide by two
|
|
|
|
@@Attr: Inc DI ; Point DI to attribute
|
|
Lodsb ; Grab an attribute byte
|
|
Stosb ; Store attribute
|
|
Loop @@Attr ; Do next
|
|
|
|
Pop DI ; Restore registers
|
|
Pop SI
|
|
Pop DS
|
|
Call __gtRest ; Restore screen image
|
|
|
|
Done: Push [nBufSeg] ; Put segment on stack
|
|
Push [nBufOfs] ; Put offset on stack
|
|
Call __xFree ; Free memory
|
|
Mov SP,BP ; Realign stack
|
|
Pop BP ; Restore BP
|
|
Ret
|
|
Endp FT_RestAtt
|
|
Ends _NanFor
|
|
End
|
|
*/
|
|
|
|
/* This is the New one Rewriten in C */
|
|
|
|
HB_FUNC( FT_RESTATT )
|
|
{
|
|
HB_SIZE ulLen = hb_parclen( 5 );
|
|
if( ulLen )
|
|
{
|
|
int iTop = hb_parni( 1 ); /* Defaults to zero on bad type */
|
|
int iLeft = hb_parni( 2 ); /* Defaults to zero on bad type */
|
|
int iMaxRow = hb_gtMaxRow();
|
|
int iMaxCol = hb_gtMaxCol();
|
|
int iBottom = HB_ISNUM( 3 ) ? hb_parni( 3 ) : iMaxRow;
|
|
int iRight = HB_ISNUM( 4 ) ? hb_parni( 4 ) : iMaxCol;
|
|
const char * pAttrib = hb_parc( 5 );
|
|
|
|
if( iTop < 0 )
|
|
iTop = 0;
|
|
if( iLeft < 0 )
|
|
iLeft = 0;
|
|
if( iBottom > iMaxRow )
|
|
iBottom = iMaxRow;
|
|
if( iRight > iMaxCol )
|
|
iRight = iMaxCol;
|
|
|
|
if( iTop <= iBottom && iLeft <= iRight )
|
|
{
|
|
while( ulLen && iTop <= iBottom)
|
|
{
|
|
int iCol = iLeft;
|
|
while( ulLen && iCol <= iRight )
|
|
{
|
|
int iColor;
|
|
HB_BYTE bAttr;
|
|
HB_USHORT usChar;
|
|
hb_gtGetChar( iTop, iCol, &iColor, &bAttr, &usChar );
|
|
iColor = ( HB_UCHAR ) *pAttrib++;
|
|
hb_gtPutChar( iTop, iCol, iColor, bAttr, usChar );
|
|
++iCol;
|
|
--ulLen;
|
|
}
|
|
++iTop;
|
|
}
|
|
}
|
|
}
|
|
}
|