fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
cd4e99c769b0f48b9770bfbcf2644903ed4fb833
harbour-core/harbour/src/rtl/objfunc.prg
Viktor Szakats 393cafddb8 2010-06-03 16:54 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) 
* src/lang/msghuiso.c
  * src/lang/msgskiso.c
  * src/lang/msgrukoi.c
  * src/lang/msgzhgb.c
  * src/lang/msghuwin.c
  * src/lang/msgskwin.c
  * src/lang/msg_tpl.c
  * src/lang/msgruwin.c
  * src/lang/msghr646.c
  * src/lang/msgsl646.c
  * src/lang/msgelwin.c
  * src/lang/msgro.c
  * src/lang/msgpt.c
  * src/lang/msghriso.c
  * src/lang/msghrwin.c
  * src/lang/msgsliso.c
  * src/lang/msgslwin.c
  * src/lang/msghe862.c
  * src/lang/msgcskam.c
  * src/lang/msggl.c
  * src/lang/msgtrwin.c
  * src/lang/msgbgiso.c
  * src/lang/msgeo.c
  * src/lang/msgskkam.c
  * src/lang/msgbgwin.c
  * src/lang/msges.c
  * src/lang/msgzhb5.c
  * src/lang/msgeu.c
  * src/lang/msgpl852.c
  * src/lang/msgsr852.c
  * src/lang/msgde.c
  * src/lang/msgtr857.c
  * src/lang/msgru866.c
  * src/lang/msgcs852.c
  * src/lang/msgfr.c
  * src/lang/msgis850.c
  * src/lang/msgnl.c
  * src/lang/msghu852.c
  * src/lang/msgsk852.c
  * src/lang/msgca.c
  * src/lang/msgplmaz.c
  * src/lang/msgpliso.c
  * src/lang/msgplwin.c
  * src/lang/msgbg866.c
  * src/lang/msgid.c
  * src/lang/msgltwin.c
  * src/lang/msgptiso.c
  * src/lang/msgsriso.c
  * src/lang/msgel.c
  * src/lang/msgdewin.c
  * src/lang/msghr852.c
  * src/lang/msgko.c
  * src/lang/msghewin.c
  * src/lang/msgit.c
  * src/lang/msgsl852.c
  * src/lang/msghucwi.c
  * src/lang/msgcsiso.c
  * src/lang/msgcswin.c
  * src/lang/msgeswin.c
  * src/vm/initsymb.c
  * src/vm/hashfunc.c
  * src/vm/macro.c
  * src/vm/evalhb.c
  * src/vm/mainwin.c
  * src/vm/strapi.c
  * src/vm/harbinit.prg
  * src/vm/pcount.c
  * src/vm/runner.c
  * src/vm/estack.c
  * src/vm/codebloc.c
  * src/vm/hashes.c
  * src/vm/maindllp/dllpcode.c
  * src/vm/maindllp/dllext.c
  * src/vm/dynsym.c
  * src/vm/debug.c
  * src/vm/maindllh.c
  * src/vm/itemapi.c
  * src/vm/garbage.c
  * src/vm/asort.c
  * src/vm/hvm.c
  * src/vm/pvalue.c
  * src/vm/cmdarg.c
  * src/vm/procaddr.c
  * src/vm/mainstd.c
  * src/vm/arrays.c
  * src/vm/task.c
  * src/vm/fm.c
  * src/vm/extrap.c
  * src/vm/proc.c
  * src/vm/thread.c
  * src/vm/memvars.c
  * src/vm/arrayshb.c
  * src/vm/memvclip.c
  * src/vm/vm.c
  * src/vm/hvmall.c
  * src/vm/main.c
  * src/vm/break.c
  * src/vm/eval.c
  * src/vm/extend.c
  * src/vm/dynlibhb.c
  * src/vm/set.c
  * src/vm/initexit.c
  * src/vm/classes.c
  * src/rtl/lennum.c
  * src/rtl/scroll.c
  * src/rtl/gtdos/gtdos.c
  * src/rtl/strxor.c
  * src/rtl/setposbs.c
  * src/rtl/fscopy.c
  * src/rtl/strcase.c
  * src/rtl/run.c
  * src/rtl/gtwin/gtwin.c
  * src/rtl/defpath.c
  * src/rtl/gtxwc/gtxwc.h
  * src/rtl/gtxwc/gtxwc.c
  * src/rtl/tscalars.c
  * src/rtl/hbdynhb.c
  * src/rtl/substr.c
  * src/rtl/round.c
  * src/rtl/oldbox.c
  * src/rtl/typefile.prg
  * src/rtl/tbcolumn.prg
  * src/rtl/math.c
  * src/rtl/getsys53.prg
  * src/rtl/objfunc.prg
  * src/rtl/empty.c
  * src/rtl/tobject.prg
  * src/rtl/gtcrs/gtcrs.h
  * src/rtl/hbzlibgz.c
  * src/rtl/trim.c
  * src/rtl/setpos.c
  * src/rtl/fnsplit.c
  * src/rtl/gtfunc.c
  * src/rtl/base64c.c
  * src/rtl/binnum.c
  * src/rtl/box.c
  * src/rtl/filehb.c
  * src/rtl/hbtoken.c
  * src/rtl/tscalard.c
  * src/rtl/fstemp.c
  * src/rtl/gtchrmap.c
  * src/rtl/tscalarl.c
  * src/rtl/tscalart.c
  * src/rtl/radiobhb.prg
  * src/rtl/type.c
  * src/rtl/tgethb.prg
  * src/rtl/strmatch.c
  * src/rtl/ampm.c
  * src/rtl/base64.prg
  * src/rtl/readkey.prg
  * src/rtl/hbsha1hm.c
  * src/rtl/errsys.prg
  * src/rtl/tpopup.prg
  * src/rtl/do.c
  * src/rtl/einstvau.prg
  * src/rtl/gtstd/gtstd.c
  * src/rtl/descend.c
  * src/rtl/gttrm/gttrm.c
  * src/rtl/maxrow.c
  * src/rtl/replic.c
  * src/rtl/xhelp.c
  * src/rtl/setta.prg
  * src/rtl/padr.c
  * src/rtl/hbstrfmt.c
  * src/rtl/listbox.prg
  * src/rtl/transfrm.c
  * src/rtl/hbntos.c
  * src/rtl/gttone.c
  * src/rtl/hbadler.c
  * src/rtl/at.c
  * src/rtl/hbdyn.c
  * src/rtl/tone.c
  * src/rtl/browse.prg
  * src/rtl/tget.prg
  * src/rtl/setfunc.prg
  * src/rtl/tscalaru.c
  * src/rtl/datec.c
  * src/rtl/pushbtn.prg
  * src/rtl/minmax.c
  * src/rtl/hbfeof.c
  * src/rtl/readvar.prg
  * src/rtl/hbmd5.c
  * src/rtl/dates.c
  * src/rtl/achoice.prg
  * src/rtl/hbascii.c
  * src/rtl/fkmax.c
  * src/rtl/padc.c
  * src/rtl/strzero.c
  * src/rtl/memvarbl.prg
  * src/rtl/gtcgi/gtcgi.c
  * src/rtl/natmsgu.c
  * src/rtl/mod.c
  * src/rtl/errapi.c
  * src/rtl/version.c
  * src/rtl/hbregexc.c
  * src/rtl/hbrandom.c
  * src/rtl/strtran.c
  * src/rtl/tscalar.prg
  * src/rtl/hbprocfn.c
  * src/rtl/hbsocket.c
  * src/rtl/errint.c
  * src/rtl/treport.prg
  * src/rtl/tscalarn.c
  * src/rtl/errapiu.c
  * src/rtl/hbinet.c
  * src/rtl/copyfile.c
  * src/rtl/gt.c
  * src/rtl/tpersist.prg
  * src/rtl/tgetint.prg
  * src/rtl/strtoexp.c
  * src/rtl/hbsha2hm.c
  * src/rtl/errintlo.c
  * src/rtl/dbedit.prg
  * src/rtl/einstvar.prg
  * src/rtl/gtapi.c
  * src/rtl/pad.c
  * src/rtl/direct.c
  * src/rtl/filesys.c
  * src/rtl/len.c
  * src/rtl/padl.c
  * src/rtl/lang.c
  * src/rtl/hbregex.c
  * src/rtl/einstv52.prg
  * src/rtl/hbbit.c
  * src/rtl/isprint.c
  * src/rtl/altd.prg
  * src/rtl/text.prg
  * src/rtl/saverest.c
  * src/rtl/diskspac.c
  * src/rtl/console.c
  * src/rtl/mousehb.c
  * src/rtl/hbinetz.c
  * src/rtl/chrasc.c
  * src/rtl/spfiles.c
  * src/rtl/dircmd.prg
  * src/rtl/memoedit.prg
  * src/rtl/gtos2/gtos2.c
  * src/rtl/right.c
  * src/rtl/hbi18n2.prg
  * src/rtl/philes.c
  * src/rtl/adir.prg
  * src/rtl/oldclear.c
  * src/rtl/hbbffnc.c
  * src/rtl/gui.prg
  * src/rtl/perfuncs.prg
  * src/rtl/hbgtcore.c
  * src/rtl/cdpapi.c
  * src/rtl/cputime.c
  * src/rtl/fieldbl.prg
  * src/rtl/dirdrive.c
  * src/rtl/str.c
  * src/rtl/wait.prg
  * src/rtl/hbi18n1.c
  * src/rtl/dateshb.c
  * src/rtl/menuto.prg
  * src/rtl/gtclip.c
  * src/rtl/mlcfunc.c
  * src/rtl/datesx.c
  * src/rtl/scrollbr.prg
  * src/rtl/hbfile.c
  * src/rtl/gtapiu.c
  * src/rtl/left.c
  * src/rtl/accept.c
  * src/rtl/defpathu.c
  * src/rtl/tscalarh.c
  * src/rtl/tbrowsys.prg
  * src/rtl/valtoexp.prg
  * src/rtl/tscalarp.c
  * src/rtl/is.c
  * src/rtl/idle.c
  * src/rtl/itemseri.c
  * src/rtl/getsys.prg
  * src/rtl/hbrunfun.c
  * src/rtl/setcolor.c
  * src/rtl/oemansi.c
  * src/rtl/philes53.c
  * src/rtl/xsavescr.c
  * src/rtl/hardcr.c
  * src/rtl/setkey.c
  * src/rtl/tgetlist.prg
  * src/rtl/gtsln/keytrans.c
  * src/rtl/gtsln/mousesln.c
  * src/rtl/gtsln/gtsln.c
  * src/rtl/gtsln/kbsln.c
  * src/rtl/gtsln/gtsln.h
  * src/rtl/disksphb.c
  * src/rtl/memvarhb.prg
  * src/rtl/tlabel.prg
  * src/rtl/hbzlib.c
  * src/rtl/strc.c
  * src/rtl/gtpca/gtpca.c
  * src/rtl/radiogrp.prg
  * src/rtl/scrrow.c
  * src/rtl/getlist.prg
  * src/rtl/valtype.c
  * src/rtl/shadow.c
  * src/rtl/net.c
  * src/rtl/stuff.c
  * src/rtl/dirscan.prg
  * src/rtl/hbznet.c
  * src/rtl/tscalara.c
  * src/rtl/space.c
  * src/rtl/checkbox.prg
  * src/rtl/gtgui/gtgui.c
  * src/rtl/hbhex.c
  * src/rtl/seconds.c
  * src/rtl/trace.c
  * src/rtl/samples.c
  * src/rtl/abs.c
  * src/rtl/input.prg
  * src/rtl/hbsha1.c
  * src/rtl/gt_tpl/gt_tpl.c
  * src/rtl/inkeyapi.c
  * src/rtl/filebuf.c
  * src/rtl/alert.prg
  * src/rtl/inkey.c
  * src/rtl/ttopbar.prg
  * src/rtl/mtran.c
  * src/rtl/gete.c
  * src/rtl/browdb.prg
  * src/rtl/setcurs.c
  * src/rtl/tmenusys.prg
  * src/rtl/tsymbol.prg
  * src/rtl/tclass.prg
  * src/rtl/hbproces.c
  * src/rtl/menusys.prg
  * src/rtl/cdpapihb.c
  * src/rtl/word.c
  * src/rtl/langapi.c
  * src/rtl/fmhb.c
  * src/rtl/ttextlin.prg
  * src/rtl/natmsg.c
  * src/rtl/gtwvt/gtwvt.h
  * src/rtl/gtwvt/gtwvt.c
  * src/rtl/tscalarb.c
  * src/rtl/mouse53.c
  * src/rtl/fssize.c
  * src/rtl/hbbfish.c
  * src/rtl/hbsha2.c
  * src/rtl/colorind.c
  * src/rtl/hbbyte.c
  * src/rtl/ati.c
  * src/rtl/gx.c
  * src/rtl/teditor.prg
  * src/rtl/mouseapi.c
  * src/rtl/soundex.c
  * src/rtl/memofile.c
  * src/rtl/getsyshb.prg
  * src/rtl/radiobtn.prg
  * src/rtl/tmenuitm.prg
  * src/rtl/gtsys.c
  * src/rtl/shadowu.c
  * src/rtl/hbstrsh.c
  * src/rtl/valtostr.c
  * src/rtl/file.c
  * src/rtl/strclear.c
  * src/rtl/val.c
  * src/rtl/gtkbstat.c
  * src/rtl/rat.c
  * src/rtl/hbcom.c
  * src/rtl/tbrowse.prg
  * src/rtl/tscalarc.c
  * src/rtl/devoutp.prg
  * src/codepage/ucmacce.c
  * src/codepage/cpno865.c
  * src/codepage/uckoi8.c
  * src/codepage/cppt850.c
  * src/codepage/uc885910.c
  * src/codepage/cpit850m.c
  * src/codepage/ucmacice.c
  * src/codepage/uc885914.c
  * src/codepage/uc874.c
  * src/codepage/uc857.c
  * src/codepage/cpru866.c
  * src/codepage/uc1250.c
  * src/codepage/uc1254.c
  * src/codepage/cpeswinm.c
  * src/codepage/cpcs852.c
  * src/codepage/cpes850.c
  * src/codepage/uc1258.c
  * src/codepage/cpis850.c
  * src/codepage/cphu852.c
  * src/codepage/cpsk852.c
  * src/codepage/uckam.c
  * src/codepage/cphu852c.c
  * src/codepage/uc424.c
  * src/codepage/ucmacrom.c
  * src/codepage/cpplmaz.c
  * src/codepage/uc862.c
  * src/codepage/cppliso.c
  * src/codepage/uc866.c
  * src/codepage/cpplwin.c
  * src/codepage/cpbg866.c
  * src/codepage/cpltwin.c
  * src/codepage/cpptiso.c
  * src/codepage/cpel737.c
  * src/codepage/cpsrwin.c
  * src/codepage/uc8859_3.c
  * src/codepage/cpfr850.c
  * src/codepage/cpes850c.c
  * src/codepage/cphr852.c
  * src/codepage/uc8859_7.c
  * src/codepage/ucmacgrk.c
  * src/codepage/uc037.c
  * src/codepage/uc850.c
  * src/codepage/cpesiso.c
  * src/codepage/uc885911.c
  * src/codepage/cpeswin.c
  * src/codepage/uc885915.c
  * src/codepage/uc875.c
  * src/codepage/cprukoi.c
  * src/codepage/uc1251.c
  * src/codepage/uc1255.c
  * src/codepage/cpruiso.c
  * src/codepage/cpsv850m.c
  * src/codepage/cpde850m.c
  * src/codepage/cpruwin.c
  * src/codepage/cpsl646.c
  * src/codepage/cppt860.c
  * src/codepage/cpfriso.c
  * src/codepage/cpnl850m.c
  * src/codepage/uc863.c
  * src/codepage/cpfrwin.c
  * src/codepage/cpsliso.c
  * src/codepage/ucmaz.c
  * src/codepage/cpslwin.c
  * src/codepage/uc1026.c
  * src/codepage/cpcskam.c
  * src/codepage/cpbgiso.c
  * src/codepage/uc8859_4.c
  * src/codepage/cpnl850.c
  * src/codepage/cpbgwin.c
  * src/codepage/cpskkam.c
  * src/codepage/uc8859_8.c
  * src/codepage/cppl852.c
  * src/codepage/cpde850.c
  * src/codepage/cpsv850.c
  * src/codepage/uc855.c
  * src/codepage/cptr857.c
  * src/codepage/uc885916.c
  * src/codepage/cproiso.c
  * src/codepage/cpfi850.c
  * src/codepage/ucascii.c
  * src/codepage/cprowin.c
  * src/codepage/uc1252.c
  * src/codepage/uc1256.c
  * src/codepage/ucatari.c
  * src/codepage/cpitisb.c
  * src/codepage/uc860.c
  * src/codepage/ucmaccyr.c
  * src/codepage/uc864.c
  * src/codepage/uc1006.c
  * src/codepage/cpel437.c
  * src/codepage/uc8859_1.c
  * src/codepage/cpdeiso.c
  * src/codepage/cpsviso.c
  * src/codepage/uc88591b.c
  * src/codepage/cpdewin.c
  * src/codepage/cpsvwin.c
  * src/codepage/uc8859_5.c
  * src/codepage/cpit850.c
  * src/codepage/uc8859_9.c
  * src/codepage/cpis861.c
  * src/codepage/cpsl852.c
  * src/codepage/cpcsiso.c
  * src/codepage/cpes850m.c
  * src/codepage/ucnext.c
  * src/codepage/cpcswin.c
  * src/codepage/uc852.c
  * src/codepage/uc737.c
  * src/codepage/ucmactrk.c
  * src/codepage/uc885913.c
  * src/codepage/cphuiso.c
  * src/codepage/uc775.c
  * src/codepage/uc856.c
  * src/codepage/cpskiso.c
  * src/codepage/cphuwin.c
  * src/codepage/cpskwin.c
  * src/codepage/cp_tpl.c
  * src/codepage/uc1253.c
  * src/codepage/uc646_yu.c
  * src/codepage/uc1257.c
  * src/codepage/uc500.c
  * src/codepage/cphr646.c
  * src/codepage/cpeliso.c
  * src/codepage/cpelwin.c
  * src/codepage/cpro852.c
  * src/codepage/cpfr850m.c
  * src/codepage/uc861.c
  * src/codepage/cphriso.c
  * src/codepage/uc865.c
  * src/codepage/cphrwin.c
  * src/codepage/cpitiso.c
  * src/codepage/cpsv437c.c
  * src/codepage/cpitwin.c
  * src/codepage/uc869.c
  * src/codepage/cptriso.c
  * src/codepage/cpdk865.c
  * src/codepage/uc8859_2.c
  * src/codepage/cptrwin.c
  * src/codepage/uc8859_6.c
  * src/rdd/dbfntx/dbfntx1.c
  * src/rdd/dbfntx/dbfntx0.prg
  * src/rdd/dbsql.c
  * src/rdd/dbdelim.prg
  * src/rdd/hbdbsort.c
  * src/rdd/rddordu.prg
  * src/rdd/dbjoin.prg
  * src/rdd/workarea.c
  * src/rdd/dbnubs.c
  * src/rdd/wacore.c
  * src/rdd/rddinfo.c
  * src/rdd/dbstruxu.prg
  * src/rdd/dblist.prg
  * src/rdd/dbfuncs.prg
  * src/rdd/sdf1.c
  * src/rdd/dbdetach.c
  * src/rdd/dbtotal.prg
  * src/rdd/dbstrux.prg
  * src/rdd/dbsort.prg
  * src/rdd/dbfnsx/dbfnsx1.c
  * src/rdd/dbcmd.c
  * src/rdd/dbdrop.c
  * src/rdd/delim1.c
  * src/rdd/dbf1.c
  * src/rdd/dbrename.c
  * src/rdd/rddsys.prg
  * src/rdd/dbcmd53.c
  * src/rdd/usrrdd/usrrdd.c
  * src/rdd/usrrdd/rdds/arrayrdd.prg
  * src/rdd/usrrdd/rdds/dbtcdx.prg
  * src/rdd/usrrdd/rdds/fptcdx.prg
  * src/rdd/usrrdd/rdds/hscdx.prg
  * src/rdd/usrrdd/rdds/logrdd.prg
  * src/rdd/usrrdd/rdds/rlcdx.prg
  * src/rdd/usrrdd/rdds/smtcdx.prg
  * src/rdd/dbcmdhb.c
  * src/rdd/wafunc.c
  * src/rdd/rddord.prg
  * src/rdd/dbexists.c
  * src/rdd/dbsdf.prg
  * src/rdd/dbupdat.prg
  * src/rdd/ordwldsk.c
  * src/rdd/hbsix/sxord.c
  * src/rdd/hbsix/sxsem.c
  * src/rdd/hbsix/sxini.prg
  * src/rdd/hbsix/sxredir.c
  * src/rdd/hbsix/sxfname.c
  * src/rdd/hbsix/sxtable.c
  * src/rdd/hbsix/sxcompat.prg
  * src/rdd/hbsix/sxtrig.prg
  * src/rdd/hbsix/sxdate.c
  * src/rdd/hbsix/sxutil.c
  * src/rdd/hbsix/sxcompr.c
  * src/rdd/hbsix/sxcrypt.c
  * src/rdd/fieldhb.c
  * src/rdd/ordcount.c
    * Deleted 'www.' from harbour-project.org website name.
      (www.harbour-project.org -> harbour-project.org)
