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

2010-11-09 12:52 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/hbexpat/hbexpatc.c
  * harbour/contrib/hbexpat/hbexpatp.prg
  * harbour/contrib/hbexpat/hbexpat.hbp
  * harbour/contrib/hbexpat/hbexpat.ch
  * harbour/contrib/hbexpat/hbexpat.hbc
  * harbour/contrib/hbexpat/hbexpat.c
  * harbour/contrib/hbqt/tests/testres.prg
  * harbour/contrib/hbqt/qtuitools/hbqtuitools.hbm
  * harbour/contrib/hbqt/qtuitools/hbqtuitools.hbp
  * harbour/contrib/hbqt/qtuitools/hbqtuitools.hbc
    ! fixed hardcoded CRLF EOLs and set svn:eol-style=native

  * harbour/contrib/xhb/xhbarrex.c
  * harbour/contrib/hbexpat/hbexpatc.c
  * harbour/contrib/hbexpat/hbexpatp.prg
  * harbour/contrib/hbexpat/hbexpat.hbp
  * harbour/contrib/hbexpat/hbexpat.ch
  * harbour/contrib/hbexpat/hbexpat.hbc
  * harbour/contrib/hbexpat/hbexpat.c
  * harbour/contrib/hbqt/qtgui/hbqt_hbqabstractitemmodel.cpp
  * harbour/contrib/hbqt/qtgui/hbqt_init.cpp
  * harbour/contrib/hbqt/qtgui/hbqt_hbqabstractitemmodel.h
  * harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsscene.cpp
  * harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsitem.cpp
  * harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsscene.h
  * harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsitem.h
  * harbour/contrib/hbqt/qtwebkit/hbqtwebkit.hbm
  * harbour/contrib/hbqt/qtwebkit/hbqtwebkit.hbp
  * harbour/contrib/hbqt/qtcore/hbqt_hbqstring.cpp
  * harbour/contrib/hbqt/qtcore/hbqt_init.cpp
  * harbour/contrib/hbqt/qtcore/hbqt_hbqstring.h
  * harbour/contrib/hbqt/qtnetwork/hbqt_init.cpp
  * harbour/contrib/hbqt/tests/testres.prg
  * harbour/contrib/hbqt/tests/wvtqt.hbp
  * harbour/contrib/hbqt/tests/wvtqt.prg
  * harbour/contrib/hbqt/qtuitools/hbqtuitools.hbm
  * harbour/contrib/hbqt/qtuitools/hbqtuitools.hbp
  * harbour/contrib/hbqt/qtuitools/hbqtuitools.hbc
  * harbour/contrib/hbqt/qtdesigner/hbqtdesigner.hbm
  * harbour/contrib/hbqt/qtdesigner/hbqtdesigner.hbp
  * harbour/contrib/hbfship/fldarr.prg
  * harbour/contrib/hbfship/isbegseq.c
  * harbour/contrib/hbfship/isfunc.c
  * harbour/contrib/hbfship/isdb.prg
  * harbour/contrib/hbfship/flddeci.c
    * set svn:keywords="Author Date Id Revision"
This commit is contained in:
Przemyslaw Czerpak
2010-11-09 11:53:06 +00:00
parent 8d2f89774c
commit 0b8fd99286
11 changed files with 1658 additions and 1610 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
harbour/ChangeLog
View File

