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

2009-07-09 23:14 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* include/hbvmpub.h
  * include/extend.api
  * include/hbwince.h
  * include/hb_io.h
  * include/hbdefs.h
  * include/hbsetup.h
  * include/hbinit.h
  * include/clipdefs.h
  * include/hbmath.h
  * include/hbzlib.h
  * include/hbregex.h
  * include/hbexprb.c
  * source/pp/hbpp.c
  * source/lang/msgrukoi.c
  * source/lang/msgzhgb.c
  * source/lang/msgruwin.c
  * source/lang/msgelwin.c
  * source/lang/msgro.c
  * source/lang/msghriso.c
  * source/lang/msgcskam.c
  * source/lang/msggl.c
  * source/lang/msges.c
  * source/lang/msgde.c
  * source/lang/msgru866.c
  * source/lang/msgcs852.c
  * source/lang/msgplmaz.c
  * source/lang/msgpliso.c
  * source/lang/msgplwin.c
  * source/lang/msgid.c
  * source/lang/msgel.c
  * source/lang/msgdewin.c
  * source/lang/msghr437.c
  * source/lang/msghr852.c
  * source/lang/msgcsiso.c
  * source/lang/msgcswin.c
  * source/lang/msgeswin.c
  * source/vm/macro.c
  * source/vm/mainwin.c
  * source/vm/maindll.c
  * source/vm/itemapi.c
  * source/vm/hvm.c
  * source/vm/cmdarg.c
  * source/vm/mainstd.c
  * source/vm/maindllp.c
  * source/vm/fm.c
  * source/vm/extrap.c
  * source/vm/thread.c
  * source/vm/main.c
  * source/vm/break.c
  * source/vm/dynlibhb.c
  * source/vm/set.c
  * source/vm/classes.c
  * source/debug/dbgtwin.prg
  * source/debug/dbgtmenu.prg
  * source/debug/dbgmenu.prg
  * source/debug/dbgthsh.prg
  * source/debug/dbgwa.prg
  * source/common/hbgete.c
  * source/common/hbver.c
  * source/common/hbprintf.c
  * source/common/hbfsapi.c
  * source/common/hbverdsp.c
  * source/common/hbwince.c
  * source/common/hbfopen.c
  * source/common/hbdate.c
  * source/macro/macroa.c
  * source/macro/macrob.c
  * source/rtl/lennum.c
  * source/rtl/gtdos/gtdos.c
  * source/rtl/setposbs.c
  * source/rtl/gtwin/gtwin.c
  * source/rtl/typefile.prg
  * source/rtl/math.c
  * source/rtl/getsys53.prg
  * source/rtl/tobject.prg
  * source/rtl/gtcrs/gtcrs.c
  * source/rtl/gtcrs/gtcrs.h
  * source/rtl/philesx.c
  * source/rtl/filehb.c
  * source/rtl/hbtoken.c
  * source/rtl/fstemp.c
  * source/rtl/ampm.c
  * source/rtl/maxrow.c
  * source/rtl/hbstrfmt.c
  * source/rtl/transfrm.c
  * source/rtl/gttone.c
  * source/rtl/datec.c
  * source/rtl/fserr.c
  * source/rtl/pushbtn.prg
  * source/rtl/memvarbl.prg
  * source/rtl/hbregexc.c
  * source/rtl/profiler.prg
  * source/rtl/hbini.prg
  * source/rtl/dbedit.prg
  * source/rtl/filesys.c
  * source/rtl/lang.c
  * source/rtl/einstv52.prg
  * source/rtl/hbbit.c
  * source/rtl/isprint.c
  * source/rtl/altd.prg
  * source/rtl/diskspac.c
  * source/rtl/console.c
  * source/rtl/gtos2/gtos2.c
  * source/rtl/adir.prg
  * source/rtl/gui.prg
  * source/rtl/hbgtcore.c
  * source/rtl/dirdrive.c
  * source/rtl/wait.prg
  * source/rtl/mlcfunc.c
  * source/rtl/scrollbr.prg
  * source/rtl/gtapiu.c
  * source/rtl/tbrowsys.prg
  * source/rtl/oemansi.c
  * source/rtl/philes53.c
  * source/rtl/color53.prg
  * source/rtl/xsavescr.c
  * source/rtl/tgetlist.prg
  * source/rtl/gtsln/mousesln.c
  * source/rtl/gtsln/kbsln.c
  * source/rtl/gtsln/gtsln.h
  * source/rtl/disksphb.c
  * source/rtl/tlabel.prg
  * source/rtl/radiogrp.prg
  * source/rtl/scrrow.c
  * source/rtl/net.c
  * source/rtl/stuff.c
  * source/rtl/checkbox.prg
  * source/rtl/filebuf.c
  * source/rtl/mtran.c
  * source/rtl/gete.c
  * source/rtl/hbproces.c
  * source/rtl/gtwvt/gtwvt.c
  * source/rtl/fssize.c
  * source/rtl/memofile.c
  * source/rtl/hbffind.c
  * source/rtl/tmenuitm.prg
  * source/rtl/gtsys.c
  * source/rtl/devoutp.prg
  * source/codepage/uckoi8.c
  * source/codepage/uckoi8u.c
  * source/codepage/cphu852s.c
  * source/codepage/cpes850c.c
  * source/codepage/cphuisos.c
  * source/codepage/ucmaz.c
  * source/codepage/cptr857.c
  * source/codepage/ucmik.c
  * source/codepage/cphr437.c
  * source/codepage/cphuwins.c
  * source/rdd/dbjoin.prg
  * source/rdd/dbnubs.c
  * source/rdd/dbfuncs.prg
  * source/rdd/dbtotal.prg
  * source/rdd/dbstrux.prg
  * source/rdd/dbsort.prg
  * source/rdd/dbfcdx/dbfcdx1.c
  * source/rdd/hbsix/sxcompr.c
  * source/compiler/hbmain.c
  * source/compiler/expropta.c
  * source/compiler/exproptb.c
  * source/compiler/fixflex.c
  * source/compiler/compi18n.c
  * source/compiler/gencobj.c
  * source/compiler/hbopt.c
  * source/compiler/hbgenerr.c
  * utils/hbtest/rt_main.h
  * utils/hbtest/rt_main.ch
  * utils/hbtest/rt_trans.prg
  * utils/hbtest/rt_misc.prg
  * utils/hbtest/rt_vars.ch
  * contrib/gtalleg/gtalleg.c
  * contrib/gtalleg/ssf.h
  * contrib/hbmysql/mysqlold.c
  * contrib/hbmysql/mysql.c
  * contrib/hbct/charlist.c
  * contrib/hbct/ctnet.c
  * contrib/hbct/charonly.c
  * contrib/hbct/ctset.c
  * contrib/hbct/ctset.h
  * contrib/hbct/cterror.ch
  * contrib/hbct/ftoc.c
  * contrib/hbct/charevod.c
  * contrib/hbct/exponent.c
  * contrib/hbct/dattime3.c
  * contrib/hbct/ct.prg
  * contrib/hbct/cursor.c
  * contrib/hbct/color.c
  * contrib/hbct/charone.c
  * contrib/hbct/numconv.prg
  * contrib/hbct/cttime.prg
  * contrib/hbct/ctstr.h
  * contrib/hbct/atnum.c
  * contrib/hbct/disk.c
  * contrib/hbct/misc1.c
  * contrib/hbct/print.c
  * contrib/xhb/hblog.ch
  * contrib/xhb/bkgtsks.c
  * contrib/xhb/wintypes.ch
  * contrib/xhb/classex.ch
  * contrib/xhb/hbcomprs.c
  * contrib/xhb/ttable.ch
  * contrib/xhb/hbcompat.ch
  * contrib/xhb/arrayblk.prg
  * contrib/xhb/hbctypes.ch
  * contrib/xhb/xhbextrn.ch
  * contrib/xhb/filestat.c
  * contrib/xhb/hblogdef.ch
  * contrib/xhb/xhbcopyf.c
  * contrib/xhb/hbserv.c
  * contrib/xhb/xhbfunc.c
  * contrib/hbodbc/odbcold.c
  * contrib/hbtpathy/telepath.ch
  * contrib/hbmzip/hbmzip.c
  * contrib/hbblat/hbblat.ch
  * contrib/hbxbp/xbpfiledialog.prg
  * contrib/hbxbp/gra.ch
  * contrib/hbxbp/xbpwindow.prg
  * contrib/hbxbp/xbp.ch
  * contrib/hbxbp/xbphtmlviewer.prg
  * contrib/hbxbp/xbptoolbar.prg
  * contrib/hbxbp/appevent.ch
  * contrib/hbxbp/xbpgeneric.prg
  * contrib/xpp/philesx.c
  * contrib/hbnf/acctyear.prg
  * contrib/hbnf/byteneg.prg
  * contrib/hbnf/isshare.prg
  * contrib/hbnf/kspeed.c
  * contrib/hbnf/prtscr.c
  * contrib/hbnf/ftshadow.c
  * contrib/hbnf/descendn.c
  * contrib/hbnf/scancode.prg
  * contrib/hbnf/vidmode.prg
  * contrib/hbnf/acctadj.prg
  * contrib/hbnf/vidcur.prg
  * contrib/hbnf/iamidle.c
  * contrib/hbnf/acctmnth.prg
  * contrib/hbnf/madd.prg
  * contrib/hbnf/fttext.c
  * contrib/hbnf/mouse1.prg
  * contrib/hbnf/settime.prg
  * contrib/hbnf/page.prg
  * contrib/hbnf/setkeys.c
  * contrib/hbnf/month.prg
  * contrib/hbnf/acctweek.prg
  * contrib/hbnf/acctqtr.prg
  * contrib/hbnf/dosver.prg
  * contrib/hbnf/metaph.prg
  * contrib/hbnf/menu1.prg
  * contrib/hbnf/byteand.prg
  * contrib/hbnf/bytexor.prg
  * contrib/hbnf/byteor.prg
  * contrib/hbnf/asum.prg
  * contrib/hbnf/wda.prg
  * contrib/hbnf/aavg.prg
  * contrib/hbnf/mouse.c
  * contrib/hbnf/setdate.prg
  * contrib/hbnf/amedian.prg
  * contrib/hbnf/blink.prg
  * contrib/hbnf/getvid.c
  * contrib/hbnf/getver.c
  * contrib/hbnf/nwuid.prg
  * contrib/hbnf/aemaxlen.prg
  * contrib/hbnf/bitset.prg
  * contrib/hbnf/nwlstat.prg
  * contrib/hbnf/tempfile.prg
  * contrib/hbnf/diskfunc.prg
  * contrib/hbnf/d2e.prg
  * contrib/hbnf/mouse2.prg
  * contrib/hbnf/firstday.prg
  * contrib/hbnf/menutonf.prg
  * contrib/hbnf/pvid.prg
  * contrib/hbnf/isbit.prg
  * contrib/hbnf/datecnfg.prg
  * contrib/hbnf/putkey.c
  * contrib/hbnf/getenvrn.c
  * contrib/hbnf/bytenot.prg
  * contrib/hbnf/aeminlen.prg
  * contrib/hbnf/year.prg
  * contrib/hbnf/ftmenuto.ch
  * contrib/hbnf/rmdir.c
  * contrib/hbnf/sysmem.prg
  * contrib/hbnf/bitclr.prg
  * contrib/hbnf/setlastk.c
  * contrib/hbnf/clrsel.prg
  * contrib/hbcurl/hbcurl.ch
  * contrib/gtwvg/gtwvg.c
  * contrib/gtwvg/wvgax.prg
  * contrib/gtwvg/gtwvg.h
  * contrib/gtwvg/wvggui.c
  * contrib/gtwvg/wvggui.h
  * contrib/gtwvg/wvgwin.c
  * contrib/gtwvg/wvgutils.c
  * contrib/gtwvg/wvgcore.c
  * contrib/gtwvg/wvgtabpg.prg
  * contrib/gtwvg/wvgsink.c
  * contrib/gtwvg/wvgwing.c
  * contrib/hbclipsm/num.c
  * contrib/hbclipsm/stack.c
  * contrib/rddads/rddads.h
  * contrib/rddads/ads1.c
  * contrib/hbfimage/fi_winfu.c
  * contrib/hbfimage/fi_wrp.c
  * contrib/hbgd/gd.ch
  * contrib/hbgd/gdchart.prg
  * contrib/hbgd/gdimage.prg
  * contrib/hbgd/gdwrp.c
  * contrib/hbmisc/nconvert.prg
  * contrib/hbmisc/stringsx.c
  * contrib/hbmisc/spd.c
  * contrib/hbmisc/stringp.prg
  * contrib/hbwin/win_prn2.c
  * contrib/hbwin/wapi_commctrl.c
  * contrib/hbwin/wapi_winbase.c
  * contrib/hbwin/wapi_winuser.c
  * contrib/hbwin/hbwinole.h
  * contrib/hbwin/win_dll.c
  * contrib/hbwin/axfunc.prg
  * contrib/hbwin/win_prn1.c
  * contrib/hbvpdf/hbvpdf.ch
  * examples/hboleold/win_ole.c
    * Formatting:
       - Removing EOL whitespaces.
       - Removing extra empty lines at EOF.
       - Adding EOL at EOF if missing.
      (except in foreign code)
This commit is contained in:
Viktor Szakats
2009-07-09 21:22:22 +00:00
parent 3b838b372d
commit 2832c55881
320 changed files with 1603 additions and 1397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

326
harbour/ChangeLog
View File

