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

2012-12-17 19:04 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
- doc/en/hb_api.txt
  - doc/en/hb_apier.txt
  - doc/en/hb_apifs.txt
  - doc/en/hb_apigt.txt
  - doc/en/hb_apiit.txt
  - doc/en/hb_apiln.txt
  - doc/en/hb_apird.txt
  - doc/en/hb_compa.txt
  - doc/en/hb_date.txt
  - doc/en/hb_macro.txt
  - doc/en/hb_vm.txt
  * doc/en/hb_set.txt
    - deleted 0.5MB worth of collection of very outdated 1:1 copies 
      of C declarations and their comments from .h headers, as they
      were 12 years ago.

  * include/hbapi.h
  * include/hbvmpub.h
  * src/vm/codebloc.c
    * HB_CODEBLOCK_PTR type renamed to PHB_CODEBLOCK. Old type
      remains for a while for compatibility.
    ; TODO: Remaining list of similar ones:
            public:
            HB_MACRO_PTR         PHB_MACRO
            HB_ERROR_HANDLER_PTR PHB_ERROR_HANDLER
            HB_ERROR_INFO_PTR    PHB_ERROR_INFO
            HB_HASH_ITEM_PTR     PHB_HASH_ITEM
            HB_HASH_TABLE_PTR    PHB_HASH_TABLE
            internal:
            HB_VOID_PTR          PHB_VOID
            HB_CBVAR_PTR         PHB_CBVAR
            HB_EXPR_PTR          PHB_EXPR
            HB_ENUMERATOR_PTR    PHB_ENUMERATOR
            HB_ELSEIF_PTR        PHB_ELSEIF
            HB_LOOPEXIT_PTR      PHB_LOOPEXIT
            HB_SWITCHCASE_PTR    PHB_SWITCHCASE
            HB_SWITCHCMD_PTR     PHB_SWITCHCMD
            HB_RTVAR_PTR         PHB_RTVAR
            HB_COMMON_PTR        PHB_COMMON
            HB_PCODE_INFO_PTR    PHB_PCODE_INFO
            HB_COMP_PTR          PHB_COMP
This commit is contained in:
Viktor Szakats
2012-12-17 18:11:10 +00:00
parent d7d04f5c79
commit 1ac1121aa7
16 changed files with 81 additions and 35573 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
harbour/ChangeLog.txt
View File

@@ -10,6 +10,49 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2012-12-17 19:04 UTC+0100 Viktor Szakats (harbour syenar.net)
- doc/en/hb_api.txt
- doc/en/hb_apier.txt
- doc/en/hb_apifs.txt
- doc/en/hb_apigt.txt
- doc/en/hb_apiit.txt
- doc/en/hb_apiln.txt
- doc/en/hb_apird.txt
- doc/en/hb_compa.txt
- doc/en/hb_date.txt
- doc/en/hb_macro.txt
- doc/en/hb_vm.txt
* doc/en/hb_set.txt
- deleted 0.5MB worth of collection of very outdated 1:1 copies
of C declarations and their comments from .h headers, as they
were 12 years ago.
* include/hbapi.h
* include/hbvmpub.h
* src/vm/codebloc.c
* HB_CODEBLOCK_PTR type renamed to PHB_CODEBLOCK. Old type
remains for a while for compatibility.
; TODO: Remaining list of similar ones:
public:
HB_MACRO_PTR PHB_MACRO
HB_ERROR_HANDLER_PTR PHB_ERROR_HANDLER
HB_ERROR_INFO_PTR PHB_ERROR_INFO
HB_HASH_ITEM_PTR PHB_HASH_ITEM
HB_HASH_TABLE_PTR PHB_HASH_TABLE
internal:
HB_VOID_PTR PHB_VOID
HB_CBVAR_PTR PHB_CBVAR
HB_EXPR_PTR PHB_EXPR
HB_ENUMERATOR_PTR PHB_ENUMERATOR
HB_ELSEIF_PTR PHB_ELSEIF
HB_LOOPEXIT_PTR PHB_LOOPEXIT
HB_SWITCHCASE_PTR PHB_SWITCHCASE
HB_SWITCHCMD_PTR PHB_SWITCHCMD
HB_RTVAR_PTR PHB_RTVAR
HB_COMMON_PTR PHB_COMMON
HB_PCODE_INFO_PTR PHB_PCODE_INFO
HB_COMP_PTR PHB_COMP
2012-12-17 18:35 UTC+0100 Viktor Szakats (harbour syenar.net)
* utils/hbmk2/hbmk2.prg
! hbshell_DirBase()/hbshell_ProgName() fixed to

