diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 82e93c3a0b..85e8b53a72 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,242 @@ The license applies to all entries newer than 2009-04-28. */ +2012-07-21 18:31 UTC+0200 Viktor Szakats (vszakats syenar.net) + + tests/stripeol.hb + + added script to strip spaces at EOL + + * contrib/gtalleg/tests/test.prg + * contrib/gtwvg/tests/demoxbp.prg + * contrib/gtwvg/tests/wvgactivex.prg + * contrib/gtwvg/tests/wvgxbp.prg + * contrib/gtwvg/wvgclass.prg + * contrib/hbamf/tests/tstendin.prg + * contrib/hbbz2/tests/test.prg + * contrib/hbcairo/tests/fancytxt.prg + * contrib/hbcairo/tests/table.prg + * contrib/hbct/ctrand.prg + * contrib/hbct/doc/en/addascii.txt + * contrib/hbct/doc/en/atadjust.txt + * contrib/hbct/doc/en/count.txt + * contrib/hbct/doc/en/ct.txt + * contrib/hbct/doc/en/ctc.txt + * contrib/hbct/doc/en/ctmath.txt + * contrib/hbct/doc/en/ctmath2.txt + * contrib/hbct/doc/en/ctpad.txt + * contrib/hbct/doc/en/ctstr.txt + * contrib/hbct/doc/en/datetime.txt + * contrib/hbct/doc/en/dattime2.txt + * contrib/hbct/doc/en/exponent.txt + * contrib/hbct/doc/en/finan.txt + * contrib/hbct/doc/en/ftoc.txt + * contrib/hbct/doc/en/justify.txt + * contrib/hbct/doc/en/keyset.txt + * contrib/hbct/doc/en/misc1.txt + * contrib/hbct/doc/en/num1.txt + * contrib/hbct/doc/en/numat.txt + * contrib/hbct/doc/en/numconv.txt + * contrib/hbct/doc/en/pos1.txt + * contrib/hbct/doc/en/pos2.txt + * contrib/hbct/doc/en/posdiff.txt + * contrib/hbct/doc/en/print.txt + * contrib/hbct/doc/en/range.txt + * contrib/hbct/doc/en/relation.txt + * contrib/hbct/doc/en/remove.txt + * contrib/hbct/doc/en/replace.txt + * contrib/hbct/doc/en/screen1.txt + * contrib/hbct/doc/en/strdiff.txt + * contrib/hbct/doc/en/strswap.txt + * contrib/hbct/doc/en/token1.txt + * contrib/hbct/doc/en/token2.txt + * contrib/hbct/doc/en/trig.txt + * contrib/hbct/doc/en/video.txt + * contrib/hbct/doc/en/wordtoch.txt + * contrib/hbct/getinfo.prg + * contrib/hbfimage/tests/fitest.prg + * contrib/hbgd/gdimage.prg + * contrib/hbgd/tests/counter.prg + * contrib/hbgd/tests/gdtest.prg + * contrib/hbgd/tests/gdtestcl.prg + * contrib/hbgd/tests/test_out.prg + * contrib/hbide/idetags.prg + * contrib/hblzf/tests/test2.prg + * contrib/hbmisc/doc/en/ht_conv.txt + * contrib/hbmisc/fcomma.prg + * contrib/hbmisc/fileread.prg + * contrib/hbmisc/hbedit.prg + * contrib/hbnf/anomatch.prg + * contrib/hbnf/calendar.prg + * contrib/hbnf/clrsel.prg + * contrib/hbnf/dispmsg.prg + * contrib/hbnf/doc/en/aading.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/adessort.txt + * contrib/hbnf/doc/en/aemaxlen.txt + * contrib/hbnf/doc/en/aeminlen.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/bitset.txt + * contrib/hbnf/doc/en/blink.txt + * contrib/hbnf/doc/en/byt2bit.txt + * contrib/hbnf/doc/en/byt2hex.txt + * contrib/hbnf/doc/en/byteand.txt + * contrib/hbnf/doc/en/byteneg.txt + * contrib/hbnf/doc/en/bytenot.txt + * contrib/hbnf/doc/en/bytexor.txt + * contrib/hbnf/doc/en/calendar.txt + * contrib/hbnf/doc/en/chdir.txt + * contrib/hbnf/doc/en/cntryset.txt + * contrib/hbnf/doc/en/color2n.txt + * contrib/hbnf/doc/en/d2e.txt + * contrib/hbnf/doc/en/datecnfg.txt + * contrib/hbnf/doc/en/dayofyr.txt + * contrib/hbnf/doc/en/daytobow.txt + * contrib/hbnf/doc/en/dfile.txt + * contrib/hbnf/doc/en/diskfunc.txt + * contrib/hbnf/doc/en/dispc.txt + * contrib/hbnf/doc/en/dispmsg.txt + * contrib/hbnf/doc/en/dosver.txt + * contrib/hbnf/doc/en/e2d.txt + * contrib/hbnf/doc/en/easter.txt + * contrib/hbnf/doc/en/elapsed.txt + * contrib/hbnf/doc/en/findith.txt + * contrib/hbnf/doc/en/floptst.txt + * contrib/hbnf/doc/en/ftattr.txt + * contrib/hbnf/doc/en/ftidle.txt + * contrib/hbnf/doc/en/ftisprn.txt + * contrib/hbnf/doc/en/ftround.txt + * contrib/hbnf/doc/en/fttext.txt + * contrib/hbnf/doc/en/gcd.txt + * contrib/hbnf/doc/en/getenvrn.txt + * contrib/hbnf/doc/en/hex2dec.txt + * contrib/hbnf/doc/en/iamidle.txt + * contrib/hbnf/doc/en/isbit.txt + * contrib/hbnf/doc/en/isbiton.txt + * contrib/hbnf/doc/en/isshare.txt + * contrib/hbnf/doc/en/kspeed.txt + * contrib/hbnf/doc/en/linked.txt + * contrib/hbnf/doc/en/madd.txt + * contrib/hbnf/doc/en/menutonf.txt + * contrib/hbnf/doc/en/metaph.txt + * contrib/hbnf/doc/en/miltime.txt + * contrib/hbnf/doc/en/month.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/ontick.txt + * contrib/hbnf/doc/en/origin.txt + * contrib/hbnf/doc/en/page.txt + * contrib/hbnf/doc/en/pchr.txt + * contrib/hbnf/doc/en/peek.txt + * contrib/hbnf/doc/en/pending.txt + * contrib/hbnf/doc/en/poke.txt + * contrib/hbnf/doc/en/popadder.txt + * contrib/hbnf/doc/en/proper.txt + * contrib/hbnf/doc/en/prtesc.txt + * contrib/hbnf/doc/en/putkey.txt + * contrib/hbnf/doc/en/qtr.txt + * contrib/hbnf/doc/en/rand1.txt + * contrib/hbnf/doc/en/savearr.txt + * contrib/hbnf/doc/en/scregion.txt + * contrib/hbnf/doc/en/setdate.txt + * contrib/hbnf/doc/en/setkeys.txt + * contrib/hbnf/doc/en/setlastk.txt + * contrib/hbnf/doc/en/settime.txt + * contrib/hbnf/doc/en/sinkey.txt + * contrib/hbnf/doc/en/sleep.txt + * contrib/hbnf/doc/en/sqzn.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/workdays.txt + * contrib/hbnf/doc/en/woy.txt + * contrib/hbnf/doc/en/xbox.txt + * contrib/hbnf/doc/en/year.txt + * contrib/hbnf/ftround.prg + * contrib/hbnf/metaph.prg + * contrib/hbnf/nwsem.prg + * contrib/hbnf/nwuid.prg + * contrib/hbnf/pending.prg + * contrib/hbnf/popadder.prg + * contrib/hbnf/scregion.prg + * contrib/hbnf/tbwhile.prg + * contrib/hbnf/workdays.prg + * contrib/hbodbc/browodbc.prg + * contrib/hbqt/tests/browqt.prg + * contrib/hbqt/tests/dbfbrowserclass.prg + * contrib/hbqt/tests/testbrow.prg + * contrib/hbsqlit3/tests/blob.prg + * contrib/hbsqlit3/tests/sl3_test.prg + * contrib/hbxbp/tests/demoxbp.prg + * contrib/hbxbp/tests/dialogqt.prg + * contrib/hbxbp/xbpdataref.prg + * contrib/hbxbp/xbpmenubar.prg + * contrib/hbxbp/xbpprintdialog.prg + * contrib/hbxbp/xbpprinter.prg + * contrib/hbxbp/xbprtf.prg + * contrib/hbxbp/xbpscrollbar.prg + * contrib/xhb/cstruct.prg + * contrib/xhb/hblog.prg + * contrib/xhb/hterrsys.prg + * contrib/xhb/htjlist.prg + * contrib/xhb/sprintf.prg + * contrib/xhb/stream.prg + * contrib/xhb/tcgi.prg + * contrib/xhb/tedit.prg + * contrib/xhb/tfile.prg + * contrib/xhb/thtm.prg + * contrib/xhb/trpc.prg + * contrib/xhb/trpccli.prg + * contrib/xhb/ttable.prg + * contrib/xhb/txml.prg + * contrib/xhb/xcstr.prg + * contrib/xhb/xhberr.prg + * contrib/xhb/xhbmt.prg + * doc/cmpopt.txt + * doc/en/dbstrux.txt + * examples/hbapollo/array.prg + * examples/hbvpdf/hbvpdf.prg + * examples/hbvpdf/hbvpdft.prg + * examples/hbxlsxml/xlsxml_s.prg + * examples/hbxlsxml/xlsxml_y.prg + * examples/httpsrv/cgifunc.prg + * examples/httpsrv/cookie.prg + * examples/httpsrv/modules/cookie.prg + * examples/httpsrv/modules/info.prg + * examples/httpsrv/modules/showcounter.prg + * examples/httpsrv/modules/tableservletdb.prg + * examples/httpsrv/modules/testajax.prg + * examples/httpsrv/session.prg + * examples/httpsrv/uhttpd.prg + * include/hbclass.ch + * include/hbtrace.ch + * src/debug/dbgtinp.prg + * src/debug/debugger.prg + * src/debug/tbrwtext.prg + * src/rdd/usrrdd/rdds/hscdx.prg + * src/rtl/hbi18n2.prg + * src/rtl/valtoexp.prg + * formatting, fixed indentation, cleanups, deleting system specific information, + optimizing out platform dependent code, using hb_ntos() + 2012-07-21 14:17 UTC+0200 Viktor Szakats (vszakats syenar.net) * examples/hbxlsxml/tests/example.prg * examples/hbxlsxml/tests/example2.prg diff --git a/harbour/contrib/gtalleg/tests/test.prg b/harbour/contrib/gtalleg/tests/test.prg index 704e9ccf0b..74bdd9033d 100644 --- a/harbour/contrib/gtalleg/tests/test.prg +++ b/harbour/contrib/gtalleg/tests/test.prg @@ -8,6 +8,6 @@ ANNOUNCE HB_GTSYS PROCEDURE Main() CLS - ALERT( "Hello world!" ) + Alert( "Hello world!" ) RETURN diff --git a/harbour/contrib/gtwvg/tests/demoxbp.prg b/harbour/contrib/gtwvg/tests/demoxbp.prg index f43a3b819a..74dc738baa 100644 --- a/harbour/contrib/gtwvg/tests/demoxbp.prg +++ b/harbour/contrib/gtwvg/tests/demoxbp.prg @@ -217,7 +217,7 @@ FUNCTION Main() oXbp:autoTab := .T. oXbp:bufferLength := 20 // Data code block containing assignment to LOCAL variable - oXbp:dataLink := {|x| IIf( x == NIL, cVarA, cVarA := x ) } + oXbp:dataLink := {|x| iif( x == NIL, cVarA, cVarA := x ) } oXbp:create( oStatic2, , { 10,170 }, { 150,20 } ) oXbp:setData() // Assign the value of the edit buffer to a LOCAL variable when the input focus is lost @@ -227,7 +227,7 @@ FUNCTION Main() oXbp := WvgSLE():new( , , { 10,200 }, { 150,20 } ) oXbp:tabStop := .T. oXbp:bufferLength := 15 - oXbp:dataLink := {|x| IIf( x == NIL, cVarB, cVarB := x ) } + oXbp:dataLink := {|x| iif( x == NIL, cVarB, cVarB := x ) } oXbp:create( oStatic2 ) oXbp:setData() oXbp:killInputFocus := { |x,y,oSLE| x:=x,y:=y, oSLE:getData(), oPanel:caption := "cVarB =" + cVarB } @@ -239,7 +239,7 @@ FUNCTION Main() oMLE := WvgMLE():new() oMLE:wordWrap := .F. oMLE:border := .t. - oMLE:dataLink := {|x| IIf( x==NIL, cText, cText := x ) } + oMLE:dataLink := {|x| iif( x==NIL, cText, cText := x ) } oMLE:create( oStatic2, , { 180,10 }, { 310,250 } ) // Copy text from LOCAL variable into edit buffer via :dataLink oMLE:setData() diff --git a/harbour/contrib/gtwvg/tests/wvgactivex.prg b/harbour/contrib/gtwvg/tests/wvgactivex.prg index 8d57dbfd5a..36fc4f65dd 100644 --- a/harbour/contrib/gtwvg/tests/wvgactivex.prg +++ b/harbour/contrib/gtwvg/tests/wvgactivex.prg @@ -118,7 +118,7 @@ FUNCTION ExecuteActiveX( nActiveX, xParam ) oXbp:autoTab := .T. oXbp:bufferLength := 20 // Data code block containing assignment to LOCAL variable - oXbp:dataLink := {|x| IIf( x == NIL, cVarA, cVarA := x ) } + oXbp:dataLink := {|x| iif( x == NIL, cVarA, cVarA := x ) } oXbp:create( , , { 10,170 }, { 150,20 } ) oXbp:setData() // Assign the value of the edit buffer to a LOCAL variable when the input focus is lost @@ -128,7 +128,7 @@ FUNCTION ExecuteActiveX( nActiveX, xParam ) oXbp := WvgSLE():new( oStatic2, , { 10,200 }, { 150,20 } ) oXbp:tabStop := .T. oXbp:bufferLength := 15 - oXbp:dataLink := {|x| IIf( x == NIL, cVarB, cVarB := x ) } + oXbp:dataLink := {|x| iif( x == NIL, cVarB, cVarB := x ) } oXbp:create( ) oXbp:setData() oXbp:killInputFocus := { |x,y,oSLE| x:=x,y:=y, oSLE:getData(), oPanel:caption := "cVarB =" + cVarB } @@ -140,7 +140,7 @@ FUNCTION ExecuteActiveX( nActiveX, xParam ) oMLE := WvgMLE():new( oStatic2 ) oMLE:wordWrap := .F. oMLE:border := .t. - oMLE:dataLink := {|x| IIf( x==NIL, cText, cText := x ) } + oMLE:dataLink := {|x| iif( x==NIL, cText, cText := x ) } oMLE:create( oStatic2, , { 180,10 }, { 310,250 } ) // Copy text from LOCAL variable into edit buffer via :dataLink oMLE:setData() diff --git a/harbour/contrib/gtwvg/tests/wvgxbp.prg b/harbour/contrib/gtwvg/tests/wvgxbp.prg index 127b43a90f..82fe8c10ee 100644 --- a/harbour/contrib/gtwvg/tests/wvgxbp.prg +++ b/harbour/contrib/gtwvg/tests/wvgxbp.prg @@ -216,7 +216,7 @@ FUNCTION demoxbp() oXbp:autoTab := .T. oXbp:bufferLength := 20 // Data code block containing assignment to LOCAL variable - oXbp:dataLink := {|x| IIf( x == NIL, cVarA, cVarA := x ) } + oXbp:dataLink := {|x| iif( x == NIL, cVarA, cVarA := x ) } oXbp:create( oStatic2, , { 10,170 }, { 150,20 } ) oXbp:setData() // Assign the value of the edit buffer to a LOCAL variable when the input focus is lost @@ -226,7 +226,7 @@ FUNCTION demoxbp() oXbp := WvgSLE():new( , , { 10,200 }, { 150,20 } ) oXbp:tabStop := .T. oXbp:bufferLength := 15 - oXbp:dataLink := {|x| IIf( x == NIL, cVarB, cVarB := x ) } + oXbp:dataLink := {|x| iif( x == NIL, cVarB, cVarB := x ) } oXbp:create( oStatic2 ) oXbp:setData() oXbp:killInputFocus := { |x,y,oSLE| x:=x,y:=y, oSLE:getData(), oPanel:caption := "cVarB =" + cVarB } @@ -238,7 +238,7 @@ FUNCTION demoxbp() oMLE := WvgMLE():new() oMLE:wordWrap := .F. oMLE:border := .t. - oMLE:dataLink := {|x| IIf( x==NIL, cText, cText := x ) } + oMLE:dataLink := {|x| iif( x==NIL, cText, cText := x ) } oMLE:create( oStatic2, , { 180,10 }, { 310,250 } ) // Copy text from LOCAL variable into edit buffer via :dataLink oMLE:setData() diff --git a/harbour/contrib/gtwvg/wvgclass.prg b/harbour/contrib/gtwvg/wvgclass.prg index b09ab9cb3f..3ef76be792 100644 --- a/harbour/contrib/gtwvg/wvgclass.prg +++ b/harbour/contrib/gtwvg/wvgclass.prg @@ -3333,7 +3333,7 @@ METHOD wvtMenu:Create( cCaption ) Throw( ErrorNew( "wvtMenu", 1000, "wvtMenu:Init()", "Create Menu Error", { cCaption, cCaption },"wvt.prg" ) ) #ENDIF ENDIF - ::Caption:= IIF( cCaption == NIL, "", cCaption ) + ::Caption:= iif( cCaption == NIL, "", cCaption ) RETURN Self @@ -3361,7 +3361,7 @@ METHOD wvtMenu:AddItem( cCaption, bAction ) IF !EMPTY( ::hMenu ) .AND. ( !EMPTY( cCaption ) .OR. !EMPTY( bAction ) ) IF HB_ISOBJECT( bAction ) - cCaption:= IIF(!EMPTY(cCaption),cCaption,bAction:Caption) + cCaption:= iif(!EMPTY(cCaption),cCaption,bAction:Caption) aItem:= {MF_POPUP,bAction:hMenu,cCaption,bAction} /* bAction is a wvtMenu object reference */ ELSEIF HB_ISBLOCK(bAction) aItem:= {MF_STRING,::MenuItemId++,cCaption,bAction} /* bAction is a code block to execute */ diff --git a/harbour/contrib/hbamf/tests/tstendin.prg b/harbour/contrib/hbamf/tests/tstendin.prg index 20207c218b..b9eb6331ff 100644 --- a/harbour/contrib/hbamf/tests/tstendin.prg +++ b/harbour/contrib/hbamf/tests/tstendin.prg @@ -40,6 +40,6 @@ PROCEDURE A( a, cChkOK ) LOCAL x := AMF3_ENCODE( a ) LOCAL cChk := hb_StrToHex( I2Bin( hb_CRC( x ) ) ) - QOut( PadL( hb_ValToExp( a ), 18 ), hb_StrToHex( x, " " ), "CHECKSUM", cChk, IIF( !Empty( cChkOK ) .AND. !( cChk == cChkOK ), "!TEST FAILED!, should be " + cChkOK, " " ) ) + QOut( PadL( hb_ValToExp( a ), 18 ), hb_StrToHex( x, " " ), "CHECKSUM", cChk, iif( !Empty( cChkOK ) .AND. !( cChk == cChkOK ), "!TEST FAILED!, should be " + cChkOK, " " ) ) RETURN diff --git a/harbour/contrib/hbbz2/tests/test.prg b/harbour/contrib/hbbz2/tests/test.prg index 1aa07474a6..cab853aab5 100644 --- a/harbour/contrib/hbbz2/tests/test.prg +++ b/harbour/contrib/hbbz2/tests/test.prg @@ -5,8 +5,11 @@ #include "simpleio.ch" PROCEDURE Main() + LOCAL cI, cJ, nErr + cI := "Hello" - cJ := HB_BZ2_COMPRESS( cI,, @nErr ) - ? nErr, LEN( cJ ), HB_STRTOHEX( cJ ) + cJ := HB_BZ2_COMPRESS( cI, , @nErr ) + ? nErr, Len( cJ ), hb_StrToHex( cJ ) + RETURN diff --git a/harbour/contrib/hbcairo/tests/fancytxt.prg b/harbour/contrib/hbcairo/tests/fancytxt.prg index 0994861853..0874881115 100644 --- a/harbour/contrib/hbcairo/tests/fancytxt.prg +++ b/harbour/contrib/hbcairo/tests/fancytxt.prg @@ -12,7 +12,7 @@ PROC main() draw( hSurface ) cairo_surface_destroy( hSurface ) - hSurface := cairo_image_surface_create( "fancytxt.pdf", 567, 794 ) + hSurface := cairo_image_surface_create( "fancytxt.pdf", 567, 794 ) draw( hSurface ) cairo_surface_write_to_png( hSurface, "fancytxt.png" ) cairo_surface_destroy( hSurface ) @@ -24,8 +24,8 @@ PROC draw( hSurface ) hCairo := cairo_create( hSurface ) cairo_set_tolerance( hCairo, 0.01 ) - - // Draw base line + + // Draw base line cairo_move_to( hCairo, 50, 650 ) cairo_rel_line_to( hCairo, 250, 50 ) cairo_rel_curve_to( hCairo, 100, 20, 200, -50, 200, -150 ) @@ -98,19 +98,19 @@ STATIC PROC transform_point( nX, nY, hPath, aLengths ) IF nType == CAIRO_PATH_MOVE_TO .OR. nType == CAIRO_PATH_LINE_TO aLast := aPoints[ 1 ] ELSEIF nType == CAIRO_PATH_CURVE_TO - aLast := aPoints[ 3 ] + aLast := aPoints[ 3 ] ENDIF ENDDO - IF nType == CAIRO_PATH_MOVE_TO + IF nType == CAIRO_PATH_MOVE_TO ELSEIF nType == CAIRO_PATH_LINE_TO - nRatio := nNX / aLengths[ nI ] + nRatio := nNX / aLengths[ nI ] nX := aLast[ 1 ] * (1 - nRatio) + aPoints[ 1, 1 ] * nRatio nY := aLast[ 2 ] * (1 - nRatio) + aPoints[ 1, 2 ] * nRatio - + nDX := -(aLast[ 1 ] - aPoints[ 1, 1 ]) nDY := -(aLast[ 2 ] - aPoints[ 1, 2 ]) - + nRatio := nNY / aLengths[ nI ] nX += -nDY * nRatio nY += nDX * nRatio @@ -129,7 +129,7 @@ STATIC PROC transform_point( nX, nY, hPath, aLengths ) nY += nDX * nRatio ENDIF cairo_path_iterator_destroy( hIterator ) -RETURN +RETURN STATIC FUNC path_lengths( hPath ) @@ -143,7 +143,7 @@ STATIC FUNC path_lengths( hPath ) IF nType == CAIRO_PATH_MOVE_TO aLast := aPoints[ 1 ] ELSEIF nType == CAIRO_PATH_LINE_TO - nLen := distance( aLast[ 1 ], aLast[ 2 ], aPoints[ 1, 1 ], aPoints[ 1, 2 ] ) + nLen := distance( aLast[ 1 ], aLast[ 2 ], aPoints[ 1, 1 ], aPoints[ 1, 2 ] ) aLast := aPoints[ 1 ] ELSEIF nType == CAIRO_PATH_CURVE_TO nLen := curve_length( aLast[ 1 ], aLast[ 2 ], aPoints[ 1, 1 ], aPoints[ 1, 2 ], ; @@ -155,7 +155,7 @@ STATIC FUNC path_lengths( hPath ) cairo_path_iterator_destroy( hIterator ) RETURN aRet - + STATIC FUNC distance( nX1, nY1, nX2, nY2 ) RETURN sqrt( (nX1-nX2)^2 + (nY1-nY2)^2 ) @@ -173,7 +173,7 @@ STATIC FUNC curve_length( nX1, nY1, nX2, nY2, nX3, nY3, nX4, nY4 ) IF nType == CAIRO_PATH_MOVE_TO aLast := aPoints ELSEIF nType == CAIRO_PATH_LINE_TO - nLength += distance(aLast[ 1 ], aLast[ 2 ], aPoints[ 1 ], aPoints[ 2 ] ) + nLength += distance( aLast[ 1 ], aLast[ 2 ], aPoints[ 1 ], aPoints[ 2 ] ) aLast := aPoints ENDIF ENDDO diff --git a/harbour/contrib/hbcairo/tests/table.prg b/harbour/contrib/hbcairo/tests/table.prg index ac5ddea9e9..2dc39f1e4b 100644 --- a/harbour/contrib/hbcairo/tests/table.prg +++ b/harbour/contrib/hbcairo/tests/table.prg @@ -56,7 +56,7 @@ STATIC PROC draw_table( hCairo, nX, nY, aCol ) aWidth[ nI ] := MAX( aWidth[ nI ], cairo_text_extents( hCairo, aCol[ nI, 1 ] )[ 5 ] ) + 20 NEXT nW := 0 - AEVAL( aWidth, {|X| nW += X} ) + AEVAL( aWidth, {| X | nW += X } ) cairo_move_to( hCairo, nX, nY ) cairo_rel_line_to( hCairo, nW, 0 ) @@ -120,4 +120,3 @@ STATIC PROC show_text_center( hCairo, cText ) cairo_rel_move_to( hCairo, -0.5 * cairo_text_extents( hCairo, cText )[ 5 ], 0 ) cairo_show_text( hCairo, cText ) RETURN - diff --git a/harbour/contrib/hbct/ctrand.prg b/harbour/contrib/hbct/ctrand.prg index 549fa03bf4..afa2aaaa40 100644 --- a/harbour/contrib/hbct/ctrand.prg +++ b/harbour/contrib/hbct/ctrand.prg @@ -51,7 +51,7 @@ */ FUNCTION Random( lMode ) - RETURN IIF( HB_ISLOGICAL( lMode ) .AND. lMode, ; + RETURN iif( HB_ISLOGICAL( lMode ) .AND. lMode, ; HB_RandomInt( -32768, 32767 ), HB_RandomInt( 0, 65535 ) ) FUNCTION Rand( nStart ) diff --git a/harbour/contrib/hbct/doc/en/addascii.txt b/harbour/contrib/hbct/doc/en/addascii.txt index 7f94f91218..d067ca7431 100644 --- a/harbour/contrib/hbct/doc/en/addascii.txt +++ b/harbour/contrib/hbct/doc/en/addascii.txt @@ -39,7 +39,7 @@ * $EXAMPLES$ * // Add 32 to the ASCII value of the character at the last position * // in the string - * + * * ? addascii ("SmitH", 32) --> "Smith" * $TESTS$ * addascii ("0000", 1, 1) == "1000" diff --git a/harbour/contrib/hbct/doc/en/atadjust.txt b/harbour/contrib/hbct/doc/en/atadjust.txt index 243ff5e094..bf566b08ca 100644 --- a/harbour/contrib/hbct/doc/en/atadjust.txt +++ b/harbour/contrib/hbct/doc/en/atadjust.txt @@ -30,9 +30,9 @@ * $DESCRIPTION$ * * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/count.txt b/harbour/contrib/hbct/doc/en/count.txt index e021746e4d..b19f21e127 100644 --- a/harbour/contrib/hbct/doc/en/count.txt +++ b/harbour/contrib/hbct/doc/en/count.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * COUNTLEFT (, []) -> nCount * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * COUNTRIGHT (, []) -> nCount * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/ct.txt b/harbour/contrib/hbct/doc/en/ct.txt index b863cf3be7..3aacfac39f 100644 --- a/harbour/contrib/hbct/doc/en/ct.txt +++ b/harbour/contrib/hbct/doc/en/ct.txt @@ -22,9 +22,9 @@ * idea to call it once again explicitly somewhere at the beginning of * your program to check the initialization. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -34,7 +34,7 @@ * $FILES$ * Source is ct.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -58,9 +58,9 @@ * to call it explicitly somewhere at the end of your program to make * sure that the deinitialization takes place. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -70,6 +70,6 @@ * $FILES$ * Source is ct.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/ctc.txt b/harbour/contrib/hbct/doc/en/ctc.txt index 8393151e09..29ae8e8144 100644 --- a/harbour/contrib/hbct/doc/en/ctc.txt +++ b/harbour/contrib/hbct/doc/en/ctc.txt @@ -29,9 +29,9 @@ * The last is the default behaviour and switches any argument error * throwing off. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -41,7 +41,7 @@ * $FILES$ * Source is ct.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -62,9 +62,9 @@ * The CTCINIT() function initializes the C source part of the CT3 * library. Do not call this function directly. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -95,9 +95,9 @@ * The CTCEXIT() function uninitializes the C part of the CT3 library. * Do not call this function directly. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/ctmath.txt b/harbour/contrib/hbct/doc/en/ctmath.txt index f0776d90fb..c118db1cd8 100644 --- a/harbour/contrib/hbct/doc/en/ctmath.txt +++ b/harbour/contrib/hbct/doc/en/ctmath.txt @@ -19,9 +19,9 @@ * Be aware that calls to this functions do _NOT_ affect the * calculation precision of the math functions at the moment. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -31,7 +31,7 @@ * $FILES$ * Source is ctmath.c, library is ct3. * $SEEALSO$ - * + * * $END$ */ @@ -45,16 +45,16 @@ * $SYNTAX$ * GETPREC () -> nDigits * $ARGUMENTS$ - * + * * $RETURNS$ * nDigits digit count between 1 and 16 * $DESCRIPTION$ * Be aware that calls to this functions do _NOT_ affect the * calculation precision of the math functions at the moment. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -64,6 +64,6 @@ * $FILES$ * Source is ctmath.c, library is ct3. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/ctmath2.txt b/harbour/contrib/hbct/doc/en/ctmath2.txt index d79b5e3800..d79e0cf168 100644 --- a/harbour/contrib/hbct/doc/en/ctmath2.txt +++ b/harbour/contrib/hbct/doc/en/ctmath2.txt @@ -107,7 +107,7 @@ * $FILES$ * Source is math.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -142,7 +142,7 @@ * $FILES$ * Source is math.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -181,6 +181,6 @@ * $FILES$ * Source is math.c, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/ctpad.txt b/harbour/contrib/hbct/doc/en/ctpad.txt index b4a7d58d07..9d34472fd7 100644 --- a/harbour/contrib/hbct/doc/en/ctpad.txt +++ b/harbour/contrib/hbct/doc/en/ctpad.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * PADLEFT (,, []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * PADRIGHT (,, []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/ctstr.txt b/harbour/contrib/hbct/doc/en/ctstr.txt index ef4777009f..380e912853 100644 --- a/harbour/contrib/hbct/doc/en/ctstr.txt +++ b/harbour/contrib/hbct/doc/en/ctstr.txt @@ -21,7 +21,7 @@ * Within the CT3 functions, the following functions do not * change the length of a string passed as parameter while * transforming this string: - * + * * ADDASCII() BLANK() CHARADD() * CHARAND() CHARMIRR() CHARNOT() * CHAROR() CHARRELREP() CHARREPL() @@ -31,18 +31,18 @@ * REPLALL() REPLLEFT() REPLRIGHT() * TOKENLOWER() TOKENUPPER() WORDREPL() * WORDSWAP() - * + * * Thus, these functions allow to pass the string by reference [@] to * the function so that it may not be necessary to return the transformed * string. By calling CSETREF (.T.), the above mentioned functions return * the value .F. instead of the transformed string if the string is * passed by reference to the function. * The switch is turned off (.F.) by default. - * + * * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -81,18 +81,18 @@ * current state of the switch * $DESCRIPTION$ * CSETATMUPA determines how the following CT3 string functions - * + * * ATNUM() AFTERATNUM() BEFORATNUM() * ATREPL() NUMAT() ATADJUST() * WORDTOCHAR() WORDREPL() - * + * * perform their work. See the respective function documentation for a * further description how the switch influences these functions. - * + * * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -134,27 +134,27 @@ * $DESCRIPTION$ * In the following CT3 functions, strings are compared on a character * base: - * + * * ATADJUST() ATNUM() AFTERATNUM() * BEFOREATNUM() ATREPL() NUMAT() * STRDIFF() - * + * * With the SETATLIKE function, one can determine when characters are * considered to match within these functions. If CT_SETATLIKE_WILDCARD * is set (e.g. "?"), then "?" matches every other character. - * + * * can be one of the following values that are defined * in ct.ch - * + * * Definition | Value * ----------------------|------ * CT_SETATLIKE_EXACT | 0 * CT_SETATLIKE_WILDCARD | 1 - * + * * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -166,6 +166,6 @@ * $FILES$ * Source is ctstr.c, header is ct.ch, library is ct3. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/datetime.txt b/harbour/contrib/hbct/doc/en/datetime.txt index 525cc1c329..77d9a53693 100644 --- a/harbour/contrib/hbct/doc/en/datetime.txt +++ b/harbour/contrib/hbct/doc/en/datetime.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * BOM ([]) -> dDateBeginOfMonth * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * EOM ([]) -> dDateEndOfMonth * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -76,15 +76,15 @@ * $SYNTAX$ * BOQ ([]) -> dDateBeginOfQuarter * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -108,15 +108,15 @@ * $SYNTAX$ * EOQ ([]) -> dDateEndOfQuarter * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -140,15 +140,15 @@ * $SYNTAX$ * BOY ([]) -> dDateBeginOfYear * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -172,15 +172,15 @@ * $SYNTAX$ * EOY ([]) -> dDateEndOfYear * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/dattime2.txt b/harbour/contrib/hbct/doc/en/dattime2.txt index e3f3ee61e7..bd8b1778b4 100644 --- a/harbour/contrib/hbct/doc/en/dattime2.txt +++ b/harbour/contrib/hbct/doc/en/dattime2.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * CTODOW () -> nOrdinal * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * CTOMONTH () -> nOrdinal * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -76,17 +76,17 @@ * $SYNTAX$ * DMY ([][, ]) -> cDateString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * Returns the date as a string in DD Month YY format. If lmode * is TRUE, a "." is inserted after the DD * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -110,17 +110,17 @@ * $SYNTAX$ * MDY ([]) -> cDateString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * Returns the date as a string in Month DD, YY or Month DD, YYYY * If dDate is NULL, the system date is used * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -144,15 +144,15 @@ * $SYNTAX$ * ADDMONTH ([,] ) -> dShiftedDate * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -162,7 +162,7 @@ * $FILES$ * Source is dattime2.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -176,17 +176,17 @@ * $SYNTAX$ * DMY ([]) -> nDayOfYear * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * Determines the day of the year for a specific date * if dDate is invalid, returns 0 * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -196,7 +196,7 @@ * $FILES$ * Source is dattime2.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -210,15 +210,15 @@ * $SYNTAX$ * ISLEAP ([]) -> lIsLeap * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -228,7 +228,7 @@ * $FILES$ * Source is dattime2.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -242,17 +242,17 @@ * $SYNTAX$ * DAYSTOMONTH (, ) -> nDaysToMonth * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * lLeap is FALSE for a non-leap year but TRUE if it is. If so and nMonth * is greater than 2, ndays is incremented * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -276,15 +276,15 @@ * $SYNTAX$ * DAYSINMONTH (, ) -> nDaysInMonth * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -308,17 +308,17 @@ * $SYNTAX$ * QUARTER ([]) -> nQuarter * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * Returns a number equal to the quarter in which ddate * falls. If ddate is empty, the system date is employed. * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -328,7 +328,7 @@ * $FILES$ * Source is dattime2.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -342,18 +342,18 @@ * $SYNTAX$ * LASTDAYOM ([]) -> nDaysInMonth * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * can be a date or a month number. If empty uses the * system date. If nMonth is a 2, lastdayom() will not know if it * is a leap year or not. If dDate is invalid, returns 0 * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -377,15 +377,15 @@ * $SYNTAX$ * NTOCDOW () -> cDay * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -409,15 +409,15 @@ * $SYNTAX$ * NTOCMONTH () -> cMonth * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -441,9 +441,9 @@ * $SYNTAX$ * WEEK ([][, ]) -> nWeek * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * Returns the calendar week a number. If no date is specified, * the system date is used. An empty date viz ctod(" / / ") @@ -457,9 +457,9 @@ * will be calculated * TODO: add further documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -469,6 +469,6 @@ * $FILES$ * Source is dattime2.prg, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/exponent.txt b/harbour/contrib/hbct/doc/en/exponent.txt index 1f247a7a36..35430cb6da 100644 --- a/harbour/contrib/hbct/doc/en/exponent.txt +++ b/harbour/contrib/hbct/doc/en/exponent.txt @@ -18,19 +18,19 @@ * $DESCRIPTION$ * This function supplements EXPONENT() to return the mantissa of the * number. - * + * * Note: The mantissa value can be 0 or in the range of 1 to 2. - * + * * The following calculation reproduces the original value: - * + * * MANTISSA()* 2^EXPONENT() = * - * + * * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -61,23 +61,23 @@ * $DESCRIPTION$ * This function supplements MANTISSA() to return the exponent of the * number. - * + * * Values > 1 or values < -1 return a positive number 0 to 1023. - * + * * Values < 1 or values > -1 return a negative number -1 to -1023. - * + * * The EXPONENT( 0 ), return 0. - * + * * The following calculation reproduces the original value: - * + * * 2^EXPONENT() * MANTISSA() = * - * + * * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/finan.txt b/harbour/contrib/hbct/doc/en/finan.txt index ed679a49bc..e312e483d7 100644 --- a/harbour/contrib/hbct/doc/en/finan.txt +++ b/harbour/contrib/hbct/doc/en/finan.txt @@ -36,7 +36,7 @@ * $EXAMPLES$ * // Payment of 1000 per year for 10 years at a interest rate * // of 5 per cent per year - * + * * ? fv (1000, 0.05, 10) --> 12577.893 * $TESTS$ * fv (1000, 0.00, 10) == 10000.0 @@ -87,7 +87,7 @@ * // at a interest rate of 0.5% per month (6% per year), so instead * // of 6000 Dollars (the amount you will pay back) the bank will pay * // you - * + * * ? pv (100, 0.005, 60) --> 5172.56 * $TESTS$ * pv (100, 0.0, 60) == 6000.0 @@ -136,7 +136,7 @@ * // You get a loan of 5172.56 at a interest rate of 0.5% per * // month (6% per year). * // For 5 years, you have to pay back every month - * + * * ? payment (5172.56, 0.005, 60) --> 100.00 * $TESTS$ * payment (5172.56, 0.0, 60) == 86.21 @@ -180,7 +180,7 @@ * debt in period = ((debt in period -1)-)*(1+/100) * -> has to be 0, so * = -log(1-*(/100)/)/log(1+/100)) - * + * * Note, however that in the case of nPayment <= *(/100), * one would need infinite time to pay the loan back. The functions does * then return -1. @@ -188,9 +188,9 @@ * // You get a loan of 5172.56 at a interest rate of 0.5% per * // month (6% per year). * // You can afford to pay 100 back every month, so you need - * + * * ? periods (5172.56, 100, 0.005) --> 60.0 - * + * * // months to cancel the loan. * $TESTS$ * periods (5172.56, 100, 0.005) == 60.0 @@ -227,18 +227,18 @@ * RATE() calculates the rate of interest per period for the given * loan, payment per periods and number of periods. This is done with * the same equation used in the PAYMENT() or PERIODS() function: - * + * * = *(/100)/(1-(1+/100)^(-)) - * + * * However, this equation can not be solved for in a "closed" * manner, i.e. = ..., so that the result can only be estimated. * $EXAMPLES$ * // You get a loan of 5172.56, pay 100 back every month for * // 5 years (60 months). The effective interest rate per * // period (=month) is - * + * * ? rate (5172.56, 100, 60) --> 0.005 - * + * * $TESTS$ * rate (5172.56, 100, 60.0) == 0.005 * rate (6000.0, 100, 60.0) == 0.0 diff --git a/harbour/contrib/hbct/doc/en/ftoc.txt b/harbour/contrib/hbct/doc/en/ftoc.txt index 8380f10ec1..20a26f9074 100644 --- a/harbour/contrib/hbct/doc/en/ftoc.txt +++ b/harbour/contrib/hbct/doc/en/ftoc.txt @@ -8,32 +8,32 @@ * $CATEGORY$ * CT3 number and bit manipulation functions * $ONELINER$ - * + * * $SYNTAX$ * FTOC( ) --> cFloatingPointNumber - * + * * $ARGUMENTS$ * Designate any Harbour number. - * + * * $RETURNS$ * FTOC() return a string with the size of DOUBLE. * ATTENTION: different implementations or platforms of Harbour, they * could produce different format in the string returned by FTOC(). - * + * * $DESCRIPTION$ * Harbour internal numbers in Floating Point are stored in data type * DOUBLE. FTOC() returns these bits as an string. In this way, * numbers con be saved more compactly. - * + * * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ @@ -49,33 +49,33 @@ * $CATEGORY$ * CT3 number and bit manipulation functions * $ONELINER$ - * + * * $SYNTAX$ * CTOF( ) --> nFloatingPointNumber - * + * * $ARGUMENTS$ * Designate a string that contains a Harbour * number in flotaing point format. * ATTENTION: different implementations or platforms of Harbour, they * could produce different format in the string returned by FTOC(). - * + * * $RETURNS$ * CTOF() return the floating point number that corresponds to the * string passed. - * + * * $DESCRIPTION$ * Character strings created with FTOC() or XTOC() are convert into * Harbour floating point number - * + * * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ diff --git a/harbour/contrib/hbct/doc/en/justify.txt b/harbour/contrib/hbct/doc/en/justify.txt index df59f45d1b..819d9b7321 100644 --- a/harbour/contrib/hbct/doc/en/justify.txt +++ b/harbour/contrib/hbct/doc/en/justify.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * JUSTLEFT (<[@]cString>, [|]) -> cJustifiedString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * JUSTRIGHT (<[@]cString>, [|]) -> cJustifiedString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/keyset.txt b/harbour/contrib/hbct/doc/en/keyset.txt index 0f0b5c53c8..04da60e907 100644 --- a/harbour/contrib/hbct/doc/en/keyset.txt +++ b/harbour/contrib/hbct/doc/en/keyset.txt @@ -8,29 +8,29 @@ * $CATEGORY$ * CT3 switch and state functions * $ONELINER$ - * + * * $SYNTAX$ * KSETINS ([]) -> lOldSwitch * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * DOS * $FILES$ * Source is keyset.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -40,29 +40,29 @@ * $CATEGORY$ * CT3 switch and state functions * $ONELINER$ - * + * * $SYNTAX$ * KSETCAPS ([]) -> lOldSwitch * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * DOS * $FILES$ * Source is keyset.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -72,29 +72,29 @@ * $CATEGORY$ * CT3 switch and state functions * $ONELINER$ - * + * * $SYNTAX$ * KSETNUM ([]) -> lOldSwitch * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * DOS * $FILES$ * Source is keyset.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -104,28 +104,28 @@ * $CATEGORY$ * CT3 switch and state functions * $ONELINER$ - * + * * $SYNTAX$ * KSETSCROLL ([]) -> lOldSwitch * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * DOS * $FILES$ * Source is keyset.c, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/misc1.txt b/harbour/contrib/hbct/doc/en/misc1.txt index c489e4eb50..30676cd8d1 100644 --- a/harbour/contrib/hbct/doc/en/misc1.txt +++ b/harbour/contrib/hbct/doc/en/misc1.txt @@ -8,21 +8,21 @@ * $CATEGORY$ * CT3 miscellaneous functions * $ONELINER$ - * + * * $SYNTAX$ * XTOC( ) --> cValue - * + * * $ARGUMENTS$ * Designate an expression of some of the following data * type: NUMBER, CHARACTER, DATE, LOGICAL. - * + * * $RETURNS$ * XTOC() return a string with the representation of data type of * expValue. - * + * * $DESCRIPTION$ * Each data type always returns a string with a particular fixed length: - * + * * ----------------------------------------------------------- * Data Type Result Length Similar function * ----------------------------------------------------------- @@ -31,16 +31,16 @@ * Date 8 DTOS() * String Unchanged * ----------------------------------------------------------- - * + * * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ diff --git a/harbour/contrib/hbct/doc/en/num1.txt b/harbour/contrib/hbct/doc/en/num1.txt index 6218965f54..2cf0cb4dd9 100644 --- a/harbour/contrib/hbct/doc/en/num1.txt +++ b/harbour/contrib/hbct/doc/en/num1.txt @@ -98,9 +98,9 @@ * INFINITY() returns the largest floating point number available * in the system. For platform independance, this is set to DBL_MAX. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -110,6 +110,6 @@ * $FILES$ * Source is num1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/numat.txt b/harbour/contrib/hbct/doc/en/numat.txt index 2bb5bf6131..2e603f1fba 100644 --- a/harbour/contrib/hbct/doc/en/numat.txt +++ b/harbour/contrib/hbct/doc/en/numat.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * NUMAT (, , []) --> nCount * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/numconv.txt b/harbour/contrib/hbct/doc/en/numconv.txt index e007f48bbc..92292b398e 100644 --- a/harbour/contrib/hbct/doc/en/numconv.txt +++ b/harbour/contrib/hbct/doc/en/numconv.txt @@ -8,23 +8,23 @@ * $CATEGORY$ * CT3 number and bit manipulation functions * $ONELINER$ - * + * * $SYNTAX$ * NTOC ([, ][,][,]) -> * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ @@ -40,23 +40,23 @@ * $CATEGORY$ * CT3 number and bit manipulation functions * $ONELINER$ - * + * * $SYNTAX$ * CTON ([, ][,]) -> * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ @@ -72,23 +72,23 @@ * $CATEGORY$ * CT3 number and bit manipulation functions * $ONELINER$ - * + * * $SYNTAX$ * BITTOC (, [,]) -> * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ @@ -104,23 +104,23 @@ * $CATEGORY$ * CT3 number and bit manipulation functions * $ONELINER$ - * + * * $SYNTAX$ * CTOBIT (, ) -> * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ diff --git a/harbour/contrib/hbct/doc/en/pos1.txt b/harbour/contrib/hbct/doc/en/pos1.txt index b9abee09e8..905be46314 100644 --- a/harbour/contrib/hbct/doc/en/pos1.txt +++ b/harbour/contrib/hbct/doc/en/pos1.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * POSALPHA (, [], []) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * POSLOWER (, [], []) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -77,15 +77,15 @@ * POSRANGE (, , , [], * []) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -109,15 +109,15 @@ * $SYNTAX$ * POSUPPER (, [], []) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/pos2.txt b/harbour/contrib/hbct/doc/en/pos2.txt index 673c419599..81ec783f63 100644 --- a/harbour/contrib/hbct/doc/en/pos2.txt +++ b/harbour/contrib/hbct/doc/en/pos2.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * POSCHAR (<[@]cString>, , []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * POSDEL (, [], ) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -76,15 +76,15 @@ * $SYNTAX$ * POSINS (, , []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -108,15 +108,15 @@ * $SYNTAX$ * POSREPL (<[@]cString>, , []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/posdiff.txt b/harbour/contrib/hbct/doc/en/posdiff.txt index 06c7b075f5..05c540a582 100644 --- a/harbour/contrib/hbct/doc/en/posdiff.txt +++ b/harbour/contrib/hbct/doc/en/posdiff.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * POSDIFF (, , []) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * POSEQUAL (, , [], []) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/print.txt b/harbour/contrib/hbct/doc/en/print.txt index 11582b79dd..f94829c832 100644 --- a/harbour/contrib/hbct/doc/en/print.txt +++ b/harbour/contrib/hbct/doc/en/print.txt @@ -8,29 +8,29 @@ * $CATEGORY$ * CT3 printer functions * $ONELINER$ - * + * * $SYNTAX$ * PRINTSTAT ([]) -> nState * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * DOS * $FILES$ * Source is print.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -40,28 +40,28 @@ * $CATEGORY$ * CT3 printer functions * $ONELINER$ - * + * * $SYNTAX$ * PRINTREADY ([]) -> lPrinterReady * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * DOS * $FILES$ * Library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/range.txt b/harbour/contrib/hbct/doc/en/range.txt index 6b5d026ffb..f47e890891 100644 --- a/harbour/contrib/hbct/doc/en/range.txt +++ b/harbour/contrib/hbct/doc/en/range.txt @@ -12,9 +12,9 @@ * $SYNTAX$ * RANGEREM (, , ) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ @@ -50,9 +50,9 @@ * RANGEREPL (, , * <[@]cString>, ) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ diff --git a/harbour/contrib/hbct/doc/en/relation.txt b/harbour/contrib/hbct/doc/en/relation.txt index 4eae5a91c3..d4183ddf18 100644 --- a/harbour/contrib/hbct/doc/en/relation.txt +++ b/harbour/contrib/hbct/doc/en/relation.txt @@ -13,15 +13,15 @@ * CHARRELA (, , * , ) -> nPosition * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -47,15 +47,15 @@ * , <[@]cString2>, * ) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/remove.txt b/harbour/contrib/hbct/doc/en/remove.txt index 58ad20f49d..d97fde8056 100644 --- a/harbour/contrib/hbct/doc/en/remove.txt +++ b/harbour/contrib/hbct/doc/en/remove.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * REMALL (, []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * REMLEFT (, []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -76,15 +76,15 @@ * $SYNTAX$ * REMRIGHT (, []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/replace.txt b/harbour/contrib/hbct/doc/en/replace.txt index 155d56d678..8a57d90f49 100644 --- a/harbour/contrib/hbct/doc/en/replace.txt +++ b/harbour/contrib/hbct/doc/en/replace.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * REPLALL (, , []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -44,15 +44,15 @@ * $SYNTAX$ * REPLLEFT (, , []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -76,15 +76,15 @@ * $SYNTAX$ * REPLRIGHT (, , []) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/screen1.txt b/harbour/contrib/hbct/doc/en/screen1.txt index 9525e579fa..62b9486acb 100644 --- a/harbour/contrib/hbct/doc/en/screen1.txt +++ b/harbour/contrib/hbct/doc/en/screen1.txt @@ -8,39 +8,39 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * SCREENATTR ( [],[] ) -> * $ARGUMENTS$ * Designates the line from which to determine the attribute. * The default is the cursor line. - * + * * Designates the column from which to determine the * attribute. The default is the cursor column. - * + * * $RETURNS$ * SCREENATTR() returns the attribute at the designated position. - * + * * $DESCRIPTION$ * SCREENATTR() returns the current screen attribute at and * . You can query targeted attributes this way and save them * to use later, or process them later with INVERTATTR(). - * + * * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -50,29 +50,29 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * SCREENMIX (, , [], []) -> * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -82,7 +82,7 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * SAYSCREEN( , [], [] ) -> * $ARGUMENTS$ @@ -95,13 +95,13 @@ * Outputs a string at specified coordinates without changing character * attributes. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ @@ -117,19 +117,19 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ - * + * * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -139,7 +139,7 @@ * $FILES$ * Source is color.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -149,7 +149,7 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * UNTEXTWIN(, , , , * , @@ -180,19 +180,19 @@ * Replaces an area of characters from a region of the screen * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -202,7 +202,7 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * CHARWIN (, , , , [], * []) --> @@ -223,19 +223,19 @@ * Exchanges particular characters in a screen area. * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -245,7 +245,7 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * COLORWIN([], [], [], [], * [], []) --> cNull @@ -268,19 +268,19 @@ * Exchanges particular attributes in a screen area * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -290,7 +290,7 @@ * $CATEGORY$ * CT video functions (Harbour extension) * $ONELINER$ - * + * * $SYNTAX$ * SCREENTEXT(, , , ) * $ARGUMENTS$ @@ -304,19 +304,19 @@ * Returns string with characters taken from given screen region. * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -326,7 +326,7 @@ * $CATEGORY$ * CT3 video functions * $ONELINER$ - * + * * $SYNTAX$ * COLORREPL([], []) --> cNull * $ARGUMENTS$ @@ -340,18 +340,18 @@ * Exchanges particular screen attributes * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ - * + * * $PLATFORMS$ * All * $FILES$ * Source is screen1.c, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/strdiff.txt b/harbour/contrib/hbct/doc/en/strdiff.txt index 68e73fc5cd..5475603c98 100644 --- a/harbour/contrib/hbct/doc/en/strdiff.txt +++ b/harbour/contrib/hbct/doc/en/strdiff.txt @@ -25,24 +25,24 @@ * This distance is a measure for the number of single character replace/insert/delete operations (so called * "point mutations") required to transform into and its value will be the smallest sum of * the penalty points of the required operations. - * + * * 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 * (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. - * + * * Also, be aware that there can be an overflow when the penalty points are summed up: Assuming that the * number of transformation operations is in the order of max(len(cString1),len(cString2)), the penalty point * sum, that is internally stored in an "int" variable, is in the order of * (max(len(cString1),len(cString2))*max(nReplacementPenalty,nDeletionPenalty,nInsertionPentaly). * The STRDIFF() does not do an overflow check due to time performance reasons. Future versions of STRDIFF() * could use a type different to "int" to store the penalty point sum to save memory or to avoid overflows. - * + * * The function is aware of the settings done by SETATLIKE(), that means that the wildchar character * is considered equal to ALL characters. - * + * * $EXAMPLES$ * ? strdiff("ABC", "ADC") // 3, one character replaced * ? strdiff("ABC", "AEC") // 3, dito diff --git a/harbour/contrib/hbct/doc/en/strswap.txt b/harbour/contrib/hbct/doc/en/strswap.txt index 487b752b5a..7d21d37989 100644 --- a/harbour/contrib/hbct/doc/en/strswap.txt +++ b/harbour/contrib/hbct/doc/en/strswap.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * STRSWAP (<[@]cString1>, <[@]cString2>) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -30,6 +30,6 @@ * $FILES$ * Source is strswap.c, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/token1.txt b/harbour/contrib/hbct/doc/en/token1.txt index 9261abdd45..828cc1ecf8 100644 --- a/harbour/contrib/hbct/doc/en/token1.txt +++ b/harbour/contrib/hbct/doc/en/token1.txt @@ -142,13 +142,13 @@ * $SYNTAX$ * NUMTOKEN (, [], []) -> nTokenCount * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ - * + * * $EXAMPLES$ - * + * * $TESTS$ * numtoken ("Hello, World!") == 2 * numtoken ("This is good. See you! How do you do?",".!?") == 3 @@ -315,7 +315,7 @@ * $EXAMPLES$ * see TOKEN() function * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/token2.txt b/harbour/contrib/hbct/doc/en/token2.txt index 42322af1f6..70b9697b34 100644 --- a/harbour/contrib/hbct/doc/en/token2.txt +++ b/harbour/contrib/hbct/doc/en/token2.txt @@ -35,24 +35,24 @@ * This information is created in the process of tokenization of the * string - equal to the one used in the TOKEN() function * with the help of the and parameters. - * + * * This token environment can be very useful when large strings have * to be tokenized since the tokenization has to take place only once * whereas the TOKEN() function must always start the tokenizing process * from scratch. - * + * * Unlike CTIII, this function provides two mechanisms of storing the * resulting token environment. If a variable is passed by reference * as 4th parameter, the token environment is stored in this variable, * otherwise the global token environment is used. Do not modify the * token environment string directly ! - * + * * Additionally, a counter is stored in the token environment, so that * the tokens can successivly be obtained. This counter is first set to 1. * When the TOKENINIT() function is called without a string a tokenize, * the counter of either the global environment or the environment given * by reference in the 4th parameter is rewind to 1. - * + * * Additionally, unlike CTIII, tokeninit() does not need the string * to be passed by reference, since one must provide the * string in calls to TOKENNEXT() again. @@ -71,7 +71,7 @@ * // not given by reference !!! * tokeninit (,,,@cTE1) // set counter in TE stored in cTE1 to 1 * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -108,13 +108,13 @@ * in either the global token environment or the local one supplied by * . Note that, is supplied, this 3rd parameter has * always to be passed by reference. - * + * * If the 2nd parameter, is given, TOKENNEXT() simply returns * the th token without manipulating the TE counter. Otherwise * the token pointed to by the TE counter is returned and the counter * is incremented by one. Like this, a simple loop with TOKENEND() can * be used to retrieve all tokens of a string successivly. - * + * * Note that does not have to be the same used in TOKENINIT(), * so that one can do a "correlational tokenization", i.e. tokenize a string * as if it was another! E.G. using TOKENINIT() with the string @@ -129,7 +129,7 @@ * ? tokennext (cString, 3) // get the 3rd token, counter will remain the same * tokenexit() // free the memory used for the global TE * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -168,7 +168,7 @@ * tokeninit ("a.b.c.d", ".", 1) // initialize global TE * ? tokennum() // --> 4 * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -211,7 +211,7 @@ * ? tokennext ("a.b.c.d") // get all tokens successivly * enddo * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -236,7 +236,7 @@ * $SYNTAX$ * TOKENEXIT () -> lStaticEnvironmentReleased * $ARGUMENTS$ - * + * * $RETURNS$ * .T., if global token environment is successfully released * $DESCRIPTION$ @@ -252,7 +252,7 @@ * ? tokennext (cString, 3) // get the 3rd token, counter will remain the same * tokenexit() // free the memory used for the global TE * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -289,17 +289,17 @@ * The TOKENAT() function is used to retrieve the start and end position * of the tokens in a token environment. Note however that the position of * last character of a token is given by tokenat (.T.)-1 !! - * + * * If the 2nd parameter, is given, TOKENAT() returns the * positions of the th token. Otherwise * the token pointed to by the TE counter, i.e. the token that will * be retrieved by TOKENNEXT() _NEXT_ is used. - * + * * If the parameter <@cTokenEnvironment> is supplied (must be by * reference), the information from this token environment is used, * otherwise the global TE is used. * $EXAMPLES$ - * + * * $TESTS$ * tokeninit (cString) // initialize a TE * do while (!tokenend()) @@ -333,7 +333,7 @@ * $SYNTAX$ * SAVETOKEN () -> cStaticTokenEnvironment * $ARGUMENTS$ - * + * * $RETURNS$ * a binary string encoding the global TE * $DESCRIPTION$ @@ -342,9 +342,9 @@ * Note however that the latter can now be solved with locally stored * token environments. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ @@ -377,9 +377,9 @@ * of SAVETOKEN() or the value stored in the 4th parameter in a * TOKENINIT() call. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/trig.txt b/harbour/contrib/hbct/doc/en/trig.txt index 6a11e268ba..7e4d7ee5f9 100644 --- a/harbour/contrib/hbct/doc/en/trig.txt +++ b/harbour/contrib/hbct/doc/en/trig.txt @@ -12,7 +12,7 @@ * $SYNTAX$ * PI () -> nPi * $ARGUMENTS$ - * + * * $RETURNS$ * the math constant Pi with maximum precision available * $DESCRIPTION$ @@ -22,10 +22,10 @@ * $EXAMPLES$ * // the diameter of a circle-like swimming pool is 3.4 meters, how * // long is the perimeter ? - * + * * ? str(PI()*3.4,5,3)+" meters" --> 10.681 meters * $TESTS$ - * + * * $STATUS$ * Ready * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/video.txt b/harbour/contrib/hbct/doc/en/video.txt index 348ceaa433..7686be8ee3 100644 --- a/harbour/contrib/hbct/doc/en/video.txt +++ b/harbour/contrib/hbct/doc/en/video.txt @@ -12,15 +12,15 @@ * $SYNTAX$ * CHARPIX() --> nHeight * $ARGUMENTS$ - * + * * $RETURNS$ * Returns the number of scan lines per character. * $DESCRIPTION$ * Returns the number of scan lines per character. * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -30,7 +30,7 @@ * $FILES$ * Source is video.c, library is libct. * $SEEALSO$ - * + * * $END$ */ @@ -56,11 +56,11 @@ * $RETURNS$ * Returns .T. on success. * $DESCRIPTION$ - * + * * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -84,15 +84,15 @@ * $SYNTAX$ * VIDEOTYPE() --> nMask * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: Finish documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -124,13 +124,13 @@ * Number of characters to load. * When .T., the function computes font height automatically. * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: Finish documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ @@ -140,6 +140,6 @@ * $FILES$ * Source is video.c, library is libct. * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbct/doc/en/wordtoch.txt b/harbour/contrib/hbct/doc/en/wordtoch.txt index 8ed0fb37be..d7f31e7745 100644 --- a/harbour/contrib/hbct/doc/en/wordtoch.txt +++ b/harbour/contrib/hbct/doc/en/wordtoch.txt @@ -13,15 +13,15 @@ * WORDTOCHAR (, , * ) -> cString * $ARGUMENTS$ - * + * * $RETURNS$ - * + * * $DESCRIPTION$ * TODO: add documentation * $EXAMPLES$ - * + * * $TESTS$ - * + * * $STATUS$ * Started * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/getinfo.prg b/harbour/contrib/hbct/getinfo.prg index 9cbc9f1d19..e414730103 100644 --- a/harbour/contrib/hbct/getinfo.prg +++ b/harbour/contrib/hbct/getinfo.prg @@ -77,7 +77,7 @@ FUNCTION GETFLDROW( nField ) ELSEIF nField >= 1 .AND. nField <= LEN( GetList ) oGet := GetList[ nField ] ENDIF - RETURN IIF( oGet != NIL, oGet:Row, -1 ) + RETURN iif( oGet != NIL, oGet:Row, -1 ) FUNCTION GETFLDCOL( nField ) LOCAL oGet @@ -86,7 +86,7 @@ FUNCTION GETFLDCOL( nField ) ELSEIF nField >= 1 .AND. nField <= LEN( GetList ) oGet := GetList[ nField ] ENDIF - RETURN IIF( oGet != NIL, oGet:Col, -1 ) + RETURN iif( oGet != NIL, oGet:Col, -1 ) FUNCTION GETFLDVAR( nField ) LOCAL oGet @@ -95,4 +95,4 @@ FUNCTION GETFLDVAR( nField ) ELSEIF nField >= 1 .AND. nField <= LEN( GetList ) oGet := GetList[ nField ] ENDIF - RETURN IIF( oGet != NIL, oGet:Name, -1 ) + RETURN iif( oGet != NIL, oGet:Name, -1 ) diff --git a/harbour/contrib/hbfimage/tests/fitest.prg b/harbour/contrib/hbfimage/tests/fitest.prg index cb0f4586ee..cf70a43272 100644 --- a/harbour/contrib/hbfimage/tests/fitest.prg +++ b/harbour/contrib/hbfimage/tests/fitest.prg @@ -19,6 +19,7 @@ PROCEDURE Main() LOCAL im, clone, rotated, rotatedEx, rescale, im2, im3 LOCAL centerX, centerY, width, height + // LOCAL bmpinfoheader LOCAL bmpinfo // LOCAL bkcolor @@ -29,7 +30,7 @@ PROCEDURE Main() //? "Press Alt-D + Enter to activate debug" //AltD( .T. ) //Inkey(0) - altd() + AltD() // Check output directory IF !hb_DirExists( IMAGES_OUT ) #ifdef HB_COMPAT_C53 @@ -106,12 +107,12 @@ PROCEDURE Main() fi_Unload( im2 ) im2 := fi_Clone( im ) - ? "Adjust Brightness:", fi_AdjustBrightness( im2, -30 ) + ? "Adjust Brightness:", fi_AdjustBrightness( im2, - 30 ) ? "Save JPG ? :", fi_Save( FIF_JPEG, im2, IMAGES_OUT + "adjbrigh.jpg", JPEG_DEFAULT ) fi_Unload( im2 ) im2 := fi_Clone( im ) - ? "Adjust Contrast ?:", fi_AdjustContrast( im2, -30 ) + ? "Adjust Contrast ?:", fi_AdjustContrast( im2, - 30 ) ? "Save JPG ? :", fi_Save( FIF_JPEG, im2, IMAGES_OUT + "adjcontr.jpg", JPEG_DEFAULT ) fi_Unload( im2 ) @@ -171,23 +172,23 @@ PROCEDURE Main() //bkcolor:rgbBlue := 205 //? fi_SetBackgroundColor( im, hb_String2Pointer( bkcolor:Value() ) ) - Tracelog("linha 168") + Tracelog( "linha 168" ) //? fi_SetBackgroundColor( im, bkcolor:Value() ) - Tracelog("linha 170") + Tracelog( "linha 170" ) //? bkcolor:SayMembers(" ", .t., .t.) - Tracelog("linha 162") + Tracelog( "linha 162" ) //? bkcolor:Pointer( fi_GetBackgroundColor( im ) ) //? fi_GetBackgroundColor( im, @bkcolor:Value() ) //bkcolor:Buffer( appo ) - Tracelog("linha 176") + Tracelog( "linha 176" ) //? bkcolor:SayMembers(" ", .t., .t.) - Tracelog("linha 179") + Tracelog( "linha 179" ) //iccprofile:Pointer( fi_GetICCProfile( im ) ) - Tracelog("linha 181") + Tracelog( "linha 181" ) //? "Header :", ValToPrg( iccprofile ) - Tracelog("linha 183") - //? iccprofile:SayMembers(" ", .t., .t.) + Tracelog( "linha 183" ) + //? iccprofile:SayMembers(" ", .T., .T. ) //bmpinfoheader:Reset() //appo := NIL @@ -200,12 +201,12 @@ PROCEDURE Main() // - IF (nH := FOpen(IMAGES_IN + "sample1.jpg")) != F_ERROR - nLen := FSeek(nH, 0, FS_END) - FSeek(nH, 0, FS_SET) - cStr := space(nLen) - fRead(nH, @cStr, nLen) - FClose(nH) + IF ( nH := FOpen( IMAGES_IN + "sample1.jpg" ) ) != F_ERROR + nLen := FSeek( nH, 0, FS_END ) + FSeek( nH, 0, FS_SET ) + cStr := Space( nLen ) + FRead( nH, @cStr, nLen ) + FClose( nH ) ? "Load JPEG from memory" im := fi_LoadFromMem( FIF_JPEG, cStr, JPEG_DEFAULT ) @@ -226,36 +227,41 @@ PROCEDURE Main() RETURN PROCEDURE fi_Error( cFormat, cMessage ) + ? "ERROR!..." ? "Format : ", cFormat ? "Message : ", cMessage + RETURN PROCEDURE TraceLog( c ) + HB_SYMBOL_UNUSED( c ) + RETURN FUNCTION ValToPrg( xValue ) + LOCAL cType := ValType( xValue ) DO CASE CASE cType == "C" - xValue := StrTran( xValue, Chr(0), '"+Chr(0)+"' ) - xValue := StrTran( xValue, Chr(9), '"+Chr(9)+"' ) - xValue := StrTran( xValue, Chr(10), '"+Chr(10)+"' ) - xValue := StrTran( xValue, Chr(13), '"+Chr(13)+"' ) - xValue := StrTran( xValue, Chr(26), '"+Chr(26)+"' ) + xValue := StrTran( xValue, Chr( 0 ), '" + Chr( 0 ) + "' ) + xValue := StrTran( xValue, Chr( 9 ), '" + Chr( 9 ) + "' ) + xValue := StrTran( xValue, Chr( 10 ), '" + Chr( 10 ) + "' ) + xValue := StrTran( xValue, Chr( 13 ), '" + Chr( 13 ) + "' ) + xValue := StrTran( xValue, Chr( 26 ), '" + Chr( 26 ) + "' ) RETURN '"' + xValue + '"' - CASE cType == "N" ; RETURN LTrim( Str( xValue ) ) + CASE cType == "N" ; RETURN hb_ntos( xValue ) CASE cType == "D" ; RETURN 'HB_SToD("' + DToS( xValue ) + '")' CASE cType == "L" ; RETURN iif( xValue, ".T.", ".F." ) CASE cType == "O" ; RETURN xValue:className() + " Object" CASE cType == "U" ; RETURN "NIL" CASE cType == "B" ; RETURN '{||...}' - CASE cType == "A" ; RETURN '{.[' + LTrim( Str( Len( xValue ) ) ) + '].}' + CASE cType == "A" ; RETURN '{.[' + hb_ntos( Len( xValue ) ) + '].}' CASE cType == "M" ; RETURN 'M:"' + xValue + '"' ENDCASE diff --git a/harbour/contrib/hbgd/gdimage.prg b/harbour/contrib/hbgd/gdimage.prg index 74877cb984..406653d747 100644 --- a/harbour/contrib/hbgd/gdimage.prg +++ b/harbour/contrib/hbgd/gdimage.prg @@ -84,25 +84,25 @@ CREATE CLASS GDImage METHOD CreateTrueColor( sx, sy ) INLINE ::pImage := gdImageCreateTrueColor( sx, sy ), Self // Load From File - METHOD LoadFromPng( cFile ) INLINE ::pImage := gdImageCreateFromPng( cFile ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD LoadFromJpeg( cFile ) INLINE ::pImage := gdImageCreateFromJpeg( cFile ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD LoadFromWBmp( cFile ) INLINE ::pImage := gdImageCreateFromWBMP( cFile ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD LoadFromGd( cFile ) INLINE ::pImage := gdImageCreateFromGD( cFile ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD LoadFromGif( cFile ) INLINE ::pImage := gdImageCreateFromGif( cFile ) , IIF( ::pImage != NIL, Self, NIL ) + METHOD LoadFromPng( cFile ) INLINE ::pImage := gdImageCreateFromPng( cFile ) , iif( ::pImage != NIL, Self, NIL ) + METHOD LoadFromJpeg( cFile ) INLINE ::pImage := gdImageCreateFromJpeg( cFile ) , iif( ::pImage != NIL, Self, NIL ) + METHOD LoadFromWBmp( cFile ) INLINE ::pImage := gdImageCreateFromWBMP( cFile ) , iif( ::pImage != NIL, Self, NIL ) + METHOD LoadFromGd( cFile ) INLINE ::pImage := gdImageCreateFromGD( cFile ) , iif( ::pImage != NIL, Self, NIL ) + METHOD LoadFromGif( cFile ) INLINE ::pImage := gdImageCreateFromGif( cFile ) , iif( ::pImage != NIL, Self, NIL ) // Load From a specific File handle - METHOD InputPng( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromPng( nHandle, nSize ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD InputJpeg( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromJpeg( nHandle, nSize ), IIF( ::pImage != NIL, Self, NIL ) - METHOD InputWBmp( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromWBMP( nHandle, nSize ), IIF( ::pImage != NIL, Self, NIL ) - METHOD InputGd( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromGD( nHandle, nSize ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD InputGif( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromGif( nHandle, nSize ) , IIF( ::pImage != NIL, Self, NIL ) + METHOD InputPng( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromPng( nHandle, nSize ) , iif( ::pImage != NIL, Self, NIL ) + METHOD InputJpeg( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromJpeg( nHandle, nSize ), iif( ::pImage != NIL, Self, NIL ) + METHOD InputWBmp( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromWBMP( nHandle, nSize ), iif( ::pImage != NIL, Self, NIL ) + METHOD InputGd( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromGD( nHandle, nSize ) , iif( ::pImage != NIL, Self, NIL ) + METHOD InputGif( nHandle, nSize ) INLINE ::pImage := gdImageCreateFromGif( nHandle, nSize ) , iif( ::pImage != NIL, Self, NIL ) // Create from an image pointer in memory - METHOD CreateFromPng( pImage, nSize ) INLINE ::pImage := gdImageCreateFromPng( pImage, nSize ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD CreateFromJpeg( pImage, nSize ) INLINE ::pImage := gdImageCreateFromJpeg( pImage, nSize ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD CreateFromWBmp( pImage, nSize ) INLINE ::pImage := gdImageCreateFromWBMP( pImage, nSize ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD CreateFromGd( pImage, nSize ) INLINE ::pImage := gdImageCreateFromGD( pImage, nSize ) , IIF( ::pImage != NIL, Self, NIL ) - METHOD CreateFromGif( pImage, nSize ) INLINE ::pImage := gdImageCreateFromGif( pImage, nSize ) , IIF( ::pImage != NIL, Self, NIL ) + METHOD CreateFromPng( pImage, nSize ) INLINE ::pImage := gdImageCreateFromPng( pImage, nSize ) , iif( ::pImage != NIL, Self, NIL ) + METHOD CreateFromJpeg( pImage, nSize ) INLINE ::pImage := gdImageCreateFromJpeg( pImage, nSize ) , iif( ::pImage != NIL, Self, NIL ) + METHOD CreateFromWBmp( pImage, nSize ) INLINE ::pImage := gdImageCreateFromWBMP( pImage, nSize ) , iif( ::pImage != NIL, Self, NIL ) + METHOD CreateFromGd( pImage, nSize ) INLINE ::pImage := gdImageCreateFromGD( pImage, nSize ) , iif( ::pImage != NIL, Self, NIL ) + METHOD CreateFromGif( pImage, nSize ) INLINE ::pImage := gdImageCreateFromGif( pImage, nSize ) , iif( ::pImage != NIL, Self, NIL ) METHOD LoadFromFile( cFile ) @@ -116,11 +116,11 @@ CREATE CLASS GDImage METHOD SaveToFile( cFile ) INLINE gdImageToFile( Self, cFile ) // Output To a specified File handle - METHOD OutputPng( nHandle, nLevel ) INLINE IIF( nHandle == NIL, nHandle := 1, ), gdImagePng( ::pImage, nHandle, nLevel ) - METHOD OutputJpeg( nHandle, nLevel ) INLINE IIF( nHandle == NIL, nHandle := 1, ), gdImageJpeg( ::pImage, nHandle, nLevel ) - METHOD OutputWBmp( nHandle, nFG ) INLINE IIF( nHandle == NIL, nHandle := 1, ), gdImageWBmp( ::pImage, nHandle, nFG ) - METHOD OutputGd( nHandle ) INLINE IIF( nHandle == NIL, nHandle := 1, ), gdImageGd( ::pImage, nHandle ) - METHOD OutputGif( nHandle ) INLINE IIF( nHandle == NIL, nHandle := 1, ), gdImageGif( ::pImage, nHandle ) + METHOD OutputPng( nHandle, nLevel ) INLINE iif( nHandle == NIL, nHandle := 1, ), gdImagePng( ::pImage, nHandle, nLevel ) + METHOD OutputJpeg( nHandle, nLevel ) INLINE iif( nHandle == NIL, nHandle := 1, ), gdImageJpeg( ::pImage, nHandle, nLevel ) + METHOD OutputWBmp( nHandle, nFG ) INLINE iif( nHandle == NIL, nHandle := 1, ), gdImageWBmp( ::pImage, nHandle, nFG ) + METHOD OutputGd( nHandle ) INLINE iif( nHandle == NIL, nHandle := 1, ), gdImageGd( ::pImage, nHandle ) + METHOD OutputGif( nHandle ) INLINE iif( nHandle == NIL, nHandle := 1, ), gdImageGif( ::pImage, nHandle ) METHOD Output( nHandle ) INLINE gdImageToHandle( ::pImage, nHandle ) @@ -243,7 +243,7 @@ CREATE CLASS GDImage gdImageFTSize( cString, cFontName, nPitch ) /* COLOR HANDLING FUNCTIONS */ - METHOD SetColor( r, g, b ) INLINE IIF( PCount() == 2, ::pColor := r, ::pColor := gdImageColorAllocate( ::pImage, r, g, b ) ) + METHOD SetColor( r, g, b ) INLINE iif( PCount() == 2, ::pColor := r, ::pColor := gdImageColorAllocate( ::pImage, r, g, b ) ) METHOD DelColor( pColor ) INLINE ::pColor := NIL, gdImageColorDeAllocate( ::pImage, pColor ) METHOD SetColorAlpha( r, g, b, a ) INLINE ::pColor := gdImageColorAllocateAlpha( ::pImage, r, g, b, a) METHOD SetColorClosest( r, g, b ) INLINE ::pColor := gdImageColorClosest( ::pImage, r, g, b ) diff --git a/harbour/contrib/hbgd/tests/counter.prg b/harbour/contrib/hbgd/tests/counter.prg index a13c6acb88..55ca25f1a3 100644 --- a/harbour/contrib/hbgd/tests/counter.prg +++ b/harbour/contrib/hbgd/tests/counter.prg @@ -50,13 +50,13 @@ PROCEDURE Main( cValue, cBaseImage ) ? "Value = ", cValue // To set fonts run this command: - // for windows: SET GDFONTPATH=C:\windows\fonts + // for windows: SET GDFONTPATH=%WINDIR%\fonts // per linux : export GDFONTPATH=/usr/share/fonts/default/TrueType - // SET GDFONTPATH=C:\windows\fonts + // SET GDFONTPATH=%WINDIR%\fonts //IF GetEnv( "GDFONTPATH" ) == "" // ? "Please set GDFONTPATH" - // ? "On Windows: SET GDFONTPATH=C:\windows\fonts" + // ? "On Windows: SET GDFONTPATH=%WINDIR%\fonts" // ? "On Linux : export GDFONTPATH=/usr/share/fonts/default/TrueType" // ? //ENDIF diff --git a/harbour/contrib/hbgd/tests/gdtest.prg b/harbour/contrib/hbgd/tests/gdtest.prg index 7242c977ae..e551ebd4d6 100644 --- a/harbour/contrib/hbgd/tests/gdtest.prg +++ b/harbour/contrib/hbgd/tests/gdtest.prg @@ -22,10 +22,10 @@ PROCEDURE Main() // LOCAL aClip - // SET GDFONTPATH=C:\windows\fonts + // SET GDFONTPATH=%WINDIR%\fonts IF GetEnv( "GDFONTPATH" ) == "" ? "Please set GDFONTPATH" - ? "On Windows: SET GDFONTPATH=C:\windows\fonts" + ? "On Windows: SET GDFONTPATH=%WINDIR%\fonts" ? "On Linux : export GDFONTPATH=/usr/share/fonts/default/TrueType" ? ENDIF diff --git a/harbour/contrib/hbgd/tests/gdtestcl.prg b/harbour/contrib/hbgd/tests/gdtestcl.prg index c8d3321309..513c90e30b 100644 --- a/harbour/contrib/hbgd/tests/gdtestcl.prg +++ b/harbour/contrib/hbgd/tests/gdtestcl.prg @@ -24,10 +24,10 @@ PROCEDURE Main() // LOCAL aClip - // SET GDFONTPATH=C:\windows\fonts + // SET GDFONTPATH=%WINDIR%\fonts IF GetEnv( "GDFONTPATH" ) == "" ? "Please set GDFONTPATH" - ? "On Windows: SET GDFONTPATH=C:\windows\fonts" + ? "On Windows: SET GDFONTPATH=%WINDIR%\fonts" ? "On Linux : export GDFONTPATH=/usr/share/fonts/default/TrueType" ? ENDIF @@ -100,7 +100,7 @@ PROCEDURE Main() /* Draw an arc */ oI:Arc( 50, 50, 40, 40, 30, 190, , red ) - oI:Circle( 50, 150, 45, .T. , green ) + oI:Circle( 50, 150, 45, .T., green ) oI:Ellipse( 120, 120, 50, 20, , green ) /* Draw a character. */ diff --git a/harbour/contrib/hbgd/tests/test_out.prg b/harbour/contrib/hbgd/tests/test_out.prg index bf95dc33f1..1fd6376812 100644 --- a/harbour/contrib/hbgd/tests/test_out.prg +++ b/harbour/contrib/hbgd/tests/test_out.prg @@ -10,7 +10,7 @@ #include "gd.ch" -#command WRITE => FWrite( 1, + CHR(13)+CHR(10) ) +#command WRITE => FWrite( 1, + CHR( 13 ) + CHR( 10 ) ) #command OutHTML => WRITE PROCEDURE Main( ... ) @@ -25,7 +25,7 @@ PROCEDURE Main( ... ) // LOCAL cText IF Empty( aParams ) - IF !Empty( cQuery ) + IF ! Empty( cQuery ) hParams := GetVars( cQuery ) ENDIF ELSE @@ -35,7 +35,7 @@ PROCEDURE Main( ... ) //----------------------------------------------------------------------------------------- // Gestione parametri - IF !Empty( hParams ) + IF ! Empty( hParams ) FOR EACH cPar IN hParams:Keys DO CASE @@ -76,15 +76,15 @@ PROCEDURE Main( ... ) //OutHTML ValToPrg( hParams ) + "
" //OutHTML ValToPrg( cParams ) + "
" //OutHTML ValToPrg( cQuery ) + "
" - //OutHTML "" + "
" + //OutHTML "" + "
" OutHTML "" OutHTML "" OutHTML "" OutHTML "" OutHTML "
" OutHTML "" + "
" OutHTML "
" OutHTML "" + "
" OutHTML "
" @@ -92,7 +92,7 @@ PROCEDURE Main( ... ) OutHTML "
" OutHTML "
" - //OutHTML "" + "
" + //OutHTML "" + "
" //OutHTML OS() + "
" //OutHTML iif( OS_ISWINNT(), "WIN NT", "NON WIN NT" ) + "
" EndHTML() @@ -125,7 +125,7 @@ PROCEDURE EndHTML() RETURN -// per windows: SET GDFONTPATH=C:\windows\fonts +// per windows: SET GDFONTPATH=%WINDIR%\fonts // per linux : export GDFONTPATH=/usr/share/fonts/default/TrueType PROCEDURE OutPhoto( cPhoto, nWidth, nHeight ) diff --git a/harbour/contrib/hbide/idetags.prg b/harbour/contrib/hbide/idetags.prg index 9fc4dbfc63..5b56b2700c 100644 --- a/harbour/contrib/hbide/idetags.prg +++ b/harbour/contrib/hbide/idetags.prg @@ -285,7 +285,7 @@ FUNCTION Summarize( aText, cComments, aSumData, nFileType ) ccLine := "" c := "" - AEval( a, {|x| c += x, nNest := Max( 0, nNest + IIf( x == "{", 1, IIf( x == "}", -1, 0 ) ) ) } ) + AEval( a, {|x| c += x, nNest := Max( 0, nNest + iif( x == "{", 1, iif( x == "}", -1, 0 ) ) ) } ) ccLine := AllTrim( c ) ELSE IF ! Empty( cLine ) @@ -295,7 +295,7 @@ FUNCTION Summarize( aText, cComments, aSumData, nFileType ) ccLine := "" nLine := i+1 ELSE - AEval( a, {|x| IIf( x == ";", ( nLine := i+1, ccLine :="", c := "" ), c += x ), nNest := Max( 0, nNest + IIf( x == "{", 1, IIf( x == "}", -1, 0 ) ) ) } ) + AEval( a, {|x| iif( x == ";", ( nLine := i+1, ccLine :="", c := "" ), c += x ), nNest := Max( 0, nNest + iif( x == "{", 1, iif( x == "}", -1, 0 ) ) ) } ) ENDIF IF !lInComment .AND. ! Empty(c) ccLine += AllTrim( c ) + " " @@ -315,7 +315,7 @@ FUNCTION Summarize( aText, cComments, aSumData, nFileType ) ELSE a := ParsExpr( aText[ i ], .F. , @lInComment, , .F., .F.) - AEval( a,{|x| nNest := Max( 0, nNest + IIf( x == "{", 1, IIf( x == "}", -1, 0 ) ) ) } ) + AEval( a,{|x| nNest := Max( 0, nNest + iif( x == "{", 1, iif( x == "}", -1, 0 ) ) ) } ) ccLine := "" nLine := i+1 ENDIF diff --git a/harbour/contrib/hblzf/tests/test2.prg b/harbour/contrib/hblzf/tests/test2.prg index e84502d44a..205bcad2d9 100644 --- a/harbour/contrib/hblzf/tests/test2.prg +++ b/harbour/contrib/hblzf/tests/test2.prg @@ -46,8 +46,8 @@ STATIC PROCEDURE MakeTest( ... ) cFmt := hb_strFormat( ; "%s: %d -> %d, Ratio %.2f%%, Times %.2f", ; e:__enumKey(), ; - Len( IIf( lCmp, hb_pValue( 3 ), e2 ) ), Len( cRes ), ; - ( Len( cRes ) / Len( IIf( lCmp, hb_pValue( 3 ), e2 ) ) ) * 100, ; + Len( iif( lCmp, hb_pValue( 3 ), e2 ) ), Len( cRes ), ; + ( Len( cRes ) / Len( iif( lCmp, hb_pValue( 3 ), e2 ) ) ) * 100, ; nEnd - nBegin; ) ? cFmt diff --git a/harbour/contrib/hbmisc/doc/en/ht_conv.txt b/harbour/contrib/hbmisc/doc/en/ht_conv.txt index f638ab17c5..40ceb0b90a 100644 --- a/harbour/contrib/hbmisc/doc/en/ht_conv.txt +++ b/harbour/contrib/hbmisc/doc/en/ht_conv.txt @@ -23,11 +23,11 @@ * $SYNTAX$ * ISBIN() -> * $ARGUMENTS$ - * STRING TO BE CHECKED + * STRING TO BE CHECKED * $RETURNS$ - * .T. IF THE STRING IS BYNARY,otherwise .F. + * .T. IF THE STRING IS BYNARY,otherwise .F. * $DESCRIPTION$ - * check if the passed string is a bynary number or not + * check if the passed string is a bynary number or not * $FILES$ * Library is libmisc * $SEEALSO$ @@ -45,11 +45,11 @@ * $SYNTAX$ * ISOCTAL() -> * $ARGUMENTS$ - * STRING TO BE CHECKED + * STRING TO BE CHECKED * $RETURNS$ - * .T. IF THE STRING IS OCTAL;otherwise .F. + * .T. IF THE STRING IS OCTAL;otherwise .F. * $DESCRIPTION$ - * check if the passed string is a octal number or not + * check if the passed string is a octal number or not * $FILES$ * Library is libmisc * $SEEALSO$ @@ -67,11 +67,11 @@ * $SYNTAX$ * ISDEC() -> * $ARGUMENTS$ - * STRING TO BE CHECKED + * STRING TO BE CHECKED * $RETURNS$ - * .T. IF THE STRING IS DECIMAL;otherwise .F. + * .T. IF THE STRING IS DECIMAL;otherwise .F. * $DESCRIPTION$ - * check if the passed string is a decimal number or not + * check if the passed string is a decimal number or not * $FILES$ * Library is libmisc * $SEEALSO$ @@ -89,11 +89,11 @@ * $SYNTAX$ * ISHEXA() -> * $ARGUMENTS$ - * STRING TO BE CHECKED + * STRING TO BE CHECKED * $RETURNS$ - * .T. IF THE STRING IS HEXA;otherwise .F. + * .T. IF THE STRING IS HEXA;otherwise .F. * $DESCRIPTION$ - * check if the passed string is a hexa number or not + * check if the passed string is a hexa number or not * $FILES$ * Library is libmisc * $SEEALSO$ @@ -111,12 +111,12 @@ * $SYNTAX$ * DECTOBIN() -> * $ARGUMENTS$ - * NUMBER TO BE CONVERTED + * NUMBER TO BE CONVERTED * $RETURNS$ - * NUMBER CONVERTED + * NUMBER CONVERTED * $DESCRIPTION$ * This function converts a string from an decimal value - * to an binary value. + * to an binary value. * $FILES$ * Library is libmisc * $SEEALSO$ @@ -134,12 +134,12 @@ * $SYNTAX$ * DECTOOCTAL() -> * $ARGUMENTS$ - * NUMBER TO BE CONVERTED + * NUMBER TO BE CONVERTED * $RETURNS$ - * NUMBER CONVERTED + * NUMBER CONVERTED * $DESCRIPTION$ * This function converts a string from an decimal value - * to an octal value. + * to an octal value. * $FILES$ * Library is libmisc * $SEEALSO$ @@ -157,12 +157,12 @@ * $SYNTAX$ * DECTOHEXA() -> * $ARGUMENTS$ - * NUMBER TO BE CONVERTED + * NUMBER TO BE CONVERTED * $RETURNS$ - * NUMBER CONVERTED + * NUMBER CONVERTED * $DESCRIPTION$ * This function converts a string from an decimal value - * to an hexadecimal value. + * to an hexadecimal value. * $FILES$ * Library is libmisc * $SEEALSO$ @@ -180,12 +180,12 @@ * $SYNTAX$ * BIntODEC() -> * $ARGUMENTS$ - * NUMBER TO BE CONVERTED + * NUMBER TO BE CONVERTED * $RETURNS$ - * NUMBER CONVERTED + * NUMBER CONVERTED * $DESCRIPTION$ * This function converts a string from an binary value - * to a numeric decimal value. + * to a numeric decimal value. * $FILES$ * Library is libmisc * $SEEALSO$ @@ -203,12 +203,12 @@ * $SYNTAX$ * OCTALTODEC() -> * $ARGUMENTS$ - * NUMBER TO BE CONVERTED + * NUMBER TO BE CONVERTED * $RETURNS$ - * NUMBER CONVERTED + * NUMBER CONVERTED * $DESCRIPTION$ * This function converts a string from an octal value - * to a numeric decimal value. + * to a numeric decimal value. * $FILES$ * Library is libmisc * $SEEALSO$ @@ -226,12 +226,12 @@ * $SYNTAX$ * HEXATODEC() -> * $ARGUMENTS$ - * NUMBER TO BE CONVERTED + * NUMBER TO BE CONVERTED * $RETURNS$ - * NUMBER CONVERTED + * NUMBER CONVERTED * $DESCRIPTION$ * This function converts a string from an hexadecimal value - * to a numeric decimal value. + * to a numeric decimal value. * $FILES$ * Library is libmisc * $SEEALSO$ diff --git a/harbour/contrib/hbmisc/fcomma.prg b/harbour/contrib/hbmisc/fcomma.prg index 21def4eff6..b6148f26e1 100644 --- a/harbour/contrib/hbmisc/fcomma.prg +++ b/harbour/contrib/hbmisc/fcomma.prg @@ -123,8 +123,8 @@ STATIC FUNCTION FCM_OPEN( nWA, aOpenInfo ) aOpenInfo[ UR_OI_ALIAS ] := cName ENDIF - nMode := IIF( aOpenInfo[ UR_OI_SHARED ], FO_SHARED , FO_EXCLUSIVE ) + ; - IIF( aOpenInfo[ UR_OI_READONLY ], FO_READ, FO_READWRITE ) + nMode := iif( aOpenInfo[ UR_OI_SHARED ], FO_SHARED , FO_EXCLUSIVE ) + ; + iif( aOpenInfo[ UR_OI_READONLY ], FO_READ, FO_READWRITE ) aRData := USRRDD_RDDDATA( USRRDD_ID( nWA ) ) aWData := USRRDD_AREADATA( nWA ) diff --git a/harbour/contrib/hbmisc/fileread.prg b/harbour/contrib/hbmisc/fileread.prg index 251773e95f..45c8143a27 100644 --- a/harbour/contrib/hbmisc/fileread.prg +++ b/harbour/contrib/hbmisc/fileread.prg @@ -235,7 +235,7 @@ METHOD ErrorMsg( cText ) CLASS TFileRead ELSE nTemp := ::nLastOp + 1 ENDIF - cMessage := iif( EMPTY( cText ), "", cText ) + "Error " + ALLTRIM( STR( ::nError ) ) + " " + s_cAction[ nTemp ] + " " + ::cFile + cMessage := iif( EMPTY( cText ), "", cText ) + "Error " + hb_ntos( ::nError ) + " " + s_cAction[ nTemp ] + " " + ::cFile ENDIF RETURN cMessage diff --git a/harbour/contrib/hbmisc/hbedit.prg b/harbour/contrib/hbmisc/hbedit.prg index 0025fb5268..2dc236228d 100644 --- a/harbour/contrib/hbmisc/hbedit.prg +++ b/harbour/contrib/hbmisc/hbedit.prg @@ -8,7 +8,7 @@ #include "box.ch" -#define IIFNIL( isnil, notnil ) IIF(notnil==NIL, isnil, notnil) +#define IIFNIL( isnil, notnil ) iif(notnil==NIL, isnil, notnil) #define EDIT_LOWER 0 // convert to lowercase #define EDIT_UPPER 1 // convert to uppercase @@ -265,13 +265,13 @@ FUNCTION EditorFile( xInput, cOutput, nLineLen, ; nLen := s_nESize ENDIF - nSize := IIF( nLen < 8192, nLen*2, INT(nLen*1.5) ) + nSize := iif( nLen < 8192, nLen*2, INT(nLen*1.5) ) oEdit := EditorNew( 01,00,23,79, nLineLen, "--- ", cOutput, , ; nSize, nEscape ) IF nHandle > 0 ED_ReadText( oEdit[E_EDIT], nHandle, 0, nLen, ; - IIF( lConv==NIL, .F., lConv ) ) + iif( lConv==NIL, .F., lConv ) ) IF lClose FCLOSE( nHandle ) ENDIF @@ -301,7 +301,7 @@ FUNCTION EditorFile( xInput, cOutput, nLineLen, ; FUNCTION EditorRead( oEditor, nHandle, nOffset, nLen, lConv ) RETURN ED_ReadText( oEditor[E_EDIT], nHandle, nOffset, nLen, ; - IIF( lConv==NIL, .T., lConv ) ) + iif( lConv==NIL, .T., lConv ) ) //--------------------------------------------------------- //03-06-93 08:31pm @@ -324,7 +324,7 @@ FUNCTION EditorEdit( oEdit, lEdit, lFrame ) oEdit[E_INSERT] := SET( _SET_INSERT ) // SayInsert() - nCursor := SetCursor( IIF(oEdit[E_INSERT], SC_NORMAL, SC_SPECIAL1) ) + nCursor := SetCursor( iif(oEdit[E_INSERT], SC_NORMAL, SC_SPECIAL1) ) IF HB_ISLOGICAL( lEdit ) oEdit[E_MODE] := lEdit ENDIF @@ -450,7 +450,7 @@ STATIC PROCEDURE EditorKeys( oEdit, nKey ) CASE nKey == K_INS oEdit[E_INSERT] := !oEdit[E_INSERT] SET( _SET_INSERT, oEdit[E_INSERT] ) - SetCursor( IIF(oEdit[E_INSERT], SC_NORMAL, SC_SPECIAL1) ) + SetCursor( iif(oEdit[E_INSERT], SC_NORMAL, SC_SPECIAL1) ) // SayInsert() ENDCASE diff --git a/harbour/contrib/hbnf/anomatch.prg b/harbour/contrib/hbnf/anomatch.prg index e0a39e1460..09b34a06ec 100644 --- a/harbour/contrib/hbnf/anomatch.prg +++ b/harbour/contrib/hbnf/anomatch.prg @@ -44,7 +44,7 @@ FUNCTION FT_ANOMATCHES(aArray, bCompareBlock, nStartIndex, nEndIndex) AEVAL(aArray, ; { | xElement | ; - IIF(EVAL(bCompareBlock, xElement), nNoOfMatches++, NIL) }, ; + iif(EVAL(bCompareBlock, xElement), nNoOfMatches++, NIL) }, ; nStartIndex, nEndIndex - nStartIndex + 1) RETURN nNoOfMatches // FT_ANoMatches diff --git a/harbour/contrib/hbnf/calendar.prg b/harbour/contrib/hbnf/calendar.prg index 8c2329fbba..c0e92b6114 100644 --- a/harbour/contrib/hbnf/calendar.prg +++ b/harbour/contrib/hbnf/calendar.prg @@ -52,14 +52,14 @@ FUNCTION FT_CALENDAR (nRow, nCol, cColor, lShadow, lShowHelp) LOCAL aRetVal[8] LOCAL nHelpRow, cSaveHelp, lHelpIsDisplayed :=.F. - nRow := IIF ( nRow != NIL, nRow, 1 ) //check display row - nCol := IIF ( nCol != NIL, nCol, 63) //check display col - cColor := IIF ( cColor != NIL, cColor, 'W+/G' ) //check display color - lShadow := IIF ( lShadow == NIL , .F., lShadow ) //check shadow switch - lShowHelp := IIF ( lShowHelp == NIL , .F., lShowHelp )//check help switch + nRow := iif( nRow != NIL, nRow, 1 ) //check display row + nCol := iif( nCol != NIL, nCol, 63) //check display col + cColor := iif( cColor != NIL, cColor, 'W+/G' ) //check display color + lShadow := iif( lShadow == NIL , .F., lShadow ) //check shadow switch + lShowHelp := iif( lShowHelp == NIL , .F., lShowHelp )//check help switch - nRow := IIF ( nRow <1 .OR. nRow >21, 1, nRow ) //check row bounds - nCol := IIF ( nCol <1 .OR. nCol >63, 63, nCol ) //check col bounds + nRow := iif( nRow <1 .OR. nRow >21, 1, nRow ) //check row bounds + nCol := iif( nCol <1 .OR. nCol >63, 63, nCol ) //check col bounds cSavColor := SETCOLOR(cColor) //save current and set display color cSaveScreen := SAVESCREEN( nRow-1, nCol-1, nRow+3, nCol+17 ) //save screen @@ -71,7 +71,7 @@ FUNCTION FT_CALENDAR (nRow, nCol, cColor, lShadow, lShowHelp) ENDIF IF lShowHelp - nHelpRow := IIF (nRow > 10 , nRow - 10 , nRow + 6 ) + nHelpRow := iif(nRow > 10 , nRow - 10 , nRow + 6 ) ENDIF DO WHILE nKey != K_ESC @@ -151,7 +151,7 @@ FUNCTION FT_CALENDAR (nRow, nCol, cColor, lShadow, lShowHelp) STATIC FUNCTION JDOY (nYear, nMonth, nDay) LOCAL cString :='000031059090120151181212243273304334' RETURN VALS(cString,(nMonth-1)*3+1,3) + nDay +; - IIF( nYear%4==0.AND.nMonth>2, 1, 0) + iif( nYear%4==0.AND.nMonth>2, 1, 0) STATIC FUNCTION VALS (cString, nOffset, nChar) RETURN VAL(SUBSTR(cString,nOffset,nChar)) diff --git a/harbour/contrib/hbnf/clrsel.prg b/harbour/contrib/hbnf/clrsel.prg index d75e4794cb..11af60b408 100644 --- a/harbour/contrib/hbnf/clrsel.prg +++ b/harbour/contrib/hbnf/clrsel.prg @@ -76,8 +76,8 @@ DispBox( , , , , REPLICATE(,9) ) #command DEFAULT