@@ -16,6 +16,54 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-11-09 12:52 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbexpat/hbexpatc.c
* harbour/contrib/hbexpat/hbexpatp.prg
* harbour/contrib/hbexpat/hbexpat.hbp
* harbour/contrib/hbexpat/hbexpat.ch
* harbour/contrib/hbexpat/hbexpat.hbc
* harbour/contrib/hbexpat/hbexpat.c
* harbour/contrib/hbqt/tests/testres.prg
* harbour/contrib/hbqt/qtuitools/hbqtuitools.hbm
* harbour/contrib/hbqt/qtuitools/hbqtuitools.hbp
* harbour/contrib/hbqt/qtuitools/hbqtuitools.hbc
! fixed hardcoded CRLF EOLs and set svn:eol-style=native
* harbour/contrib/xhb/xhbarrex.c
* harbour/contrib/hbexpat/hbexpatc.c
* harbour/contrib/hbexpat/hbexpatp.prg
* harbour/contrib/hbexpat/hbexpat.hbp
* harbour/contrib/hbexpat/hbexpat.ch
* harbour/contrib/hbexpat/hbexpat.hbc
* harbour/contrib/hbexpat/hbexpat.c
* harbour/contrib/hbqt/qtgui/hbqt_hbqabstractitemmodel.cpp
* harbour/contrib/hbqt/qtgui/hbqt_init.cpp
* harbour/contrib/hbqt/qtgui/hbqt_hbqabstractitemmodel.h
* harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsscene.cpp
* harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsitem.cpp
* harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsscene.h
* harbour/contrib/hbqt/qtgui/hbqt_hbqgraphicsitem.h
* harbour/contrib/hbqt/qtwebkit/hbqtwebkit.hbm
* harbour/contrib/hbqt/qtwebkit/hbqtwebkit.hbp
* harbour/contrib/hbqt/qtcore/hbqt_hbqstring.cpp
* harbour/contrib/hbqt/qtcore/hbqt_init.cpp
* harbour/contrib/hbqt/qtcore/hbqt_hbqstring.h
* harbour/contrib/hbqt/qtnetwork/hbqt_init.cpp
* harbour/contrib/hbqt/tests/testres.prg
* harbour/contrib/hbqt/tests/wvtqt.hbp
* harbour/contrib/hbqt/tests/wvtqt.prg
* harbour/contrib/hbqt/qtuitools/hbqtuitools.hbm
* harbour/contrib/hbqt/qtuitools/hbqtuitools.hbp
* harbour/contrib/hbqt/qtuitools/hbqtuitools.hbc
* harbour/contrib/hbqt/qtdesigner/hbqtdesigner.hbm
* harbour/contrib/hbqt/qtdesigner/hbqtdesigner.hbp
* harbour/contrib/hbfship/fldarr.prg
* harbour/contrib/hbfship/isbegseq.c
* harbour/contrib/hbfship/isfunc.c
* harbour/contrib/hbfship/isdb.prg
* harbour/contrib/hbfship/flddeci.c
* set svn:keywords="Author Date Id Revision"
2010-11-09 11:14 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbhpdf/harupdf.c
! Applied patch from Saulius Zrelskis, fixing non-uppercased

2440
harbour/contrib/hbexpat/hbexpat.c
View File

File diff suppressed because it is too large Load Diff

226
harbour/contrib/hbexpat/hbexpat.ch
View File