7772
harbour/doc/en/hb_api.txt
View File

File diff suppressed because it is too large Load Diff

1520
harbour/doc/en/hb_apier.txt
View File

File diff suppressed because it is too large Load Diff

1439
harbour/doc/en/hb_apifs.txt
View File

File diff suppressed because it is too large Load Diff

4765
harbour/doc/en/hb_apigt.txt
View File

File diff suppressed because it is too large Load Diff

2302
harbour/doc/en/hb_apiit.txt
View File

File diff suppressed because it is too large Load Diff

386
harbour/doc/en/hb_apiln.txt
View File

@@ -1,386 +0,0 @@
/*
* $Id$
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://harbour-project.org
*
* Copyright 1999-2001 Viktor Szakats (harbour syenar.net)
* Header file for the API
* $SUBCATEGORY$
* Language and Nation
*
* See COPYING.txt for licensing terms.
*
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langRegister()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langRegister( PHB_LANG lang ) --> ( HB_BOOL )bResult
$ARGUMENTS$
<lang>
$RETURNS$
<bResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langDeRegister()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langDeRegister( char * pszID ) --> ( HB_BOOL )bResult
$ARGUMENTS$
<pszID>
$RETURNS$
<bResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langFind()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langFind( char * pszID ) --> ( PHB_LANG )pResult
$ARGUMENTS$
<pszID>
$RETURNS$
<pResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langSelect()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langSelect( PHB_LANG lang ) --> ( PHB_LANG )pResult
$ARGUMENTS$
<lang>
$RETURNS$
<pResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langSelectID()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langSelectID( char * pszID ) --> ( char * )pszResult
$ARGUMENTS$
<pszID>
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langDGetItem()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langDGetItem( int iIndex ) --> ( void * )pResult
$ARGUMENTS$
<iIndex>
$RETURNS$
<pResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langID()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langID( void ) --> ( char * )pszResult
$ARGUMENTS$
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langName()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langName( void ) --> ( char * )pszResult
$ARGUMENTS$
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_langDGetErrorDesc()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype
#include "hbapilng.h"
hb_langDGetErrorDesc( ULONG ulIndex ) --> ( char * )pszResult
$ARGUMENTS$
<ulIndex>
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
HB_LANG_REQUEST()
$CATEGORY$
API
$SUBCATEGORY$
Language and Nation
$ONELINER$
$SYNTAX$
C Prototype (macro definition)
#include "hbapilng.h"
HB_LANG_REQUEST( id ) --> <see HB_LANG_REQUEST_( id )>
$ARGUMENTS$
<id>
$RETURNS$
<see HB_LANG_REQUEST_( id )>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Header file is hbapilng.h
$PLATFORMS$
All
$SEEALSO$
$END$
*/

8828
harbour/doc/en/hb_apird.txt
View File

File diff suppressed because it is too large Load Diff

5749
harbour/doc/en/hb_compa.txt
View File

File diff suppressed because it is too large Load Diff

522
harbour/doc/en/hb_date.txt
View File

