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

2017-09-12 15:13 UTC Viktor Szakats (vszakats users.noreply.github.com)

Browse Source 
* bin/check.hb
  * config/*/*.mk
  * contrib/gtwvg/wvgwing.c
  * contrib/hbcomm/comm.prg
  * contrib/hbfbird/tfirebrd.prg
  * contrib/hbfimage/fi_wrp.c
  * contrib/hbformat/hbfmtcls.prg
  * contrib/hbformat/utils/hbformat.prg
  * contrib/hbhttpd/core.prg
  * contrib/hbnetio/utils/hbnetio/hbnetio.prg
  * contrib/hbnetio/utils/hbnetio/netiomgm.hb
  * contrib/hbsqlit3/hdbc.prg
  * contrib/hbwin/win_bmp.c
  * contrib/xhb/htmutil.prg
  * contrib/xhb/thtm.prg
  * contrib/xhb/xhbarr.c
  * contrib/xhb/xhbtedit.prg
  * ChangeLog.txt
  * debian/control
  * debian/copyright
  * doc/*.txt
  * LICENSE.txt
  * package/harbour.spec
  * README.md
  * src/compiler/hbusage.c
  * src/pp/hbpp.c
  * src/rtl/memoedit.prg
  * src/rtl/teditor.prg
  * src/rtl/tget.prg
  * src/rtl/version.c
  * utils/hbi18n/hbi18n.prg
  * utils/hbmk2/hbmk2.prg
  * utils/hbmk2/po/hbmk2.hu.po
  * utils/hbtest/hbtest.prg
    * sync with 3.4 fork (no change in functionality)
      CC3 -> CC4 license, copyright banners, some strings, minor
      code changes, doc folder, TOFIX -> FIXME
This commit is contained in:
Viktor Szakats
2017-09-12 15:15:14 +00:00
parent 15795f6330
commit 760112e3c5
81 changed files with 2526 additions and 2457 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/hbusage.c
View File

@@ -260,8 +260,11 @@ void hb_compPrintLogo( HB_COMP_DECL )
{
char * szVer = hb_verHarbour();
#define HB_VER_COMMIT_YEAR "2016"
#define HB_VER_ORIGIN_URL "http://harbour-project.org/"
hb_compOutStd( HB_COMP_PARAM, szVer );
hb_compOutStd( HB_COMP_PARAM,
"\nCopyright (c) 1999-2016, http://harbour-project.org/\n" );
"\nCopyright (c) 1999-" HB_VER_COMMIT_YEAR ", " HB_VER_ORIGIN_URL "\n" );
hb_xfree( szVer );
}

13
src/pp/hbpp.c
View File

@@ -48,6 +48,8 @@
#include "hbapi.h"
#define _DEFAULT_ORIGIN_URL "http://harbour-project.org/"
int hb_verRevision( void )
{
return 0;
@@ -196,7 +198,7 @@ static void hb_pp_generateRules( FILE * fout, PHB_PP_STATE pState, const char *
fprintf( fout, "/*\n"
" * Built-in preprocessor rules.\n"
" *\n"
" * Copyright 2006-2016 Przemyslaw Czerpak <druzus / at / priv.onet.pl>\n"
" * Copyright 2006-present Przemyslaw Czerpak <druzus / at / priv.onet.pl>\n"
" *\n"
" * This file is generated automatically by Harbour preprocessor\n"
" * and is covered by the same license as Harbour PP\n"
@@ -318,7 +320,10 @@ static char * hb_pp_escapeString( char * szString )
return szResult;
}
static int hb_pp_generateVerInfo( char * szVerFile, int iRevID, char * szChangeLogID, char * szLastEntry )
static int hb_pp_generateVerInfo( char * szVerFile,
int iRevID,
char * szChangeLogID,
char * szLastEntry )
{
int iResult = 0;
FILE * fout;
@@ -339,7 +344,7 @@ static int hb_pp_generateVerInfo( char * szVerFile, int iRevID, char * szChangeL
fprintf( fout, "/*\n"
" * Version information and build time switches.\n"
" *\n"
" * Copyright 2008-2016 Przemyslaw Czerpak <druzus / at / priv.onet.pl>\n"
" * Copyright 2008-present Przemyslaw Czerpak <druzus / at / priv.onet.pl>\n"
" *\n"
" * This file is generated automatically by Harbour preprocessor\n"
" * and is covered by the same license as Harbour PP\n"
@@ -786,7 +791,7 @@ int main( int argc, char * argv[] )
{
printf( "Harbour Preprocessor %d.%d.%d%s\n",
HB_VER_MAJOR, HB_VER_MINOR, HB_VER_RELEASE, HB_VER_STATUS );
printf( "Copyright (c) 1999-2016, http://harbour-project.org/\n" );
printf( "Copyright (c) 1999-present, %s\n", _DEFAULT_ORIGIN_URL );
}
if( szFile )

2
src/rtl/memoedit.prg
View File

@@ -264,7 +264,7 @@ METHOD HandleUserKey( nKey, nUdfReturn ) CLASS HBMemoEditor
OTHERWISE
// TOFIX: Not CA-Cl*pper compatible, see teditor.prg
// FIXME: Not CA-Cl*pper compatible, see teditor.prg
IF ( nUdfReturn >= 1 .AND. nUdfReturn <= 31 ) .OR. nUdfReturn == K_ALT_W
::super:Edit( nUdfReturn )
ELSE

6
src/rtl/teditor.prg
View File

@@ -55,7 +55,7 @@
#include "inkey.ch"
#include "setcurs.ch"
/* TOFIX: Leave this here, until this code is cleaned off of RTEs */
/* FIXME: Leave this here, until this code is cleaned off of RTEs */
#pragma linenumber=on
#define _REFRESH_NONE 0
@@ -564,14 +564,14 @@ METHOD Edit( nPassedKey ) CLASS HBEditor
// if it's a movement key ::MoveCursor() handles it
CASE nKeyStd == K_CTRL_B .OR. nKeyStd == K_ALT_B
/* TOFIX: K_ALT_B is not Cl*pper compatible, added as workaround
/* FIXME: K_ALT_B is not Cl*pper compatible, added as workaround
for missing in some GTs extended keycodes which are
necessary to resolve K_CTRL_B and K_CTRL_RIGHT keycode
conflict */
::ReformParagraph()
CASE nKeyStd == K_CTRL_W .OR. nKeyStd == K_ALT_W
/* TOFIX: K_ALT_W is not Cl*pper compatible, added as workaround
/* FIXME: K_ALT_W is not Cl*pper compatible, added as workaround
for missing in some GTs extended keycodes which are
necessary to resolve K_CTRL_W and K_CTRL_END keycode
conflict */