@@ -1,113 +1,113 @@
/*
* $Id: hbexpat.ch 1965 2010-08-28 13:19:42Z vszakats $
*/
/*
* Harbour Project source code:
* expat API - Harbour header
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* NOTE: This file is also used by C code. */
#ifndef HBEXPAT_CH_
#define HBEXPAT_CH_
#define HB_XML_STATUS_ERROR 0
#define HB_XML_STATUS_OK 1
#define HB_XML_ERROR_NOT_IMPLEMENTED_ ( -1 ) /* Harbour specific */
#define HB_XML_ERROR_NONE 0
#define HB_XML_ERROR_NO_MEMORY 1
#define HB_XML_ERROR_SYNTAX 2
#define HB_XML_ERROR_NO_ELEMENTS 3
#define HB_XML_ERROR_INVALID_TOKEN 4
#define HB_XML_ERROR_UNCLOSED_TOKEN 5
#define HB_XML_ERROR_PARTIAL_CHAR 6
#define HB_XML_ERROR_TAG_MISMATCH 7
#define HB_XML_ERROR_DUPLICATE_ATTRIBUTE 8
#define HB_XML_ERROR_JUNK_AFTER_DOC_ELEMENT 9
#define HB_XML_ERROR_PARAM_ENTITY_REF 10
#define HB_XML_ERROR_UNDEFINED_ENTITY 11
#define HB_XML_ERROR_RECURSIVE_ENTITY_REF 12
#define HB_XML_ERROR_ASYNC_ENTITY 13
#define HB_XML_ERROR_BAD_CHAR_REF 14
#define HB_XML_ERROR_BINARY_ENTITY_REF 15
#define HB_XML_ERROR_ATTRIBUTE_EXTERNAL_ENTITY_REF 16
#define HB_XML_ERROR_MISPLACED_XML_PI 17
#define HB_XML_ERROR_UNKNOWN_ENCODING 18
#define HB_XML_ERROR_INCORRECT_ENCODING 19
#define HB_XML_ERROR_UNCLOSED_CDATA_SECTION 20
#define HB_XML_ERROR_EXTERNAL_ENTITY_HANDLING 21
#define HB_XML_ERROR_NOT_STANDALONE 22
#define HB_XML_ERROR_UNEXPECTED_STATE 23
#define HB_XML_ERROR_ENTITY_DECLARED_IN_PE 24
#define HB_XML_ERROR_FEATURE_REQUIRES_XML_DTD 25
#define HB_XML_ERROR_CANT_CHANGE_FEATURE_ONCE_PARSING 26
#define HB_XML_ERROR_UNBOUND_PREFIX 27
#define HB_XML_ERROR_UNDECLARING_PREFIX 28
#define HB_XML_ERROR_INCOMPLETE_PE 29
#define HB_XML_ERROR_XML_DECL 30
#define HB_XML_ERROR_TEXT_DECL 31
#define HB_XML_ERROR_PUBLICID 32
#define HB_XML_ERROR_SUSPENDED 33
#define HB_XML_ERROR_NOT_SUSPENDED 34
#define HB_XML_ERROR_ABORTED 35
#define HB_XML_ERROR_FINISHED 36
#define HB_XML_ERROR_SUSPEND_PE 37
#define HB_XML_ERROR_RESERVED_PREFIX_XML 38
#define HB_XML_ERROR_RESERVED_PREFIX_XMLNS 39
#define HB_XML_ERROR_RESERVED_NAMESPACE_URI 40
#define HB_XML_INITIALIZED 0
#define HB_XML_PARSING 1
#define HB_XML_FINISHED 2
#define HB_XML_SUSPENDED 3
#define HB_XML_PARAM_ENTITY_PARSING_NEVER 0
#define HB_XML_PARAM_ENTITY_PARSING_UNLESS_STANDALONE 1
#define HB_XML_PARAM_ENTITY_PARSING_ALWAYS 2
#endif /* HBEXPAT_CH_ */
/*
* $Id$
*/
/*
* Harbour Project source code:
* expat API - Harbour header
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* NOTE: This file is also used by C code. */
#ifndef HBEXPAT_CH_
#define HBEXPAT_CH_
#define HB_XML_STATUS_ERROR 0
#define HB_XML_STATUS_OK 1
#define HB_XML_ERROR_NOT_IMPLEMENTED_ ( -1 ) /* Harbour specific */
#define HB_XML_ERROR_NONE 0
#define HB_XML_ERROR_NO_MEMORY 1
#define HB_XML_ERROR_SYNTAX 2
#define HB_XML_ERROR_NO_ELEMENTS 3
#define HB_XML_ERROR_INVALID_TOKEN 4
#define HB_XML_ERROR_UNCLOSED_TOKEN 5
#define HB_XML_ERROR_PARTIAL_CHAR 6
#define HB_XML_ERROR_TAG_MISMATCH 7
#define HB_XML_ERROR_DUPLICATE_ATTRIBUTE 8
#define HB_XML_ERROR_JUNK_AFTER_DOC_ELEMENT 9
#define HB_XML_ERROR_PARAM_ENTITY_REF 10
#define HB_XML_ERROR_UNDEFINED_ENTITY 11
#define HB_XML_ERROR_RECURSIVE_ENTITY_REF 12
#define HB_XML_ERROR_ASYNC_ENTITY 13
#define HB_XML_ERROR_BAD_CHAR_REF 14
#define HB_XML_ERROR_BINARY_ENTITY_REF 15
#define HB_XML_ERROR_ATTRIBUTE_EXTERNAL_ENTITY_REF 16
#define HB_XML_ERROR_MISPLACED_XML_PI 17
#define HB_XML_ERROR_UNKNOWN_ENCODING 18
#define HB_XML_ERROR_INCORRECT_ENCODING 19
#define HB_XML_ERROR_UNCLOSED_CDATA_SECTION 20
#define HB_XML_ERROR_EXTERNAL_ENTITY_HANDLING 21
#define HB_XML_ERROR_NOT_STANDALONE 22
#define HB_XML_ERROR_UNEXPECTED_STATE 23
#define HB_XML_ERROR_ENTITY_DECLARED_IN_PE 24
#define HB_XML_ERROR_FEATURE_REQUIRES_XML_DTD 25
#define HB_XML_ERROR_CANT_CHANGE_FEATURE_ONCE_PARSING 26
#define HB_XML_ERROR_UNBOUND_PREFIX 27
#define HB_XML_ERROR_UNDECLARING_PREFIX 28
#define HB_XML_ERROR_INCOMPLETE_PE 29
#define HB_XML_ERROR_XML_DECL 30
#define HB_XML_ERROR_TEXT_DECL 31
#define HB_XML_ERROR_PUBLICID 32
#define HB_XML_ERROR_SUSPENDED 33
#define HB_XML_ERROR_NOT_SUSPENDED 34
#define HB_XML_ERROR_ABORTED 35
#define HB_XML_ERROR_FINISHED 36
#define HB_XML_ERROR_SUSPEND_PE 37
#define HB_XML_ERROR_RESERVED_PREFIX_XML 38
#define HB_XML_ERROR_RESERVED_PREFIX_XMLNS 39
#define HB_XML_ERROR_RESERVED_NAMESPACE_URI 40
#define HB_XML_INITIALIZED 0
#define HB_XML_PARSING 1
#define HB_XML_FINISHED 2
#define HB_XML_SUSPENDED 3
#define HB_XML_PARAM_ENTITY_PARSING_NEVER 0
#define HB_XML_PARAM_ENTITY_PARSING_UNLESS_STANDALONE 1
#define HB_XML_PARAM_ENTITY_PARSING_ALWAYS 2
#endif /* HBEXPAT_CH_ */