2010-06-03 15:09:04 +00:00

285 lines
8.4 KiB
Plaintext
Raw Blame History

/*
* $Id$
*/
/*
* Harbour Project source code:
* Dynamic Object management and misc. Object related functions
*
* Copyright 1999 Eddie Runia <eddie@runia.com>
* 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.
*
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://harbour-project.org
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* __objGetMsgList
*
* Copyright 2000 Jf. Lefebvre <jfl@mafact.com> and Ra. Cuylen <rac@mafact.com>
* __objDerivedFrom
*
* New Param for Method :ClassSel() to allow it to return only ClassData array
*
* See COPYING for licensing terms.
*
*/
#include "common.ch"
#include "error.ch"
#include "hboo.ch"
FUNCTION __objHasData( oObject, cSymbol )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
RETURN __objHasMsg( oObject, cSymbol ) .AND. ;
__objHasMsg( oObject, "_" + cSymbol )
FUNCTION __objHasMethod( oObject, cSymbol )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
RETURN __objHasMsg( oObject, cSymbol ) .AND. ;
!__objHasMsg( oObject, "_" + cSymbol )
FUNCTION __objGetMsgList( oObject, lDataMethod, nClassType )
LOCAL aInfo
LOCAL aData
LOCAL n
LOCAL nLen
IF ! ISOBJECT( oObject )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
IF ! ISLOGICAL( lDataMethod )
lDataMethod := .T.
ENDIF
IF ! ISNUMBER( nClassType )
nClasstype := HB_MSGLISTALL
ENDIF
aInfo := ASort( oObject:ClassSel( nClassType ) )
aData := {}
n := 1
nLen := Len( aInfo )
DO WHILE n <= nLen .AND. !( Substr( aInfo[ n ], 1, 1 ) == "_" )
/* If in range and no set function found yet
(set functions begin with a leading underscore). */
// If found -> DATA
// else METHOD
/* Find position of matching set function in array with all symbols */
IF ( AScan( aInfo, {| tmp | tmp == ( "_" + aInfo[ n ] ) }, n + 1 ) != 0 ) == lDataMethod
AAdd( aData, aInfo[ n ] )
ENDIF
n++
ENDDO
RETURN aData
FUNCTION __objGetMethodList( oObject )
IF ! ISOBJECT( oObject )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
RETURN __objGetMsgList( oObject, .F. )
FUNCTION __objGetValueList( oObject, aExcept )
LOCAL aDataSymbol
LOCAL nLen
LOCAL aData
LOCAL cSymbol
LOCAL n
IF ! ISOBJECT( oObject )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
IF ! ISARRAY( aExcept )
aExcept := {}
ENDIF
aDataSymbol := __objGetMsgList( oObject )
nLen := Len( aDataSymbol )
aData := {}
FOR n := 1 to nLen
cSymbol := aDataSymbol[ n ]
IF AScan( aExcept, {| tmp | tmp == cSymbol } ) == 0
AAdd( aData, { cSymbol, __objSendMsg( oObject, cSymbol ) } )
ENDIF
NEXT
RETURN aData
FUNCTION __ObjSetValueList( oObject, aData )
IF ! ISOBJECT( oObject )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSE
AEval( aData, {| aItem | __objSendMsg( oObject, "_" + aItem[ HB_OO_DATA_SYMBOL ], aItem[ HB_OO_DATA_VALUE ] ) } )
ENDIF
RETURN oObject
FUNCTION __objAddMethod( oObject, cSymbol, nFuncPtr )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol ) .OR. !hb_ISSYMBOL( nFuncPtr )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF !__objHasMsg( oObject, cSymbol )
__clsAddMsg( oObject:ClassH, cSymbol, nFuncPtr, HB_OO_MSG_METHOD, NIL, 1 )
ENDIF
RETURN oObject
FUNCTION __objAddInline( oObject, cSymbol, bInline )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF !__objHasMsg( oObject, cSymbol )
__clsAddMsg( oObject:ClassH, cSymbol, bInline, HB_OO_MSG_INLINE, NIL, 1 )
ENDIF
RETURN oObject
FUNCTION __objAddData( oObject, cSymbol )
LOCAL nSeq, hClass
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF !__objHasMsg( oObject, cSymbol ) .AND. !__objHasMsg( oObject, "_" + cSymbol )
hClass := oObject:ClassH
nSeq := __cls_IncData( hClass ) // Allocate new Seq#
__clsAddMsg( hClass, cSymbol, nSeq, HB_OO_MSG_ACCESS, NIL, 1 )
__clsAddMsg( hClass, "_" + cSymbol, nSeq, HB_OO_MSG_ASSIGN, NIL, 1 )
ENDIF
RETURN oObject
FUNCTION __objModMethod( oObject, cSymbol, nFuncPtr )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol ) .OR. !hb_ISSYMBOL( nFuncPtr )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF __objHasMethod( oObject, cSymbol )
__clsModMsg( oObject:ClassH, cSymbol, nFuncPtr )
ENDIF
RETURN oObject
FUNCTION __objModInline( oObject, cSymbol, bInline )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol ) .OR. ! ISBLOCK( bInline )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF __objHasMethod( oObject, cSymbol )
__clsModMsg( oObject:ClassH, cSymbol, bInline )
ENDIF
RETURN oObject
FUNCTION __objDelMethod( oObject, cSymbol )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF __objHasMethod( oObject, cSymbol )
__clsDelMsg( oObject:ClassH, cSymbol )
ENDIF
RETURN oObject
FUNCTION __objDelInline( oObject, cSymbol )
RETURN __objDelMethod( oObject, cSymbol )
FUNCTION __objDelData( oObject, cSymbol )
IF ! ISOBJECT( oObject ) .OR. ! ISCHARACTER( cSymbol )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF __objHasData( oObject, cSymbol )
__clsDelMsg( oObject:ClassH, cSymbol )
__clsDelMsg( oObject:ClassH, "_" + cSymbol )
__cls_DecData( oObject:ClassH ) // Decrease wData
ENDIF
RETURN oObject
FUNCTION __objDerivedFrom( oObject, xSuper )
LOCAL cClassName
IF ! ISOBJECT( oObject )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
IF ISOBJECT( xSuper )
cClassName := xSuper:ClassName()
ELSEIF ISCHARACTER( xSuper )
cClassName := hb_asciiUpper( xSuper )
ELSE
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ENDIF
RETURN __clsParent( oObject:ClassH, cClassName )
FUNCTION __objGetProperties( oObject, lAllExported )
LOCAL msg
LOCAL aMsgList := __clsGetProperties( oObject:classH, lAllExported )
FOR EACH msg IN aMsgList
msg := { msg, __objSendMsg( oObject, msg ) }
NEXT
RETURN aMsgList
Reference in New Issue View Git Blame Copy Permalink