@@ -17,6 +17,332 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-07-09 23:14 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* include/hbvmpub.h
* include/extend.api
* include/hbwince.h
* include/hb_io.h
* include/hbdefs.h
* include/hbsetup.h
* include/hbinit.h
* include/clipdefs.h
* include/hbmath.h
* include/hbzlib.h
* include/hbregex.h
* include/hbexprb.c
* source/pp/hbpp.c
* source/lang/msgrukoi.c
* source/lang/msgzhgb.c
* source/lang/msgruwin.c
* source/lang/msgelwin.c
* source/lang/msgro.c
* source/lang/msghriso.c
* source/lang/msgcskam.c
* source/lang/msggl.c
* source/lang/msges.c
* source/lang/msgde.c
* source/lang/msgru866.c
* source/lang/msgcs852.c
* source/lang/msgplmaz.c
* source/lang/msgpliso.c
* source/lang/msgplwin.c
* source/lang/msgid.c
* source/lang/msgel.c
* source/lang/msgdewin.c
* source/lang/msghr437.c
* source/lang/msghr852.c
* source/lang/msgcsiso.c
* source/lang/msgcswin.c
* source/lang/msgeswin.c
* source/vm/macro.c
* source/vm/mainwin.c
* source/vm/maindll.c
* source/vm/itemapi.c
* source/vm/hvm.c
* source/vm/cmdarg.c
* source/vm/mainstd.c
* source/vm/maindllp.c
* source/vm/fm.c
* source/vm/extrap.c
* source/vm/thread.c
* source/vm/main.c
* source/vm/break.c
* source/vm/dynlibhb.c
* source/vm/set.c
* source/vm/classes.c
* source/debug/dbgtwin.prg
* source/debug/dbgtmenu.prg
* source/debug/dbgmenu.prg
* source/debug/dbgthsh.prg
* source/debug/dbgwa.prg
* source/common/hbgete.c
* source/common/hbver.c
* source/common/hbprintf.c
* source/common/hbfsapi.c
* source/common/hbverdsp.c
* source/common/hbwince.c
* source/common/hbfopen.c
* source/common/hbdate.c
* source/macro/macroa.c
* source/macro/macrob.c
* source/rtl/lennum.c
* source/rtl/gtdos/gtdos.c
* source/rtl/setposbs.c
* source/rtl/gtwin/gtwin.c
* source/rtl/typefile.prg
* source/rtl/math.c
* source/rtl/getsys53.prg
* source/rtl/tobject.prg
* source/rtl/gtcrs/gtcrs.c
* source/rtl/gtcrs/gtcrs.h
* source/rtl/philesx.c
* source/rtl/filehb.c
* source/rtl/hbtoken.c
* source/rtl/fstemp.c
* source/rtl/ampm.c
* source/rtl/maxrow.c
* source/rtl/hbstrfmt.c
* source/rtl/transfrm.c
* source/rtl/gttone.c
* source/rtl/datec.c
* source/rtl/fserr.c
* source/rtl/pushbtn.prg
* source/rtl/memvarbl.prg
* source/rtl/hbregexc.c
* source/rtl/profiler.prg
* source/rtl/hbini.prg
* source/rtl/dbedit.prg
* source/rtl/filesys.c
* source/rtl/lang.c
* source/rtl/einstv52.prg
* source/rtl/hbbit.c
* source/rtl/isprint.c
* source/rtl/altd.prg
* source/rtl/diskspac.c
* source/rtl/console.c
* source/rtl/gtos2/gtos2.c
* source/rtl/adir.prg
* source/rtl/gui.prg
* source/rtl/hbgtcore.c
* source/rtl/dirdrive.c
* source/rtl/wait.prg
* source/rtl/mlcfunc.c
* source/rtl/scrollbr.prg
* source/rtl/gtapiu.c
* source/rtl/tbrowsys.prg
* source/rtl/oemansi.c
* source/rtl/philes53.c
* source/rtl/color53.prg
* source/rtl/xsavescr.c
* source/rtl/tgetlist.prg
* source/rtl/gtsln/mousesln.c
* source/rtl/gtsln/kbsln.c
* source/rtl/gtsln/gtsln.h
* source/rtl/disksphb.c
* source/rtl/tlabel.prg
* source/rtl/radiogrp.prg
* source/rtl/scrrow.c
* source/rtl/net.c
* source/rtl/stuff.c
* source/rtl/checkbox.prg
* source/rtl/filebuf.c
* source/rtl/mtran.c
* source/rtl/gete.c
* source/rtl/hbproces.c
* source/rtl/gtwvt/gtwvt.c
* source/rtl/fssize.c
* source/rtl/memofile.c
* source/rtl/hbffind.c
* source/rtl/tmenuitm.prg
* source/rtl/gtsys.c
* source/rtl/devoutp.prg
* source/codepage/uckoi8.c
* source/codepage/uckoi8u.c
* source/codepage/cphu852s.c
* source/codepage/cpes850c.c
* source/codepage/cphuisos.c
* source/codepage/ucmaz.c
* source/codepage/cptr857.c
* source/codepage/ucmik.c
* source/codepage/cphr437.c
* source/codepage/cphuwins.c
* source/rdd/dbjoin.prg
* source/rdd/dbnubs.c
* source/rdd/dbfuncs.prg
* source/rdd/dbtotal.prg
* source/rdd/dbstrux.prg
* source/rdd/dbsort.prg
* source/rdd/dbfcdx/dbfcdx1.c
* source/rdd/hbsix/sxcompr.c
* source/compiler/hbmain.c
* source/compiler/expropta.c
* source/compiler/exproptb.c
* source/compiler/fixflex.c
* source/compiler/compi18n.c
* source/compiler/gencobj.c
* source/compiler/hbopt.c
* source/compiler/hbgenerr.c
* utils/hbtest/rt_main.h
* utils/hbtest/rt_main.ch
* utils/hbtest/rt_trans.prg
* utils/hbtest/rt_misc.prg
* utils/hbtest/rt_vars.ch
* contrib/gtalleg/gtalleg.c
* contrib/gtalleg/ssf.h
* contrib/hbmysql/mysqlold.c
* contrib/hbmysql/mysql.c
* contrib/hbct/charlist.c
* contrib/hbct/ctnet.c
* contrib/hbct/charonly.c
* contrib/hbct/ctset.c
* contrib/hbct/ctset.h
* contrib/hbct/cterror.ch
* contrib/hbct/ftoc.c
* contrib/hbct/charevod.c
* contrib/hbct/exponent.c
* contrib/hbct/dattime3.c
* contrib/hbct/ct.prg
* contrib/hbct/cursor.c
* contrib/hbct/color.c
* contrib/hbct/charone.c
* contrib/hbct/numconv.prg
* contrib/hbct/cttime.prg
* contrib/hbct/ctstr.h
* contrib/hbct/atnum.c
* contrib/hbct/disk.c
* contrib/hbct/misc1.c
* contrib/hbct/print.c
* contrib/xhb/hblog.ch
* contrib/xhb/bkgtsks.c
* contrib/xhb/wintypes.ch
* contrib/xhb/classex.ch
* contrib/xhb/hbcomprs.c
* contrib/xhb/ttable.ch
* contrib/xhb/hbcompat.ch
* contrib/xhb/arrayblk.prg
* contrib/xhb/hbctypes.ch
* contrib/xhb/xhbextrn.ch
* contrib/xhb/filestat.c
* contrib/xhb/hblogdef.ch
* contrib/xhb/xhbcopyf.c
* contrib/xhb/hbserv.c
* contrib/xhb/xhbfunc.c
* contrib/hbodbc/odbcold.c
* contrib/hbtpathy/telepath.ch
* contrib/hbmzip/hbmzip.c
* contrib/hbblat/hbblat.ch
* contrib/hbxbp/xbpfiledialog.prg
* contrib/hbxbp/gra.ch
* contrib/hbxbp/xbpwindow.prg
* contrib/hbxbp/xbp.ch
* contrib/hbxbp/xbphtmlviewer.prg
* contrib/hbxbp/xbptoolbar.prg
* contrib/hbxbp/appevent.ch
* contrib/hbxbp/xbpgeneric.prg
* contrib/xpp/philesx.c
* contrib/hbnf/acctyear.prg
* contrib/hbnf/byteneg.prg
* contrib/hbnf/isshare.prg
* contrib/hbnf/kspeed.c
* contrib/hbnf/prtscr.c
* contrib/hbnf/ftshadow.c
* contrib/hbnf/descendn.c
* contrib/hbnf/scancode.prg
* contrib/hbnf/vidmode.prg
* contrib/hbnf/acctadj.prg
* contrib/hbnf/vidcur.prg
* contrib/hbnf/iamidle.c
* contrib/hbnf/acctmnth.prg
* contrib/hbnf/madd.prg
* contrib/hbnf/fttext.c
* contrib/hbnf/mouse1.prg
* contrib/hbnf/settime.prg
* contrib/hbnf/page.prg
* contrib/hbnf/setkeys.c
* contrib/hbnf/month.prg
* contrib/hbnf/acctweek.prg
* contrib/hbnf/acctqtr.prg
* contrib/hbnf/dosver.prg
* contrib/hbnf/metaph.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/byteand.prg
* contrib/hbnf/bytexor.prg
* contrib/hbnf/byteor.prg
* contrib/hbnf/asum.prg
* contrib/hbnf/wda.prg
* contrib/hbnf/aavg.prg
* contrib/hbnf/mouse.c
* contrib/hbnf/setdate.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/blink.prg
* contrib/hbnf/getvid.c
* contrib/hbnf/getver.c
* contrib/hbnf/nwuid.prg
* contrib/hbnf/aemaxlen.prg
* contrib/hbnf/bitset.prg
* contrib/hbnf/nwlstat.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/diskfunc.prg
* contrib/hbnf/d2e.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/firstday.prg
* contrib/hbnf/menutonf.prg
* contrib/hbnf/pvid.prg
* contrib/hbnf/isbit.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/putkey.c
* contrib/hbnf/getenvrn.c
* contrib/hbnf/bytenot.prg
* contrib/hbnf/aeminlen.prg
* contrib/hbnf/year.prg
* contrib/hbnf/ftmenuto.ch
* contrib/hbnf/rmdir.c
* contrib/hbnf/sysmem.prg
* contrib/hbnf/bitclr.prg
* contrib/hbnf/setlastk.c
* contrib/hbnf/clrsel.prg
* contrib/hbcurl/hbcurl.ch
* contrib/gtwvg/gtwvg.c
* contrib/gtwvg/wvgax.prg
* contrib/gtwvg/gtwvg.h
* contrib/gtwvg/wvggui.c
* contrib/gtwvg/wvggui.h
* contrib/gtwvg/wvgwin.c
* contrib/gtwvg/wvgutils.c
* contrib/gtwvg/wvgcore.c
* contrib/gtwvg/wvgtabpg.prg
* contrib/gtwvg/wvgsink.c
* contrib/gtwvg/wvgwing.c
* contrib/hbclipsm/num.c
* contrib/hbclipsm/stack.c
* contrib/rddads/rddads.h
* contrib/rddads/ads1.c
* contrib/hbfimage/fi_winfu.c
* contrib/hbfimage/fi_wrp.c
* contrib/hbgd/gd.ch
* contrib/hbgd/gdchart.prg
* contrib/hbgd/gdimage.prg
* contrib/hbgd/gdwrp.c
* contrib/hbmisc/nconvert.prg
* contrib/hbmisc/stringsx.c
* contrib/hbmisc/spd.c
* contrib/hbmisc/stringp.prg
* contrib/hbwin/win_prn2.c
* contrib/hbwin/wapi_commctrl.c
* contrib/hbwin/wapi_winbase.c
* contrib/hbwin/wapi_winuser.c
* contrib/hbwin/hbwinole.h
* contrib/hbwin/win_dll.c
* contrib/hbwin/axfunc.prg
* contrib/hbwin/win_prn1.c
* contrib/hbvpdf/hbvpdf.ch
* examples/hboleold/win_ole.c
* Formatting:
- Removing EOL whitespaces.
- Removing extra empty lines at EOF.
- Adding EOL at EOF if missing.
(except in foreign code)
2009-07-09 19:11 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbsqlit3/hbsqlit3.c
* contrib/hbfimage/fi_wrp.c

8
harbour/contrib/gtalleg/gtalleg.c
View File