4
src/rtl/tget.prg
View File

@@ -54,7 +54,7 @@
#include "inkey.ch"
#include "button.ch"
/* TOFIX: ::Minus [vszakats] */
/* FIXME: ::Minus [vszakats] */
#define GET_CLR_UNSELECTED 0
#define GET_CLR_ENHANCED 1
@@ -1208,7 +1208,7 @@ METHOD PutMask( xValue, lEdit ) CLASS Get
IF lEdit .AND. ::cType == "N" .AND. ! Empty( cPicMask )
FOR nFor := 1 TO ::nMaxLen
cChar := SubStr( cPicMask, nFor, 1 )
IF cChar $ ",." .AND. SubStr( cBuffer, nFor, 1 ) $ ",." // " " TOFIX
IF cChar $ ",." .AND. SubStr( cBuffer, nFor, 1 ) $ ",." // " " FIXME
IF "E" $ cPicFunc
cChar := iif( cChar == ",", ".", "," )
ENDIF

2
src/rtl/version.c
View File

@@ -129,7 +129,7 @@ HB_FUNC( HB_VERSION )
case HB_VERSION_BITWIDTH: hb_retni( ( int ) sizeof( void * ) * 8 ); break;
case HB_VERSION_MT: hb_retl( hb_vmIsMt() ); break;
case HB_VERSION_SHARED: /* TOFIX: This only works when platforms has separate
case HB_VERSION_SHARED: /* FIXME: This only works when platforms has separate
compilation pass for harbour dynlib build -
it is 32-bit Windows. */