40de465432
* harbour/common.mak
! updated for new files
* harbour/source/debug/Makefile
* harbour/source/debug/dbgbrwsr.prg
* harbour/source/debug/dbghelp.prg
* harbour/source/debug/dbgmenu.prg
* harbour/source/debug/dbgtarr.prg
* harbour/source/debug/dbgtmenu.prg
* harbour/source/debug/dbgtmitm.prg
* harbour/source/debug/dbgtobj.prg
* harbour/source/debug/dbgtwin.prg
* harbour/source/debug/dbgwa.prg
* harbour/source/debug/debugger.prg
+ harbour/source/debug/dbgaltd.prg
+ harbour/source/debug/dbgthsh.prg
* debugger code borrowed from xHarbour
+ harbour/include/hbcompat.ch
* xHarbour compatibility defines
35 lines
1.0 KiB
Plaintext
35 lines
1.0 KiB
Plaintext
/*** hbcompat.ch ***/
|
|
|
|
#ifdef __HARBOUR__
|
|
|
|
#ifdef __XHARBOUR__
|
|
#include "gtinfo.ch"
|
|
#include "gfx.ch"
|
|
#else
|
|
#include "hbgtinfo.ch"
|
|
#include "hbgfx.ch"
|
|
#endif
|
|
|
|
|
|
#ifdef __XHARBOUR__
|
|
#xtranslate hb_gtSys => gtSys
|
|
#xtranslate hb_gtInfo([<xx,...>]) => gtInfo([<xx>])
|
|
#xtranslate hb_gtVersion([<xx>]) => hb_gt_Version([<xx>])
|
|
#else
|
|
#xtranslate gtSys => hb_gtSys
|
|
#xtranslate gtInfo([<xx,...>]) => hb_gtInfo([<xx>])
|
|
#xtranslate hb_gt_Version([<xx>]) => hb_gtVersion([<xx>])
|
|
#xtranslate gtSetClipboard(<xx>) => hb_gtInfo( GTI_CLIPBOARDDATA, <xx> )
|
|
#xtranslate gtGetClipboard() => hb_gtInfo( GTI_CLIPBOARDDATA )
|
|
#xtranslate gtGetClipBoardSize() => len( hb_gtInfo( GTI_CLIPBOARDDATA ) )
|
|
#xtranslate gtPasteClipBoard([<n>]) => hb_gtInfo( GTI_CLIPBOARDPAST )
|
|
#xtranslate gfxPrimitive([<xx,...>])=> hb_gfxPrimitive([<xx>])
|
|
#xtranslate gfxText([<xx,...>]) => hb_gfxText([<xx>])
|
|
#endif
|
|
|
|
#ifndef __XHARBOUR__
|
|
#xcommand DEFAULT => OTHERWISE
|
|
#endif
|
|
|
|
#endif /* __HARBOUR__ */
|