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

2014-11-29 06:03 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* include/hbapifs.h
  * src/common/hbffind.c
  * src/rtl/direct.c
  * src/rtl/dirscan.prg
  * src/rtl/filebuf.c
    + added lTime member to HB_FFIND structure
    + added 3-rd parmeter to hb_fsDirectory()
    + extended default maximum number of Harbour file IO redirecros to 128
    * use hb_xgrabz()
    * formatting

  * include/hbcompdf.h
  * include/hbpp.h
  * src/compiler/cmdcheck.c
  * src/compiler/genc.c
  * src/compiler/hbcomp.c
  * src/compiler/hbmain.c
  * src/compiler/ppcomp.c
  * src/pp/hbpp.c
  * src/pp/ppcore.c
  * src/pp/pplib.c
    + added support for -ql compiler switch - it disables displaying PRG line
      numbers during compilation
    + added internal support for switch which disables PRG names from final
      PCODE - it's not active by default

  * src/compiler/ppcomp.c
    + allow to change -gc? switch by #pragma directives

  * src/compiler/hbusage.c
    * present '-' as default option separator for all platforms

  * src/rdd/Makefile
  + src/rdd/rddshort.c
  - src/rdd/dbfuncs.prg
    * moved short function names (10 characters Cl*pper compatible) wrappers
      to rddshort.c

  * src/common/hbhash.c
  * src/compiler/gencc.c
  * src/compiler/hbcomp.c
  * src/compiler/hbdbginf.c
  * src/compiler/hbdead.c
  * src/compiler/hbmain.c
  * src/compiler/hbopt.c
  * src/debug/dbgentry.c
  * src/pp/ppcore.c
  * src/rdd/dbf1.c
  * src/rdd/dbfntx/dbfntx1.c
  * src/rdd/delim1.c
  * src/rdd/sdf1.c
  * src/rdd/hsx/hsx.c
  * src/rdd/usrrdd/usrrdd.c
  * src/rdd/wafunc.c
  * src/rdd/workarea.c
  * src/vm/classes.c
  * src/vm/dynsym.c
  * src/vm/estack.c
  * src/vm/runner.c
  * src/vm/set.c
  * src/vm/task.c
  * src/rtl/cdpapi.c
  * src/rtl/filebuf.c
  * src/rtl/gtcgi/gtcgi.c
  * src/rtl/gtcrs/gtcrs.c
  * src/rtl/gtstd/gtstd.c
  * src/rtl/gttrm/gttrm.c
  * src/rtl/gtxwc/gtxwc.c
  * src/rtl/hbdyn.c
  * src/rtl/hbgtcore.c
  * src/rtl/hbi18n1.c
  * src/rtl/hblpp.c
  * src/rtl/hbznet.c
  * src/rtl/iousr.c
    * use hb_xgrabz()

  * src/common/hbprintf.c
    * formatting
    * reduced variable scope

  * src/rdd/dblist.prg
  * src/rdd/hbsix/sxini.prg
  * src/rtl/hbfilehi.prg
    % use new hb_FName*() functions

  * src/codepage/cp_950.c
  * src/codepage/cp_big5.c
  * src/codepage/cp_gbk.c
  * src/codepage/cp_u16le.c
  * src/codepage/cp_utf8.c
  * src/common/hbfopen.c
  * src/common/hbstr.c
  * src/common/strwild.c
  * src/compiler/complex.c
  * src/compiler/genc.c
  * src/compiler/hbopt.c
  * src/compiler/hbusage.c
  * src/debug/dbghelp.prg
  * src/debug/debugger.prg
  * src/hbextern/hbextern.prg
  * src/main/harbour.1
  * src/pp/ppcore.c
  * src/rdd/dbcmd.c
  * src/rdd/dbcmd53.c
  * src/rdd/dbf1.c
  * src/rdd/dbfcdx/dbfcdx1.c
  * src/rdd/dbfntx/dbfntx1.c
  * src/rdd/dbjoin.prg
  * src/rdd/dbnubs.c
  * src/rdd/dbsort.prg
  * src/rdd/dbstrux.prg
  * src/rdd/dbtotal.prg
  * src/rdd/dbupdat.prg
  * src/rdd/hbsix/sxcompat.prg
  * src/rdd/hbsix/sxcrypt.c
  * src/rdd/hbsix/sxini.prg
  * src/rdd/hsx/hsx.c
  * src/rdd/usrrdd/usrrdd.c
  * src/vm/debug.c
  * src/vm/estack.c
  * src/vm/set.c
  * src/vm/task.c
  * src/rtl/achoice.prg
  * src/rtl/adir.prg
  * src/rtl/alert.prg
  * src/rtl/altd.prg
  * src/rtl/base64d.c
  * src/rtl/browse.prg
  * src/rtl/cdpapi.c
  * src/rtl/checkbox.prg
  * src/rtl/color53.prg
  * src/rtl/dbedit.prg
  * src/rtl/dircmd.prg
  * src/rtl/dirscan.prg
  * src/rtl/errapi.c
  * src/rtl/errsys.prg
  * src/rtl/fnsplit.c
  * src/rtl/gtchrmap.c
  * src/rtl/gtcrs/gtcrs.c
  * src/rtl/gtsln/gtsln.c
  * src/rtl/gtsln/mousesln.c
  * src/rtl/gttrm/gttrm.c
  * src/rtl/gtwin/gtwin.c
  * src/rtl/gtwvt/gtwvt.c
  * src/rtl/gtxwc/gtxwc.c
  * src/rtl/gui.prg
  * src/rtl/hbbfish.c
  * src/rtl/hbdoc.prg
  * src/rtl/hbfilehi.prg
  * src/rtl/hbgtcore.c
  * src/rtl/hbi18n2.prg
  * src/rtl/hbini.prg
  * src/rtl/hblpphb.c
  * src/rtl/hbregexc.c
  * src/rtl/memvarhb.prg
  * src/rtl/menusys.prg
  * src/rtl/menuto.prg
  * src/rtl/objfunc.prg
  * src/rtl/padc.c
  * src/rtl/padl.c
  * src/rtl/padr.c
  * src/rtl/profiler.prg
  * src/rtl/radiobtn.prg
  * src/rtl/radiogrp.prg
  * src/rtl/setcolor.c
  * src/rtl/tbcolumn.prg
  * src/rtl/tbrowse.prg
  * src/rtl/tclass.prg
  * src/rtl/tgetint.prg
  * src/rtl/tgetlist.prg
  * src/rtl/tmenusys.prg
  * src/rtl/tobject.prg
  * src/rtl/tpersist.prg
  * src/rtl/tpopup.prg
  * src/rtl/tpopuphb.prg
  * src/rtl/treport.prg
  * src/rtl/tscalar.prg
  * src/rtl/tsymbol.prg
  * src/rtl/ttextlin.prg
  * src/rtl/typefile.prg
    * formatting, casing, comment updating, removed trailing spaces, casting,
      replace hb_itemType() with HB_IS_*() macros, updated variable and
      function names and scopes, pacified unused result warnings, removed
      redundant castings, use HB_SIZEOFARRAY() and sizeof(), removed explicit
      NIL from parameters, use hb_LeftEq[I](), added supports for symbol items
      used as codeblock replacements, use hb_defaultValue(), use FOR EACH
      statement, use SWITCH statement, replaced SubStr() with Left() or
      Right(), use hb_AScan(), use hb_FReadLen()/hb_VFReadLen(),
      removed FO_READ from FOpen() parameters, use Str() instead of PadL(),
      use hb_StrShrink()

  * src/lang/l_el.c
  * src/lang/l_es_419.c
  * src/lang/l_fr.c
  * src/lang/l_hu.c
  * src/lang/l_pt_br.c
  * src/lang/l_sk.c
  * src/lang/l_tr.c
    * synced with Viktor's branch

  * src/rtl/achoice.prg
  * src/rtl/cdpdet.prg
    * synced with Viktor's branch

  * src/vm/Makefile
  + src/vm/short.c
    + added short function names (10 characters Cl*pper compatible) wrappers

  * src/vm/extrap.c
    * synced with Viktor's branch

  * src/rtl/Makefile
  + src/rtl/rtlshort.c
    + added short function names (10 characters Cl*pper compatible) wrappers

  * src/rtl/cdpdetc.c
  * include/harbour.hbx
    + added __wapi_GetConsoleOutputCP()

  * src/rtl/datec.c
  * include/harbour.hbx
    + added hb_CDay( <nDayOfWeek> ) -> <cDayName>

  * src/rtl/filesys.c
    ! do not check for PIPEs handles in WinCE builds
    ! respect OS returnb code in SystemTimeToFileTime()

  * src/rtl/gete.c
    * covered GetE() function by HB_CLP_UNDOC macro

  * src/rtl/philes53.c
    * covered FSetDevMod() function by HB_CLP_UNDOC macro

  * src/rtl/hbdoc.prg
    * use HB_SERIALIZE_COMPRESS instead of explicit hb_ZCompress()
      (incompatible, .hbd files has to be regenerated)

  * src/rtl/hbjson.c
    * add a newline at EOF in human readable mode

  * src/rtl/hbzlibgz.c
    * disabled GZIP support in MSVC WinCE builds

  * src/rtl/philes.c
  * include/harbour.hbx
    + added hb_FReadLen()

  * src/rtl/vfile.c
  * include/harbour.hbx
    + added hb_VFReadLen()

  * src/rtl/strclear.c
    ! check hb_itemGetWriteCL() result

  ; above modifications borrowed from Viktor's branch with some small
    modifications - many thanks

  * src/rtl/hbinet.c
    * extened readahead buffer from 256 to 1500 bytes
    ! fixed possible wrong result in hb_InetDataReady() and redirected
      sockets (i.e. by hb_InetCompress())

  * src/rtl/hbsocket.c
    ! typo in recent modification for BSD socket less builds

  + src/rtl/strutf8.c
  * include/harbour.hbx
    + added hb_StrIsUTF8() - it should be compatible with similar function
      from Viktor's branch

  * src/rtl/tpersist.prg
    * eliminated oSelf private variable and reduced macro expansion to
      item values

  * src/debug/dbgtmenu.prg
  * src/debug/dbgtwin.prg
  * src/debug/debugger.prg
    ! replaced SaveScreen()/RestScreen() with
      __dbgSaveScreen()/__dbgRestScreen() to fix problems with unicode
      characters which do not exists in HVM CP.

  * src/rdd/hbsix/sxcompat.prg
    + added support for timestamp values to sxChar(), sxNum(), sxDate()
      functions.