TO [, TO ] =>; -

:= IIF(

== Nil, ,

); ; - [ := IIF( == Nil, , ) ] +

:= iif(

== Nil, ,

); ; + [ := iif( == Nil, , ) ] *------------------------------------------------ // Demo of FT_ClrSel() @@ -173,11 +173,11 @@ DEFAULT cChr TO chr(254)+chr(254) cChr := PadR( cChr, 2 ) SETCURSOR( SC_NONE ) -SETCOLOR( IIF( lColour, "GR+/N,,N/N", "W+/N,,N/N" ) ) +SETCOLOR( iif( lColour, "GR+/N,,N/N", "W+/N,,N/N" ) ) CLS *.... initialize the colour palette -aClrPal := _ftInitPal( IIF( lColour, aClrTab, aClrBW ) ) +aClrPal := _ftInitPal( iif( lColour, aClrTab, aClrBW ) ) *.... paint the colours on the screen _ftShowPal( aClrPal, cChr ) @@ -199,7 +199,7 @@ nL := MAX( INT( (27-nLen) /2 )-2, 1 ) nR := MIN( nL + nLen + 3, 26 ) *.... set up the window for aChoice -SETCOLOR( IIF( lColour, "N/W,W+/R", "N/W,W+/N" ) ) +SETCOLOR( iif( lColour, "N/W,W+/R", "N/W,W+/N" ) ) ClearS( nT, nL, nB, nR ) *.... prompt for colour setting and modify @@ -224,7 +224,7 @@ FT_RestSets( aEnvSav ) RESTSCREEN( 00, 00, MAXROW(), MAXCOL(), cScrSav ) SETPOS( nRowSav, nColSav ) -RETURN IIF( nChoice == 1, aClrs, aClrOld ) +RETURN iif( nChoice == 1, aClrs, aClrOld ) *------------------------------------------------ STATIC FUNCTION _ftHiLite( nRow, nCol, cStr, nLen ) @@ -281,7 +281,7 @@ IF !( aOpt[ C_TYPE ] == "T" ) // no prompt for titles *.... we need to know top,left,bottom,right for the prompt window aEval( aPrompt, { |cPrompt| nLen := MAX( nLen, LEN( cPrompt ) ) } ) nLen := MAX( nLen, LEN( aOpt[ C_NAME ] ) + 2 ) - nT := IIF( aOpt[ C_TYPE ] == "M", 18, 19 ) + nT := iif( aOpt[ C_TYPE ] == "M", 18, 19 ) nB := nT + LEN(aPrompt) + 1 nL := MAX( INT( (27-nLen) /2 )-2, 1 ) nR := MIN( nL + nLen + 3, 26 ) @@ -297,7 +297,7 @@ DO WHILE .T. _ftShowIt( aOpt ) IF !( aOpt[ C_TYPE ] == "T" ) // no prompt for titles - SETCOLOR( IIF( lColour, "N/W,W+/R,,,N/W", "N/W,W+/N,,,N/W" ) ) + SETCOLOR( iif( lColour, "N/W,W+/R,,,N/W", "N/W,W+/N,,,N/W" ) ) Double( nT, nL+1, nB, nR-1 ) @ nT, nL+2 SAY PadC( " "+ aOpt[C_NAME] +" ", nR -nL -3, "Í" ) FOR nX := 1 TO LEN( aPrompt ) @@ -321,7 +321,7 @@ DO WHILE .T. aClrs := _ftChr2Arr( aOpt[ C_CLR ] ) // place color string in an array aSize( aClrs, 5 ) // make sure there are 5 settings *.... empty elements are made Nil so they can be defaulted - aEval( aClrs, { |v,e| aClrs[e] := IIF( EMPTY(v), Nil, ALLTRIM(v) ) } ) + aEval( aClrs, { |v,e| aClrs[e] := iif( EMPTY(v), Nil, ALLTRIM(v) ) } ) DEFAULT aClrs[1] TO "W/N" DEFAULT aClrs[2] TO "N/W" // place default colours into DEFAULT aClrs[3] TO "N/N" // elements which are empty @@ -484,14 +484,14 @@ NEXT IF ! lFound nR := 1 // black background - nC := IIF( nDim == 5, 3, 8 ) // white foreground + nC := iif( nDim == 5, 3, 8 ) // white foreground ENDIF DO WHILE .T. *.... make sure array boundary not exceeded - nR := IIF( nR > nDim, 1, IIF( nR == 0, nDim, nR ) ) - nC := IIF( nC > nDim, 1, IIF( nC == 0, nDim, nC ) ) + nR := iif( nR > nDim, 1, iif( nR == 0, nDim, nR ) ) + nC := iif( nC > nDim, 1, iif( nC == 0, nDim, nC ) ) *.... place selected colour in the appropriate spot in clr string aOpt[ C_CLR ] := _ftClrPut( aOpt[ C_CLR ], nElem, aClrPal[ nR, nC ] ) @@ -560,7 +560,7 @@ NEXT n := nElem + 18 DO WHILE .T. *.... make sure boundary not exeeded - n := IIF( n > Len(aChar)+18, 19, IIF( n < 19, Len(aChar)+18, n ) ) + n := iif( n > Len(aChar)+18, 19, iif( n < 19, Len(aChar)+18, n ) ) *.... show sample window aOpt[ C_CHAR ] := aChar[ n-18 ] // place in array @@ -602,7 +602,7 @@ cString += cDelim DO WHILE .T. IF EMPTY( cString ) ; EXIT ; ENDIF n := AT( cDelim, cString ) - AADD( aArray, IIF( n == 1, "", LEFT( cString, n - 1 ) ) ) + AADD( aArray, iif( n == 1, "", LEFT( cString, n - 1 ) ) ) cString := SUBS( cString, n + 1 ) ENDDO @@ -618,7 +618,7 @@ LOCAL cString := "" DEFAULT aArray TO {} DEFAULT cDelim TO "," -AEVAL( aArray, { |v,e| cString += IIF( e == 1, v, cDelim + v ) } ) +AEVAL( aArray, { |v,e| cString += iif( e == 1, v, cDelim + v ) } ) RETURN cString @@ -659,8 +659,8 @@ LOCAL aClrPal := ARRAY( nDim*2, nDim*2 ) FOR nF := 1 TO nDim*2 FOR nB := 1 TO nDim*2 aClrPal[ nF, nB ] :=; - IIF( nF <= nDim, aClrTab[ nF ], aClrTab[ nF-nDim ] +"+" ) +"/"+; - IIF( nB <= nDim, aClrTab[ nB ], aClrTab[ nB-nDim ] +"*" ) + iif( nF <= nDim, aClrTab[ nF ], aClrTab[ nF-nDim ] +"+" ) +"/"+; + iif( nB <= nDim, aClrTab[ nB ], aClrTab[ nB-nDim ] +"*" ) NEXT NEXT @@ -676,7 +676,7 @@ LOCAL n := 1 DO WHILE lIdentical .AND. n <= LEN(aArr1) IF VALTYPE( aArr1[n] ) == VALTYPE( aArr2[n] ) - lIdentical := IIF( VALTYPE( aArr1[n] ) == "A", ; + lIdentical := iif( VALTYPE( aArr1[n] ) == "A", ; _ftIdentArr( aArr1[n], aArr2[n] ), ; aArr1[n] == aArr2[n] ) ELSE diff --git a/harbour/contrib/hbnf/dispmsg.prg b/harbour/contrib/hbnf/dispmsg.prg index 13266267e0..4a36a9eb3c 100644 --- a/harbour/contrib/hbnf/dispmsg.prg +++ b/harbour/contrib/hbnf/dispmsg.prg @@ -51,15 +51,15 @@ PROCEDURE Main( cCmdLine ) lColor := .T. - cNormH := IIF( lColor, "W+/BG","W+/N" ) - cNormN := IIF( lColor, "N/BG" ,"W/N" ) - cNormE := IIF( lColor, "N/W" , "N/W" ) - cWindH := IIF( lColor, "W+/B", "W+/N" ) - cWindN := IIF( lColor, "W/B" , "W/N" ) - cWindE := IIF( lColor, "N/W" , "N/W" ) - cErrH := IIF( lColor, "W+/R", "W+/N" ) - cErrN := IIF( lColor, "W/R" , "W/N" ) - cErrE := IIF( lColor, "N/W" , "N/W" ) + cNormH := iif( lColor, "W+/BG","W+/N" ) + cNormN := iif( lColor, "N/BG" ,"W/N" ) + cNormE := iif( lColor, "N/W" , "N/W" ) + cWindH := iif( lColor, "W+/B", "W+/N" ) + cWindN := iif( lColor, "W/B" , "W/N" ) + cWindE := iif( lColor, "N/W" , "N/W" ) + cErrH := iif( lColor, "W+/R", "W+/N" ) + cErrN := iif( lColor, "W/R" , "W/N" ) + cErrE := iif( lColor, "N/W" , "N/W" ) cDosScrn := SAVESCREEN() nDosRow := ROW() @@ -164,7 +164,7 @@ FUNCTION FT_DispMsg( aInfo, cKey, nBoxTop, nBoxLeft, cnBoxString, lShadow ) cnBoxString := "ÚÄ¿³ÙÄÀ³ " ENDIF - lShadow := IIF( lShadow == NIL, .T., lShadow ) + lShadow := iif( lShadow == NIL, .T., lShadow ) cOldScreen := SAVESCREEN( nBoxTop, nBoxLeft, nBoxBottom+1, nBoxRight+2 ) diff --git a/harbour/contrib/hbnf/doc/en/aading.txt b/harbour/contrib/hbnf/doc/en/aading.txt index da397921a8..5155b7a76c 100644 --- a/harbour/contrib/hbnf/doc/en/aading.txt +++ b/harbour/contrib/hbnf/doc/en/aading.txt @@ -14,14 +14,14 @@ * -> aNewArray * $ARGUMENTS$ * is the primary array. - * + * * is the secondary array. - * + * * is a logical value denoting whether leading or * trailing spaces should be included in the * comparison. If .T., then ignores spaces in * comparison, defaults to .T., .F. includes spaces. - * + * * is a logical value denoting case sensitivity. * If .T., then comparison is sensitive to case, * defaults to .T., .F. ignores case. @@ -34,15 +34,15 @@ * $EXAMPLES$ * aList1 := {"apple", "orange", "pear"} * aList2 := {"apple ", "banana", "PEAR"} - * + * * FT_AADDITION( aList1, aList2 ) * // ignores spaces, sensitive to case * // returns {"apple","orange","pear","banana","PEAR"} - * + * * FT_AADDITION( aList1, aList2, , .F. ) * // ignores spaces, not sensitive to case * // returns {"apple","orange","pear","banana"} - * + * * FT_AADDITION( aList1, aList2, .F., .F. ) * // sensitive to spaces, not sensitive to case * // returns {"apple","orange","pear","apple ","banana"} diff --git a/harbour/contrib/hbnf/doc/en/aavg.txt b/harbour/contrib/hbnf/doc/en/aavg.txt index 46ffbc88ca..cb23644d75 100644 --- a/harbour/contrib/hbnf/doc/en/aavg.txt +++ b/harbour/contrib/hbnf/doc/en/aavg.txt @@ -13,10 +13,10 @@ * FT_AAVG( [, [, ] ] ) -> nAverage * $ARGUMENTS$ * is the array containing the elements to be averaged. - * + * * is the first array item to include, * defaults to first element. - * + * * is the last array element to include, * defaults to all elements. * $RETURNS$ @@ -24,15 +24,15 @@ * $DESCRIPTION$ * This function is used to get a numeric average of selected or all * elements of an array. - * + * * 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 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/acctadj.txt b/harbour/contrib/hbnf/doc/en/acctadj.txt index 06d52387e1..b7d52ac37d 100644 --- a/harbour/contrib/hbnf/doc/en/acctadj.txt +++ b/harbour/contrib/hbnf/doc/en/acctadj.txt @@ -14,7 +14,7 @@ * $ARGUMENTS$ * is any valid date in any valid format. * Defaults to DATE() if not supplied. - * + * * is a logical variable. .F. = adjust for beginning of * period mode, .T. = adjust for end of period mode. Defaults to * beginning of period mode. @@ -22,17 +22,17 @@ * An adjusted date dependent upon mode and work week start day. * $DESCRIPTION$ * Called by other FT_ACCT.. functions. The algorithm is: - * + * * Beginning of period mode: - * + * * If dGivenDate is in last 3 days of work week * Return next week's start date * Else * Return this week's start date * Endif - * + * * End of period mode: - * + * * If dGivenDate is in last 4 days of work week * Return this week's end date * Else @@ -40,18 +40,18 @@ * Endif * $EXAMPLES$ * Beginning of period mode (lIsEnd == .F.) - * + * * dDate := Ctod( "01/31/91" ) // In last 3 days of work week * ? FT_ACCTADJ( dDate ) // 02/03/91 (next week's start) - * + * * dDate := Ctod( "03/31/91" ) // Not in last 3 days of work week * ? FT_ACCTADJ( dDate ) // 03/31/91 (this week's start) - * + * * End of period mode (lIsEnd == .T.) - * + * * dDate := Ctod( "01/31/91" ) // In last 4 days of work week * ? FT_ACCTADJ( dDate, .T. ) // 02/02/91 (this week's end) - * + * * dDate := Ctod( "03/31/91" ) // Not in last 4 days of work week * ? FT_ACCTADJ( dDate, .T. ) // 03/30/91 (prior week's end) * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/acctmnth.txt b/harbour/contrib/hbnf/doc/en/acctmnth.txt index fbb93637d9..01f3b04022 100644 --- a/harbour/contrib/hbnf/doc/en/acctmnth.txt +++ b/harbour/contrib/hbnf/doc/en/acctmnth.txt @@ -14,25 +14,25 @@ * $ARGUMENTS$ * is any valid date in any date format. Defaults * to current system date if not supplied. - * + * * is a number from 1 to 12 signifying a month. * Defaults to current month if not supplied. * $RETURNS$ * A three element array containing the following data: - * + * * aDateInfo[1] - The year and month as a character string "YYYYMM" * aDateInfo[2] - The beginning date of the accounting month * aDateInfo[3] - The ending date of the accounting month * $DESCRIPTION$ * FT_ACCTMONTH() creates an array containing data about the * accounting month containing the given date. - * + * * An accounting period has the following characteristics: - * + * * If the first week of the period contains 4 or more 'work' * days, it is included in the period; otherwise, the first * week was included in the prior period. - * + * * If the last week of the period contains 4 or more 'work' * days it is included in the period; otherwise, the last week * is included in the next period. This results in 13 week @@ -45,7 +45,7 @@ * ? aDateInfo[1] // 199009 (9th month) * ? aDateInfo[2] // 09/02/90 beginning of month 9 * ? aDateInfo[3] // 09/29/90 end of month 9 - * + * * // get info about accounting month 5 in year containing 9/15/90 * aDateInfo := FT_ACCTMONTH( Ctod("09/15/90"), 5 ) * ? aDateInfo[1] // 199005 diff --git a/harbour/contrib/hbnf/doc/en/acctqtr.txt b/harbour/contrib/hbnf/doc/en/acctqtr.txt index 4ec011252f..311aa39720 100644 --- a/harbour/contrib/hbnf/doc/en/acctqtr.txt +++ b/harbour/contrib/hbnf/doc/en/acctqtr.txt @@ -14,25 +14,25 @@ * $ARGUMENTS$ * is any valid date in any date format. Defaults * to current system date if not supplied. - * + * * is a number from 1 to 4 signifying a quarter. * Defaults to current quarter if not supplied. * $RETURNS$ * A three element array containing the following data: - * + * * aDateInfo[1] - The year and qtr. as a character string "YYYYQQ" * aDateInfo[2] - The beginning date of the accounting quarter * aDateInfo[3] - The ending date of the accounting quarter * $DESCRIPTION$ * FT_ACCTQTR() creates an array containing data about the * accounting quarter containing the given date. - * + * * An accounting period has the following characteristics: - * + * * If the first week of the period contains 4 or more 'work' * days, it is included in the period; otherwise, the first * week was included in the prior period. - * + * * If the last week of the period contains 4 or more 'work' * days it is included in the period; otherwise, the last week * is included in the next period. This results in 13 week @@ -45,7 +45,7 @@ * ? aDateInfo[1] // 199003 (3rd quarter) * ? aDateInfo[2] // 07/01/90 beginning of quarter 3 * ? aDateInfo[3] // 09/29/90 end of quarter 3 - * + * * // get info about accounting qtr. 2 in year containing 9/15/90 * aDateInfo := FT_ACCTQTR( CTOD("09/15/90"), 2 ) * ? aDateInfo[1] // 199002 diff --git a/harbour/contrib/hbnf/doc/en/acctweek.txt b/harbour/contrib/hbnf/doc/en/acctweek.txt index eb9e42cdbf..2ae5294fd2 100644 --- a/harbour/contrib/hbnf/doc/en/acctweek.txt +++ b/harbour/contrib/hbnf/doc/en/acctweek.txt @@ -14,25 +14,25 @@ * $ARGUMENTS$ * is any valid date in any date format. Defaults * to current system date if not supplied. - * + * * is a number from 1 to 52 signifying a week. * Defaults to current week if not supplied. * $RETURNS$ * A three element array containing the following data: - * + * * aDateInfo[1] - The year and week as a character string "YYYYWW" * aDateInfo[2] - The beginning date of the accounting week * aDateInfo[3] - The ending date of the accounting week * $DESCRIPTION$ * FT_ACCTWEEK() returns an array containing data about the * accounting week containing the given date. - * + * * An accounting period has the following characteristics: - * + * * If the first week of the period contains 4 or more 'work' * days, it is included in the period; otherwise, the first * week was included in the prior period. - * + * * If the last week of the period contains 4 or more 'work' * days it is included in the period; otherwise, the last week * is included in the next period. This results in 13 week @@ -45,7 +45,7 @@ * ? aDateInfo[1] // 199037 (37th week) * ? aDateInfo[2] // 09/09/90 beginning of week 37 * ? aDateInfo[3] // 09/15/90 end of week 37 - * + * * // get info about accounting week 25 in year containing 9/15/90 * aDateInfo := FT_ACCTWEEK( CTOD("09/15/90"), 25 ) * ? aDateInfo[1] // 199025 diff --git a/harbour/contrib/hbnf/doc/en/acctyear.txt b/harbour/contrib/hbnf/doc/en/acctyear.txt index 5b1853ba80..ad3c914d5b 100644 --- a/harbour/contrib/hbnf/doc/en/acctyear.txt +++ b/harbour/contrib/hbnf/doc/en/acctyear.txt @@ -16,20 +16,20 @@ * to current system date if not supplied. * $RETURNS$ * A three element array containing the following data: - * + * * aDateInfo[1] - The year as a character string "YYYY" * aDateInfo[2] - The beginning date of the accounting year * aDateInfo[3] - The ending date of the accounting year * $DESCRIPTION$ * FT_ACCTYEAR() creates an array containing data about the * accounting year containing the given date. - * + * * An accounting period has the following characteristics: - * + * * If the first week of the period contains 4 or more 'work' * days, it is included in the period; otherwise, the first * week was included in the prior period. - * + * * If the last week of the period contains 4 or more 'work' * days it is included in the period; otherwise, the last week * is included in the next period. This results in 13 week diff --git a/harbour/contrib/hbnf/doc/en/adessort.txt b/harbour/contrib/hbnf/doc/en/adessort.txt index 85e7867f0d..d1372126e8 100644 --- a/harbour/contrib/hbnf/doc/en/adessort.txt +++ b/harbour/contrib/hbnf/doc/en/adessort.txt @@ -13,10 +13,10 @@ * FT_ADESSORT( [, [, ] ] ) -> aSorted * $ARGUMENTS$ * is the array to be sorted - * + * * is the first array item to include in the sort, * defaults to first element - * + * * is the last array element to include in the sort, * defaults to all elements * $RETURNS$ @@ -25,11 +25,11 @@ * This function is used to sort an array in descending order, i.e., Z-A * $EXAMPLES$ * FT_ADESSORT(aNames) // Sort the Entire Array - * + * * FT_ADESSORT(aNames, 5) // Sort from the 5th Element On - * + * * FT_ADESSORT(aNames, , 10) // Sort the 1st 10 Elements - * + * * FT_ADESSORT(aNames, 5, 10) // Sort Elements 5-10 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/aemaxlen.txt b/harbour/contrib/hbnf/doc/en/aemaxlen.txt index 70027f8341..53862fc83f 100644 --- a/harbour/contrib/hbnf/doc/en/aemaxlen.txt +++ b/harbour/contrib/hbnf/doc/en/aemaxlen.txt @@ -14,13 +14,13 @@ * -> nMaxlen * $ARGUMENTS$ * is the array containing the elements to be measured. - * + * * is the array dimension to be measured, * defaults to first dimension. - * + * * is the starting array element to include, * defaults to first array element. - * + * * is the number of array elements to process from * from , defaults to remaining elements * in array. @@ -31,15 +31,15 @@ * 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 * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/aeminlen.txt b/harbour/contrib/hbnf/doc/en/aeminlen.txt index c640d0c4ef..b8328ed128 100644 --- a/harbour/contrib/hbnf/doc/en/aeminlen.txt +++ b/harbour/contrib/hbnf/doc/en/aeminlen.txt @@ -14,13 +14,13 @@ * -> nMinlen * $ARGUMENTS$ * is the array containing the elements to be measured. - * + * * is the array dimension to be measured, * defaults to first dimension. - * + * * is the starting array element to include, * defaults to first array element. - * + * * is the number of array elements to process from * from , defaults to remaining elements * in array. @@ -31,13 +31,13 @@ * 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 * $SEEALSO$ * FT_AEMAXLEN() diff --git a/harbour/contrib/hbnf/doc/en/amedian.txt b/harbour/contrib/hbnf/doc/en/amedian.txt index 9899e9df70..6492ab2103 100644 --- a/harbour/contrib/hbnf/doc/en/amedian.txt +++ b/harbour/contrib/hbnf/doc/en/amedian.txt @@ -14,10 +14,10 @@ * -> nMedian * $ARGUMENTS$ * is the array containing the elements to be averaged. - * + * * is the first array element to include, * defaults to first element. - * + * * is the last array element to include, * defaults to last element. * $RETURNS$ @@ -32,11 +32,11 @@ * 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 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/anomatch.txt b/harbour/contrib/hbnf/doc/en/anomatch.txt index 58e7a42388..91e27773e1 100644 --- a/harbour/contrib/hbnf/doc/en/anomatch.txt +++ b/harbour/contrib/hbnf/doc/en/anomatch.txt @@ -14,15 +14,15 @@ * [, [, ] ] ) -> nNoOfMatches * $ARGUMENTS$ * is the array to be searched - * + * * is a code block containing the expression for * the array elements to be tested with. Each element is passed * as a parameter to the block. If the block returns .T., the * number of matches will be incremented by one. - * + * * is the first array item to include in the search, * defaults to first element. - * + * * is the last array element to include in the search, * defaults to all elements. * $RETURNS$ @@ -33,13 +33,13 @@ * $EXAMPLES$ * // Search the Entire Array * FT_ANOMATCHES(aTries, { | x | x <= 100 } ) - * + * * // Search from the 5th Element On * 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) - * + * * // Search Elements 5-10 * FT_ANOMATCHES(aNames, { | x | x <= cLastGoodName }, 5, 10) * $END$ diff --git a/harbour/contrib/hbnf/doc/en/any2any.txt b/harbour/contrib/hbnf/doc/en/any2any.txt index cf5080bc09..2cdfd1011f 100644 --- a/harbour/contrib/hbnf/doc/en/any2any.txt +++ b/harbour/contrib/hbnf/doc/en/any2any.txt @@ -14,10 +14,10 @@ * [, ] ) -> xResult * $ARGUMENTS$ * is the value to convert. - * + * * is the type of value to convert to * ("C","D","L","N","A" or "B"). - * + * * is a logical to signal if 'Y' or 'N' is to be returned * if Converting a logical, otherwise '.T.' or '.F.' will be returned * for logicals. diff --git a/harbour/contrib/hbnf/doc/en/aredit.txt b/harbour/contrib/hbnf/doc/en/aredit.txt index 7be154913c..21e62f58f8 100644 --- a/harbour/contrib/hbnf/doc/en/aredit.txt +++ b/harbour/contrib/hbnf/doc/en/aredit.txt @@ -14,15 +14,15 @@ * , , [, ] ) -> xElement * $ARGUMENTS$ * , , , are coordinates for TBrowse - * + * * is name of 2 dimensional to array edit - * + * * is pointer for element in array - * + * * is array of column headings - * + * * is array of blocks describing each array element - * + * * [ ] is get editing function for handling individual elements * $RETURNS$ * Value of element positioned on when exit FT_AREDIT() @@ -33,43 +33,43 @@ * and pass a UDF with information to edit the individual gets. * $EXAMPLES$ * FT_AREDIT(3, 5, 18, 75, ar, @nElem, aHeadings, aBlocks) - * + * * This example will allow you to browse a 2 dimensional array * But you can't edit it since there is no GetBlock UDF * It allows the user to hit ENTER to select an element or ESC to * return 0 - * + * * * This second example shows how to edit a 2 dimensional array * * as might be done to edit an invoice - * + * * LOCAL i, ar[3, 26], aBlocks[3], aHeadings[3] * LOCAL nElem := 1, bGetFunc - * + * * * Set up two dimensional array "ar" - * + * * FOR i = 1 TO 26 * ar[1, i] := i // 1 -> 26 Numeric * ar[2, i] := CHR(i+64) // "A" -> "Z" Character * ar[3, i] := CHR(91-i) // "Z" -> "A" Character * NEXT i - * + * * * SET UP aHeadings Array for column headings - * + * * aHeadings := { "Numbers", "Letters", "Reverse" } - * + * * * Need to set up individual array blocks for each TBrowse column - * + * * aBlocks[1] := {|| STR(ar[1, nElem], 2) } // prevent default 10 spaces * aBlocks[2] := {|| ar[2, nElem] } * aBlocks[3] := {|| ar[3, nElem] } - * + * * * 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) } * SetColor( "N/W, W/N, , , W/N" ) * CLEAR SCREEN * FT_AREDIT(3, 5, 18, 75, ar, @nElem, aHeadings, aBlocks, bGetFunc) - * + * * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/asum.txt b/harbour/contrib/hbnf/doc/en/asum.txt index b8ee011717..b11e45e75d 100644 --- a/harbour/contrib/hbnf/doc/en/asum.txt +++ b/harbour/contrib/hbnf/doc/en/asum.txt @@ -13,10 +13,10 @@ * FT_ASUM( [, [, ] ] ) -> nSum * $ARGUMENTS$ * is the array containing the elements to be summed. - * + * * is the first array item to include, * defaults to first element. - * + * * is the last array element to include, * defaults to all elements. * $RETURNS$ @@ -26,11 +26,11 @@ * 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 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/at2.txt b/harbour/contrib/hbnf/doc/en/at2.txt index ad1b80422a..6ebbb493e8 100644 --- a/harbour/contrib/hbnf/doc/en/at2.txt +++ b/harbour/contrib/hbnf/doc/en/at2.txt @@ -13,12 +13,12 @@ * FT_AT2( , [, [, ] ] ) -> nPos * $ARGUMENTS$ * is the character substring to search for. - * + * * is the character string to search. - * + * * is the occurrence of cSearch to look for, * defaults to 1. - * + * * is a logical value denoting case sensitivity. * If .F., then search is NOT sensitive to case, * defaults to .T. @@ -30,11 +30,11 @@ * $EXAMPLES$ * 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 ) * $SEEALSO$ * FT_FINDITH(), FT_RAT2() @@ -52,12 +52,12 @@ * FT_RAT2( , [, [, ] ] ) -> nPos * $ARGUMENTS$ * is the character substring to search for. - * + * * is the character string to search. - * + * * is the occurrence of cSearch to look for, * defaults to 1. - * + * * is a logical value denoting case sensitivity. * If .F., then search is NOT sensitive to case, * defaults to .T. @@ -69,11 +69,11 @@ * $EXAMPLES$ * 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 ) * $SEEALSO$ * FT_FINDITH(), FT_AT2() diff --git a/harbour/contrib/hbnf/doc/en/bitclr.txt b/harbour/contrib/hbnf/doc/en/bitclr.txt index 8bf9fab3f3..768f6e242d 100644 --- a/harbour/contrib/hbnf/doc/en/bitclr.txt +++ b/harbour/contrib/hbnf/doc/en/bitclr.txt @@ -13,7 +13,7 @@ * FT_BITCLR( , ) -> cByte * $ARGUMENTS$ * is a character from CHR(0) to CHR(255). - * + * * is a number from 0 to 7 conforming to standard * right-to-left bit numbering convention and representing the * position of the bit within the byte. @@ -24,22 +24,22 @@ * In effect, ANDs argument byte with a byte that has all bits set except * the target bit. If bit is already clear (0), it remains clear. * Note: Calls FT_ISBIT() which is also in this Library. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code would clear bit 4 in a byte represented by CHR(115): - * + * * cNewByte := FT_BITCLR( CHR(115), 4 ) * ? ASC( cNewbyte ) // result: 99 * ? cNewByte // result: 'c' - * + * * This code would clear bit 5 in the byte represented by letter 'A': - * + * * FT_BITCLR( 'A', 5 ) // result: 'A', since * // bit 5 already clear - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/bitset.txt b/harbour/contrib/hbnf/doc/en/bitset.txt index 1aab4a5d82..59ffc74300 100644 --- a/harbour/contrib/hbnf/doc/en/bitset.txt +++ b/harbour/contrib/hbnf/doc/en/bitset.txt @@ -13,7 +13,7 @@ * FT_BITSET( , ) -> cByte * $ARGUMENTS$ * is a character from CHR(0) to CHR(255). - * + * * is a number from 0 to 7 conforming to standard right-to-left * bit numbering convention and representing the position of the bit * within the byte. @@ -24,23 +24,23 @@ * In effect, ORs argument byte with a byte that has only the target bit * set. If bit is already set, it remains set. * Note: Calls FT_ISBIT() which is also in this Library. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code would set bit 4 in a byte represented by CHR(107): - * + * * cNewbyte := FT_BITSET( CHR(107), 4 ) * ? ASC( cNewbyte ) // result: 123 * ? cNewbyte // result: '{' - * - * + * + * * This code would set bit 5 in the byte represented by the letter 'A'. - * + * * ? FT_BITSET( 'A', 5 ) // result: 'a' * // bit 5 set - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/blink.txt b/harbour/contrib/hbnf/doc/en/blink.txt index 2efba5f22a..0a22f8850f 100644 --- a/harbour/contrib/hbnf/doc/en/blink.txt +++ b/harbour/contrib/hbnf/doc/en/blink.txt @@ -13,9 +13,9 @@ * FT_BLINK( , [ ], [ ] ) -> NIL * $ARGUMENTS$ * is the string to blink. - * + * * is an optional screen row for @...SAY, default current. - * + * * is an optional screen col for @...say, default current. * $RETURNS$ * NIL @@ -24,7 +24,7 @@ * Restores colors on return. * $EXAMPLES$ * FT_BLINK( "WAIT", 5, 10 ) // Blinks "WAIT" in current colors @ 5,10 - * + * * @5,10 SAY "WAIT - Printing Report" * FT_BLINK( "..." ) // Blink "..." after wait message... * $END$ diff --git a/harbour/contrib/hbnf/doc/en/byt2bit.txt b/harbour/contrib/hbnf/doc/en/byt2bit.txt index 7acb9db383..b2ac569461 100644 --- a/harbour/contrib/hbnf/doc/en/byt2bit.txt +++ b/harbour/contrib/hbnf/doc/en/byt2bit.txt @@ -22,7 +22,7 @@ * Binary representation follows right-to-left convention of bit position * numbering, 0 through 7. Space between high and low nibbles for clarity * and easy comparison to hexadecimal notation. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. @@ -30,13 +30,13 @@ * These three code lines perform a bitwise AND on bytes with values of * CHR(20) and CHR(36), and deliver the result as a string in binary (bit) * format. - * + * * ? FT_BYT2BIT(CHR(20)) // byte1: '0001 0100' * ? FT_BYT2BIT(CHR(36)) // byte2: '0010 0100' - * + * * ? FT_BYT2BIT(FT_BYTEAND(CHR(20), CHR(36))) * // result: '0000 0100' - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/byt2hex.txt b/harbour/contrib/hbnf/doc/en/byt2hex.txt index f0404d872b..d6fc61fa0c 100644 --- a/harbour/contrib/hbnf/doc/en/byt2hex.txt +++ b/harbour/contrib/hbnf/doc/en/byt2hex.txt @@ -19,7 +19,7 @@ * faulty. * $DESCRIPTION$ * Can be used to show results of bit manipulation, both before and after. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. @@ -27,13 +27,13 @@ * These three code lines perform a bitwise AND on bytes with values of * CHR(20) and CHR(36), and deliver the result as a string in hexadecimal * format, using 'h' to signify hexadecimal. - * + * * ? FT_BYT2HEX(CHR(20)) // byte1: '14h' * ? FT_BYT2HEX(CHR(36)) // byte2: '24h' - * + * * ? FT_BYT2HEX(FT_BYTEAND(CHR(20), CHR(36))) * // result: '04h' - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/byteand.txt b/harbour/contrib/hbnf/doc/en/byteand.txt index 048d5b87b8..ce28af4829 100644 --- a/harbour/contrib/hbnf/doc/en/byteand.txt +++ b/harbour/contrib/hbnf/doc/en/byteand.txt @@ -21,7 +21,7 @@ * $DESCRIPTION$ * Can be used for any bit-wise masking operation. In effect, this is a * bit-by-bit AND operation. Equivalent to AND assembler instruction. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. @@ -29,11 +29,11 @@ * This code would mask out the high nibble (four most significant bits) * of the byte represented by chr(123) and leave the low nibble bits as in * the parameter byte. - * + * * cNewbyte := FT_BYTEAND( CHR(123), CHR(15) ) * ? asc(cNewByte) // result: 11 * ? cNewByte // result: non-printable character - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/byteneg.txt b/harbour/contrib/hbnf/doc/en/byteneg.txt index 4745ffac4d..7cd19e7a5d 100644 --- a/harbour/contrib/hbnf/doc/en/byteneg.txt +++ b/harbour/contrib/hbnf/doc/en/byteneg.txt @@ -22,16 +22,16 @@ * Can be used for bit-wise byte manipulation. In effect, this is a * bit-by-bit NEG (two's complement) operation. Equivalent to NEG * assembler instruction. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code performs a bit-wise NEG on byte represented by CHR(32): - * + * * cNewByte := FT_BYTENOT(CHR(32)) * ? asc(cNewByte) // result: 224 - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/bytenot.txt b/harbour/contrib/hbnf/doc/en/bytenot.txt index e38b43fd3b..8a75708493 100644 --- a/harbour/contrib/hbnf/doc/en/bytenot.txt +++ b/harbour/contrib/hbnf/doc/en/bytenot.txt @@ -22,16 +22,16 @@ * Can be used for bitwise byte manipulation. In effect, this is a * bit-by-bit NOT (one's complement) operation. Equivalent to the * NOT assembler instruction. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code performs a bitwise NOT on byte represented by CHR(32): - * + * * cNewByte := FT_BYTENOT( CHR(32) ) * ? ASC( cNewByte ) // result: 223 - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/bytexor.txt b/harbour/contrib/hbnf/doc/en/bytexor.txt index 94d3a1b467..fe35ba3de5 100644 --- a/harbour/contrib/hbnf/doc/en/bytexor.txt +++ b/harbour/contrib/hbnf/doc/en/bytexor.txt @@ -21,18 +21,18 @@ * $DESCRIPTION$ * Can be used for bit-wise byte manipulation. In effect, this is a * bit-by-bit XOR operation. Equivalent to XOR assembler instruction. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code performs a bit-wise XOR on two bytes represented * by CHR(32) and CHR(55): - * + * * cNewByte := FT_BYTEXOR( CHR(32), CHR(55) ) * ? ASC( cNewByte ) // result: 23 * ? cNewByte // result: non-printable character - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/calendar.txt b/harbour/contrib/hbnf/doc/en/calendar.txt index 4b4bde0950..72422fcaba 100644 --- a/harbour/contrib/hbnf/doc/en/calendar.txt +++ b/harbour/contrib/hbnf/doc/en/calendar.txt @@ -15,32 +15,32 @@ * $ARGUMENTS$ * is an optional screen row for calendar display, * default row 1. - * + * * is an optional screen col for calendar display, * default col 63. - * + * * is an optional color string for displayed messages, * default is bright white text over green background. - * + * * is an optional logical variable. If true (.T.), * it uses FT_SHADOW() to add a transparent shadow * to the display, default (.F.). - * + * * is an optional logical variable. If true, uses * FT_XBOX to display a four line help message * if the F1 key is pressed, default (.F.). - * + * * $RETURNS$ * aRetVal is an 8 element array containing date, month, day, year, * month (in character format), day of the week, julian day * and current time. - * + * * $DESCRIPTION$ * FT_CALENDAR() simply displays today's date, time and julian * day in a two line display with an optional box shadow. Cursor keys may * be used to page through the calendar by day, week, month or year * increments. Returns an 8 element array of calendar data: - * + * * Element Value * [1] Date in current date format. * [2] Numeric month number. @@ -50,10 +50,10 @@ * [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! - * + * * $EXAMPLES$ * LOCAL aRetVal[8] * CLS @@ -66,9 +66,9 @@ * ?aRetVal[6] // Result: Saturday * ?aRetVal[7] // Result: 110 * ?aRetVal[8] // Result: 12:45:20 - * + * * $SEEALSO$ * FT_DAYOFYR() - * + * * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/chdir.txt b/harbour/contrib/hbnf/doc/en/chdir.txt index dae1d5936e..a4815cf2a4 100644 --- a/harbour/contrib/hbnf/doc/en/chdir.txt +++ b/harbour/contrib/hbnf/doc/en/chdir.txt @@ -20,7 +20,7 @@ * $DESCRIPTION$ * Use this function if you prefer to change the active directory * instead of relying on the SET PATH command. - * + * * The source code is written to adhere to Turbo Assembler's IDEAL mode. * To use another assembler, you will need to rearrange the PROC and * SEGMENT directives, and also the ENDP and ENDS directives (a very diff --git a/harbour/contrib/hbnf/doc/en/cntryset.txt b/harbour/contrib/hbnf/doc/en/cntryset.txt index 6674c6809f..6c146f8743 100644 --- a/harbour/contrib/hbnf/doc/en/cntryset.txt +++ b/harbour/contrib/hbnf/doc/en/cntryset.txt @@ -23,10 +23,10 @@ * and optionally sets it ON or OFF. * $EXAMPLES$ * lOldState := FT_SETCENTURY() // Get current CENTURY Setting - * + * * lOldState := 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) * $END$ diff --git a/harbour/contrib/hbnf/doc/en/color2n.txt b/harbour/contrib/hbnf/doc/en/color2n.txt index 48d7d51178..1b69a92cb2 100644 --- a/harbour/contrib/hbnf/doc/en/color2n.txt +++ b/harbour/contrib/hbnf/doc/en/color2n.txt @@ -23,7 +23,7 @@ * corresponding number. * $EXAMPLES$ * nColor := FT_COLOR2N( "gr+/b" ) // returns 30 - * + * * FT_SETATTR( 0, 0, 10, 10, nColor ) * $SEEALSO$ * FT_N2COLOR() diff --git a/harbour/contrib/hbnf/doc/en/d2e.txt b/harbour/contrib/hbnf/doc/en/d2e.txt index 1997fdb592..96e7999ef3 100644 --- a/harbour/contrib/hbnf/doc/en/d2e.txt +++ b/harbour/contrib/hbnf/doc/en/d2e.txt @@ -13,7 +13,7 @@ * FT_D2E( , ) -> * $ARGUMENTS$ * Decimal number to convert - * + * * Number of decimal places in result. * Defaults to 6 decimal places. * $RETURNS$ @@ -26,10 +26,10 @@ * $EXAMPLES$ * ? FT_D2E( 12.345, 2 ) * -> 1.23E1 - * + * * ? FT_D2E( -12.345, 3 ) * -> -1.235E1 - * + * * ? FT_D2E( 0.00000543, 2 ) * -> 5.43E-6 * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/datecnfg.txt b/harbour/contrib/hbnf/doc/en/datecnfg.txt index 46d0adef9c..0cbf49eb98 100644 --- a/harbour/contrib/hbnf/doc/en/datecnfg.txt +++ b/harbour/contrib/hbnf/doc/en/datecnfg.txt @@ -15,41 +15,41 @@ * is a character date string in the user's system date * format, i.e., the same as the user would enter for CTOD(). If * this argument is NIL, the current value is unchanged. - * + * * Note: The year portion of the date string must be present and * be a valid year; however, it has no real meaning. - * + * * is a number from 1 to 7 (1 = Sunday) indicating the * desired start of a work week. If this argument is NIL, * the current value is unchanged. - * + * * $RETURNS$ * A 2-element array containing the following information: - * + * * 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 * (1 = Sunday) - * + * * $DESCRIPTION$ * FT_DATECNFG() is called internally by many of the date functions * in the library to determine the beginning of year date and * beginning of week day. - * + * * The default beginning of the year is January 1st and the default * beginning of the week is Sunday (day 1). Either or both of these * settings may be changed by calling FT_DATECNFG() with the proper * arguments. They will retain their values for the duration of the * program or until they are changed again by a subsequent call to * FT_DATECNFG(). - * + * * It is not necessary to call FT_DATECNFG() unless you need to * change the defaults. - * + * * FT_DATECNFG() affects the following library functions: - * + * * FT_WEEK() FT_ACCTWEEK() FT_DAYTOBOW() * FT_MONTH() FT_ACCTMONTH() FT_DAYOFYR() * FT_QTR() FT_ACCTQTR() FT_ACCTADJ() @@ -57,20 +57,20 @@ * $EXAMPLES$ * // Configure library date functions to begin year on * // July 1st. - * + * * FT_DATECNFG("07/01/80") // year is insignificant - * + * * // Examples of return values: - * + * * // System date format: American aArray[1] aArray[2] - * + * * aArray := FT_DATECNFG() // '1980.01.01' 1 (Sun.) * aArray := FT_DATECNFG('07/01/80') // '1980.07.01' 1 (Sun.) * aArray := FT_DATECNFG('07/01/80', 2) // '1980.07.01' 2 (Mon.) * aArray := FT_DATECNFG( , 2 ) // '1980.01.01' 2 (Mon.) - * + * * // System date format: British - * + * * aArray := FT_DATECNFG('01/07/80', 2) // '1980.07.01' 2 (Mon.) * $SEEALSO$ * FT_ACCTADJ() diff --git a/harbour/contrib/hbnf/doc/en/dayofyr.txt b/harbour/contrib/hbnf/doc/en/dayofyr.txt index 93c874a8e5..5440033549 100644 --- a/harbour/contrib/hbnf/doc/en/dayofyr.txt +++ b/harbour/contrib/hbnf/doc/en/dayofyr.txt @@ -15,31 +15,31 @@ * $ARGUMENTS$ * is any valid date in any valid format. Defaults * to current system date if not supplied. - * + * * is a number from 1 to 371, signifying a day of a year. * Defaults to current day if not supplied. - * + * * is a logical which specifies the type of year to base * the return value on: .F. = calendar or fiscal year, * .T. = accounting year. * $RETURNS$ * A three element array containing the following data: - * + * * If is specified: - * + * * aDateInfo[1] - The date of the specified day number * aDateInfo[2] - The beginning date of the year * aDateInfo[3] - The ending date of the year - * + * * If is not specified: - * + * * aDateInfo[1] - The year and day as a character string "YYYYDDD" * aDateInfo[2] - The beginning date of the year * aDateInfo[3] - The ending date of the year * $DESCRIPTION$ * FT_DAYOFYR() returns an array containing data about a day in the * calendar or fiscal year containing the given date. - * + * * The beginning of year date defaults to January 1st but may be * changed with FT_DATECNFG(). * $EXAMPLES$ @@ -47,12 +47,12 @@ * ? aDateInfo[1] // 1991090 (90th day of year 1991) * ? aDateInfo[2] // 01/01/91 * ? aDateInfo[3] // 12/31/91 - * + * * aDateInfo := FT_DAYOFYR( , 90 ) // assume current date is 3/31/91 * ? aDateInfo[1] // 03/31/91 (90th day of year) * ? aDateInfo[2] // 01/01/91 * ? aDateInfo[3] // 12/31/91 - * + * * aDateInfo := FT_DAYOFYR( , 90, .T. ) * ? aDateInfo[1] // 03/29/91 (90th day of accounting year) * ? aDateInfo[2] // 12/30/90 (1st day of accounting year) diff --git a/harbour/contrib/hbnf/doc/en/daytobow.txt b/harbour/contrib/hbnf/doc/en/daytobow.txt index fecf99fa4d..736c5a3df4 100644 --- a/harbour/contrib/hbnf/doc/en/daytobow.txt +++ b/harbour/contrib/hbnf/doc/en/daytobow.txt @@ -24,11 +24,11 @@ * FT_DATECNFG(). * $EXAMPLES$ * dDate := CTOD( "09/15/90" ) - * + * * ? DOW( dDate ) // 7 * ? CDOW( dDate ) // Saturday * ? FT_DAYTOBOW( dDate ) // 6 - * + * * // change beginning of week to Friday (yeah!) * FT_DATECNFG( , 6 ) * ? DOW( dDate ) // 7 diff --git a/harbour/contrib/hbnf/doc/en/dfile.txt b/harbour/contrib/hbnf/doc/en/dfile.txt index 8728b5ffa4..0f35b9df9e 100644 --- a/harbour/contrib/hbnf/doc/en/dfile.txt +++ b/harbour/contrib/hbnf/doc/en/dfile.txt @@ -34,21 +34,21 @@ * Note: make sure you allocate a buffer large enough to hold enough * data for the number of lines that you have in the window. Use the * following formula as a guideline: - * + * * buffer size = (# of line) + 1 * RMargin - * + * * This is the smallest you should make the buffer. For normal use, * 4096 bytes is recommended * $EXAMPLES$ * @ 4,9 TO 11,71 - * + * * FT_DFSETUP("test.txt", 5, 10, 10, 70, 1, 7, 15,; * "AaBb" + Chr(143), .T., 5, 132, 4096) - * + * * cKey = FT_DISPFILE() - * + * * FT_DFCLOSE() - * + * * @ 20,0 SAY "Key that terminated FT_DISPFILE() was: " + '[' + cKey + ']' * $SEEALSO$ * FT_DISPFILE() FT_DFCLOSE() @@ -72,14 +72,14 @@ * Closes the file opened by FT_DFSETUP() * $EXAMPLES$ * @ 4,9 TO 11,71 - * + * * FT_DFSETUP("test.txt", 5, 10, 10, 70, 1, 7, 15,; * "AaBb" + Chr(143), .T., 5, 132, 4096) - * + * * cKey = FT_DISPFILE() - * + * * FT_DFCLOSE() - * + * * @ 20,0 SAY "Key that terminated FT_DISPFILE() was: " + '[' + cKey + ']' * $SEEALSO$ * FT_DFSETUP() FT_DISPFILE() diff --git a/harbour/contrib/hbnf/doc/en/diskfunc.txt b/harbour/contrib/hbnf/doc/en/diskfunc.txt index e97ac35078..41539e34bd 100644 --- a/harbour/contrib/hbnf/doc/en/diskfunc.txt +++ b/harbour/contrib/hbnf/doc/en/diskfunc.txt @@ -44,7 +44,7 @@ * $DESCRIPTION$ * Function to return the available space on the passed * drive letter or the default drive if no drive is passed. - * + * * Uses FT_INT86() through the internal function _ftDiskInfo(). * $EXAMPLES$ * ? FT_DSKFREE() // Returns free space on default drive. diff --git a/harbour/contrib/hbnf/doc/en/dispc.txt b/harbour/contrib/hbnf/doc/en/dispc.txt index ee7a1c72d4..92e1c0e3ed 100644 --- a/harbour/contrib/hbnf/doc/en/dispc.txt +++ b/harbour/contrib/hbnf/doc/en/dispc.txt @@ -19,17 +19,17 @@ * This routine displays a text file within a defined window using as * little memory as possible. The text file to display has to be * present or an error value of 0 is returned (as a character.) - * + * * Assumptions: The routine assumes that all lines are terminated * with a CR/LF sequence (0x0d and 0x0a). - * + * * Note: Make sure you allocate a buffer large enough to hold * enough data for the number of lines that you have * in the window. Use the following formula as a * guideline - buffer size = (# of line) + 1 * RMargin * this is the smallest you should make the buffer and * for normal use I recommend 4096 bytes. - * + * * Cursor Keys: Up, Down - moves the highlight line * Left, Right - moves the window over nColSkip col's * Home - moves the window to the far left @@ -39,9 +39,9 @@ * Ctrl-PgDn - moves the highlight to the file bottom * Ctrl-Right - moves the window 16 col's to the right * Ctrl-Left - moves the window 16 col's to the left - * + * * Esc, Return - terminates the function - * + * * All other keys are ignored unless they are specified * within cExitKeys parameter. This list will tell the * routine what keys terminate the function. Special @@ -49,14 +49,14 @@ * can be found by looking in the keys.h file. * $EXAMPLES$ * @ 4,9 TO 11,71 - * + * * FT_DFSETUP("test.txt", 5, 10, 10, 70, 1, 7, 15,; * "AaBb" + Chr(143), .T., 5, 132, 4096) - * + * * cKey = FT_DISPFILE() - * + * * FT_DFCLOSE() - * + * * @ 20,0 SAY "Key that terminated FT_DISPFILE() was: " + '[' + cKey + ']' * $SEEALSO$ * FT_DFSETUP() FT_DFCLOSE() diff --git a/harbour/contrib/hbnf/doc/en/dispmsg.txt b/harbour/contrib/hbnf/doc/en/dispmsg.txt index 14daf41808..b61a63170d 100644 --- a/harbour/contrib/hbnf/doc/en/dispmsg.txt +++ b/harbour/contrib/hbnf/doc/en/dispmsg.txt @@ -16,22 +16,22 @@ * $ARGUMENTS$ * is a multidimensional array of messages to be * displayed and the color attributes for each message. - * + * * The first dimension of the array contains one or more elements, * each representing one line in the message box, up to the maximum * number of rows on the screen. - * + * * Within each line of the message individual characters or groups * of characters may be delimited with braces ([]). The braces will * be stripped out and the character(s) inside those braces will be * highlighted. - * + * * The second dimension of the array contains a color attribute for * the corresponding element in dimension one, plus one additional * element for the color of the box border. Dimension two will * always contain one more element than dimension one. If an * attribute is omitted, the last color selected will be used. - * + * * is a character string of one or more keys to check * for. If omitted, the message is displayed and control is returned * to the calling procedure. If one character is specified, @@ -39,28 +39,28 @@ * returns. If multiple characters are specified, FT_DISPMSG() * remains in a loop until one of the specified keys has been * pressed, then restores the screen and returns. - * + * * is the upper row for the message box. If omitted, the * box is centered vertically. - * + * * is the leftmost column for the box. If omitted, the * box is centered horizontally. - * + * * is a string of characters or a variable for the box * border. See the DISPBOX() function. If omitted, a double box is * drawn. - * + * * is a logical variable. If true (.T.) or omitted, it * uses FT_SHADOW() to add a transparent shadow to the box. If * false (.F.), the box is drawn without the shadow. * $RETURNS$ * If is not specified, FT_DISPMSG() will return false * (.F.). - * + * * If is a one-character string, FT_DISPMSG() will return * true (.T.) if the user presses that key, or false (.F.) if any * other key is pressed. - * + * * If consists of multiple characters, it will lock the * user in a loop until one of those keys are pressed and return the * INKEY() value of the keypress. @@ -73,21 +73,21 @@ * $EXAMPLES$ * The following example displays a simple two-line message * and returns immediately to the calling routine. - * + * * FT_DISPMSG( { { "Printing Report" , ; * "Press [ESC] To Interrupt" } , ; * { "W+/B*", "W/B", "GR+/B" } } ) - * + * * The next example displays a message and waits for a key press. - * + * * FT_DISPMSG( { { "Press [D] To Confirm Deletion" , ; * "Or Any Other Key To Abort" } , ; * { "W+/B", "W+/B", "GR+/B" } } , ; * "D" ) - * + * * The next example displays a one-line message centered on row 5 * and returns to the calling procedure. - * + * * FT_DISPMSG( { { "Please Do Not Interrupt" } , ; * { "W+/B", "GR+/B" } } , ; * , 5, ) diff --git a/harbour/contrib/hbnf/doc/en/dosver.txt b/harbour/contrib/hbnf/doc/en/dosver.txt index 0a0ca55f64..93b8b13286 100644 --- a/harbour/contrib/hbnf/doc/en/dosver.txt +++ b/harbour/contrib/hbnf/doc/en/dosver.txt @@ -21,15 +21,15 @@ * return the current DOS version. It does this by setting up * an array corresponding to machine registers and then calling * the toolkit function FT_INT86(). - * + * * It returns a character string corresponding to the DOS * version, as follows: The major version, a period ("."), then * the minor version. - * - * + * + * * $EXAMPLES$ * FUNCTION main() * RETURN QOut( "Dos version: " + FT_DOSVER() ) - * + * * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/e2d.txt b/harbour/contrib/hbnf/doc/en/e2d.txt index 539d7786ad..dd1769457d 100644 --- a/harbour/contrib/hbnf/doc/en/e2d.txt +++ b/harbour/contrib/hbnf/doc/en/e2d.txt @@ -21,10 +21,10 @@ * $EXAMPLES$ * ? FT_E2D( "1.23E1" ) * -> 12.3 - * + * * ? FT_E2D( "-1.235E1" ) * -> -12.35 - * + * * ? ft_d2e( "5.43E-6" ) * -> 0.0000543 * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/easter.txt b/harbour/contrib/hbnf/doc/en/easter.txt index b607b359d8..d40a0cc52c 100644 --- a/harbour/contrib/hbnf/doc/en/easter.txt +++ b/harbour/contrib/hbnf/doc/en/easter.txt @@ -20,7 +20,7 @@ * Returns the date of Easter for any year after 1582 up to Clipper's * limit which the manual states is 9999, but the Guide agrees with * the actual imposed limit of 2999. - * + * * This function can be useful in calender type programs that indicate * when holidays occur. * $EXAMPLES$ diff --git a/harbour/contrib/hbnf/doc/en/elapsed.txt b/harbour/contrib/hbnf/doc/en/elapsed.txt index 94d5aa56ac..cd73634506 100644 --- a/harbour/contrib/hbnf/doc/en/elapsed.txt +++ b/harbour/contrib/hbnf/doc/en/elapsed.txt @@ -14,21 +14,21 @@ * , ) -> aTimedata * $ARGUMENTS$ * is any valid date in any date format. Defaults to DATE(). - * + * * is any valid date in any date format. Defaults to DATE(). - * + * * is a valid Time string of the format 'hh:mm:ss' where * hh is hours in 24-hour format. - * + * * is a valid Time string of the format 'hh:mm:ss' where * hh is hours in 24-hour format. * $RETURNS$ * A two-dimensional array containing elapsed time data. * $DESCRIPTION$ * FT_ELAPSED() calculates the elapsed time between two Date/Time events. - * + * * It returns an array which contains the following data: - * + * * aRetVal[1,1] Integer Days aRetVal[1,2] Total Days (nn.nnnn) * aRetVal[2,1] Integer Hours aRetVal[2,2] Total Hours (nn.nnnn) * aRetVal[3,1] Integer Minutes aRetVal[3,2] Total Minutes (nn.nnnn) @@ -36,7 +36,7 @@ * $EXAMPLES$ * FT_ELAPSED(CTOD('11/28/90'), CTOD('11/30/90'), '08:00:00', '12:10:30') * will return: - * + * * aRetVal[1,1] -> 2 (Days) aRetVal[1,2] -> 2.1740 Days * aRetVal[2,1] -> 4 (Hours) aRetVal[2,2] -> 52.1750 Hours * aRetVal[3,1] -> 10 (Minutes) aRetVal[3,2] -> 3130.5000 Minutes diff --git a/harbour/contrib/hbnf/doc/en/findith.txt b/harbour/contrib/hbnf/doc/en/findith.txt index 5d9cb464d6..989d4f1595 100644 --- a/harbour/contrib/hbnf/doc/en/findith.txt +++ b/harbour/contrib/hbnf/doc/en/findith.txt @@ -14,11 +14,11 @@ * [, ] ) -> * $ARGUMENTS$ * is the string to search for. - * + * * is the string to search. - * + * * 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.). * $RETURNS$ @@ -30,7 +30,7 @@ * // Find the Position in cMemoString of * // the 10th Occurrence of "the", case * // insensitive - * + * * nNextPosition := FT_FINDITH("the", cMemoString, 10) * $SEEALSO$ * FT_AT2() diff --git a/harbour/contrib/hbnf/doc/en/floptst.txt b/harbour/contrib/hbnf/doc/en/floptst.txt index 74f9b34e16..6b8d44dd60 100644 --- a/harbour/contrib/hbnf/doc/en/floptst.txt +++ b/harbour/contrib/hbnf/doc/en/floptst.txt @@ -25,19 +25,19 @@ * ISDRIVE() returns just .T. or .F. depending if the diskette drive is * ready or not, FT_FLOPTST() returns a numeric code designating the * diskette drive's status. - * + * * FT_FLOPTST() is particularly useful in backup and restore programs * that need to test the floppy drive before writing/reading from a * floppy disk. - * + * * 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 ) * DO CASE diff --git a/harbour/contrib/hbnf/doc/en/ftattr.txt b/harbour/contrib/hbnf/doc/en/ftattr.txt index 764e40e9c3..28d25d10e1 100644 --- a/harbour/contrib/hbnf/doc/en/ftattr.txt +++ b/harbour/contrib/hbnf/doc/en/ftattr.txt @@ -21,16 +21,16 @@ * This function is similar to Clipper's SaveScreen(), except that it only * saves the attribute bytes. This is useful if you want to change the * screen color without affecting the text. - * + * * *** INTERNALS ALERT *** - * + * * This function calls the Clipper internal __gtMaxCol to obtain the * maximum column value for the current video mode. If you're too gutless * to use internals, then this function isn't for you. * $EXAMPLES$ * // Save attributes of row 4 * cBuffer := FT_SAVEATT( 4, 0, 4, maxcol()) - * + * * // Save attributes from middle of screen * cBuffer := FT_SAVEATT(10,20,14,59) * $SEEALSO$ @@ -59,16 +59,16 @@ * This function is similar to Clipper's RestScreen(), except that it only * restores the attribute bytes. This is useful if you want to change the * screen color without affecting the text. - * + * * *** INTERNALS ALERT *** - * + * * This function calls the Clipper internals __gtSave and __gtRest to * manipulate the the screen image. If you're too gutless to use * internals, then this function isn't for you. * $EXAMPLES$ * // Restore attributes of row 4 * FT_RESTATT( 4, 0, 4, maxcol(), cBuffer) - * + * * // Restore attributes to middle of screen * FT_RESTATT(10,20,14,59,cBuffer) * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/ftidle.txt b/harbour/contrib/hbnf/doc/en/ftidle.txt index 53edc09676..9208a4c0a5 100644 --- a/harbour/contrib/hbnf/doc/en/ftidle.txt +++ b/harbour/contrib/hbnf/doc/en/ftidle.txt @@ -20,22 +20,22 @@ * the way of idle states, the Clipper runtime may not get a chance to * perform garbage collection of discarded memory. This can eventually * lead to any of a variety of memory-related internal errors. - * + * * This function attempts to alleviate the problem by providing a * mechanism by which an idle event can be artifically generated at * will. The idle event will cause the CA-Cl*pper runtime to perform * an incremental memory scavenge. - * + * * This function makes use of an undocumented interal routine. If this * this fact makes you uncomfortable then don't use this function, you * miserable jello-spined lump of human debris. * $EXAMPLES$ * while Whatever // Some batch process - * + * * Something() // Create 'n' discard a bunch of stuff - * + * * FT_Idle() // Take out the garbage - * + * * end * $SEEALSO$ * FT_OnIdle() diff --git a/harbour/contrib/hbnf/doc/en/ftisprn.txt b/harbour/contrib/hbnf/doc/en/ftisprn.txt index 557482961c..21e02478d3 100644 --- a/harbour/contrib/hbnf/doc/en/ftisprn.txt +++ b/harbour/contrib/hbnf/doc/en/ftisprn.txt @@ -26,25 +26,25 @@ * works with LPT1. Furthermore, it talks directly to the hardware, so * if you have redirected LPT1 via the DOS MODE command, the IsPrinter() * function will return erroneous results. - * + * * This function offers a better alternative. Instead of talking to the * hardware, it issues a DOS call that checks to see if the device is * ready or not. That gives DOS an opportunity to deal with any * redirections, and since you pass the device name as a parameter, you * can test any device, not just LPT1 (note that the function defaults * to PRN if you fail to pass a valid parameter). - * + * * The function also temporarily traps the DOS critical error handler so * you don't get any nasty error messages if the device isn't ready. It * restores the old critical error handler before exiting. - * + * * Note that although this function is mainly designed for testing * printers, you can also check to see if a drive is ready. Since DOS * thinks the NUL device exists on every drive, you can pass a drive * letter followed by NUL as a parameter. If DOS is able to open the * NUL device, then the drive is ready, otherwise the door is open or * something else is wrong. - * + * * The source code is written to adhere to Turbo Assembler's IDEAL mode. * To use another assembler, you will need to rearrange the PROC and * SEGMENT directives, and also the ENDP and ENDS directives (a very @@ -53,11 +53,11 @@ * IF ! FT_ISPRINT() * Qout( "PRN is not ready!" ) * ENDIF - * + * * IF ! FT_ISPRINT( "COM2" ) * Qout( "Check the device on COM2. Something is wrong." ) * ENDIF - * + * * IF ! FT_ISPRINT( "A:\nul" ) * Qout( "Oops, better check drive A!" ) * ENDIF diff --git a/harbour/contrib/hbnf/doc/en/ftround.txt b/harbour/contrib/hbnf/doc/en/ftround.txt index 38184bbc24..e56379f4a0 100644 --- a/harbour/contrib/hbnf/doc/en/ftround.txt +++ b/harbour/contrib/hbnf/doc/en/ftround.txt @@ -15,18 +15,18 @@ * [, ] ] ] ] ) -> nNumber * $ARGUMENTS$ * is the number to round - * + * * is the fraction to round to or the number of places, * default is 2. - * + * * is the type of rounding desired - * + * * "D" for Decimal (3 for thousandth, 1/1000) (default) * "F" for Fraction (3 for thirds, 1/3) * "W" for Whole numbers (3 for thousand, 1000) - * + * * is the direction to round the number toward - * + * * "U" to round Up 1.31 -> 1.4 * -1.31 -> -1.4 * "D" to round Down 1.36 -> 1.3 @@ -35,7 +35,7 @@ * -1.5 -> -2 * 1.49 -> 1 * -1.49 -> -1 - * + * * is the amount that is considered acceptable * to be within, i.e., if you're within this amount of the number * you don't need to round @@ -50,16 +50,16 @@ * $EXAMPLES$ * // round normal to 2 decimal places * nDollars := FT_ROUND(nDollars) - * + * * // round normal to 6 decimal places * nIntRate := FT_ROUND(nIntRate, 6) - * + * * // round to nearest thousands * nPrice := FT_ROUND(nPrice, 3, NEAREST_WHOLE_NUMBER) - * + * * // round Up to nearest third * nAmount := FT_ROUND(nAmount, 3, NEAREST_FRACTION, ROUND_UP) - * + * * // round down to 3 decimals Within .005 * nAvg := FT_ROUND(nAvg, 3, , ROUND_DOWN, .005) * $END$ diff --git a/harbour/contrib/hbnf/doc/en/fttext.txt b/harbour/contrib/hbnf/doc/en/fttext.txt index 4ff63b1bcb..e6fe0d5d01 100644 --- a/harbour/contrib/hbnf/doc/en/fttext.txt +++ b/harbour/contrib/hbnf/doc/en/fttext.txt @@ -11,50 +11,50 @@ * 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). - * + * * $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. - * + * * 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, * files where each line (record) is delimited by a CRLF pair. - * + * * Each file is opened in its own "workarea", similar to the concept * use by dbf files. As provided, a maximum of 10 files (in 10 * 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" - * + * * // open a text file for reading * ft_fUse( "text.txt" ) - * + * * // open a text file for reading and writing * ft_fUse( "text.txt", FO_READWRITE + FO_SHARED ) - * + * * // close file * ft_fUse() - * + * * $SEEALSO$ * FT_FUSE() FT_FSELECT() * $END$ @@ -69,46 +69,46 @@ * 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. - * + * * Passing 0 for ^b^n selects the next available workarea, * similar to Clipper's SELECT 0 command. If no more workareas are * available the current workarea is not changed. - * + * * Each file is opened in its own "workarea", similar to the concept * used by dbf files. As provided, a maximum of 10 files (in 10 * 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. - * + * * 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) - * + * * nFile1 := FT_FUSE( "temp.c" ) - * + * * ? FT_FLASTRE() // no. of lines in temp.c - * + * * FT_FSELECT(2) - * + * * nFile2 := FT_FUSE( "temp.h" ) - * + * * ? FT_FLASTRE() // no. of lines in temp.h - * + * * $SEEALSO$ * FT_FUSE() * $END$ @@ -123,34 +123,34 @@ * 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 pair. - * + * * $EXAMPLES$ * FT_FUSE( "text.c" ) // open text file - * + * * DO WHILE !FT_FEOF() - * + * * ? FT_FREADLN() // read thru file - * + * * FT_FSKIP() - * + * * ENDDO - * + * * FT_FGOTOP() // go back to top - * + * * ? FT_FRECNO() // 1 - * + * * $SEEALSO$ * FT_FSELECT() FT_FUSE() FT_FRECNO() FT_FGOBOT() * $END$ @@ -165,30 +165,30 @@ * 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( "text.c" ) < 0 // open text file * err := ft_fError(); * QOUT( 'Error opening file "Text.c", error code (' + ; * LTRIM( STR( err ) ) + ')' ) * endif - * + * * $SEEALSO$ - * + * * $END$ */ @@ -201,34 +201,34 @@ * 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 pair. - * + * * $EXAMPLES$ * FT_FUSE( "text.c" ) // open text file - * + * * DO WHILE !FT_FEOF() - * + * * ? FT_FREADLN() // read thru file - * + * * FT_FSKIP() - * + * * ENDDO - * + * * FT_FGOTOP() // go back to top - * + * * ? FT_FRECNO() // 1 - * + * * $SEEALSO$ * FT_FSELECT() FT_FUSE() FT_FGOTOP() FT_FGOBOT() * $END$ @@ -243,29 +243,29 @@ * 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. - * + * * 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 pair. - * + * * $EXAMPLES$ * // read last line * FT_FUSE( "text.c" ) - * + * * FT_FGOBOT() - * + * * ? FT_FREADLN() - * + * * $SEEALSO$ * FT_FSELECT() FT_FUSE() FT_FGOTOP() FT_FRECNO() FT_FREADLN() * $END$ @@ -280,42 +280,42 @@ * 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. - * + * * Use the return value to determine how many records were actually * skipped, for example to write a custom skipper function for * TBrowse'g text files. - * + * * 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 pair. - * + * * $EXAMPLES$ * // display each record of a text file - * + * * FT_FUSE( "text.c" ) - * + * * DO WHILE ! FT_FEOF() - * + * * ? FT_FREADLN() - * + * * FT_FSKIP() - * + * * ENDDO - * - * + * + * * $SEEALSO$ * FT_FRECNO() FT_FGOTOP() * $END$ @@ -330,41 +330,41 @@ * 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 * with a CRLF pair. The record pointer is not moved. - * + * * Currently the maximum record size is 4096 characters. You may * increase the maximum record size by changing the value of ^b#define * ^bBUFFSIZE^n in the C source and recompiling, however you should * consider the performance implications if you do (all read and writes * use this buffer size, including ft_fSkip()'s and ft_fGoto()'s). - * + * * 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 pair. - * + * * $EXAMPLES$ * // display each record of a text file - * + * * FT_FUSE( "text.c" ) - * + * * DO WHILE ! FT_FEOF() - * + * * ? FT_FREADLN() - * + * * FT_FSKIP() - * + * * ENDDO - * + * * $SEEALSO$ * FT_FUSE() FT_FWRITELN() FT_FRECNO() FT_FGOTOP() * $END$ @@ -379,16 +379,16 @@ * Deletes a line from the currently selected text file * $SYNTAX$ * FT_FDELETE( [ < nLines > ] ) -> 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 ^ft_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 @@ -396,13 +396,13 @@ * 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" ) - * + * * FT_FDELETE( 4 ) - * + * * $SEEALSO$ * FT_FAPPEND() FT_FRECNO() FT_FINSERT() * $END$ @@ -417,35 +417,35 @@ * Inserts a line in the currently selected text file * $SYNTAX$ * FT_FINSERT( [ < nLines > ] ) -> 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 * CRLF pair. - * + * * The record pointer is not moved. - * + * * A text file "record" is a line of text terminated by a CRLF pair. * 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" ) - * + * * ft_fGoTo( 10 ) - * + * * ft_fInsert( 5 ) - * + * * $SEEALSO$ * FT_FAPPEND() FT_FRECNO() FT_FDELETE() FT_FLASTRE() * $END$ @@ -460,27 +460,27 @@ * Appends a line to the currently selected text file * $SYNTAX$ * FT_FAPPEND( [ < nLines > ] ) -> 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 * CRLF pair. The record pointer is moved to the last appended * record. - * + * * Multiple lines may be appended with one call to FT_FAPPEND(). - * + * * A text file "record" is a line of text terminated by a CRLF pair. * Each line appended with this function will be empty. - * + * * NOTE: Occasionally a text file may contain a non-CRLF terminated * line, at the end of the file ("stragglers"). This function assumes * these stragglers to be the last line of the file, and begins @@ -488,17 +488,17 @@ * last line in the text file is not terminated with a CRLF pair 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" ) - * + * * ?FT_FRECNO() // displays 5 - * + * * FT_FAPPEND() - * + * * ?FT_FRECNO() // displays 6 - * + * * $SEEALSO$ * FT_FRECNO() FT_FDELETE() FT_FINSERT() FT_FLASTRE() * $END$ @@ -513,49 +513,49 @@ * Write a line to the currently selected text file * $SYNTAX$ * FT_FWRITELN( < cData >, [ < lInsert > ] ) -> lSuccess - * + * * $ARGUMENTS$ * is a string of data to write to the file at the current * record position. - * + * * is a logical indicating whether the contents * of the current record are to be preserved, that is, if lInsert * evaluates to .T., the a new record is inserted at the current * position. The current record then is pushed down to FT_FRECNO()+1. - * + * * 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 * CRLF pair. The record pointer is not moved. - * + * * The contents of the current record are updated to reflect the new * new line written, unless the Insert option is selected. - * + * * Writing a null string has the effect of clearing the current line * if in overstrike mode, else inserting a new line (same as * FT_FINSERT()). - * + * * A text file "record" is a line of text terminated by a CRLF pair. - * + * * $EXAMPLES$ * // write a line of text to a file - * + * * FT_FUSE( "config.sys" ) - * + * * DO WHILE UPPER( FT_FREADLN() ) != "FILES=" .AND. !F_FEOF() - * + * * FT_FSKIP() - * + * * ENDDO - * + * * FT_FWRITELN( "FILES=30", FT_FEOF() ) - * + * * $SEEALSO$ * FT_FREADLN() FT_FRECNO() FT_FINSERT() FT_FDELETE() * $END$ @@ -570,25 +570,25 @@ * 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 pair. - * + * * $EXAMPLES$ * FT_FUSE( "text.c" ) - * + * * ? FT_FLASTRE() - * + * * $SEEALSO$ * FT_FUSE() FT_FRECNO() * $END$ @@ -603,28 +603,28 @@ * 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 pair. - * + * * $EXAMPLES$ * FT_FUSE( "fttext.c" ) - * + * * ? FT_FEOF() // .F. - * + * * FT_FSKIP() - * + * * ? FT_FEOF() // .T. - * + * * $SEEALSO$ * FT_FUSE() FT_FSKIP() * $END$ @@ -639,30 +639,30 @@ * 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 pair. - * + * * $EXAMPLES$ * FT_FUSE( "fttext.c" ) - * + * * FT_FGOTOP() - * + * * ? FT_FBOF() // .F. - * + * * FT_FSKIP(-1) - * + * * ? FT_FBOF() // .T. - * + * * $SEEALSO$ * FT_FSKIP() FT_EOF() FT_GOTOP() * $END$ @@ -677,20 +677,20 @@ * 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 * the record number requested is greater than the number of records * in the file, the record pointer will be positioned at the last * record. - * + * * Internally, the function operates differently depending on how * you invoke it. Passing a value for ^b^n results in what * is effectively a skip operation, which is fairly quick. However @@ -699,18 +699,18 @@ * required number of records. Hence if your file is relatively * large and the current record is a high number, you may see some * delay as ft_fGoTo(0) skips through the file. - * + * * A text file "record" is a line of text terminated by a CRLF pair. - * + * * $EXAMPLES$ * // read 5th line of text from file - * + * * ft_fUse( "fttext.c" ) - * + * * ft_fGoTo(5) - * + * * cText := ft_fReadLN() - * + * * $SEEALSO$ * FT_FRECNO() FT_FGOTOP() FT_FREADLN() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/gcd.txt b/harbour/contrib/hbnf/doc/en/gcd.txt index 4d1af0018b..3dd2cfaf40 100644 --- a/harbour/contrib/hbnf/doc/en/gcd.txt +++ b/harbour/contrib/hbnf/doc/en/gcd.txt @@ -13,7 +13,7 @@ * FT_GCD( , ) -> nGCD * $ARGUMENTS$ * is the first number to find the GCD of. - * + * * is the second number to find the GCD of. * $RETURNS$ * The greatest common divisor of the 2 numbers, or 0 if either is 0. diff --git a/harbour/contrib/hbnf/doc/en/getenvrn.txt b/harbour/contrib/hbnf/doc/en/getenvrn.txt index 52f99af34a..4d3a6f2038 100644 --- a/harbour/contrib/hbnf/doc/en/getenvrn.txt +++ b/harbour/contrib/hbnf/doc/en/getenvrn.txt @@ -13,21 +13,21 @@ * FT_GETE( [ @ ] ) -> nNumStrings * $ARGUMENTS$ * is the variable to receive the environment data. - * + * * can be a character type variable, in which case * the function will place all environment strings in the variable * separated by carriage return/line feeds (chr 13 + chr(10)). - * + * * can be an array type, in which case the function * will place each string in an array element. The array MUST be * declared with the proper number of elements prior to passing it * to the function. This can be done by calling FT_GETE() without * parameters first to get the number of strings in the environment. - * + * * Note that the argument MUST be passed by reference. Since arrays * are by nature passed by reference, the "@" symbol is optional when * passing an array. - * + * * If no argument is passed, FT_GETE() merely returns the number * of strings in the environment. * $RETURNS$ @@ -42,25 +42,25 @@ * desired, use Clipper's built-in GETE() function. * $EXAMPLES$ * Get the environment in text form and browse it: - * + * * cEnvBlock := "" * nNumStrings := FT_GETE(@cEnvBlock) * @ 0, 0 to MAXROW() - 1, MAXCOL() * @ MAXROW(), 0 say 'Browse strings, press ESC to exit...' * MEMOWRIT(cEnvBlock, 1, 1, MAXROW() - 2,MAXCOL() - 1, .F.) - * + * * Get the environment in text form and write it to a file: - * + * * cEnvBlock := "" * FT_GETE(@cEnvBlock) * 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:\windows;C:\util;C:\harbour" + * ? aEnvArray[2] // "PATH=C:\;C:\util;C:\harbour" * ... etc ... * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/hex2dec.txt b/harbour/contrib/hbnf/doc/en/hex2dec.txt index 85d38049de..4f4ea08d3d 100644 --- a/harbour/contrib/hbnf/doc/en/hex2dec.txt +++ b/harbour/contrib/hbnf/doc/en/hex2dec.txt @@ -20,7 +20,7 @@ * Useful for using FT_INT86(). * $EXAMPLES$ * FT_INT86( HEX2DEC( "21" ), aRegs ) - * + * * Converts 21h, the Dos Interrupt, to its decimal equivalent, * 33, for use by FT_INT86(). * $END$ diff --git a/harbour/contrib/hbnf/doc/en/iamidle.txt b/harbour/contrib/hbnf/doc/en/iamidle.txt index 64913c5f0a..739ef5f646 100644 --- a/harbour/contrib/hbnf/doc/en/iamidle.txt +++ b/harbour/contrib/hbnf/doc/en/iamidle.txt @@ -20,7 +20,7 @@ * function more efficiently when applications release the CPU during * 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(), * you can cause Clipper to automatically release the CPU whenever * Clipper itself detects an idle state. @@ -28,11 +28,11 @@ * while inkey() != K_ESC * FT_IAmIdle() // Wait for ESC and announce idleness * end - * + * * * Here's another way to do it: - * + * * FT_OnIdle( {|| FT_IAmIdle()} ) - * + * * Inkey( 0 ) // Automatically reports idleness until key * // is pressed! * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/isbit.txt b/harbour/contrib/hbnf/doc/en/isbit.txt index 7dca126f92..97782df8b4 100644 --- a/harbour/contrib/hbnf/doc/en/isbit.txt +++ b/harbour/contrib/hbnf/doc/en/isbit.txt @@ -13,7 +13,7 @@ * FT_ISBIT( , ) -> lResult * $ARGUMENTS$ * is a character from CHR(0) to CHR(255) - * + * * is a number from 0 to 7 conforming to standard right-to-left * bit-numbering convention and representing the position of the * bit within the byte. @@ -24,22 +24,22 @@ * Tests for status of any selected bit in the byte passed as a parameter. * Byte must be presented in CHR() form, as a literal constant, or as the * one-byte character result of an expression. - * + * * This function is presented to illustrate that bit-wise operations * are possible with Clipper code. For greater speed, write .c or * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code tests whether bit 3 is set in the byte represented by * CHR(107): - * + * * lBitflag := FT_ISBIT(CHR(107), 3) * ? lBitflag // result: .T. - * + * * This code tests whether bit 5 is set in the byte represented by ASCII * 65 (letter 'A') - * + * * ? FT_ISBIT('A', 5) // result: .F. - * + * * For a demonstration of Clipper bit manipulations, compile and * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/isbiton.txt b/harbour/contrib/hbnf/doc/en/isbiton.txt index 55eb3884ea..b060159beb 100644 --- a/harbour/contrib/hbnf/doc/en/isbiton.txt +++ b/harbour/contrib/hbnf/doc/en/isbiton.txt @@ -13,7 +13,7 @@ * FT_ISBITON( , ) -> lResult * $ARGUMENTS$ * is an integer for which a bit state needs to be checked. - * + * * is a number from 0 to 15 that indicates which bit to test. * $RETURNS$ * .T. if the specified bit was on., .F. if off. @@ -26,7 +26,7 @@ * if FT_ISBITON( nCPUFlags, 0 ) * Qout( "The carry flag was set." ) * endif - * + * * if FT_ISBITON( nCPUFlags, 7 ) * Qout( "The sign flag was set." ) * endif diff --git a/harbour/contrib/hbnf/doc/en/isshare.txt b/harbour/contrib/hbnf/doc/en/isshare.txt index e50786f9cf..028175faaa 100644 --- a/harbour/contrib/hbnf/doc/en/isshare.txt +++ b/harbour/contrib/hbnf/doc/en/isshare.txt @@ -15,7 +15,7 @@ * None * $RETURNS$ * nRetcode will be set as follows on exit: - * + * * 0 if SHARE not loaded but ok to load * 1 if SHARE not loaded and not ok to load * 255 if SHARE loaded diff --git a/harbour/contrib/hbnf/doc/en/kspeed.txt b/harbour/contrib/hbnf/doc/en/kspeed.txt index b3703ba289..c635b12c14 100644 --- a/harbour/contrib/hbnf/doc/en/kspeed.txt +++ b/harbour/contrib/hbnf/doc/en/kspeed.txt @@ -13,9 +13,9 @@ * FT_SETRATE( [ ] [, ] ) -> NIL * $ARGUMENTS$ * is the keyboard delay time. - * + * * is the keyboard repeat rate. - * + * * ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ * ³ nDelayTime DELAY ³ ³ RepeatRate SPEED ³ * ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ @@ -58,7 +58,7 @@ * This routine is used to adjust the IBM PC/AT and PS/2 "typematic" * repeat and delay feature. This is used to allow the users of your * application to adjust these speeds to the most comfortable level. - * + * * This source code is written for Microsoft Assembler v5.1. * $EXAMPLES$ * FT_SETRATE(0,0) // Set keyboard to fastest possible settings diff --git a/harbour/contrib/hbnf/doc/en/linked.txt b/harbour/contrib/hbnf/doc/en/linked.txt index bd5c163b28..d72957eaf7 100644 --- a/harbour/contrib/hbnf/doc/en/linked.txt +++ b/harbour/contrib/hbnf/doc/en/linked.txt @@ -21,19 +21,19 @@ * $DESCRIPTION$ * This function would be used in data driven application to determine * whether or not a macro compiled function was linked in. - * + * * Several functions can be passed, and nested, in . - * + * * Caveat: Some function calls are converted by the preprocessor * into other function calls. You cannot have these types of * functions in a macro compiled string as they never exist at * runtime. FT_LINKED will correctly tell you that they are invalid. - * + * * 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))" * IF FT_LINKED(cString) @@ -41,7 +41,7 @@ * ELSE * ALERT("Error: "+cString+" was not linked in. Called by FT_LINKED()") * ENDIF - * - * + * + * * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/madd.txt b/harbour/contrib/hbnf/doc/en/madd.txt index 57c2794855..6b7a6278a7 100644 --- a/harbour/contrib/hbnf/doc/en/madd.txt +++ b/harbour/contrib/hbnf/doc/en/madd.txt @@ -15,10 +15,10 @@ * $ARGUMENTS$ * is any valid date in any date format. Defaults to * current system date if not supplied. - * + * * is the number of months to be added or subtracted. * Defaults to 0 if not supplied. - * + * * is a logical variable indicating whether or not to * force the returned date to the last date of the month. It only * affects the returned date if is an end-of-month date. @@ -26,7 +26,7 @@ * A date. * $DESCRIPTION$ * FT_MADD() adds or subtracts months to/from a given date. - * + * * If MakeEOM is passed and dGivenDate is the last day of a month, * it will return the EOM of calculated month. Otherwise it will * return the same day as the day of the passed date. @@ -34,7 +34,7 @@ * dDate := CTOD( "09/15/90" ) * ? FT_MADD( dDate, 1 ) // 10/15/90 * ? FT_MADD( dDate, -2 ) // 07/15/90 - * + * * // force EOM * dDate := CTOD( "04/30/91" ) * ? FT_MADD( dDate, 1 ) // 05/30/91 @@ -43,7 +43,7 @@ * ? FT_MADD( dDate, 2, .T. ) // 06/30/91 <- June only has 30 days * ? FT_MADD( dDate, 3 ) // 07/30/91 * ? FT_MADD( dDate, 3, .T. ) // 07/31/91 <- forced EOM - * + * * $SEEALSO$ * FT_DAYOFYR() FT_DAYTOBOW() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/menutonf.txt b/harbour/contrib/hbnf/doc/en/menutonf.txt index 7e74cf9257..620f9587d9 100644 --- a/harbour/contrib/hbnf/doc/en/menutonf.txt +++ b/harbour/contrib/hbnf/doc/en/menutonf.txt @@ -11,7 +11,7 @@ * Define a menu item for use with FT_MenuTo() * $SYNTAX$ * #include "ftmenuto.ch" - * + * * @ , PROMPT ; * [COLOR ] ; * [MESSAGE ] ; @@ -27,74 +27,74 @@ * [LEFT ] ; * [RIGHT ] ; * [EXECUTE ] ; - * + * * $ARGUMENTS$ * is the row at which the prompt is to appear. - * + * * is the column at which the prompt will appear. - * + * * is the menu item string. - * + * * is optional and is the color attribute of the prompt. Note * that two colors are required; one for the standard setting and one * for the enhanced setting (i.e. the light bar color). See the example * below if this isn't clear. If is not specified then the * current SetColor() value is used by default. - * + * * is optional and is the message associated with the * prompt. If not specified, then no message will be displayed. - * + * * is optional and is the row at which the message, if any, * will appear. If not specified, the default is the current setting * of the SET MESSAGE TO command. - * + * * is optional and is the column at which the message, if * any, will appear. If not specified, the default is either zero or * centered, depending on the current setting of the CENTER option of * the SET MESSAGE TO command. - * + * * is optional and is the color attribute of the message. * If not specified, the default is the same as the prompt color. - * + * * is optional and is the position within the prompt string * where the trigger character is located. If not specified, the * default is one. - * + * * is optional and is the color attribute of the trigger * character. Note that two colors are required; one for the standard * setting and one for the enhanced setting (i.e. the light bar color). * See the example below if this isn't clear. If is not * specified then the default is the same color as the rest of the * prompt. - * + * * is optional and specifies which prompt becomes active * when the home key is pressed. If not specified, the default is * the first prompt. - * + * * is optional and specifies which prompt becomes active * when the end key is pressed. If not specified, the default is * the last prompt. - * + * * is optional and specifies which prompt becomes active * when the up arrow key is pressed. If not specified, the * default is the previous prompt. The current setting of SET * WRAP TO is obeyed. - * + * * is optional and specifies which prompt becomes * active when the down arrow key is pressed. If not * specified, the default is the next prompt. The current * setting of SET WRAP TO is obeyed. - * + * * is optional and specifies which prompt becomes * active when the right arrow key is pressed. If not * specified, the default is the next prompt. The current * setting of SET WRAP TO is obeyed. - * + * * is optional and specifies which prompt becomes * active when the left arrow is pressed. If not specified, * the default is the previous prompt. The current setting of * SET WRAP TO is obeyed. - * + * * is optional and is a code block to evaluate whenever * the menu item to which it belongs is selected. * $DESCRIPTION$ @@ -108,45 +108,45 @@ * vertical movement, or even disable certain arrow keys if you * so desire. Support for nested menus is also available, since * the prompts are stored in stack-based static arrays. - * + * * Note that this command can also be called using function-style * syntax. See the entry for FT_PROMPT() for further details. - * + * * This enhanced version of @...PROMPT requires the inclusion of * the header file ftmenuto.ch in any source file that uses it. * It is may be used in place of the standard Clipper @...PROMPT * command. However, in the interests of functionality it is NOT * 100% compatible. No whining! If compatibility is such a big * deal then use the standard Clipper commands. - * + * * $EXAMPLES$ * #include "ftmenuto.ch" - * + * * // Simple prompt * @ 1, 1 PROMPT "Menu choice #1" - * + * * // Prompt with color * @ 3, 1 PROMPT "Menu choice #2" COLOR "W+/R,W+/B" - * + * * // Prompt with a message * @ 5, 1 PROMPT "Menu choice #3" MESSAGE "Go to lunch" - * + * * // Prompt with pinpoint message control * @ 7, 1 PROMPT "Menu choice #4" MESSAGE "Drop Dead" ; * MSGROW 22 MSGCOL 4 MSGCOLOR "GR+/N" - * + * * // Prompt with a trigger character ("#" character) * @11, 1 PROMPT "Menu choice #6" TRIGGER 13 - * + * * // Prompt with trigger character color control * @13, 1 PROMPT "Menu Choice #7" TRIGGER 13 TRIGGERCOLOR "R+/BG,G+/N" - * + * * // Prompt with right and left arrow keys disabled * @15, 1 PROMPT "Menu Choice #8" RIGHT 8 LEFT 8 * $INCLUDE$ * ftmenuto.ch * $SEEALSO$ - * + * * $END$ */ @@ -159,12 +159,12 @@ * Execute light bar menu using prompts created with @...PROMPT * $SYNTAX$ * #include "ftmenuto.ch" - * + * * MENU TO [COLD] * $ARGUMENTS$ * is the name of the variable to which the result of the menu * selection should be assigned. - * + * * [COLD] is optional and if specified indicates that trigger characters * should be treated as "cold," i.e. rather than causing the menu item * to be selected it only causes the light bar to move to that selection. @@ -178,16 +178,16 @@ * if it does not already exist, but this version does not). No whining! * If compatibility is such a big deal then use the standard Clipper * command. - * + * * Note that this command can also be called using function-style * syntax. See the entry for FT_MENUTO() for further details. * $EXAMPLES$ * #include "ftmenuto.ch" - * + * * // Simple command - * + * * MENU TO memvar - * + * * $INCLUDE$ * ftmenuto.ch * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/metaph.txt b/harbour/contrib/hbnf/doc/en/metaph.txt index a296e221af..ab78677084 100644 --- a/harbour/contrib/hbnf/doc/en/metaph.txt +++ b/harbour/contrib/hbnf/doc/en/metaph.txt @@ -13,7 +13,7 @@ * FT_METAPH( [, ] ) -> cMetaPhone * $ARGUMENTS$ * is the character string to convert - * + * * is the length of the character string to be returned. * If not specified the default length is 4 bytes. * $RETURNS$ diff --git a/harbour/contrib/hbnf/doc/en/miltime.txt b/harbour/contrib/hbnf/doc/en/miltime.txt index 7f1fa59697..bd6e9662f9 100644 --- a/harbour/contrib/hbnf/doc/en/miltime.txt +++ b/harbour/contrib/hbnf/doc/en/miltime.txt @@ -64,13 +64,13 @@ * 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" ) and FT_MIL2CIV( "2400" ) -> 12:00 m - * + * * Caution: leading blanks are irrelevant. * $SEEALSO$ * FT_CIV2MIL() FT_SYS2MIL() FT_MIL2MIN() FT_MIN2MIL() @@ -95,13 +95,13 @@ * 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 - * + * * Caution: leading blanks are irrelevant; p,a,n,m must be preceded by * one and only one space. * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/month.txt b/harbour/contrib/hbnf/doc/en/month.txt index dc90abc891..5a580683e0 100644 --- a/harbour/contrib/hbnf/doc/en/month.txt +++ b/harbour/contrib/hbnf/doc/en/month.txt @@ -14,26 +14,26 @@ * $ARGUMENTS$ * is any valid date in any date format. Defaults * to current system date if not supplied. - * + * * is a number from 1 to 12 signifying a month. * Defaults to current month if not supplied. * $RETURNS$ * A three element array containing the following data: - * + * * aDateInfo[1] - The year and month as a character string "YYYYMM" * aDateInfo[2] - The beginning date of the month * aDateInfo[3] - The ending date of the month * $DESCRIPTION$ * FT_MONTH() returns an array containing data about the month * containing the given date. - * + * * Normally the return data will be based on a year beginning * on January 1st with weeks beginning on Sunday. - * + * * The beginning of year date and/or beginning of week day can be * changed by using FT_DATECNFG(), which will affect all subsequent * calls to FT_MONTH() until another call to FT_DATECNFG(). - * + * * The beginning of year date and beginning of week day may be reset * to January 1 and Sunday by calling FT_DATECNFG() with no * parameters. @@ -43,13 +43,13 @@ * ? aDateInfo[1] // 199009 (9th month) * ? aDateInfo[2] // 09/01/90 beginning of month 9 * ? aDateInfo[3] // 09/30/90 end of week month 9 - * + * * // get info about month 5 in year containing 9/15/90 * aDateInfo := FT_MONTH( CTOD("09/15/90"), 5 ) * ? aDateInfo[1] // 199005 * ? aDateInfo[2] // 05/01/90 beginning of month 5 * ? aDateInfo[3] // 05/31/90 end of month 5 - * + * * // get info about month 5 in current year (1991) * aDateInfo := FT_MONTH( , 5 ) * ? aDateInfo[1] // 199105 diff --git a/harbour/contrib/hbnf/doc/en/netpv.txt b/harbour/contrib/hbnf/doc/en/netpv.txt index 4a6caf20e7..04fc0bd253 100644 --- a/harbour/contrib/hbnf/doc/en/netpv.txt +++ b/harbour/contrib/hbnf/doc/en/netpv.txt @@ -15,12 +15,12 @@ * $ARGUMENTS$ * is the amount of cash invested for purposes * of generating the cash flows. - * + * * is the annual interest rate used to discount * expected cash flows (10.5% = 10.5, not .105). - * + * * is an array of the expected cash receipts each year. - * + * * is the number of years cash flows are expected * (optional, Len( aCashFlow ) ). * $RETURNS$ @@ -32,12 +32,12 @@ * of the expected cash flow(s) from the investment. The present * value of the expected cashflow(s) is calculated at the specified * interest rate, which is often referred to as the "cost of capital". - * + * * This function can be used to evaluate alternative investments. * The larger the NPV, the more profitable the investment. See * also the FutureValue and PresentValue for further explanations. * The formula to calculate the net present value is: - * + * * NetPresentValue = SUM(CashFlow[i] / ((1 + InterestRate) ** i)) * FOR i = 1 TO NoOfCashFlows * $EXAMPLES$ diff --git a/harbour/contrib/hbnf/doc/en/nooccur.txt b/harbour/contrib/hbnf/doc/en/nooccur.txt index 297ece2829..0d8aad6c4c 100644 --- a/harbour/contrib/hbnf/doc/en/nooccur.txt +++ b/harbour/contrib/hbnf/doc/en/nooccur.txt @@ -14,9 +14,9 @@ * [, ] ) -> * $ARGUMENTS$ * is the string to search for - * + * * is the string to search - * + * * is a boolean variable to force case sensitivity * (optional, defaults to .F.). * $RETURNS$ @@ -27,12 +27,12 @@ * $EXAMPLES$ * // Find the number of times "the" appears in cMemoString, case * // insensitive - * + * * nNoOfOccurrences := FT_NOOCCUR( "the", cMemoString ) - * + * * // Find the number of times "the" appears in cMemoString, case * // sensitive - * + * * nNoOfOccurrences := FT_NOOCCUR( "the", cMemoString, .T. ) * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/ntow.txt b/harbour/contrib/hbnf/doc/en/ntow.txt index d9e5cb4f7b..ae2904b8a4 100644 --- a/harbour/contrib/hbnf/doc/en/ntow.txt +++ b/harbour/contrib/hbnf/doc/en/ntow.txt @@ -17,28 +17,28 @@ * A text string representing * $DESCRIPTION$ * Translates numeric input to a text string. - * + * * 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. - * + * * Do not pass a negative number! Handle negative numbers any way * you need to in your code. (ie: CR, DB, Negative, Minus, etc.) - * + * * Also, numeric 0 is returned as a null string. You will need to * make a decision how to output it (zero dollars, no dollars, etc). * $EXAMPLES$ * ? FT_NTOW( 999 ) -> Nine Hundred Ninety Nine - * + * * ? FT_NTOW( 1000 ) -> One Thousand - * + * * ? FT_NTOW( 23 ) + " Dollars and " + FT_NTOW( 99 ) + " Cents" * -> Twenty Three Dollars and Ninety Nine Cents - * + * * ? FT_NTOW( 23 ) + " Dollars and " + "99/100" * -> Twenty Three Dollars and 99/100 - * + * * x := -23.99 * cents := str( (x - int( x )) * 100, 2, 0 ) + "/100" * x := int( x ) diff --git a/harbour/contrib/hbnf/doc/en/nwlstat.txt b/harbour/contrib/hbnf/doc/en/nwlstat.txt index 0177c782df..b7d75784e6 100644 --- a/harbour/contrib/hbnf/doc/en/nwlstat.txt +++ b/harbour/contrib/hbnf/doc/en/nwlstat.txt @@ -23,9 +23,9 @@ * function will return that number. This will be a number from 1 to 100 * under NetWare 286, or from 1 to 250 under NetWare 386. This is *not* * the same as a physical station number. - * + * * This function requires FT_INT86(). - * + * * This function does NOT test for the existence of the NetWare shell. * The behavior is undefined if no shell is loaded. * $EXAMPLES$ diff --git a/harbour/contrib/hbnf/doc/en/nwsem.txt b/harbour/contrib/hbnf/doc/en/nwsem.txt index a7ecb65c97..18c403baf0 100644 --- a/harbour/contrib/hbnf/doc/en/nwsem.txt +++ b/harbour/contrib/hbnf/doc/en/nwsem.txt @@ -13,25 +13,25 @@ * FT_NWSEMOPEN( , , <@nHandle>, <@nOpenCnt> ) -> nRc * $ARGUMENTS$ * is the semaphore name, maximum length is 127 characters. - * + * * is the initial value for the semaphore. It must start * as a positive number, to a maximum of 127. - * + * * <@nHandle> is the semaphore handle. THIS MUST BE PASSED BY * REFERENCE! On exit, will contain a numeric value that * refers to the opened semaphore. You will need it to pass to * other semaphore functions! PASS IT BY REFERENCE! - * + * * <@nOpenCnt> is the number of stations that have opened the * semaphore. THIS MUST BE PASSED BY REFERENCE! On exit, * will contain a numeric value. * $RETURNS$ * nRc, a numeric result code, as follows: - * + * * 0 - success * 254 - Invalid semaphore name length * 255 - Invalid semaphore value - * + * * will contain the semaphore handle, and * will contain the number of stations that have opened * the semaphore. @@ -40,19 +40,19 @@ * activity. There is a semaphore name, which can be up to 127 * characters, and an associated value, which can range from 0 to * 127. - * + * * A semaphore can be used for many things, but is most often used * to limit the number of users in an application, and to control * access to a network resource. - * + * * A semaphore essentially allows you to place locks on resources * other than files. - * + * * An application begins the process by calling FT_NWSEMOPEN(). * If the semaphore doesn't exist, NetWare will create it. * FT_NWSEMOPEN() returns a handle that is used in other semaphore * calls. - * + * * Applications use FT_NWSEMWAIT() to wait for a semaphore to * become available. FT_NWSEMWAIT() decrements the semaphore's * value by 1. If the value > 0, then the application should @@ -62,15 +62,15 @@ * set the timeout parameter. If you can't get the resource in * the time you allot, you're let out of the queue and the * value increments by 1 again. - * + * * When an application finishes with a semaphore, it should * call FT_NWSEMSIG() to increment the value, and then * FT_NWSEMCLOSE() to close the semaphore. When the semaphore's * open count goes to 0, NetWare deletes it. - * + * * FT_NWSEMEX() can be used to examine the value and open count * without affecting them. - * + * * For an interesting discussion on the operating system aspects * of semaphores, check "Operating Systems Design and Implementation" * by A. Tanenbaum, page 60. For more details on NetWare's @@ -80,11 +80,11 @@ * functions in the Nanforum Toolkit. * $EXAMPLES$ * LOCAL nInitVal, nRc, nHandle, nOpenCnt - * + * * nInitVal := 2 * nRc := FT_NWSEMOPEN( "Semaphore Test", nInitVal, ; * @nHandle, @nOpenCnt ) - * + * * IF nRc != 0 * QOUT =: "Error: " + STR( nRc ) ) * QUIT @@ -106,19 +106,19 @@ * $ARGUMENTS$ * is the semaphore handle, returned from a previous call * to FT_NWSEMOPEN(). - * + * * <@nValue> will get the current semaphore value. THIS NUMERIC * ARGUMENT MUST BE PASSED BY REFERENCE! - * + * * <@nOpenCnt> will get the current number of workstations * that have opened the semaphore. THIS NUMERIC ARGUMENT MUST BE * PASSED BY REFERENCE! * $RETURNS$ * nRc, a numeric, as follows: - * + * * 0 - success * 255 - invalid semaphore handle - * + * * In addition, nValue will be set to the semaphore's current value, * and nOpenCnt will be set to the number of stations that have * opened the semaphore. @@ -128,15 +128,15 @@ * nInitVal := 2 * nHandle := 0 * nOpenCnt := 0 - * + * * FT_NWSEMOPEN( "Semaphore Test", nInitVal, @nHandle, @nOpenCnt ) - * + * * nRc := FT_NWSEMWAIT( nHandle ) * IF nRc == 254 * QOUT( "All slots for this resource are currently in use" ) * QUIT * ENDIF - * + * * FT_NWSEMEX( nHandle, @nValue, @nOpenCnt ) * QOUT( "Semaphore test -> Open at [" + ; * ALLTRIM(STR(nOpenCnt)) + ; @@ -159,14 +159,14 @@ * $ARGUMENTS$ * is the semaphore handle, returned from a previous call * to FT_NWSEMOPEN(). - * + * * is an optional parameter telling how long you wish to * wait on this semaphore. This is a numeric indicating the number * of clock ticks (approx 1/18 sec ) to wait. A zero (the default) * means "don't wait." * $RETURNS$ * nRc, a numeric, as follows: - * + * * 0 - success * 254 - timeout failure * 255 - invalid semaphore handle @@ -174,7 +174,7 @@ * See the description for the FT_NWSEMOPEN() function. * $EXAMPLES$ * FT_NWSEMOPEN( "Semaphore Test", nInitVal, @nHandle, @nOpenCnt ) - * + * * nRc := FT_NWSEMWAIT( nHandle ) * IF nRc == 254 * QOUT( "All slots for this resource are currently in use" ) @@ -199,7 +199,7 @@ * to FT_NWSEMOPEN(). * $RETURNS$ * nRc, a numeric, as follows - * + * * 0 - success * 1 - semaphore overflow ( value > 127 ) * 255 - invalid semaphore handle @@ -207,7 +207,7 @@ * Use FT_NWSEMSIG() when your app has finished with the resource * locked by a semaphore. This will increase the value (thus * making a slot available to another app). - * + * * For more information, see the description under FT_NWSEMOPEN(). * $EXAMPLES$ * QOUT( "Signal returns: " + STR( FT_NWSEMSIG( nHandle ) ) ) @@ -230,7 +230,7 @@ * to FT_NWSEMOPEN(). * $RETURNS$ * nRc, a numeric, as follows: - * + * * 0 - success * 255 - invalid semaphore handle * $DESCRIPTION$ @@ -261,30 +261,30 @@ * lRet == .t. if you get the lock, .f. if you don't. * If the lock succeeds, will contain the semaphore * handle. If it fails, the value of is undefined. - * + * * $DESCRIPTION$ * FT_NWSEMLOCK() uses the Nanforum Toolkit's NetWare Semaphore API * functions in order to provide a general purpose "lock" you can use in * a NetWare environment. - * + * * An interesting byproduct of NetWare's semaphore functions is * the "open count" which tells you how many connections have this * semaphore open. This is different from the semaphore's _value_, * which is set when the semaphore is opened and changed with * signal() and wait(). - * + * * The point of semaphores is that you don't care how many users * are using the resource; you merely wait on a semaphore until * the resource becomes available or you give up. When you're done, * you signal it and off you go. - * + * * Back to the open count. FT_NWSEMLOCK() opens the semaphore * as named in . After it is opened, the open count * is checked. If it is anything other than 1, that means someone * else has it (or you failed in your open) so the semaphore is * closed and the "lock" is refused. If the value is 1, then your * app is that 1 station so the "lock" is granted. - * + * * You can use a semaphore lock to control access to anything * that Clipper's RLOCK() and FLOCK() can't help you with, such * as text files written with the low level file i/o functions, @@ -302,7 +302,7 @@ * ENDIF * * Processing, then: * FT_NWSEMUNLOCK( nHandle ) - * + * * $SEEALSO$ * FT_NWSEMOPEN() FT_NWSEMEX() FT_NWSEMWAIT() FT_NWSEMSIG() FT_NWSEMUNLOCK() * $END$ @@ -342,7 +342,7 @@ * ENDIF * * Processing, then: * FT_NWSEMUNLOCK( nHandle ) - * + * * $SEEALSO$ * FT_NWSEMOPEN() FT_NWSEMEX() FT_NWSEMWAIT() FT_NWSEMSIG() FT_NWSEMLOCK() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/nwuid.txt b/harbour/contrib/hbnf/doc/en/nwuid.txt index dcc50138d5..fe96d33c40 100644 --- a/harbour/contrib/hbnf/doc/en/nwuid.txt +++ b/harbour/contrib/hbnf/doc/en/nwuid.txt @@ -25,18 +25,18 @@ * FT_NWUID() returns the current NetWare userid, or "login * name." This is useful for implementing security or audit * trail procedures within your programs. - * + * * There is no simple way a user can "fool" this function into * retrieving an incorrect value, provided a NetWare shell is loaded. - * + * * This function requires FT_INT86() and FT_NWLSTAT() - * + * * This function does NOT test for the existence of the NetWare shell. * The behavior is undefined if no shell is loaded. You'll usually get * garbage. This function has not been tested on NetWare 386. * $EXAMPLES$ * QOut( "I am: " + FT_NWUID() ) - * + * * FOR x := 1 TO 100 * cUid := FT_NWUID( x ) * IF .NOT Empty( cUid ) diff --git a/harbour/contrib/hbnf/doc/en/ontick.txt b/harbour/contrib/hbnf/doc/en/ontick.txt index 843b5eb7a8..938e2adcfb 100644 --- a/harbour/contrib/hbnf/doc/en/ontick.txt +++ b/harbour/contrib/hbnf/doc/en/ontick.txt @@ -20,30 +20,30 @@ * $DESCRIPTION$ * This function effectively allows you to run tasks in the background * by transparently and periodically calling a designated routine. - * + * * To halt the execution of the background function, call FT_OnTick() * with no arguments. - * + * * This function makes heavy use of several undocumented internal * routines. If this fact makes you uncomfortable then don't use * this function, you quivering sack of cowardly slime. * $EXAMPLES$ * // Set up a self-updating on-screen clock - * + * * FT_OnTick( "CLOCK", 9 ) - * + * * procedure Clock - * + * * local nRow := Row() * local nCol := Col() - * + * * @ 0, 0 say Time() - * + * * SetPos( nRow, nCol ) - * + * * return - * + * * $SEEALSO$ - * + * * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/origin.txt b/harbour/contrib/hbnf/doc/en/origin.txt index b460a1279c..607202ba92 100644 --- a/harbour/contrib/hbnf/doc/en/origin.txt +++ b/harbour/contrib/hbnf/doc/en/origin.txt @@ -20,15 +20,15 @@ * Often users will install multiple copies of application software, * especially on networks and in situations where the user is trying * to get around a copy protection scheme. - * + * * This function enables you to learn the name and source location * of the currently executing file, so that you may take whatever * action you need to. - * + * * Requires DOS v3.xx and above. * $EXAMPLES$ * cMyFile := FT_ORIGIN() - * + * * IF cMyFile != "C:\appdir\myfile.exe" * ?"Incorrect startup file. Please remove/rename and start again" * QUIT diff --git a/harbour/contrib/hbnf/doc/en/page.txt b/harbour/contrib/hbnf/doc/en/page.txt index c11becef1a..f4d4a62816 100644 --- a/harbour/contrib/hbnf/doc/en/page.txt +++ b/harbour/contrib/hbnf/doc/en/page.txt @@ -17,13 +17,13 @@ * NIL * $DESCRIPTION$ * Selects the video page. - * + * * For more information on graphics programming and video pages, * consult a reference such as "Programmer's Guide to PC and PS/2 * Video Systems" (Microsoft Press). * $EXAMPLES$ * // The following sets the current video page to 1 - * + * * FT_SETVPG( 1 ) * $SEEALSO$ * FT_GETVPG() @@ -45,11 +45,11 @@ * The video page, as a numeric. * $DESCRIPTION$ * Get the currently selected video page - * + * * For more information on graphics programming and video pages, * consult a reference such as _Programmer's Guide to PC and PS/2 * Video Systems_ (Microsoft Press). - * + * * $EXAMPLES$ * nPage := FT_GETVPG() * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/pchr.txt b/harbour/contrib/hbnf/doc/en/pchr.txt index 4a41507748..ac84eaa70a 100644 --- a/harbour/contrib/hbnf/doc/en/pchr.txt +++ b/harbour/contrib/hbnf/doc/en/pchr.txt @@ -22,20 +22,20 @@ * control codes in text (enclosed in double quotes), numeric, * hexadecimal, or Epson commands preceded by a slash and returns * the printer control code equivalent. - * + * * NOTES" - * + * * - Combinations of text, numbers, hex, and commands must be * separated by commas ("A",27,&1B,/RESET). * - Text must be enclosed in double quotes ("x"). * - Hexadecimal must be preceded by an ampersand (&1B). * - Epson commands, listed below, must be preceded by a forward * slash (/RESET). - * + * * Epson commands: (slash commands are specific to the Epson) - * + * * Job Control: - * + * * /RESET or /INIT Reset or initialize the printer * /BELL or /BEEP Cause the printer's speaker to beep (not HS) * /CAN Clear print buffers (not MX) @@ -45,18 +45,18 @@ * /TWO Select Directional mode * /ON Activate printer * /OFF Turn off printer - * + * * /FF or /EJECT Form Feed - * + * * Page Control: - * + * * /1/6 Set 6 lines per inch * /1/8 Set 8 lines per inch * /SKIP Set Skip perforation ON * /SKIPOFF Set Skip perforation OFF - * + * * Font Selection and Manipulation: - * + * * /ITALIC Select italic char. set (only FX86, EX, LX, * no LQ-1500, SX) * /GRAPHIC Select graphic char. set (only FX86, EX, LX, @@ -72,21 +72,21 @@ * /EMPHOFF Turn emphasize off * /SPANISH Select spanish international char set * /USA Select USA international char set - * + * * $EXAMPLES$ * cSetUp := '27,116,1' * Set Print ON * ? FT_PCHR( cSetUp ) -> (CHR(27)+CHR(116)+CHR(1)) *