From ebe3aaf390c540be68318f898ef599fb4099a445 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 18 Oct 2016 19:17:32 +0200 Subject: [PATCH] 2016-10-18 19:16 UTC+0200 Viktor Szakats (vszakats users.noreply.github.com) - contrib/hbct/doc/en/ct.txt * contrib/hbct/doc/en/ctc.txt * contrib/hbct/doc/en/strdiff.txt * contrib/hbct/doc/en/token2.txt * contrib/hbgt/doc/en/hbgt.txt * contrib/hbmisc/doc/en/dates2.txt * contrib/hbmisc/doc/en/ht_class.txt * contrib/hbmisc/doc/en/ht_str.txt * contrib/hbnf/doc/en/aavg.txt * contrib/hbnf/doc/en/acctadj.txt * contrib/hbnf/doc/en/acctmnth.txt * contrib/hbnf/doc/en/acctqtr.txt * contrib/hbnf/doc/en/acctweek.txt * contrib/hbnf/doc/en/acctyear.txt * contrib/hbnf/doc/en/adapter.txt * contrib/hbnf/doc/en/aemaxlen.txt * contrib/hbnf/doc/en/aeminlen.txt * contrib/hbnf/doc/en/alt.txt * contrib/hbnf/doc/en/amedian.txt * contrib/hbnf/doc/en/anomatch.txt * contrib/hbnf/doc/en/any2any.txt * contrib/hbnf/doc/en/aredit.txt * contrib/hbnf/doc/en/asum.txt * contrib/hbnf/doc/en/at2.txt * contrib/hbnf/doc/en/bitclr.txt * contrib/hbnf/doc/en/byt2bit.txt * contrib/hbnf/doc/en/byt2hex.txt * contrib/hbnf/doc/en/calendar.txt * contrib/hbnf/doc/en/chdir.txt * contrib/hbnf/doc/en/cint86.txt * contrib/hbnf/doc/en/clrsel.txt * contrib/hbnf/doc/en/cntryset.txt * contrib/hbnf/doc/en/ctrl.txt * contrib/hbnf/doc/en/d2e.txt * contrib/hbnf/doc/en/datecnfg.txt * contrib/hbnf/doc/en/default.txt * contrib/hbnf/doc/en/dosver.txt * contrib/hbnf/doc/en/easter.txt * contrib/hbnf/doc/en/elapmil.txt * contrib/hbnf/doc/en/elapsed.txt * contrib/hbnf/doc/en/eltime.txt * contrib/hbnf/doc/en/findith.txt * contrib/hbnf/doc/en/firstday.txt * contrib/hbnf/doc/en/floptst.txt * contrib/hbnf/doc/en/fttext.txt * contrib/hbnf/doc/en/getenvrn.txt * contrib/hbnf/doc/en/hex2dec.txt * contrib/hbnf/doc/en/iamidle.txt * contrib/hbnf/doc/en/idle.txt * contrib/hbnf/doc/en/inp.txt * contrib/hbnf/doc/en/invclr.txt * contrib/hbnf/doc/en/isprint.txt * contrib/hbnf/doc/en/lastday.txt * contrib/hbnf/doc/en/linked.txt * contrib/hbnf/doc/en/madd.txt * contrib/hbnf/doc/en/menu1.txt * contrib/hbnf/doc/en/menutonf.txt * contrib/hbnf/doc/en/metaph.txt * contrib/hbnf/doc/en/miltime.txt * contrib/hbnf/doc/en/min2dhm.txt * contrib/hbnf/doc/en/mkdir.txt * contrib/hbnf/doc/en/month.txt * contrib/hbnf/doc/en/mouse1.txt * contrib/hbnf/doc/en/n2color.txt * contrib/hbnf/doc/en/netpv.txt * contrib/hbnf/doc/en/nooccur.txt * contrib/hbnf/doc/en/ntow.txt * contrib/hbnf/doc/en/nwlstat.txt * contrib/hbnf/doc/en/nwsem.txt * contrib/hbnf/doc/en/nwuid.txt * contrib/hbnf/doc/en/origin.txt * contrib/hbnf/doc/en/outp.txt * contrib/hbnf/doc/en/page.txt * contrib/hbnf/doc/en/peek.txt * contrib/hbnf/doc/en/pickday.txt * contrib/hbnf/doc/en/popadder.txt * contrib/hbnf/doc/en/proper.txt * contrib/hbnf/doc/en/putkey.txt * contrib/hbnf/doc/en/qtr.txt * contrib/hbnf/doc/en/rand1.txt * contrib/hbnf/doc/en/reboot.txt * contrib/hbnf/doc/en/rmdir.txt * contrib/hbnf/doc/en/round.txt * contrib/hbnf/doc/en/savearr.txt * contrib/hbnf/doc/en/scancode.txt * contrib/hbnf/doc/en/setdate.txt * contrib/hbnf/doc/en/settime.txt * contrib/hbnf/doc/en/shift.txt * contrib/hbnf/doc/en/sinkey.txt * contrib/hbnf/doc/en/sleep.txt * contrib/hbnf/doc/en/sqzn.txt * contrib/hbnf/doc/en/stod.txt * contrib/hbnf/doc/en/sysmem.txt * contrib/hbnf/doc/en/tbwhile.txt * contrib/hbnf/doc/en/tempfile.txt * contrib/hbnf/doc/en/vertmenu.txt * contrib/hbnf/doc/en/vidcur.txt * contrib/hbnf/doc/en/vidmode.txt * contrib/hbnf/doc/en/wda.txt * contrib/hbnf/doc/en/week.txt * contrib/hbnf/doc/en/year.txt * contrib/hbziparc/doc/en/hbziparc.txt * contrib/rddads/doc/en/adsfuncs.txt * contrib/rddads/doc/en/readme.txt * doc/en/1stread.txt * doc/en/array.txt * doc/en/binnum.txt * doc/en/browse.txt * doc/en/command.txt * doc/en/compiler.txt * doc/en/datetime.txt * doc/en/dbdelim.txt * doc/en/dbsdf.txt * doc/en/dbstrux.txt * doc/en/dir.txt * doc/en/diskspac.txt * doc/en/errsys.txt * doc/en/eval.txt * doc/en/file.txt * doc/en/garbage.txt * doc/en/harbext.txt * doc/en/hashes.txt * doc/en/hb_set.txt * doc/en/hbinet.txt * doc/en/hvm.txt * doc/en/idle.txt * doc/en/input.txt * doc/en/lang.txt * doc/en/macro.txt * doc/en/math.txt * doc/en/memo.txt * doc/en/memvar.txt * doc/en/menu.txt * doc/en/misc.txt * doc/en/nation.txt * doc/en/objfunc.txt * doc/en/rdd.txt * doc/en/rdddb.txt * doc/en/rddmisc.txt * doc/en/rddord.txt * doc/en/set.txt * doc/en/setmode.txt * doc/en/string.txt * doc/en/tclass.txt * doc/en/terminal.txt * doc/en/tgetlist.txt * doc/en/tlabel.txt * doc/en/treport.txt * doc/en/var.txt * sync with fixes/updates from 3.4 fork --- ChangeLog.txt | 152 +++++++++++++++ contrib/hbct/doc/en/ct.txt | 67 ------- contrib/hbct/doc/en/ctc.txt | 62 ------ contrib/hbct/doc/en/strdiff.txt | 4 +- contrib/hbct/doc/en/token2.txt | 2 +- contrib/hbgt/doc/en/hbgt.txt | 12 +- contrib/hbmisc/doc/en/dates2.txt | 56 +++--- contrib/hbmisc/doc/en/ht_class.txt | 44 ++--- contrib/hbmisc/doc/en/ht_str.txt | 4 +- contrib/hbnf/doc/en/aavg.txt | 11 +- contrib/hbnf/doc/en/acctadj.txt | 2 +- contrib/hbnf/doc/en/acctmnth.txt | 6 +- contrib/hbnf/doc/en/acctqtr.txt | 4 +- contrib/hbnf/doc/en/acctweek.txt | 4 +- contrib/hbnf/doc/en/acctyear.txt | 2 +- contrib/hbnf/doc/en/adapter.txt | 8 +- contrib/hbnf/doc/en/aemaxlen.txt | 17 +- contrib/hbnf/doc/en/aeminlen.txt | 14 +- contrib/hbnf/doc/en/alt.txt | 4 +- contrib/hbnf/doc/en/amedian.txt | 11 +- contrib/hbnf/doc/en/anomatch.txt | 8 +- contrib/hbnf/doc/en/any2any.txt | 2 +- contrib/hbnf/doc/en/aredit.txt | 2 +- contrib/hbnf/doc/en/asum.txt | 11 +- contrib/hbnf/doc/en/at2.txt | 16 +- contrib/hbnf/doc/en/bitclr.txt | 3 +- contrib/hbnf/doc/en/byt2bit.txt | 4 +- contrib/hbnf/doc/en/byt2hex.txt | 4 +- contrib/hbnf/doc/en/calendar.txt | 17 +- contrib/hbnf/doc/en/chdir.txt | 6 +- contrib/hbnf/doc/en/cint86.txt | 23 ++- contrib/hbnf/doc/en/clrsel.txt | 50 ++--- contrib/hbnf/doc/en/cntryset.txt | 10 +- contrib/hbnf/doc/en/ctrl.txt | 4 +- contrib/hbnf/doc/en/d2e.txt | 2 - contrib/hbnf/doc/en/datecnfg.txt | 8 +- contrib/hbnf/doc/en/default.txt | 2 +- contrib/hbnf/doc/en/dosver.txt | 8 +- contrib/hbnf/doc/en/easter.txt | 2 +- contrib/hbnf/doc/en/elapmil.txt | 4 +- contrib/hbnf/doc/en/elapsed.txt | 2 +- contrib/hbnf/doc/en/eltime.txt | 4 +- contrib/hbnf/doc/en/findith.txt | 4 +- contrib/hbnf/doc/en/firstday.txt | 3 +- contrib/hbnf/doc/en/floptst.txt | 9 +- contrib/hbnf/doc/en/fttext.txt | 107 ++-------- contrib/hbnf/doc/en/getenvrn.txt | 6 +- contrib/hbnf/doc/en/hex2dec.txt | 2 +- contrib/hbnf/doc/en/iamidle.txt | 6 +- contrib/hbnf/doc/en/idle.txt | 7 +- contrib/hbnf/doc/en/inp.txt | 2 +- contrib/hbnf/doc/en/invclr.txt | 4 +- contrib/hbnf/doc/en/isprint.txt | 4 +- contrib/hbnf/doc/en/lastday.txt | 3 +- contrib/hbnf/doc/en/linked.txt | 4 +- contrib/hbnf/doc/en/madd.txt | 4 +- contrib/hbnf/doc/en/menu1.txt | 10 +- contrib/hbnf/doc/en/menutonf.txt | 3 +- contrib/hbnf/doc/en/metaph.txt | 4 +- contrib/hbnf/doc/en/miltime.txt | 31 ++- contrib/hbnf/doc/en/min2dhm.txt | 5 +- contrib/hbnf/doc/en/mkdir.txt | 6 +- contrib/hbnf/doc/en/month.txt | 4 +- contrib/hbnf/doc/en/mouse1.txt | 18 +- contrib/hbnf/doc/en/n2color.txt | 2 +- contrib/hbnf/doc/en/netpv.txt | 6 +- contrib/hbnf/doc/en/nooccur.txt | 10 +- contrib/hbnf/doc/en/ntow.txt | 2 +- contrib/hbnf/doc/en/nwlstat.txt | 2 +- contrib/hbnf/doc/en/nwsem.txt | 14 +- contrib/hbnf/doc/en/nwuid.txt | 4 +- contrib/hbnf/doc/en/origin.txt | 6 +- contrib/hbnf/doc/en/outp.txt | 2 +- contrib/hbnf/doc/en/page.txt | 8 +- contrib/hbnf/doc/en/peek.txt | 2 +- contrib/hbnf/doc/en/pickday.txt | 2 +- contrib/hbnf/doc/en/popadder.txt | 48 ++--- contrib/hbnf/doc/en/proper.txt | 2 +- contrib/hbnf/doc/en/putkey.txt | 6 +- contrib/hbnf/doc/en/qtr.txt | 4 +- contrib/hbnf/doc/en/rand1.txt | 6 +- contrib/hbnf/doc/en/reboot.txt | 1 - contrib/hbnf/doc/en/rmdir.txt | 6 +- contrib/hbnf/doc/en/round.txt | 10 +- contrib/hbnf/doc/en/savearr.txt | 4 +- contrib/hbnf/doc/en/scancode.txt | 12 +- contrib/hbnf/doc/en/setdate.txt | 8 +- contrib/hbnf/doc/en/settime.txt | 6 +- contrib/hbnf/doc/en/shift.txt | 4 +- contrib/hbnf/doc/en/sinkey.txt | 2 +- contrib/hbnf/doc/en/sleep.txt | 2 +- contrib/hbnf/doc/en/sqzn.txt | 15 +- contrib/hbnf/doc/en/stod.txt | 3 +- contrib/hbnf/doc/en/sysmem.txt | 11 +- contrib/hbnf/doc/en/tbwhile.txt | 9 +- contrib/hbnf/doc/en/tempfile.txt | 17 +- contrib/hbnf/doc/en/vertmenu.txt | 8 +- contrib/hbnf/doc/en/vidcur.txt | 10 +- contrib/hbnf/doc/en/vidmode.txt | 4 +- contrib/hbnf/doc/en/wda.txt | 2 +- contrib/hbnf/doc/en/week.txt | 4 +- contrib/hbnf/doc/en/year.txt | 2 +- contrib/hbziparc/doc/en/hbziparc.txt | 12 +- contrib/rddads/doc/en/adsfuncs.txt | 11 +- contrib/rddads/doc/en/readme.txt | 9 +- doc/en/1stread.txt | 25 +-- doc/en/array.txt | 8 +- doc/en/binnum.txt | 279 ++++----------------------- doc/en/browse.txt | 52 +---- doc/en/command.txt | 2 - doc/en/compiler.txt | 4 +- doc/en/datetime.txt | 5 +- doc/en/dbdelim.txt | 6 +- doc/en/dbsdf.txt | 6 +- doc/en/dbstrux.txt | 34 ++-- doc/en/dir.txt | 2 - doc/en/diskspac.txt | 8 +- doc/en/errsys.txt | 2 - doc/en/eval.txt | 2 - doc/en/file.txt | 55 +++--- doc/en/garbage.txt | 18 +- doc/en/harbext.txt | 4 +- doc/en/hashes.txt | 60 +++--- doc/en/hb_set.txt | 2 - doc/en/hbinet.txt | 113 ++++------- doc/en/hvm.txt | 4 +- doc/en/idle.txt | 2 +- doc/en/input.txt | 6 +- doc/en/lang.txt | 25 ++- doc/en/macro.txt | 2 +- doc/en/math.txt | 15 +- doc/en/memo.txt | 29 +-- doc/en/memvar.txt | 9 +- doc/en/menu.txt | 7 +- doc/en/misc.txt | 10 +- doc/en/nation.txt | 12 +- doc/en/objfunc.txt | 29 ++- doc/en/rdd.txt | 7 - doc/en/rdddb.txt | 145 ++++++-------- doc/en/rddmisc.txt | 99 +++++----- doc/en/rddord.txt | 51 +++-- doc/en/set.txt | 24 ++- doc/en/setmode.txt | 6 +- doc/en/string.txt | 92 +++++---- doc/en/tclass.txt | 6 +- doc/en/terminal.txt | 24 ++- doc/en/tgetlist.txt | 10 +- doc/en/tlabel.txt | 4 +- doc/en/treport.txt | 4 +- doc/en/var.txt | 51 ++--- 150 files changed, 1021 insertions(+), 1561 deletions(-) delete mode 100644 contrib/hbct/doc/en/ct.txt diff --git a/ChangeLog.txt b/ChangeLog.txt index f0c179011b..8c665cb3a4 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -10,6 +10,158 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2016-10-18 19:16 UTC+0200 Viktor Szakats (vszakats users.noreply.github.com) + - contrib/hbct/doc/en/ct.txt + * contrib/hbct/doc/en/ctc.txt + * contrib/hbct/doc/en/strdiff.txt + * contrib/hbct/doc/en/token2.txt + * contrib/hbgt/doc/en/hbgt.txt + * contrib/hbmisc/doc/en/dates2.txt + * contrib/hbmisc/doc/en/ht_class.txt + * contrib/hbmisc/doc/en/ht_str.txt + * contrib/hbnf/doc/en/aavg.txt + * contrib/hbnf/doc/en/acctadj.txt + * contrib/hbnf/doc/en/acctmnth.txt + * contrib/hbnf/doc/en/acctqtr.txt + * contrib/hbnf/doc/en/acctweek.txt + * contrib/hbnf/doc/en/acctyear.txt + * contrib/hbnf/doc/en/adapter.txt + * contrib/hbnf/doc/en/aemaxlen.txt + * contrib/hbnf/doc/en/aeminlen.txt + * contrib/hbnf/doc/en/alt.txt + * contrib/hbnf/doc/en/amedian.txt + * contrib/hbnf/doc/en/anomatch.txt + * contrib/hbnf/doc/en/any2any.txt + * contrib/hbnf/doc/en/aredit.txt + * contrib/hbnf/doc/en/asum.txt + * contrib/hbnf/doc/en/at2.txt + * contrib/hbnf/doc/en/bitclr.txt + * contrib/hbnf/doc/en/byt2bit.txt + * contrib/hbnf/doc/en/byt2hex.txt + * contrib/hbnf/doc/en/calendar.txt + * contrib/hbnf/doc/en/chdir.txt + * contrib/hbnf/doc/en/cint86.txt + * contrib/hbnf/doc/en/clrsel.txt + * contrib/hbnf/doc/en/cntryset.txt + * contrib/hbnf/doc/en/ctrl.txt + * contrib/hbnf/doc/en/d2e.txt + * contrib/hbnf/doc/en/datecnfg.txt + * contrib/hbnf/doc/en/default.txt + * contrib/hbnf/doc/en/dosver.txt + * contrib/hbnf/doc/en/easter.txt + * contrib/hbnf/doc/en/elapmil.txt + * contrib/hbnf/doc/en/elapsed.txt + * contrib/hbnf/doc/en/eltime.txt + * contrib/hbnf/doc/en/findith.txt + * contrib/hbnf/doc/en/firstday.txt + * contrib/hbnf/doc/en/floptst.txt + * contrib/hbnf/doc/en/fttext.txt + * contrib/hbnf/doc/en/getenvrn.txt + * contrib/hbnf/doc/en/hex2dec.txt + * contrib/hbnf/doc/en/iamidle.txt + * contrib/hbnf/doc/en/idle.txt + * contrib/hbnf/doc/en/inp.txt + * contrib/hbnf/doc/en/invclr.txt + * contrib/hbnf/doc/en/isprint.txt + * contrib/hbnf/doc/en/lastday.txt + * contrib/hbnf/doc/en/linked.txt + * contrib/hbnf/doc/en/madd.txt + * contrib/hbnf/doc/en/menu1.txt + * contrib/hbnf/doc/en/menutonf.txt + * contrib/hbnf/doc/en/metaph.txt + * contrib/hbnf/doc/en/miltime.txt + * contrib/hbnf/doc/en/min2dhm.txt + * contrib/hbnf/doc/en/mkdir.txt + * contrib/hbnf/doc/en/month.txt + * contrib/hbnf/doc/en/mouse1.txt + * contrib/hbnf/doc/en/n2color.txt + * contrib/hbnf/doc/en/netpv.txt + * contrib/hbnf/doc/en/nooccur.txt + * contrib/hbnf/doc/en/ntow.txt + * contrib/hbnf/doc/en/nwlstat.txt + * contrib/hbnf/doc/en/nwsem.txt + * contrib/hbnf/doc/en/nwuid.txt + * contrib/hbnf/doc/en/origin.txt + * contrib/hbnf/doc/en/outp.txt + * contrib/hbnf/doc/en/page.txt + * contrib/hbnf/doc/en/peek.txt + * contrib/hbnf/doc/en/pickday.txt + * contrib/hbnf/doc/en/popadder.txt + * contrib/hbnf/doc/en/proper.txt + * contrib/hbnf/doc/en/putkey.txt + * contrib/hbnf/doc/en/qtr.txt + * contrib/hbnf/doc/en/rand1.txt + * contrib/hbnf/doc/en/reboot.txt + * contrib/hbnf/doc/en/rmdir.txt + * contrib/hbnf/doc/en/round.txt + * contrib/hbnf/doc/en/savearr.txt + * contrib/hbnf/doc/en/scancode.txt + * contrib/hbnf/doc/en/setdate.txt + * contrib/hbnf/doc/en/settime.txt + * contrib/hbnf/doc/en/shift.txt + * contrib/hbnf/doc/en/sinkey.txt + * contrib/hbnf/doc/en/sleep.txt + * contrib/hbnf/doc/en/sqzn.txt + * contrib/hbnf/doc/en/stod.txt + * contrib/hbnf/doc/en/sysmem.txt + * contrib/hbnf/doc/en/tbwhile.txt + * contrib/hbnf/doc/en/tempfile.txt + * contrib/hbnf/doc/en/vertmenu.txt + * contrib/hbnf/doc/en/vidcur.txt + * contrib/hbnf/doc/en/vidmode.txt + * contrib/hbnf/doc/en/wda.txt + * contrib/hbnf/doc/en/week.txt + * contrib/hbnf/doc/en/year.txt + * contrib/hbziparc/doc/en/hbziparc.txt + * contrib/rddads/doc/en/adsfuncs.txt + * contrib/rddads/doc/en/readme.txt + * doc/en/1stread.txt + * doc/en/array.txt + * doc/en/binnum.txt + * doc/en/browse.txt + * doc/en/command.txt + * doc/en/compiler.txt + * doc/en/datetime.txt + * doc/en/dbdelim.txt + * doc/en/dbsdf.txt + * doc/en/dbstrux.txt + * doc/en/dir.txt + * doc/en/diskspac.txt + * doc/en/errsys.txt + * doc/en/eval.txt + * doc/en/file.txt + * doc/en/garbage.txt + * doc/en/harbext.txt + * doc/en/hashes.txt + * doc/en/hb_set.txt + * doc/en/hbinet.txt + * doc/en/hvm.txt + * doc/en/idle.txt + * doc/en/input.txt + * doc/en/lang.txt + * doc/en/macro.txt + * doc/en/math.txt + * doc/en/memo.txt + * doc/en/memvar.txt + * doc/en/menu.txt + * doc/en/misc.txt + * doc/en/nation.txt + * doc/en/objfunc.txt + * doc/en/rdd.txt + * doc/en/rdddb.txt + * doc/en/rddmisc.txt + * doc/en/rddord.txt + * doc/en/set.txt + * doc/en/setmode.txt + * doc/en/string.txt + * doc/en/tclass.txt + * doc/en/terminal.txt + * doc/en/tgetlist.txt + * doc/en/tlabel.txt + * doc/en/treport.txt + * doc/en/var.txt + * sync with fixes/updates from 3.4 fork + 2016-10-04 16:22 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt) * contrib/hbwin/hbwin.ch + WIN_SERVICE_CONTROL_SHUTDOWN define added diff --git a/contrib/hbct/doc/en/ct.txt b/contrib/hbct/doc/en/ct.txt deleted file mode 100644 index 68c4889628..0000000000 --- a/contrib/hbct/doc/en/ct.txt +++ /dev/null @@ -1,67 +0,0 @@ -/* $DOC$ - $NAME$ - ctinit() - $CATEGORY$ - CT3 general functions - $ONELINER$ - Initializes the CT3 library - $SYNTAX$ - ctinit() -> lInitialized - $ARGUMENTS$ - None - $RETURNS$ - lInitialized .T. if the function has been correctly initialized - $DESCRIPTION$ - 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 - your program to check the initialization. - $EXAMPLES$ - - $STATUS$ - Ready - $COMPLIANCE$ - ctinit() is a new function in Harbour's CT3 library. - $PLATFORMS$ - All - $FILES$ - Library is hbct. - $SEEALSO$ - - $END$ - */ - -/* $DOC$ - $NAME$ - ctexit() - $CATEGORY$ - CT3 general functions - $ONELINER$ - Uninitializes the CT3 library - $SYNTAX$ - ctexit() -> nil - $ARGUMENTS$ - none - $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 - sure that the deinitialization takes place. - $EXAMPLES$ - - $STATUS$ - Ready - $COMPLIANCE$ - ctexit() is a new function in Harbour's CT3 library. - $PLATFORMS$ - All - $FILES$ - Library is hbct. - $SEEALSO$ - - $END$ - */ diff --git a/contrib/hbct/doc/en/ctc.txt b/contrib/hbct/doc/en/ctc.txt index 05cfd3faf1..6699393d74 100644 --- a/contrib/hbct/doc/en/ctc.txt +++ b/contrib/hbct/doc/en/ctc.txt @@ -38,65 +38,3 @@ $END$ */ - -/* $DOC$ - $NAME$ - ctcinit() - $CATEGORY$ - CT3 general functions - $ONELINER$ - Initializes the CT3 library, C part - $SYNTAX$ - ctcinit() -> lInitialized - $ARGUMENTS$ - None - $RETURNS$ - lInitialized .T. if the function has been correctly initialized - $DESCRIPTION$ - The ctcinit() function initializes the C source part of the CT3 - library. Do not call this function directly. - $EXAMPLES$ - - $STATUS$ - Ready - $COMPLIANCE$ - ctcinit() is a new function in Harbour's CT3 library. - $PLATFORMS$ - All - $FILES$ - Library is hbct. - $SEEALSO$ - ctinit(), ctexit() - $END$ - */ - -/* $DOC$ - $NAME$ - ctcexit() - $CATEGORY$ - CT3 general functions - $ONELINER$ - Uninitializes the CT3 library, C part - $SYNTAX$ - ctcexit() -> NIL - $ARGUMENTS$ - none - $RETURNS$ - nil - $DESCRIPTION$ - The ctcexit() function uninitializes the C part of the CT3 library. - Do not call this function directly. - $EXAMPLES$ - - $STATUS$ - Ready - $COMPLIANCE$ - ctcexit() is a new function in Harbour's CT3 library. - $PLATFORMS$ - All - $FILES$ - Library is hbct. - $SEEALSO$ - ctinit(), ctexit() - $END$ - */ diff --git a/contrib/hbct/doc/en/strdiff.txt b/contrib/hbct/doc/en/strdiff.txt index 40cdff3304..005947a2f9 100644 --- a/contrib/hbct/doc/en/strdiff.txt +++ b/contrib/hbct/doc/en/strdiff.txt @@ -24,8 +24,8 @@ Be aware that this function is both quite time - O(Len(cString1)*Len(cString2)) - and memory consuming - O((Len(cString1)+1)*(Len(cString2)+1)*sizeof(int)) - so keep the strings as short as possible. - E.g., on common 32 bit systems (sizeof(int) == 4), calling StrDiff() with two strings of 1024 bytes - in length will consume 4 MB of memory. To not impose unneeded restrictions, the function will only check if + E.g., on common 32-bit systems (sizeof(int) == 4), calling StrDiff() with two strings of 1024 bytes + in length will consume 4 MiB of memory. To not impose unneeded restrictions, the function will only check if (Len(cString1)+1)*(Len(cString2)+1)*sizeof(int) <= UINT_MAX, although allocing UINT_MAX bytes will not work on most systems. If this simple check fails, -1 is returned. diff --git a/contrib/hbct/doc/en/token2.txt b/contrib/hbct/doc/en/token2.txt index 9eba78a75b..cc0c725372 100644 --- a/contrib/hbct/doc/en/token2.txt +++ b/contrib/hbct/doc/en/token2.txt @@ -231,7 +231,7 @@ The TokenExit() function releases the memory associated with the global token environment. One should use it for every TokenInit() using the global TE. Additionally, TokenExit() is implicitly called - from ctexit() to free the memory at library shutdown. + when the thread or application ends. $EXAMPLES$ TokenInit( cString ) // initialize a TE DO WHILE ! TokenEnd() diff --git a/contrib/hbgt/doc/en/hbgt.txt b/contrib/hbgt/doc/en/hbgt.txt index 578182d401..9dcfa6df33 100644 --- a/contrib/hbgt/doc/en/hbgt.txt +++ b/contrib/hbgt/doc/en/hbgt.txt @@ -11,15 +11,15 @@ - The string - The position in $RETURNS$ - - The ascii value of SubStr( , , 1 ) + - The ascii value of hb_BSubStr( , , 1 ) $DESCRIPTION$ Return the ascii value of a specified character in a string Equivalent (but much faster) to - Asc(SubStr(cStr, nPos, 1) + hb_BCode( hb_BSubStr( cStr, nPos, 1 ) ) NOTE: invalid parameters will return -1 - nPos > Len( cStr ) will return -2 + nPos > hb_BLen( cStr ) will return -2 This last behaviour is different to the Funcky function of the same name. I changed the behaviour because some of the strings @@ -254,8 +254,8 @@ Return the ascii value of a character in which appears first in . $EXAMPLES$ - ? Chr( gt_ChrFirst( "sa ", "This is a test" ) ) // prints "s" - ? Chr( gt_ChrFirst( "et", "This is a test" ) ) // prints "t" + ? hb_BChar( gt_ChrFirst( "sa ", "This is a test" ) ) // prints "s" + ? hb_BChar( gt_ChrFirst( "et" , "This is a test" ) ) // prints "t" $STATUS$ R $COMPLIANCE$ @@ -686,7 +686,7 @@ $EXAMPLES$ // Print the setting of the flags in a flag string called ``cDave'' - FOR nFlag := 1 to ( Len( cDave ) * 8 ) + FOR nFlag := 1 to ( hb_BLen( cDave ) * 8 ) ? "Flag number ", nFlag, " == ", gt_IsFlag( cDave, nFlag ) NEXT $SEEALSO$ diff --git a/contrib/hbmisc/doc/en/dates2.txt b/contrib/hbmisc/doc/en/dates2.txt index 63b4fdb4c2..a8357cbdea 100644 --- a/contrib/hbmisc/doc/en/dates2.txt +++ b/contrib/hbmisc/doc/en/dates2.txt @@ -6,7 +6,7 @@ $ONELINER$ Returns an array with the months names. $SYNTAX$ - AMonths() --> aMonths + AMonths() --> aMonths $ARGUMENTS$ None $RETURNS$ @@ -16,8 +16,8 @@ selected current language. $EXAMPLES$ aMonths := AMonths() - ? aMonths[ 1 ] // -> January - ? aMonths[ 1 ] // -> Enero (if the selected language is Spanish) + ? aMonths[ 1 ] // -> January + ? aMonths[ 1 ] // -> Enero (if the selected language is Spanish) $STATUS$ R $COMPLIANCE$ @@ -39,7 +39,7 @@ $ONELINER$ Returns an array with the days names. $SYNTAX$ - ADays() --> aDays + ADays() --> aDays $ARGUMENTS$ None $RETURNS$ @@ -72,7 +72,7 @@ $ONELINER$ Checks if the given date is a leap year. $SYNTAX$ - IsLeapYear( ) --> lTrueOrFalse + IsLeapYear( ) --> lTrueOrFalse $ARGUMENTS$ A valid date. $RETURNS$ @@ -81,8 +81,8 @@ This function returns true if the given date is a leap year and false if isn't. $EXAMPLES$ - ? IsLeapYear( hb_SToD( "20000101" ) ) // -> .T. - ? IsLeapYear( hb_SToD( "20010101" ) ) // -> .F. + ? IsLeapYear( hb_SToD( "20000101" ) ) // -> .T. + ? IsLeapYear( hb_SToD( "20010101" ) ) // -> .F. $STATUS$ R $COMPLIANCE$ @@ -104,7 +104,7 @@ $ONELINER$ Gets the days in a month. $SYNTAX$ - DaysInMonth( ) --> nDays + DaysInMonth( ) --> nDays $ARGUMENTS$ A valid date. $RETURNS$ @@ -112,8 +112,8 @@ $DESCRIPTION$ This function returns the number of days of the given date month. $EXAMPLES$ - ? DaysInMonth( hb_SToD( "20000101" ) ) // -> 31 - ? DaysInMonth( hb_SToD( "20000201" ) ) // -> 29 + ? DaysInMonth( hb_SToD( "20000101" ) ) // -> 31 + ? DaysInMonth( hb_SToD( "20000201" ) ) // -> 29 $STATUS$ R $COMPLIANCE$ @@ -135,7 +135,7 @@ $ONELINER$ Gets the last day in a month. $SYNTAX$ - EoM( ) --> dEOM + EoM( ) --> dEOM $ARGUMENTS$ A valid date. $RETURNS$ @@ -144,8 +144,8 @@ This function returns the last day of a given month date. $EXAMPLES$ Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) - ? EoM( hb_SToD( "20000101" ) ) // -> "2000-01-31" - ? EoM( hb_SToD( "20000201" ) ) // -> "2000-02-29" + ? EoM( hb_SToD( "20000101" ) ) // -> "2000-01-31" + ? EoM( hb_SToD( "20000201" ) ) // -> "2000-02-29" $STATUS$ R $COMPLIANCE$ @@ -167,7 +167,7 @@ $ONELINER$ Gets the first day in a month. $SYNTAX$ - BoM( ) --> dBOM + BoM( ) --> dBOM $ARGUMENTS$ A valid date. $RETURNS$ @@ -176,8 +176,8 @@ This function returns the first day of a given month date. $EXAMPLES$ Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) - ? BoM( hb_SToD( "20000125" ) ) // -> "2000-01-01" - ? BoM( hb_SToD( "20000224" ) ) // -> "2000-02-01" + ? BoM( hb_SToD( "20000125" ) ) // -> "2000-01-01" + ? BoM( hb_SToD( "20000224" ) ) // -> "2000-02-01" $STATUS$ R $COMPLIANCE$ @@ -199,7 +199,7 @@ $ONELINER$ Gets the day number of the year. $SYNTAX$ - DoY( ) --> nDay + DoY( ) --> nDay $ARGUMENTS$ A valid date. $RETURNS$ @@ -207,8 +207,8 @@ $DESCRIPTION$ This function returns the day number of the year for a given date. $EXAMPLES$ - ? DoY( hb_SToD( "20000131" ) ) // -> 31 - ? DoY( hb_SToD( "20000220" ) ) // -> 51 + ? DoY( hb_SToD( "20000131" ) ) // -> 31 + ? DoY( hb_SToD( "20000220" ) ) // -> 51 $STATUS$ R $COMPLIANCE$ @@ -230,7 +230,7 @@ $ONELINER$ Gets the week number of the year. $SYNTAX$ - WoY( , ) --> nWeek + WoY( , ) --> nWeek $ARGUMENTS$ A valid date. $RETURNS$ @@ -241,8 +241,8 @@ It returns the week number in ISO format ( range 0 - 52, by default or passing TRUE as second parameter) or 1 - 52 if lIso is FALSE. $EXAMPLES$ - ? WoY( hb_SToD( "20000131" ) ) // -> 3 - ? WoY( hb_SToD( "20000131" ), .F. ) // -> 4 + ? WoY( hb_SToD( "20000131" ) ) // -> 3 + ? WoY( hb_SToD( "20000131" ), .F. ) // -> 4 $STATUS$ R $COMPLIANCE$ @@ -264,7 +264,7 @@ $ONELINER$ Gets the last date of the year. $SYNTAX$ - EoY( ) --> dEOY + EoY( ) --> dEOY $ARGUMENTS$ A valid date. $RETURNS$ @@ -273,8 +273,8 @@ This function returns the last date of a given year date. $EXAMPLES$ Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) - ? EoY( hb_SToD( "20000101" ) ) // -> "2000-12-31" - ? EoY( hb_SToD( "20010101" ) ) // -> "2001-12-31" + ? EoY( hb_SToD( "20000101" ) ) // -> "2000-12-31" + ? EoY( hb_SToD( "20010101" ) ) // -> "2001-12-31" $STATUS$ R $COMPLIANCE$ @@ -296,7 +296,7 @@ $ONELINER$ Gets the first date of the year. $SYNTAX$ - BoY( ) --> dBOY + BoY( ) --> dBOY $ARGUMENTS$ A valid date. $RETURNS$ @@ -305,8 +305,8 @@ This function returns the first date of a given year date. $EXAMPLES$ Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) - ? BoY( hb_SToD( "20000125" ) ) // -> "2000-01-01" - ? BoY( hb_SToD( "20010224" ) ) // -> "2001-01-01" + ? BoY( hb_SToD( "20000125" ) ) // -> "2000-01-01" + ? BoY( hb_SToD( "20010224" ) ) // -> "2001-01-01" $STATUS$ R $COMPLIANCE$ diff --git a/contrib/hbmisc/doc/en/ht_class.txt b/contrib/hbmisc/doc/en/ht_class.txt index 143de9f583..13689f8c47 100644 --- a/contrib/hbmisc/doc/en/ht_class.txt +++ b/contrib/hbmisc/doc/en/ht_class.txt @@ -22,45 +22,43 @@ The class methods are as follows: - New() Creates a new instance of the TFileRead class. + New() Creates a new instance of the TFileRead class. - Open([]) Opens the file for reading. The optional nFlags - parameter can use any of the FOpen() flags from - fileio.ch. The default is FO_READ + FO_SHARED. - Calling this method when the file is already - open causes the next ReadLine() to start over - from the beginning of the file. + Open( [] ) Opens the file for reading. The optional nFlags + parameter can use any of the file open flags from + fileio.ch. The default is FO_READ + FO_SHARED. + Calling this method when the file is already + open causes the next ReadLine() to start over + from the beginning of the file. - Close() Closes the file. + Close() Closes the file. - ReadLine() Returns one line from the file, stripping the - newline characters. The following sequences are - treated as one newline: 1) CR CR LF; 2) CR LF; - 3) LF; and 4) CR. Note: LF CR is 2 newlines. - Name() Returns the name of the file. + ReadLine() Returns one line from the file, stripping the + newline characters. The following sequences are + treated as one newline: 1) CR CR LF; 2) CR LF; + 3) LF; and 4) CR. Note: LF CR is 2 newlines. + Name() Returns the name of the file. - IsOpen() Returns .T. if the file is open. + IsOpen() Returns .T. if the file is open. - MoreToRead() Returns .T. if there are more lines to be read - (think of it as an inverse EOF function). + MoreToRead() Returns .T. if there are more lines to be read + (think of it as an inverse EOF function). - Error() Returns .T. if an error has occurred. + Error() Returns .T. if an error has occurred. - ErrorNo() Returns the current error code. + ErrorNo() Returns the current error code. - ErrorMsg([]) Returns a formatted error message. + ErrorMsg( [] ) Returns a formatted error message. $EXAMPLES$ PROCEDURE Main( cFile ) LOCAL oFile := TFileRead():New( cFile ) oFile:Open() IF oFile:Error() - OutStd( oFile:ErrorMsg( "FileRead: " ) ) - OutStd( hb_eol() ) + ? oFile:ErrorMsg( "FileRead:" ) ELSE DO WHILE oFile:MoreToRead() - OutStd( oFile:ReadLine() ) - OutStd( hb_eol() ) + ? oFile:ReadLine() ENDDO oFile:Close() ENDIF diff --git a/contrib/hbmisc/doc/en/ht_str.txt b/contrib/hbmisc/doc/en/ht_str.txt index d07ea70266..d2fd7d7548 100644 --- a/contrib/hbmisc/doc/en/ht_str.txt +++ b/contrib/hbmisc/doc/en/ht_str.txt @@ -6,7 +6,7 @@ $ONELINER$ Format a string $SYNTAX$ - StrFormat([, [, [, ...]]) --> cString + StrFormat( [, [, [, ...]] ) --> cString $ARGUMENTS$ Holds the mask for the resulting string Holds the strings to be inserted in the mask @@ -22,7 +22,7 @@ You can print "%" character with "%%". $EXAMPLES$ StrFormat( "Please insert disk %1 to drive %2", hb_ntos( 2 ), "A:" ) - StrFormat( "This is %1 from %2", "Victor", "Hungary" ) + StrFormat( "This is %1 from %2", "John", "Earth" ) StrFormat( "%2 %1 %2", "Param1", "Param2" ) $STATUS$ Done diff --git a/contrib/hbnf/doc/en/aavg.txt b/contrib/hbnf/doc/en/aavg.txt index c2cae23e56..7a0cda8f3e 100644 --- a/contrib/hbnf/doc/en/aavg.txt +++ b/contrib/hbnf/doc/en/aavg.txt @@ -23,12 +23,9 @@ This routine requires ft_ASum(). $EXAMPLES$ - ft_AAvg( aSubTotals ) // Get Average of Entire Array - - ft_AAvg( aSubTotals, 5 ) // Get Average of 5th Element On - - ft_AAvg( aSubTotals, , 10 ) // Get Average of 1st 10 Elements - - ft_AAvg( aSubTotals, 5, 10 ) // Get Average of Elements 5-10 + ? ft_AAvg( aSubTotals ) // Get Average of Entire Array + ? ft_AAvg( aSubTotals, 5 ) // Get Average of 5th Element On + ? ft_AAvg( aSubTotals, , 10 ) // Get Average of 1st 10 Elements + ? ft_AAvg( aSubTotals, 5, 10 ) // Get Average of Elements 5-10 $END$ */ diff --git a/contrib/hbnf/doc/en/acctadj.txt b/contrib/hbnf/doc/en/acctadj.txt index 88fe2de4e2..de12acbf5d 100644 --- a/contrib/hbnf/doc/en/acctadj.txt +++ b/contrib/hbnf/doc/en/acctadj.txt @@ -17,7 +17,7 @@ $RETURNS$ An adjusted date dependent upon mode and work week start day. $DESCRIPTION$ - Called by other FT_ACCT.. functions. The algorithm is: + Called by other ft_Acct*() functions. The algorithm is: Beginning of period mode: diff --git a/contrib/hbnf/doc/en/acctmnth.txt b/contrib/hbnf/doc/en/acctmnth.txt index f205c8dc70..e7fad0c6c1 100644 --- a/contrib/hbnf/doc/en/acctmnth.txt +++ b/contrib/hbnf/doc/en/acctmnth.txt @@ -36,16 +36,16 @@ 'quarter' will contain 14 weeks and the year will contain 53 weeks. $EXAMPLES$ - // get info about accounting month containing 9/15/90 + // get info about accounting month containing 1990-09-15 aDateInfo := ft_AcctMonth( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 199009 (9th month) ? aDateInfo[ 2 ] // 1990-09-02 beginning of month 9 ? aDateInfo[ 3 ] // 1990-09-29 end of month 9 - // get info about accounting month 5 in year containing 9/15/90 + // get info about accounting month 5 in year containing 1990-09-15 aDateInfo := ft_AcctMonth( hb_SToD( "19900915" ), 5 ) ? aDateInfo[ 1 ] // 199005 - ? aDateInfo[ 2 ] // 1989-04-29 beginning of month 5 + ? aDateInfo[ 2 ] // 1990-04-29 beginning of month 5 ? aDateInfo[ 3 ] // 1990-06-02 end of month 5 $SEEALSO$ ft_DateCnfg() ft_AcctWeek() ft_AcctQtr() ft_AcctYear() diff --git a/contrib/hbnf/doc/en/acctqtr.txt b/contrib/hbnf/doc/en/acctqtr.txt index 1c879a36de..a2d8ced74b 100644 --- a/contrib/hbnf/doc/en/acctqtr.txt +++ b/contrib/hbnf/doc/en/acctqtr.txt @@ -36,13 +36,13 @@ 'quarter' will contain 14 weeks and the year will contain 53 weeks. $EXAMPLES$ - // get info about accounting month containing 9/15/90 + // get info about accounting month containing 1990-09-15 aDateInfo := ft_AcctQtr( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 199003 (3rd quarter) ? aDateInfo[ 2 ] // 1990-07-01 beginning of quarter 3 ? aDateInfo[ 3 ] // 1990-09-29 end of quarter 3 - // get info about accounting qtr. 2 in year containing 9/15/90 + // get info about accounting qtr. 2 in year containing 1990-09-15 aDateInfo := ft_AcctQtr( hb_SToD( "19900915" ), 2 ) ? aDateInfo[ 1 ] // 199002 ? aDateInfo[ 2 ] // 1989-04-01 beginning of quarter 2 diff --git a/contrib/hbnf/doc/en/acctweek.txt b/contrib/hbnf/doc/en/acctweek.txt index 7841ca9218..fc45e7c9de 100644 --- a/contrib/hbnf/doc/en/acctweek.txt +++ b/contrib/hbnf/doc/en/acctweek.txt @@ -36,13 +36,13 @@ 'quarter' will contain 14 weeks and the year will contain 53 weeks. $EXAMPLES$ - // get info about accounting week containing 9/15/90 + // get info about accounting week containing 1990-09-15 aDateInfo := ft_AcctWeek( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 199037 (37th week) ? aDateInfo[ 2 ] // 1990-09-09 beginning of week 37 ? aDateInfo[ 3 ] // 1990-09-15 end of week 37 - // get info about accounting week 25 in year containing 9/15/90 + // get info about accounting week 25 in year containing 1990-09-15 aDateInfo := ft_AcctWeek( hb_SToD( "19900915" ), 25 ) ? aDateInfo[ 1 ] // 199025 ? aDateInfo[ 2 ] // 1989-06-17 beginning of week 25 diff --git a/contrib/hbnf/doc/en/acctyear.txt b/contrib/hbnf/doc/en/acctyear.txt index d96c186e6e..8cbed45960 100644 --- a/contrib/hbnf/doc/en/acctyear.txt +++ b/contrib/hbnf/doc/en/acctyear.txt @@ -33,7 +33,7 @@ 'quarter' will contain 14 weeks and the year will contain 53 weeks. $EXAMPLES$ - // get info about accounting year containing 9/15/90 + // get info about accounting year containing 1990-09-15 aDateInfo := ft_AcctYear( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 1990 ? aDateInfo[ 2 ] // 1989-12-31 beginning of year diff --git a/contrib/hbnf/doc/en/adapter.txt b/contrib/hbnf/doc/en/adapter.txt index 9b29150d31..c13676b70f 100644 --- a/contrib/hbnf/doc/en/adapter.txt +++ b/contrib/hbnf/doc/en/adapter.txt @@ -29,13 +29,13 @@ DO CASE CASE iVideo == 0 - QOut( "You have a monochrome adapter." ) + ? "You have a monochrome adapter." CASE iVideo == 1 - QOut( "You have a CGA adapter." ) + ? "You have a CGA adapter." CASE iVideo == 2 - QOut( "You have an EGA adapter." ) + ? "You have an EGA adapter." CASE iVideo == 3 - QOut( "You have a VGA adapter." ) + ? "You have a VGA adapter." ENDCASE $SEEALSO$ ft_SetMode() diff --git a/contrib/hbnf/doc/en/aemaxlen.txt b/contrib/hbnf/doc/en/aemaxlen.txt index 3240ae7bef..114e3a484f 100644 --- a/contrib/hbnf/doc/en/aemaxlen.txt +++ b/contrib/hbnf/doc/en/aemaxlen.txt @@ -26,18 +26,11 @@ This function will measure each element of an array dimension and return the longest element. $EXAMPLES$ - ft_AEMaxLen( aArray ) // Measure the 1st dimension of an Array - - ft_AEMaxLen( aArray, 2 ) // Measure the 2nd dimension of an Array - - ft_AEMaxLen( aArray, 2, , 9 ) // Measure Elements 1-9 of the - // 2nd dimension or subarray - - ft_AEMaxLen( aArray, 3, 5, 9 ) // Measure Elements 5-9 of the - // 3rd dimension or subarray - - ft_AEMaxLen( aArray, 3, 5 ) // Measure Elements 5 to last in the - // 3rd dimension or subarray + ? ft_AEMaxLen( aArray ) // Measure the 1st dimension of an Array + ? ft_AEMaxLen( aArray, 2 ) // Measure the 2nd dimension of an Array + ? ft_AEMaxLen( aArray, 2, , 9 ) // Measure Elements 1-9 of the 2nd dimension or subarray + ? ft_AEMaxLen( aArray, 3, 5, 9 ) // Measure Elements 5-9 of the 3rd dimension or subarray + ? ft_AEMaxLen( aArray, 3, 5 ) // Measure Elements 5 to last in the 3rd dimension or subarray $SEEALSO$ ft_AEMinLen() $END$ diff --git a/contrib/hbnf/doc/en/aeminlen.txt b/contrib/hbnf/doc/en/aeminlen.txt index 2a137d7029..c6445228c8 100644 --- a/contrib/hbnf/doc/en/aeminlen.txt +++ b/contrib/hbnf/doc/en/aeminlen.txt @@ -26,15 +26,11 @@ This function will measure each element of an array dimension and return the shortest element. $EXAMPLES$ - ft_AEMinLen( aArray ) // Measure the 1st dimension of an Array - - ft_AEMinLen( aArray, 2 ) // Measure the 2nd dimension of an Array - - ft_AEMinLen( aArray, 2, , 9 ) // Measure Elements 1-9 of 2nd dimension - - ft_AEMinLen( aArray, 3, 5, 9 ) // Measure Elements 5-9 of 3rd dimension - - ft_AEMinLen( aArray, 3, 5 ) // Measure Elements 5 to end of 3rd dimension + ? ft_AEMinLen( aArray ) // Measure the 1st dimension of an Array + ? ft_AEMinLen( aArray, 2 ) // Measure the 2nd dimension of an Array + ? ft_AEMinLen( aArray, 2, , 9 ) // Measure Elements 1-9 of 2nd dimension + ? ft_AEMinLen( aArray, 3, 5, 9 ) // Measure Elements 5-9 of 3rd dimension + ? ft_AEMinLen( aArray, 3, 5 ) // Measure Elements 5 to end of 3rd dimension $SEEALSO$ ft_AEMaxLen() $END$ diff --git a/contrib/hbnf/doc/en/alt.txt b/contrib/hbnf/doc/en/alt.txt index 9f391528fc..356fb1a455 100644 --- a/contrib/hbnf/doc/en/alt.txt +++ b/contrib/hbnf/doc/en/alt.txt @@ -16,9 +16,9 @@ Alt key is pressed, such as during a MemoEdit(). $EXAMPLES$ IF ft_Alt() - @ 24, 0 SAY "Alt" + @ 0, 0 SAY "Alt" ELSE - @ 24, 0 SAY " " + @ 0, 0 SAY " " ENDIF $SEEALSO$ ft_CapLock() ft_Ctrl() ft_NumLock() ft_PrtScr() ft_Shift() diff --git a/contrib/hbnf/doc/en/amedian.txt b/contrib/hbnf/doc/en/amedian.txt index cdf2178acb..0beeec50a5 100644 --- a/contrib/hbnf/doc/en/amedian.txt +++ b/contrib/hbnf/doc/en/amedian.txt @@ -27,12 +27,9 @@ more reflect a more useful average when there are extreme values in the set. $EXAMPLES$ - ft_AMedian( aArray ) // Return Median for entire array - - ft_AMedian( aArray, 2 ) // Return Median for elements from 2 to end - - ft_AMedian( aArray, , 9 ) // Return Median for 1st 9 elements - - ft_AMedian( aArray, 8, 40 ) // Return Median for elements 8 to 40 + ? ft_AMedian( aArray ) // Return Median for entire array + ? ft_AMedian( aArray, 2 ) // Return Median for elements from 2 to end + ? ft_AMedian( aArray, , 9 ) // Return Median for 1st 9 elements + ? ft_AMedian( aArray, 8, 40 ) // Return Median for elements 8 to 40 $END$ */ diff --git a/contrib/hbnf/doc/en/anomatch.txt b/contrib/hbnf/doc/en/anomatch.txt index 99a46384fc..731f05e7d3 100644 --- a/contrib/hbnf/doc/en/anomatch.txt +++ b/contrib/hbnf/doc/en/anomatch.txt @@ -28,15 +28,15 @@ to the supplied code block, cause that code block to return a .T. value. $EXAMPLES$ // Search the Entire Array - ft_ANoMatches( aTries, {| x | x <= 100 } ) + ? ft_ANoMatches( aTries, {| x | x <= 100 } ) // Search from the 5th Element On - ft_ANoMatches( aCodes, {| x | Upper( x ) == cCurrentCode }, 5 ) + ? ft_ANoMatches( aCodes, {| x | Upper( x ) == cCurrentCode }, 5 ) // Search the 1st 10 Elements - ft_ANoMatches( aDates, {| x | IS_BETWEEN( Date() - 7, x, Date() + 7 ) }, 10 ) + ? ft_ANoMatches( aDates, {| x | IS_BETWEEN( Date() - 7, x, Date() + 7 ) }, 10 ) // Search Elements 5-10 - ft_ANoMatches( aNames, {| x | x <= cLastGoodName }, 5, 10 ) + ? ft_ANoMatches( aNames, {| x | x <= cLastGoodName }, 5, 10 ) $END$ */ diff --git a/contrib/hbnf/doc/en/any2any.txt b/contrib/hbnf/doc/en/any2any.txt index 80d9604b69..12fce86ea0 100644 --- a/contrib/hbnf/doc/en/any2any.txt +++ b/contrib/hbnf/doc/en/any2any.txt @@ -27,6 +27,6 @@ value of the desired type). $EXAMPLES$ nNumericValue := ft_XToY( cInputValue, "N" ) - IF ft_XToY( nInputValue, "L" ) + lLogicalValue := ft_XToY( nInputValue, "L" ) $END$ */ diff --git a/contrib/hbnf/doc/en/aredit.txt b/contrib/hbnf/doc/en/aredit.txt index d0a20c53a3..bb1040c818 100644 --- a/contrib/hbnf/doc/en/aredit.txt +++ b/contrib/hbnf/doc/en/aredit.txt @@ -59,7 +59,7 @@ aBlocks[ 2 ] := {|| ar[ 2, nElem ] } aBlocks[ 3 ] := {|| ar[ 3, nElem ] } - // set up TestGet() as the passed Get Function so FT_ArEdit knows how + // set up TestGet() as the passed Get Function so ft_ArEdit() knows how // to edit the individual gets. bGetFunc := {| b, ar, nDim, nElem | TestGet( b, ar, nDim, nElem ) } diff --git a/contrib/hbnf/doc/en/asum.txt b/contrib/hbnf/doc/en/asum.txt index 04f686575a..91f651e784 100644 --- a/contrib/hbnf/doc/en/asum.txt +++ b/contrib/hbnf/doc/en/asum.txt @@ -21,12 +21,9 @@ This function is to sum the elements of a numeric array or to sum the lengths of a character array. $EXAMPLES$ - ft_ASum( aSubTotals ) // Sum the Entire Array - - ft_ASum( aSubTotals, 5 ) // Sum from the 5th Element On - - ft_ASum( aSubTotals, , 10 ) // Sum the 1st 10 Elements - - ft_ASum( aSubTotals, 5, 10 ) // Sum Elements 5-10 + ? ft_ASum( aSubTotals ) // Sum the Entire Array + ? ft_ASum( aSubTotals, 5 ) // Sum from the 5th Element On + ? ft_ASum( aSubTotals, , 10 ) // Sum the 1st 10 Elements + ? ft_ASum( aSubTotals, 5, 10 ) // Sum Elements 5-10 $END$ */ diff --git a/contrib/hbnf/doc/en/at2.txt b/contrib/hbnf/doc/en/at2.txt index a9b91e1be9..33abbea848 100644 --- a/contrib/hbnf/doc/en/at2.txt +++ b/contrib/hbnf/doc/en/at2.txt @@ -27,11 +27,9 @@ cSearch := "t" cTarget := "This is the day that the Lord has made." - ft_At2( cSearch, cTarget ) // Returns ( 9 ) - - ft_At2( cSearch, cTarget, 2 ) // Returns ( 17 ) - - ft_At2( cSearch, cTarget, 2, .F. ) // Returns ( 9 ) + ? ft_At2( cSearch, cTarget ) // Returns 9 + ? ft_At2( cSearch, cTarget, 2 ) // Returns 17 + ? ft_At2( cSearch, cTarget, 2, .F. ) // Returns 9 $SEEALSO$ ft_FindITh(), ft_RAt2() $END$ @@ -66,11 +64,9 @@ cSearch := "t" cTarget := "This is the day that the Lord has made." - ft_RAt2( cSearch, cTarget ) // Returns ( 22 ) - - ft_RAt2( cSearch, cTarget, 2 ) // Returns ( 20 ) - - ft_RAt2( cSearch, cTarget, 2, .F. ) // Returns ( 22 ) + ? ft_RAt2( cSearch, cTarget ) // Returns 22 + ? ft_RAt2( cSearch, cTarget, 2 ) // Returns 20 + ? ft_RAt2( cSearch, cTarget, 2, .F. ) // Returns 22 $SEEALSO$ ft_FindITh(), ft_At2() $END$ diff --git a/contrib/hbnf/doc/en/bitclr.txt b/contrib/hbnf/doc/en/bitclr.txt index 5db9bb68d2..ce9219de4c 100644 --- a/contrib/hbnf/doc/en/bitclr.txt +++ b/contrib/hbnf/doc/en/bitclr.txt @@ -33,8 +33,7 @@ // This code would clear bit 5 in the byte represented by letter "A": - ft_BitClr( "A", 5 ) // result: "A", since - // bit 5 already clear + ? ft_BitClr( "A", 5 ) // result: "A", since bit 5 already clear $SEEALSO$ ft_BitSet() ft_IsBit() $END$ diff --git a/contrib/hbnf/doc/en/byt2bit.txt b/contrib/hbnf/doc/en/byt2bit.txt index 77e1c91b60..0f75969596 100644 --- a/contrib/hbnf/doc/en/byt2bit.txt +++ b/contrib/hbnf/doc/en/byt2bit.txt @@ -29,9 +29,7 @@ ? ft_Byt2Bit( hb_BChar( 20 ) ) // byte1: '0001 0100' ? ft_Byt2Bit( hb_BChar( 36 ) ) // byte2: '0010 0100' - - ? ft_Byt2Bit( ft_ByteAnd( hb_BChar( 20 ), hb_BChar( 36 ) ) ) - // result: '0000 0100' + ? ft_Byt2Bit( ft_ByteAnd( hb_BChar( 20 ), hb_BChar( 36 ) ) ) // result: '0000 0100' $SEEALSO$ ft_Byt2Hex() $END$ diff --git a/contrib/hbnf/doc/en/byt2hex.txt b/contrib/hbnf/doc/en/byt2hex.txt index 6651a342f9..ec34b50d0b 100644 --- a/contrib/hbnf/doc/en/byt2hex.txt +++ b/contrib/hbnf/doc/en/byt2hex.txt @@ -26,9 +26,7 @@ ? ft_Byt2Hex( hb_BChar( 20 ) ) // byte1: '14h' ? ft_Byt2Hex( hb_BChar( 36 ) ) // byte2: '24h' - - ? ft_Byt2Hex( ft_ByteAnd( hb_BChar( 20 ), hb_BChar( 36 ) ) ) - // result: '04h' + ? ft_Byt2Hex( ft_ByteAnd( hb_BChar( 20 ), hb_BChar( 36 ) ) ) // result: '04h' $SEEALSO$ ft_Byt2Bit() $END$ diff --git a/contrib/hbnf/doc/en/calendar.txt b/contrib/hbnf/doc/en/calendar.txt index 6395e5adba..5560107c81 100644 --- a/contrib/hbnf/doc/en/calendar.txt +++ b/contrib/hbnf/doc/en/calendar.txt @@ -38,14 +38,14 @@ increments. Returns an 8 element array of calendar data: Element Value - [1] Date in current date format. - [2] Numeric month number. - [3] Numeric day number. - [4] Numeric year number. - [5] Month in character format. - [6] Day of the week in character format. - [7] Numeric Julian day. - [8] Current time in time format. + [ 1 ] Date in current date format. + [ 2 ] Numeric month number. + [ 3 ] Numeric day number. + [ 4 ] Numeric year number. + [ 5 ] Month in character format. + [ 6 ] Day of the week in character format. + [ 7 ] Numeric Julian day. + [ 8 ] Current time in time format. WARNING: ft_Calendar() uses ft_Shadow() and ft_XBox() from the Nanforum Toolkit! @@ -62,6 +62,5 @@ ? aRetVal[ 8 ] // Result: 12:45:20 $SEEALSO$ ft_DayOfYr() - $END$ */ diff --git a/contrib/hbnf/doc/en/chdir.txt b/contrib/hbnf/doc/en/chdir.txt index 170a512580..8d34ff1bb6 100644 --- a/contrib/hbnf/doc/en/chdir.txt +++ b/contrib/hbnf/doc/en/chdir.txt @@ -22,8 +22,8 @@ SEGMENT directives, and also the ENDP and ENDS directives (a very minor task). $EXAMPLES$ - ft_ChDir( "C:\harbour" ) - ft_ChDir( hb_ps() ) - ft_ChDir( ".." + hb_ps() + "hbnf" ) + ? ft_ChDir( "harbour" ) + ? ft_ChDir( hb_ps() ) + ? ft_ChDir( ".." + hb_ps() + "hbnf" ) $END$ */ diff --git a/contrib/hbnf/doc/en/cint86.txt b/contrib/hbnf/doc/en/cint86.txt index 86a92ae84b..44eae5c709 100644 --- a/contrib/hbnf/doc/en/cint86.txt +++ b/contrib/hbnf/doc/en/cint86.txt @@ -14,16 +14,16 @@ into the various CPU registers. The correspondence between registers and array elements is as follows: - aElement[1] == AX register - aElement[2] == BX register - aElement[3] == CX register - aElement[4] == DX register - aElement[5] == SI register - aElement[6] == DI register - aElement[7] == BP register - aElement[8] == DS register - aElement[9] == ES register - aElement[10] == Flags register + aElement[ 1 ] == AX register + aElement[ 2 ] == BX register + aElement[ 3 ] == CX register + aElement[ 4 ] == DX register + aElement[ 5 ] == SI register + aElement[ 6 ] == DI register + aElement[ 7 ] == BP register + aElement[ 8 ] == DS register + aElement[ 9 ] == ES register + aElement[ 10 ] == Flags register $RETURNS$ .T. if all parameters valid and the function was able to execute the desired interrupt. @@ -107,7 +107,7 @@ // Pay attention here, this is crucial. Note how to set up the string // so it appears in DS:DX. - aRegs[ DS ] := "C:\misc\myfile.xxx" + aRegs[ DS ] := "my_file.ext" aRegs[ DX ] := REG_DS ft_int86( 33, aRegs ) // Make the call to the DOS interrupt @@ -132,7 +132,6 @@ ? aRegs[ DS ] // Display the directory name - // For the sake of completeness, here's an example that doesn't use a // string. This one changes the video mode. diff --git a/contrib/hbnf/doc/en/clrsel.txt b/contrib/hbnf/doc/en/clrsel.txt index b52ec8b070..4422fc2251 100644 --- a/contrib/hbnf/doc/en/clrsel.txt +++ b/contrib/hbnf/doc/en/clrsel.txt @@ -4,41 +4,41 @@ $CATEGORY$ Menus/Prompts $ONELINER$ - User Selectable Colour Routine + User Selectable Color Routine $SYNTAX$ ft_ClrSel( , [ ], [ ] -> aClrData $ARGUMENTS$ is an array of subarrays, with each subarray containing - information about the colour settings. + information about the color settings. The subarray has the following structure: - [1] cName is the name of this colour setting i.e. "Pick List" + [ 1 ] cName is the name of this color setting i.e. "Pick List" Maximum length is 20 bytes - [2] cClrStr is the current colour string + [ 2 ] cClrStr is the current color string Default is "W/N,N/W,N/N,N/N,N/W" - If Setting type is "M" (Menu) the colours are... - 1. Prompt Colour - 2. Message Colour - 3. HotKey Colour - 4. LightBar Colour - 5. LightBar HotKey Colour + If Setting type is "M" (Menu) the colors are... + 1. Prompt Color + 2. Message Color + 3. HotKey Color + 4. LightBar Color + 5. LightBar HotKey Color Note: While there are many ways to code the individual - colour combinations, they should be in the same + color combinations, they should be in the same format that gets returned from SetColor(), so - the defaults can be found in the colour palette. + the defaults can be found in the color palette. foreground [+] / background [*] i.e. "GR+/BG*, N/W*, N+/N, , W/N" - [3] cType is the type of colour setting + [ 3 ] cType is the type of color setting Default is "W" (Window) - T = Title Only 1 colour element - D = Desktop Background colour and character + T = Title Only 1 color element + D = Desktop Background color and character M = Menu For ft_MenuTo() style menus W = Window Windows with radio buttons G = Get For use with @ SAY... @@ -48,33 +48,33 @@ W/G/B/A are functionally the same but will provide a more appropriate test display. - [4] cFillChar is the character (for desktop background only) + [ 4 ] cFillChar is the character (for desktop background only) Default is "▒▒▒▒▒▒▒▒▒▒▒▒▒▒" - .T. use colour palette + .T. use color palette .F. use monochrome palette Default is the IsColor() setting - 2 Byte character string for colour test display + 2 Byte character string for color test display Default is "■■" $RETURNS$ - An array identical to the one passed, with new selected colours + An array identical to the one passed, with new selected colors $DESCRIPTION$ - This function allows users to select their own colour combinations + This function allows users to select their own color combinations for all the different types of screen I/O in a typical application. This facilitates an easy implementation of Ted Means' replacement of the @..PROMPT/MENU TO found in the NanForum Toolkit. If you are not using ft_MenuTo(), you can specify "A" for setting type and have - a normal colour string returned. + a normal color string returned. $EXAMPLES$ - LOCAL aClrs := {} - LOCAL lColour := IsColor() + LOCAL aClrs + LOCAL lColor := IsColor() - SET SCOREBOARD OFF + Set( _SET_SCOREBOARD, .F. ) SetBlink( .F. ) // Allow bright backgrounds // .... a typical application might have the following different settings @@ -91,6 +91,6 @@ { "Database Query", "N/BG, N/GR*,,,N+/BG", "B" }, ; { "Pick List", "N/GR*,W+/B,,, BG/GR*", "A" } } - aClrs := ft_ClrSel( aClrs, lColour ) + aClrs := ft_ClrSel( aClrs, lColor ) $END$ */ diff --git a/contrib/hbnf/doc/en/cntryset.txt b/contrib/hbnf/doc/en/cntryset.txt index d018ee1d8f..b11bbc2e4b 100644 --- a/contrib/hbnf/doc/en/cntryset.txt +++ b/contrib/hbnf/doc/en/cntryset.txt @@ -18,12 +18,12 @@ This function returns the state (ON/OFF, TRUE/FALSE) of the CENTURY and optionally sets it ON or OFF. $EXAMPLES$ - lOldState := ft_SetCentury() // Get current CENTURY Setting + ? ft_SetCentury() // Get current CENTURY Setting - lOldState := ft_SetCentury( .T. ) // Get the current CENTURY Setting - // and turn it on (set it to TRUE) + ? ft_SetCentury( .T. ) // Get the current CENTURY Setting + // and turn it on (set it to TRUE) - lOldState := ft_SetCentury( .F. ) // Get the current CENTURY Setting - // and turn it off (set it to FALSE) + ? ft_SetCentury( .F. ) // Get the current CENTURY Setting + // and turn it off (set it to FALSE) $END$ */ diff --git a/contrib/hbnf/doc/en/ctrl.txt b/contrib/hbnf/doc/en/ctrl.txt index b025aac7f2..93cbc09bbf 100644 --- a/contrib/hbnf/doc/en/ctrl.txt +++ b/contrib/hbnf/doc/en/ctrl.txt @@ -16,9 +16,9 @@ the Ctrl key is pressed, such as during a MemoEdit(). $EXAMPLES$ IF ft_Ctrl() - @ 24, 0 SAY "Ctrl" + @ 0, 0 SAY "Ctrl" ELSE - @ 24, 0 SAY " " + @ 0, 0 SAY " " ENDIF $SEEALSO$ ft_CapLock() ft_NumLock() ft_PrtScr() ft_Shift() ft_Alt() diff --git a/contrib/hbnf/doc/en/d2e.txt b/contrib/hbnf/doc/en/d2e.txt index e0d35e7dec..10ed1a1ad0 100644 --- a/contrib/hbnf/doc/en/d2e.txt +++ b/contrib/hbnf/doc/en/d2e.txt @@ -21,9 +21,7 @@ notation is returned. $EXAMPLES$ ? ft_D2E( 12.345, 2 ) // -> 1.23E1 - ? ft_D2E( -12.345, 3 ) // -> -1.235E1 - ? ft_D2E( 0.00000543, 2 ) // -> 5.43E-6 $SEEALSO$ ft_E2D() diff --git a/contrib/hbnf/doc/en/datecnfg.txt b/contrib/hbnf/doc/en/datecnfg.txt index c48a4c9a5d..d9f3061a77 100644 --- a/contrib/hbnf/doc/en/datecnfg.txt +++ b/contrib/hbnf/doc/en/datecnfg.txt @@ -4,7 +4,7 @@ $CATEGORY$ Date/Time $ONELINER$ - Set beginning of year/week for FT_ date functions + Set beginning of year/week for ft_*() date functions $SYNTAX$ ft_DateCnfg( [ ], [ ] ) -> aDateInfo $ARGUMENTS$ @@ -22,11 +22,11 @@ $RETURNS$ A 2-element array containing the following information: - aDateInfo[1] - an ANSI date string indicating the beginning + aDateInfo[ 1 ] - an ANSI date string indicating the beginning date of the year. Only the month and day are meaningful. - aDateInfo[2] - the number of the first day of the week + aDateInfo[ 2 ] - the number of the first day of the week (1 = Sunday) $DESCRIPTION$ @@ -59,7 +59,7 @@ // Examples of return values: - // aArray[1] aArray[2] + // aArray[ 1 ] aArray[ 2 ] // System date format: American SET DATE TO AMERICAN diff --git a/contrib/hbnf/doc/en/default.txt b/contrib/hbnf/doc/en/default.txt index 9e175a05f5..fad928515a 100644 --- a/contrib/hbnf/doc/en/default.txt +++ b/contrib/hbnf/doc/en/default.txt @@ -22,7 +22,7 @@ ft_Default( "C" ) // Switch to drive C IF !( ft_Default( "E" ) == "E" ) - QOut( "Drive E does not exist!" ) + ? "Drive E does not exist!" ENDIF $END$ */ diff --git a/contrib/hbnf/doc/en/dosver.txt b/contrib/hbnf/doc/en/dosver.txt index 7621b0fc78..3cf22c3057 100644 --- a/contrib/hbnf/doc/en/dosver.txt +++ b/contrib/hbnf/doc/en/dosver.txt @@ -1,6 +1,6 @@ /* $DOC$ $NAME$ - FT_DOSVER + ft_DosVer() $CATEGORY$ DOS/BIOS $ONELINER$ @@ -21,11 +21,7 @@ It returns a character string corresponding to the DOS version, as follows: The major version, a period ("."), then the minor version. - - $EXAMPLES$ - PROCEDURE Main() - ? "Dos version: " + ft_DosVer() - RETURN + ? "OS version:", ft_DosVer() $END$ */ diff --git a/contrib/hbnf/doc/en/easter.txt b/contrib/hbnf/doc/en/easter.txt index a6402bc267..9db83e6a07 100644 --- a/contrib/hbnf/doc/en/easter.txt +++ b/contrib/hbnf/doc/en/easter.txt @@ -20,6 +20,6 @@ This function can be useful in calender type programs that indicate when holidays occur. $EXAMPLES$ - dEdate := ft_Easter( 1990 ) // returns 1990-04-15 + ? ft_Easter( 1990 ) // returns 1990-04-15 $END$ */ diff --git a/contrib/hbnf/doc/en/elapmil.txt b/contrib/hbnf/doc/en/elapmil.txt index 17ea41359a..067fcb5e3e 100644 --- a/contrib/hbnf/doc/en/elapmil.txt +++ b/contrib/hbnf/doc/en/elapmil.txt @@ -17,8 +17,8 @@ (time 2 - time 1). If time 2 is smaller than time 1, a NEGATIVE value is returned. $EXAMPLES$ - ft_ElapMin( "1718", "2040" ) -> 322 - ft_ElapMin( "2040", "1718" ) -> -322 + ? ft_ElapMin( "1718", "2040" ) // 202 + ? ft_ElapMin( "2040", "1718" ) // -202 $SEEALSO$ ft_ElTime() ft_Mil2Min() ft_Min2Mil() $END$ diff --git a/contrib/hbnf/doc/en/elapsed.txt b/contrib/hbnf/doc/en/elapsed.txt index 7bc678047b..95d047202a 100644 --- a/contrib/hbnf/doc/en/elapsed.txt +++ b/contrib/hbnf/doc/en/elapsed.txt @@ -30,7 +30,7 @@ aRetVal[ 3, 1 ] Integer Minutes aRetVal[ 3, 2 ] Total Minutes (nn.nnnn) aRetVal[ 4, 1 ] Integer Seconds aRetVal[ 4, 2 ] Total Seconds (nn) $EXAMPLES$ - ft_Elapsed( hb_SToD( "19901128" ), hb_SToD( "19901130" ), "08:00:00", "12:10:30" ) + ft_Elapsed( 0d19901128, 0d19901130, "08:00:00", "12:10:30" ) // will return: ? aRetVal[ 1, 1 ] // -> 2 ( Days ) aRetVal[ 1, 2 ] -> 2.1740 Days diff --git a/contrib/hbnf/doc/en/eltime.txt b/contrib/hbnf/doc/en/eltime.txt index 7fc68a4f33..6f65aa9ffa 100644 --- a/contrib/hbnf/doc/en/eltime.txt +++ b/contrib/hbnf/doc/en/eltime.txt @@ -17,8 +17,8 @@ Return the absolute difference between two times in hh:mm:ss format in character hours, minutes and seconds (hh:mm:ss). $EXAMPLES$ - ft_ElTime( "22:40:12", "23:55:17" ) // 01:15:05 - ft_ElTime( "23:55:17", "22:40:12" ) // 01:15:05 + ? ft_ElTime( "22:40:12", "23:55:17" ) // 01:15:05 + ? ft_ElTime( "23:55:17", "22:40:12" ) // 01:15:05 $SEEALSO$ ft_ElapMin() ft_Mil2Min() ft_Min2Mil() $END$ diff --git a/contrib/hbnf/doc/en/findith.txt b/contrib/hbnf/doc/en/findith.txt index b51d3e3da8..6e18fe42f7 100644 --- a/contrib/hbnf/doc/en/findith.txt +++ b/contrib/hbnf/doc/en/findith.txt @@ -16,7 +16,7 @@ is the number of the occurrence to find. is a logical indicating if the search is to be case - sensitive. The default is no case sensitivity (.F.). + sensitive. The default is no case sensitivity (.T.). $RETURNS$ The position in the string cCheckIn of the ith occurrence of cCheckFor. $DESCRIPTION$ @@ -27,7 +27,7 @@ // the 10th Occurrence of "the", case // insensitive - nNextPosition := ft_FindITh( "the", cMemoString, 10 ) + ? ft_FindITh( "the", cMemoString, 10 ) $SEEALSO$ ft_At2() $END$ diff --git a/contrib/hbnf/doc/en/firstday.txt b/contrib/hbnf/doc/en/firstday.txt index bbc97c2e95..450a318887 100644 --- a/contrib/hbnf/doc/en/firstday.txt +++ b/contrib/hbnf/doc/en/firstday.txt @@ -18,8 +18,7 @@ passed, or the first day of the current month if no argument is supplied. $EXAMPLES$ - dDate := hb_SToD( "19900915" ) - ? ft_FDay( dDate ) // 1990-09-01 + ? ft_FDay( 0d19900915 ) // 1990-09-01 ? ft_FDay() // 1991-03-01 (current month) $SEEALSO$ ft_LDay() diff --git a/contrib/hbnf/doc/en/floptst.txt b/contrib/hbnf/doc/en/floptst.txt index a3bd193fe8..0fb5c13007 100644 --- a/contrib/hbnf/doc/en/floptst.txt +++ b/contrib/hbnf/doc/en/floptst.txt @@ -6,7 +6,7 @@ $ONELINER$ Test diskette drive status $SYNTAX$ - ft_FlopTst( ) -> nStatus + ft_FlopTst( ) -> nStatus $ARGUMENTS$ is the diskette drive number, 0 = A:, 1 = B: $RETURNS$ @@ -29,13 +29,8 @@ No testing has been performed on systems with more than 2 floppy drives. If the third drive is "C" and the fourth "D" then there should be no problems. - - This function does not currently check subst'd drives. So if you - have SUBST E: A:\ then ft_FlopTst( Asc( "E" ) - Asc( "A" ) ) == 4 - Any suggestions to fix this limitation are appreciated. - $EXAMPLES$ - iStatus := ft_FlopTst( 0 ) + iStatus := ft_FlopTst( "A:" ) DO CASE CASE iStatus == 1 ? "The door to drive A is open." diff --git a/contrib/hbnf/doc/en/fttext.txt b/contrib/hbnf/doc/en/fttext.txt index 2d5f2c537c..9a2f93bf08 100644 --- a/contrib/hbnf/doc/en/fttext.txt +++ b/contrib/hbnf/doc/en/fttext.txt @@ -4,33 +4,29 @@ $CATEGORY$ File I/O $ONELINER$ - Open or close a text file for use by the FT_F* functions + Open or close a text file for use by the ft_F*() functions $SYNTAX$ ft_FUse( [ ] [, ] ) -> nHandle | 0 - $ARGUMENTS$ ^b^n is the text file you want to open. If not specified, the file currently open, if any, will be closed. ^b^n is the open mode for the file. Please refer to the - discussion of open modes under FOpen() in the Clipper manual - and fileio.ch for a list of allowable open modes. If not - specified, the file will be opened with a mode of - FO_READ + FO_SHARED (64). - + discussion of file open modes in fileio.ch for a list of allowable + open modes. If not specified, the file will be opened with a mode + of FO_READ + FO_SHARED. $RETURNS$ If ^b^n is passed and the file is opened successfully, an integer containing the text file's workarea. If the file cannot be - opened, -1 will be returned. In this case, check the return value - of ^bft_FError()^n for the cause of the error. + opened, F_ERROR (-1) will be returned. In this case, check the + return value of ^bft_FError()^n for the cause of the error. If ft_FUse() is called without any arguments, it will close the text file in the current "text area" and return 0. If a read error occurs ^ft_FError()^n will contain the error code. - $DESCRIPTION$ - The FT_F*() file functions are for reading text files, that is, + The ft_F*() file functions are for reading text files, that is, files where each line (record) is delimited by a CRLF/LF. Each file is opened in its own "workarea", similar to the concept @@ -38,7 +34,6 @@ workareas) can be opened (assuming there are sufficient file handles available). That number may be increased by modifying the #define TEXT_WORKAREAS in the C source code and recompiling. - $EXAMPLES$ #include "fileio.ch" @@ -50,7 +45,6 @@ // close file ft_FUse() - $SEEALSO$ ft_FUse() ft_FSelect() $END$ @@ -65,13 +59,10 @@ Select a text file workarea $SYNTAX$ ft_FSelect( [ ] ) -> nPreviousArea - $ARGUMENTS$ ^b^n is the text file workarea to select. - $RETURNS$ The current selected text file area. - $DESCRIPTION$ This function selects a text file "workarea" from 1 to 10. A file may or may not be open in the selected area. @@ -86,12 +77,11 @@ handles available). That number may be increased by modifying the #define TEXT_WORKAREAS in the C source code and recompiling. - All the FT_F*() file functions operate on the file in the currently + All the ft_F*() file functions operate on the file in the currently selected text file workarea. Text file workareas are separate from and independent of Clipper's database workareas. - $EXAMPLES$ ft_FSelect( 1 ) @@ -118,28 +108,21 @@ Go to the first record in a text file $SYNTAX$ ft_FGoTop() -> NIL - $ARGUMENTS$ None - $RETURNS$ NIL - $DESCRIPTION$ This function moves the record pointer to the first record in the currently selected text file workarea. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ ft_FUse( "test.txt" ) // open text file DO WHILE ! ft_FEof() - ? ft_FReadLn() // read thru file - ft_FSkip() - ENDDO ft_FGoTop() // go back to top @@ -159,23 +142,20 @@ Return the error code for a text file operation $SYNTAX$ ft_FError() -> nErrorNo - $ARGUMENTS$ None - $RETURNS$ The DOS error code if one occurred. See a reference on DOS error codes for an explanation of what the code means. - $DESCRIPTION$ This function returns the DOS error code associated with a file operation on the currently selected text file. Errors could stem from any open, create, read or write operation, among others. - $EXAMPLES$ - IF ft_FUse( "test.txt" ) < 0 // open text file + #include "fileio.ch" + IF ft_FUse( "test.txt" ) != F_ERROR // open text file err := ft_FError() ? "Error opening file 'test.txt', error code (" + ; hb_ntos( err ) + ")" @@ -194,28 +174,21 @@ Return the current record number of a text file $SYNTAX$ ft_FRecNo() -> nRecNo - $ARGUMENTS$ None - $RETURNS$ The current record number of a text file or 0 if no file is open. - $DESCRIPTION$ This function returns the current record number of the file open in the currently selected text file workarea. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ ft_FUse( "test.txt" ) // open text file DO WHILE ! ft_FEof() - ? ft_FReadLn() // read thru file - ft_FSkip() - ENDDO ft_FGoTop() // go back to top @@ -235,13 +208,10 @@ Go to the last record in a text file $SYNTAX$ ft_FGoBot() -> NIL - $ARGUMENTS$ None - $RETURNS$ NIL - $DESCRIPTION$ This function moves the record pointer to the last record of the file in the currently selected text file workarea. @@ -249,7 +219,6 @@ If a read error occurs ^bft_FError()^n will contain the error code. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ // read last line ft_FUse( "test.txt" ) @@ -271,16 +240,13 @@ Move the record pointer to a new position in a text file $SYNTAX$ ft_FSkip( [ ] ) -> nLinesSkipped - $ARGUMENTS$ is the number of lines to skip. Defaults to 1 if not specified. - $RETURNS$ The number of lines actually skipped. If the file's EOF or BOF was encountered before ^b^n could be skipped, the return value will be less than ^b^n. - $DESCRIPTION$ This function moves the text file record pointer, similar to the CLIPPER SKIP command. @@ -292,18 +258,14 @@ If a read error occurs ^ft_FError()^n will contain the error code. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ // display each record of a text file ft_FUse( "test.txt" ) DO WHILE ! ft_FEof() - ? ft_FReadLn() - ft_FSkip() - ENDDO $SEEALSO$ ft_FRecNo() ft_FGoTop() @@ -319,13 +281,10 @@ Read a line from the currently selected text file $SYNTAX$ ft_FReadLn() -> cLine - $ARGUMENTS$ None - $RETURNS$ A string containing the current record in a text file. - $DESCRIPTION$ This function returns a line of text read from the file in the currently selected text file workarea. Text lines are delimited @@ -340,18 +299,14 @@ If a read error occurs ^ft_FError()^n will contain the error code. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ // display each record of a text file ft_FUse( "test.txt" ) DO WHILE ! ft_FEof() - ? ft_FReadLn() - ft_FSkip() - ENDDO $SEEALSO$ ft_FUse() ft_FWriteLn() ft_FRecNo() ft_FGoTop() @@ -367,16 +322,13 @@ Deletes a line from the currently selected text file $SYNTAX$ ft_FDelete( [ ] ) -> lSuccess - $ARGUMENTS$ ^b^n is the number of lines to be eliminated, beginning with the current record position. If ^b^n is omitted, the current record is deleted only. - $RETURNS$ TRUE if successful, otherwise check ^bft_FError()^n for error code. - $DESCRIPTION$ This function deletes one or several lines of text from the file in the currently selected text file workarea. Text lines are @@ -384,7 +336,6 @@ unless the deleted lines occur at the end of the file, in which case ^bft_FRecNo()^n will equal ^bft_FLastRe()^n and ^bft_FEof()^n will be set to TRUE. - $EXAMPLES$ // delete the next 4 lines from a file ft_FUse( "test.txt" ) @@ -404,17 +355,14 @@ Inserts a line in the currently selected text file $SYNTAX$ ft_FInsert( [ ] ) -> lSuccess - $ARGUMENTS$ ^b^n is the number of lines that should be inserted at the current record position. If ^b^n is omitted, one record is inserted. - $RETURNS$ ^blSuccess^n is TRUE if the insert succeeded, FALSE if not. If false check the return value of ^bft_FError()^n for the reason. - $DESCRIPTION$ This function inserts a line of text in the file in the currently selected text file workarea. Text lines are delimited with a @@ -424,7 +372,6 @@ A text file "record" is a line of text terminated by a CRLF/LF. Each line inserted with this function will be empty. - $EXAMPLES$ // add a couple of blank lines of text to a file ft_FUse( "test.txt" ) @@ -445,17 +392,14 @@ $ONELINER$ Appends a line to the currently selected text file $SYNTAX$ - ft_FAppend( [ < nLines > ] ) -> NIL - + ft_FAppend( [ ] ) -> NIL $ARGUMENTS$ is the number of lines that should be appended to the end of the currently selected text file. If is omitted, one record is appended. - $RETURNS$ lSuccess. If FALSE, check ^bft_FError()^n for the error code. - $DESCRIPTION$ This function appends a line of text to the file in the currently selected text file workarea. Text lines are delimited with a @@ -474,7 +418,6 @@ last line in the text file is not terminated with a CRLF/LF prior to calling ft_FAppend(), the function will terminate that last line before appending any new lines. - $EXAMPLES$ // add a blank line of text to a file ft_FUse( "test.txt" ) @@ -497,8 +440,7 @@ $ONELINER$ Write a line to the currently selected text file $SYNTAX$ - ft_FWriteLn( < cData >, [ < lInsert > ] ) -> lSuccess - + ft_FWriteLn( , [ ] ) -> lSuccess $ARGUMENTS$ is a string of data to write to the file at the current record position. @@ -510,10 +452,8 @@ If lInsert is .F. or omitted, the current record is replaced by cData. - $RETURNS$ TRUE if successful, otherwise check ^ft_FError()^n for error code. - $DESCRIPTION$ This function writes a line of text to the file in the currently selected text file workarea. Text lines are delimited with a @@ -527,16 +467,13 @@ ft_FInsert()). A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ // write a line of text to a file ft_FUse( "config.sys" ) - DO WHILE !( Left( Upper( ft_FReadLn() ), Len( "FILES=" ) ) == "FILES=" ) .AND. ! ft_FEof() - + DO WHILE ! hb_LeftEqI( ft_FReadLn(), "FILES=" ) .AND. ! ft_FEof() ft_FSkip() - ENDDO ft_FWriteLn( "FILES=30", ft_FEof() ) @@ -554,20 +491,16 @@ Get the no. of records in the currently selected text file $SYNTAX$ ft_FLastRe() -> nLastRecordNum - $ARGUMENTS$ None - $RETURNS$ An integer containing the number of records in the text file in the currently selected text file workarea, or zero if no file is currently open in the workarea. - $DESCRIPTION$ This function returns the number of the last record in a text file. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ ft_FUse( "test.txt" ) @@ -586,19 +519,15 @@ Determine if end of text file has been encountered $SYNTAX$ ft_FEof() -> lResult - $ARGUMENTS$ None - $RETURNS$ .T. if an attempt was made to skip past the last record of the currently selected text file, otherwise .F. - $DESCRIPTION$ This function is similar to the CLIPPER Eof() function. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ ft_FUse( "test.txt" ) @@ -621,19 +550,15 @@ Determine if attempt to skip past beginning of text file $SYNTAX$ ft_FBof() -> lResult - $ARGUMENTS$ None - $RETURNS$ .T. if an attempt was made to skip past the first record of the currently selected text file, otherwise .F. - $DESCRIPTION$ This function is similar to the Clipper Bof() function. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ ft_FUse( "test.txt" ) @@ -658,13 +583,10 @@ Move record pointer to specific record in a text file $SYNTAX$ ft_FGoto( nLine ) -> NIL - $ARGUMENTS$ is the record number to go to. - $RETURNS$ NIL - $DESCRIPTION$ This function moves the record pointer to a specific record in the file in the currently selected text file workarea. If @@ -682,7 +604,6 @@ delay as ft_FGoto( 0 ) skips through the file. A text file "record" is a line of text terminated by a CRLF/LF. - $EXAMPLES$ // read 5th line of text from file @@ -690,7 +611,7 @@ ft_FGoto( 5 ) - cText := ft_FReadLn() + ? ft_FReadLn() $SEEALSO$ ft_FRecNo() ft_FGoTop() ft_FReadLn() $END$ diff --git a/contrib/hbnf/doc/en/getenvrn.txt b/contrib/hbnf/doc/en/getenvrn.txt index 48bc67e09a..72a114a9cc 100644 --- a/contrib/hbnf/doc/en/getenvrn.txt +++ b/contrib/hbnf/doc/en/getenvrn.txt @@ -52,11 +52,9 @@ MemoWrit( "environ.txt", cEnvBlock ) // Get the environment in Array form: - aEnvArray := Array( ft_GetE() ) ft_GetE( aEnvArray ) - ? aEnvArray[ 1 ] // "COMSPEC=C:\command.com" - ? aEnvArray[ 2 ] // "PATH=C:\;C:\util;C:\harbour" - ... etc ... + ? aEnvArray[ 1 ] + ? aEnvArray[ 2 ] $END$ */ diff --git a/contrib/hbnf/doc/en/hex2dec.txt b/contrib/hbnf/doc/en/hex2dec.txt index e3be37b2d9..828836361d 100644 --- a/contrib/hbnf/doc/en/hex2dec.txt +++ b/contrib/hbnf/doc/en/hex2dec.txt @@ -15,7 +15,7 @@ Converts a hexadecimal number to a BASE 10 decimal number. Useful for using ft_int86(). $EXAMPLES$ - ft_int86( HEX2DEC( "21" ), aRegs ) + ft_int86( ft_Hex2Dex( "21" ), aRegs ) // Converts 21h, the Dos Interrupt, to its decimal equivalent, // 33, for use by ft_int86(). diff --git a/contrib/hbnf/doc/en/iamidle.txt b/contrib/hbnf/doc/en/iamidle.txt index 18026a9ddf..a0841ac1fb 100644 --- a/contrib/hbnf/doc/en/iamidle.txt +++ b/contrib/hbnf/doc/en/iamidle.txt @@ -17,7 +17,7 @@ idle states. This function allows you "announce" to the operating system that your application is idle. - Note that if you use this function in conjunction with FT_OnIdle(), + Note that if you use this function in conjunction with ft_OnIdle(), you can cause Clipper to automatically release the CPU whenever Clipper itself detects an idle state. $EXAMPLES$ @@ -27,10 +27,10 @@ // Here's another way to do it: - FT_OnIdle( {|| ft_IAmIdle() } ) + ft_OnIdle( {|| ft_IAmIdle() } ) Inkey( 0 ) // Automatically reports idleness until key is pressed! $SEEALSO$ - FT_OnIdle() + ft_OnIdle() $END$ */ diff --git a/contrib/hbnf/doc/en/idle.txt b/contrib/hbnf/doc/en/idle.txt index 29bd452512..96a6b70aef 100644 --- a/contrib/hbnf/doc/en/idle.txt +++ b/contrib/hbnf/doc/en/idle.txt @@ -26,14 +26,11 @@ this fact makes you uncomfortable then don't use this function, you miserable jello-spined lump of human debris. $EXAMPLES$ - DO WHILE Whatever // Some batch process - + DO WHILE Whatever // Some batch process Something() // Create 'n' discard a bunch of stuff - ft_Idle() // Take out the garbage - ENDDO $SEEALSO$ - FT_OnIdle() + ft_OnIdle() $END$ */ diff --git a/contrib/hbnf/doc/en/inp.txt b/contrib/hbnf/doc/en/inp.txt index 0aec0e7a65..adc88e15d4 100644 --- a/contrib/hbnf/doc/en/inp.txt +++ b/contrib/hbnf/doc/en/inp.txt @@ -21,7 +21,7 @@ SEGMENT directives, and also the ENDP and ENDS directives (a very minor task). $EXAMPLES$ - byte := ft_inp( 100 ) // read a byte from port 100 (064h) + ? ft_inp( 100 ) // read a byte from port 100 (064h) $SEEALSO$ ft_outp() $END$ diff --git a/contrib/hbnf/doc/en/invclr.txt b/contrib/hbnf/doc/en/invclr.txt index 5e1e1ce305..ae767426c4 100644 --- a/contrib/hbnf/doc/en/invclr.txt +++ b/contrib/hbnf/doc/en/invclr.txt @@ -16,7 +16,7 @@ This function inverts a passed color (in the Clipper format: ??/??), e.g., "W/N" is converted to "N/W". $EXAMPLES$ - cInverse := ft_InvClr() // Get Inverse of Current Color - cInvErr := ft_InvClr( cErrColor ) // Get Inverse of cErrorColor + ? ft_InvClr() // Get Inverse of Current Color + ? ft_InvClr( cErrColor ) // Get Inverse of cErrorColor $END$ */ diff --git a/contrib/hbnf/doc/en/isprint.txt b/contrib/hbnf/doc/en/isprint.txt index ab2d35880b..e550f3f83d 100644 --- a/contrib/hbnf/doc/en/isprint.txt +++ b/contrib/hbnf/doc/en/isprint.txt @@ -54,8 +54,8 @@ ? "Check the device on COM2. Something is wrong." ENDIF - IF ! ft_IsPrint( "A:\nul" ) - ? "Oops, better check drive A!" + IF ! ft_IsPrint( "/dev/lp0" ) + ? "Oops, not available." ENDIF $END$ */ diff --git a/contrib/hbnf/doc/en/lastday.txt b/contrib/hbnf/doc/en/lastday.txt index 9b6a544d47..0c2c9ed663 100644 --- a/contrib/hbnf/doc/en/lastday.txt +++ b/contrib/hbnf/doc/en/lastday.txt @@ -18,8 +18,7 @@ passed, or the last day of the current month if no argument is supplied. $EXAMPLES$ - dDate := hb_SToD( "19900915" ) - ? ft_LDay( dDate ) // 1990-09-30 + ? ft_LDay( 0d19900915 ) // 1990-09-30 ? ft_LDay() // 1991-03-31 (current month) $SEEALSO$ ft_FDay() diff --git a/contrib/hbnf/doc/en/linked.txt b/contrib/hbnf/doc/en/linked.txt index 77ad72d374..46fbedc6c1 100644 --- a/contrib/hbnf/doc/en/linked.txt +++ b/contrib/hbnf/doc/en/linked.txt @@ -28,10 +28,8 @@ For instance: there is no function called SORT() in any of the Nantucket Libraries, but it is a valid CLIPPER command because the preprocessor will convert it to other function calls. - - $EXAMPLES$ - cString := "FT_GoodFunc( BadFunc( 3, 2 ) )" + cString := "ft_GoodFunc( BadFunc( 3, 2 ) )" IF ft_Linked( cString ) Eval( &( "{||" + cString + "}" ) ) ELSE diff --git a/contrib/hbnf/doc/en/madd.txt b/contrib/hbnf/doc/en/madd.txt index bfcccc35d4..bd735fccc8 100644 --- a/contrib/hbnf/doc/en/madd.txt +++ b/contrib/hbnf/doc/en/madd.txt @@ -27,12 +27,12 @@ it will return the EOM of calculated month. Otherwise it will return the same day as the day of the passed date. $EXAMPLES$ - dDate := hb_SToD( "19900915" ) + dDate := 0d19900915 ? ft_MAdd( dDate, 1 ) // 1990-10-15 ? ft_MAdd( dDate, -2 ) // 1990-07-15 // force EOM - dDate := hb_SToD( "19910430" ) + dDate := 0d19910430 ? ft_MAdd( dDate, 1 ) // 1991-05-30 ? ft_MAdd( dDate, 1, .T. ) // 1991-05-31 <- forced EOM ? ft_MAdd( dDate, 2 ) // 1991-06-30 diff --git a/contrib/hbnf/doc/en/menu1.txt b/contrib/hbnf/doc/en/menu1.txt index b0528991bc..6d7192e2ba 100644 --- a/contrib/hbnf/doc/en/menu1.txt +++ b/contrib/hbnf/doc/en/menu1.txt @@ -31,7 +31,7 @@ $DESCRIPTION$ ft_Menu1() is a function that displays a pulldown menu for each item on the menu bar and executes the corresponding function for the item - selected. When a called function returns false, FT_MENU1 returns + selected. When a called function returns false, ft_Menu1() returns control to the calling program. Valid keystrokes and their corresponding actions: @@ -91,16 +91,16 @@ // should contain one of the following: // A function name to execute, which in turn should return .T. or .F. - // FT_MENU1 WILL RETURN CONTROL TO THE CALLING PROGRAM IF .F. IS + // ft_Menu1() WILL RETURN CONTROL TO THE CALLING PROGRAM IF .F. IS // RETURNED OR CONTINUE IF .T. IS RETURNED. - // .F. WHICH WILL CAUSE FT_MENU1 TO RETURN CONTROL TO THE CALLING + // .F. WHICH WILL CAUSE ft_Menu1() TO RETURN CONTROL TO THE CALLING // PROGRAM. // .T. WHICH WILL DO NOTHING. THIS ALLOWS THE DEVELOPER TO DESIGN A // SKELETON MENU STRUCTURE PRIOR TO COMPLETING ALL OF THE SUBROUTINES. - // CALL FT_MENU1 + // CALL ft_Menu1() ft_Menu1( aBar, aOptions, aColors, 0 ) // NOTE: ft_Menu1() disables Alt-C and Alt-D in order to make them @@ -132,7 +132,7 @@ is the code block to be executed when that menu option is selected. i.e. {|| MyFunction() } would execute the function called MyFunction(). {|| .F. } would exit the - FT_MENU1 and return to the calling routine. {|| .T. } would + ft_Menu1() and return to the calling routine. {|| .T. } would do nothing. is a logical variable that determines whether diff --git a/contrib/hbnf/doc/en/menutonf.txt b/contrib/hbnf/doc/en/menutonf.txt index 1e30e12191..7ec0d8f09f 100644 --- a/contrib/hbnf/doc/en/menutonf.txt +++ b/contrib/hbnf/doc/en/menutonf.txt @@ -181,8 +181,7 @@ #include "ftmenuto.ch" // Simple command - - MENU TO MEMVAR + MENU TO memvar $INCLUDE$ ftmenuto.ch $SEEALSO$ diff --git a/contrib/hbnf/doc/en/metaph.txt b/contrib/hbnf/doc/en/metaph.txt index d1c2c686db..2c51ea2d40 100644 --- a/contrib/hbnf/doc/en/metaph.txt +++ b/contrib/hbnf/doc/en/metaph.txt @@ -25,8 +25,8 @@ USE persons INDEX ON ft_Metaph( LastName ) TO lastname SEEK ft_Metaph( "Philmore" ) - ? Found(), LastName // Result: .T. Philmore + ? Found(), field->LastName // Result: .T. Philmore SEEK ft_Metaph( "Fillmore" ) - ? Found(), LastName // Result: .T. Philmore + ? Found(), field->LastName // Result: .T. Philmore $END$ */ diff --git a/contrib/hbnf/doc/en/miltime.txt b/contrib/hbnf/doc/en/miltime.txt index f54777db20..e5df06fedd 100644 --- a/contrib/hbnf/doc/en/miltime.txt +++ b/contrib/hbnf/doc/en/miltime.txt @@ -14,7 +14,7 @@ $DESCRIPTION$ Converts time in military format to number of minute of the day. $EXAMPLES$ - ft_Mil2Min( "1729" ) // 1049 + ? ft_Mil2Min( "1729" ) // 1049 $SEEALSO$ ft_Min2Mil() ft_Civ2Mil() ft_Mil2Civ() ft_Sys2Mil() $END$ @@ -36,7 +36,7 @@ $DESCRIPTION$ Converts minute of the day to military format time. $EXAMPLES$ - ft_Min2Mil( 279 ) // 0439 + ? ft_Min2Mil( 279 ) // 0439 $SEEALSO$ ft_Mil2Min() ft_Mil2Civ() ft_Civ2Mil() ft_Sys2Mil() $END$ @@ -59,15 +59,11 @@ $DESCRIPTION$ Converts time from military to civilian format $EXAMPLES$ - ft_Mil2Civ( "1640" ) // 4:40 pm - - ft_Mil2Civ( "0440" ) // 4:40 am - - ft_Mil2Civ( "1200" ) // 12:00 n - - ft_Mil2Civ( "0000" ) // 12:00 m - - ft_Mil2Civ( "2400" ) // 12:00 m + ? ft_Mil2Civ( "1640" ) // 4:40 pm + ? ft_Mil2Civ( "0440" ) // 4:40 am + ? ft_Mil2Civ( "1200" ) // 12:00 n + ? ft_Mil2Civ( "0000" ) // 12:00 m + ? ft_Mil2Civ( "2400" ) // 12:00 m Caution: leading blanks are irrelevant. $SEEALSO$ @@ -92,13 +88,10 @@ $DESCRIPTION$ Converts time from 12-hour civilian format to military. $EXAMPLES$ - ft_Civ2Mil( " 5:40 pm" ) // 1740 - - ft_Civ2Mil( " 5:40 am" ) // 0540 - - ft_Civ2Mil( "12:00 n" ) // 1200 - - ft_Civ2Mil( "12:00 m" ) // 0000 + ? ft_Civ2Mil( " 5:40 pm" ) // 1740 + ? ft_Civ2Mil( " 5:40 am" ) // 0540 + ? ft_Civ2Mil( "12:00 n" ) // 1200 + ? ft_Civ2Mil( "12:00 m" ) // 0000 // Caution: leading blanks are irrelevant; p,a,n,m must be preceded by // one and only one space. @@ -123,7 +116,7 @@ $DESCRIPTION$ Return current system time as character string in military format. $EXAMPLES$ - ft_Sys2Mil() // 1623 + ? ft_Sys2Mil() // 1623 $SEEALSO$ ft_Mil2Civ() ft_Civ2Mil() $END$ diff --git a/contrib/hbnf/doc/en/min2dhm.txt b/contrib/hbnf/doc/en/min2dhm.txt index a87d514d24..dc867c9789 100644 --- a/contrib/hbnf/doc/en/min2dhm.txt +++ b/contrib/hbnf/doc/en/min2dhm.txt @@ -17,6 +17,9 @@ Converts numeric minutes into a character array containing days, hours & minutes. $EXAMPLES$ - aDHM_ := MIN2DHM( 16789 ) // aDHM_[ 1 ] = 11, aDHM_[ 2 ] = 15, aDHM_[ 3 ] = 49 + aDHM_ := ft_Min2Dhm( 16789 ) + ? aDHM_[ 1 ] // 11 + ? aDHM_[ 2 ] // 15 + ? aDHM_[ 3 ] // 49 $END$ */ diff --git a/contrib/hbnf/doc/en/mkdir.txt b/contrib/hbnf/doc/en/mkdir.txt index 8160c8f4d8..7dac355372 100644 --- a/contrib/hbnf/doc/en/mkdir.txt +++ b/contrib/hbnf/doc/en/mkdir.txt @@ -24,8 +24,8 @@ SEGMENT directives, and also the ENDP and ENDS directives (a very minor task). $EXAMPLES$ - ft_MkDir( "C:\clipper" ) - ft_MkDir( "\example" ) - ft_MkDir( "..\source" ) + ? ft_MkDir( "harbour" ) + ? ft_MkDir( hb_ps() + "example" ) + ? ft_MkDir( ".." + hb_ps() + "source" ) $END$ */ diff --git a/contrib/hbnf/doc/en/month.txt b/contrib/hbnf/doc/en/month.txt index 6955eb3b52..1b4a45d138 100644 --- a/contrib/hbnf/doc/en/month.txt +++ b/contrib/hbnf/doc/en/month.txt @@ -34,13 +34,13 @@ to January 1 and Sunday by calling ft_DateCnfg() with no parameters. $EXAMPLES$ - // get info about month containing 9/15/90 + // get info about month containing 1990-09-15 aDateInfo := ft_Month( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 199009 (9th month) ? aDateInfo[ 2 ] // 1990-09-01 beginning of month 9 ? aDateInfo[ 3 ] // 1990-09-30 end of week month 9 - // get info about month 5 in year containing 9/15/90 + // get info about month 5 in year containing 1990-09-15 aDateInfo := ft_Month( hb_SToD( "19900915" ), 5 ) ? aDateInfo[ 1 ] // 199005 ? aDateInfo[ 2 ] // 1990-05-01 beginning of month 5 diff --git a/contrib/hbnf/doc/en/mouse1.txt b/contrib/hbnf/doc/en/mouse1.txt index 9cb808f17d..c321c445c9 100644 --- a/contrib/hbnf/doc/en/mouse1.txt +++ b/contrib/hbnf/doc/en/mouse1.txt @@ -98,7 +98,7 @@ This is a mouse meta function that checks for the presence of a double click. $EXAMPLES$ - IF FT_MISREGION( 10, 10, 11, 20 ) .AND. ; + IF ft_MIsRegion( 10, 10, 11, 20 ) .AND. ; ft_MDblClk( 0, 1,, ft_MGetX(), ft_MGetY() ) // double click, right button // at current location with // default interval @@ -127,10 +127,10 @@ $DESCRIPTION$ This function tells the mouse driver to hide the cursor if it is in the given region. The driver hides the cursor by decrementing the cursor - flag. A call to FT_MSHOWCRS is required to turn the cursor back on. - Calling FT_MSHOWCRS also disables this function. + flag. A call to ft_MShowCrs() is required to turn the cursor back on. + Calling ft_MShowCrs() also disables this function. - See FT_MSHOWCRS for a discussion of the cursor display flag. + See ft_MShowCrs() for a discussion of the cursor display flag. $EXAMPLES$ ft_MCOnOff( 10, 10, 11, 20 ) $SEEALSO$ @@ -213,7 +213,7 @@ movement values are documented to be the number of mickeys per 8 pixels and the double speed value as the number mickeys per second required to double the speed. Each of these values should range from 1 - to 32K but the driver forces a maximum of 100. Also the documentation + to 32000 but the driver forces a maximum of 100. Also the documentation states that resetting the mouse will reset these values. This is not the case. @@ -314,7 +314,7 @@ NIL $DESCRIPTION$ This function sets the display page for the mouse cursor. The valid - values of nPage is dependent upon the display mode. See ft_SetVpg() + values of nPage is dependent upon the display mode. See ft_SetVPg() for changing the current video page $EXAMPLES$ ft_MSetPage( 1 ) // Sets the mouse cursor to page 1 @@ -339,7 +339,7 @@ displayed $DESCRIPTION$ This function gets the display page for the mouse cursor. The valid - values of nPage is dependent upon the display mode. See ft_SetVpg() + values of nPage is dependent upon the display mode. See ft_SetVPg() for changing the current video page $EXAMPLES$ nPage := ft_MGetPage( ) // Gets the mouse cursor display page @@ -782,8 +782,8 @@ the actual hardware cursor. This routine allows one choose between them. The software cursor is the default and its effect on the character it covers is determined by the screen mask and the cursor mask. Both of - these masks are 16 bit values (which in Clipper are passed as standard - numerical values). The 16 bit masks are arranged in a manner identical + these masks are 16-bit values (which in Clipper are passed as standard + numerical values). The 16-bit masks are arranged in a manner identical to the way information is stored for each character cell on the screen. The low order 8 bits represent the actual character displayed while the high order bits represent the display atributes such as blinking, diff --git a/contrib/hbnf/doc/en/n2color.txt b/contrib/hbnf/doc/en/n2color.txt index ea33bb1ecd..6281412e48 100644 --- a/contrib/hbnf/doc/en/n2color.txt +++ b/contrib/hbnf/doc/en/n2color.txt @@ -16,7 +16,7 @@ This function is useful for converting a number to a Clipper color string. $EXAMPLES$ - cColor := ft_Color2N( 239 ) // returns "*+w/gr" + ? ft_Color2N( 239 ) // returns "*+w/gr" $SEEALSO$ ft_N2Color() $END$ diff --git a/contrib/hbnf/doc/en/netpv.txt b/contrib/hbnf/doc/en/netpv.txt index c7f2c22e13..44f89e82ef 100644 --- a/contrib/hbnf/doc/en/netpv.txt +++ b/contrib/hbnf/doc/en/netpv.txt @@ -34,9 +34,11 @@ also the FutureValue and PresentValue for further explanations. The formula to calculate the net present value is: - NetPresentValue := SUM( CashFlow[ i ] / ( ( 1 + InterestRate ) ** i ) ) + NetPresentValue := SUM( CashFlow[ i ] / ( ( 1 + InterestRate ) ^ i ) ) FOR i := 1 TO NoOfCashFlows + // + NEXT $EXAMPLES$ - nNetPresentValue := ft_NetPV( 10000, 10, { 10000, 15000, 16000, 17000 } ) + ? ft_NetPV( 10000, 10, { 10000, 15000, 16000, 17000 } ) $END$ */ diff --git a/contrib/hbnf/doc/en/nooccur.txt b/contrib/hbnf/doc/en/nooccur.txt index 73f21a6fe8..86f0170121 100644 --- a/contrib/hbnf/doc/en/nooccur.txt +++ b/contrib/hbnf/doc/en/nooccur.txt @@ -7,14 +7,14 @@ Find the number of times one string occurs in another $SYNTAX$ ft_NoOccur( , ; - [, ] ) -> + [, ] ) -> $ARGUMENTS$ is the string to search for is the string to search is a boolean variable to force case sensitivity - (optional, defaults to .F.). + (optional, defaults to .T.). $RETURNS$ The number of times appears in $DESCRIPTION$ @@ -23,12 +23,10 @@ $EXAMPLES$ // Find the number of times "the" appears in cMemoString, case // insensitive - - nNoOfOccurrences := ft_NoOccur( "the", cMemoString ) + ? ft_NoOccur( "the", cMemoString ) // Find the number of times "the" appears in cMemoString, case // sensitive - - nNoOfOccurrences := ft_NoOccur( "the", cMemoString, .T. ) + ? ft_NoOccur( "the", cMemoString, .F. ) $END$ */ diff --git a/contrib/hbnf/doc/en/ntow.txt b/contrib/hbnf/doc/en/ntow.txt index 7ba6471e27..b97086e6f4 100644 --- a/contrib/hbnf/doc/en/ntow.txt +++ b/contrib/hbnf/doc/en/ntow.txt @@ -14,7 +14,7 @@ $DESCRIPTION$ Translates numeric input to a text string. - FT_NTOW is intended to be used with integers only. Since I don't + ft_NToW() is intended to be used with integers only. Since I don't know what your application will be, I can't assume the type of fraction you want returned (ninety nine cents, 99/100, .99, etc). If you want the fraction in words, just pass it as an integer. diff --git a/contrib/hbnf/doc/en/nwlstat.txt b/contrib/hbnf/doc/en/nwlstat.txt index b7463364cc..4602283675 100644 --- a/contrib/hbnf/doc/en/nwlstat.txt +++ b/contrib/hbnf/doc/en/nwlstat.txt @@ -25,6 +25,6 @@ This function does NOT test for the existence of the NetWare shell. The behavior is undefined if no shell is loaded. $EXAMPLES$ - ? "Logical station: " + Str( ft_NWLStat() ) + ? "Logical station:", ft_NWLStat() $END$ */ diff --git a/contrib/hbnf/doc/en/nwsem.txt b/contrib/hbnf/doc/en/nwsem.txt index 93663265ed..1123888f46 100644 --- a/contrib/hbnf/doc/en/nwsem.txt +++ b/contrib/hbnf/doc/en/nwsem.txt @@ -82,8 +82,8 @@ @nHandle, @nOpenCnt ) IF nRc != 0 - ? "Error: " + Str( nRc ) - QUIT + ? "Error:", nRc + RETURN ENDIF $SEEALSO$ ft_NWSemEx() ft_NWSemWait() ft_NWSemSig() ft_NWSemClose() ft_NWSemLock() @@ -130,7 +130,7 @@ nRc := ft_NWSemWait( nHandle ) IF nRc == 254 ? "All slots for this resource are currently in use" - QUIT + RETURN ENDIF ft_NWSemEx( nHandle, @nValue, @nOpenCnt ) @@ -174,7 +174,7 @@ nRc := ft_NWSemWait( nHandle ) IF nRc == 254 ? "All slots for this resource are currently in use" - QUIT + RETURN ENDIF $SEEALSO$ ft_NWSemOpen() ft_NWSemEx() ft_NWSemSig() ft_NWSemClose() ft_NWSemLock() @@ -206,7 +206,7 @@ For more information, see the description under ft_NWSemOpen(). $EXAMPLES$ - ? "Signal returns: " + Str( ft_NWSemSig( nHandle ) ) + ? "Signal returns:", ft_NWSemSig( nHandle ) $SEEALSO$ ft_NWSemOpen() ft_NWSemEx() ft_NWSemWait() ft_NWSemClose() ft_NWSemLock() $END$ @@ -234,7 +234,7 @@ the open count for the semaphore. If the open count hits zero, the semaphore is deleted by NetWare. $EXAMPLES$ - ? "Close returns: " + Str( ft_NWSemClose( nHandle ) ) + ? "Close returns:", ft_NWSemClose( nHandle ) $SEEALSO$ ft_NWSemOpen() ft_NWSemEx() ft_NWSemWait() ft_NWSemSig() ft_NWSemLock() $END$ @@ -248,7 +248,7 @@ $ONELINER$ Perform a semaphore "lock" $SYNTAX$ - FT_NWSEMLOCK ( , <@nHandle> ) -> lRet + ft_NWSemLock( , <@nHandle> ) -> lRet $ARGUMENTS$ is the name of a semaphore you want to "lock." is the semaphore's handle, if you get the lock. diff --git a/contrib/hbnf/doc/en/nwuid.txt b/contrib/hbnf/doc/en/nwuid.txt index 5a4fcf0fb3..276a7ab59c 100644 --- a/contrib/hbnf/doc/en/nwuid.txt +++ b/contrib/hbnf/doc/en/nwuid.txt @@ -31,12 +31,12 @@ The behavior is undefined if no shell is loaded. You'll usually get garbage. This function has not been tested on NetWare 386. $EXAMPLES$ - ? "I am: " + ft_NWUID() + ? "I am:", ft_NWUID() FOR x := 1 TO 100 cUid := ft_NWUID( x ) IF ! Empty( cUid ) - ? Str( x, 3 ) + Space( 3 ) + cUid + ? Str( x, 3 ), cUid ENDIF NEXT $END$ diff --git a/contrib/hbnf/doc/en/origin.txt b/contrib/hbnf/doc/en/origin.txt index 36a42794bb..2ca00942f8 100644 --- a/contrib/hbnf/doc/en/origin.txt +++ b/contrib/hbnf/doc/en/origin.txt @@ -21,11 +21,9 @@ of the currently executing file, so that you may take whatever action you need to. $EXAMPLES$ - cMyFile := ft_Origin() - - IF !( cMyFile == "C:\appdir\myfile.exe" ) + IF !( hb_FNameNameExt( ft_Origin() ) == "myapp.exe" ) ? "Incorrect startup file. Please remove/rename and start again" - QUIT + RETURN ENDIF $SEEALSO$ $END$ diff --git a/contrib/hbnf/doc/en/outp.txt b/contrib/hbnf/doc/en/outp.txt index 1632e91cbc..927ad7b2fc 100644 --- a/contrib/hbnf/doc/en/outp.txt +++ b/contrib/hbnf/doc/en/outp.txt @@ -24,7 +24,7 @@ SEGMENT directives, and also the ENDP and ENDS directives (a very minor task). $EXAMPLES$ - lOk := ft_outp( 0x64, 0 ) // send a hb_BChar( 0 ) to port 100 (0x64) + ? ft_outp( 0x64, 0 ) // send a hb_BChar( 0 ) to port 100 (0x64) $SEEALSO$ ft_inp() $END$ diff --git a/contrib/hbnf/doc/en/page.txt b/contrib/hbnf/doc/en/page.txt index 6375a65c30..d60b8865a0 100644 --- a/contrib/hbnf/doc/en/page.txt +++ b/contrib/hbnf/doc/en/page.txt @@ -1,12 +1,12 @@ /* $DOC$ $NAME$ - ft_SetVpg() + ft_SetVPg() $CATEGORY$ Video $ONELINER$ Set the current video page $SYNTAX$ - ft_SetVpg( ) -> NIL + ft_SetVPg( ) -> NIL $ARGUMENTS$ is a valid video page. $RETURNS$ @@ -20,7 +20,7 @@ $EXAMPLES$ // The following sets the current video page to 1 - ft_SetVpg( 1 ) + ft_SetVPg( 1 ) $SEEALSO$ ft_GetVPg() $END$ @@ -49,6 +49,6 @@ $EXAMPLES$ nPage := ft_GetVPg() $SEEALSO$ - ft_SetVpg() + ft_SetVPg() $END$ */ diff --git a/contrib/hbnf/doc/en/peek.txt b/contrib/hbnf/doc/en/peek.txt index 6532fd6914..86ce292c97 100644 --- a/contrib/hbnf/doc/en/peek.txt +++ b/contrib/hbnf/doc/en/peek.txt @@ -21,6 +21,6 @@ address as a numeric value. If you need this value as a character, use the hb_BChar() function to convert it. $EXAMPLES$ - LOCAL nVMode := ft_Peek( 0, 0x449 ) // Get the current video mode (MS-DOS) + ? ft_Peek( 0, 0x449 ) // Get the current video mode (MS-DOS) $END$ */ diff --git a/contrib/hbnf/doc/en/pickday.txt b/contrib/hbnf/doc/en/pickday.txt index ff1feb4208..8a888f893f 100644 --- a/contrib/hbnf/doc/en/pickday.txt +++ b/contrib/hbnf/doc/en/pickday.txt @@ -14,6 +14,6 @@ $DESCRIPTION$ This function is ideal if you need the user to select a day. $EXAMPLES$ - mday := ft_PickDay() + ? ft_PickDay() $END$ */ diff --git a/contrib/hbnf/doc/en/popadder.txt b/contrib/hbnf/doc/en/popadder.txt index 4f27fa80fc..09cc21d1e6 100644 --- a/contrib/hbnf/doc/en/popadder.txt +++ b/contrib/hbnf/doc/en/popadder.txt @@ -34,37 +34,37 @@ A couple of notes about the adder: - 1.) It was designed to be used on an Enhanced keyboard with - separate key. is used to clear the adder. - However, it will still work on a Standard keyboard. + 1. It was designed to be used on an Enhanced keyboard with + separate key. is used to clear the adder. + However, it will still work on a Standard keyboard. - 2.) You do not have to display the tape. You may turn it on - at any time by pressing . You may SCROLL back through - the tape once there are more than 16 entries in the - adder, by pressing . + 2. You do not have to display the tape. You may turn it on + at any time by pressing . You may SCROLL back through + the tape once there are more than 16 entries in the + adder, by pressing . - 3.) To Quit the Adder just press . To return your Total - to the application press . The adder will place the - Total in the active GET variable using oGet:varPut(). The - adder will only return a Total to a numerical GET! + 3. To Quit the Adder just press . To return your Total + to the application press . The adder will place the + Total in the active GET variable using oGet:varPut(). The + adder will only return a Total to a numerical GET! - 4.) There are many support functions that you might find - interesting. They are part of my personal library, but - are necessary to the operation of the adder. - You might want to pull these out to reduce the overall - size of the adder. Many are worth at least a little - time studying. + 4. There are many support functions that you might find + interesting. They are part of my personal library, but + are necessary to the operation of the adder. + You might want to pull these out to reduce the overall + size of the adder. Many are worth at least a little + time studying. - 5.) To make ft_Adder() a Hot key from inside your application - at the beginning of your application add the line: + 5. To make ft_Adder() a Hot key from inside your application + at the beginning of your application add the line: - SET KEY K_ALT_A TO ft_Adder() + SetKey( K_ALT_A, {|| ft_Adder() } ) - This will make a key "Hot" and permit you to - Pop - Up the adder from anywhere in the application. + This will make a key "Hot" and permit you to + Pop - Up the adder from anywhere in the application. - 6.) If you use ft_SInkey(), you can even have active hotkeys - in an Inkey(). + 6. If you use ft_SInkey(), you can even have active hotkeys + in an Inkey(). $EXAMPLES$ diff --git a/contrib/hbnf/doc/en/proper.txt b/contrib/hbnf/doc/en/proper.txt index 97654323e7..647bc79ce3 100644 --- a/contrib/hbnf/doc/en/proper.txt +++ b/contrib/hbnf/doc/en/proper.txt @@ -29,7 +29,7 @@ and enhanced) by Robert DiFalco. $EXAMPLES$ PROCEDURE Main( cStr ) - OutStd( ft_Proper( cStr ) + hb_eol() ) + ? ft_Proper( cStr ) RETURN $END$ */ diff --git a/contrib/hbnf/doc/en/putkey.txt b/contrib/hbnf/doc/en/putkey.txt index 24ccc9639a..30fde0a3dd 100644 --- a/contrib/hbnf/doc/en/putkey.txt +++ b/contrib/hbnf/doc/en/putkey.txt @@ -23,7 +23,7 @@ You can easily create a User-Defined Command that makes this function even more like the KEYBOARD command. For example, - #command KEYSTROKE => ft_PutKey( ) + #xcommand KEYSTROKE => ft_PutKey( ) will create a command called KEYSTROKE that could be used as a companion command to KEYBOARD. The only difference is that it would @@ -38,7 +38,7 @@ and make any other necessary changes to the source code. $EXAMPLES$ ft_PutKey( -9 ) // Stuff the F10 key - ft_PutKey( 276 ) // Stuff the Alt T key - KEYSTROKE 28 // Stuff the F1 key using a User-Defined Command + ft_PutKey( 276 ) // Stuff the Alt+T key + KEYBOARD 28 // Stuff the F1 key using a User-Defined Command $END$ */ diff --git a/contrib/hbnf/doc/en/qtr.txt b/contrib/hbnf/doc/en/qtr.txt index a7ad095ef5..06a75e42c0 100644 --- a/contrib/hbnf/doc/en/qtr.txt +++ b/contrib/hbnf/doc/en/qtr.txt @@ -34,13 +34,13 @@ to January 1 and Sunday by calling ft_DateCnfg() with no parameters. $EXAMPLES$ - // get info about quarter containing 9/15/90 + // get info about quarter containing 1990-09-15 aDateInfo := ft_Qtr( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 199003 (3rd quarter) ? aDateInfo[ 2 ] // 1990-07-01 beginning of quarter 3 ? aDateInfo[ 3 ] // 1990-09-30 end of week quarter 3 - // get info about quarter 2 in year containing 9/15/90 + // get info about quarter 2 in year containing 1990-09-15 aDateInfo := ft_Qtr( hb_SToD( "19900915" ), 2 ) ? aDateInfo[ 1 ] // 199002 ? aDateInfo[ 2 ] // 1990-04-01 beginning of quarter 2 diff --git a/contrib/hbnf/doc/en/rand1.txt b/contrib/hbnf/doc/en/rand1.txt index 161d3688a5..f09eac8a9c 100644 --- a/contrib/hbnf/doc/en/rand1.txt +++ b/contrib/hbnf/doc/en/rand1.txt @@ -21,8 +21,8 @@ If you need a random number between 0 and inclusive, then you should Round() the result. $EXAMPLES$ - nResult := Int( ft_Rand1( 100 ) ) + 1 // 1 <= nResult <= 100 - nResult := Round( ft_Rand1( 100 ), 0 ) // 0 <= nResult <= 100 - nResult := ft_Rand1( 1 ) // 0 <= nResult < 1 + ? Int( ft_Rand1( 100 ) ) + 1 // 1 <= nResult <= 100 + ? Round( ft_Rand1( 100 ), 0 ) // 0 <= nResult <= 100 + ? ft_Rand1( 1 ) // 0 <= nResult < 1 $END$ */ diff --git a/contrib/hbnf/doc/en/reboot.txt b/contrib/hbnf/doc/en/reboot.txt index 652d86e48c..129cee7e28 100644 --- a/contrib/hbnf/doc/en/reboot.txt +++ b/contrib/hbnf/doc/en/reboot.txt @@ -28,6 +28,5 @@ // Issue a warm boot ft_Reboot( WARM ) - $END$ */ diff --git a/contrib/hbnf/doc/en/rmdir.txt b/contrib/hbnf/doc/en/rmdir.txt index e00cc2a366..65b941bcce 100644 --- a/contrib/hbnf/doc/en/rmdir.txt +++ b/contrib/hbnf/doc/en/rmdir.txt @@ -24,8 +24,8 @@ SEGMENT directives, and also the ENDP and ENDS directives (a very minor task). $EXAMPLES$ - ft_RmDir( "C:\clipper" ) - ft_RmDir( "\example" ) - ft_RmDir( "..\source" ) + ? ft_RmDir( "harbour" ) + ? ft_RmDir( hb_ps() + "example" ) + ? ft_RmDir( ".." + hb_ps() + "source" ) $END$ */ diff --git a/contrib/hbnf/doc/en/round.txt b/contrib/hbnf/doc/en/round.txt index 17b2884f2c..d1c2f31566 100644 --- a/contrib/hbnf/doc/en/round.txt +++ b/contrib/hbnf/doc/en/round.txt @@ -45,18 +45,18 @@ c. Amount (100's, 5 decimals, 16th, etc.) $EXAMPLES$ // round normal to 2 decimal places - nDollars := ft_Round( nDollars ) + ? ft_Round( nDollars ) // round normal to 6 decimal places - nIntRate := ft_Round( nIntRate, 6 ) + ? ft_Round( nIntRate, 6 ) // round to nearest thousands - nPrice := ft_Round( nPrice, 3, NEAREST_WHOLE_NUMBER ) + ? ft_Round( nPrice, 3, NEAREST_WHOLE_NUMBER ) // round Up to nearest third - nAmount := ft_Round( nAmount, 3, NEAREST_FRACTION, ROUND_UP ) + ? ft_Round( nAmount, 3, NEAREST_FRACTION, ROUND_UP ) // round down to 3 decimals Within .005 - nAvg := ft_Round( nAvg, 3, , ROUND_DOWN, .005 ) + ? ft_Round( nAvg, 3, , ROUND_DOWN, .005 ) $END$ */ diff --git a/contrib/hbnf/doc/en/savearr.txt b/contrib/hbnf/doc/en/savearr.txt index 0ca37ae5b4..f0604e0833 100644 --- a/contrib/hbnf/doc/en/savearr.txt +++ b/contrib/hbnf/doc/en/savearr.txt @@ -26,7 +26,7 @@ array can be restored from the disc file using ft_RestArr(). - [10/1/92 Librarian note: + [1992-10-01 Librarian note: This function does not appear to work with multi-dimensional arrays. If you'd care to modify it to support this feature, @@ -74,7 +74,7 @@ ft_RestArr() restores an array which was saved to a disc file using ft_SaveArr(). - [10/1/92 Librarian note: + [1992-10-01 Librarian note: This function does not appear to work with multi-dimensional arrays. If you'd care to modify it to support this feature, diff --git a/contrib/hbnf/doc/en/scancode.txt b/contrib/hbnf/doc/en/scancode.txt index 1c638344a7..95d646fbda 100644 --- a/contrib/hbnf/doc/en/scancode.txt +++ b/contrib/hbnf/doc/en/scancode.txt @@ -32,15 +32,15 @@ * This was adapted from a short C routine posted by John Kaster on NANFORUM. It was written in Clipper to help demonstrate the - FT_INT86 function of the Nanforum Toolkit. + ft_int86() function of the Nanforum Toolkit. This program requires ft_int86(). $EXAMPLES$ - cKey := ft_ScanCode() + ? ft_ScanCode() - // returns: hb_BChar( 45 ) + hb_BChar( 74 ) - // <-> returns: hb_BChar( 45 ) + hb_BChar( 12 ) - // returns: hb_BChar( 43 ) + hb_BChar( 78 ) - // <+> returns: hb_BChar( 43 ) + hb_BChar( 13 ) + // returns: hb_BChar( 45 ) + hb_BChar( 74 ) + // <-> returns: hb_BChar( 45 ) + hb_BChar( 12 ) + // returns: hb_BChar( 43 ) + hb_BChar( 78 ) + // <+> returns: hb_BChar( 43 ) + hb_BChar( 13 ) $END$ */ diff --git a/contrib/hbnf/doc/en/setdate.txt b/contrib/hbnf/doc/en/setdate.txt index d989eaecca..e5354a7970 100644 --- a/contrib/hbnf/doc/en/setdate.txt +++ b/contrib/hbnf/doc/en/setdate.txt @@ -24,15 +24,15 @@ the DOS Set Date service (Interrupt 33, service 43). $EXAMPLES$ - // The following program takes a date from the command line and sets + // The following program takes a date from the command-line and sets // the DOS system date: PROCEDURE Main( cDate ) - cDate := iif( cDate == NIL, DToS( Date() ), cDate ) - ? "Setting date to: " + cDate + "... " + hb_default( @cDate, DToS( Date() ) ) + ? "Setting date to:", cDate + "... " ft_SetDate( hb_SToD( cDate ) ) - ? "Today is now: " + DToC( Date() ) + ? "Today is now:", Date() RETURN $END$ diff --git a/contrib/hbnf/doc/en/settime.txt b/contrib/hbnf/doc/en/settime.txt index 4fbfe034e9..975dfb8d53 100644 --- a/contrib/hbnf/doc/en/settime.txt +++ b/contrib/hbnf/doc/en/settime.txt @@ -22,15 +22,15 @@ the DOS Set Time service (Interrupt 33, service 45). $EXAMPLES$ - // The following program takes a time string from the command line and sets + // The following program takes a time string from the command-line and sets // the DOS system time: PROCEDURE Main( cTime ) cTime := iif( cTime == NIL, Time(), cTime ) - ? "Setting time to: " + cTime + "... " + ? "Setting time to:", cTime + "... " ft_SetTime( cTime ) - ? "Time is now: " + Time() + ? "Time is now:", Time() RETURN $END$ diff --git a/contrib/hbnf/doc/en/shift.txt b/contrib/hbnf/doc/en/shift.txt index 05cf0f8c23..d9a8ae4cad 100644 --- a/contrib/hbnf/doc/en/shift.txt +++ b/contrib/hbnf/doc/en/shift.txt @@ -16,9 +16,9 @@ shift key is pressed, such as during a MemoEdit(). $EXAMPLES$ IF ft_Shift() - @ 24, 0 SAY "Shift" + @ 0, 0 SAY "Shift" ELSE - @ 24, 0 SAY " " + @ 0, 0 SAY " " ENDIF $SEEALSO$ ft_CapLock() ft_Ctrl() ft_NumLock() ft_PrtScr() ft_Alt() diff --git a/contrib/hbnf/doc/en/sinkey.txt b/contrib/hbnf/doc/en/sinkey.txt index 1c232ab06f..df258004cd 100644 --- a/contrib/hbnf/doc/en/sinkey.txt +++ b/contrib/hbnf/doc/en/sinkey.txt @@ -26,6 +26,6 @@ respond to any keys set with SET KEY TO or SetKey(). $EXAMPLES$ SetKey( K_F1, {| n, l, r | HELP( n, l, r ) } ) - nKey := ft_SInkey( 0 ) // HELP() will be called if F1 pressed + ? ft_SInkey( 0 ) // HELP() will be called if F1 pressed $END$ */ diff --git a/contrib/hbnf/doc/en/sleep.txt b/contrib/hbnf/doc/en/sleep.txt index 4d5cd674af..a80263e315 100644 --- a/contrib/hbnf/doc/en/sleep.txt +++ b/contrib/hbnf/doc/en/sleep.txt @@ -1,6 +1,6 @@ /* $DOC$ $NAME$ - FT_SLEEP + ft_Sleep() $CATEGORY$ Menus/Prompts $ONELINER$ diff --git a/contrib/hbnf/doc/en/sqzn.txt b/contrib/hbnf/doc/en/sqzn.txt index 3261bcf4ae..ea57d1073a 100644 --- a/contrib/hbnf/doc/en/sqzn.txt +++ b/contrib/hbnf/doc/en/sqzn.txt @@ -14,15 +14,14 @@ $RETURNS$ cCompressed - Compressed string, 50% the size of nSize $DESCRIPTION$ - The FT_SQZN function allows a numeric value to be compressed when + The ft_Sqzn() function allows a numeric value to be compressed when stored in the database. The compression is 50% the storage space - of the original number. The companion function, FT_UNSQZN returns + of the original number. The companion function, ft_Unsqzn() returns the original number from the compressed string. $EXAMPLES$ - REPLACE ; - TRANS->cust_id WITH ft_Sqzn( mcust_id, 8 ), ; - TRANS->amount WITH ft_Sqzn( mamount, 12, 2 ) + TRANS->cust_id := ft_Sqzn( mcust_id, 8 ) + TRANS->amount := ft_Sqzn( mamount, 12, 2 ) $SEEALSO$ ft_Unsqzn() $INCLUDE$ @@ -48,7 +47,7 @@ $RETURNS$ nValue - Uncompressed numeric value $DESCRIPTION$ - The FT_UNSQZN function returns the numeric value from the compressed + The ft_Unsqzn() function returns the numeric value from the compressed string. The compression is 50% the storage space of the original number. The original number must have been compressed using the ft_Sqzn() function. @@ -57,8 +56,8 @@ requirements for numeric fields in a database file. $EXAMPLES$ - mcust_id := ft_Unsqzn( TRANS->cust_id, 8 ) - mamount := ft_Unsqzn( TRANS->amount, 12, 2 ) + ? ft_Unsqzn( field->cust_id, 8 ) + ? ft_Unsqzn( field->amount, 12, 2 ) $SEEALSO$ ft_Sqzn() $INCLUDE$ diff --git a/contrib/hbnf/doc/en/stod.txt b/contrib/hbnf/doc/en/stod.txt index ef6d625816..611d15fa5b 100644 --- a/contrib/hbnf/doc/en/stod.txt +++ b/contrib/hbnf/doc/en/stod.txt @@ -16,7 +16,6 @@ program without knowing what the current date type is. This function is the converse of the Clipper DToS() function. $EXAMPLES$ - LOCAL dMyDate - dMyDate := ft_SToD( "19901127" ) + ? ft_SToD( "19901127" ) $END$ */ diff --git a/contrib/hbnf/doc/en/sysmem.txt b/contrib/hbnf/doc/en/sysmem.txt index d05c92626f..2e13a81b86 100644 --- a/contrib/hbnf/doc/en/sysmem.txt +++ b/contrib/hbnf/doc/en/sysmem.txt @@ -10,16 +10,11 @@ $ARGUMENTS$ None $RETURNS$ - A numeric corresponding to the number of K memory. + A numeric corresponding to the number of KiB memory. $DESCRIPTION$ ft_SysMem() simply reports the amount of conventional memory - (up to 640K) installed. - - ft_SysMem() uses DOS interrupt 12h to get this information. - For information, refer to Peter Norton's _Programmer's Guide - to the IBM PC_ (Brady). - + installed. $EXAMPLES$ - ? "Conventional memory installed: " + Str( ft_SysMem() ) + "K" + ? "Conventional memory:", hb_ntos( ft_SysMem() ), "KiB installed" $END$ */ diff --git a/contrib/hbnf/doc/en/tbwhile.txt b/contrib/hbnf/doc/en/tbwhile.txt index b329adf0d2..5cfe43e014 100644 --- a/contrib/hbnf/doc/en/tbwhile.txt +++ b/contrib/hbnf/doc/en/tbwhile.txt @@ -36,7 +36,7 @@ is a list of colors for the TBrowse columns. The 1st color is used as SAY/TBrowse Background and the - 3rd and 4th colors are used as part of column:defColor := {3, 4} + 3rd and 4th colors are used as part of column:defColor := { 3, 4 } Thus if you pass a cColorList, you MUST pass at least 4 colors. Defaults to "N/W, N/BG, B/W, B/BG, B/W, B/BG, R/W, B/R" if not passed. @@ -67,7 +67,7 @@ LOCAL cColorList := "N/W, N/BG, B/W, B/BG, B/W, B/BG, R/W, B/R" LOCAL cColorShad := "N/N" - USE TBNames INDEX TBNames NEW // indexed on Last + First + USE tbnames INDEX tbnames NEW // indexed on Last + First // Pass Heading as character and Field as Block including Alias // To eliminate the need to use FieldWBlock() function in ft_BrwsWhl() @@ -77,10 +77,9 @@ IF ft_BrwsWhl( aFields, bWhile, cKey, nFreeze, lSaveScrn, ; cColorList, cColorShad, 3, 6, MaxRow() - 2, MaxCol() - 6 ) == 0 - ? "Sorry, NO Records Were Selected" + ? "Sorry, No records were selected" ELSE - ? "You Selected: " + TBNames->Last + " " + ; - TBNames->First + " " + TBNames->City + ? "You Selected:", TBNames->Last, TBNames->First, TBNames->City ENDIF $END$ */ diff --git a/contrib/hbnf/doc/en/tempfile.txt b/contrib/hbnf/doc/en/tempfile.txt index cd4f9f8c47..dad0cdb8be 100644 --- a/contrib/hbnf/doc/en/tempfile.txt +++ b/contrib/hbnf/doc/en/tempfile.txt @@ -16,7 +16,8 @@ attribute set. The default is .F. $RETURNS$ should be your path, including the name of the newly - created unique file. Use this with FOpen(), etc. + created unique file. You are safe to create a new file with + this filename. If a DOS error occurred when trying to create the file, a null string will be returned. @@ -25,21 +26,17 @@ This function uses DOS Interrupt 21, service 5Ah (Create temporary file) to create a unique filename in a directory you specify. There will be no extension. After the file is created, you may - then FOpen() it and do any i/o you need (see the test driver - in the source code). + do any I/O you need (see the test driver in the source code). This function requires ft_int86(). $EXAMPLES$ // Create a unique file in the root of the current drive: - - myFile := ft_TempFil() + ? ft_TempFil() // Create a unique file in the current directory and hide it: + ? ft_TempFil( ".", .T. ) - myFile := ft_TempFil( "." + hb_ps(), .T. ) - - // Create a unique file on another drive, but do not hide it: - - myFile := ft_TempFil( "E:\nanfor\src\" ) + // Create a unique file on another directory, but do not hide it: + ? ft_TempFil( "mytempdir" ) $END$ */ diff --git a/contrib/hbnf/doc/en/vertmenu.txt b/contrib/hbnf/doc/en/vertmenu.txt index dd7a065168..e1cf1841da 100644 --- a/contrib/hbnf/doc/en/vertmenu.txt +++ b/contrib/hbnf/doc/en/vertmenu.txt @@ -34,10 +34,10 @@ main program. See the test code for a succinct demonstration. $EXAMPLES$ LOCAL mainmenu := { ; - { "Data Entry", "Enter data", {|| ft_Menu2( datamenu ) } }, ; - { "Reports", "Hard copy", {|| ft_Menu2( repmenu ) } }, ; - { "Maintenance", "Reindex files", {|| ft_Menu2( maintmenu ) } }, ; - { "Quit", "See ya later" } } + { "Data Entry", "Enter data", {|| ft_Menu2( datamenu ) } }, ; + { "Reports", "Hard copy", {|| ft_Menu2( repmenu ) } }, ; + { "Maintenance", "Reindex files", {|| ft_Menu2( maintmenu ) } }, ; + { "Quit", "See ya later" } } ft_Menu2( mainmenu ) $END$ */ diff --git a/contrib/hbnf/doc/en/vidcur.txt b/contrib/hbnf/doc/en/vidcur.txt index 4594387c21..139b97389e 100644 --- a/contrib/hbnf/doc/en/vidcur.txt +++ b/contrib/hbnf/doc/en/vidcur.txt @@ -1,12 +1,12 @@ /* $DOC$ $NAME$ - ft_SetVcur() + ft_SetVCur() $CATEGORY$ Video $ONELINER$ Set the cursor position on a specified video page $SYNTAX$ - ft_SetVcur( [ ], [ ], [ ] ) -> NIL + ft_SetVCur( [ ], [ ], [ ] ) -> NIL $ARGUMENTS$ is the video page (defaults to current page, determined by ft_GetVPg() @@ -17,7 +17,7 @@ $RETURNS$ NIL $DESCRIPTION$ - ft_SetVcur() sets the cursor position on a specific video page. + ft_SetVCur() sets the cursor position on a specific video page. It uses ft_int86() to invoke interrupt 10h, function 2. For more information on graphics programming, cursors, and video @@ -27,7 +27,7 @@ $EXAMPLES$ // Set the position to row 5, column 10 on video page 1: - ft_SetVcur( 1, 5, 10 ) + ft_SetVCur( 1, 5, 10 ) $END$ */ @@ -66,6 +66,6 @@ $EXAMPLES$ aCurInfo := getVCur( 1 ) // Get info on cursor pos in page 1 - ? "Row: " + Str( aCurInfo[ 3 ] ) + " Col: " + Str( aCurInfo[ 4 ] ) + ? "Row:", aCurInfo[ 3 ], " Col:", aCurInfo[ 4 ] $END$ */ diff --git a/contrib/hbnf/doc/en/vidmode.txt b/contrib/hbnf/doc/en/vidmode.txt index e1d8384a81..e54894f992 100644 --- a/contrib/hbnf/doc/en/vidmode.txt +++ b/contrib/hbnf/doc/en/vidmode.txt @@ -20,7 +20,7 @@ $EXAMPLES$ PROCEDURE Main( cMode ) ft_SetMode( Val( cMode ) ) - ? "Video mode is: " + Str( ft_GetMode() ) + ? "Video mode is:", ft_GetMode() RETURN $SEEALSO$ ft_Adapter() @@ -49,7 +49,7 @@ $EXAMPLES$ PROCEDURE Main( cMode ) ft_SetMode( Val( cMode ) ) - ? "Video mode is: " + Str( ft_GetMode() ) + ? "Video mode is:", ft_GetMode() RETURN $END$ */ diff --git a/contrib/hbnf/doc/en/wda.txt b/contrib/hbnf/doc/en/wda.txt index 93ed7a7ea5..d0616201a6 100644 --- a/contrib/hbnf/doc/en/wda.txt +++ b/contrib/hbnf/doc/en/wda.txt @@ -34,7 +34,7 @@ // Postdate 5 working days from the first of January dPost := hb_SToD( "19910101" ) dPost += ft_AddWkDy( dPost, 5 ) // returns 7 true days - ? dPost // 1991-01-08 + ? dPost // 1991-01-08 $SEEALSO$ ft_Workdays() $END$ diff --git a/contrib/hbnf/doc/en/week.txt b/contrib/hbnf/doc/en/week.txt index 84543f77de..deb3da92dd 100644 --- a/contrib/hbnf/doc/en/week.txt +++ b/contrib/hbnf/doc/en/week.txt @@ -34,13 +34,13 @@ to January 1 and Sunday by calling ft_DateCnfg() with no parameters. $EXAMPLES$ - // get info about week containing 9/15/90 + // get info about week containing 1990-09-15 aDateInfo := ft_Week( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 199037 (37th week) ? aDateInfo[ 2 ] // 1990-09-09 beginning of week 37 ? aDateInfo[ 3 ] // 1990-09-15 end of week 37 - // get info about week 25 in year containing 9/15/90 + // get info about week 25 in year containing 1990-09-15 aDateInfo := ft_Week( hb_SToD( "19900915" ), 25 ) ? aDateInfo[ 1 ] // 199025 ? aDateInfo[ 2 ] // 1990-06-17 beginning of week 25 diff --git a/contrib/hbnf/doc/en/year.txt b/contrib/hbnf/doc/en/year.txt index c7a6fcaf0d..423cb23bdf 100644 --- a/contrib/hbnf/doc/en/year.txt +++ b/contrib/hbnf/doc/en/year.txt @@ -30,7 +30,7 @@ The beginning of year date may be reset to January 1 by calling ft_DateCnfg() with no parameters. $EXAMPLES$ - // Get info about year containing 9/15/90, assuming default + // Get info about year containing 1990-09-15, assuming default // beginning of year is January 1st. aDateInfo := ft_Year( hb_SToD( "19900915" ) ) ? aDateInfo[ 1 ] // 1990 diff --git a/contrib/hbziparc/doc/en/hbziparc.txt b/contrib/hbziparc/doc/en/hbziparc.txt index f5e2a148e6..a96509f9fc 100644 --- a/contrib/hbziparc/doc/en/hbziparc.txt +++ b/contrib/hbziparc/doc/en/hbziparc.txt @@ -121,7 +121,7 @@ Set this function before opening archives that are in removable media. This block will be released, when the caller finish it job. $EXAMPLES$ - hb_SetDiskZip( {| nDisk | Alert( "Please insert disk no " + Str( nDisk, 3 ) ) } ) + hb_SetDiskZip( {| nDisk | Alert( "Please insert disk no " + hb_ntos( nDisk ) ) } ) $COMPLIANCE$ This function is a Harbour extension $PLATFORMS$ @@ -337,7 +337,7 @@ $EXAMPLES$ PROCEDURE Main() - hb_SetDiskZip( {| nDisk | Alert( "Please insert disk no " + Str( nDisk, 3 ) ) } ) + hb_SetDiskZip( {| nDisk | Alert( "Please insert disk no " + hb_ntos( nDisk ) ) } ) IF hb_ZipFileByPKSpan( "test.zip", "test.prg" ) ? "File was successfully created" @@ -473,7 +473,7 @@ $ONELINER$ Unzip a compressed file $SYNTAX$ - hb_UnzipFile( , , , , , + hb_UnzipFile( , , , , , | , ) --> lCompress $ARGUMENTS$ Name of the zip file to extract @@ -482,7 +482,7 @@ Toggle to create directory if needed - Password to use to extract files + Password to use to extract files Path to extract the files to - mandatory @@ -511,8 +511,9 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL aExtract := hb_GetFilesInZip( "test.zip" ) // extract all files in zip + LOCAL aExtract + aExtract := hb_GetFilesInZip( "test.zip" ) // extract all files in zip IF hb_UnzipFile( "test.zip",,,, "." + hb_ps(), aExtract ) ? "File was successfully extracted" ENDIF @@ -521,6 +522,7 @@ IF hb_UnzipFile( "test2.zip", {| cFile | QOut( cFile ) },,, "." + hb_ps(), aExtract ) ? "File was successfully extracted" ENDIF + RETURN $STATUS$ R diff --git a/contrib/rddads/doc/en/adsfuncs.txt b/contrib/rddads/doc/en/adsfuncs.txt index 847ff6791c..f054f3a340 100644 --- a/contrib/rddads/doc/en/adsfuncs.txt +++ b/contrib/rddads/doc/en/adsfuncs.txt @@ -701,16 +701,15 @@ ... AdsRegCallback( {| nPercent | outputstuff( nPercent ) } ) /* The above codeblock will be called approximately - every 2 seconds while indexing. - The codeblock can return .T. to abort. */ - INDEX ON First + LAST + LABEL1 + LABEL2 TAG First + every 2 seconds while indexing. + The codeblock can return .T. to abort. */ + INDEX ON FIRST + LAST + LABEL1 + LABEL2 TAG First AdsClrCallback() RETURN - FUNCTION outputstuff( nPercent ) /* The "callback" function */ + STATIC FUNCTION outputstuff( nPercent ) /* The "callback" function */ ? "output stuff", nPercent - RETURN Inkey() == K_ESC - /* If press ESC, returns .T. to abort. */ + RETURN hb_keyStd( Inkey() ) == K_ESC /* If press ESC, returns .T. to abort. */ $STATUS$ R $COMPLIANCE$ diff --git a/contrib/rddads/doc/en/readme.txt b/contrib/rddads/doc/en/readme.txt index fbc9eb2246..55ece3fcd4 100644 --- a/contrib/rddads/doc/en/readme.txt +++ b/contrib/rddads/doc/en/readme.txt @@ -125,16 +125,15 @@ ... AdsRegCallback( {| nPercent | outputstuff( nPercent ) } ) /* The above codeblock will be called approximately - every 2 seconds while indexing. - The codeblock can return .T. to abort. */ + every 2 seconds while indexing. + The codeblock can return .T. to abort. */ INDEX ON FIRST + LAST + LABEL1 + LABEL2 TAG First AdsClrCallback() RETURN - FUNCTION outputstuff( nPercent ) /* The "callback" function */ + STATIC FUNCTION outputstuff( nPercent ) /* The "callback" function */ ? "output stuff", nPercent - RETURN Inkey() == K_ESC - /* If press ESC, returns .T. to abort. */ + RETURN hb_keyStd( Inkey() ) == K_ESC /* If press ESC, returns .T. to abort. */ For programmers who are already familiar with the ACE engine, diff --git a/doc/en/1stread.txt b/doc/en/1stread.txt index abca5ebfe6..845b95e9ec 100644 --- a/doc/en/1stread.txt +++ b/doc/en/1stread.txt @@ -1,7 +1,7 @@ /* * Hash table type and functions * - * Copyright 2009 April White + * Copyright 2009 April White * * 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 @@ -16,7 +16,7 @@ * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING.txt. If not, write to * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site https://www.gnu.org/). + * Boston, MA 02111-1307 USA (or visit the website https://www.gnu.org/). * * As a special exception, the Harbour Project gives permission for * additional uses of the text contained in its release of Harbour. @@ -60,26 +60,21 @@ ================== Clipper is a trademark of Computer Associates and will often be - referred to as CA-Cl*pper within Harbour documents. Regardless of this + referred to as CA-Cl*pper within Harbour documents. Regardless of this variant, Clipper is recognized as Computer Associates' trademark. Harbour is a free software compiler for the xBase superset language often referred to as Clipper (the language that is implemented by the compiler - Clipper). The goal of the Harbour project is to produce a cross platform - CA-Cl*pper compatible compiler. + Clipper). The goal of Harbour is to produce a cross platform CA-Cl*pper + compatible compiler. - The Harbour web site is at . If you - have any problems with this copy of Harbour please visit our web site and - ensure that you are using the latest release. + The Harbour website is at . + If you have any problems with this copy of Harbour please visit our web + site and ensure that you are using the latest release. - If you have any questions about Harbour please be sure to read the FAQ - . Also, please be sure to read the - documentation that comes with Harbour, you should find it in the same - directory in which you found this file. - - If you are reading this file as part of a source distribution of harbour you + If you are reading this file as part of a source distribution of Harbour you probably want to start by reading dirstruc.txt because this is your map to - the harbour source directories. + the Harbour source directories. Harbour is a superset of Clipper and is backwards compatible with nearly 100% of all Clipper 5.2x or 5.3 code. Most Clipper S'87 code will also diff --git a/doc/en/array.txt b/doc/en/array.txt index 36b66f9aba..7483d62b34 100644 --- a/doc/en/array.txt +++ b/doc/en/array.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem * Documentation for: ASort() * @@ -315,7 +313,7 @@ $FILES$ Library is core $SEEALSO$ - AAdd(), AEval(), dbStruct(), Directory() + AAdd(), AEval(), dbStruct() $END$ */ @@ -363,8 +361,8 @@ will continue until the value obtained from the code block is a logical true (.T.) or until the end of the array has been reached. $EXAMPLES$ - LOCAL aDir := Directory( "*.prg" ) - AScan( aDir,,, {| x, y | x[ 1 ] := "test.prg" } ) + LOCAL aDir := hb_vfDirectory( "*.prg" ) + AScan( aDir,,, {| x, y | x[ 1 ] := "test.prg", HB_SYMBOL_UNUSED( y ) } ) $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/binnum.txt b/doc/en/binnum.txt index 3177f28af7..10dc9a98b9 100644 --- a/doc/en/binnum.txt +++ b/doc/en/binnum.txt @@ -1,73 +1,11 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Chen Kedem - * Documentation for: Bin2W(), Bin2I(), Bin2L(), Bin2U(), I2Bin(), W2Bin(), - * L2Bin(), U2Bin() + * Documentation for: Bin2I(), Bin2L(), I2Bin(), L2Bin() * * See COPYING.txt for licensing terms. * */ -/* $DOC$ - $TEMPLATE$ - Function - $NAME$ - Bin2W() - $CATEGORY$ - API - $SUBCATEGORY$ - Conversion - $ONELINER$ - Convert unsigned short encoded bytes into Harbour numeric - $SYNTAX$ - Bin2W( ) --> nNumber - $ARGUMENTS$ - is a character string that contain 16 bit encoded unsigned - short integer (least significant byte first). The first two bytes - are taken into account, the rest if any are ignored. - $RETURNS$ - Bin2W() return numeric integer (or 0 if is not a string). - $DESCRIPTION$ - Bin2W() is one of the low level binary conversion functions, those - functions convert between Harbour numeric and a character - representation of numeric value. Bin2W() take two bytes of encoded - 16 bit unsigned short integer and convert it into standard Harbour - numeric value. - - You might ask what is the need for such functions, well, first of - all it allow you to read/write information from/to a binary file - (like extracting information from DBF header), it is also a useful - way to share information from source other than Harbour (C for - instance). - - Bin2W() is the opposite of W2Bin() - $EXAMPLES$ - // Show header length of a DBF - #include "fileio.ch" - PROCEDURE Main() - LOCAL nHandle, cBuffer := Space( 2 ) - nHandle := FOpen( "test.dbf" ) - IF nHandle != F_ERROR - FSeek( nHandle, 8 ) - FRead( nHandle, @cBuffer, hb_BLen( cBuffer ) ) - ? "Length of DBF header in bytes:", Bin2W( cBuffer ) - FClose( nHandle ) - ELSE - ? "Can not open file" - ENDIF - RETURN - $STATUS$ - R - $COMPLIANCE$ - C - $FILES$ - Library is core - $SEEALSO$ - Bin2I(), Bin2L(), Bin2U(), I2Bin(), L2Bin(), W2Bin(), Word(), U2Bin(), FRead() - $END$ - */ - /* $DOC$ $TEMPLATE$ Function @@ -82,7 +20,7 @@ $SYNTAX$ Bin2I( ) --> nNumber $ARGUMENTS$ - is a character string that contain 16 bit encoded signed + is a character string that contains 16-bit encoded signed short integer (least significant byte first). The first two bytes are taken into account, the rest if any are ignored. $RETURNS$ @@ -91,7 +29,7 @@ Bin2I() is one of the low level binary conversion functions, those functions convert between Harbour numeric and a character representation of numeric value. Bin2I() take two bytes of encoded - 16 bit signed short integer and convert it into standard Harbour + 16-bit signed short integer and convert it into standard Harbour numeric value. You might ask what is the need for such functions, well, first of @@ -105,16 +43,15 @@ // Show DBF last update date #include "fileio.ch" PROCEDURE Main() - LOCAL nHandle, cYear, cMonth, cDay - nHandle := FOpen( "test.dbf" ) - IF nHandle != F_ERROR - FSeek( nHandle, 1 ) + LOCAL hFile, cYear, cMonth, cDay + IF ( hFile := hb_vfOpen( "test.dbf", FO_READ ) ) != NIL + hb_vfSeek( hFile, 1 ) cYear := cMonth := cDay := " " - FRead( nHandle, @cYear , hb_BLen( cYear ) ) - FRead( nHandle, @cMonth, hb_BLen( cMonth ) ) - FRead( nHandle, @cDay , hb_BLen( cDay ) ) + hb_vfRead( hFile, @cYear , hb_BLen( cYear ) ) + hb_vfRead( hFile, @cMonth, hb_BLen( cMonth ) ) + hb_vfRead( hFile, @cDay , hb_BLen( cDay ) ) ? "Last update:", Bin2I( cYear ), Bin2I( cMonth ), Bin2I( cDay ) - FClose( nHandle ) + hb_vfClose( hFile ) ELSE ? "Can not open file" ENDIF @@ -126,7 +63,7 @@ $FILES$ Library is core $SEEALSO$ - Bin2L(), Bin2U(), Bin2W(), I2Bin(), L2Bin(), W2Bin(), Word(), U2Bin(), FRead() + Bin2L(), Bin2U(), Bin2W(), I2Bin(), L2Bin(), W2Bin(), Word(), U2Bin() $END$ */ @@ -144,7 +81,7 @@ $SYNTAX$ Bin2L( ) --> nNumber $ARGUMENTS$ - is a character string that contain 32 bit encoded signed + is a character string that contains 32-bit encoded signed long integer (least significant byte first). The first four bytes are taken into account, the rest if any are ignored. $RETURNS$ @@ -153,7 +90,7 @@ Bin2L() is one of the low level binary conversion functions, those functions convert between Harbour numeric and a character representation of numeric value. Bin2L() take four bytes of encoded - 32 bit signed long integer and convert it into standard Harbour + 32-bit signed long integer and convert it into standard Harbour numeric value. You might ask what is the need for such functions, well, first of @@ -167,13 +104,12 @@ // Show number of records in DBF #include "fileio.ch" PROCEDURE Main() - LOCAL nHandle, cBuffer := Space( 4 ) - nHandle := FOpen( "test.dbf" ) - IF nHandle != F_ERROR - FSeek( nHandle, 4 ) - FRead( nHandle, @cBuffer, hb_BLen( cBuffer ) ) + LOCAL hFile, cBuffer := Space( 4 ) + IF ( hFile := hb_vfOpen( "test.dbf", FO_READ ) ) != NIL + hb_vfSeek( hFile, 4 ) + hb_vfRead( hFile, @cBuffer, hb_BLen( cBuffer ) ) ? "Number of records in file:", Bin2L( cBuffer ) - FClose( nHandle ) + hb_vfClose( hFile ) ELSE ? "Can not open file" ENDIF @@ -185,66 +121,7 @@ $FILES$ Library is core $SEEALSO$ - Bin2I(), Bin2U(), Bin2W(), I2Bin(), L2Bin(), W2Bin(), Word(), U2Bin(), FRead() - $END$ - */ - -/* $DOC$ - $TEMPLATE$ - Function - $NAME$ - Bin2U() - $CATEGORY$ - API - $SUBCATEGORY$ - Conversion - $ONELINER$ - Convert unsigned long encoded bytes into Harbour numeric - $SYNTAX$ - Bin2U( ) --> nNumber - $ARGUMENTS$ - is a character string that contain 32 bit encoded unsigned - long integer (least significant byte first). The first four bytes - are taken into account, the rest if any are ignored. - $RETURNS$ - Bin2U() return numeric integer (or 0 if is not a string). - $DESCRIPTION$ - Bin2U() is one of the low level binary conversion functions, those - functions convert between Harbour numeric and a character - representation of numeric value. Bin2U() take four bytes of encoded - 32 bit unsigned long integer and convert it into standard Harbour - numeric value. - - You might ask what is the need for such functions, well, first of - all it allow you to read/write information from/to a binary file - (like extracting information from DBF header), it is also a useful - way to share information from source other than Harbour (C for - instance). - - Bin2U() is the opposite of U2Bin() - $EXAMPLES$ - // Show number of records in DBF - #include "fileio.ch" - PROCEDURE Main() - LOCAL nHandle, cBuffer := Space( 4 ) - nHandle := FOpen( "test.dbf" ) - IF nHandle != F_ERROR - FSeek( nHandle, 4 ) - FRead( nHandle, @cBuffer, hb_BLen( cBuffer ) ) - ? "Number of records in file:", Bin2U( cBuffer ) - FClose( nHandle ) - ELSE - ? "Can not open file" - ENDIF - RETURN - $STATUS$ - R - $COMPLIANCE$ - XPP - $FILES$ - Library is core - $SEEALSO$ - Bin2I(), Bin2L(), Bin2W(), I2Bin(), L2Bin(), W2Bin(), Word(), U2Bin(), FRead() + Bin2I(), Bin2U(), Bin2W(), I2Bin(), L2Bin(), W2Bin(), Word(), U2Bin() $END$ */ @@ -264,13 +141,13 @@ $ARGUMENTS$ is a numeric value to convert (decimal digits are ignored). $RETURNS$ - I2Bin() return two bytes character string that contain 16 bit + I2Bin() return two bytes character string that contains 16-bit encoded signed short integer (least significant byte first). $DESCRIPTION$ I2Bin() is one of the low level binary conversion functions, those functions convert between Harbour numeric and a character representation of numeric value. I2Bin() take a numeric integer - value and convert it into two bytes of encoded 16 bit signed short + value and convert it into two bytes of encoded 16-bit signed short integer. You might ask what is the need for such functions, well, first of @@ -282,25 +159,23 @@ I2Bin() is the opposite of Bin2I() $EXAMPLES$ // Update DBF "last update" date - #include "fileio.ch" PROCEDURE Main() - LOCAL nHandle, cYear, cMonth, cDay + LOCAL hFile, cYear, cMonth, cDay USE test ? "Original update date is:", LUpdate() - CLOSE - nHandle := FOpen( "test.dbf", FO_READWRITE ) - IF nHandle != F_ERROR - FSeek( nHandle, 1 ) + dbCloseArea() + IF ( hFile := hb_vfOpen( "test.dbf", FO_READWRITE ) ) != NIL + hb_vfSeek( hFile, 1 ) cYear := I2Bin( 68 ) cMonth := I2Bin( 8 ) cDay := I2Bin( 1 ) - FWrite( nHandle, cYear , 1 ) // write only the first byte - FWrite( nHandle, cMonth, 1 ) - FWrite( nHandle, cDay , 1 ) - FClose( nHandle ) + hb_vfWrite( hFile, cYear , 1 ) // write only the first byte + hb_vfWrite( hFile, cMonth, 1 ) + hb_vfWrite( hFile, cDay , 1 ) + hb_vfClose( hFile ) USE test ? "New update date is:", LUpdate() - CLOSE + dbCloseArea() ELSE ? "Can not open file" ENDIF @@ -312,50 +187,7 @@ $FILES$ Library is core $SEEALSO$ - Bin2I(), Bin2L(), Bin2U(), Bin2W(), L2Bin(), W2Bin(), Word(), U2Bin(), FWrite() - $END$ - */ - -/* $DOC$ - $TEMPLATE$ - Function - $NAME$ - W2Bin() - $CATEGORY$ - API - $SUBCATEGORY$ - Conversion - $ONELINER$ - Convert Harbour numeric into unsigned short encoded bytes - $SYNTAX$ - W2Bin( ) --> cBuffer - $ARGUMENTS$ - is a numeric value to convert (decimal digits are ignored). - $RETURNS$ - W2Bin() return two bytes character string that contain 16 bit - encoded unsigned short integer (least significant byte first). - $DESCRIPTION$ - W2Bin() is one of the low level binary conversion functions, those - functions convert between Harbour numeric and a character - representation of numeric value. W2Bin() take a numeric integer - value and convert it into two bytes of encoded 16 bit unsigned short - integer. - - You might ask what is the need for such functions, well, first of - all it allow you to read/write information from/to a binary file - (like extracting information from DBF header), it is also a useful - way to share information from source other than Harbour (C for - instance). - - W2Bin() is the opposite of Bin2W() - $STATUS$ - R - $COMPLIANCE$ - XPP - $FILES$ - Library is core - $SEEALSO$ - Bin2I(), Bin2L(), Bin2U(), Bin2W(), I2Bin(), L2Bin(), Word(), U2Bin(), FWrite() + Bin2I(), Bin2L(), Bin2U(), Bin2W(), L2Bin(), W2Bin(), Word(), U2Bin() $END$ */ @@ -375,13 +207,13 @@ $ARGUMENTS$ is a numeric value to convert (decimal digits are ignored). $RETURNS$ - L2Bin() return four bytes character string that contain 32 bit + L2Bin() return four bytes character string that contains 32-bit encoded signed long integer (least significant byte first). $DESCRIPTION$ L2Bin() is one of the low level binary conversion functions, those functions convert between Harbour numeric and a character representation of numeric value. L2Bin() take a numeric integer - value and convert it into four bytes of encoded 32 bit signed long + value and convert it into four bytes of encoded 32-bit signed long integer. You might ask what is the need for such functions, well, first of @@ -398,50 +230,7 @@ $FILES$ Library is core $SEEALSO$ - Bin2I(), Bin2L(), Bin2U(), Bin2W(), I2Bin(), W2Bin(), Word(), U2Bin(), FWrite() - $END$ - */ - -/* $DOC$ - $TEMPLATE$ - Function - $NAME$ - U2Bin() - $CATEGORY$ - API - $SUBCATEGORY$ - Conversion - $ONELINER$ - Convert Harbour numeric into unsigned long encoded bytes - $SYNTAX$ - U2Bin( ) --> cBuffer - $ARGUMENTS$ - is a numeric value to convert (decimal digits are ignored). - $RETURNS$ - U2Bin() return four bytes character string that contain 32 bit - encoded unsigned long integer (least significant byte first). - $DESCRIPTION$ - U2Bin() is one of the low level binary conversion functions, those - functions convert between Harbour numeric and a character - representation of numeric value. U2Bin() take a numeric integer - value and convert it into four bytes of encoded 32 bit unsigned long - integer. - - You might ask what is the need for such functions, well, first of - all it allow you to read/write information from/to a binary file - (like extracting information from DBF header), it is also a useful - way to share information from source other than Harbour (C for - instance). - - U2Bin() is the opposite of Bin2U() - $STATUS$ - R - $COMPLIANCE$ - XPP - $FILES$ - Library is core - $SEEALSO$ - Bin2I(), Bin2L(), Bin2U(), Bin2W(), I2Bin(), L2Bin(), W2Bin(), Word(), FWrite() + Bin2I(), Bin2L(), Bin2U(), Bin2W(), I2Bin(), W2Bin(), Word(), U2Bin() $END$ */ diff --git a/doc/en/browse.txt b/doc/en/browse.txt index 18e5ef751a..ff4f0b8c03 100644 --- a/doc/en/browse.txt +++ b/doc/en/browse.txt @@ -1,8 +1,6 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem - * Documentation for: Browse(), dbEdit(), TBrowseDB(), dbSkipper() + * Documentation for: Browse(), dbEdit(), TBrowseDB() * * See COPYING.txt for licensing terms. * @@ -167,7 +165,7 @@ TBrowse class and there for not recommended for new applications. $EXAMPLES$ // Browse a file using default values - USE Test + USE test dbEdit() $STATUS$ S @@ -260,7 +258,7 @@ 1, 0, MaxRow(), MaxCol(). $EXAMPLES$ // this one shows you how to browse around - USE Around + USE around Browse() $STATUS$ S @@ -316,47 +314,3 @@ Browse(), TBColumn class, TBrowse class, TBrowseNew() $END$ */ - -/* $DOC$ - $TEMPLATE$ - Function - $NAME$ - dbSkipper() - $CATEGORY$ - API - $SUBCATEGORY$ - User interface - $ONELINER$ - Helper function to skip a database - $SYNTAX$ - dbSkipper( ) --> nSkipped - $ARGUMENTS$ - is the number of records to skip relative to current record. - Positive number would try to move the record pointer forward, while - a negative number would try to move the record pointer back - records. - $RETURNS$ - dbSkipper() return the number of actual record skipped. - $DESCRIPTION$ - dbSkipper() is a helper function used in browse mechanism to skip - a number of records while giving the caller indication about the - actual records skipped. - $EXAMPLES$ - // open a file and find if we've got enough records in it - USE MonthSales - IF dbSkipper( 100 ) == 100 - ? "Good work! You can party now" - ELSE - ? "Too bad, you should really work harder" - ENDIF - CLOSE - $STATUS$ - R - $COMPLIANCE$ - XPP - $FILES$ - Library is core - $SEEALSO$ - dbSkip(), SKIP - $END$ - */ diff --git a/doc/en/command.txt b/doc/en/command.txt index 95c6b6c0bb..31f209340b 100644 --- a/doc/en/command.txt +++ b/doc/en/command.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Brian Hays * Documentation for the commands * diff --git a/doc/en/compiler.txt b/doc/en/compiler.txt index 0363c29227..49f4d93042 100644 --- a/doc/en/compiler.txt +++ b/doc/en/compiler.txt @@ -19,10 +19,10 @@ or harbour [options] [options] - The command line options have to be separated by at least one space. + The command-line options have to be separated by at least one space. The option can start with either '/' character or '-' character. - The Harbour command line options: + The Harbour command-line options: ================================= /a automatic memvar declaration diff --git a/doc/en/datetime.txt b/doc/en/datetime.txt index 352bcd027e..f5b97ae4f1 100644 --- a/doc/en/datetime.txt +++ b/doc/en/datetime.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Luiz Rafael Culik * Documentation for: CDoW(), CMonth(), Date(), CToD(), Day(), Days() * DoW(), DToS(), DToC(), ElapTime(), Month(), Seconds(), Secs(), Time(), Year() @@ -109,7 +107,7 @@ This function returns the current system date. $EXAMPLES$ ? Date() - ? "Today is ", Day( Date() ), " of ", CMonth( Date() ), " of ", Year( Date() ) + ? "Today is", hb_ntos( Day( Date() ) ), "of", CMonth( Date() ), "of", StrZero( Year( Date() ), 4 ) $STATUS$ R $COMPLIANCE$ @@ -255,6 +253,7 @@ $DESCRIPTION$ This function returns the number representing the day of the week for the date expressed as . + Returned value range is from 1 (Sunday) to 7 (Saturday). $EXAMPLES$ ? DoW( Date() ) ? DoW( Date() - 6584 ) diff --git a/doc/en/dbdelim.txt b/doc/en/dbdelim.txt index a267a5e442..f2df4b1c44 100644 --- a/doc/en/dbdelim.txt +++ b/doc/en/dbdelim.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2001-2002 David G. Holm * Documentation for: __dbDelim() * @@ -60,11 +58,11 @@ text file to a database table. $EXAMPLES$ // Copy delinquent accounts into a delimited text file. - USE ACCOUNTS NEW + USE accounts NEW COPY TO overdue DELIMITED FOR ! Empty( accounts->duedate ) ; .AND. Date() - accounts->duedate > 30 // Import new customer records. - USE CUSTOMER NEW + USE customer NEW APPEND FROM customer DELIMITED $STATUS$ S diff --git a/doc/en/dbsdf.txt b/doc/en/dbsdf.txt index d14c6b103d..371e2992c3 100644 --- a/doc/en/dbsdf.txt +++ b/doc/en/dbsdf.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2001-2002 David G. Holm * Documentation for: __dbSDF() * @@ -55,11 +53,11 @@ SDF text file to a database table. $EXAMPLES$ // Copy delinquent accounts into an SDF text file. - USE ACCOUNTS NEW + USE accounts NEW COPY TO overdue SDF FOR ! Empty( accounts->duedate ) ; .AND. Date() - accounts->duedate > 30 // Import new customer records. - USE CUSTOMER NEW + USE customer NEW APPEND FROM customer SDF $STATUS$ S diff --git a/doc/en/dbstrux.txt b/doc/en/dbstrux.txt index ea7f9c2e89..c7c970855c 100644 --- a/doc/en/dbstrux.txt +++ b/doc/en/dbstrux.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Chen Kedem * Documentation for: __dbCopyStruct(), COPY STRUCTURE, __dbCopyXStruct(), * COPY STRUCTURE EXTENDED, __dbCreate(), CREATE, @@ -43,12 +41,12 @@ function during compile time. $EXAMPLES$ // Create a new file that contain the same structure - USE TEST + USE test __dbCopyStruct( "mycopy.dbf" ) // Create a new file that contain part of the original structure LOCAL aList - USE TEST + USE test aList := { "NAME" } __dbCopyStruct( "onlyname.dbf", aList ) $STATUS$ @@ -97,11 +95,11 @@ function during compile time. $EXAMPLES$ // Create a new file that contains the same structure - USE TEST + USE test COPY STRUCTURE TO MyCopy // Create a new file that contains part of the original structure - USE TEST + USE test COPY STRUCTURE TO SomePart FIELDS name, address $STATUS$ R @@ -175,9 +173,9 @@ $EXAMPLES$ // Open a database, then copy its structure to a new file, // Open the new file and list all its records - USE Test - __dbCopyXStruct( "TestStru" ) - USE TestStru + USE test + __dbCopyXStruct( "teststru" ) + USE teststru LIST $STATUS$ R @@ -251,9 +249,9 @@ $EXAMPLES$ // Open a database, then copy its structure to a new file, // Open the new file and list all its records - USE Test - COPY STRUCTURE EXTENDED TO TestStru - USE TestStru + USE test + COPY STRUCTURE EXTENDED TO teststru + USE teststru LIST $STATUS$ R @@ -427,22 +425,22 @@ // then CREATE FROM this file a new database file CREATE template - APPEND BLANK + dbAppend() FIELD->FIELD_NAME := "CHANNEL" FIELD->FIELD_TYPE := "N" FIELD->FIELD_LEN := 2 FIELD->FIELD_DEC := 0 - APPEND BLANK + dbAppend() FIELD->FIELD_NAME := "PROGRAM" FIELD->FIELD_TYPE := "C" FIELD->FIELD_LEN := 20 FIELD->FIELD_DEC := 0 - APPEND BLANK + dbAppend() FIELD->FIELD_NAME := "REVIEW" FIELD->FIELD_TYPE := "C" // this field is 1000 char long FIELD->FIELD_LEN := 232 // 1000 % 256 = 232 FIELD->FIELD_DEC := 3 // 1000 / 256 = 3 - CLOSE + dbCloseArea() CREATE TV_Guide FROM template $STATUS$ R @@ -593,7 +591,7 @@ // Create a new file that contain part of the original structure LOCAL aStruct, aList, aRet - USE TEST + USE test aStruct := dbStruct() aList := { "NAME" } dbCreate( "onlyname.dbf", __FLedit( aStruct, aList ) ) @@ -685,7 +683,7 @@ // Create a new file that contain part of the original structure LOCAL aStruct, aList, aRet - USE TEST + USE test aStruct := dbStruct() aList := { "NAME" } dbCreate( "onlyname.dbf", __dbStructFilter( aStruct, aList ) ) diff --git a/doc/en/dir.txt b/doc/en/dir.txt index 4d1b3a236a..f5f2270924 100644 --- a/doc/en/dir.txt +++ b/doc/en/dir.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem * Documentation for: __Dir(), DIR, ADir() * diff --git a/doc/en/diskspac.txt b/doc/en/diskspac.txt index 1f8e7ea461..4803a54719 100644 --- a/doc/en/diskspac.txt +++ b/doc/en/diskspac.txt @@ -1,6 +1,4 @@ /* - * The following are Copyright of the individual authors. - * * Copyright 2000 Paul Tucker * Documentation for: DiskSpace() and related functions * @@ -36,7 +34,7 @@ If information is requested on a disk that is not available, a runtime error 2018 will be raised. $EXAMPLES$ - ? "You can use : " + hb_ntos( DiskSpace() ) + " bytes " + ? "You can use:", hb_ntos( DiskSpace() ), "bytes" // NOTE: See tests/diskspac.prg for another example $STATUS$ @@ -97,8 +95,8 @@ error 2018 will be raised. $EXAMPLES$ #include "fileio.ch" - ? "You can use : " + hb_ntos( hb_DiskSpace() ) + " bytes " +; - "Out of a total of " + hb_ntos( hb_DiskSpace( "C:", HB_FS_TOTAL ) ) + ? "You can use:", hb_ntos( hb_DiskSpace() ), "bytes", ; + "Out of a total of", hb_ntos( hb_DiskSpace( "C:", HB_FS_TOTAL ) ) // NOTE: See tests/diskspac.prg for another example $STATUS$ diff --git a/doc/en/errsys.txt b/doc/en/errsys.txt index 1d56fcf0f9..7c7e856d13 100644 --- a/doc/en/errsys.txt +++ b/doc/en/errsys.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem * Documentation for: ErrorSys() * diff --git a/doc/en/eval.txt b/doc/en/eval.txt index c67fbb87cf..0998a2b960 100644 --- a/doc/en/eval.txt +++ b/doc/en/eval.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Luiz Rafael Culik * Documentation for: Eval() * diff --git a/doc/en/file.txt b/doc/en/file.txt index a552e8f287..cfd4e0f830 100644 --- a/doc/en/file.txt +++ b/doc/en/file.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Chen Kedem * Documentation for: __TypeFile(), TYPE * @@ -245,8 +243,8 @@ To truncate a file, a call of FWrite( nHandle, "", 0 ) is needed. $EXAMPLES$ nHandle := FCreate( "test.txt" ) - FOR X := 1 TO 10 - FWrite( nHandle, Str( x ) ) + FOR x := 1 TO 10 + FWrite( nHandle, hb_ntos( x ) ) NEXT FClose( nHandle ) $STATUS$ @@ -307,10 +305,8 @@ function returns a 0, no error was detected. Below is a table of possibles values returned by the FError() function. $EXAMPLES$ - #include "fileio.ch" - nHandle := FCreate( "test.txt", FC_NORMAL ) - IF FError() != 0 - ? "Cannot create file, OS error ", FError() + IF ( nHandle := FCreate( "test.txt" ) ) == F_ERROR + ? "Cannot create file, OS error", FError() ENDIF $STATUS$ R @@ -388,14 +384,14 @@ If the function is able to successfully delete the file from the disk, the value of the function will be 0; otherwise a -1 will - be returned. If not successfull, additional information may be + be returned. If not successful, additional information may be obtained by calling the FError() function. Note: Any file to be removed by FErase() must still be closed. $EXAMPLES$ #include "fileio.ch" - IF FErase( "test.txt" ) == 0 + IF FErase( "test.txt" ) != F_ERROR ? "File successfully erased" ELSE ? "File can not be deleted" @@ -456,7 +452,7 @@ #include "fileio.ch" nResult := FRename( "test.txt", "test1.txt" ) IF nResult != 0 - ? "File could not be renamed." + ? "File could not be renamed" ENDIF $STATUS$ R @@ -530,10 +526,10 @@ cB := "" nSavePos := FSeek( nH, 0, FS_RELATIVE ) nNumRead := FRead( nH, @cLine, nMaxLine ) - IF ( nEol := hb_BAt( hb_eol(), hb_BSubStr( cLine, 1, nNumRead ) ) ) == 0 + IF ( nEol := hb_BAt( hb_eol(), hb_BLeft( cLine, nNumRead ) ) ) == 0 cB := cLine ELSE - cB := hb_BSubStr( cLine, 1, nEol - 1 ) + cB := hb_BLeft( cLine, nEol - 1 ) FSeek( nH, nSavePos + nEol + 1, FS_SET ) ENDIF RETURN nNumRead != 0 @@ -579,8 +575,8 @@ searched and the current drive/directory is only searched if SET DEFAULT is blank. $EXAMPLES$ - ? File( "C:\harbour\doc\compiler.txt" ) - ? File( "C:/harbour/doc/subcodes.txt" ) + ? File( "C:\hb\doc\pp.txt" ) + ? File( "*.txt" ) $STATUS$ S (wild card support is missing) $COMPLIANCE$ @@ -620,17 +616,10 @@ The value of is the number of bytes to read from the file. The returned string will be the number of characters specified in - or the number of bytes read before an end-of-file charac- - ter (ASCII 26) is found. - - NOTE This function is similar to the FRead() function, except that - it will not read binary characters that may he required as part of - a header of a file construct. Characters Such as Chr( 0 ) and Chr( 26 ) - may keep this function from performing its intended operation. In this - event, the FRead() function should he used in place of the FReadStr() - function. + or the number of bytes read before a zero byte is found. $EXAMPLES$ #include "fileio.ch" + LOCAL cStr IF ( nH := FOpen( "test.txt" ) ) != F_ERROR cStr := FReadStr( nH, 100 ) ? cStr @@ -712,7 +701,7 @@ The file must be considered closed by the operating system before it may be deleted. $EXAMPLES$ - ERASE C:\temp\read.txt + ERASE test.txt $STATUS$ R $COMPLIANCE$ @@ -746,7 +735,7 @@ The file must be considered closed by the operating system before it may be deleted. $EXAMPLES$ - DELETE FILE C:\temp\read.txt + DELETE FILE test.txt $STATUS$ R $COMPLIANCE$ @@ -951,8 +940,8 @@ device (e.g. LPT1). This command does not observe the SET PATH TO or SET DEFAULT TO settings. $EXAMPLES$ - COPY FILE C:\harbour\tests\adir.prg TO C:\temp\adir.prg - COPY FILE C:\harbour\tests\adir.prg TO LPT1 + COPY FILE /path/to/adir.prg TO /tmp/adir.prg + COPY FILE adir.prg TO LPT1 $STATUS$ R $COMPLIANCE$ @@ -989,7 +978,7 @@ nH := FOpen( "test.txt" ) ? FReadStr( nH, 80 ) IF hb_FEof( nH ) - ? "End-of-file reached." + ? "End-of-file reached" ELSE ? FReadStr( nH, 80 ) ENDIF @@ -1029,7 +1018,7 @@ $EXAMPLES$ cDir := ".\backup" IF DirRemove( cDir ) == 0 - ? "Remove of directory", cDir, "was successfull" + ? "Remove of directory", cDir, "was successful" ENDIF $STATUS$ R @@ -1069,7 +1058,7 @@ description of the error. $EXAMPLES$ IF DirChange( "\temp" ) == 0 - ? "Change to diretory was successfull" + ? "Change to diretory was successful" ENDIF $STATUS$ R @@ -1144,12 +1133,12 @@ .T. is the drive is ready, otherwise .F. $DESCRIPTION$ This function attempts to access a drive. If the access to the drive - was successfull, it will return true (.T.), otherwise false(.F.). This + was successful, it will return true (.T.), otherwise false(.F.). This function is usefull for backup function, so you can determine if the drive that will receive the backup data is ready or not. $EXAMPLES$ IF IsDisk( "A" ) - ? "Drive is ready " + ? "Drive is ready" ENDIF $STATUS$ R diff --git a/doc/en/garbage.txt b/doc/en/garbage.txt index 5fe37b10e5..c0c57e9783 100644 --- a/doc/en/garbage.txt +++ b/doc/en/garbage.txt @@ -17,16 +17,16 @@ or circular references ( a[ 1 ] := b; b[ 1 ] := c; c[ 1 ] := a ) that cannot be properly deallocated by simple reference counting. - Since all variables in harbour are stored inside some available tables + Since all variables in Harbour are stored inside some available tables (the eval stack, memvars table and array of static variables) then checking if the reference is still alive is quite easy and doesn't require any special treatment during memory allocation. Additionaly the garbage - collector is scanning some internal data used by harbour objects + collector is scanning some internal data used by Harbour objects implementation that also stores some values that can contain memory references. These data are used to initialize class instance variables and are stored in class shared variables. - In special cases when the value of a harbour variable is stored internally + In special cases when the value of a Harbour variable is stored internally in some static area (at C or assembler level), the garbage collector will be not able to scan such values since it doesn't know their location. This could cause some memory blocks to be released prematurely. To prevent the @@ -46,7 +46,7 @@ The idle state is a state when there is no real application code executed. For example, the user code is stopped for 0.1 of a second - during Inkey(0.1) - Harbour is checking the keyboard only + during Inkey( 0.1 ) - Harbour is checking the keyboard only during this time. It leaves however quite enough time for many other background tasks. One such background task can be looking for unreferenced memory blocks. @@ -81,15 +81,15 @@ with the same flag before the sweep step will start. See hb_gcCollectAll() and hb_gcItemRef() - Calling the garbage collector from harbour code + Calling the garbage collector from Harbour code ----------------------------------------------- - The garbage collector can be called directly from the harbour code. + The garbage collector can be called directly from the Harbour code. This is usefull in situations where there is no idle states available or the application is working in the loop with no user interaction and there is many memory allocations. See hb_gcAll() for explanation of how to call this function from your - harbour code. + Harbour code. $SEEALSO$ hb_gcAlloc(), hb_gcFree(), hb_gcCollectAll(), hb_gcItemRef(), hb_gcAll(), hb_idleState() $END$ @@ -125,12 +125,12 @@ $DESCRIPTION$ hb_gcAlloc() is used to allocate the memory that will be tracked by the garbage collector. It allows to properly release memory - in case of self-referencing or cross-referencing harbour level + in case of self-referencing or cross-referencing Harbour level variables. Memory allocated with this function should be released with hb_gcFree() function or it will be automatically deallocated by the GC if it is not locked or if it is not referenced by some - harbour level variable. + Harbour level variable. $STATUS$ C $COMPLIANCE$ diff --git a/doc/en/harbext.txt b/doc/en/harbext.txt index 696f0eeb65..1fcc60f52a 100644 --- a/doc/en/harbext.txt +++ b/doc/en/harbext.txt @@ -57,7 +57,7 @@ * The Harbour debugger provides new interesting classes: - - Class TDbWindow could be the foundation for a generic multiplatform + - Class TDbWindow could be the foundation for a generic multi-platform - Class TForm @@ -66,7 +66,7 @@ RTL enhanced functionality: --------------------------- - - hb_DiskSpace( , ) + - hb_vfDirSpace( , ) The second parameter is a Harbour (optional) parameter and indicates the type of diskinfo being requested. See en/diskspac.txt for info. diff --git a/doc/en/hashes.txt b/doc/en/hashes.txt index 92b06d269e..526d3a9cb4 100644 --- a/doc/en/hashes.txt +++ b/doc/en/hashes.txt @@ -1,9 +1,7 @@ /* * Hash table type and functions * - * Copyright 2009 April White - * - * Based on the content of hashfunc.c and hashes.c + * Copyright 2009 April White * Copyright 2007 Przemyslaw Czerpak * * This program is free software; you can redistribute it and/or modify @@ -65,6 +63,10 @@ can be of type: number, date, datetime, string, pointer entry value; can be of type: block, string, numeric, date/datetime, logical, nil, pointer, array, hash table + + Equivalent to: + hsTable := { => } + hsTable := { => , => , => } $RETURNS$ A hash table built from the initial key/value pairs $DESCRIPTION$ @@ -98,7 +100,7 @@ $SYNTAX$ hb_HHasKey( , ) -> lExists $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table a key value to be queried for; can be of type: number, date, datetime, string, pointer @@ -135,7 +137,7 @@ $SYNTAX$ hb_HPos( , ) -> nPosition $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table key for which its position is to be determined; can be of type: number, date, datetime, string, pointer @@ -174,7 +176,7 @@ $SYNTAX$ hb_HGet( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table key to be retrieve from the hash table; can be of type: number, date, datetime, string, pointer @@ -213,7 +215,7 @@ $SYNTAX$ hb_HGetDef( , , [] ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table key to be retrieve from the hash table; can be of type: number, date, datetime, string, pointer @@ -254,7 +256,7 @@ $SYNTAX$ hb_HSet( , , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table the key of the entry to be set; can be of type: number, date, datetime, string, pointer @@ -293,7 +295,7 @@ $SYNTAX$ hb_HDel( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table key to be removed from the hash table; can be of type: number, date, datetime, string, pointer @@ -330,7 +332,7 @@ $SYNTAX$ hb_HKeyAt( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table the position of an entry within the hash table that will be returned @@ -368,7 +370,7 @@ $SYNTAX$ hb_HValueAt( , , [] ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table the position of an entry within the hash table that will be returned @@ -408,7 +410,7 @@ $SYNTAX$ hb_HPairAt( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table the position of an entry within the hash table that will be returned @@ -445,7 +447,7 @@ $SYNTAX$ hb_HDelAt( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table the position of an entry within the hash table that will be deleted @@ -482,7 +484,7 @@ $SYNTAX$ hb_HKeys( ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table $RETURNS$ An array of all the hash table keys $DESCRIPTION$ @@ -516,7 +518,7 @@ $SYNTAX$ hb_HValues( ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table $RETURNS$ An array of all the hash values $DESCRIPTION$ @@ -550,7 +552,7 @@ $SYNTAX$ hb_HFill( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table fill value; can be of type: block, string, numeric, date/datetime, logical, nil, pointer, array, hash table $RETURNS$ @@ -586,7 +588,7 @@ $SYNTAX$ hb_HClone( ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table $RETURNS$ A cloned copy of the hash table $DESCRIPTION$ @@ -620,9 +622,9 @@ $SYNTAX$ hb_HCopy( , , [], [] ) -> $ARGUMENTS$ - a destination hash table, created by hb_Hash() + a destination hash table - a source hash table, created by hb_Hash() + a source hash table starting index, defaults to 1 if omitted @@ -660,9 +662,9 @@ $SYNTAX$ hb_HMerge( , , | ) -> $ARGUMENTS$ - a destination hash table, created by hb_Hash() + a destination hash table - a source hash table, created by hb_Hash() + a source hash table a code block that will be evaluated for each entry within the source hash table; the code block will be passed the entry key, value and @@ -706,7 +708,7 @@ $SYNTAX$ hb_HEval( , , [], [] ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table code block to be evaluated @@ -749,7 +751,7 @@ $SYNTAX$ hb_HScan( , , [], [, [] ) -> nPosition $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table to be located within the hash table @@ -792,7 +794,7 @@ $SYNTAX$ hb_HSort( ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table $RETURNS$ The hash table sorted @@ -828,7 +830,7 @@ $SYNTAX$ hb_HCaseMatch( , [] ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table a logical value indicating to turn on or off the 'case match' flag of the hash table @@ -867,7 +869,7 @@ $SYNTAX$ hb_HBinary( , [] ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table a logical value indicating to turn on or off the 'binary' flag of the hash table @@ -907,7 +909,7 @@ $SYNTAX$ hb_HAutoAdd( , [] ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table a logical value indicating to turn on or off the 'auto add' flag of the hash table @@ -947,7 +949,7 @@ $SYNTAX$ hb_HAllocate( , ) $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table number of items to preallocate in the hash table $DESCRIPTION$ @@ -981,7 +983,7 @@ $SYNTAX$ hb_HDefault( , ) -> $ARGUMENTS$ - a hash table, created by hb_Hash() + a hash table $RETURNS$ diff --git a/doc/en/hb_set.txt b/doc/en/hb_set.txt index ce70a2e790..5f8f378b3a 100644 --- a/doc/en/hb_set.txt +++ b/doc/en/hb_set.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 David G. Holm * Header file for the API * diff --git a/doc/en/hbinet.txt b/doc/en/hbinet.txt index ac1b768e62..a19a32f4ff 100644 --- a/doc/en/hbinet.txt +++ b/doc/en/hbinet.txt @@ -1,47 +1,8 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright (date unknown) Giancarlo Niccolai * Documentation for: Harbour INET API * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING.txt. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site https://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. + * See COPYING.txt for licensing terms. * */ @@ -165,7 +126,7 @@ $SYNTAX$ hb_inetClose( ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Returns 0 on success or -1 on error; on error, the error code is set; (actually, on success the socket error code is set to 1 -- socket closed ) @@ -210,7 +171,7 @@ $SYNTAX$ hb_inetFD( [, ] ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ @@ -246,7 +207,7 @@ $SYNTAX$ hb_inetstatus( ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Returns 1 (one) if the socket exists, -1 if it does not $DESCRIPTION$ @@ -280,7 +241,7 @@ $SYNTAX$ hb_inetErrorCode( ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Last error code $DESCRIPTION$ @@ -318,7 +279,7 @@ $SYNTAX$ hb_inetErrorDesc( ) -> cResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ System-dependant error string $DESCRIPTION$ @@ -354,7 +315,7 @@ $SYNTAX$ hb_inetClearError( ) $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $DESCRIPTION$ $EXAMPLES$ @@ -386,7 +347,7 @@ $SYNTAX$ hb_inetCount( ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Last socket operation character count $DESCRIPTION$ @@ -421,12 +382,12 @@ $SYNTAX$ hb_inetAddress( ) -> cResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Server address $DESCRIPTION$ Returns a string representing the remote server address in quad dot notation, - e.g. "192.168.1.1", or the local server address if the socket is server + e.g. "127.0.0.1", or the local server address if the socket is server side. TODO: have a version that returns a vector of 4 numbers. @@ -459,7 +420,7 @@ $SYNTAX$ hb_inetPort( ) -> cResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Port name the socket is bound to. $DESCRIPTION$ @@ -494,7 +455,7 @@ $SYNTAX$ hb_inetTimeout( [, ] ) -> nPreviousTimeout $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened is the new socket timeout value $RETURNS$ @@ -530,7 +491,7 @@ $SYNTAX$ hb_inetClearTimeout( ) $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $DESCRIPTION$ Clears the default timeout of the given socket. Default timeout is used in all blocking operations. @@ -563,7 +524,7 @@ $SYNTAX$ hb_inetTimeLimit( [, ) -> NIL $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ @@ -599,7 +560,7 @@ $SYNTAX$ hb_inetClearTimeLimit( ) $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $DESCRIPTION$ Clears the default time limit of the given socket. $EXAMPLES$ @@ -631,7 +592,7 @@ $SYNTAX$ hb_inetPeriodCallback( [, ] ) -> xPreviousCallback $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened xCallback a new periodic callback $RETURNS$ @@ -670,7 +631,7 @@ $SYNTAX$ hb_inetClearPeriodCallback( ) $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $DESCRIPTION$ $EXAMPLES$ @@ -702,7 +663,7 @@ $SYNTAX$ hb_inetGetSndBufSize( ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Returns the socket send buffer size or -1 if the socket is closed or an error occurs $DESCRIPTION$ @@ -736,7 +697,7 @@ $SYNTAX$ hb_inetGetRcvBufSize( ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Returns the socket receive buffer size or -1 if the socket is closed or an error occurs $DESCRIPTION$ @@ -770,7 +731,7 @@ $SYNTAX$ hb_inetSetSndBufSize( , ) -> nSize $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened nSize $RETURNS$ @@ -806,7 +767,7 @@ $SYNTAX$ hb_inetSetRcvBufSize( , nSize ) -> nSize $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened nSize $RETURNS$ @@ -842,7 +803,7 @@ $SYNTAX$ hb_inetRecv( , @, [ ] ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened is the target buffer and must be passed by reference @@ -894,7 +855,7 @@ $SYNTAX$ hb_inetRecvAll( , @, [ ] ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened is the target buffer and must be passed by reference @@ -936,7 +897,7 @@ $SYNTAX$ hb_inetRecvLine( [, @, [, [, ]]] ) -> cResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened must be passed by reference @@ -1000,7 +961,7 @@ $SYNTAX$ hb_inetRecvEndblock( [, [, @ [, [, ]]]] ) -> cResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened @@ -1045,7 +1006,7 @@ $SYNTAX$ hb_inetDataReady( , [ ] ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ @@ -1097,7 +1058,7 @@ $SYNTAX$ hb_inetSend( , [, ] ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened @@ -1148,7 +1109,7 @@ $SYNTAX$ hb_inetSendAll( , [, ] ) -> nResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened @@ -1193,11 +1154,11 @@ $DESCRIPTION$ Returns an array containing all the IP addresses associated with a given host name. The IP addressess returned by this funtion are strings in - quad dot notations, eg "192.168.1.1", and can be directly used into + quad dot notations, eg "127.0.0.1", and can be directly used into hb_inetConnectIP(). cName can be any string: valid DNS names (eg. - "www.myserver.com"), locally available names (e.g. "localhost" or + "example.org"), locally available names (e.g. "localhost" or windows Network Neighborhood names), or even IP addresses in quad dot notation. @@ -1335,7 +1296,7 @@ $ARGUMENTS$ An INET socket $RETURNS$ - a socket previously created / opened + a socket previously created / opened $DESCRIPTION$ Waits until a connection is available on a socket created with hb_inetServer(), returns a socket that can be used to communicate with the incoming client. @@ -1385,8 +1346,8 @@ (Second form has no return value) $DESCRIPTION$ Connects to a remote server described by cAddress, that can be in - quad dot notation (e.g. "192.168.1.1") or in DNS name (e.g. - "www.xharbour.org"), using the desired port. + quad dot notation (e.g. "127.0.0.1") or in DNS name (e.g. + "example.org"), using the desired port. hb_inetConnect() uses "gethostbyname" C system call to find the network address of the specified server; this means that @@ -1448,7 +1409,7 @@ (Second form has no return value) $DESCRIPTION$ Connects to a remote server described by cAddress, that can be specified - only in quad dot IPV4 notation (e.g. "127.0.0.1"), using the desired port. + only in quad dot IPv4 notation (e.g. "127.0.0.1"), using the desired port. This version of hb_inetConnect() does not use gethostbyname, and thus is thread safe and can be used in combination with hb_inetGetHosts() to have a finer timeout control while connecting to a server, and a finer error control. @@ -1581,7 +1542,7 @@ $SYNTAX$ hb_inetDGramSend( , , , [, ] ) -> nBytesSent $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened @@ -1642,7 +1603,7 @@ $SYNTAX$ hb_inetDGramRecv( , @ [, ] ) -> nBytesRead $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened is the target buffer and must be passed by reference @@ -1720,7 +1681,7 @@ $SYNTAX$ hb_inetIsSocket( ) -> lResult $ARGUMENTS$ - a socket previously created / opened + a socket previously created / opened $RETURNS$ Returns whether the passed parameter is a socket $DESCRIPTION$ diff --git a/doc/en/hvm.txt b/doc/en/hvm.txt index 6012a41d79..8ec6a33d92 100644 --- a/doc/en/hvm.txt +++ b/doc/en/hvm.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Jose Lanin * Documentation for: ProcLine(), ProcFile(), ProcName() * @@ -363,7 +361,7 @@ $RETURNS$ A value that was returned from called function. $DESCRIPTION$ - This function can be called either by the harbour compiler or by user. + This function can be called either by the Harbour compiler or by user. The compiler always passes the item of IT_SYMBOL type that stores the name of procedure specified in DO WITH ... statement. diff --git a/doc/en/idle.txt b/doc/en/idle.txt index ed15812842..7637cb467b 100644 --- a/doc/en/idle.txt +++ b/doc/en/idle.txt @@ -8,7 +8,7 @@ $ONELINER$ Read me file for Idle States $DESCRIPTION$ - The idle state is the state of the harbour virtual machine when it + The idle state is the state of the Harbour virtual machine when it waits for the user input from the keyboard or the mouse. The idle state is entered during Inkey() calls currently. All applications that don't use Inkey() function call can signal the idle states with diff --git a/doc/en/input.txt b/doc/en/input.txt index 35fb4302e5..2559f6ca9b 100644 --- a/doc/en/input.txt +++ b/doc/en/input.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem * Documentation for: ReadKey() * @@ -178,8 +176,8 @@ be inserted. $EXAMPLES$ // Stuff an Alt+PgDn key into the keyboard buffer - hb_keyPut( K_ALT_PGDN ) ; ? Inkey() // ==> 417 - hb_keyPut( K_F11 ) ; ? Inkey() // ==> -40 + hb_keyPut( K_ALT_PGDN ); ? Inkey() // ==> 417 + hb_keyPut( K_F11 ); ? Inkey() // ==> -40 $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/lang.txt b/doc/en/lang.txt index c20496cf12..4a8bcd540b 100644 --- a/doc/en/lang.txt +++ b/doc/en/lang.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Luiz Rafael Culik * Documentation for: hb_langName(), hb_langSelect() * @@ -137,13 +135,13 @@ ? hb_langName( "" ) hb_langSelect( "pt" ) // Default language is now Portuguese ? CDoW( Date() ) // Segunda-feira - ? "Current language is ", hb_langName() // Portuguese - ? "Old language id selected is ", hb_langSelect() // PT + ? "Current language is", hb_langName() // Portuguese + ? "Old language id selected is", hb_langSelect() // PT hb_langSelect( "ro" ) // Default language is now Romanian ? CMonth( Date() ) // Mai - ? "Old language id selected is ", hb_langSelect() // RO + ? "Old language id selected is", hb_langSelect() // RO hb_langSelect( "es" ) // Default language is now Spanish - ? "Current language is ", hb_langName() // Spanish + ? "Current language is", hb_langName() // Spanish ? CMonth( Date() ) // Mayo ? CDoW( Date() ) // Lunes RETURN @@ -235,10 +233,10 @@ PROCEDURE Main() hb_langSelect( "pt" ) // Default language is now Portuguese ? CDoW( Date() ) // Segunda-feira - ? "Old language id selected is ", hb_langSelect() // PT + ? "Old language id selected is", hb_langSelect() // PT hb_langSelect( "ro" ) // Default language is now Romanian ? CMonth( Date() ) // Mai - ? "Old language id selected is ", hb_langSelect() // RO + ? "Old language id selected is", hb_langSelect() // RO hb_langSelect( "es" ) // Default language is now Spanish ? CMonth( Date() ) // Mayo ? CDoW( Date() ) // Lunes @@ -293,12 +291,11 @@ German ISO-8859-1 DEWIN Greek 737 EL Greek Windows-1253 ELWIN - Hungarian (ntxhu852) 852 HU852 - Hungarian (sixhu852) 852 HU852S - Hungarian (ntxhu852) ISO-8859-2 HUISO - Hungarian (sixhu852) ISO-8859-2 HUISOS - Hungarian (ntxhu852) Windows-1250 HUWIN - Hungarian (sixhu852) Windows-1250 HUWINS + Hungarian (ntxhu852) 852 HU852C + Hungarian (sixhu852) 852 HU852 + Hungarian (sixhu852) CWI-2 HUCWI + Hungarian ISO-8859-2 HUISO + Hungarian Windows-1250 HUWIN Italian 437 IT437 Italian 850 IT850 Italian ISO-8859-1b ITISB diff --git a/doc/en/macro.txt b/doc/en/macro.txt index 5fd70d519a..9a0afee41b 100644 --- a/doc/en/macro.txt +++ b/doc/en/macro.txt @@ -47,7 +47,7 @@ some of them allows to keep strict CA-Cl*pper compatibility. Available features are: - HB_SM_HARBOUR - enables harbour extensions: + HB_SM_HARBOUR - enables Harbour extensions: operators: ++, --, +=, -=, *=, /=, ^= objects: assigments to an instance variable diff --git a/doc/en/math.txt b/doc/en/math.txt index d4c6f85cd9..64e7923a26 100644 --- a/doc/en/math.txt +++ b/doc/en/math.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Luiz Rafael Culik * Documentation for: Abs(), Exp(), Log(), Int(), Max() * Min(), Sqrt(), Round() @@ -115,7 +113,7 @@ upward or downward; it merely truncates a number at the decimal point. $EXAMPLES$ - SET DECIMAL TO 5 + Set( _SET_DECIMALS, 5 ) ? Int( 632512.62541 ) ? Int( 845414111.91440 ) $STATUS$ @@ -307,11 +305,10 @@ The square root of . $DESCRIPTION$ This function returns the square root of . The precision - of this evaluation is based solely on the settings of the - SET DECIMAL TO command. Any negative number passed as - will always return a 0. + of this evaluation is based solely on the setting of _SET_DECIMALS. + Any negative number passed as will always return a 0. $EXAMPLES$ - SET DECIMAL TO 5 + Set( _SET_DECIMALS, 5 ) ? Sqrt( 632512.62541 ) ? Sqrt( 845414111.91440 ) $STATUS$ @@ -471,7 +468,7 @@ $SUBCATEGORY$ Math $ONELINER$ - Check if harbour math error handling is available + Check if Harbour math error handling is available $SYNTAX$ C Prototype @@ -509,7 +506,7 @@ $SUBCATEGORY$ Math $ONELINER$ - set the harbour math handler + set the Harbour math handler $SYNTAX$ C Prototype diff --git a/doc/en/memo.txt b/doc/en/memo.txt index ce87df52b0..8840fe7095 100644 --- a/doc/en/memo.txt +++ b/doc/en/memo.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Jose Lalin * MemoTran() documentation * HardCR() documentation @@ -137,7 +135,7 @@ cString := MemoRead( cFile ) cCopyright := "Melina" - IF At( "Melina", cString ) == 0 // check for copyright + IF ! cCopyright $ cString // check for copyright MemoWrit( cFile, cCopyright + cString ) // if not, add it! ENDIF $STATUS$ @@ -207,7 +205,7 @@ cString := hb_MemoRead( cFile ) cCopyright := "Melina" - IF At( "Melina", cString ) == 0 // check for copyright + IF ! cCopyright $ cString // check for copyright hb_MemoWrit( cFile, cCopyright + cString ) // if not, add it! ENDIF $STATUS$ @@ -252,10 +250,6 @@ If you not specified a path, MemoWrit() writes to the current directory. If exists, it is overwritten. - There is a third parameter (optional), , (not found in - CA-Cl*pper) which let to programmer change the default behavior of - - always - to write the EOF character, Chr( 26 ) as in CA-Cl*pper. - MemoWrit() function is used together with MemoRead() and MemoEdit() to save to disk text from several sources that was edited, searched, replaced, displayed, etc. @@ -268,7 +262,7 @@ cFile := "account.prg" cString := MemoRead( cFile ) - IF At( "Melina", cString ) == 0 // check for copyright + IF ! cCopyright $ cString // check for copyright MemoWrit( cFile, cCopyright + cString ) // if not, add it! ENDIF $STATUS$ @@ -296,7 +290,7 @@ $ONELINER$ Write a memo field or character string to a text file on disk $SYNTAX$ - hb_MemoWrit( , , [] ) --> lSuccess + hb_MemoWrit( , ) --> lSuccess $ARGUMENTS$ is the filename to be written to disk. It must include the file extension. If file to be read @@ -304,10 +298,6 @@ Is the memo field or character string, to be write to . - - Is a logic variable that settle if the "end of file" - character - Chr( 26 ) - is written to disk. - This parameter is optional. By default is true (.T.) $RETURNS$ Function returns true (.T.) if the writing operation was successful; otherwise, it returns false (.F.). @@ -317,15 +307,6 @@ If you not specified a path, hb_MemoWrit() writes to the current directory. If exists, it is overwritten. - There is a third parameter (optional), , (not found in - CA-Cl*pper) which let to programmer change the default behavior of - - always - to write the EOF character, Chr( 26 ) as in CA-Cl*pper. - - If there is no third parameter, nothing change, EOF is written as - in CA-Cl*pper, the same occurs when is set to .T. - But, if is set to .F., EOF char is Not written to the - end of the file. - hb_MemoWrit() function is used together with hb_MemoRead() and MemoEdit() to save to disk text from several sources that was edited, searched, replaced, displayed, etc. @@ -342,7 +323,7 @@ cString := hb_MemoRead( cFile ) cCopyright := "Melina" - IF At( "Melina", cString ) == 0 // check for copyright + IF ! cCopyright $ cString // check for copyright hb_MemoWrit( cFile, cCopyright + cString ) // if not, add it! ENDIF $STATUS$ diff --git a/doc/en/memvar.txt b/doc/en/memvar.txt index ab98157b08..f36e563d9e 100644 --- a/doc/en/memvar.txt +++ b/doc/en/memvar.txt @@ -29,12 +29,14 @@ a macro expression. $EXAMPLES$ PROCEDURE Main() + FIELD Id FIELD Name - USE tests NEW + USE test.dbf NEW Name := "Sales" Id := 5 - USE + dbCloseArea() + RETURN $STATUS$ R @@ -85,12 +87,13 @@ PARAMETERS, MEMVAR, STATIC and FIELD, may precede the LOCAL command. LOCAL array reference may not be initialized (i.e., assigned values) - on the same command line as the LOCAL command statement. This can be + on the same command-line as the LOCAL command statement. This can be done later in the program. LOCAL variables and arrays are not affected by the RELEASE command. $EXAMPLES$ PROCEDURE Main() + LOCAL n, lVar n := iif( lVar, "A", 3 ) diff --git a/doc/en/menu.txt b/doc/en/menu.txt index 2322ef7bf6..2e05104d7c 100644 --- a/doc/en/menu.txt +++ b/doc/en/menu.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem * Documentation for: __AtPrompt(), @...PROMPT, __MenuTo(), MENU TO * @@ -79,8 +77,9 @@ IF nChoice == 0 ? "You did not choose an item" ELSE - ? "You chose element " + hb_ntos( nChoice ) - ?? " which has a value of " + aItems[ nChoice ] + ? ; + "You chose element", hb_ntos( nChoice ), ; + "which has a value of", aItems[ nChoice ] ENDIF $FILES$ Library is core diff --git a/doc/en/misc.txt b/doc/en/misc.txt index b0797ef03a..e0b03ce18d 100644 --- a/doc/en/misc.txt +++ b/doc/en/misc.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Chen Kedem * Documentation for: Tone() * @@ -46,17 +44,17 @@ $SUBCATEGORY$ Environment $ONELINER$ - Returns the HARBOUR Version or the Harbour/Compiler Version. + Returns the version of Harbour compiler $SYNTAX$ Version() --> $ARGUMENTS$ None $RETURNS$ - String containing the Harbour Version + String containing the Harbour version $DESCRIPTION$ - This function returns the current Harbour Version. + This function returns the current Harbour version. $EXAMPLES$ - ? Version() // "Harbour Terminal: Standard stream console" + ? Version() $STATUS$ S $COMPLIANCE$ diff --git a/doc/en/nation.txt b/doc/en/nation.txt index f99da11494..6a90c2df88 100644 --- a/doc/en/nation.txt +++ b/doc/en/nation.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Jose Lalin * IsAffirm() documentation * IsNegative() documentation @@ -88,7 +86,7 @@ $TEMPLATE$ Function $NAME$ - Language and Nation MSG() + NationMsg() $CATEGORY$ API $SUBCATEGORY$ @@ -96,15 +94,15 @@ $ONELINER$ Returns international strings messages. $SYNTAX$ - Language and Nation MSG( ) --> + NationMsg( ) --> $ARGUMENTS$ is the message number you want to get. $RETURNS$ - If is a valid message selector, returns the message. - If is nil returns "Invalid Argument", and if is any + if is a valid message selector, returns the message. + If is NIL, it returns "Invalid Argument", and if is any other type it returns an empty string. $DESCRIPTION$ - Language and Nation MSG() returns international message descriptions. + NationMsg() returns international message descriptions. $EXAMPLES$ // Displays "Sure Y/N: " and waits until user enters Y // Y/N is the string for NationMsg( 12 ) with default natmsg module. diff --git a/doc/en/objfunc.txt b/doc/en/objfunc.txt index a9eb44fe0f..3507453fa3 100644 --- a/doc/en/objfunc.txt +++ b/doc/en/objfunc.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999-2000 Chen Kedem * Documentation for: __objHasData(), __objHasMethod(), __objGetMsgList(), * __objGetMethodList(), __objGetValueList(), @@ -147,14 +145,14 @@ aData := __objGetMsgList( oB, .T. ) aClassData := __objGetMsgList( oB, .T., HB_MSGLISTCLASS ) aMethod := __objGetMsgList( oB, .F. ) - FOR i := 1 TO Len( aData ) - ? "VAR name:", aData[ i ] + FOR EACH x IN aData + ? "VAR name:", x NEXT - FOR i := 1 TO Len( aClassData ) - ? "CLASS VAR name:", aClassData[ i ] + FOR EACH x IN aClassData + ? "CLASS VAR name:", x NEXT - FOR i := 1 TO Len( aMethod ) - ? "METHOD name:", aMethod[ i ] + FOR EACH x IN aMethod + ? "METHOD name:", x NEXT $STATUS$ R @@ -194,9 +192,8 @@ $EXAMPLES$ // show information about TBrowse class oB := TBrowseNew( 0, 0, 24, 79 ) - aMethod := __objGetMethodList( oB ) - FOR i := 1 TO Len( aMethod ) - ? "METHOD name:", aMethod[ i ] + FOR EACH s IN __objGetMethodList( oB ) + ? "METHOD name:", s NEXT $STATUS$ R @@ -240,10 +237,10 @@ $EXAMPLES$ // show information about TBrowse class oB := TBrowseNew( 0, 0, 24, 79 ) - aData := __objGetValueList( oB ) - FOR i := 1 TO Len( aData ) - ? "VAR name:", aData[ i, HB_OO_DATA_SYMBOL ], ; - " value=", aData[ i, HB_OO_DATA_VALUE ] + FOR EACH i IN __objGetValueList( oB ) + ? ; + "VAR name:", i[ HB_OO_DATA_SYMBOL ], ; + " value=", i[ HB_OO_DATA_VALUE ] NEXT $STATUS$ R @@ -773,7 +770,7 @@ METHOD New() INLINE Self ENDCLASS - CREATE CLASS THappy FROM TMood + CREATE CLASS THappy INHERIT TMood METHOD Smile() INLINE QOut( "*smile*" ) ENDCLASS diff --git a/doc/en/rdd.txt b/doc/en/rdd.txt index 596345d741..05fe18f9c7 100644 --- a/doc/en/rdd.txt +++ b/doc/en/rdd.txt @@ -1,10 +1,3 @@ -/* - * The following parts are Copyright of the individual authors. - * - * See COPYING.txt for licensing terms. - * - */ - /* NOTE: I deleted all the information in this file due to copyright violation! 2004-4-19 [ckedem]. diff --git a/doc/en/rdddb.txt b/doc/en/rdddb.txt index 1807a9ff25..48e379da67 100644 --- a/doc/en/rdddb.txt +++ b/doc/en/rdddb.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Luiz Rafael Culik * db*() documentation * ord*() documentation @@ -149,8 +147,8 @@ LOCAL cName := "Harbour", nId := 10 USE test test->( dbAppend() ) - REPLACE test->Name WITH cName, test->Id WITH nId - USE + test->Name := cName + test->Id := nId RETURN $STATUS$ R @@ -184,10 +182,9 @@ $EXAMPLES$ PROCEDURE Main() USE test - SET FILTER TO Left( test->Name, 2 ) == "An" + SET FILTER TO hb_LeftEq( test->Name, "An" ) dbEdit() Test->( dbClearFilter() ) - USE RETURN $STATUS$ R @@ -226,7 +223,6 @@ USE test1 NEW dbEdit() dbCloseAll() - USE RETURN $STATUS$ R @@ -260,7 +256,6 @@ USE test dbEdit() Test->( dbCloseArea() ) - USE RETURN $STATUS$ R @@ -295,17 +290,18 @@ PROCEDURE Main() LOCAL cName := Space( 40 ) LOCAL nId := 0 + USE test EXCLUSIVE NEW - // + @ 10, 10 GET cName @ 11, 10 GET nId READ - // + IF Updated() - APPEND BLANK - REPLACE tests->Name WITH cName - REPLACE tests->Id WITH nId - tests->( dbCommit() ) + dbAppend() + test->Name := cName + test->Id := nId + dbCommit() ENDIF RETURN $STATUS$ @@ -340,20 +336,21 @@ PROCEDURE Main() LOCAL cName := Space( 40 ) LOCAL nId := 0 + USE test EXCLUSIVE NEW USE testid NEW INDEX testid - // + @ 10, 10 GET cName @ 11, 10 GET nId READ - // + IF Updated() - APPEND BLANK - REPLACE tests->Name WITH cName - REPLACE tests->Id WITH nId + dbAppend() + test->Name := cName + test->Id := nId IF ! testid->( dbSeek( nId ) ) - APPEND BLANK - REPLACE tests->Id WITH nId + testid->( dbAppend() ) + testid->Id := nId ENDIF ENDIF dbCommitAll() @@ -414,7 +411,7 @@ - The second subscript value in the second dimension-which contains the field data type-must contain a proper value: C, D, L, M or N - It is possible to use additional letters (or clarity (e.g., 'Numeric' + It is possible to use additional letters for clarity (e.g., 'Numeric' for 'N'): however, the first letter of this array element must be a proper value. @@ -438,7 +435,7 @@ database. $EXAMPLES$ PROCEDURE Main() - LOCAL nI, aStruct := { ; + LOCAL aStruct := { ; { "CHARACTER", "C", 25, 0 }, ; { "NUMERIC", "N", 8, 0 }, ; { "DOUBLE", "N", 8, 2 }, ; @@ -488,12 +485,9 @@ $EXAMPLES$ nId := 10 USE testid INDEX testid NEW - IF testid->( dbSeek( nId ) ) - IF testid->( RLock() ) - dbDelete() - ENDIF + IF dbSeek( nId ) .AND. RLock() + dbDelete() ENDIF - USE $STATUS$ R $COMPLIANCE$ @@ -529,8 +523,8 @@ SET FILTER TO Name == "Harbour" USE testid INDEX testid NEW SET FILTER TO Id == 1 - SELECT Test - // + SELECT test + ? dbFilter() ? testid->( dbFilter() ) $STATUS$ @@ -564,12 +558,11 @@ condition. Otherwise, if no index is active or if no filter condition is present, the value of the record pointer will be LastRec(). $EXAMPLES$ - USE tests + USE test dbGoTop() ? RecNo() dbGoBottom() ? RecNo() - USE $STATUS$ R $COMPLIANCE$ @@ -607,14 +600,14 @@ is a unique primary key while in other formats, could be an array offset if the data set was an array. - Issuing a dbGoto(RecNo()) call in a network enviroment will refresh + Issuing a dbGoto( RecNo() ) call in a network enviroment will refresh the database and index buffers. This is the same as a dbSkip(0) call. $EXAMPLES$ - The following example uses dbGoto() TO iteratively process + The following example uses dbGoto() to iteratively process every fourth record: dbUseArea( .T., "DBFNTX", "sales", "sales", .T. ) - // + // toggle every fourth record DO WHILE ! Eof() dbGoto( RecNo() + 4 ) @@ -651,12 +644,11 @@ condition. Otherwise, if no index is active or if no filter condition is present, the value of RecNo() will be 1. $EXAMPLES$ - USE tests + USE test dbGoTop() ? RecNo() dbGoBottom() ? RecNo() - USE $STATUS$ R $COMPLIANCE$ @@ -696,7 +688,6 @@ ? Deleted() dbRecall() ? Deleted() - USE $STATUS$ R $COMPLIANCE$ @@ -734,14 +725,13 @@ item. $EXAMPLES$ PROCEDURE Main() - LOCAL x := 0 - USE tests NEW - FOR x := 1 TO RecCount() + LOCAL x + USE test NEW + FOR x := 1 TO LastRec() IF ! dbRLock() dbUnlock() ENDIF NEXT - USE $STATUS$ R $COMPLIANCE$ @@ -775,18 +765,16 @@ work area. $EXAMPLES$ PROCEDURE Main() - LOCAL aList := {} - LOCAL x := 0 - USE tests NEW + LOCAL aList, x + USE test NEW dbGoto( 10 ) RLock() dbGoto( 100 ) RLock() aList := dbRLockList() - FOR x := 1 TO Len( aList ) - ? aList[ x ] + FOR EACH x IN aList + ? x NEXT - USE RETURN $STATUS$ R @@ -821,13 +809,12 @@ unlocked $EXAMPLES$ PROCEDURE Main() - USE tests NEW + USE test NEW dbGoto( 10 ) IF RLock() - ? tests->ID + ? test->ID dbRUnlock() ENDIF - USE RETURN $STATUS$ R @@ -885,16 +872,13 @@ is a logical false (.F.) $EXAMPLES$ PROCEDURE Main() - USE tests NEW INDEX tests + USE test NEW INDEX test dbGoto( 10 ) - nId := tests->nId - IF tests->( dbSeek( nId ) ) - IF RLock() - ? tests->Name - dbRUnlock() - ENDIF + nId := test->nId + IF dbSeek( nId ) .AND. RLock() + ? test->Name + dbRUnlock() ENDIF - USE RETURN ACCEPT "Employee name: " TO cName @@ -935,20 +919,20 @@ select the numeric work area; if is character, then it will select the work area with the alias name. - dbSelectArea(0) will select the next avaliable and unused work area. + dbSelectArea( 0 ) will select the next avaliable and unused work area. Up to 255 work areas are supported. Each work area has its own alias and record pointer, as well as its own Found(), dbFilter(), dbRSelect() and dbRelation() function values. $EXAMPLES$ PROCEDURE Main() LOCAL nId - USE tests NEW INDEX tests - USE tests1 NEW INDEX tests1 + USE test NEW INDEX test + USE test1 NEW INDEX test1 dbSelectArea( 1 ) - nId := tests->Id + nId := test->Id dbSelectArea( 2 ) IF dbSeek( nId ) - ? tests1->cName + ? test1->cName ENDIF dbCloseAll() RETURN @@ -1017,18 +1001,17 @@ $DESCRIPTION$ This function moves the record pointer in the selected or aliased work area. The default value for will be 1. - A dbSkip(0) will flush and refresh the internal database bufer and + A dbSkip( 0 ) will flush and refresh the internal database bufer and make any changes made to the record visible without moving the record pointer in either direction. $EXAMPLES$ PROCEDURE Main() - USE tests NEW + USE test NEW dbGoTop() DO WHILE ! Eof() - ? tests->Id, tests->Name + ? test->Id, test->Name dbSkip() ENDDO - USE RETURN $STATUS$ R @@ -1067,8 +1050,8 @@ area which in fact, would be not correct. $EXAMPLES$ PROCEDURE Main() - USE tests NEW - dbSetFilter( {|| tests->Id < 100 }, "tests->Id <100" ) + USE test NEW + dbSetFilter( {|| test->Id < 100 }, "test->Id <100" ) dbGoTop() $STATUS$ R @@ -1099,20 +1082,19 @@ $DESCRIPTION$ This function returns a multidimensional array. This array has array pointers to other arrays, each of which contains the characteristic - of a field in the active work area. The lenght of this array is based + of a field in the active work area. The length of this array is based in the number of fields in that particular work area. In other words, - Len(dbStruct()) is equal to the value obtained from FCount(). + Len( dbStruct() ) is equal to the value obtained from FCount(). Each subscript position $EXAMPLES$ #include "dbstruct.ch" PROCEDURE Main() LOCAL aStru, x - USE tests NEW + USE test NEW aStru := dbStruct() - FOR x := 1 TO Len( aStru ) - ? aStru[ x ][ DBS_NAME ] + FOR EACH x IN aStru + ? x[ DBS_NAME ] NEXT - USE RETURN $STATUS$ R @@ -1153,7 +1135,6 @@ dbUnlock() ENDIF ENDIF - USE $STATUS$ R $COMPLIANCE$ @@ -1182,8 +1163,7 @@ This function will remove all file and record locks in all work area. $EXAMPLES$ nId := 10 - USE tests INDEX testid NEW - USE tests1 INDEX tests NEW + USE test INDEX testid NEW IF testid->( dbSeek( nId ) ) IF testid->( RLock() ) dbDelete() @@ -1193,7 +1173,6 @@ ELSE dbUnlockAll() ENDIF - USE $STATUS$ R $COMPLIANCE$ @@ -1218,7 +1197,7 @@ Opens a work area and uses a database file. $SYNTAX$ dbUseArea( [], [], , [], - [], []) + [], [] ) $ARGUMENTS$ A optional logical expression for the new work area @@ -1240,7 +1219,7 @@ the file that is opened. The default for this will be the value of dbSetDriver(). - IF used, contains the alias name for that work area, If not + If used, contains the alias name for that work area, If not specified, the root name of the database specified in will be used. @@ -1255,7 +1234,7 @@ If it is not specified, the file will he opened in normal read-write mode. $EXAMPLES$ - dbUseArea( .T.,, "tests" ) + dbUseArea( .T.,, "test" ) $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/rddmisc.txt b/doc/en/rddmisc.txt index e3966067dd..1cf3fd4674 100644 --- a/doc/en/rddmisc.txt +++ b/doc/en/rddmisc.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Luiz Rafael Culik * db*() documentation * ord*() documentation @@ -54,8 +52,8 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL aNames, aTypes, aLens, aDecs, nCount, nFields, i - USE Test + LOCAL nCount + USE test nCount := FCount() ? "Number of fields:", nCount @@ -72,12 +70,11 @@ aDecs := Array( nCount ) nFields := AFields( aNames, aTypes, aLens, aDecs ) - ? "Number of items :", nFields + ? "Number of items:", nFields FOR i := 1 TO nFields - ? i, PadR( aNames[ i ], 12 ), aTypes[ i ] - ?? aLens[ i ], aDecs[ i ] + ? i, PadR( aNames[ i ], 12 ), aTypes[ i ], aLens[ i ], aDecs[ i ] NEXT - ? + RETURN $STATUS$ R @@ -158,11 +155,11 @@ USE test NEW ? "Is Bof()", Bof() dbGoTop() - WHILE ! Bof() + DO WHILE ! Bof() dbSkip( -1 ) ENDDO ? "Is Bof()", Bof() - USE + dbCloseArea() RETURN $STATUS$ R @@ -198,9 +195,9 @@ In a network environment, any file that is about to be ZAPped must be used exclusively. $EXAMPLES$ - USE tests NEW INDEX tests + USE test NEW INDEX test ZAP - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ @@ -238,7 +235,7 @@ dbDelete() ? "Is Record Deleted", Test->( Deleted() ) dbRecall() - USE + dbCloseArea() RETURN $STATUS$ R @@ -278,11 +275,11 @@ dbGoTop() ? "Is Eof()", Eof() dbGoBottom() - WHILE ! Eof() + DO WHILE ! Eof() dbSkip() ENDDO ? "Is Eof()", Eof() - USE + dbCloseArea() RETURN $STATUS$ R @@ -316,9 +313,9 @@ return 0. $EXAMPLES$ PROCEDURE Main() - USE tests NEW - ? "This database have", tests->( FCount() ), "Fields" - USE + USE test NEW + ? "This database has", test->( FCount() ), "fields" + dbCloseArea() RETURN $STATUS$ R @@ -357,7 +354,7 @@ PROCEDURE Main() USE test NEW ? test->( FieldGet( 1 ) ) - USE + dbCloseArea() RETURN $STATUS$ R @@ -395,11 +392,11 @@ $EXAMPLES$ PROCEDURE Main() LOCAL x - USE tests NEW - FOR x := 1 TO tests->( FCount() ) - ? "Field Name", FieldName( x ) + USE test NEW + FOR x := 1 TO test->( FCount() ) + ? "Field Name:", FieldName( x ) NEXT - USE + dbCloseArea() RETURN $STATUS$ R @@ -438,7 +435,7 @@ PROCEDURE Main() USE test NEW ? test->( FieldPos( "ID" ) ) - USE + dbCloseArea() RETURN $STATUS$ R @@ -477,9 +474,9 @@ assigned to the specified field. If the operation is not successful, the function will return a NIL data type $EXAMPLES$ - USE tests NEW + USE test NEW FieldPut( 1, "Mr. Jones" ) - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ @@ -513,11 +510,11 @@ database. This function will also unlock all records locks placed by the same network station. $EXAMPLES$ - USE tests NEW + USE test NEW IF FLock() - SUM tests->Ammount + SUM test->Ammount ENDIF - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ @@ -553,12 +550,12 @@ areas by using an alias. $EXAMPLES$ nId := 100 - USE tests NEW INDEX tests + USE test NEW INDEX test SEEK nId IF Found() - ? tests->Name + ? test->Name ENDIF - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ @@ -593,7 +590,7 @@ functions, this functions is capable of implementing a backup and restore routine. $EXAMPLES$ - USE tests NEW + USE test NEW ? Header() $STATUS$ R @@ -628,7 +625,7 @@ in use in the selected or designated work area, this function will return a 0 value as well. $EXAMPLES$ - USE tests NEW + USE test NEW ? LastRec(), RecCount() $STATUS$ R @@ -666,9 +663,9 @@ only work for those database files in USE. $EXAMPLES$ PROCEDURE Main() - USE tests NEW + USE test NEW ? LUpdate() - USE + dbCloseArea() RETURN $STATUS$ R @@ -702,11 +699,11 @@ A value based on the success of a network operation or function. $DESCRIPTION$ - This function return a logical true (.T.) is a USE, APPEND BLANK, or + This function return a logical true (.T.) is a USE, dbAppend(), or a USE...EXCLUSIVE command is issue and fails in a network environment. In the case of USE and USE...EXCLUSIVE commands, a NetErr() value of .T. would be returned if another node of the network has the - exclusive use of a file. And the case of the APPEND BLANK command, + exclusive use of a file. And the case of the dbAppend() command, NetErr() will return a logical true (.T.) if the file or record is locked by another node or the value of LastRec() has been advanced The value of NetErr() may be changed via the value of . @@ -723,7 +720,7 @@ ? test->First ENDIF ENDIF - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ @@ -763,7 +760,7 @@ USE harbour NEW ? RecCount() ? Test->( RecCount() ) - CLOSE ALL + dbCloseAll() $STATUS$ R $COMPLIANCE$ @@ -799,7 +796,7 @@ If the database file is empty and if the RDD is the traditional .dbf file, the value of this function will be 1. $EXAMPLES$ - USE tests NEW + USE test NEW dbGoTop() RecNo() // Returns 1 dbGoto( 50 ) @@ -838,7 +835,7 @@ is in use in this work area, the return value from this function will be 0. $EXAMPLES$ - USE tests NEW + USE test NEW dbGoTop() RecSize() // Returns 1 dbGoto( 50 ) @@ -897,7 +894,7 @@ dbDelete() ENDIF ENDIF - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ @@ -931,7 +928,7 @@ name . If no parameter is specified, the current work area will be the return value of the function. $EXAMPLES$ - USE tests NEW + USE test NEW USE names NEW cOldArea := Select( "names" ) SELECT test @@ -971,14 +968,14 @@ along with this function , it will default to the currently selected work area. $EXAMPLES$ - USE tests NEW + USE test NEW USE names NEW ? Used() // .T. ? TESTS->( Used() ) //.T. - CLOSE - ? Used() // .F. - SELECT tests - ? Used() //.T. + dbCloseArea() + ? Used() // .F. + SELECT test + ? Used() // .T. $STATUS$ R $COMPLIANCE$ @@ -1014,11 +1011,11 @@ has completed its operation. On completion, the record pointer is placed on the first record in the database. $EXAMPLES$ - USE tests NEW INDEX tests + USE test NEW INDEX test dbGoto( 10 ) DELETE NEXT 10 PACK - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/rddord.txt b/doc/en/rddord.txt index 2371e5b9d1..74f71db390 100644 --- a/doc/en/rddord.txt +++ b/doc/en/rddord.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Luiz Rafael Culik * db*() documentation * ord*() documentation @@ -34,10 +32,10 @@ This function replaces the IndexOrd() function. $EXAMPLES$ - USE tests NEW VIA "DBFNTX" + USE test NEW VIA "DBFNTX" ? ordBagExt() // Returns .ntx dbCloseArea() - USE tests NEW VIA "DBFCDX" + USE test NEW VIA "DBFCDX" ? ordBagExt() // Returns .cdx dbCloseArea() $STATUS$ @@ -81,12 +79,12 @@ index name or index order number. If is not specified or is 0, the Current active order will be used. $EXAMPLES$ - USE tests VIA "DBFCDX" NEW - SET INDEX TO tests + USE test VIA "DBFCDX" NEW + SET INDEX TO test ordBagName( "TeName" ) // Returns: Customer ordBagName( "TeLast" ) // Returns: Customer ordBagName( "teZip" ) // Returns: Customer - SET ORDER TO TAG TeName + ordSetFocus( "TeName" ) ? OrderBagName() // Returns: Custumer $STATUS$ S @@ -205,11 +203,11 @@ added. It is does exist, then the replaces the former name in the order list in the current or specified work area. $EXAMPLES$ - USE tests VIA "DBFNDX" NEW - ordCreate( "FNAME",, "Tests->fName" ) + USE test VIA "DBFNDX" NEW + ordCreate( "FNAME",, "test->fName" ) - USE tests VIA "DBFCDX" NEW - ordCreate( , "lName", "tests->lName" ) + USE test VIA "DBFCDX" NEW + ordCreate( , "lName", "test->lName" ) $STATUS$ S $COMPLIANCE$ @@ -254,8 +252,8 @@ for those drivers with support multiple orders bags (e.q. DBFCDX and RDDADS drivers). $EXAMPLES$ - USE tests VIA "DBFCDX" NEW - ordDestroy( "lName", "tests" ) + USE test VIA "DBFCDX" NEW + ordDestroy( "lName", "test" ) $STATUS$ S $COMPLIANCE$ @@ -297,12 +295,9 @@ numeric which represent the position in the order list of the desired Order. $EXAMPLES$ - USE tests NEW VIA "DBFCDX" - INDEX ON tests->ID ; - TO tests ; - FOR tests->ID > 100 - - ordFor( "tests" ) // Returns: tests->ID > 100 + USE test NEW VIA "DBFCDX" + INDEX ON field->ID TO test FOR field->ID > 100 + ordFor( "test" ) // Returns: field->ID > 100 $STATUS$ S $COMPLIANCE$ @@ -341,15 +336,13 @@ $DESCRIPTION$ $EXAMPLES$ - USE tests NEW VIA "DBFCDX" - INDEX ON tests->fName ; - TO tests ; - FOR tests->fName > "CK" - INDEX ON tests->Id TO TestId + USE test NEW VIA "DBFCDX" + INDEX ON field->fName TO test FOR field->fName > "CK" + INDEX ON field->Id TO testid - ordKey( "tests" ) // Returns: tests->fName - SET ORDER TO 2 - ordKey() // Returns: tests->Id + ordKey( "test" ) // Returns: field->fName + ordSetFocus( 2 ) + ordKey() // Returns: field->Id $STATUS$ S $COMPLIANCE$ @@ -431,7 +424,7 @@ corresnponding index key at the specified order position, a NULL byte will be returned. $EXAMPLES$ - USE tests NEW INDEX test1 + USE test NEW INDEX test1 ? IndexKey( 1 ) $STATUS$ R @@ -469,7 +462,7 @@ A returned value of 0 indicated that no active index is controlling the database, which therefore is in the natural order. $EXAMPLES$ - USE tests NEW INDEX test1 + USE test NEW INDEX test1 IF IndexOrd() > 0 ? "Current order is", IndexOrd() ENDIF diff --git a/doc/en/set.txt b/doc/en/set.txt index 719e3a3815..f83eca2a84 100644 --- a/doc/en/set.txt +++ b/doc/en/set.txt @@ -1,10 +1,8 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 David G. Holm * Documentation for: Set(), __SetCentury() * - * Copyright 1999 April White + * Copyright 1999 April White * Documentation for: SetKey(), hb_SetKeyGet(), hb_SetKeySave(), * hb_SetKeyCheck(), SET KEY * @@ -359,7 +357,7 @@ Specifies a path of directories to search through to locate a file that can't be located in the DEFAULT directory. Defaults to no path (""). Directories must - be separated by a semicolon (e.g., "C:\data;C:\more"). + be separated by a semicolon (e.g., "C:\hb\bin;C:\hb\tests"). _SET_PRINTER | @@ -871,7 +869,7 @@ parameters with this command will default the operation to the current logged drive and directory. $EXAMPLES$ - SET DEFAULT TO C:\temp + SET DEFAULT TO C:\hb\tests $STATUS$ R $COMPLIANCE$ @@ -978,7 +976,7 @@ search hierarchy is: 1 Current drive and directory, 2 The SET DEFAULT path; 3 The SET PATH path. $EXAMPLES$ - SET PATH TO C:\harbour\test + SET PATH TO C:\hb\tests $STATUS$ R $COMPLIANCE$ @@ -1054,7 +1052,7 @@ $EXAMPLES$ SET ALTERNATE TO test.txt SET ALTERNATE ON - ? 'Harbour' + ? "Harbour" ? "is" ? "Power" SET ALTERNATE TO @@ -1210,12 +1208,12 @@ Addition Same as operand with the greatest number of decimal digits Subtraction Same as operand with the greatest number of decimal digits Multiplication Sum of operand decimal digits - Division Determined by SET DECIMAL TO - Exponential Determined by SET DECIMAL TO - Log() Determined by SET DECIMAL TO - Exp() Determined by SET DECIMAL TO - Sqrt() Determined by SET DECIMAL TO - Val() Determined by SET DECIMAL TO + Division Determined by SET DECIMALS TO + Exponential Determined by SET DECIMALS TO + Log() Determined by SET DECIMALS TO + Exp() Determined by SET DECIMALS TO + Sqrt() Determined by SET DECIMALS TO + Val() Determined by SET DECIMALS TO $EXAMPLES$ SET FIXED ON diff --git a/doc/en/setmode.txt b/doc/en/setmode.txt index fc586efd9f..6a474a6386 100644 --- a/doc/en/setmode.txt +++ b/doc/en/setmode.txt @@ -55,16 +55,16 @@ $EXAMPLES$ // The first example change to a 12 lines of display mode: IF SetMode( 12, 40 ) - ? "Hey man are you blind ?" + ? "Hey man are you blind?" ELSE - ? "Mom bring me my glasses!" + ? "Mom, bring me my glasses!" ENDIF // Next example change to a 50 lines mode: IF SetMode( 50, 80 ) ? "This wonderful mode was successfully set" ELSE - ? "Wait. this monitor are not made in rubber !" + ? "Wait. this monitor is not made of rubber!" ENDIF $STATUS$ R diff --git a/doc/en/string.txt b/doc/en/string.txt index 2ae3800e0b..241b1f2199 100644 --- a/doc/en/string.txt +++ b/doc/en/string.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Jose Lalin * Documentation for: Descend() * @@ -37,8 +35,8 @@ in is an alphabetic character. If not, the function will return a logical false (.F.). $EXAMPLES$ - ? 'IsAlpha( "hello" ) = ', IsAlpha( "hello" ) - ? 'IsAlpha( "12345" ) = ', IsAlpha( "12345" ) + ? IsAlpha( "hello" ) + ? IsAlpha( "12345" ) $STATUS$ R $COMPLIANCE$ @@ -226,8 +224,7 @@ the first string . If the substring is not contained within the second expression, the function will return 0. $EXAMPLES$ - ? 'At( "cde", "abcdefgfedcba" ) = ' + ; - Str( At( "cde", "abcdefgfedcba" ) ) // 3 + ? At( "cde", "abcdefgfedcba" ) // 3 $STATUS$ R $COMPLIANCE$ @@ -271,10 +268,8 @@ the second expression, the function will return 0. The third and fourth parameters lets you indicate a starting and end offset to search in. $EXAMPLES$ - ? 'hb_At( "cde", "abcdefgfedcba" ) = ' + ; - Str( hb_At( "cde", "abcdefgfedcba" ) ) // 3 - ? 'hb_At( "cde", "abcdefgfedcba" ) = ' + ; - Str( hb_At( "cde", "abcdefgfedcba", 4 ) ) // 0 + ? hb_At( "cde", "abcdefgfedcba" ) // 3 + ? hb_At( "cde", "abcdefgfedcba", 4 ) // 0 $STATUS$ R $COMPLIANCE$ @@ -316,10 +311,8 @@ If the function is unable to find any occurrence of in , the return value is 0. $EXAMPLES$ - ? 'RAt( "cde", "abcdefgfcdeedcba" ) = ' + ; - hb_ntos( RAt( "cde", "abcdefgfcdeedcba" ) ) // 9 - ? 'RAt( "cdr", "abcdefgfedcba" ) = ' + ; - hb_ntos( RAt( "cdr", "abcdefgfedcba" ) ) // 0 + ? hb_ntos( RAt( "cde", "abcdefgfcdeedcba" ) ) // 9 + ? hb_ntos( RAt( "cdr", "abcdefgfedcba" ) ) // 0 $STATUS$ R $COMPLIANCE$ @@ -365,25 +358,21 @@ If 3rd and 4th parameters is not specified, then hb_RAt() is equal to RAt(). $EXAMPLES$ - LOCAL cString - LOCAL cSearch - LOCAL i, y, r, nLen + LOCAL cString := "acdefcdeedcb" + LOCAL cSearch := "cde" + LOCAL i, y, r + LOCAL nLen := Len( cString ) - ? 'hb_RAt( "cde", "abcdefgfedcba" ) = ', ; - hb_RAt( "cde", "abcdefgfedcba" ) // -> 3 - - cString := "acdefcdeedcb" - cSearch := "cde" - nLen := Len( cString ) FOR y := 1 TO nLen FOR i := 1 TO nLen - r := hb_RAt( cSearch, cString, y, i ) - IF r != 0 - ? 'hb_RAt( "' + cSearch + '", "' + cString + '", ' + hb_ntos( y ) + ', ' + hb_ntos( i ) + ' ) = ' + ; - hb_ntos( r ) + IF ( r := hb_RAt( cSearch, cString, y, i ) ) > 0 + ? 'hb_RAt( "' + cSearch + '", "' + cString + '",', hb_ntos( y ) + ",", hb_ntos( i ), ") =", ; + hb_ntos( r ) ENDIF NEXT NEXT + + ? hb_RAt( cSearch, "abcdefgfedcba" ) // -> 3 $STATUS$ R $COMPLIANCE$ @@ -459,7 +448,7 @@ This functions returns the rightmost characters of . It is equivalent to the following expressions: - SubStr( , - ) + SubStr( , - ) SubStr( , Len( ) - + 1, ) $EXAMPLES$ @@ -510,9 +499,9 @@ characters from to the end of the string is less than the rest are ignored. $EXAMPLES$ - ? SubStr( "Hello Harbour" , 7, 4 ) // Harb - ? SubStr( "Hello Harbour" , -3, 3 ) // our - ? SubStr( "Hello Harbour" , 7 ) // Harbour + ? SubStr( "Hello Harbour", 7, 4 ) // Harb + ? SubStr( "Hello Harbour", -3, 3 ) // our + ? SubStr( "Hello Harbour", 7 ) // Harbour $STATUS$ R $COMPLIANCE$ @@ -587,8 +576,8 @@ * If is specified but is omitted (no decimal places), the return value is rounded to an integer. $EXAMPLES$ - ? Str( 10, 6, 2 ) // " 10.00" - ? Str( -10, 8, 2 ) // " -10.00" + ? Str( 10, 6, 2 ) // " 10.00" + ? Str( -10, 8, 2 ) // " -10.00" $STATUS$ R $COMPLIANCE$ @@ -665,8 +654,8 @@ The StrZero() function was part of the CA-Cl*pper samples. $EXAMPLES$ - ? StrZero( 10, 6, 2 ) // "010.00" - ? StrZero( -10, 8, 2 ) // "-0010.00" + ? StrZero( 10, 6, 2 ) // "010.00" + ? StrZero( -10, 8, 2 ) // "-0010.00" $STATUS$ R $COMPLIANCE$ @@ -791,6 +780,7 @@ ? Empty( 0 ) // .T. ? Empty( .F. ) // .T. ? Empty( "" ) // .T. + ? Empty( " " ) // .T. ? Empty( 1 ) // .F. ? Empty( .T. ) // .F. ? Empty( "smile" ) // .F. @@ -977,7 +967,7 @@ any character expression passed as . $EXAMPLES$ ? Asc( "A" ) - ? Asc( "¹" ) + ? Asc( "ą" ) $STATUS$ R $COMPLIANCE$ @@ -1323,7 +1313,10 @@ This function is useful to declare the length of a character memory variable. $EXAMPLES$ + #include "dbstruct.ch" + PROCEDURE Main() + LOCAL cBigString LOCAL cFirst LOCAL cString := Space( 20 ) // Create an character memory variable @@ -1332,32 +1325,35 @@ cBigString := Space( 100000 ) // create a memory variable with 100000 // blank spaces ? Len( cBigString ) - USE tests NEW + USE test NEW cFirst := MakeEmpty( 1 ) ? Len( cFirst ) + RETURN FUNCTION MakeEmpty( xField ) + LOCAL nRecord LOCAL xRetValue - IF ! Empty( Alias() ) + IF ! HB_ISNULL( Alias() ) nRecord := RecNo() dbGoto( 0 ) - IF ValType( xField ) == "C" - xField := AScan( dbStruct(), {| aFields | aFields[ 1 ] == Upper( xfield ) } ) + IF HB_ISSTRING( xField ) + xField := AScan( dbStruct(), {| aFields | aFields[ DBS_NAME ] == Upper( xField ) } ) ELSE - DEFAULT xField TO 0 + hb_default( @xField, 0 ) IF xField < 1 .OR. xField > FCount() - xfield := 0 + xField := 0 ENDIF ENDIF - IF !( xfield == 0 ) - xRetvalue := FieldGet( xfield ) + IF xField != 0 + xRetValue := FieldGet( xField ) ENDIF - dbGoto( nrecord ) + dbGoto( nRecord ) ENDIF - RETURN xRetvalue + + RETURN xRetValue $STATUS$ R $COMPLIANCE$ @@ -1541,8 +1537,8 @@ ? "working with String" ? "Current String is", cString ? "All uppercased", Transform( cString, "@!" ) - ? "Date is", ddate - ? "Date is ", Transform( ddate, "@D" ) + ? "Date is", dDate + ? "Date is", Transform( dDate, "@D" ) ? Transform( nNumber, "@L 99999999" ) // "009923.34" ? Transform( 0 , "@L 9999" ) // "0000" $STATUS$ diff --git a/doc/en/tclass.txt b/doc/en/tclass.txt index 6490887a11..ac0bf3bb1b 100644 --- a/doc/en/tclass.txt +++ b/doc/en/tclass.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 2000 Brian Hays * Documentation * @@ -41,13 +39,13 @@ New() Create a new instance of the class $EXAMPLES$ - FUNCTION TestObject() + PROCEDURE TestObject() LOCAL oObject oObject := HBClass():New( "TMyClass" ) oObject:End() - RETURN NIL + RETURN $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/terminal.txt b/doc/en/terminal.txt index a754a43c28..7ec1156d39 100644 --- a/doc/en/terminal.txt +++ b/doc/en/terminal.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999-2001 Viktor Szakats (vszakats.net/harbour) * Documentation for: hb_ColorIndex() * @@ -241,7 +239,7 @@ TAB key. To select an option the user can press ENTER, SPACE or the first letter of the option. - If the program is executed with the //NOALERT command line switch, + If the program is executed with the //NOALERT command-line switch, nothing is displayed and it simply returns NIL. This switch could be overridden with __NoNoAlert(). @@ -292,7 +290,7 @@ src/rtl/alert.prg the Left-Mouse button could be used to select an option. - The interpretation of the //NOALERT command line switch is done only + The interpretation of the //NOALERT command-line switch is done only if HB_CLP_UNDOC was define during compilation of src/rtl/alert.prg is a Harbour extension, or at least un-documented @@ -316,13 +314,13 @@ $SUBCATEGORY$ User interface $ONELINER$ - Override //NOALERT command line switch + Override //NOALERT command-line switch $SYNTAX$ __NoNoAlert() $ARGUMENTS$ This function takes no arguments. $DESCRIPTION$ - The //NOALERT command line switch cause Clipper to ignore calls to + The //NOALERT command-line switch cause Clipper to ignore calls to the Alert() function, this function override this behavior and always display Alert() dialog box. $EXAMPLES$ @@ -367,7 +365,7 @@ $EXAMPLES$ // Get the newline character(s) for the current OS. OutStd( "Hello World!" + hb_eol() ) - ? ValType( hb_eol() ) == "C" + ? HB_ISSTRING( hb_eol() ) ? Len( hb_eol() ) <= 2 $STATUS$ R @@ -670,7 +668,7 @@ take varying length when converted into string depending on its source (see Str() for detail). - There is an undocumented CA-Cl*pper command line switch //STDERR + There is an undocumented CA-Cl*pper command-line switch //STDERR which can set the file handle to write output from OutErr(). If not specified the default STDERR is used, //STDERR or //STDERR:0 set OutErr() to output to the same file handle as OutStd(), //STDERR:n @@ -679,7 +677,7 @@ the HB_CLP_UNDOC flag. $EXAMPLES$ // write error log information - OutErr( Date(), Time(), "Core meltdown detected" ) + OutErr( hb_DateTime(), "Core meltdown detected" ) $STATUS$ R $COMPLIANCE$ @@ -720,11 +718,11 @@ On compile time this command is translated into __Eject() function. $EXAMPLES$ - USE Clientes NEW + USE clients NEW SET DEVICE TO PRINTER CurPos := 0 - WHILE ! Eof() - ? Clientes->nome, Clientes->endereco + DO WHILE ! Eof() + ? clients->NAME, clients->ADDRESS Curpos++ IF Curpos > 59 Curpos := 0 @@ -732,7 +730,7 @@ ENDIF ENDDO SET DEVICE TO SCREEN - USE + dbCloseArea() $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/tgetlist.txt b/doc/en/tgetlist.txt index 8272afa0d2..d5e8eead58 100644 --- a/doc/en/tgetlist.txt +++ b/doc/en/tgetlist.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Chen Kedem * Documentation for: ReadVar() * @@ -34,6 +32,7 @@ variable when executing a VALID or WHEN clause, or during SET KEY execution and you are inside a READ or MENU TO. $EXAMPLES$ + #include "inkey.ch" // display a menu, press F1 to view the MENU TO variable name CLS @ 1, 10 PROMPT "blood sucking insect that infect beds " @@ -41,11 +40,12 @@ @ 3, 10 PROMPT "defect; snag; (source of) malfunctioning" @ 4, 10 PROMPT "small hidden microphone " @ 6, 10 SAY "(Press F1 for a hint)" - SET KEY 28 TO ShowVar + SetKey( K_F1, {|| ShowVar() } ) MENU TO What_Is_Bug - PROCEDURE ShowVar + STATIC PROCEDURE ShowVar() Alert( ReadVar() ) // WHAT_IS_BUG in red Alert() box + RETURN $STATUS$ R $COMPLIANCE$ @@ -59,6 +59,6 @@ $FILES$ Library is core $SEEALSO$ - @...GET, @...PROMPT, MENU TO, READ, SET KEY, __AtPrompt(), __MenuTo() + @...GET, @...PROMPT, MENU TO, READ, SetKey(), __AtPrompt(), __MenuTo() $END$ */ diff --git a/doc/en/tlabel.txt b/doc/en/tlabel.txt index c6138af5b0..abf15a166a 100644 --- a/doc/en/tlabel.txt +++ b/doc/en/tlabel.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Luiz Rafael Culik * Documentation * @@ -62,7 +60,7 @@ PROCEDURE Main() USE test NEW LABEL FORM test.lbl - USE + dbCloseArea() RETURN $STATUS$ R diff --git a/doc/en/treport.txt b/doc/en/treport.txt index 8ed3f76bed..7d65fa6ed1 100644 --- a/doc/en/treport.txt +++ b/doc/en/treport.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Luiz Rafael Culik * Documentation * @@ -90,7 +88,7 @@ PROCEDURE Main() USE test NEW REPORT FORM test.frm - USE + dbCloseArea() RETURN $STATUS$ R diff --git a/doc/en/var.txt b/doc/en/var.txt index c95040600d..765e39a735 100644 --- a/doc/en/var.txt +++ b/doc/en/var.txt @@ -1,6 +1,4 @@ /* - * The following parts are Copyright of the individual authors. - * * Copyright 1999 Ryszard Glab * Documentation for: __mvPublic(), __mvPrivate(), __mvXRelease(), * __mvRelease(), __mvScope(), __mvClear(), @@ -40,7 +38,7 @@ $RETURNS$ Nothing $DESCRIPTION$ - This function can be called either by the harbour compiler or by user. + This function can be called either by the Harbour compiler or by user. The compiler always passes the item of IT_SYMBOL type that stores the name of variable. If a variable with the same name exists already then the new @@ -80,7 +78,7 @@ $RETURNS$ Nothing $DESCRIPTION$ - This function can be called either by the harbour compiler or by user. + This function can be called either by the Harbour compiler or by user. The compiler always passes the item of IT_SYMBOL type that stores the name of variable. If a variable with the same name exists already then the value of old @@ -130,22 +128,22 @@ procedure $EXAMPLES$ PROCEDURE Main() - PRIVATE mPrivate - mPrivate := "PRIVATE from Main()" - ? mPrivate //PRIVATE from Main() + PRIVATE mPrivate := "PRIVATE from Main()" + + ? mPrivate // PRIVATE from Main() Test() - ? mPrivate //PRIVATE from Main() + ? mPrivate // PRIVATE from Main() RETURN PROCEDURE Main() - PRIVATE mPrivate - mPrivate := "PRIVATE from Main()" - ? mPrivate //PRIVATE from Main() + PRIVATE mPrivate := "PRIVATE from Main()" + + ? mPrivate // PRIVATE from Main() RELEASE mPrivate - ? mPrivate //NIL + ? mPrivate // NIL mPrivate := "Again in Main()" RETURN @@ -228,6 +226,7 @@ function/procedure $EXAMPLES$ PROCEDURE Main() + PUBLIC mPublic PRIVATE mPrivateGlobal @@ -237,6 +236,7 @@ RETURN PROCEDURE CallProc() + PRIVATE mPrivateLocal ? __mvScope( "mPublic" ) // HB_MV_PUBLIC @@ -379,7 +379,9 @@ RETURN PROCEDURE CountMemvars() + LOCAL i, nCnt, xVal, cName + PUBLIC ccPublic := "ccPublic" PRIVATE ccPrivate := "ccPrivate" @@ -562,6 +564,7 @@ as a value of the codeblock evaluation. $EXAMPLES$ PROCEDURE Main() + LOCAL cbSetGet PUBLIC xPublic @@ -613,13 +616,13 @@ Note that FieldBlock() works on the current work area, if you need a specific work area code block use FieldWBlock() instead. $EXAMPLES$ - // open a file named Test that have a field named "name" - LOCAL bField - bFiled := FieldBlock( "name" ) - USE Test - ? "Original value of field 'name' :", Eval( bField ) + // open a file named test.dbf that have a field named "name" + LOCAL bFiled := FieldBlock( "name" ) + + USE test + ? "Original value of field 'name':", Eval( bField ) Eval( bField, "Mr X new name" ) - ? "New value for the field 'name' :", Eval( bField ) + ? "New value for the field 'name':", Eval( bField ) $STATUS$ R $COMPLIANCE$ @@ -667,9 +670,8 @@ with the name in work area number , the code block return NIL. $EXAMPLES$ - LOCAL bField // this block work on the field "name" that exist on work area 2 - bFiled := FieldBlock( "name", 2 ) + LOCAL bFiled := FieldBlock( "name", 2 ) // open a file named One in work area 1 // that have a field named "name" SELECT 1 @@ -679,10 +681,10 @@ SELECT 2 USE two SELECT 1 - ? "Original names: ", One->name, Two->name - ? "Name value for file Two :", Eval( bField ) + ? "Original names:", One->name, Two->name + ? "Name value for file Two:", Eval( bField ) Eval( bField, "Two has new name" ) - ? "and now: ", One->name, Two->name + ? "and now:", One->name, Two->name $STATUS$ R $COMPLIANCE$ @@ -889,11 +891,14 @@ passed by reference. $EXAMPLES$ PROCEDURE Main() + LOCAL cVar := "Test local" + MEMVAR m_nVar PRIVATE m_nVar := 0 Test( @cVar, @m_nVar, cVar, m_nVar ) + RETURN STATIC PROCEDURE Test( Arg1, Arg2, Arg3, Arg4 )