16
harbour/contrib/hbexpat/hbexpat.hbc
View File

@@ -1,8 +1,8 @@
#
# $Id: hbexpat.hbc 1965 2010-08-28 13:19:42Z vszakats $
#
incpaths=.
libs=${hb_name}
libs=3rd/expat/expat.hbc
#
# $Id$
#
incpaths=.
libs=${hb_name}
libs=3rd/expat/expat.hbc

54
harbour/contrib/hbexpat/hbexpat.hbp
View File

@@ -1,27 +1,27 @@
#
# $Id: hbexpat.hbp 1965 2010-08-28 13:19:42Z vszakats $
#
-hblib
-inc
-o${hb_targetname}
-w3 -es2
-depkeyhead=expat:expat.h
-depcontrol=expat:no{HB_BUILD_3RDEXT='no'}
-depcontrol=expat:${HB_WITH_EXPAT}
-depincpath=expat:/usr/include
-depincpathlocal=expat:3rd/expat
-depfinish=expat
-instfile=inc:hbexpat.ch
-instfile=inc:hbexpatx.ch
hbexpat.c
hbexpatc.c
hbexpatp.prg
hbexpatx.prg
3rd/expat/expat.hbc{HBMK_HAS_EXPAT_LOCAL}
#
# $Id$
#
-hblib
-inc
-o${hb_targetname}
-w3 -es2
-depkeyhead=expat:expat.h
-depcontrol=expat:no{HB_BUILD_3RDEXT='no'}
-depcontrol=expat:${HB_WITH_EXPAT}
-depincpath=expat:/usr/include
-depincpathlocal=expat:3rd/expat
-depfinish=expat
-instfile=inc:hbexpat.ch
-instfile=inc:hbexpatx.ch
hbexpat.c
hbexpatc.c
hbexpatp.prg
hbexpatx.prg
3rd/expat/expat.hbc{HBMK_HAS_EXPAT_LOCAL}

144
harbour/contrib/hbexpat/hbexpatc.c
View File

