31a85b650e
* utils/hbmk2/hbmk2.*.po
* utils/hbmk2/hbmk2.prg
% minor optimization to recent patch
+ cleanups in some help items
+ '-?' and '-h' options are now accepted as '-help'
+ '-??' and '-hh' options are now accepted as '-longhelp'
- deleted '-license' option, it's now part of '-longhelp'
! hbshell_gtSelect() parameter fixed to be case insentitive
in an internal check
+ tests/clipper.ch
+ added header file that translates certain Harbour
specific functions to ones understood by Clipper.
Useful to compile lightly Harbour specific code
in Clipper (or other Clipper compatible language),
for comparison.
* tests/*.prg
- tests/exthrb.prg
+ tests/hrbext.prg
* website/samples/*.prg.html
! various cleanups, minor fixes, formatting
+ #included "clipper.ch" to enable running what's
possible to run with Clipper
* src/rtl/gtwin/gtwin.c
* src/rtl/gtwvt/gtwvt.c
! return string type for hb_gtInfo( HB_GTI_FONTSEL )
in sync with GTXWC
* contrib/xhb/xhbfunc.c
* include/hbdefs.h
* HB_FUNC_EXEC() macro value to not end with ';',
now it should be added on usage (almost all usages
were such already). To be code formatter friendly.
* contrib/xhb/xhb.hbp
+ contrib/xhb/xhbdepr.prg
+ added compatiblity stubs for functions deprecated from
Harbour core, but still available in xHarbour. (xHarbour
has yet to deprecate anything)
So here we can gather stuff that's deprecated from Harbour
core (except internal functions - most of them named '__*' -,
and the "evil" ones)
; NOTE: Runtime efficiency is not a goal with these stubs,
only "cheap" long term maintainability.
- contrib/hbblat/tests/blattest.prg
+ contrib/hbblat/tests/test.prg
* extras/guestbk/guestbk.hbp
- extras/guestbk/testcgi.prg
+ extras/guestbk/cgi.prg
* renames
* src/vm/dynsym.c
* contrib/hbfbird/tests/testapi.c
* contrib/xhb/thtm.prg
* minor
69 lines
2.6 KiB
Plaintext
69 lines
2.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour compatibility header for
|
|
* other Clipper compatible languages
|
|
*
|
|
* Copyright 2013 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#ifndef __HARBOUR__
|
|
|
|
#ifndef __XPP__
|
|
#ifndef __CLIP__
|
|
#ifndef FlagShip
|
|
#define __CLIPPER__
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef __CLIPPER__
|
|
#ifndef __PLATFORM__DOS
|
|
#define __PLATFORM__DOS
|
|
#endif
|
|
#endif
|
|
|
|
#xtranslate hb_eol() => ( Chr( 13 ) + Chr( 10 ) )
|
|
#xtranslate hb_ps() => "\"
|
|
#xtranslate hb_osFileMask() => "*.*"
|
|
#xtranslate hb_run( <c> ) => __Run( <c> )
|
|
|
|
#xtranslate hb_dbExists( <t> ) => File( <t> )
|
|
#xtranslate hb_dbDrop( <t> ) => FErase( <t> )
|
|
|
|
#xtranslate HB_ISSTRING( <v> ) => ( ValType( <v> ) $ "CM" )
|
|
#xtranslate HB_ISNUMERIC( <v> ) => ( ValType( <v> ) == "N" )
|
|
#xtranslate HB_ISLOGICAL( <v> ) => ( ValType( <v> ) == "L" )
|
|
#xtranslate HB_ISARRAY( <v> ) => ( ValType( <v> ) == "A" )
|
|
#xtranslate HB_ISOBJECT( <v> ) => ( ValType( <v> ) == "O" )
|
|
|
|
#xtranslate hb_keyCode( <n> ) => Asc( <n> )
|
|
#xtranslate hb_keyChar( <c> ) => Chr( <c> )
|
|
#xtranslate hb_keyPut( <n> ) => __Keyboard( Chr( <n> ) )
|
|
#xtranslate hb_keyIns( <n> ) => __Keyboard( Chr( <n> ) )
|
|
|
|
#xtranslate hb_BPeek( <c>, <p> ) => Asc( SubStr( <c>, <p>, 1 ) )
|
|
#xtranslate hb_BCode( <c> ) => Asc( <c> )
|
|
#xtranslate hb_BChar( <n> ) => Chr( <n> )
|
|
#xtranslate hb_BLen( <c> ) => Len( <c> )
|
|
#xtranslate hb_BSubStr( <c>, <p>[, <l>] ) => SubStr( <c>, <p>, <l> )
|
|
#xtranslate hb_BLeft( <c>, <l> ) => Left( <c>, <l> )
|
|
#xtranslate hb_BRight( <c>, <l> ) => Right( <c>, <l> )
|
|
#xtranslate hb_BStrTran( <c>, <s>[, <r>] ) => StrTran( <c>, <s>, <r> )
|
|
|
|
#xtranslate hb_ntos( <n> ) => LTrim( Str( <n> ) )
|
|
#xtranslate hb_SToD( [<s>] ) => Eval( {| s, df, dt | df := Set( _SET_DATEFORMAT, "YYYY/MM/DD" ), dt := CToD( Stuff( Stuff( s, 7, 0, "/" ), 5, 0, "/" ) ), Set( _SET_DATEFORMAT, df ), dt }, <s> )
|
|
#xtranslate hb_Compiler() => "C"
|
|
#xtranslate hb_cdpIsUTF8( [<c>] ) => .F.
|
|
#xtranslate hb_cdpCharMax() => 255
|
|
#xtranslate hb_IsFunction( c ) => ( Type( c + "()" ) == "UI" )
|
|
#xtranslate hb_NToColor( <n> ) => LTrim( Str( Int( <n> % 16 ), 2 ) ) + "/" + LTrim( Str( Int( <n> / 16 ), 2 ) )
|
|
#xtranslate __mvScope() => -1
|
|
#xtranslate HB_SYMBOL_UNUSED( <v> ) =>
|
|
|
|
#endif
|