See ChangeLog 2002-03-29 14:45 UTC-0500 David G. Holm <dholm@jsd-llc.com>
This commit is contained in:
David G. Holm
@@ -8,6 +8,38 @@
|
||||
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
|
||||
*/
|
||||
now respects scopes.
|
||||
* Some fixes and cleanup
|
||||
|
||||
2002-04-02 18:57 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
|
||||
* contrib/rdd_ads/ads1.c
|
||||
* contrib/rdd_ads/adsfunc.c
|
||||
* contrib/rdd_ads/adsmgmnt.c
|
||||
* contrib/rdd_ads/testmg.prg
|
||||
* some changes for compatibility with Linux version
|
||||
|
||||
2002-04-02 4:44 UTC-0300 Walter Negro <anegro@overnet.com.ar>
|
||||
* source/rtl/menuto.prg
|
||||
! Fix recursive executions and exit without pressing key.
|
||||
Now use local pointer and save static pointer.
|
||||
! Fix call to HitTest
|
||||
|
||||
2002-03-31 14:00 UTC-0300 Luiz Rafael Culik<culikr@uol.com.br>
|
||||
* source/rtl/tbrowse.prg
|
||||
* Fixed an problem on SetColumnwidth() method that was Tbrowse not be properly show on screen
|
||||
|
||||
2002-03-29 14:45 UTC-0500 David G. Holm <dholm@jsd-llc.com>
|
||||
* contrib/libnf/calendar.prg
|
||||
* contrib/libnf/chdir.c
|
||||
* contrib/libnf/getver.c
|
||||
* contrib/libnf/getvid.c
|
||||
* contrib/libnf/kspeed.c
|
||||
* contrib/libnf/mkdir.c
|
||||
* contrib/libnf/mouse.c
|
||||
* contrib/libnf/rmdir.c
|
||||
! Only include dos.h if building for a DOS platform.
|
||||
|
||||
* contrib/libnf/diskfunc.prg
|
||||
* contrib/libnf/dispmsg.prg
|
||||
* contrib/libnf/dosver.prg
|
||||
* contrib/libnf/floptst.prg
|
||||
* contrib/libnf/isshare.prg
|
||||
@@ -2252,8 +2284,6 @@ ed
|
||||
* Cleaned up the new Win32 API branches.
|
||||
|
||||
2001-12-21 12:54 UTC+0100 Antonio Linares <alinares@fivetech.com>
|
||||
|
||||
|
||||
* source/pp/pragma.c
|
||||
* contrib/dot/pp_harb.ch
|
||||
* tests/inline_c.prg
|
||||
|
||||
@@ -114,7 +114,7 @@
|
||||
#endif
|
||||
|
||||
|
||||
#include "INKEY.CH"
|
||||
#include "inkey.ch"
|
||||
|
||||
FUNCTION FT_CALENDAR (nRow, nCol, cColor, lShadow, lShowHelp)
|
||||
|
||||
@@ -227,3 +227,4 @@ FUNCTION FT_CALENDAR (nRow, nCol, cColor, lShadow, lShowHelp)
|
||||
RETURN ( VAL(SUBSTR(cString,nOffset,nChar)) )
|
||||
|
||||
* end of calendar.prg
|
||||
|
||||
|
||||
@@ -78,7 +78,9 @@ End
|
||||
/* This is the New one Rewriten in C*/
|
||||
|
||||
#include "extend.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
|
||||
HB_FUNC( FT_CHDIR)
|
||||
{
|
||||
@@ -98,4 +100,4 @@ HB_FUNC( FT_CHDIR)
|
||||
hb_retl(Status);
|
||||
}
|
||||
#endif
|
||||
}
|
||||
}
|
||||
|
||||
@@ -22,7 +22,7 @@
|
||||
*
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DRVTABLE "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||||
|
||||
@@ -98,3 +98,4 @@ FUNCTION FT_DSKFREE( cDrive )
|
||||
|
||||
|
||||
RETURN DISKSPACE(nDrive,1)
|
||||
|
||||
|
||||
@@ -117,7 +117,7 @@
|
||||
*/
|
||||
|
||||
|
||||
#include "INKEY.CH"
|
||||
#include "inkey.ch"
|
||||
|
||||
// beginning of demo program
|
||||
#ifdef FT_TEST
|
||||
@@ -331,3 +331,4 @@ FUNCTION FT_DispMsg( aInfo, cKey, nBoxTop, nBoxLeft, cnBoxString, lShadow )
|
||||
SETCOLOR( cOldColor )
|
||||
SETCURSOR( cOldCursor )
|
||||
RETURN xRtnVal
|
||||
|
||||
|
||||
@@ -56,7 +56,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DOS 33
|
||||
#define DOSVER 48
|
||||
@@ -80,3 +80,4 @@ FUNCTION FT_DOSVER()
|
||||
*/
|
||||
cResult:= _get_dosver()
|
||||
RETURN ( cResult )
|
||||
|
||||
|
||||
@@ -84,7 +84,7 @@
|
||||
*
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define TRUE .T.
|
||||
#define FALSE .F.
|
||||
@@ -290,3 +290,4 @@ STATIC FUNCTION _CallInt13hRetry( ; // logical: did the interrupt succeed?
|
||||
RETURN lSuccess
|
||||
|
||||
// EOF
|
||||
|
||||
|
||||
@@ -53,7 +53,9 @@
|
||||
|
||||
#include "hbapi.h"
|
||||
#include "hbapiitm.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
#include "string.h"
|
||||
#include "stdlib.h"
|
||||
|
||||
|
||||
@@ -52,7 +52,9 @@
|
||||
*/
|
||||
|
||||
#include "hbapi.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
|
||||
HB_FUNC(_FT_GETVPG)
|
||||
{
|
||||
@@ -87,4 +89,3 @@ HB_FUNC(_V_SETVPG)
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
|
||||
@@ -54,7 +54,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#ifdef FT_TEST
|
||||
function main()
|
||||
@@ -87,3 +87,4 @@ FUNCTION ft_isshare()
|
||||
RETURN lowbyte( aRegs[AX] )
|
||||
*/
|
||||
RETURN _ft_isshare()
|
||||
|
||||
|
||||
@@ -144,7 +144,9 @@ _NanFor ENDS
|
||||
/* This is the New one Rewriten in C*/
|
||||
|
||||
#include "extend.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
|
||||
HB_FUNC( FT_SETRATE)
|
||||
{
|
||||
@@ -172,6 +174,3 @@ HB_FUNC( FT_SETRATE)
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -178,8 +178,8 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "SETCURS.CH"
|
||||
#include "INKEY.CH"
|
||||
#include "setcurs.ch"
|
||||
#include "inkey.ch"
|
||||
|
||||
#xcommand if <true> then <action> => ;
|
||||
if <true> ; <action> ; end
|
||||
@@ -587,3 +587,4 @@ eval( bGetSet, nActive )
|
||||
|
||||
return nActive
|
||||
|
||||
|
||||
|
||||
@@ -81,13 +81,14 @@ End
|
||||
/* This is the New one Rewriten in C*/
|
||||
|
||||
#include "hbapi.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
|
||||
HB_FUNC(FT_MKDIR)
|
||||
{
|
||||
#if defined(HB_OS_DOS)
|
||||
{
|
||||
|
||||
int Status;
|
||||
char *path=hb_parc(1);
|
||||
union REGS regs;
|
||||
@@ -102,4 +103,3 @@ HB_FUNC(FT_MKDIR)
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
|
||||
@@ -52,7 +52,9 @@
|
||||
*/
|
||||
|
||||
#include "extend.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
#include "hbapiitm.h"
|
||||
#include "hbapigt.h"
|
||||
|
||||
@@ -60,9 +62,7 @@ HB_FUNC(_MGET_PAGE)
|
||||
{
|
||||
int iPage;
|
||||
#if defined(HB_OS_DOS)
|
||||
|
||||
{
|
||||
|
||||
union REGS regs;
|
||||
regs.HB_XREGS.ax=0x1E;
|
||||
HB_DOS_INT86(0x33,®s,®s);
|
||||
@@ -75,10 +75,8 @@ HB_FUNC(_MGET_PAGE)
|
||||
{
|
||||
hb_retni(iPage);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
HB_FUNC(_MSET_PAGE)
|
||||
{
|
||||
#if defined(HB_OS_DOS)
|
||||
@@ -100,7 +98,6 @@ HB_FUNC(_MGET_MVERSION)
|
||||
int iMajor;
|
||||
|
||||
#if defined(HB_OS_DOS)
|
||||
|
||||
{
|
||||
union REGS regs;
|
||||
|
||||
@@ -112,16 +109,13 @@ HB_FUNC(_MGET_MVERSION)
|
||||
iIRQ = regs.h.cl;
|
||||
iMajor = regs.h.bh;
|
||||
}
|
||||
|
||||
#else
|
||||
|
||||
{
|
||||
iMinor = 0;
|
||||
iType = 0;
|
||||
iIRQ = 0;
|
||||
iMajor = 0;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
{
|
||||
@@ -146,11 +140,8 @@ HB_FUNC(_MGET_MVERSION)
|
||||
|
||||
hb_itemRelease( pArray );
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
HB_FUNC(_MGET_HORISPEED)
|
||||
{
|
||||
int iSpeed;
|
||||
@@ -567,5 +558,5 @@ int inButton;
|
||||
hb_itemRelease(pnX);
|
||||
hb_itemRelease(pnButton);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
@@ -62,7 +62,7 @@
|
||||
// and fixes that I've given him sole credit. -- G. Scott
|
||||
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
static aReg[10]
|
||||
static lCrsState:=.F.
|
||||
@@ -1001,3 +1001,4 @@ FUNCTION FT_MDEFCRS( nCurType, nScrMask, nCurMask ) // define text cursor type
|
||||
RETURN NIL // no function output
|
||||
|
||||
*/
|
||||
|
||||
|
||||
@@ -53,7 +53,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DOS 33
|
||||
#define STATNUM 220
|
||||
@@ -77,3 +77,4 @@ FUNCTION FT_NWLSTAT()
|
||||
endif
|
||||
|
||||
RETURN nStation
|
||||
|
||||
|
||||
@@ -73,7 +73,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DOS 33
|
||||
#define NW_LOG 227
|
||||
@@ -123,3 +123,4 @@ FUNCTION FT_NWUID( nConn )
|
||||
RETURN alltrim( strtran( substr( aRegs[ ES ], 9, 48 ), chr(0) ) )
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
*
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define VIDEO 16
|
||||
|
||||
@@ -108,3 +108,4 @@ FUNCTION FT_GETVPG()
|
||||
RETURN ( HIGHBYTE( aRegs[ BX ] ) ) */
|
||||
Return _ft_getvpg()
|
||||
|
||||
|
||||
|
||||
@@ -107,8 +107,8 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include 'Inkey.ch'
|
||||
#include 'SetCurs.ch'
|
||||
#include 'inkey.ch'
|
||||
#include 'setcurs.ch'
|
||||
#include 'achoice.ch'
|
||||
|
||||
// Set up manifest constants to access the window colors in the array aWinColor
|
||||
@@ -1958,3 +1958,5 @@ RETURN LEN(cString)-LEN(LTRIM(cString))
|
||||
*/
|
||||
STATIC FUNCTION _ftPosIns(cString,cChar,nPosit)
|
||||
RETURN LEFT(cString,nPosit-1)+cChar+SUBSTR(cString,nPosit)
|
||||
|
||||
|
||||
|
||||
@@ -16,7 +16,7 @@
|
||||
* Initial revision.
|
||||
*/
|
||||
|
||||
#include "SET.CH"
|
||||
#include "set.ch"
|
||||
|
||||
#define PV_ROW 1
|
||||
#define PV_COL 2
|
||||
@@ -125,3 +125,4 @@ endif
|
||||
|
||||
return len( aVideo )
|
||||
|
||||
|
||||
|
||||
@@ -80,25 +80,23 @@ End
|
||||
/* This is the New one Rewriten in C*/
|
||||
|
||||
#include "extend.h"
|
||||
#if defined(HB_OS_DOS)
|
||||
#include "dos.h"
|
||||
#endif
|
||||
|
||||
HB_FUNC(FT_RMDIR)
|
||||
{
|
||||
#if defined(HB_OS_DOS)
|
||||
{
|
||||
|
||||
int Status;
|
||||
char *path=hb_parc(1);
|
||||
union REGS regs;
|
||||
struct SREGS sregs;
|
||||
segread(&sregs);
|
||||
regs.h.ah=0x3A ;
|
||||
sregs.ds=FP_SEG(path);
|
||||
regs.HB_XREGS.dx=FP_OFF(path);
|
||||
int86x(0x21,®s,®s,&sregs);
|
||||
Status=regs.HB_XREGS.ax;
|
||||
hb_retni(Status);
|
||||
}
|
||||
int Status;
|
||||
char *path=hb_parc(1);
|
||||
union REGS regs;
|
||||
struct SREGS sregs;
|
||||
segread(&sregs);
|
||||
regs.h.ah=0x3A ;
|
||||
sregs.ds=FP_SEG(path);
|
||||
regs.HB_XREGS.dx=FP_OFF(path);
|
||||
int86x(0x21,®s,®s,&sregs);
|
||||
Status=regs.HB_XREGS.ax;
|
||||
hb_retni(Status);
|
||||
#endif
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
@@ -71,7 +71,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define KEYB 22
|
||||
|
||||
@@ -101,3 +101,4 @@ FUNCTION FT_SCANCODE()
|
||||
aRegs[ AX ] = MAKEHI( 0 )
|
||||
FT_INT86( KEYB, aRegs )
|
||||
RETURN ( chr(LOWBYTE( aRegs[AX] )) + chr(HIGHBYTE( aRegs[AX] )) )
|
||||
|
||||
|
||||
@@ -67,7 +67,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DOS 33
|
||||
#define SETDATE 43
|
||||
@@ -94,3 +94,4 @@ function FT_SETDATE( dDate )
|
||||
aregs[ DX ] = ( month( dDate ) * ( 2 ^ 8 ) ) + day( dDate )
|
||||
|
||||
return( FT_INT86( DOS, aRegs ) )
|
||||
|
||||
|
||||
@@ -65,7 +65,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DOS 33
|
||||
#define SETTIME 45
|
||||
@@ -95,3 +95,4 @@ function FT_SETTIME( cTime )
|
||||
aRegs[ DX ] = SECS( cTime ) * ( 2 ^ 8 )
|
||||
|
||||
return( FT_INT86( DOS, aRegs ) )
|
||||
|
||||
|
||||
@@ -53,7 +53,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define MEMSIZE 18
|
||||
|
||||
@@ -70,3 +70,4 @@ FUNCTION FT_SYSMEM()
|
||||
FT_INT86( MEMSIZE, aRegs )
|
||||
|
||||
RETURN ( aRegs[ AX ] )
|
||||
|
||||
|
||||
@@ -84,7 +84,7 @@
|
||||
* $END$
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define DOS 33
|
||||
#define TEMPNAME 90
|
||||
@@ -137,3 +137,4 @@ FUNCTION FT_TEMPFIL( cPath, lHide )
|
||||
endif
|
||||
|
||||
RETURN cRet
|
||||
|
||||
|
||||
@@ -24,7 +24,7 @@
|
||||
*
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define VIDEO 16
|
||||
|
||||
@@ -134,3 +134,4 @@ FUNCTION FT_GETVCUR( nPage )
|
||||
FT_INT86( VIDEO, aRegs )
|
||||
|
||||
RETURN ( { HIGHBYTE( aRegs[CX] ), LOWBYTE( aRegs[CX] ), HIGHBYTE( aRegs[DX] ), LOWBYTE( aRegs[DX] ) } )
|
||||
|
||||
|
||||
@@ -24,7 +24,7 @@
|
||||
*
|
||||
*/
|
||||
|
||||
#include "FTINT86.CH"
|
||||
#include "ftint86.ch"
|
||||
|
||||
#define VIDEO 16
|
||||
#define GETMODE 15
|
||||
@@ -124,3 +124,4 @@ FUNCTION FT_GETMODE()
|
||||
RETURN ( LOWBYTE( aRegs[ AX ] ) )
|
||||
*/
|
||||
RETURN _ft_getmode()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user