@@ -74,7 +74,7 @@ static HB_GT_FUNCS SuperTable;
static BOOL s_fInit;
static BOOL s_fMakeInit;
static BOOL s_fGtError;
static BOOL s_fGtError;
/* font definition */
static ssfFont s_ssfDefaultFont;
@@ -353,7 +353,7 @@ static BOOL hb_gt_alleg_InitializeScreen( PHB_GT pGT, int iRows, int iCols, BOOL
if( iRows > 11 && iCols > 23 && iRows < 129 && iCols < 257 )
{
#if defined(AL_GFX_XWINDOWS)
#if defined( AL_GFX_XWINDOWS )
HB_TRACE(HB_TR_DEBUG, ("trying X DGA2 mode"));
iRet = al_set_gfx_mode( AL_GFX_XDGA2, iWidth, iHeight, 0, 0 );
if( iRet != 0 )
@@ -367,14 +367,14 @@ static BOOL hb_gt_alleg_InitializeScreen( PHB_GT pGT, int iRows, int iCols, BOOL
iRet = al_set_gfx_mode( AL_GFX_XWINDOWS, iWidth, iHeight, 0, 0 );
}
#endif
#if defined (ALLEGRO_UNIX) || defined(ALLEGRO_LINUX) || defined(ALLEGRO_DOS)
#if defined( ALLEGRO_UNIX ) || defined( ALLEGRO_LINUX ) || defined( ALLEGRO_DOS )
if( iRet != 0 )
{
HB_TRACE(HB_TR_DEBUG, ("trying VBE/AF mode"));
iRet = al_set_gfx_mode( AL_GFX_VBEAF, iWidth, iHeight, 0, 0 );
}
#endif
#if (defined(ALLEGRO_UNIX) || defined(ALLEGRO_LINUX)) && defined(AL_GFX_FBCON)
#if ( defined( ALLEGRO_UNIX ) || defined( ALLEGRO_LINUX ) ) && defined( AL_GFX_FBCON )
if( iRet != 0 )
{
HB_TRACE(HB_TR_DEBUG, ("trying fb console mode"));

18
harbour/contrib/gtalleg/ssf.h
View File

@@ -62,26 +62,26 @@
#ifndef _SSF_H_
#define _SSF_H_
#if defined(__BORLANDC__)
#if defined( __BORLANDC__ )
#define ALLEGRO_NO_ASM
#define ALLEGRO_BCC32
#elif defined(_MSC_VER)
#if defined(_WIN64)
#elif defined( _MSC_VER )
#if defined( _WIN64 )
#define ALLEGRO_NO_ASM
#endif
#define ALLEGRO_MSVC
#elif defined(__MINGW32__) || defined(__CYGWIN__)
#elif defined( __MINGW32__ ) || defined( __CYGWIN__ )
#define ALLEGRO_MINGW32
#if defined(__CYGWIN__)
#if defined( __CYGWIN__ )
#define SCAN_DEPEND
#endif
#elif defined(__DMC__)
#elif defined( __DMC__ )
#define ALLEGRO_DMC
#elif defined(__DJGPP__)
#elif defined( __DJGPP__ )
#define ALLEGRO_DJGPP
#elif defined(__WATCOMC__)
#elif defined( __WATCOMC__ )
#define ALLEGRO_WATCOM
#elif defined(HB_OS_DARWIN)
#elif defined( HB_OS_DARWIN )
#define ALLEGRO_MACOSX
#endif

20
harbour/contrib/gtwvg/gtwvg.c
View File

@@ -833,7 +833,7 @@ static BOOL hb_gt_wvt_FitSize( PHB_GTWVT pWVT )
pWVT->PTEXTSIZE.x = tm.tmAveCharWidth;
pWVT->PTEXTSIZE.y = tm.tmHeight;
#if defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN_CE )
pWVT->FixedFont = FALSE;
#else
pWVT->FixedFont = !pWVT->Win9X && pWVT->fontWidth >= 0 &&
@@ -925,7 +925,7 @@ static void hb_gt_wvt_Maximize( PHB_GTWVT pWVT )
/* Disable "maximize" button */
{
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
DWORD style = GetWindowLong( pWVT->hWnd, GWL_STYLE );
SetWindowLong( pWVT->hWnd, GWL_STYLE, style &~ WS_MAXIMIZEBOX );
#else
@@ -987,7 +987,7 @@ static void hb_gt_wvt_ResetWindowSize( PHB_GTWVT pWVT )
tm.tmAveCharWidth; /* For fixed FONT should == tm.tmMaxCharWidth */
pWVT->PTEXTSIZE.y = tm.tmHeight; /* but seems to be a problem on Win9X so */
/* assume proportional fonts always for Win9X */
#if defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN_CE )
pWVT->FixedFont = FALSE;
#else
pWVT->FixedFont = !pWVT->Win9X && pWVT->fontWidth >= 0 &&
@@ -1293,7 +1293,7 @@ static void hb_gt_wvt_MouseEvent( PHB_GTWVT pWVT, UINT message, WPARAM wParam, L
rect.right != pWVT->sRectOld.right ||
rect.bottom != pWVT->sRectOld.bottom )
{
#if !defined(HB_OS_WIN_CE) /* WinCE does not support InvertRgn */
#if !defined( HB_OS_WIN_CE ) /* WinCE does not support InvertRgn */
/* Concept forwarded by Andy Wos - thanks. */
HRGN rgn1 = CreateRectRgn( pWVT->sRectOld.left, pWVT->sRectOld.top, pWVT->sRectOld.right, pWVT->sRectOld.bottom );
HRGN rgn2 = CreateRectRgn( rect.left, rect.top, rect.right, rect.bottom );
@@ -2084,7 +2084,7 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara
/* Enable "maximize" button */
{
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
SetWindowLong( pWVT->hWnd, GWL_STYLE, GetWindowLong( pWVT->hWnd, GWL_STYLE ) | WS_MAXIMIZEBOX );
#else
SetWindowLongPtr( pWVT->hWnd, GWL_STYLE, GetWindowLong( pWVT->hWnd, GWL_STYLE ) | WS_MAXIMIZEBOX );
@@ -2100,7 +2100,7 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara
hb_gt_wvt_FitSizeRows( pWVT );
return 0;
#if ! defined(HB_OS_WIN_CE)
#if ! defined( HB_OS_WIN_CE )
case WM_NCLBUTTONDBLCLK:
if( !pWVT->bMaximized )
{
@@ -2555,7 +2555,7 @@ static BOOL hb_gt_wvt_CreateConsoleWindow( PHB_GTWVT pWVT )
if( pSetLayeredWindowAttributes )
{
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
SetWindowLong( pWVT->hWnd, GWL_EXSTYLE, GetWindowLong( pWVT->hWnd, GWL_EXSTYLE ) | WS_EX_LAYERED );
#else
SetWindowLongPtr( pWVT->hWnd, GWL_EXSTYLE, GetWindowLongPtr( pWVT->hWnd, GWL_EXSTYLE ) | WS_EX_LAYERED );
@@ -3276,7 +3276,7 @@ static BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
pWVT->bResizable = bNewValue;
if( pWVT->hWnd )
{
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
LONG style = GetWindowLong( pWVT->hWnd, GWL_STYLE );
#else
LONG_PTR style = GetWindowLongPtr( pWVT->hWnd, GWL_STYLE );
@@ -3285,7 +3285,7 @@ static BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
style = style | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_THICKFRAME;
else
style = ( style & ~( WS_MAXIMIZEBOX | WS_THICKFRAME ) ) | WS_BORDER;
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
SetWindowLong( pWVT->hWnd, GWL_STYLE, style );
#else
SetWindowLongPtr( pWVT->hWnd, GWL_STYLE, style );
@@ -3314,7 +3314,7 @@ static BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
pWVT->pszSelectCopy = hb_strdup( hb_itemGetCPtr( pInfo->pNewVal ) );
pWVT->bSelectCopy = TRUE;
#if !defined(HB_OS_WIN_CE) /* WinCE does not support ModifyMenu */
#if !defined( HB_OS_WIN_CE ) /* WinCE does not support ModifyMenu */
if( hSysMenu )
{
LPTSTR buffer;

14
harbour/contrib/gtwvg/gtwvg.h
View File

@@ -154,15 +154,15 @@ HB_EXTERN_BEGIN
#define WVT_DLGMD_MAX 50
/*----------------------------------------------------------------------*/
#if defined(__DMC__)
#if defined( __DMC__ )
#if (_WIN32_IE >= 0x0300)
#if !defined(ICC_BAR_CLASSES)
#if !defined( ICC_BAR_CLASSES )
#define ICC_BAR_CLASSES 0x00000004
#endif
#if !defined(COLOR16)
#if !defined( COLOR16 )
typedef USHORT COLOR16;
#endif
#if !defined(TRIVERTEX)
#if !defined( TRIVERTEX )
typedef struct _TRIVERTEX {
LONG x;
LONG y;
@@ -178,7 +178,7 @@ HB_EXTERN_BEGIN
DWORD dwICC; /* flags indicating which classes to be initialized */
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
#endif
#if !defined(InitCommonControlsEx)
#if !defined( InitCommonControlsEx )
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
#endif
#endif
@@ -212,13 +212,13 @@ HB_EXTERN_BEGIN
#endif
#if defined( __cplusplus ) && ( defined( __BORLANDC__ ) || defined( _MSC_VER ) || ( defined(__WATCOMC__) && ( __WATCOMC__ >= 1280 ) ) )
#if defined( __cplusplus ) && ( defined( __BORLANDC__ ) || defined( _MSC_VER ) || ( defined( __WATCOMC__ ) && ( __WATCOMC__ >= 1280 ) ) )
# define HB_ID_REF( type, id ) id
#else
# define HB_ID_REF( type, id ) ( ( type ) &id )
#endif
#if defined(__BORLANDC__)
#if defined( __BORLANDC__ )
#if __BORLANDC__ == 0x0550
#ifdef __cplusplus
extern "C" { STDAPI OleLoadPicture(LPSTREAM,LONG,BOOL,REFIID,PVOID*); }

1
harbour/contrib/gtwvg/wvgax.prg
View File

@@ -404,4 +404,3 @@ METHOD onError( oError ) CLASS AutomationObject
RETURN xValue
#endif
/*----------------------------------------------------------------------*/

94
harbour/contrib/gtwvg/wvgcore.c
View File

@@ -1066,7 +1066,7 @@ HB_FUNC( WVT_DRAWBOXGET )
yz = hb_wvt_gtGetXYFromColRow( ( USHORT ) ( hb_parni( 2 ) + hb_parni( 3 ) ), ( USHORT ) hb_parni( 1 ) + 1 );
hb_wvt_DrawBoxGet( _s->hdc, xy.y, xy.x, yz.y, yz.x );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxGet( _s->hGuiDC, xy.y, xy.x, yz.y, yz.x );
@@ -1088,7 +1088,7 @@ HB_FUNC( WVT_DRAWBOXRAISED )
int iRight = ( _s->PTEXTSIZE.x * ( hb_parni( 4 ) + 1 ) ) - 1 + hb_parvni( 5,4 );
hb_wvt_DrawBoxRaised( _s->hdc, iTop-1, iLeft-1, iBottom+1, iRight+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxRaised( _s->hGuiDC, iTop-1, iLeft-1, iBottom+1, iRight+1 );
@@ -1110,7 +1110,7 @@ HB_FUNC( WVT_DRAWBOXRECESSED )
int iRight = ( _s->PTEXTSIZE.x * ( hb_parni( 4 ) + 1 ) ) - 1 + hb_parvni( 5,4 );
hb_wvt_DrawBoxRecessed( _s->hdc, iTop-1, iLeft-1, iBottom+1, iRight+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxRecessed( _s->hGuiDC, iTop-1, iLeft-1, iBottom+1, iRight+1 );
@@ -1132,7 +1132,7 @@ HB_FUNC( WVT_DRAWBOXGROUP )
int iRight = ( _s->PTEXTSIZE.x * ( hb_parni( 4 ) + 1 ) ) - 1 + hb_parvni( 5,4 );
hb_wvt_DrawBoxGroup( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxGroup( _s->hGuiDC, iTop, iLeft, iBottom, iRight );
@@ -1154,7 +1154,7 @@ HB_FUNC( WVT_DRAWBOXGROUPRAISED )
int iRight = ( _s->PTEXTSIZE.x * ( hb_parni( 4 ) + 1 ) ) - 1 + hb_parvni( 5,4 );
hb_wvt_DrawBoxGroupRaised( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxGroupRaised( _s->hGuiDC, iTop, iLeft, iBottom, iRight );
@@ -1189,7 +1189,7 @@ HB_FUNC( WVT_DRAWIMAGE )
else
{
hb_wvt_DrawImage( _s->hdc, iLeft, iTop, ( iRight - iLeft ) + 1, ( iBottom - iTop ) + 1, hb_parcx( 5 ) ) ;
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawImage( _s->hGuiDC, iLeft, iTop, ( iRight - iLeft ) + 1, ( iBottom - iTop ) + 1, hb_parcx( 5 ) ) ;
@@ -1253,7 +1253,7 @@ HB_FUNC( WVT_DRAWLABEL )
ExtTextOut( _s->hdc, xy.x, xy.y, 0, NULL, text, lstrlen( text ), NULL );
SelectObject( _s->hdc, hOldFont );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SetBkColor( _s->hGuiDC, bgClr );
@@ -1309,7 +1309,7 @@ HB_FUNC( WVT_DRAWOUTLINE )
}
hb_wvt_DrawOutline( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
if ( hPen )
@@ -1424,7 +1424,7 @@ HB_FUNC( WVT_DRAWLINE )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x, y+1, NULL );
LineTo( _s->hdc, iRight, y+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->penWhite );
@@ -1444,7 +1444,7 @@ HB_FUNC( WVT_DRAWLINE )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x+1, y, NULL );
LineTo( _s->hdc, x+1, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->penWhite );
@@ -1469,7 +1469,7 @@ HB_FUNC( WVT_DRAWLINE )
SelectObject( _s->hdc, _s->pGUI->penWhite );
MoveToEx( _s->hdc, x, y+1, NULL );
LineTo( _s->hdc, iRight, y+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -1489,7 +1489,7 @@ HB_FUNC( WVT_DRAWLINE )
SelectObject( _s->hdc, _s->pGUI->penWhite );
MoveToEx( _s->hdc, x+1, y, NULL );
LineTo( _s->hdc, x+1, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -1511,7 +1511,7 @@ HB_FUNC( WVT_DRAWLINE )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x, y, NULL );
LineTo( _s->hdc, iRight, y );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -1525,7 +1525,7 @@ HB_FUNC( WVT_DRAWLINE )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x, y, NULL );
LineTo( _s->hdc, x, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -1565,7 +1565,7 @@ HB_FUNC( WVT_DRAWELLIPSE )
SelectObject( _s->hdc, _s->currentPen );
hb_retl( Ellipse( _s->hdc, iLeft, iTop, iRight, iBottom ) );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_retl( Ellipse( _s->hGuiDC, iLeft, iTop, iRight, iBottom ) );
@@ -1590,7 +1590,7 @@ HB_FUNC( WVT_DRAWRECTANGLE )
SelectObject( _s->hdc, _s->currentPen );
hb_retl( Rectangle( _s->hdc, iLeft, iTop, iRight, iBottom ) );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_retl( Rectangle( _s->hGuiDC, iLeft, iTop, iRight, iBottom ) );
@@ -1619,7 +1619,7 @@ HB_FUNC( WVT_DRAWROUNDRECT )
SelectObject( _s->hdc, _s->currentPen );
hb_retl( RoundRect( _s->hdc, iLeft, iTop, iRight, iBottom, iWd, iHt ) );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_retl( RoundRect( _s->hGuiDC, iLeft, iTop, iRight, iBottom, iWd, iHt ) );
@@ -1647,7 +1647,7 @@ HB_FUNC( WVT_DRAWFOCUSRECT )
rc.bottom = iBottom;
hb_retl( DrawFocusRect( _s->hdc, &rc ) );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_retl( DrawFocusRect( _s->hGuiDC, &rc ) );
@@ -1680,7 +1680,7 @@ HB_FUNC( WVT_DRAWCOLORRECT )
rc.bottom = iBottom;
hb_retl( FillRect( _s->hdc, &rc, hBrush ) );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_retl( FillRect( _s->hGuiDC, &rc, hBrush ) );
@@ -1720,7 +1720,7 @@ HB_FUNC( WVT_DRAWGRIDHORZ )
iAtRow++;
}
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
iAtRow = hb_parni( 1 );
@@ -1775,7 +1775,7 @@ HB_FUNC( WVT_DRAWGRIDVERT )
MoveToEx( _s->hdc, x, iTop, NULL );
LineTo( _s->hdc, x, iBottom );
}
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->currentPen );
@@ -1837,7 +1837,7 @@ HB_FUNC( WVT_DRAWBUTTON )
rc.bottom = iBottom + 1;
FillRect( _s->hdc, &rc, hBrush );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
FillRect( _s->hGuiDC, &rc, hBrush );
@@ -2085,7 +2085,7 @@ HB_FUNC( WVT_DRAWLABELEX )
SelectObject( _s->hdc, _s->pGUI->hUserFonts[ iSlot ] );
ExtTextOut( _s->hdc, xy.x, xy.y, 0, NULL, text, lstrlen( text ), NULL );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SetBkColor( _s->hGuiDC, bgClr );
@@ -2198,7 +2198,7 @@ HB_FUNC( WVT_DRAWLINEEX )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x, y+1, NULL );
LineTo( _s->hdc, iRight, y+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->penWhite );
@@ -2218,7 +2218,7 @@ HB_FUNC( WVT_DRAWLINEEX )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x+1, y, NULL );
LineTo( _s->hdc, x+1, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->penWhite );
@@ -2243,7 +2243,7 @@ HB_FUNC( WVT_DRAWLINEEX )
SelectObject( _s->hdc, _s->pGUI->penWhite );
MoveToEx( _s->hdc, x, y+1, NULL );
LineTo( _s->hdc, iRight, y+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -2263,7 +2263,7 @@ HB_FUNC( WVT_DRAWLINEEX )
SelectObject( _s->hdc, _s->pGUI->penWhite );
MoveToEx( _s->hdc, x+1, y, NULL );
LineTo( _s->hdc, x+1, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -2285,7 +2285,7 @@ HB_FUNC( WVT_DRAWLINEEX )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x, y, NULL );
LineTo( _s->hdc, iRight, y );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -2299,7 +2299,7 @@ HB_FUNC( WVT_DRAWLINEEX )
SelectObject( _s->hdc, hPen );
MoveToEx( _s->hdc, x, y, NULL );
LineTo( _s->hdc, x, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, hPen );
@@ -2344,7 +2344,7 @@ HB_FUNC( WVT_DRAWOUTLINEEX )
}
hb_wvt_DrawOutline( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawOutline( _s->hGuiDC, iTop, iLeft, iBottom, iRight );
@@ -2432,7 +2432,7 @@ HB_FUNC( WVT_DRAWLABELOBJ )
uiOptions = ETO_CLIPPED | ETO_OPAQUE ;
ExtTextOut( _s->hdc, x, y, uiOptions, &rect, text, lstrlen( text ), NULL );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SetTextColor( _s->hGuiDC, fgClr );
@@ -2466,7 +2466,7 @@ HB_FUNC( WVT_DRAWTOOLBUTTONSTATE )
case 0: /* Flat */
{
hb_wvt_DrawToolButtonFlat( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawToolButtonFlat( _s->hGuiDC, iTop, iLeft, iBottom, iRight );
@@ -2478,7 +2478,7 @@ HB_FUNC( WVT_DRAWTOOLBUTTONSTATE )
case 1: /* Raised */
{
hb_wvt_DrawToolButtonUp( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawToolButtonUp( _s->hGuiDC, iTop, iLeft, iBottom, iRight );
@@ -2490,7 +2490,7 @@ HB_FUNC( WVT_DRAWTOOLBUTTONSTATE )
case 2: /* Recessed */
{
hb_wvt_DrawToolButtonDown( _s->hdc, iTop, iLeft, iBottom, iRight );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawToolButtonDown( _s->hGuiDC, iTop, iLeft, iBottom, iRight );
@@ -2528,7 +2528,7 @@ HB_FUNC( WVT_DRAWSCROLLBUTTON )
if ( bDepressed )
{
hb_wvt_DrawBoxRecessed( _s->hdc, iTop+1, iLeft+1, iBottom-2, iRight-2 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxRecessed( _s->hGuiDC, iTop+1, iLeft+1, iBottom-2, iRight-2 );
@@ -2538,7 +2538,7 @@ HB_FUNC( WVT_DRAWSCROLLBUTTON )
else
{
hb_wvt_DrawBoxRaised( _s->hdc, iTop+1, iLeft+1, iBottom-2, iRight-2 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxRaised( _s->hGuiDC, iTop+1, iLeft+1, iBottom-2, iRight-2 );
@@ -2603,7 +2603,7 @@ HB_FUNC( WVT_DRAWSCROLLBUTTON )
SelectObject( _s->hdc, _s->pGUI->solidBrush );
Polygon( _s->hdc, Point, 3 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->solidBrush );
@@ -2633,7 +2633,7 @@ HB_FUNC( WVT_DRAWSCROLLTHUMBVERT )
SelectObject( _s->hdc, _s->pGUI->diagonalBrush );
SelectObject( _s->hdc, _s->pGUI->penNull );
Rectangle( _s->hdc, iLeft, iTop, iRight+1, iBottom+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SetBkMode( _s->hGuiDC, OPAQUE );
@@ -2652,7 +2652,7 @@ HB_FUNC( WVT_DRAWSCROLLTHUMBVERT )
SelectObject( _s->hdc, _s->pGUI->whiteBrush );
SelectObject( _s->hdc, _s->pGUI->penGray );
Rectangle( _s->hdc, iTabLft, iTabTop, iTabRgt+1, iTabBtm );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->whiteBrush );
@@ -2661,7 +2661,7 @@ HB_FUNC( WVT_DRAWSCROLLTHUMBVERT )
}
#endif
hb_wvt_DrawBoxRaised( _s->hdc, iTabTop+1, iTabLft+1, iTabBtm-2, iTabRgt-2 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxRaised( _s->hGuiDC, iTabTop+1, iTabLft+1, iTabBtm-2, iTabRgt-2 );
@@ -2692,7 +2692,7 @@ HB_FUNC( WVT_DRAWSCROLLTHUMBHORZ )
SelectObject( _s->hdc, _s->pGUI->diagonalBrush );
SelectObject( _s->hdc, _s->pGUI->penNull );
Rectangle( _s->hdc, iLeft, iTop, iRight+1, iBottom+1 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SetBkMode( _s->hGuiDC, OPAQUE );
@@ -2706,7 +2706,7 @@ HB_FUNC( WVT_DRAWSCROLLTHUMBHORZ )
SelectObject( _s->hdc, _s->pGUI->whiteBrush );
SelectObject( _s->hdc, _s->pGUI->penGray );
Rectangle( _s->hdc, iThumbLeft, iTop, iThumbRight, iBottom );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SelectObject( _s->hGuiDC, _s->pGUI->whiteBrush );
@@ -2715,7 +2715,7 @@ HB_FUNC( WVT_DRAWSCROLLTHUMBHORZ )
}
#endif
hb_wvt_DrawBoxRaised( _s->hdc, iTop+1, iThumbLeft+1, iBottom-2, iThumbRight-2 );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawBoxRaised( _s->hGuiDC, iTop+1, iThumbLeft+1, iBottom-2, iThumbRight-2 );
@@ -2764,7 +2764,7 @@ HB_FUNC( WVT_DRAWSHADEDRECT )
gRect.LowerRight= 1;
bGF = ( BOOL ) _s->pGUI->pfnGF( _s->hdc, vert, 2, &gRect, 1, iMode );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
bGF = ( BOOL ) _s->pGUI->pfnGF( _s->hGuiDC, vert, 2, &gRect, 1, iMode );
@@ -2825,7 +2825,7 @@ HB_FUNC( WVT_DRAWTEXTBOX )
SelectObject( _s->hdc, ( HFONT ) ( HB_PTRDIFF ) hb_parnint( 12 ) );
DrawText( _s->hdc, text, lstrlen( text ), &rc, iAlignH | DT_WORDBREAK | DT_TOP );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
SetTextAlign( _s->hGuiDC, TA_TOP | TA_LEFT | TA_NOUPDATECP );
@@ -2907,7 +2907,7 @@ HB_FUNC( WVT_DRAWPROGRESSBAR )
if ( bImage )
{
hb_wvt_DrawImage( _s->hdc, rc.left, rc.top, rc.right-rc.left+1, rc.bottom-rc.top+1, hb_parc( 9 ) );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
hb_wvt_DrawImage( _s->hGuiDC, rc.left, rc.top, rc.right-rc.left+1, rc.bottom-rc.top+1, hb_parc( 9 ) );
@@ -2930,7 +2930,7 @@ HB_FUNC( WVT_DRAWPROGRESSBAR )
rc.right++;
FillRect( _s->hdc, &rc, hBrush );
#if defined(__SETGUI__)
#if defined( __SETGUI__ )
if ( _s->bGui )
{
FillRect( _s->hGuiDC, &rc, hBrush );

4
harbour/contrib/gtwvg/wvggui.c
View File

@@ -1805,7 +1805,7 @@ static BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
pWVT->bResizable = bNewValue;
if( pWVT->hWnd )
{
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
LONG style;
#else
LONG_PTR style;
@@ -1815,7 +1815,7 @@ static BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
else
style = WS_OVERLAPPED|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_BORDER;
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
SetWindowLong( pWVT->hWnd, GWL_STYLE, style );
#else
SetWindowLongPtr( pWVT->hWnd, GWL_STYLE, style );

16
harbour/contrib/gtwvg/wvggui.h
View File

@@ -150,15 +150,15 @@ HB_EXTERN_BEGIN
#define WVT_DLGMD_MAX 50
/*----------------------------------------------------------------------*/
#if defined(__DMC__)
#if defined( __DMC__ )
#if (_WIN32_IE >= 0x0300)
#if !defined(ICC_BAR_CLASSES)
#if !defined( ICC_BAR_CLASSES )
#define ICC_BAR_CLASSES 0x00000004
#endif
#if !defined(COLOR16)
#if !defined( COLOR16 )
typedef USHORT COLOR16;
#endif
#if !defined(TRIVERTEX)
#if !defined( TRIVERTEX )
typedef struct _TRIVERTEX {
LONG x;
LONG y;
@@ -174,7 +174,7 @@ HB_EXTERN_BEGIN
DWORD dwICC; /* flags indicating which classes to be initialized */
} INITCOMMONCONTROLSEX, *LPINITCOMMONCONTROLSEX;
#endif
#if !defined(InitCommonControlsEx)
#if !defined( InitCommonControlsEx )
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
#endif
#endif
@@ -208,13 +208,13 @@ HB_EXTERN_BEGIN
#endif
#if defined( __cplusplus ) && ( defined( __BORLANDC__ ) || defined( _MSC_VER ) || ( defined(__WATCOMC__) && ( __WATCOMC__ >= 1280 ) ) )
#if defined( __cplusplus ) && ( defined( __BORLANDC__ ) || defined( _MSC_VER ) || ( defined( __WATCOMC__ ) && ( __WATCOMC__ >= 1280 ) ) )
# define HB_ID_REF( type, id ) id
#else
# define HB_ID_REF( type, id ) ( ( type ) &id )
#endif
#if defined(__BORLANDC__)
#if defined( __BORLANDC__ )
#if __BORLANDC__ == 0x0550
#ifdef __cplusplus
extern "C" { STDAPI OleLoadPicture(LPSTREAM,LONG,BOOL,REFIID,PVOID*); }
@@ -291,7 +291,7 @@ typedef struct
PHB_CODEPAGE hostCDP; /* Host/HVM CodePage for unicode output translations */
PHB_CODEPAGE inCDP; /* Host/HVM CodePage for unicode input translations */
#if !defined(UNICODE)
#if !defined( UNICODE )
BYTE keyTransTbl[ 256 ];
BYTE chrTransTbl[ 256 ];
#endif

2
harbour/contrib/gtwvg/wvgsink.c
View File

@@ -63,7 +63,7 @@
/*----------------------------------------------------------------------*/
#if defined(__BORLANDC__) && !defined(HB_ARCH_64BIT)
#if defined( __BORLANDC__ ) && !defined( HB_ARCH_64BIT )
#undef MAKELONG
#define MAKELONG(a,b) ((LONG)(((WORD)((DWORD_PTR)(a) & 0xffff)) | \
(((DWORD)((WORD)((DWORD_PTR)(b) & 0xffff))) << 16)))

2
harbour/contrib/gtwvg/wvgtabpg.prg
View File

@@ -545,4 +545,4 @@ TCS_RAGGEDRIGHT
TCS_RIGHT
TCS_VERTICAL
#endif
#endif

8
harbour/contrib/gtwvg/wvgutils.c
View File

@@ -73,11 +73,11 @@
#include "gtwvg.h"
/* workaround for missing declaration in MinGW32 */
#if !defined(TTM_SETTITLE) && defined(TTM_SETTITLEA)
#if !defined( TTM_SETTITLE ) && defined( TTM_SETTITLEA )
#define TTM_SETTITLE TTM_SETTITLEA
#endif
#if defined(__MINGW32CE__)
#if defined( __MINGW32CE__ )
/* ChooseColorW() problem is fixed in current devel MINGW32CE version but
* people who use recent official release (0.50) needs it
*/
@@ -604,8 +604,8 @@ HB_FUNC( WVT_SETPOINTER )
break;
}
#if !defined(HB_ARCH_64BIT) && ( defined( __WATCOMC__ ) || defined(__DMC__) || \
( defined(_MSC_VER) && ( _MSC_VER <= 1200 || defined(HB_OS_WIN_CE) ) ) )
#if !defined( HB_ARCH_64BIT ) && ( defined( __WATCOMC__ ) || defined( __DMC__ ) || \
( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) ) )
SetClassLong( _s->hWnd, GCLP_HCURSOR, ( DWORD ) hCursor );
#else
SetClassLongPtr( _s->hWnd, GCLP_HCURSOR, ( LONG_PTR ) hCursor );

4
harbour/contrib/gtwvg/wvgwin.c
View File

@@ -109,7 +109,7 @@
/*----------------------------------------------------------------------*/
#if defined(__BORLANDC__) && !defined(HB_ARCH_64BIT)
#if defined( __BORLANDC__ ) && !defined( HB_ARCH_64BIT )
#undef MAKELONG
#define MAKELONG(a,b) ((LONG)(((WORD)((DWORD_PTR)(a) & 0xffff)) | \
(((DWORD)((WORD)((DWORD_PTR)(b) & 0xffff))) << 16)))
@@ -916,7 +916,7 @@ HB_FUNC( WVG_SETWNDPROC )
WNDPROC wndProc = ( WNDPROC ) ( HB_PTRDIFF ) hb_parnint( 2 );
WNDPROC oldProc;
#if ( defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
oldProc = ( WNDPROC ) SetWindowLong( hWnd, GWL_WNDPROC, ( long ) wndProc );
#else
oldProc = ( WNDPROC ) SetWindowLongPtr( hWnd, GWLP_WNDPROC, ( HB_PTRDIFF ) wndProc );

6
harbour/contrib/gtwvg/wvgwing.c
View File

@@ -109,7 +109,7 @@
/*----------------------------------------------------------------------*/
#if defined(__BORLANDC__) && !defined(HB_ARCH_64BIT)
#if defined( __BORLANDC__ ) && !defined( HB_ARCH_64BIT )
#undef MAKELONG
#define MAKELONG(a,b) ((LONG)(((WORD)((DWORD_PTR)(a) & 0xffff)) | \
(((DWORD)((WORD)((DWORD_PTR)(b) & 0xffff))) << 16)))
@@ -1013,7 +1013,7 @@ HB_FUNC( WVG_HEIGHTTOPOINTSIZE )
HB_FUNC( WVG_SETCURRENTBRUSH )
{
#if ! defined( HB_OS_WIN_CE )
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
SetClassLong( wvg_parhwnd( 1 ), GCL_HBRBACKGROUND, ( DWORD ) hb_parnint( 2 ) );
#else
SetClassLongPtr( wvg_parhwnd( 1 ), GCLP_HBRBACKGROUND, ( LONG_PTR ) hb_parnint( 2 ) );
@@ -1195,7 +1195,7 @@ HB_FUNC( WVG_SETWINDOWPROCBLOCK )
SetProp( hWnd, TEXT( "BLOCKCALLBACK" ), pBlock );
#if (defined(_MSC_VER) && (_MSC_VER <= 1200 || defined(HB_OS_WIN_CE)) || defined(__DMC__)) && !defined(HB_ARCH_64BIT)
#if ( defined( _MSC_VER ) && ( _MSC_VER <= 1200 || defined( HB_OS_WIN_CE ) ) || defined( __DMC__ ) ) && !defined( HB_ARCH_64BIT )
oldProc = ( WNDPROC ) SetWindowLong( hWnd, GWL_WNDPROC, ( long ) ControlWindowProcedure );
#else
oldProc = ( WNDPROC ) SetWindowLongPtr( hWnd, GWLP_WNDPROC, ( HB_PTRDIFF ) ControlWindowProcedure );

2
harbour/contrib/hbblat/hbblat.ch
View File

@@ -197,4 +197,4 @@ Gensock Error Code Descriptions
#define BLAT_TRY_INFINITE_VALUE 'INFINITE'
#endif // _HBBLAT_CH
#endif // _HBBLAT_CH

2
harbour/contrib/hbclipsm/num.c
View File

@@ -66,7 +66,7 @@ HB_FUNC( DTOR )
hb_retndlen( ( hb_parnd( 1 ) / 180 ) * PI, 10, 9 );
}
/* NumAsLog10( <nNumber> ) --> nLog10
/* NumAsLog10( <nNumber> ) --> nLog10
Convert a positive number to log base 10
*/
HB_FUNC( NUMASLOG10 )

2
harbour/contrib/hbclipsm/stack.c
View File

@@ -64,7 +64,7 @@ HB_FUNC( STACKNEW )
*/
HB_FUNC( STACKPUSH )
{
hb_arrayAdd( hb_param( 1, HB_IT_ARRAY ),
hb_arrayAdd( hb_param( 1, HB_IT_ARRAY ),
hb_param( 2, HB_IT_ANY ) );
}

2
harbour/contrib/hbct/atnum.c
View File

@@ -251,7 +251,7 @@ static void do_atnum( int iSwitch )
case DO_ATNUM_ATNUM:
/* ATNUM */
#if defined(__POCC__) && (__POCC__ >= 500) && defined(HB_OS_WIN_64)
#if defined( __POCC__ ) && ( __POCC__ >= 500 ) && defined( HB_OS_WIN_64 )
/* NOTE: Workaround for Pelles C 5.00.13 AMD64 mode internal error:
'fatal error: Internal error: reduce_tree()' [vszakats]. */
hb_retnl( pc - pcString + sIgnore + 1 );

2
harbour/contrib/hbct/charevod.c
View File

@@ -3,7 +3,7 @@
*/
/*
* Harbour Project source code:
* Harbour Project source code:
* CT3 string functions
* - CHAREVEN()
* - CHARODD()

6
harbour/contrib/hbct/charlist.c
View File

@@ -3,11 +3,11 @@
*/
/*
* Harbour Project source code:
* Harbour Project source code:
* CT3 string functions
* - CHARLIST()
* - CHARSLIST() (NEW)
* - CHARNOLIST()
* - CHARNOLIST()
* - CHARHIST() (NEW)
*
* Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany
@@ -317,7 +317,7 @@ HB_FUNC( CHARNOLIST )
* Default: "" (empty string)
* $RETURNS$
* <aCharacterCount> an array with 256 elements where the nth element
* contains the count of character #(n-1) in cString
* contains the count of character #(n-1) in cString
* $DESCRIPTION$
* The CHARHIST() function generates a character histogram of those
* characters that are contained in <cString>. This histogram is stored

4
harbour/contrib/hbct/charone.c
View File

@@ -3,7 +3,7 @@
*/
/*
* Harbour Project source code:
* Harbour Project source code:
* CT3 string functions
* - CHARONE()
* - WORDONE()
@@ -225,7 +225,7 @@ static void do_charone( int iSwitch )
* The CHARONE() function reduces multiple occurences of characters in
* <cString> to a single one. It is important to note that the multiple
* occurences must occur directly one behind the other. This behaviour is
* is in contrast to the CHARLIST() function.
* is in contrast to the CHARLIST() function.
* $EXAMPLES$
* ? CHARONE("122333a123") // "123a123"
* ? CHARONE("A B CCCD") // "A B CD"

2
harbour/contrib/hbct/charonly.c
View File

@@ -3,7 +3,7 @@
*/
/*
* Harbour Project source code:
* Harbour Project source code:
* CT3 string functions
* - CHARONLY()
* - CHARREM()

20
harbour/contrib/hbct/color.c
View File

@@ -61,9 +61,9 @@
* $CATEGORY$
* CT3 video functions
* $ONELINER$
*
*
* $SYNTAX$
*
*
* $ARGUMENTS$
* $RETURNS$
* $DESCRIPTION$
@@ -119,10 +119,10 @@ HB_FUNC( INVERTATTR )
*
* $DESCRIPTION$
* COLOR TO (N)umeric
* The function changes an alphanumeric color attribute from NN/NN or
* CC/CC into a combined numeric attribute. These combined attribute
* values are useful with the CA-Cl*pper Tools functions STRSCREEN(),
* SCREENMIX(), SCREENATTR(), and the CA-Cl*pper commands
* The function changes an alphanumeric color attribute from NN/NN or
* CC/CC into a combined numeric attribute. These combined attribute
* values are useful with the CA-Cl*pper Tools functions STRSCREEN(),
* SCREENMIX(), SCREENATTR(), and the CA-Cl*pper commands
* SAVE/RESTORE SCREEN.
*
* TODO: add documentation
@@ -165,16 +165,16 @@ HB_FUNC( COLORTON )
*
* <lColorCode> If designated as .F. or if the parameter is omitted,
* NTOCOLOR() returns a string with a numeric color code.
* When designated as .T., NTOCOLOR() returns a string with
* When designated as .T., NTOCOLOR() returns a string with
* the CA-Cl*pper alpha color coding.
*
* $RETURNS$
* NTOCOLOR() returns the designated color attribute in the NN/NN
* NTOCOLOR() returns the designated color attribute in the NN/NN
* or CC/CC form.
*
* $DESCRIPTION$
* NTOCOLOR() converts a color attribute returned from another function
* in numeric form, into the alphanumeric data format. Use this
* NTOCOLOR() converts a color attribute returned from another function
* in numeric form, into the alphanumeric data format. Use this
* attribute in conjunction with the CA-Cl*pper SET COLOR TO command.
*
* TODO: add documentation

14
harbour/contrib/hbct/ct.prg
View File

@@ -70,10 +70,10 @@ static sbInitialized := .F.
* $RETURNS$
* lInitialized .T. if the function has been correctly initialized
* $DESCRIPTION$
* The CTINIT() function initializes the CT3 library.
* The CTINIT() function initializes the CT3 library.
* Identical code is declared as INIT FUNCTION, thus should be executed
* automatically at the beginning of the application, but it is a good
* idea to call it once again explicitly somewhere at the beginning of
* automatically at the beginning of the application, but it is a good
* idea to call it once again explicitly somewhere at the beginning of
* your program to check the initialization.
* $EXAMPLES$
* $TESTS$
@@ -120,10 +120,10 @@ return sbInitialized
* $RETURNS$
* nil
* $DESCRIPTION$
* The CTEXIT() function uninitializes the CT3 library.
* Identical code is declared as EXIT FUNCTION, thus should be executed
* automatically at the end of the application, but it is a good idea
* to call it explicitly somewhere at the end of your program to make
* The CTEXIT() function uninitializes the CT3 library.
* Identical code is declared as EXIT FUNCTION, thus should be executed
* automatically at the end of the application, but it is a good idea
* to call it explicitly somewhere at the end of your program to make
* sure that the deinitialization takes place.
* $EXAMPLES$
* $TESTS$

44
harbour/contrib/hbct/cterror.ch
View File

@@ -111,9 +111,9 @@
#define CT_ERROR_GETREAD_RANGEL 8900 /* get & read functions */
#define CT_ERROR_GETREAD_RANGEH 9099
/*
* function error sub codes
*
/*
* function error sub codes
*
* The sub code simply defines the function that throws the error.
* The last digit stands for the type of the return value of the function:
*
@@ -160,7 +160,7 @@
#define CT_ERROR_WSETMOVE 1404
#define CT_ERROR_WSETSHADOW 1412
#define CT_ERROR_WSTEP 1422
/* extended driver */
#define CT_ERROR_CGA40 1614
#define CT_ERROR_CGA80 1624
@@ -228,7 +228,7 @@
#define CT_ERROR_COM_FLUSH 2524
#define CT_ERROR_COM_GETIO 2532
#define CT_ERROR_COM_GETIRQ 2542
#define CT_ERROR_COM_HARD 2554
#define CT_ERROR_COM_HARD 2554
#define CT_ERROR_COM_INIT 2564
#define CT_ERROR_COM_KEY 2574
#define CT_ERROR_COM_LSR 2582
@@ -247,13 +247,13 @@
#define CT_ERROR_COM_SFLUSH 2714
#define CT_ERROR_COM_SKEY 2724
#define CT_ERROR_COM_SMODE 2732
#define CT_ERROR_COM_SOFT 2744
#define CT_ERROR_COM_SOFT 2744
#define CT_ERROR_COM_SOFT_R 2754
#define CT_ERROR_COM_SOFT_S 2764
#define CT_ERROR_XMOBLOCK 2771
#define CT_ERROR_XMOCHECK 2782
#define CT_ERROR_ZEROINSERT 2791
#define CT_ERROR_ZEROREMOVE 2801
#define CT_ERROR_XMOBLOCK 2771
#define CT_ERROR_XMOCHECK 2782
#define CT_ERROR_ZEROINSERT 2791
#define CT_ERROR_ZEROREMOVE 2801
/* string functions */
#define CT_ERROR_ADDASCII 3111
@@ -353,7 +353,7 @@
#define CT_ERROR_WORDREPL 4051
#define CT_ERROR_WORDSWAP 4061
#define CT_ERROR_WORDTOCHAR 4071
/* number and bit manipulation */
#define CT_ERROR_BITTOC 4511
#define CT_ERROR_CELSIUS 4523
@@ -389,7 +389,7 @@
#define CT_ERROR_NUMORX 4822
#define CT_ERROR_NUMROLX 4832
#define CT_ERROR_NUMXORX 4842
/* video functions */
#define CT_ERROR_CHARPIX 5012
#define CT_ERROR_CHARWIN 5021
@@ -451,7 +451,7 @@
#define CT_ERROR_VIDEOINIT 5589
#define CT_ERROR_VIDEOSETUP 5592
#define CT_ERROR_VIDEOTYPE 5602
/* disc functions */
#define CT_ERROR_DELETEFILE 5712
#define CT_ERROR_DIRCHANGE 5722
@@ -503,12 +503,12 @@
#define CT_ERROR_TRUENAME 6181
#define CT_ERROR_VOLSERIAL 6192
#define CT_ERROR_VOLUME 6204
/* printer functions */
#define CT_ERROR_NUMPRINTER 6412
#define CT_ERROR_PRINTFILE 6424
#define CT_ERROR_PRINTINIT 6432
#define CT_ERROR_PRINTREADY 6444
#define CT_ERROR_NUMPRINTER 6412
#define CT_ERROR_PRINTFILE 6424
#define CT_ERROR_PRINTINIT 6432
#define CT_ERROR_PRINTREADY 6444
#define CT_ERROR_PRINTSCR 6451
#define CT_ERROR_PRINTSCRX 6464
#define CT_ERROR_PRINTSEND 6472
@@ -604,7 +604,7 @@
#define CT_ERROR_LASTKPROC 7720
#define CT_ERROR_NUMFKEY 7730
#define CT_ERROR_SETLASTKEY 7740
/* system info functions */
#define CT_ERROR_BIOSDATE 7810 /* TODO: change last digit */
#define CT_ERROR_BOOTCOLD 7820
@@ -630,7 +630,7 @@
#define CT_ERROR_PCTYPE 8020
#define CT_ERROR_SSETBREAK 8030
#define CT_ERROR_SSETVERIFY 8040
/* 3.3 misc. functions */
#define CT_ERROR_ALLOFREE 8110 /* TODO: change last digit */
#define CT_ERROR_BLANK 8120
@@ -654,7 +654,7 @@
#define CT_ERROR_STACKFREE 8300
#define CT_ERROR_TOOLVER 8310
#define CT_ERROR_XTOC 8320
/* math functions */
#define CT_ERROR_ACOS 8413
#define CT_ERROR_ASIN 8423
@@ -682,7 +682,7 @@
#define CT_ERROR_SINH 8653
#define CT_ERROR_COSH 8663
#define CT_ERROR_TANH 8673
/* peek and poke functions */
#define CT_ERROR_INBYTE 8810 /* TODO: change last digit */
#define CT_ERROR_INWORD 8820

4
harbour/contrib/hbct/ctnet.c
View File

@@ -88,7 +88,7 @@
#include "hbset.h"
#include "hbapierr.h"
#if defined(HB_OS_WIN)
#if defined( HB_OS_WIN )
# include <windows.h>
# include <winnetwk.h>
@@ -167,7 +167,7 @@ HB_FUNC( NETCANCEL )
dwResult = WNetCancelConnection( lpDevice, TRUE ); /* FALSE = fail if exist open files or print jobs. */
HB_TCHAR_FREE( lpDevice );
/* TRUE = force cancel connection even if exist
/* TRUE = force cancel connection even if exist
* open files or print jobs.
*/
hb_retl( dwResult == NO_ERROR );

1
harbour/contrib/hbct/ctset.c
View File

@@ -55,4 +55,3 @@
#include "ct.h"

2
harbour/contrib/hbct/ctset.h
View File

@@ -3,7 +3,7 @@
*/
/*
* Harbour Project source code:
* Harbour Project source code:
* CT3 switch function header
*
* Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany

2
harbour/contrib/hbct/ctstr.h
View File

@@ -3,7 +3,7 @@
*/
/*
* Harbour Project source code:
* Harbour Project source code:
* internal function header for CT3 string functions
*
* Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany

2
harbour/contrib/hbct/cttime.prg
View File

@@ -68,7 +68,7 @@ elseif ISCHARACTER( cTime )
isdigit( substr( cTime, i + 1, 1 ) ) .and. ;
( i == nLen - 1 .or. substr( cTime, i + 2, 1 ) == ":" ) .and. ;
( n := val( substr( cTime, i, 2 ) ) ) < aLim[ nInd ]
nSec += n * aMod[ nInd ]
nSec += n * aMod[ nInd ]
else
nSec := 0
exit

4
harbour/contrib/hbct/cursor.c
View File

@@ -63,7 +63,7 @@ HB_FUNC( SAVECURSOR )
hb_gtGetPos( &sRow, &sCol );
hb_gtGetCursor( &usCursor );
#ifdef HB_C52_STRICT
#ifdef HB_C52_STRICT
usCursor = ( usCursor != 0 );
#endif
hb_retnl( ( long ) sCol | ( sRow << 8 ) | ( usCursor << 16 ) );
@@ -75,7 +75,7 @@ HB_FUNC( RESTCURSOR )
long lCursor = hb_parnl( 1 );
hb_gtSetPos( ( SHORT ) ( ( lCursor >> 8 ) & 0xff ), ( SHORT ) ( lCursor & 0xff ) );
#ifdef HB_C52_STRICT
#ifdef HB_C52_STRICT
hb_gtSetCursor( ( USHORT ) ( ( lCursor >> 16 ) & 0x01 ) );
#else
hb_gtSetCursor( ( USHORT ) ( ( lCursor >> 16 ) & 0xff ) );

6
harbour/contrib/hbct/dattime3.c
View File

@@ -1,7 +1,7 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* CT3 Date & Time functions:
@@ -291,7 +291,7 @@ HB_FUNC( SETTIME )
iTime[0] = iTime[1] = iTime[2] = iTime[3] = 0;
if( _hb_timeValid( hb_parc( 1 ), hb_parclen( 1 ), iTime ) )
{
#if defined(HB_OS_WIN)
#if defined( HB_OS_WIN )
SYSTEMTIME st;
GetLocalTime( &st );
st.wHour = ( WORD ) iTime[0];
@@ -377,7 +377,7 @@ HB_FUNC( SETDATE )
hb_dateDecode( lDate, &iYear, &iMonth, &iDay );
if( iYear >= 1970 )
{
#if defined(HB_OS_WIN)
#if defined( HB_OS_WIN )
SYSTEMTIME st;
GetLocalTime( &st );
st.wYear = ( WORD ) iYear;

14
harbour/contrib/hbct/disk.c
View File

@@ -70,7 +70,7 @@
#include "hbapifs.h"
#include "ctstrfil.h"
#if defined(HB_OS_WIN)
#if defined( HB_OS_WIN )
# include <windows.h>
# include <winbase.h>
@@ -78,7 +78,7 @@
# define HB_OS_WIN_USED
#elif defined(HB_OS_DOS)
#elif defined( HB_OS_DOS )
# include <dos.h>
@@ -121,7 +121,7 @@ HB_FUNC( DIRNAME )
HB_FUNC( DRIVETYPE )
{
#if defined(HB_OS_WIN) && ! defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN ) && ! defined( HB_OS_WIN_CE )
ULONG ulSize = hb_parclen( 1 ) + 2; /* allow space for '\0' & ":\" */
char *pszDrive = ( char * ) hb_xgrab( ulSize + 1 );
LPTSTR lpDrive;
@@ -246,7 +246,7 @@ HB_FUNC( VOLUME )
if( pszFree )
hb_xfree( pszFree );
}
#if defined(HB_OS_WIN) && ! defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN ) && ! defined( HB_OS_WIN_CE )
{
LPTSTR lpRoot, lpVolName;
lpRoot = sRoot ? HB_TCHAR_CONVTO( sRoot ) : NULL;
@@ -270,7 +270,7 @@ HB_FUNC( VOLUME )
*/
HB_FUNC( GETVOLINFO )
{
#if defined(HB_OS_WIN) && ! defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN ) && ! defined( HB_OS_WIN_CE )
int iretval;
const char *sDrive = hb_parcx( 1 );
TCHAR lpVolName[256];
@@ -307,7 +307,7 @@ HB_FUNC( GETVOLINFO )
HB_FUNC( VOLSERIAL )
{
#if defined(HB_OS_WIN) && ! defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN ) && ! defined( HB_OS_WIN_CE )
int retval;
const char *sDrive = hb_parcx( 1 );
LPTSTR lpDrive;
@@ -338,7 +338,7 @@ HB_FUNC( TRUENAME )
if( szFile )
{
#if defined(HB_OS_WIN) && ! defined(HB_OS_WIN_CE)
#if defined( HB_OS_WIN ) && ! defined( HB_OS_WIN_CE )
char *szBuffRet;
TCHAR buffer[MAX_PATH + 1] = { 0 };
LPTSTR lpFile;

4
harbour/contrib/hbct/exponent.c
View File

@@ -79,7 +79,7 @@
*
* MANTISSA(<nFloatingPointNumber>)* 2^EXPONENT(<nFloatingPointNumber>) =
* <nFloatingPointNumber>
*
*
* TODO: add documentation
* $EXAMPLES$
* $TESTS$
@@ -175,7 +175,7 @@ HB_FUNC( MANTISSA )
*
* 2^EXPONENT(<nFloatingPointNumber>) * MANTISSA(<nFloatingPointNumber>) =
* <nFloatingPointNumber>
*
*
* TODO: add documentation
* $EXAMPLES$
* $TESTS$

4
harbour/contrib/hbct/ftoc.c
View File

@@ -67,7 +67,7 @@
*
* $RETURNS$
* FTOC() return a string with the size of DOUBLE.
* ATTENTION: different implementations or platforms of Harbour, they
* ATTENTION: different implementations or platforms of Harbour, they
* could produce different format in the string returned by FTOC().
*
* $DESCRIPTION$
@@ -112,7 +112,7 @@ HB_FUNC( FTOC )
* $ARGUMENTS$
* <cFloatingPointNumber> Designate a string that contains a Harbour
* number in flotaing point format.
* ATTENTION: different implementations or platforms of Harbour, they
* ATTENTION: different implementations or platforms of Harbour, they
* could produce different format in the string returned by FTOC().
*
* $RETURNS$

2
harbour/contrib/hbct/misc1.c
View File

@@ -67,7 +67,7 @@
* type: NUMBER, CHARACTER, DATE, LOGICAL.
*
* $RETURNS$
* XTOC() return a string with the representation of data type of
* XTOC() return a string with the representation of data type of
* expValue.
*
* $DESCRIPTION$

6
harbour/contrib/hbct/numconv.prg
View File

@@ -171,7 +171,7 @@ RETURN nNum
STATIC FUNCTION B10TOBN( nNum, nBase )
LOCAL nInt
IF nNum > 0
nInt := INT( nNum / nBase)
RETURN iif(nInt==0, "", B10TOBN( nInt, @nBase )) +;
SUBSTR( WORLD, ( nNum % nBase ) + 1, 1 )
@@ -219,13 +219,13 @@ FUNCTION BITTOC( nInteger, cBitPattern, lMode )
cBinary := NTOC( nInteger, 2, 16 )
FOR nI := 1 TO 16
IF SUBSTR( cBinary, -nI, 1 ) == '1'
cString := SUBSTR( cBitPattern, -nI, 1 ) + cString
ELSEIF lMode
cString := ' ' + cString
ENDIF

4
harbour/contrib/hbct/print.c
View File

@@ -94,7 +94,7 @@ HB_FUNC( PRINTSTAT )
USHORT uiPort = HB_ISNUM( 1 ) ? ( USHORT ) hb_parni( 1 ) : 1;
int Status = 0;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
/* NOTE: DOS specific solution, using BIOS interrupt */
@@ -145,7 +145,7 @@ HB_FUNC( PRINTREADY )
USHORT uiPort = HB_ISNUM( 1 ) ? ( USHORT ) hb_parni( 1 ) : 1;
int Status = 0;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
/* NOTE: DOS specific solution, using BIOS interrupt */

10
harbour/contrib/hbcurl/hbcurl.ch
View File

@@ -109,7 +109,7 @@
#define HB_CURLOPT_FTPLISTONLY HB_CURLOPT_DIRLISTONLY
#define HB_CURLOPT_APPEND 50 /* Append instead of overwrite on upload! */
#define HB_CURLOPT_FTPAPPEND HB_CURLOPT_APPEND
#define HB_CURLOPT_NETRC 51
#define HB_CURLOPT_NETRC 51
#define HB_CURLOPT_FOLLOWLOCATION 52 /* use Location: Luke! */
#define HB_CURLOPT_TRANSFERTEXT 53 /* transfer data in text/ASCII format */
#define HB_CURLOPT_PUT 54 /* HTTP PUT */
@@ -322,16 +322,16 @@
#define HB_CURL_CURLSSH_AUTH_DEFAULT HB_CURLSSH_AUTH_ANY
/* curl_easy_pause() parameters. They can be combined with hb_BitOr(). */
#define HB_CURLPAUSE_RECV 1
#define HB_CURLPAUSE_RECV 1
#define HB_CURLPAUSE_RECV_CONT 0
#define HB_CURLPAUSE_SEND 4
#define HB_CURLPAUSE_SEND 4
#define HB_CURLPAUSE_SEND_CONT 0
#define HB_CURLPAUSE_ALL hb_BitOr( HB_CURLPAUSE_RECV, HB_CURLPAUSE_SEND )
#define HB_CURLPAUSE_CONT hb_BitOr( HB_CURLPAUSE_RECV_CONT, HB_CURLPAUSE_SEND_CONT )
/* curl_global_init() parameters. */
#define HB_CURL_GLOBAL_SSL 1
#define HB_CURL_GLOBAL_WIN32 2
#define HB_CURL_GLOBAL_SSL 1
#define HB_CURL_GLOBAL_WIN32 2
#define HB_CURL_GLOBAL_ALL hb_BitOr( HB_CURL_GLOBAL_SSL, HB_CURL_GLOBAL_WIN32 )
#define HB_CURL_GLOBAL_NOTHING 0
#define HB_CURL_GLOBAL_DEFAULT HB_CURL_GLOBAL_ALL

6
harbour/contrib/hbfimage/fi_winfu.c
View File

@@ -55,9 +55,9 @@
#include "hbapi.h"
#include "hbapierr.h"
#if defined(HB_OS_WIN) && ! ( defined(HB_OS_WIN_CE) && defined(__POCC__) )
#if defined( HB_OS_WIN ) && ! ( defined( HB_OS_WIN_CE ) && defined( __POCC__ ) )
#if !defined(_WINDOWS_) && ( defined(__GNUC__) || defined(__POCC__) || defined(__XCC__) ) || defined(__WATCOMC__)
#if !defined( _WINDOWS_ ) && ( defined( __GNUC__ ) || defined( __POCC__ ) || defined( __XCC__ ) ) || defined( __WATCOMC__ )
#define _WINDOWS_
#endif
@@ -210,4 +210,4 @@ HB_FUNC( FI_WINDRAW )
/* -------------------------------------------------------------------------- */
#endif /* defined(HB_OS_WIN) */
#endif /* defined( HB_OS_WIN ) */

2
harbour/contrib/hbfimage/fi_wrp.c
View File

@@ -57,7 +57,7 @@
#include "hbapierr.h"
#include "hbvm.h"
#if defined(HB_OS_WIN) && !defined(_WINDOWS_) && ( defined(__GNUC__) || defined(__POCC__) || defined(__XCC__) ) || defined(__WATCOMC__)
#if defined( HB_OS_WIN ) && !defined( _WINDOWS_ ) && ( defined( __GNUC__ ) || defined( __POCC__ ) || defined( __XCC__ ) ) || defined( __WATCOMC__ )
#define _WINDOWS_
#endif

2
harbour/contrib/hbgd/gd.ch
View File

@@ -60,7 +60,7 @@
#define GD_CH
#if ( defined(HB_OS_WIN) || defined(__WIN32__) )
#if ( defined( HB_OS_WIN ) || defined( __WIN32__ ) )
#define GD_VERS 2033
#else
#define GD_VERS 2028

1
harbour/contrib/hbgd/gdchart.prg
View File

@@ -932,4 +932,3 @@ STATIC FUNCTION HGetValue( hHash, cKey )
xVal := IIF( ( nPos := HB_HPos( hHash, cKey )) == 0, NIL, HB_HValueAt( hHash, nPos) )
ENDIF
RETURN xVal

1
harbour/contrib/hbgd/gdimage.prg
View File

@@ -697,4 +697,3 @@ METHOD CloneDataFrom( oSrc )
::cMime := oSrc:cMime
RETURN Self

6
harbour/contrib/hbgd/gdwrp.c
View File

@@ -56,11 +56,11 @@
#include "hbapifs.h"
/* NOTE: Do some initialization required by the GD headers. */
#if defined(HB_OS_WIN)
#if !defined(WIN32)
#if defined( HB_OS_WIN )
#if !defined( WIN32 )
#define WIN32
#endif
#if !defined(BGDWIN32)
#if !defined( BGDWIN32 )
#define BGDWIN32
#endif
#endif

4
harbour/contrib/hbmisc/nconvert.prg
View File

@@ -143,7 +143,7 @@ FUNCTION OctalToDec(cString)
(8**(nLen-nX))
NEXT nX
RETURN(nNumber)
FUNCTION HexaToDec(cString)
local nNumber:=0,nX
local cNewString:=AllTrim(cString)
@@ -153,5 +153,3 @@ FUNCTION HexaToDec(cString)
(16**(nLen-nX))
NEXT nX
RETURN nNumber

2
harbour/contrib/hbmisc/spd.c
View File

@@ -81,7 +81,7 @@ static ULONG SCItm( char *cBuffer, ULONG ulMaxBuf, char *cParFrm, int iCOut, int
/* NOTE: In DJGPP (4.2.3) hb_snprintf() will be preprocessed to sprintf(), which
makes ulMaxBuf unused, and this in turn causes a warning, so we're
manually suppressing it. [vszakats] */
#if defined(__DJGPP__)
#if defined( __DJGPP__ )
HB_SYMBOL_UNUSED( ulMaxBuf );
#endif

3
harbour/contrib/hbmisc/stringp.prg
View File

@@ -170,6 +170,3 @@ function Debug( xItem )
QOut( ToChar( xItem, ", ", .T. ) )
return xItem

2
harbour/contrib/hbmisc/stringsx.c
View File

@@ -17,7 +17,7 @@ static const char *hb_strtoken(const char *szText,
long wCounter = 0;
HB_TRACE(HB_TR_DEBUG, ("hb_strtoken(%s, %ld, %ld, %d, %p)", szText, lText, lIndex, (int) cDelimiter, lLen));
do
{
wStart = wEnd;

2
harbour/contrib/hbmysql/mysql.c
View File

@@ -65,7 +65,7 @@
#include "hbapiitm.h"
#include "hbapifs.h"
#if defined(HB_OS_WIN)
#if defined( HB_OS_WIN )
/* NOTE: To satisfy MySQL headers. */
#include <winsock2.h>
#endif

2
harbour/contrib/hbmysql/mysqlold.c
View File

@@ -52,7 +52,7 @@
#include "hbapi.h"
#if !defined(HB_MYSQL_LEGACY_LEVEL_OFF)
#if !defined( HB_MYSQL_LEGACY_LEVEL_OFF )
HB_FUNC_EXTERN( MYSQL_GET_SERVER_VERSION ) ; HB_FUNC( SQLVERSION ) { HB_FUNC_EXEC( MYSQL_GET_SERVER_VERSION ); }
HB_FUNC_EXTERN( MYSQL_REAL_CONNECT ) ; HB_FUNC( SQLCONNECT ) { HB_FUNC_EXEC( MYSQL_REAL_CONNECT ); }

6
harbour/contrib/hbmzip/hbmzip.c
View File

@@ -70,7 +70,7 @@
#include <time.h>
#include <utime.h>
#elif defined( HB_OS_DOS )
#if defined(__DJGPP__) || defined(__RSX32__) || defined(__GNUC__)
#if defined( __DJGPP__ ) || defined( __RSX32__ ) || defined( __GNUC__ )
#include "hb_io.h"
#include <sys/param.h>
#if defined( HB_OS_DOS )
@@ -781,7 +781,7 @@ static int hb_zipStoreFile( zipFile hZip, const char* szFileName, const char* sz
}
#elif defined( HB_OS_DOS )
{
# if defined(__DJGPP__) || defined(__RSX32__) || defined(__GNUC__)
# if defined( __DJGPP__ ) || defined( __RSX32__ ) || defined( __GNUC__ )
int attr;
attr = _chmod( szFileName, 0, 0 );
@@ -1163,7 +1163,7 @@ static int hb_unzipExtractCurrentFile( unzFile hUnzip, const char* szFileName, c
}
#elif defined( HB_OS_DOS )
# if defined(__RSX32__) || defined(__GNUC__)
# if defined( __RSX32__ ) || defined( __GNUC__ )
_chmod( szName, 1, ufi.external_fa & 0xFF );
# else
hb_fsSetAttr( szName, ufi.external_fa & 0xFF );

2
harbour/contrib/hbnf/aavg.prg
View File

@@ -69,7 +69,7 @@
[; <ParamN> := iif(<ParamN> == NIL,<DefN>,<ParamN>)]
FUNCTION FT_AAVG(aArray, nStartIndex, nEndIndex)
DEFAULT nStartIndex TO 1, ;

12
harbour/contrib/hbnf/acctadj.prg
View File

@@ -88,26 +88,26 @@
* FT_DATECNFG() FT_DAYTOBOW()
* $END$
*/
FUNCTION FT_ACCTADJ(dGivenDate, lIsEnd)
LOCAL nTemp
IF !( VALTYPE(dGivenDate) == "D" )
dGivenDate := DATE()
ENDIF
lIsEnd := VALTYPE(lIsEnd) == "L"
nTemp := FT_DAYTOBOW(dGivenDate)
IF nTemp > ( 2 + IF(!lIsEnd, 1, 0) )
dGivenDate += ( 7 - nTemp ) // Next Week Start (This Week End + 1)
ELSE
dGivenDate -= nTemp // This Week Start (Prior Week End + 1)
ENDIF
IF lIsEnd
dGivenDate--
ENDIF
RETURN dGivenDate

20
harbour/contrib/hbnf/acctmnth.prg
View File

@@ -80,23 +80,23 @@
* FT_DATECNFG() FT_ACCTWEEK() FT_ACCTQTR() FT_ACCTYEAR()
* $END$
*/
FUNCTION FT_ACCTMONTH(dGivenDate,nMonthNum)
LOCAL nYTemp, nMTemp, lIsMonth, aRetVal
IF ! ( VALTYPE(dGivenDate) $ 'ND' )
dGivenDate := DATE()
ELSEIF VALTYPE(dGivenDate) == 'N'
nMonthNum := dGivenDate
dGivenDate := DATE()
ENDIF
aRetVal := FT_MONTH(dGivenDate)
nYTemp := VAL(SUBSTR(aRetVal[1],1,4))
nMTemp := VAL(SUBSTR(aRetVal[1],5,2))
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
IF dGivenDate < aRetVal[2]
dGivenDate := FT_MADD(dGivenDate, -1)
aRetVal := FT_MONTH(dGivenDate)
@@ -107,9 +107,9 @@ FUNCTION FT_ACCTMONTH(dGivenDate,nMonthNum)
ENDIF
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ELSEIF dGivenDate > aRetVal[3]
dGivenDate := FT_MADD(dGivenDate, 1)
aRetVal := FT_MONTH(dGivenDate)
nMTemp += 1
@@ -119,9 +119,9 @@ FUNCTION FT_ACCTMONTH(dGivenDate,nMonthNum)
ENDIF
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ENDIF
lIsMonth := ( VALTYPE(nMonthNum) == 'N' )
IF lIsMonth
IF nMonthNum < 1 .OR. nMonthNum > 12
@@ -133,7 +133,7 @@ FUNCTION FT_ACCTMONTH(dGivenDate,nMonthNum)
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ENDIF
aRetVal[1] := STR(nYTemp,4) + PADL(LTRIM(STR(nMTemp,2)), 2, '0')
RETURN aRetVal

20
harbour/contrib/hbnf/acctqtr.prg
View File

@@ -80,10 +80,10 @@
* FT_DATECNFG() FT_ACCTWEEK() FT_ACCTMONTH() FT_ACCTYEAR()
* $END$
*/
FUNCTION FT_ACCTQTR(dGivenDate,nQtrNum)
LOCAL nYTemp, nQTemp, lIsQtr, aRetVal
IF ! ( VALTYPE(dGivenDate) $ 'ND' )
dGivenDate := DATE()
ELSEIF VALTYPE(dGivenDate) == 'N'
@@ -95,7 +95,7 @@ FUNCTION FT_ACCTQTR(dGivenDate,nQtrNum)
nQTemp := VAL(SUBSTR(aRetVal[1],5,2))
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
IF dGivenDate < aRetVal[2]
dGivenDate := FT_MADD(dGivenDate, -1)
aRetVal := FT_QTR(dGivenDate)
@@ -106,9 +106,9 @@ FUNCTION FT_ACCTQTR(dGivenDate,nQtrNum)
ENDIF
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ELSEIF dGivenDate > aRetVal[3]
dGivenDate := FT_MADD(dGivenDate,1)
aRetVal := FT_QTR(dGivenDate)
nQTemp += 1
@@ -118,9 +118,9 @@ FUNCTION FT_ACCTQTR(dGivenDate,nQtrNum)
ENDIF
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ENDIF
lIsQtr := ( VALTYPE(nQtrNum) == 'N' )
IF lIsQtr
IF nQtrNum < 1 .OR. nQtrNum > 4
@@ -132,9 +132,7 @@ FUNCTION FT_ACCTQTR(dGivenDate,nQtrNum)
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ENDIF
aRetVal[1] := STR(nYTemp,4) + PADL(LTRIM(STR(nQTemp,2)), 2, '0')
RETURN aRetVal

15
harbour/contrib/hbnf/acctweek.prg
View File

@@ -80,20 +80,20 @@
* FT_DATECNFG() FT_ACCTMONTH() FT_ACCTQTR() FT_ACCTYEAR()
* $END$
*/
FUNCTION FT_ACCTWEEK(dGivenDate,nWeekNum)
LOCAL nTemp, lIsWeek, aRetVal
IF ! VALTYPE(dGivenDate) $ 'ND'
dGivenDate := DATE()
ELSEIF VALTYPE(dGivenDate) == 'N'
nWeekNum := dGivenDate
dGivenDate := DATE()
ENDIF
aRetVal := FT_ACCTYEAR(dGivenDate)
lIsWeek := ( VALTYPE(nWeekNum) == 'N' )
IF lIsWeek
nTemp := INT( (aRetVal[3] - aRetVal[2]) / 7 ) + 1
@@ -102,12 +102,11 @@ FUNCTION FT_ACCTWEEK(dGivenDate,nWeekNum)
ENDIF
dGivenDate := aRetVal[2] + (nWeekNum - 1) * 7
ENDIF
aRetVal[1] += PADL(LTRIM(STR(INT( (dGivenDate - ;
aRetVal[2]) / 7 ) + 1, 2)), 2, '0')
dGivenDate += ( 6 - FT_DAYTOBOW(dGivenDate) ) // end of week
aRetVal[2] := dGivenDate - 6
aRetVal[3] := dGivenDate
RETURN aRetVal
RETURN aRetVal

16
harbour/contrib/hbnf/acctyear.prg
View File

@@ -71,20 +71,20 @@
* FT_DATECNFG() FT_ACCTWEEK() FT_ACCTMONTH() FT_ACCTQTR()
* $END$
*/
FUNCTION FT_ACCTYEAR(dGivenDate)
LOCAL nYTemp, aRetVal
IF !( VALTYPE(dGivenDate) == "D" )
dGivenDate := DATE()
ENDIF
aRetVal := FT_YEAR(dGivenDate)
nYTemp := VAL(aRetVal[1])
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
IF dGivenDate < aRetVal[2]
aRetVal := FT_YEAR(FT_MADD(dGivenDate, -1))
nYTemp --
@@ -96,9 +96,7 @@ FUNCTION FT_ACCTYEAR(dGivenDate)
aRetVal[2] := FT_ACCTADJ(aRetVal[2])
aRetVal[3] := FT_ACCTADJ(aRetVal[3], .T. )
ENDIF
aRetVal[1] := STR(nYTemp,4)
RETURN aRetVal

1
harbour/contrib/hbnf/aemaxlen.prg
View File

@@ -134,4 +134,3 @@ FUNCTION FT_AEmaxlen( aArray, nDimension, nStart, nCount )
NEXT
RETURN ( nMaxlen )

1
harbour/contrib/hbnf/aeminlen.prg
View File

@@ -135,4 +135,3 @@ FUNCTION FT_AEminlen( aArray, nDimension, nStart, nCount )
NEXT
RETURN ( nMinlen )

1
harbour/contrib/hbnf/amedian.prg
View File

@@ -133,4 +133,3 @@ FUNCTION FT_AMEDIAN( aArray, nStart, nEnd )
ENDIF
RETURN ( nMedian )

1
harbour/contrib/hbnf/asum.prg
View File

@@ -88,4 +88,3 @@ FUNCTION FT_ASUM(aArray, nStartIndex, nEndIndex)
nStartIndex, nEndIndex - nStartIndex + 1)
RETURN (nSumTotal) // FT_ASum

1
harbour/contrib/hbnf/bitclr.prg
View File

@@ -86,4 +86,3 @@ FUNCTION FT_BITCLR(cInbyte, nBitpos)
ENDIF
RETURN cByte

1
harbour/contrib/hbnf/bitset.prg
View File

@@ -88,4 +88,3 @@ FUNCTION FT_BITSET(cInByte, nBitpos)
ENDIF
RETURN cByte

1
harbour/contrib/hbnf/blink.prg
View File

@@ -80,4 +80,3 @@ FUNCTION FT_BLINK( cMsg, nRow, nCol )
SETCOLOR( cSavColor ) // It's a wrap, restore colors & exit.
RETURN NIL

1
harbour/contrib/hbnf/byteand.prg
View File

@@ -81,4 +81,3 @@ FUNCTION FT_BYTEAND(cByte1, cByte2)
ENDIF
RETURN cNewByte

1
harbour/contrib/hbnf/byteneg.prg
View File

@@ -65,4 +65,3 @@
FUNCTION FT_BYTENEG(cByte)
RETURN iif(valtype(cByte) != "C", NIL, chr((256 - asc(cByte)) % 256))

1
harbour/contrib/hbnf/bytenot.prg
View File

@@ -80,4 +80,3 @@ FUNCTION FT_BYTENOT(cByte)
ENDIF
RETURN cNewByte

1
harbour/contrib/hbnf/byteor.prg
View File

@@ -79,4 +79,3 @@ FUNCTION FT_BYTEOR(cByte1, cByte2)
ENDIF
RETURN cNewByte

1
harbour/contrib/hbnf/bytexor.prg
View File

@@ -84,4 +84,3 @@ FUNCTION FT_BYTEXOR(cByte1, cByte2)
ENDIF
RETURN cNewByte

5
harbour/contrib/hbnf/clrsel.prg
View File

@@ -350,7 +350,7 @@ STATIC FUNCTION _ftColours( aOpt, aClrPal, lColour )
LOCAL nB, nT, nL, nR
LOCAL nX
LOCAL aClrs := {}
LOCAL cClr
LOCAL cClr
LOCAL nChoice := 1
LOCAL aPrompt
LOCAL nLen := 0
@@ -559,7 +559,7 @@ STATIC FUNCTION _ftClrSel( aClrPal, cClr, nElem, aOpt )
// cClr is the current colour being modified
// Return -> selected colour combination
LOCAL nR
LOCAL nR
LOCAL nC := 1
LOCAL lFound := .F.
LOCAL nKey
@@ -788,4 +788,3 @@ DO WHILE lIdentical .AND. n <= LEN(aArr1)
ENDDO
RETURN lIdentical

1
harbour/contrib/hbnf/d2e.prg
View File

@@ -91,4 +91,3 @@ function ft_d2e( nDec, nPrecision )
sScn := ltrim( str( nDec, nPrecision + 3, nPrecision ) )
return( sScn + 'E' + alltrim( str( nExp, 5, 0 ) ) )

1
harbour/contrib/hbnf/datecnfg.prg
View File

@@ -332,4 +332,3 @@ FUNCTION FT_DATECNFG( cFYStart ,nDow )
ENDIF
RETURN ACLONE( aDatePar )

2
harbour/contrib/hbnf/descendn.c
View File

@@ -50,7 +50,7 @@
HB_FUNC( FT_DESCEND )
{
#if defined(HB_OS_DOS) || defined(HB_OS_WIN)
#if defined( HB_OS_DOS ) || defined( HB_OS_WIN )
{
PHB_ITEM iP = hb_itemParam( 1 );
HB_TYPE uiType = hb_itemType( iP );

1
harbour/contrib/hbnf/diskfunc.prg
View File

@@ -102,4 +102,3 @@ FUNCTION FT_DSKFREE( cDrive )
RETURN DISKSPACE(nDrive,1)

1
harbour/contrib/hbnf/dosver.prg
View File

@@ -84,4 +84,3 @@ FUNCTION FT_DOSVER()
*/
cResult:= _get_dosver()
RETURN ( cResult )

1
harbour/contrib/hbnf/firstday.prg
View File

@@ -60,4 +60,3 @@ FUNCTION FT_FDAY(dDateToChk)
ENDIF
RETURN dDateToChk - (DAY(dDateToChk)-1)

1
harbour/contrib/hbnf/ftmenuto.ch
View File

@@ -71,4 +71,3 @@
#xcommand MENU TO <v> [<l : COLD>] => ;
<v> := FT_MenuTo( {|_1| iif( _1 == NIL, <v>, <v> := _1 ) }, #<v>, <.l.> )

6
harbour/contrib/hbnf/ftshadow.c
View File

@@ -63,9 +63,9 @@ HB_FUNC( FT_SHADOW )
HB_FUNC( FT_SETATTR )
{
hb_gtSetAttribute( ( SHORT ) hb_parni( 1 ),
hb_gtSetAttribute( ( SHORT ) hb_parni( 1 ),
( SHORT ) hb_parni( 2 ),
( SHORT ) hb_parni( 3 ),
( SHORT ) hb_parni( 4 ),
( SHORT ) hb_parni( 3 ),
( SHORT ) hb_parni( 4 ),
( BYTE ) hb_parni( 5 ) );
}

2
harbour/contrib/hbnf/fttext.c
View File

@@ -178,7 +178,7 @@
#include "hbapifs.h"
/* MSC compiler switch */
#if defined(_MSC_VER)
#if defined( _MSC_VER )
#pragma warning( disable : 4035 )
#pragma warning( disable : 4704 )
#endif

10
harbour/contrib/hbnf/getenvrn.c
View File

@@ -94,7 +94,7 @@
#define HB_OS_WIN_USED
#include "hbapi.h"
#if defined(HB_OS_UNIX_COMPATIBLE)
#if defined( HB_OS_UNIX_COMPATIBLE )
# include <unistd.h>
# if defined( HB_OS_DARWIN )
# include <crt_externs.h>
@@ -102,10 +102,10 @@
# elif !defined( __WATCOMC__ )
extern char **environ;
# endif
#elif defined(HB_OS_DOS)
#elif defined( HB_OS_DOS )
# define environ _environ
extern char **_environ;
#elif defined(HB_OS_WIN)
#elif defined( HB_OS_WIN )
# include <windows.h>
#endif
@@ -116,7 +116,7 @@ extern char **_environ;
HB_FUNC( FT_GETE )
{
#if defined(HB_OS_DOS) || defined(HB_OS_UNIX_COMPATIBLE)
#if defined( HB_OS_DOS ) || defined( HB_OS_UNIX_COMPATIBLE )
{
char *buffer = NULL;
int x;
@@ -171,7 +171,7 @@ HB_FUNC( FT_GETE )
/* return number of strings found */
hb_retni( x );
}
#elif defined(HB_OS_WIN) && ! ( defined(HB_OS_WIN_CE) && defined(__POCC__) )
#elif defined( HB_OS_WIN ) && ! ( defined( HB_OS_WIN_CE ) && defined( __POCC__ ) )
{
char *buffer = NULL;
LPTCH lpEnviron = GetEnvironmentStrings();

14
harbour/contrib/hbnf/getver.c
View File

@@ -53,7 +53,7 @@
#include "hbapi.h"
#include "hbapiitm.h"
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
#include "dos.h"
#endif
#include "string.h"
@@ -61,7 +61,7 @@
HB_FUNC( _GET_DOSVER )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
char * pszPlatform;
union REGS regs;
@@ -80,7 +80,7 @@ HB_FUNC( _GET_DOSVER )
HB_FUNC( _FT_ISSHARE )
{
int iShare;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1000;
@@ -100,7 +100,7 @@ HB_FUNC( _FT_ISSHARE )
HB_FUNC( _FT_NWKSTAT )
{
int iConnect;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0xDC;
@@ -117,7 +117,7 @@ HB_FUNC( _FT_NWKSTAT )
HB_FUNC( _FT_SETMODE )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.h.ah = 0;
@@ -130,7 +130,7 @@ HB_FUNC( _FT_SETMODE )
HB_FUNC( _FT_GETMODE )
{
int iMode;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.h.ah = 0x0F;
@@ -151,7 +151,7 @@ HB_FUNC( _FT_TEMPFIL )
int iflags;
const char * cPath;
#if defined(HB_OS_DOS) && !defined(HB_OS_DOS_32)
#if defined( HB_OS_DOS ) && !defined( HB_OS_DOS_32 )
{
int iMode = hb_parni( 2 );
union REGS regs;

6
harbour/contrib/hbnf/getvid.c
View File

@@ -52,7 +52,7 @@
*/
#include "hbapi.h"
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
#include "dos.h"
#endif
@@ -60,7 +60,7 @@ HB_FUNC( _FT_GETVPG )
{
int iPage;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS registers;
registers.h.ah = 0x0F;
@@ -78,7 +78,7 @@ HB_FUNC( _FT_GETVPG )
HB_FUNC( _V_SETVPG )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
int iPage;
union REGS registers;

4
harbour/contrib/hbnf/iamidle.c
View File

@@ -50,7 +50,7 @@
*
*/
/*
/*
* File......: adapter.asm
* Author....: Ted Means
* CIS ID....: 73067,3332
@@ -96,7 +96,7 @@
* * Here's another way to do it:
*
* FT_OnIdle( {|| FT_IAmIdle()} )
*
*
* Inkey( 0 ) // Automatically reports idleness until key
* // is pressed!
* $SEEALSO$

1
harbour/contrib/hbnf/isbit.prg
View File

@@ -85,4 +85,3 @@ FUNCTION FT_ISBIT(cInbyte,nBitPos)
ENDIF
RETURN lBitStat

1
harbour/contrib/hbnf/isshare.prg
View File

@@ -91,4 +91,3 @@ FUNCTION ft_isshare()
RETURN lowbyte( aRegs[AX] )
*/
RETURN _ft_isshare()

6
harbour/contrib/hbnf/kspeed.c
View File

@@ -2,7 +2,7 @@
* $Id$
*/
/*
/*
* File......: kspeed.asm
* Author....: James R. Zack
* CIS ID....: 75410,1567
@@ -145,13 +145,13 @@ _NanFor ENDS
/* This is the New one Rewriten in C*/
#include "hbapi.h"
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
#include "dos.h"
#endif
HB_FUNC( FT_SETRATE )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS registers;
int tempo = 0, nrepete = 0;

1
harbour/contrib/hbnf/madd.prg
View File

@@ -103,4 +103,3 @@ FUNCTION FT_MADD( dGivenDate, nAddMonths, lMakeEOM)
ENDIF
RETURN dTemp

2
harbour/contrib/hbnf/menu1.prg
View File

@@ -353,7 +353,7 @@ FUNCTION FT_MENU1( aBar, aOptions, aColors, nTopRow, lShadow )
// this is the routine that calculates the position of each item
// on the menu bar.
aBarCol[1] := 0
nTtlUsed := LEN( aBar[1] ) + 1
AEVAL( aBar, ;

2
harbour/contrib/hbnf/menutonf.prg
View File

@@ -590,5 +590,3 @@ set( _SET_CURSOR, nCursor )
eval( bGetSet, nActive )
return nActive

1
harbour/contrib/hbnf/metaph.prg
View File

@@ -390,4 +390,3 @@ RETURN cConverted
*------------------------------------------------
// eof metaph.prg

1
harbour/contrib/hbnf/month.prg
View File

@@ -113,4 +113,3 @@ LOCAL lIsMonth, nTemp, aRetVal
aRetVal[3] := FT_MADD( aRetVal[2], 1 ) - 1
RETURN aRetVal

48
harbour/contrib/hbnf/mouse.c
View File

@@ -52,7 +52,7 @@
*/
#include "hbapi.h"
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
#include "dos.h"
#endif
#include "hbapiitm.h"
@@ -61,7 +61,7 @@
HB_FUNC( _MGET_PAGE )
{
int iPage;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1E;
@@ -78,7 +78,7 @@ HB_FUNC( _MGET_PAGE )
HB_FUNC( _MSET_PAGE )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1D;
@@ -95,7 +95,7 @@ HB_FUNC( _MGET_MVERSION )
int iIRQ;
int iMajor;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
@@ -144,7 +144,7 @@ HB_FUNC( _MGET_HORISPEED )
{
int iSpeed;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1B;
@@ -162,7 +162,7 @@ HB_FUNC( _MGET_HORISPEED )
HB_FUNC( _MGET_VERSPEED )
{
int iSpeed;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1B;
@@ -180,7 +180,7 @@ HB_FUNC( _MGET_VERSPEED )
HB_FUNC( _MGET_DOUBLESPEED )
{
int iSpeed;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1B;
@@ -197,7 +197,7 @@ HB_FUNC( _MGET_DOUBLESPEED )
HB_FUNC( _MSET_SENSITIVE ) /* nHoriz,nVert,nDouble) */
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1A;
@@ -211,7 +211,7 @@ HB_FUNC( _MSET_SENSITIVE ) /* nHoriz,nVert,nDouble) */
HB_FUNC( _MSE_CONOFF ) /* nTop*8,nLeft*8,nBotton*8,nRight*8) */
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x1A;
@@ -228,7 +228,7 @@ HB_FUNC( _MGET_MICS )
{
int iHori;
int iVert;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x0B;
@@ -262,7 +262,7 @@ HB_FUNC( _MGET_MICS )
HB_FUNC( _M_RESET )
{
int iMouse;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0;
@@ -281,7 +281,7 @@ HB_FUNC( _M_RESET )
HB_FUNC( _MSE_SHOWCURS )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 1;
@@ -292,7 +292,7 @@ HB_FUNC( _MSE_SHOWCURS )
HB_FUNC( _MSE_MHIDECRS )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 2;
@@ -305,7 +305,7 @@ HB_FUNC( _MSE_GETPOS )
{
int iHori;
int iVert;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 3;
@@ -338,7 +338,7 @@ HB_FUNC( _MSE_GETPOS )
HB_FUNC( _M_GETX )
{
int iRow;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 3;
@@ -356,7 +356,7 @@ HB_FUNC( _M_GETX )
HB_FUNC( _M_GETY )
{
int iCol;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 3;
@@ -373,7 +373,7 @@ HB_FUNC( _M_GETY )
HB_FUNC( _M_MSETPOS )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 4;
@@ -386,7 +386,7 @@ HB_FUNC( _M_MSETPOS )
HB_FUNC( _M_MSETCOORD )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 4;
@@ -399,7 +399,7 @@ HB_FUNC( _M_MSETCOORD )
HB_FUNC( _M_MXLIMIT )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
int iMaxRow = hb_parni( 2 );
@@ -417,7 +417,7 @@ HB_FUNC( _M_MXLIMIT )
HB_FUNC( _M_MYLIMIT )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
int iMaxCol = hb_parni( 2 );
@@ -437,7 +437,7 @@ HB_FUNC( _M_MBUTPRS )
int inY;
int inButton;
BOOL lStatus;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 6;
@@ -481,7 +481,7 @@ HB_FUNC( _M_MBUTPRS )
HB_FUNC( _M_MBUTREL )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
union REGS regs;
regs.HB_XREGS.ax = 0x0A;
regs.HB_XREGS.bx = hb_parni( 1 );
@@ -504,7 +504,7 @@ HB_FUNC( _M_MBUTREL )
HB_FUNC( _M_MDEFCRS )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 0x0A;
@@ -523,7 +523,7 @@ HB_FUNC( _M_MGETCOORD )
int inY;
int inButton;
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
{
union REGS regs;
regs.HB_XREGS.ax = 3;

11
harbour/contrib/hbnf/mouse1.prg
View File

@@ -32,7 +32,7 @@ static s_lMinit:=.F.
nCol := VAL(nCol)
ENDIF
if !FT_MINIT()
if !FT_MINIT()
@ maxrow(), 0 say "Mouse driver is not installed!"
return ""
@@ -592,7 +592,7 @@ aReg[AX]:=27
FT_INT86( 51, aReg ) // execute mouse interrupt
*/
*/
// Set the return values
nHoriz := _mget_horispeed()
@@ -1281,7 +1281,7 @@ local aReg:={}
nButPrs := aReg[1] // store updated press count
nX := aReg[2] // x-coordinate at last press
nY := aReg[3] // y-coordinate at last press
_m_MBUTPRS(nButton)
RETURN aReg[4] // return button status
@@ -1407,7 +1407,7 @@ FUNCTION FT_MDEFCRS( nCurType, nScrMask, nCurMask ) // define text cursor type
aReg[DX] := nCurMask // load cursor mask value
FT_INT86( 51, aReg ) // execute mouse interrupt
*/
_m_mdefcrs(nCurType, nScrMask, nCurMask )
_m_mdefcrs(nCurType, nScrMask, nCurMask )
RETURN NIL // no function output
@@ -1467,6 +1467,5 @@ local iButton
nX := INT(aReg[1]/8) // store new x-coordinate
nY := INT(aReg[2]/8) // store new y-coordinate
iButton:= aReg[3] // return button status
RETURN iButton
RETURN iButton

1
harbour/contrib/hbnf/mouse2.prg
View File

@@ -1005,4 +1005,3 @@ FUNCTION FT_MDEFCRS( nCurType, nScrMask, nCurMask ) // define text cursor type
RETURN NIL // no function output
*/

1
harbour/contrib/hbnf/nwlstat.prg
View File

@@ -81,4 +81,3 @@ FUNCTION FT_NWLSTAT()
endif
RETURN nStation

3
harbour/contrib/hbnf/nwuid.prg
View File

@@ -125,6 +125,3 @@ FUNCTION FT_NWUID( nConn )
FT_INT86( DOS, aRegs )
RETURN alltrim( strtran( substr( aRegs[ ES ], 9, 48 ), chr(0) ) )

2
harbour/contrib/hbnf/page.prg
View File

@@ -111,5 +111,3 @@ FUNCTION FT_GETVPG()
RETURN ( HIGHBYTE( aRegs[ BX ] ) ) */
Return _ft_getvpg()

4
harbour/contrib/hbnf/prtscr.c
View File

@@ -63,9 +63,9 @@
HB_FUNC( FT_PRTSCR )
{
#if defined(HB_OS_DOS)
#if defined( HB_OS_DOS )
if ( hb_pcount() && HB_ISLOG( 1 ) )
{
{
if ( hb_parl( 1 ) )
pbyte = 0;
else

2
harbour/contrib/hbnf/putkey.c
View File

@@ -2,7 +2,7 @@
* $Id$
*/
/*
/*
* File......: putkey.asm
* Author....: Ted Means
* CIS ID....: 73067,3332

Some files were not shown because too many files have changed in this diff Show More