This commit is contained in:
Przemysław Czerpak
2014-11-29 06:03:17 +01:00
parent 625eb81d3e
commit bc7ff4d5c6
161 changed files with 2461 additions and 1861 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/codepage/cp_950.c
View File

@@ -56,15 +56,15 @@ static HB_CDP_GET_FUNC( CP950_get )
*wc = 0;
if( *pnIndex < nLen )
{
HB_UCHAR uc = pSrc[ ( * pnIndex )++ ];
HB_UCHAR uc = pSrc[ ( *pnIndex )++ ];
if( uc >= ( HB_CP950_FIRST >> 8 ) && uc <= ( HB_CP950_LAST >> 8 ) &&
*pnIndex < nLen )
{
*wc = s_cp950_to_ucs16( ( ( int ) uc << 8 ) | ( HB_UCHAR ) pSrc[ * pnIndex ] );
*wc = s_cp950_to_ucs16( ( ( int ) uc << 8 ) | ( HB_UCHAR ) pSrc[ *pnIndex ] );
if( *wc )
{
( * pnIndex )++;
( *pnIndex )++;
return HB_TRUE;
}
}
@@ -78,16 +78,16 @@ static HB_CDP_GET_FUNC( CP950_get )
static HB_CDP_PUT_FUNC( CP950_put )
{
if( * pnIndex < nLen )
if( *pnIndex < nLen )
{
HB_USHORT b5 = s_ucs16_to_cp950( wc );
if( b5 )
{
if( * pnIndex + 1 < nLen )
if( *pnIndex + 1 < nLen )
{
HB_PUT_BE_UINT16( &pDst[ ( * pnIndex ) ], b5 );
* pnIndex += 2;
HB_PUT_BE_UINT16( &pDst[ ( *pnIndex ) ], b5 );
*pnIndex += 2;
return HB_TRUE;
}
}
@@ -98,9 +98,9 @@ static HB_CDP_PUT_FUNC( CP950_put )
if( wc <= cdp->uniTable->wcMax &&
cdp->uniTable->uniTrans[ wc ] )
pDst[ ( * pnIndex )++ ] = cdp->uniTable->uniTrans[ wc ];
pDst[ ( *pnIndex )++ ] = cdp->uniTable->uniTrans[ wc ];
else
pDst[ ( * pnIndex )++ ] = wc >= 0x100 ? '?' : ( HB_UCHAR ) wc;
pDst[ ( *pnIndex )++ ] = wc >= 0x100 ? '?' : ( HB_UCHAR ) wc;
return HB_TRUE;
}
}

18
src/codepage/cp_big5.c
View File

@@ -56,15 +56,15 @@ static HB_CDP_GET_FUNC( BIG5_get )
*wc = 0;
if( *pnIndex < nLen )
{
HB_UCHAR uc = pSrc[ ( * pnIndex )++ ];
HB_UCHAR uc = pSrc[ ( *pnIndex )++ ];
if( uc >= ( HB_BIG5_FIRST >> 8 ) && uc <= ( HB_BIG5_LAST >> 8 ) &&
*pnIndex < nLen )
{
*wc = s_big5_to_ucs16( ( ( int ) uc << 8 ) | ( HB_UCHAR ) pSrc[ * pnIndex ] );
*wc = s_big5_to_ucs16( ( ( int ) uc << 8 ) | ( HB_UCHAR ) pSrc[ *pnIndex ] );
if( *wc )
{
( * pnIndex )++;
( *pnIndex )++;
return HB_TRUE;
}
}
@@ -78,16 +78,16 @@ static HB_CDP_GET_FUNC( BIG5_get )
static HB_CDP_PUT_FUNC( BIG5_put )
{
if( * pnIndex < nLen )
if( *pnIndex < nLen )
{
HB_USHORT b5 = s_ucs16_to_big5( wc );
if( b5 )
{
if( * pnIndex + 1 < nLen )
if( *pnIndex + 1 < nLen )
{
HB_PUT_BE_UINT16( &pDst[ ( * pnIndex ) ], b5 );
* pnIndex += 2;
HB_PUT_BE_UINT16( &pDst[ ( *pnIndex ) ], b5 );
*pnIndex += 2;
return HB_TRUE;
}
}
@@ -98,9 +98,9 @@ static HB_CDP_PUT_FUNC( BIG5_put )
if( wc <= cdp->uniTable->wcMax &&
cdp->uniTable->uniTrans[ wc ] )
pDst[ ( * pnIndex )++ ] = cdp->uniTable->uniTrans[ wc ];
pDst[ ( *pnIndex )++ ] = cdp->uniTable->uniTrans[ wc ];
else
pDst[ ( * pnIndex )++ ] = wc >= 0x100 ? '?' : ( HB_UCHAR ) wc;
pDst[ ( *pnIndex )++ ] = wc >= 0x100 ? '?' : ( HB_UCHAR ) wc;
return HB_TRUE;
}
}

18
src/codepage/cp_gbk.c
View File

@@ -57,15 +57,15 @@ static HB_CDP_GET_FUNC( GBK_get )
*wc = 0;
if( *pnIndex < nLen )
{
HB_UCHAR uc = pSrc[ ( * pnIndex )++ ];
HB_UCHAR uc = pSrc[ ( *pnIndex )++ ];
if( uc >= ( HB_GBK_FIRST >> 8 ) && uc <= ( HB_GBK_LAST >> 8 ) &&
*pnIndex < nLen )
{
*wc = s_gbk_to_ucs16( ( ( int ) uc << 8 ) | ( HB_UCHAR ) pSrc[ * pnIndex ] );
*wc = s_gbk_to_ucs16( ( ( int ) uc << 8 ) | ( HB_UCHAR ) pSrc[ *pnIndex ] );
if( *wc )
{
( * pnIndex )++;
( *pnIndex )++;
return HB_TRUE;
}
}
@@ -79,16 +79,16 @@ static HB_CDP_GET_FUNC( GBK_get )
static HB_CDP_PUT_FUNC( GBK_put )
{
if( * pnIndex < nLen )
if( *pnIndex < nLen )
{
HB_USHORT gb18030 = s_ucs16_to_gbk( wc );
if( gb18030 )
{
if( * pnIndex + 1 < nLen )
if( *pnIndex + 1 < nLen )
{
HB_PUT_BE_UINT16( &pDst[ ( * pnIndex ) ], gb18030 );
* pnIndex += 2;
HB_PUT_BE_UINT16( &pDst[ ( *pnIndex ) ], gb18030 );
*pnIndex += 2;
return HB_TRUE;
}
}
@@ -99,9 +99,9 @@ static HB_CDP_PUT_FUNC( GBK_put )
if( wc <= cdp->uniTable->wcMax &&
cdp->uniTable->uniTrans[ wc ] )
pDst[ ( * pnIndex )++ ] = cdp->uniTable->uniTrans[ wc ];
pDst[ ( *pnIndex )++ ] = cdp->uniTable->uniTrans[ wc ];
else
pDst[ ( * pnIndex )++ ] = wc >= 0x100 ? '?' : ( HB_UCHAR ) wc;
pDst[ ( *pnIndex )++ ] = wc >= 0x100 ? '?' : ( HB_UCHAR ) wc;
return HB_TRUE;
}
}

12
src/codepage/cp_u16le.c
View File

@@ -53,10 +53,10 @@ static HB_CDP_GET_FUNC( UTF16LE_get )
{
HB_SYMBOL_UNUSED( cdp );
if( * pnIndex + 1 < nLen )
if( *pnIndex + 1 < nLen )
{
* wc = HB_GET_LE_UINT16( &pSrc[ * pnIndex ] );
* pnIndex += 2;
*wc = HB_GET_LE_UINT16( &pSrc[ *pnIndex ] );
*pnIndex += 2;
return HB_TRUE;
}
else
@@ -68,10 +68,10 @@ static HB_CDP_PUT_FUNC( UTF16LE_put )
{
HB_SYMBOL_UNUSED( cdp );
if( * pnIndex + 1 < nLen )
if( *pnIndex + 1 < nLen )
{
HB_PUT_LE_UINT16( &pDst[ * pnIndex ], wc );
* pnIndex += 2;
HB_PUT_LE_UINT16( &pDst[ *pnIndex ], wc );
*pnIndex += 2;
return HB_TRUE;
}
return HB_FALSE;

4
src/codepage/cp_utf8.c
View File

@@ -229,8 +229,8 @@ static HB_CDP_CMP_FUNC( UTF8_cmpi )
while( nLen-- )
{
HB_UCHAR u1 = cdp->upper[ ( HB_UCHAR ) * szFirst++ ],
u2 = cdp->upper[ ( HB_UCHAR ) * szSecond++ ];
HB_UCHAR u1 = cdp->upper[ ( HB_UCHAR ) *szFirst++ ],
u2 = cdp->upper[ ( HB_UCHAR ) *szSecond++ ];
if( u1 != u2 )
{
iRet = ( u1 < u2 ) ? -1 : 1;