877ddb4a06
* .gitignore
! removed executable file permission
* package/mpkg_src.sh
! added executable file permission
* contrib/hbct/screen2.c
% use STR API for parameters instead of using local conversions
* contrib/hbct/token1.c
% small simplification
* contrib/hbnetio/netiosrv.c
+ respect timeout parameter also in send operation
* contrib/make.hb
! moved project name normalization and directory verification to
AddProject() function. It fixes HB_BUILD_ADDONS envvar functionality.
* doc/xhb-diff.txt
+ added new paragraph: DECLARATION AND INITIALIZATION OF VARIABLES
* src/rtl/hbcom.c
* added 3-rd parameter to TIOCEXCL and TIOCNXCL ioctl() codes
to pacify valgrind warnings
* include/hbexpra.c
! fixed compilation with HB_USE_ENUM_FUNCTIONS macro
* include/hbapicls.h
* include/hbcompdf.h
* include/hbexpra.c
* src/compiler/harbour.y
* src/vm/classes.c
+ added support for :__enumIsFirst() iterator message. It's opposite
to recently added :__enumIsLast()
+ added support for overloading :__enumIsFirst() and :__enumIsLast()
functionality in custom FOR EACH implementations
* include/hbcompdf.h
* include/hbexpra.c
* src/compiler/harbour.y
+ added support for reverting :__enumIsFirst() and :__enumIsLast()
messages in descendant FOR EACH loops. It's disabled now by 2 #if 0
but I think it should be discussed. Should we keep it enable it?
The answer is not trivial when FOR EACH is used to iterate some
objects. In general such names are confusing.
* src/compiler/harbour.yyc
* src/compiler/harbour.yyh
* regenerated using bison 2.5
* tests/foreach.prg
+ added :__enumIsFirst() to test code
* tests/foreach2.prg
! typo in comment
144 lines
7.0 KiB
C
144 lines
7.0 KiB
C
/*
|
|
* Harbour Project source code:
|
|
* Harbour class API
|
|
*
|
|
* Copyright 2006 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
* 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.txt. 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.
|
|
*
|
|
*/
|
|
|
|
#ifndef HB_APICLS_H_
|
|
#define HB_APICLS_H_
|
|
|
|
#include "hbapi.h"
|
|
|
|
HB_EXTERN_BEGIN
|
|
|
|
#ifdef _HB_API_INTERNAL_
|
|
|
|
#define HB_OO_OP_PLUS 0
|
|
#define HB_OO_OP_MINUS 1
|
|
#define HB_OO_OP_MULT 2
|
|
#define HB_OO_OP_DIVIDE 3
|
|
#define HB_OO_OP_MOD 4
|
|
#define HB_OO_OP_POWER 5
|
|
#define HB_OO_OP_INC 6
|
|
#define HB_OO_OP_DEC 7
|
|
#define HB_OO_OP_EQUAL 8
|
|
#define HB_OO_OP_EXACTEQUAL 9
|
|
#define HB_OO_OP_NOTEQUAL 10
|
|
#define HB_OO_OP_LESS 11
|
|
#define HB_OO_OP_LESSEQUAL 12
|
|
#define HB_OO_OP_GREATER 13
|
|
#define HB_OO_OP_GREATEREQUAL 14
|
|
#define HB_OO_OP_ASSIGN 15
|
|
#define HB_OO_OP_INSTRING 16
|
|
#define HB_OO_OP_INCLUDE 17
|
|
#define HB_OO_OP_NOT 18
|
|
#define HB_OO_OP_AND 19
|
|
#define HB_OO_OP_OR 20
|
|
#define HB_OO_OP_ARRAYINDEX 21
|
|
#define HB_OO_OP_ENUMINDEX 22
|
|
#define HB_OO_OP_ENUMBASE 23
|
|
#define HB_OO_OP_ENUMVALUE 24
|
|
#define HB_OO_OP_ENUMSTART 25
|
|
#define HB_OO_OP_ENUMSKIP 26
|
|
#define HB_OO_OP_ENUMSTOP 27
|
|
#define HB_OO_OP_ENUMISFIRST 28
|
|
#define HB_OO_OP_ENUMISLAST 29
|
|
|
|
#define HB_OO_MAX_OPERATOR 29
|
|
|
|
extern void hb_clsInit( void ); /* initialize Classy/OO system at HVM startup */
|
|
extern void hb_clsDoInit( void ); /* initialize Classy/OO system .prg functions */
|
|
extern void hb_clsReleaseAll( void ); /* releases all defined classes */
|
|
extern void hb_clsIsClassRef( void ); /* classes.c - mark all class internals as used */
|
|
extern HB_BOOL hb_clsHasDestructor( HB_USHORT uiClass );
|
|
extern PHB_SYMB hb_clsMethodSym( PHB_ITEM pBaseSymbol ); /* returns the real method symbol for given stack symbol */
|
|
|
|
extern PHB_SYMB hb_objGetMethod( PHB_ITEM pObject, PHB_SYMB pSymMsg, PHB_STACK_STATE pStack ); /* returns the method pointer of an object class */
|
|
extern HB_BOOL hb_objGetVarRef( PHB_ITEM pObject, PHB_SYMB pMessage, PHB_STACK_STATE pStack ); /* create object variable reference */
|
|
extern HB_BOOL hb_objHasOperator( PHB_ITEM pObject, HB_USHORT uiOperator );
|
|
extern HB_BOOL hb_objOperatorCall( HB_USHORT uiOperator, PHB_ITEM pResult, PHB_ITEM pObject, PHB_ITEM pMsgArg1, PHB_ITEM pMsgArg2 );
|
|
extern void hb_objDestructorCall( PHB_ITEM pObject );
|
|
extern void hb_objCloneTo( PHB_ITEM pDest, PHB_ITEM pSource, PHB_NESTED_CLONED pClonedList );
|
|
|
|
#ifndef HB_NO_PROFILER
|
|
/* profiler for object management */
|
|
extern void hb_mthAddTime( HB_ULONG ulClockTicks ); /* profiler from classes.c */
|
|
#endif
|
|
|
|
#endif /* _HB_API_INTERNAL_ */
|
|
|
|
/* class management */
|
|
extern HB_EXPORT const char * hb_clsName( HB_USHORT uiClass );
|
|
extern HB_EXPORT const char * hb_clsFuncName( HB_USHORT uiClass );
|
|
extern HB_EXPORT const char * hb_clsMethodName( HB_USHORT uiClass, HB_USHORT uiMethod );
|
|
extern HB_EXPORT PHB_SYMB hb_clsFuncSym( HB_USHORT uiClass );
|
|
extern HB_EXPORT HB_BOOL hb_clsIsParent( HB_USHORT uiClass, const char * szParentName ); /* is a class handle inherited from szParentName Class ? */
|
|
extern HB_EXPORT HB_SIZE hb_clsGetVarIndex( HB_USHORT uiClass, PHB_DYNS pVarSym );
|
|
extern HB_EXPORT HB_USHORT hb_clsFindClass( const char * szClass, const char * szFunc );
|
|
|
|
/* object management */
|
|
extern HB_EXPORT HB_USHORT hb_objGetClass( PHB_ITEM pItem ); /* get object class handle */
|
|
extern HB_EXPORT HB_USHORT hb_objSetClass( PHB_ITEM pItem, const char * szClass, const char * szFunc ); /* get object class handle using class name and class function name */
|
|
extern HB_EXPORT const char * hb_objGetClsName( PHB_ITEM pObject ); /* retrieves an object class name */
|
|
extern HB_EXPORT const char * hb_objGetRealClsName( PHB_ITEM pObject, const char * szString ); /* retrieves an object class name for a specific message */
|
|
|
|
extern HB_EXPORT HB_BOOL hb_objHasMsg( PHB_ITEM pObject, const char * szString ); /* returns HB_TRUE/HB_FALSE whether szString is an existing message for object */
|
|
extern HB_EXPORT HB_BOOL hb_objHasMessage( PHB_ITEM pObject, PHB_DYNS pMessage );
|
|
extern HB_EXPORT PHB_ITEM hb_objSendMsg( PHB_ITEM pObj, const char *sMsg, HB_ULONG ulArg, ... );
|
|
extern HB_EXPORT PHB_ITEM hb_objSendMessage( PHB_ITEM pObj, PHB_DYNS pMessage, HB_ULONG ulArg, ... );
|
|
|
|
extern HB_EXPORT PHB_ITEM hb_objGetVarPtr( PHB_ITEM pObject, PHB_DYNS pVarMsg );
|
|
|
|
/* send message which allows to set execution context for debugger */
|
|
extern HB_EXPORT void hb_dbg_objSendMessage( int iProcLevel, PHB_ITEM pObject, PHB_ITEM pMessage, int iParamOffset );
|
|
|
|
extern HB_EXPORT HB_USHORT hb_clsCreate( HB_USHORT usSize, const char * szClassName ); /* Harbour equivalent for Clipper internal __mdCreate() */
|
|
extern HB_EXPORT void hb_clsAdd( HB_USHORT usClassH, const char * szMethodName, PHB_FUNC pFuncPtr ); /* Harbour equivalent for Clipper internal __mdAdd() */
|
|
extern HB_EXPORT void hb_clsAssociate( HB_USHORT usClassH ); /* Harbour equivalent for Clipper internal __mdAssociate() */
|
|
|
|
HB_EXTERN_END
|
|
|
|
#endif /* HB_APICLS_H_ */
|