@@ -1,72 +1,72 @@
/*
* $Id: hbexpatc.c 1965 2010-08-28 13:19:42Z vszakats $
*/
/*
* Harbour Project source code:
* expat API - Harbour complementary functions
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "hbapicdp.h"
#include "hbapiitm.h"
HB_FUNC( __HB_XML_CDPU16MAP )
{
PHB_CODEPAGE cdp = hb_cdpFindExt( hb_parcx( 1 ) );
if( cdp )
{
PHB_ITEM pMap = hb_itemArrayNew( UCHAR_MAX + 1 );
int tmp;
for( tmp = 0; tmp <= UCHAR_MAX; ++tmp )
hb_arraySetNI( pMap, tmp + 1, hb_cdpGetU16( cdp, HB_FALSE, ( HB_UCHAR ) tmp ) );
hb_itemReturnRelease( pMap );
}
else
hb_ret();
}
/*
* $Id$
*/
/*
* Harbour Project source code:
* expat API - Harbour complementary functions
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "hbapicdp.h"
#include "hbapiitm.h"
HB_FUNC( __HB_XML_CDPU16MAP )
{
PHB_CODEPAGE cdp = hb_cdpFindExt( hb_parcx( 1 ) );
if( cdp )
{
PHB_ITEM pMap = hb_itemArrayNew( UCHAR_MAX + 1 );
int tmp;
for( tmp = 0; tmp <= UCHAR_MAX; ++tmp )
hb_arraySetNI( pMap, tmp + 1, hb_cdpGetU16( cdp, HB_FALSE, ( HB_UCHAR ) tmp ) );
hb_itemReturnRelease( pMap );
}
else
hb_ret();
}

150
harbour/contrib/hbexpat/hbexpatp.prg
View File

@@ -1,75 +1,75 @@
/*
* $Id: hbexpatp.prg 1965 2010-08-28 13:19:42Z vszakats $
*/
/*
* Harbour Project source code:
* expat API - Harbour complementary functions
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "hbextcdp.ch"
#define _UNI_NAME_NORM( s ) StrTran( StrTran( StrTran( s, "-" ), "." ), " " )
FUNCTION hb_xml_get_unicode_table( cCP )
STATIC s_uni := NIL
LOCAL cdp
IF s_uni == NIL
/* Gather full list of unicode tables supported by codepage modules. */
s_uni := { => }
FOR EACH cdp IN hb_cdpList()
s_uni[ _UNI_NAME_NORM( hb_cdpUniID( cdp ) ) ] := cdp
NEXT
ENDIF
cCP := _UNI_NAME_NORM( cCP )
IF cCP $ s_uni
RETURN __hb_xml_cdpu16map( s_uni[ cCP ] )
ENDIF
RETURN NIL
/*
* $Id$
*/
/*
* Harbour Project source code:
* expat API - Harbour complementary functions
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "hbextcdp.ch"
#define _UNI_NAME_NORM( s ) StrTran( StrTran( StrTran( s, "-" ), "." ), " " )
FUNCTION hb_xml_get_unicode_table( cCP )
STATIC s_uni := NIL
LOCAL cdp
IF s_uni == NIL
/* Gather full list of unicode tables supported by codepage modules. */
s_uni := { => }
FOR EACH cdp IN hb_cdpList()
s_uni[ _UNI_NAME_NORM( hb_cdpUniID( cdp ) ) ] := cdp
NEXT
ENDIF
cCP := _UNI_NAME_NORM( cCP )
IF cCP $ s_uni
RETURN __hb_xml_cdpu16map( s_uni[ cCP ] )
ENDIF
RETURN NIL

32
harbour/contrib/hbqt/qtuitools/hbqtuitools.hbc
View File

@@ -1,16 +1,16 @@
#
# $Id: hbqtnetwork.hbc 15328 2010-08-06 12:35:40Z vszakats $
#
# ---------------------------------------------------------------
# Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
# See COPYING for licensing terms.
# ---------------------------------------------------------------
incpaths=.
libs=../qtgui/hbqtgui.hbc
libs=hbqtuitools${__HB_DYN__}
{!HB_STATIC_QT}libs=QtUiTools
{HB_STATIC_QT&(allwin|linux)}libs=QtUiTools
#
# $Id$
#
# ---------------------------------------------------------------
# Copyright 2010 Viktor Szakats (harbour.01 syenar.hu)
# See COPYING for licensing terms.
# ---------------------------------------------------------------
incpaths=.
libs=../qtgui/hbqtgui.hbc
libs=hbqtuitools${__HB_DYN__}
{!HB_STATIC_QT}libs=QtUiTools
{HB_STATIC_QT&(allwin|linux)}libs=QtUiTools