@@ -1,522 +0,0 @@
/*
* $Id$
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://harbour-project.org
*
* Copyright 1999-2001 Viktor Szakats (harbour syenar.net)
* Header file for the API
*
* See COPYING.txt for licensing terms.
*
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateSeconds()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateSeconds( void ) --> ( double )dResult
$ARGUMENTS$
$RETURNS$
<dResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_dateToday()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateToday( long * plYear, long * plMonth, long * plDay )
$ARGUMENTS$
<plYear>
<plMonth>
<plDay>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_dateTimeStr()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
Get the current workstation time
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateTimeStr( char * pszTime )
$ARGUMENTS$
<pszTime>
$DESCRIPTION$
The current workstation time is stored into the buffer pointed
to by pszTime. This buffer must be at least nine characters long.
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateCMonth()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateCMonth( int iMonth ) --> ( char * )pszResult
$ARGUMENTS$
<iMonth>
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateCDOW()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateCDOW( int iDay ) --> ( char * )pszResult
$ARGUMENTS$
<iDay>
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateDOW()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateDOW( long lYear, long lMonth, long lDay ) --> ( long )lResult
$ARGUMENTS$
<lYear>
<lMonth>
<lDay>
$RETURNS$
<lResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateFormat()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateFormat( const char * szDate, char * szFormattedDate, const char * szDateFormat ) --> ( char * )pszResult
$ARGUMENTS$
<szDate>
<szFormattedDate>
<szDateFormat>
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateEncode()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateEncode( long lYear, long lMonth, long lDay ) --> ( long )lResult
$ARGUMENTS$
<lYear>
<lMonth>
<lDay>
$RETURNS$
<lResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_dateDecode()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateDecode( long julian, long * plYear, long * plMonth, long * plDay )
$ARGUMENTS$
<julian>
<plYear>
<plMonth>
<plDay>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_dateStrPut()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateStrPut( char * szDate, long lYear, long lMonth, long lDay )
$ARGUMENTS$
<szDate>
<lYear>
<lMonth>
<lDay>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_dateStrGet()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateStrGet( const char * szDate, long * plYear, long * plMonth, long * plDay )
$ARGUMENTS$
<szDate>
<plYear>
<plMonth>
<plDay>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateDecStr()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateDecStr( char * szDate, long lJulian ) --> ( char * )pszResult
$ARGUMENTS$
<szDate>
<lJulian>
$RETURNS$
<pszResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function
$NAME$
hb_dateEncStr()
$CATEGORY$
C level API
$SUBCATEGORY$
Date/Time
$ONELINER$
$SYNTAX$
C Prototype
#include "hbdate.h"
hb_dateEncStr( char * szDate ) --> ( long ) lResult
$ARGUMENTS$
<szDate>
$RETURNS$
<lResult>
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/

1129
harbour/doc/en/hb_macro.txt
View File

File diff suppressed because it is too large Load Diff

70
harbour/doc/en/hb_set.txt
View File

@@ -13,76 +13,6 @@
*
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_setInitialize()
$CATEGORY$
C level API
$SUBCATEGORY$
Environment
$ONELINER$
$SYNTAX$
C Prototype
#include "hbset.h"
hb_setInitialize( void )
$ARGUMENTS$
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Procedure
$NAME$
hb_setRelease()
$CATEGORY$
C level API
$SUBCATEGORY$
Environment
$ONELINER$
$SYNTAX$
C Prototype
#include "hbset.h"
hb_setRelease( void )
$ARGUMENTS$
$DESCRIPTION$
$EXAMPLES$
$STATUS$
R
$COMPLIANCE$
NA
$FILES$
Library is core
$PLATFORMS$
All
$SEEALSO$
$END$
*/
/* $DOC$
$TEMPLATE$
Function

1053
harbour/doc/en/hb_vm.txt
View File

File diff suppressed because it is too large Load Diff

42
harbour/include/hbapi.h
View File

@@ -447,7 +447,7 @@ typedef struct _HB_CODEBLOCK
void * pStatics; /* STATICs base frame */
HB_USHORT uiLocals; /* number of referenced local variables */
HB_SHORT dynBuffer; /* is pcode buffer allocated dynamically, SHORT used instead of HB_BOOL intentionally to force optimal alignment */
} HB_CODEBLOCK, * HB_CODEBLOCK_PTR;
} HB_CODEBLOCK, * PHB_CODEBLOCK;
typedef void ( * HB_EXTREF_FUNC0 )( void * );
typedef PHB_ITEM ( * HB_EXTREF_FUNC1 )( PHB_ITEM );
@@ -531,7 +531,7 @@ extern void * hb_xRefResize( void * pMem, HB_SIZE nSave, HB_SIZE nSize, HB_S
#if defined( HB_LEGACY_LEVEL4 )
# define HB_ITEM_PTR PHB_ITEM
# define HB_BASEARRAY_PTR PHB_BASEARRAY
# define PHB_CODEBLOCK HB_CODEBLOCK_PTR
# define HB_CODEBLOCK_PTR PHB_CODEBLOCK
#endif
#define hb_xgrabz( n ) memset( hb_xgrab( ( n ) ), 0, ( n ) )
@@ -675,10 +675,10 @@ extern HB_EXPORT void * hb_parvptrGC( const HB_GC_FUNCS * pFuncs, int iPar
extern HB_EXPORT HB_LONGLONG hb_parvnll( int iParam, ... ); /* retrieve a numeric parameter as a long long */
#endif
extern HB_EXPORT int hb_pcount( void ); /* returns the number of suplied parameters */
extern HB_EXPORT void hb_ret( void ); /* post a NIL return value */
extern HB_EXPORT void hb_retc( const char * szText ); /* returns a string */
extern HB_EXPORT void hb_retc_null( void ); /* returns an empty string */
extern HB_EXPORT int hb_pcount( void ); /* returns the number of suplied parameters */
extern HB_EXPORT void hb_ret( void ); /* post a NIL return value */
extern HB_EXPORT void hb_retc( const char * szText ); /* returns a string */
extern HB_EXPORT void hb_retc_null( void ); /* returns an empty string */
extern HB_EXPORT void hb_retc_buffer( char * szText ); /* sames as above, but accepts an allocated buffer */
extern HB_EXPORT void hb_retc_const( const char * szText ); /* returns a string as a pcode based string */
extern HB_EXPORT void hb_retclen( const char * szText, HB_SIZE nLen ); /* returns a string with a specific length */
@@ -686,25 +686,25 @@ extern HB_EXPORT void hb_retclen_buffer( char * szText, HB_SIZE nLen ); /* sam
extern HB_EXPORT void hb_retclen_const( const char * szText, HB_SIZE nLen ); /* returns a string with a specific length formed from a constant buffer */
extern HB_EXPORT void hb_retds( const char * szDate ); /* returns a date, must use YYYYMMDD format */
extern HB_EXPORT void hb_retd( int iYear, int iMonth, int iDay ); /* returns a date */
extern HB_EXPORT void hb_retdl( long lJulian ); /* returns a long value as a julian date */
extern HB_EXPORT void hb_rettd( double dTimeStamp ); /* returns a double value as a timestamp */
extern HB_EXPORT void hb_rettdt( long lJulian, long lMilliSec ); /* returns two long values as a timestamp */
extern HB_EXPORT void hb_retl( int iTrueFalse ); /* returns a logical integer */
extern HB_EXPORT void hb_retdl( long lJulian ); /* returns a long value as a julian date */
extern HB_EXPORT void hb_rettd( double dTimeStamp ); /* returns a double value as a timestamp */
extern HB_EXPORT void hb_rettdt( long lJulian, long lMilliSec ); /* returns two long values as a timestamp */
extern HB_EXPORT void hb_retl( int iTrueFalse ); /* returns a logical integer */
extern HB_EXPORT void hb_retnd( double dNumber ); /* returns a double */
extern HB_EXPORT void hb_retni( int iNumber ); /* returns a integer number */
extern HB_EXPORT void hb_retnl( long lNumber );/* returns a long number */
extern HB_EXPORT void hb_retns( HB_ISIZ nNumber );/* returns a size */
extern HB_EXPORT void hb_retnint( HB_MAXINT nNumber );/* returns a long number */
extern HB_EXPORT void hb_retni( int iNumber ); /* returns a integer number */
extern HB_EXPORT void hb_retnl( long lNumber ); /* returns a long number */
extern HB_EXPORT void hb_retns( HB_ISIZ nNumber ); /* returns a size */
extern HB_EXPORT void hb_retnint( HB_MAXINT nNumber ); /* returns a long number */
extern HB_EXPORT void hb_retnlen( double dNumber, int iWidth, int iDec ); /* returns a double, with specific width and decimals */
extern HB_EXPORT void hb_retndlen( double dNumber, int iWidth, int iDec ); /* returns a double, with specific width and decimals */
extern HB_EXPORT void hb_retnilen( int iNumber, int iWidth ); /* returns a integer number, with specific width */
extern HB_EXPORT void hb_retnllen( long lNumber, int iWidth ); /* returns a long number, with specific width */
extern HB_EXPORT void hb_retnintlen( HB_MAXINT nNumber, int iWidth ); /* returns a long long number, with specific width */
extern HB_EXPORT void hb_reta( HB_SIZE nLen ); /* returns an array with a specific length */
extern HB_EXPORT void hb_retptr( void * ptr ); /* returns a pointer */
extern HB_EXPORT void hb_retptrGC( void * ptr ); /* returns a pointer to an allocated memory, collected by GC */
extern HB_EXPORT void hb_reta( HB_SIZE nLen ); /* returns an array with a specific length */
extern HB_EXPORT void hb_retptr( void * ptr ); /* returns a pointer */
extern HB_EXPORT void hb_retptrGC( void * ptr ); /* returns a pointer to an allocated memory, collected by GC */
#ifndef HB_LONG_LONG_OFF
extern HB_EXPORT void hb_retnll( HB_LONGLONG lNumber );/* returns a long long number */
extern HB_EXPORT void hb_retnll( HB_LONGLONG lNumber ); /* returns a long long number */
extern HB_EXPORT void hb_retnlllen( HB_LONGLONG lNumber, int iWidth ); /* returns a long long number, with specific width */
#endif
@@ -1057,10 +1057,10 @@ extern HB_EXPORT void hb_winmainArgVFree( void );
/* Codeblock management */
extern HB_EXPORT void * hb_codeblockId( PHB_ITEM pItem ); /* retrieves the codeblock unique ID */
extern HB_CODEBLOCK_PTR hb_codeblockNew( const HB_BYTE * pBuffer, HB_USHORT uiLocals, const HB_BYTE * pLocalPosTable, PHB_SYMB pSymbols, HB_SIZE nLen ); /* create a code-block */
extern HB_CODEBLOCK_PTR hb_codeblockMacroNew( const HB_BYTE * pBuffer, HB_SIZE nLen );
extern PHB_CODEBLOCK hb_codeblockNew( const HB_BYTE * pBuffer, HB_USHORT uiLocals, const HB_BYTE * pLocalPosTable, PHB_SYMB pSymbols, HB_SIZE nLen ); /* create a code-block */
extern PHB_CODEBLOCK hb_codeblockMacroNew( const HB_BYTE * pBuffer, HB_SIZE nLen );
extern PHB_ITEM hb_codeblockGetVar( PHB_ITEM pItem, int iItemPos ); /* get local variable referenced in a codeblock */
extern PHB_ITEM hb_codeblockGetRef( HB_CODEBLOCK_PTR pCBlock, int iItemPos ); /* get local variable passed by reference */
extern PHB_ITEM hb_codeblockGetRef( PHB_CODEBLOCK pCBlock, int iItemPos ); /* get local variable passed by reference */
/* memvars subsystem */
extern void hb_memvarsClear( HB_BOOL fAll ); /* clear all PUBLIC and PRIVATE variables optionally without GetList PUBLIC variable */

2
harbour/include/hbvmpub.h
View File

@@ -172,7 +172,7 @@ struct _HB_SYMB;
/* basic types */
typedef void * PHB_ITEM;
typedef void * HB_CODEBLOCK_PTR;
typedef void * PHB_CODEBLOCK;
typedef void * PHB_PCODEFUNC;
typedef void HB_STACK;

32
harbour/src/vm/codebloc.c
View File

@@ -70,7 +70,7 @@ static const HB_BYTE s_pCode[ 2 ] = { HB_P_PUSHNIL, HB_P_ENDBLOCK };
*/
static HB_GARBAGE_FUNC( hb_codeblockGarbageDelete )
{
HB_CODEBLOCK_PTR pCBlock = ( HB_CODEBLOCK_PTR ) Cargo;
PHB_CODEBLOCK pCBlock = ( PHB_CODEBLOCK ) Cargo;
HB_TRACE( HB_TR_DEBUG, ( "hb_codeblockGarbageDelete(%p)", Cargo ) );
@@ -107,7 +107,7 @@ static HB_GARBAGE_FUNC( hb_codeblockGarbageDelete )
static HB_GARBAGE_FUNC( hb_codeblockGarbageMark )
{
HB_CODEBLOCK_PTR pCBlock = ( HB_CODEBLOCK_PTR ) Cargo;
PHB_CODEBLOCK pCBlock = ( PHB_CODEBLOCK ) Cargo;
HB_TRACE( HB_TR_DEBUG, ( "hb_codeblockGarbageMark(%p)", Cargo ) );
@@ -140,14 +140,14 @@ static const HB_GC_FUNCS s_gcCodeblockFuncs =
* Note: pLocalPosTable cannot be used if uiLocals is ZERO
*
*/
HB_CODEBLOCK_PTR hb_codeblockNew( const HB_BYTE * pBuffer,
HB_USHORT uiLocals,
const HB_BYTE * pLocalPosTable,
PHB_SYMB pSymbols,
HB_SIZE nLen )
PHB_CODEBLOCK hb_codeblockNew( const HB_BYTE * pBuffer,
HB_USHORT uiLocals,
const HB_BYTE * pLocalPosTable,
PHB_SYMB pSymbols,
HB_SIZE nLen )
{
HB_STACK_TLS_PRELOAD
HB_CODEBLOCK_PTR pCBlock;
PHB_CODEBLOCK pCBlock;
PHB_ITEM pLocals, pBase;
const HB_BYTE * pCode;
@@ -227,7 +227,7 @@ HB_CODEBLOCK_PTR hb_codeblockNew( const HB_BYTE * pBuffer,
pLocal = hb_stackSelfItem();
if( HB_IS_BLOCK( pLocal ) )
{
HB_CODEBLOCK_PTR pOwner = pLocal->item.asBlock.value;
PHB_CODEBLOCK pOwner = pLocal->item.asBlock.value;
uiLocals = pOwner->uiLocals;
pLocals = pOwner->pLocals;
@@ -239,7 +239,7 @@ HB_CODEBLOCK_PTR hb_codeblockNew( const HB_BYTE * pBuffer,
}
pBase = hb_stackBaseItem();
pCBlock = ( HB_CODEBLOCK_PTR ) hb_gcAllocRaw( sizeof( HB_CODEBLOCK ), &s_gcCodeblockFuncs );
pCBlock = ( PHB_CODEBLOCK ) hb_gcAllocRaw( sizeof( HB_CODEBLOCK ), &s_gcCodeblockFuncs );
pCBlock->pCode = pCode;
pCBlock->dynBuffer = nLen != 0;
@@ -255,10 +255,10 @@ HB_CODEBLOCK_PTR hb_codeblockNew( const HB_BYTE * pBuffer,
return pCBlock;
}
HB_CODEBLOCK_PTR hb_codeblockMacroNew( const HB_BYTE * pBuffer, HB_SIZE nLen )
PHB_CODEBLOCK hb_codeblockMacroNew( const HB_BYTE * pBuffer, HB_SIZE nLen )
{
HB_STACK_TLS_PRELOAD
HB_CODEBLOCK_PTR pCBlock;
PHB_CODEBLOCK pCBlock;
PHB_ITEM pBase;
HB_BYTE * pCode;
@@ -276,7 +276,7 @@ HB_CODEBLOCK_PTR hb_codeblockMacroNew( const HB_BYTE * pBuffer, HB_SIZE nLen )
*/
pCode = ( HB_BYTE * ) memcpy( hb_xgrab( nLen ), pBuffer, nLen );
pCBlock = ( HB_CODEBLOCK_PTR ) hb_gcAllocRaw( sizeof( HB_CODEBLOCK ), &s_gcCodeblockFuncs );
pCBlock = ( PHB_CODEBLOCK ) hb_gcAllocRaw( sizeof( HB_CODEBLOCK ), &s_gcCodeblockFuncs );
pBase = hb_stackBaseItem();
/* Store the number of referenced local variables */
pCBlock->pCode = pCode;
@@ -295,9 +295,9 @@ HB_CODEBLOCK_PTR hb_codeblockMacroNew( const HB_BYTE * pBuffer, HB_SIZE nLen )
/* Get local variable referenced in a codeblock
*/
PHB_ITEM hb_codeblockGetVar( PHB_ITEM pItem, int iItemPos )
PHB_ITEM hb_codeblockGetVar( PHB_ITEM pItem, int iItemPos )
{
HB_CODEBLOCK_PTR pCBlock = pItem->item.asBlock.value;
PHB_CODEBLOCK pCBlock = pItem->item.asBlock.value;
HB_TRACE( HB_TR_DEBUG, ( "hb_codeblockGetVar(%p, %d)", pItem, iItemPos ) );
@@ -307,7 +307,7 @@ PHB_ITEM hb_codeblockGetVar( PHB_ITEM pItem, int iItemPos )
/* Get local variable passed by reference
*/
PHB_ITEM hb_codeblockGetRef( HB_CODEBLOCK_PTR pCBlock, int iItemPos )
PHB_ITEM hb_codeblockGetRef( PHB_CODEBLOCK pCBlock, int iItemPos )
{
HB_TRACE( HB_TR_DEBUG, ( "hb_codeblockGetRef(%p, %d)", pCBlock, iItemPos ) );