30
harbour/contrib/hbqt/qtuitools/hbqtuitools.hbm
View File

@@ -1,15 +1,15 @@
#
# $Id: hbqtnetwork.hbm 15310 2010-08-04 20:04:53Z vszakats $
#
-i.
qth/filelist.hbm
hbqt_init.cpp
hbqt_extern.prg
THbQtUILoader.prg
../qtgui/hbqtgui.hbc
#
# $Id$
#
-i.
qth/filelist.hbm
hbqt_init.cpp
hbqt_extern.prg
THbQtUILoader.prg
../qtgui/hbqtgui.hbc

18
harbour/contrib/hbqt/qtuitools/hbqtuitools.hbp
View File

@@ -1,9 +1,9 @@
#
# $Id: hbqtnetwork.hbp 15310 2010-08-04 20:04:53Z vszakats $
#
../hbqt_common.hbm
hbqtuitools.hbm
-instfile=inc:hbqtuitools.hbx
#
# $Id$
#
../hbqt_common.hbm
hbqtuitools.hbm
-instfile=inc:hbqtuitools.hbx

110
harbour/contrib/hbqt/tests/testres.prg
View File

@@ -1,55 +1,55 @@
/*
* $Id: qtver.prg 14742 2010-06-10 21:02:20Z vszakats $
*/
/*
* Harbour Project source code:
*
* Copyright 2010 Carlos Bacco <carlosbacco at gmail.com>
* www - http://harbour-project.org
*
*/
#include "hbqtgui.ch"
#include "hbtrace.ch"
#include "common.ch"
STATIC s_qApp
STATIC s_re1
INIT PROCEDURE Qt_Start()
s_qApp := QApplication()
s_re1 := QResource()
s_re1:registerResource_1( HBQTRES_TESTRES() )
RETURN
EXIT PROCEDURE Qt_End()
s_re1:unregisterResource_1( HBQTRES_TESTRES() )
s_qApp:quit()
RETURN
PROCEDURE Main()
LOCAL oWnd
LOCAL oDA
LOCAL lb1
LOCAL ly1
oWnd := QMainWindow()
oWnd:setWindowIcon( ":harbour-icon.png" )
oDA := QWidget()
oWnd:setCentralWidget( oDA )
lb1 := Qlabel()
lb1:setAlignment( hb_bitOr( Qt_AlignHCenter, Qt_AlignVCenter ) )
lb1:setPixMap( QPixMap( ":harbour-logo.png" ) )
ly1 := QVBoxLayout( oDA )
ly1:addWidget( lb1 )
oWnd:Show()
s_qApp:exec()
RETURN
/*
* $Id$
*/
/*
* Harbour Project source code:
*
* Copyright 2010 Carlos Bacco <carlosbacco at gmail.com>
* www - http://harbour-project.org
*
*/
#include "hbqtgui.ch"
#include "hbtrace.ch"
#include "common.ch"
STATIC s_qApp
STATIC s_re1
INIT PROCEDURE Qt_Start()
s_qApp := QApplication()
s_re1 := QResource()
s_re1:registerResource_1( HBQTRES_TESTRES() )
RETURN
EXIT PROCEDURE Qt_End()
s_re1:unregisterResource_1( HBQTRES_TESTRES() )
s_qApp:quit()
RETURN
PROCEDURE Main()
LOCAL oWnd
LOCAL oDA
LOCAL lb1
LOCAL ly1
oWnd := QMainWindow()
oWnd:setWindowIcon( ":harbour-icon.png" )
oDA := QWidget()
oWnd:setCentralWidget( oDA )
lb1 := Qlabel()
lb1:setAlignment( hb_bitOr( Qt_AlignHCenter, Qt_AlignVCenter ) )
lb1:setPixMap( QPixMap( ":harbour-logo.png" ) )
ly1 := QVBoxLayout( oDA )
ly1:addWidget( lb1 )
oWnd:Show()
s_qApp:exec()
RETURN