From f085281caa4091b23319ee30eb0512584a99ff19 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 4 Nov 2012 20:40:45 +0000 Subject: [PATCH] 2012-11-04 21:34 UTC+0100 Viktor Szakats (harbour syenar.net) * contrib/hbgd/gdwrp.c * contrib/hbgd/tests/animgif.prg * contrib/hbgd/tests/antialia.prg * contrib/hbgd/tests/gdtest.prg * contrib/hbgd/tests/test.prg * contrib/hbgd/tests/tpoly.prg * deprecated GDIMAGEDESTROY() with HB_LEGACY_LEVEL4 * do not use GDIMAGEDESTROY() in tests (and docs) * contrib/hbgt/hbgt.hbx * camelcased function names * contrib/hbct/doc/en/charlihb.txt * contrib/hbct/doc/en/charmix.txt * contrib/hbct/doc/en/charop.txt * contrib/hbct/doc/en/charophb.txt * contrib/hbct/doc/en/ctmath2.txt * contrib/hbct/doc/en/dattime3.txt * contrib/hbct/doc/en/finan.txt * contrib/hbct/doc/en/tab.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/hbgd/doc/en/hbgd.txt * contrib/hbgt/doc/en/hbgt.txt * contrib/hbmisc/doc/en/ht_dbf.txt * contrib/hbmisc/doc/en/ht_doc.txt * contrib/hbnf/doc/en/*.txt * contrib/hbziparc/doc/en/hbziparc.txt * contrib/rddads/doc/en/adsfuncs.txt ! hbformatted $EXAMPLES$, $TESTS$ (manual cherry picking and additional corrections and fixes) --- harbour/ChangeLog | 35 + harbour/contrib/hbct/doc/en/charlihb.txt | 2 +- harbour/contrib/hbct/doc/en/charmix.txt | 4 +- harbour/contrib/hbct/doc/en/charop.txt | 2 +- harbour/contrib/hbct/doc/en/charophb.txt | 18 +- harbour/contrib/hbct/doc/en/ctmath2.txt | 4 +- harbour/contrib/hbct/doc/en/dattime3.txt | 28 +- harbour/contrib/hbct/doc/en/finan.txt | 1 - harbour/contrib/hbct/doc/en/tab.txt | 14 +- harbour/contrib/hbct/doc/en/token1.txt | 3 +- harbour/contrib/hbct/doc/en/token2.txt | 2 +- harbour/contrib/hbct/doc/en/trig.txt | 16 +- harbour/contrib/hbct/doc/en/video.txt | 4 + harbour/contrib/hbgd/doc/en/hbgd.txt | 877 ++++++++----------- harbour/contrib/hbgd/gdwrp.c | 4 + harbour/contrib/hbgd/tests/animgif.prg | 4 - harbour/contrib/hbgd/tests/antialia.prg | 6 - harbour/contrib/hbgd/tests/gdtest.prg | 4 - harbour/contrib/hbgd/tests/test.prg | 3 - harbour/contrib/hbgd/tests/tpoly.prg | 1 - harbour/contrib/hbgt/doc/en/hbgt.txt | 91 +- harbour/contrib/hbgt/hbgt.hbx | 32 +- harbour/contrib/hbmisc/doc/en/ht_dbf.txt | 3 +- harbour/contrib/hbmisc/doc/en/ht_doc.txt | 1 - harbour/contrib/hbnf/doc/en/aading.txt | 14 +- harbour/contrib/hbnf/doc/en/aemaxlen.txt | 6 +- harbour/contrib/hbnf/doc/en/aredit.txt | 55 +- harbour/contrib/hbnf/doc/en/bitclr.txt | 14 +- harbour/contrib/hbnf/doc/en/bitset.txt | 14 +- harbour/contrib/hbnf/doc/en/blink.txt | 2 +- harbour/contrib/hbnf/doc/en/byt2bit.txt | 14 +- harbour/contrib/hbnf/doc/en/byt2hex.txt | 14 +- harbour/contrib/hbnf/doc/en/byteand.txt | 12 +- harbour/contrib/hbnf/doc/en/byteneg.txt | 6 +- harbour/contrib/hbnf/doc/en/bytenot.txt | 6 +- harbour/contrib/hbnf/doc/en/byteor.txt | 4 +- harbour/contrib/hbnf/doc/en/bytexor.txt | 10 +- harbour/contrib/hbnf/doc/en/calendar.txt | 1 - harbour/contrib/hbnf/doc/en/cint86.txt | 22 +- harbour/contrib/hbnf/doc/en/clrsel.txt | 31 +- harbour/contrib/hbnf/doc/en/ctrl.txt | 4 +- harbour/contrib/hbnf/doc/en/d2e.txt | 6 +- harbour/contrib/hbnf/doc/en/daytobow.txt | 8 +- harbour/contrib/hbnf/doc/en/dfile.txt | 8 +- harbour/contrib/hbnf/doc/en/dispc.txt | 4 +- harbour/contrib/hbnf/doc/en/dispmsg.txt | 30 +- harbour/contrib/hbnf/doc/en/e2d.txt | 6 +- harbour/contrib/hbnf/doc/en/elapsed.txt | 10 +- harbour/contrib/hbnf/doc/en/fttext.txt | 24 +- harbour/contrib/hbnf/doc/en/getenvrn.txt | 32 +- harbour/contrib/hbnf/doc/en/hex2dec.txt | 4 +- harbour/contrib/hbnf/doc/en/iamidle.txt | 5 +- harbour/contrib/hbnf/doc/en/idle.txt | 4 +- harbour/contrib/hbnf/doc/en/isbit.txt | 14 +- harbour/contrib/hbnf/doc/en/menu1.txt | 37 +- harbour/contrib/hbnf/doc/en/menutonf.txt | 5 +- harbour/contrib/hbnf/doc/en/miltime.txt | 4 +- harbour/contrib/hbnf/doc/en/mouse1.txt | 4 +- harbour/contrib/hbnf/doc/en/ntow.txt | 10 +- harbour/contrib/hbnf/doc/en/numlock.txt | 2 +- harbour/contrib/hbnf/doc/en/nwsem.txt | 2 - harbour/contrib/hbnf/doc/en/ontick.txt | 1 - harbour/contrib/hbnf/doc/en/pchr.txt | 10 +- harbour/contrib/hbnf/doc/en/pending.txt | 15 +- harbour/contrib/hbnf/doc/en/restsets.txt | 2 +- harbour/contrib/hbnf/doc/en/savearr.txt | 16 +- harbour/contrib/hbnf/doc/en/scregion.txt | 12 +- harbour/contrib/hbnf/doc/en/setdate.txt | 5 +- harbour/contrib/hbnf/doc/en/settime.txt | 17 +- harbour/contrib/hbnf/doc/en/shift.txt | 4 +- harbour/contrib/hbnf/doc/en/sleep.txt | 17 +- harbour/contrib/hbnf/doc/en/sqzn.txt | 9 +- harbour/contrib/hbnf/doc/en/tbwhile.txt | 12 +- harbour/contrib/hbnf/doc/en/tempfile.txt | 12 +- harbour/contrib/hbnf/doc/en/vertmenu.txt | 4 +- harbour/contrib/hbnf/doc/en/vidcur.txt | 1 - harbour/contrib/hbnf/doc/en/video1.txt | 34 +- harbour/contrib/hbnf/doc/en/vidmode.txt | 6 +- harbour/contrib/hbnf/doc/en/wda.txt | 1 - harbour/contrib/hbnf/doc/en/woy.txt | 8 +- harbour/contrib/hbnf/doc/en/xbox.txt | 19 +- harbour/contrib/hbziparc/doc/en/hbziparc.txt | 2 +- harbour/contrib/rddads/doc/en/adsfuncs.txt | 12 +- 83 files changed, 822 insertions(+), 1004 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 95312dd2c9..f0a6bd259e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,41 @@ The license applies to all entries newer than 2009-04-28. */ +2012-11-04 21:34 UTC+0100 Viktor Szakats (harbour syenar.net) + * contrib/hbgd/gdwrp.c + * contrib/hbgd/tests/animgif.prg + * contrib/hbgd/tests/antialia.prg + * contrib/hbgd/tests/gdtest.prg + * contrib/hbgd/tests/test.prg + * contrib/hbgd/tests/tpoly.prg + * deprecated GDIMAGEDESTROY() with HB_LEGACY_LEVEL4 + * do not use GDIMAGEDESTROY() in tests (and docs) + + * contrib/hbgt/hbgt.hbx + * camelcased function names + + * contrib/hbct/doc/en/charlihb.txt + * contrib/hbct/doc/en/charmix.txt + * contrib/hbct/doc/en/charop.txt + * contrib/hbct/doc/en/charophb.txt + * contrib/hbct/doc/en/ctmath2.txt + * contrib/hbct/doc/en/dattime3.txt + * contrib/hbct/doc/en/finan.txt + * contrib/hbct/doc/en/tab.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/hbgd/doc/en/hbgd.txt + * contrib/hbgt/doc/en/hbgt.txt + * contrib/hbmisc/doc/en/ht_dbf.txt + * contrib/hbmisc/doc/en/ht_doc.txt + * contrib/hbnf/doc/en/*.txt + * contrib/hbziparc/doc/en/hbziparc.txt + * contrib/rddads/doc/en/adsfuncs.txt + ! hbformatted $EXAMPLES$, $TESTS$ (manual cherry picking + and additional corrections and fixes) + 2012-11-04 17:48 UTC+0100 Viktor Szakats (harbour syenar.net) * contrib/hbct/*.[c|h] * contrib/hbmemio/*.[c|h] diff --git a/harbour/contrib/hbct/doc/en/charlihb.txt b/harbour/contrib/hbct/doc/en/charlihb.txt index 6077874d51..723d9fe7af 100644 --- a/harbour/contrib/hbct/doc/en/charlihb.txt +++ b/harbour/contrib/hbct/doc/en/charlihb.txt @@ -66,7 +66,7 @@ ? charhist( "Hello World !" )[ 109 ] // --> 3 // Chr( 108 ) == "l" $TESTS$ charhist( "Hello World !" )[ 109 ] == 3 - eval( {|| AEval( charhist( "Hello World !" ), {| x | nTotal += x } ), nTotal == Len( "Hello World !" ) } + Eval( {|| AEval( charhist( "Hello World !" ), {| x | nTotal += x } ), nTotal == Len( "Hello World !" ) } $STATUS$ Ready $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/charmix.txt b/harbour/contrib/hbct/doc/en/charmix.txt index 2f9021fb0f..7358401a51 100644 --- a/harbour/contrib/hbct/doc/en/charmix.txt +++ b/harbour/contrib/hbct/doc/en/charmix.txt @@ -35,8 +35,8 @@ $TESTS$ CHARMIX( "ABC", "123" ) == "A1B2C3" CHARMIX( "ABCDE", "12" ) == "A1B2C1D2E1" - CHARMIX( "AB", "12345") == "A1B2" - CHARMIX( "HELLO", " " ) == "H E L L O " + CHARMIX( "AB", "12345" ) == "A1B2" + CHARMIX( "HELLO", " " ) == "H E L L O " CHARMIX( "HELLO", "" ) == "HELLO" $STATUS$ Ready diff --git a/harbour/contrib/hbct/doc/en/charop.txt b/harbour/contrib/hbct/doc/en/charop.txt index f6a50716b9..e88ff6be6b 100644 --- a/harbour/contrib/hbct/doc/en/charop.txt +++ b/harbour/contrib/hbct/doc/en/charop.txt @@ -126,7 +126,7 @@ the return value can be omitted. $EXAMPLES$ ? charnot( Chr( 85 ) + Chr( 128 ) + Chr( 170 ) + Chr( 1 ) ) // --> Chr( 170 ) + Chr( 127 ) + Chr( 85 ) + Chr( 254 ) - ? charnot( charnot( "This is a test!" ) ) --> "This is a test!" + ? charnot( charnot( "This is a test!" ) ) // --> "This is a test!" $TESTS$ charnot( Chr( 85 ) + Chr( 128 ) + Chr( 170 ) + Chr( 1 ) ) == Chr( 170 ) + Chr( 127 ) + Chr( 85 ) + Chr( 254 ) charnot( charnot( "This is a test!" ) ) == "This is a test!" diff --git a/harbour/contrib/hbct/doc/en/charophb.txt b/harbour/contrib/hbct/doc/en/charophb.txt index 13a9cca7a9..ab52c84837 100644 --- a/harbour/contrib/hbct/doc/en/charophb.txt +++ b/harbour/contrib/hbct/doc/en/charophb.txt @@ -78,10 +78,12 @@ stored in , too. By setting the CSETREF()-switch to .T., the return value can be omitted. $EXAMPLES$ - ? charshl( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) + ? charshl( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + ; + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) // --> Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128)+Chr(0)+Chr(0)+Chr(0) $TESTS$ - charshl( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) == Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128)+Chr(0)+Chr(0)+Chr(0) + charshl( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + ; + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) == Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ) + Chr( 0 ) + Chr( 0 ) + Chr( 0 ) $STATUS$ Ready $COMPLIANCE$ @@ -124,10 +126,10 @@ stored in , too. By setting the CSETREF()-switch to .T., the return value can be omitted. $EXAMPLES$ - ? charshr( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) + ? charshr( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) // --> Chr(0)+Chr(0)+Chr(0)+Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16) $TESTS$ - charshr( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) == Chr(0)+Chr(0)+Chr(0)+Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16) + charshr( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) == Chr( 0 ) + Chr( 0 ) + Chr( 0 ) + Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) $STATUS$ Ready $COMPLIANCE$ @@ -170,10 +172,10 @@ stored in , too. By setting the CSETREF()-switch to .T., the return value can be omitted. $EXAMPLES$ - ? charrll( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) + ? charrll( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) // --> Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128)+Chr(1)+Chr(2)+Chr(4) $TESTS$ - charrll( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) == Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128)+Chr(1)+Chr(2)+Chr(4) + charrll( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) == Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ) + Chr( 1 ) + Chr( 2 ) + Chr( 4 ) $STATUS$ Ready $COMPLIANCE$ @@ -216,10 +218,10 @@ stored in , too. By setting the CSETREF()-switch to .T., the return value can be omitted. $EXAMPLES$ - ? charrlr( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) + ? charrlr( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) // --> Chr(32)+Chr(64)+Chr(128)+Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16) $TESTS$ - charrlr( Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16)+Chr(32)+Chr(64)+Chr(128), 3 ) == Chr(32)+Chr(64)+Chr(128)+Chr(1)+Chr(2)+Chr(4)+Chr(8)+Chr(16) + charrlr( Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) + Chr( 32 ) + Chr( 64 ) + Chr( 128 ), 3 ) == Chr( 32 ) + Chr( 64 ) + Chr( 128 ) + Chr( 1 ) + Chr( 2 ) + Chr( 4 ) + Chr( 8 ) + Chr( 16 ) $STATUS$ Ready $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/ctmath2.txt b/harbour/contrib/hbct/doc/en/ctmath2.txt index bac27b8590..c5ad937102 100644 --- a/harbour/contrib/hbct/doc/en/ctmath2.txt +++ b/harbour/contrib/hbct/doc/en/ctmath2.txt @@ -129,10 +129,10 @@ i.e. 10^ == . $EXAMPLES$ ? log10( 10.0 ) // --> 1.0 - ? log10( sqrt( 10.0 ) ) // --> 0.5 + ? log10( Sqrt( 10.0 ) ) // --> 0.5 $TESTS$ log10( 10.0 ) == 1.0 - log10( sqrt( 10.0 ) ) == 0.5 + log10( Sqrt( 10.0 ) ) == 0.5 $STATUS$ Ready $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/dattime3.txt b/harbour/contrib/hbct/doc/en/dattime3.txt index 7e02401bd2..f853d8a433 100644 --- a/harbour/contrib/hbct/doc/en/dattime3.txt +++ b/harbour/contrib/hbct/doc/en/dattime3.txt @@ -33,11 +33,11 @@ incorrect. The passing of midnight (the time resets to the 0 value) is taken into account. $EXAMPLES$ - Run a loop for 5 seconds: + // Run a loop for 5 seconds: WAITPERIOD( 500 ) // Initialization, 5 seconds DO WHILE .AND. .AND. WAITPERIOD() - *... + // ... ENDDO $TESTS$ @@ -86,20 +86,20 @@ check with TIMEVALID(), then they must be TRIMmed prior to the use of TIMEVALID() (see following Examples). $EXAMPLES$ - Using the VALID clause with TRIM, all valid times are - accepted, even IF no seconds or minutes are specIFied: + // Using the VALID clause with TRIM, all valid times are + // accepted, even IF no seconds or minutes are specIFied: - cBegin := SPACE( 11 ) + cBegin := Space( 11 ) @ 5, 10 SAY "Please input time for beginning work:"; - GET cBegin VALID TIMEVALID( RTRIM( cBegin ) ) + GET cBegin VALID TIMEVALID( RTrim( cBegin ) ) READ - Using a VALID clause without TRIM, hours and minutes must be - specified, so that TIMEVALID() can confirm a valid time: + // Using a VALID clause without TRIM, hours and minutes must be + // specified, so that TIMEVALID() can confirm a valid time: - cBegin := SPACE( 5 ) + cBegin := Space( 5 ) @ 5, 10 SAY "Please input time for beginning work:"; - GET cBegin VALID TIMEVALID( cBegin ) + GET cBegin VALID TIMEVALID( cBegin ) READ $TESTS$ @@ -140,8 +140,8 @@ within your application, all files acquire this time with each write procedure. $EXAMPLES$ - Set the system time in each case; but the hardware clock only - on an AT: + // Set the system time in each case; but the hardware clock only + // on an AT: cNewTime := "10:20:00" IF ISAT() @@ -190,8 +190,8 @@ When you use this FUNCTION to set the system date from within your application, all files acquire this date with each write procedure. $EXAMPLES$ - Set the system date in each case; but the hardware clock only - on an AT: + // Set the system date in each case; but the hardware clock only + // on an AT: dNewDate := SToD( "19910730" ) IF ISAT() diff --git a/harbour/contrib/hbct/doc/en/finan.txt b/harbour/contrib/hbct/doc/en/finan.txt index a8054e2d60..f303a6e38a 100644 --- a/harbour/contrib/hbct/doc/en/finan.txt +++ b/harbour/contrib/hbct/doc/en/finan.txt @@ -238,7 +238,6 @@ // 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/tab.txt b/harbour/contrib/hbct/doc/en/tab.txt index 59a2dbb945..4e095d2acc 100644 --- a/harbour/contrib/hbct/doc/en/tab.txt +++ b/harbour/contrib/hbct/doc/en/tab.txt @@ -32,13 +32,13 @@ $EXAMPLES$ $TESTS$ - tabexpand("-"+Chr(9)+"!") == "- !" - tabexpand("----"+Chr(9) +"!") == "---- !" - tabexpand("-"+Chr(9)+"!",, "+") == "-+++++++!" - tabexpand("-"+Chr(9)+ "!", 4) == "- !" - tabexpand("----"+Chr(9)+ "!", 8) == "---- !" - tabexpand("----"+Chr(9)+ "!", 8, "+") == "----++++!" - tabexpand("-"+Chr(9)+"!"+hb_eol()+"----"+Chr(9)+ "!",, "+") == "-+++++++!"+hb_eol()+"----++++!" + tabexpand( "-" + Chr( 9 ) + "!" ) == "- !" + tabexpand( "----" + Chr( 9 ) + "!" ) == "---- !" + tabexpand( "-" + Chr( 9 ) + "!", , "+" ) == "-+++++++!" + tabexpand( "-" + Chr( 9 ) + "!", 4 ) == "- !" + tabexpand( "----" + Chr( 9 ) + "!", 8 ) == "---- !" + tabexpand( "----" + Chr( 9 ) + "!", 8, "+" ) == "----++++!" + tabexpand( "-" + Chr( 9 ) + "!" + hb_eol() + "----" + Chr( 9 ) + "!", , "+" ) == "-+++++++!" + hb_eol() + "----++++!" $STATUS$ Started $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/token1.txt b/harbour/contrib/hbct/doc/en/token1.txt index 41b3b95e32..fbc61592af 100644 --- a/harbour/contrib/hbct/doc/en/token1.txt +++ b/harbour/contrib/hbct/doc/en/token1.txt @@ -43,8 +43,7 @@ empty tokens, simply look if the character at the returned position is within the tokenizer list. $EXAMPLES$ - attoken( "Hello, World!" ) // --> 8 // empty strings after tokenizer - // are not a token ! + attoken( "Hello, World!" ) // --> 8 (empty strings after tokenizer are not a token !) $TESTS$ attoken( "Hello, World!" ) == 8 attoken( "Hello, World!",, 2 ) == 8 diff --git a/harbour/contrib/hbct/doc/en/token2.txt b/harbour/contrib/hbct/doc/en/token2.txt index ce5c187967..7595c4fa92 100644 --- a/harbour/contrib/hbct/doc/en/token2.txt +++ b/harbour/contrib/hbct/doc/en/token2.txt @@ -64,7 +64,7 @@ // since the string must not be copied tokeninit() // rewind counter of global TE to 1 tokeninit( "1,2,3", "," , 1 ) // tokenize constant string, store in global TE - tokeninit( cString, , 1, @cTE1) // tokenize cString and store TE in + tokeninit( cString, , 1, @cTE1 ) // tokenize cString and store TE in // cTE1 only without overriding global TE tokeninit( cString, , 1, cTE1 ) // tokenize cString and store TE in // GLOBAL TE since 4th parameter is diff --git a/harbour/contrib/hbct/doc/en/trig.txt b/harbour/contrib/hbct/doc/en/trig.txt index c9d3e29dbb..f60c44391c 100644 --- a/harbour/contrib/hbct/doc/en/trig.txt +++ b/harbour/contrib/hbct/doc/en/trig.txt @@ -63,7 +63,7 @@ ? sin( 1.0 ) // --> 0.8414... $TESTS$ sin( 0.0 ) == 0.0 - sin( PI() / 4 ) == sqrt( 1 / 2 ) + sin( PI() / 4 ) == Sqrt( 1 / 2 ) sin( PI() / 2 ) == 1.0 sin( PI() ) == 0.0 $STATUS$ @@ -102,8 +102,8 @@ ? cos( 0.0 ) // --> 1.0 ? cos( 1.0 ) // --> 0.5403... $TESTS$ - cos( 0.0) == 1.0 - cos( PI() / 4 ) == sqrt( 1 / 2 ) + cos( 0.0 ) == 1.0 + cos( PI() / 4 ) == Sqrt( 1 / 2 ) cos( PI() / 2 ) == 0.0 cos( PI() ) == -1.0 $STATUS$ @@ -222,7 +222,7 @@ ? asin( 0.5 ) // --> 0.5235... $TESTS$ asin( 0.0 ) == 0.0 - asin( sqrt( 1 / 2 ) ) == PI() / 4 + asin( Sqrt( 1 / 2 ) ) == PI() / 4 asin( 1.0 ) == PI() / 2 asin( 0.0 ) == 0.0 // and not PI(), since the smallest angle is returned ! $STATUS$ @@ -263,7 +263,7 @@ ? acos( 0.5 ) // --> 1.04719... $TESTS$ acos( 0.0 ) == PI() / 2 - acos( sqrt( 1 / 2 ) ) == PI() / 4 + acos( Sqrt( 1 / 2 ) ) == PI() / 4 acos( 1.0 ) == 0.0 acos( -1.0 ) == PI() acos( 0.0 ) == PI() / 2 // and not -PI()/2, although cos (-PI()/2) == 0.0 ! @@ -345,11 +345,11 @@ see DTOR() if you need to convert it into degress). $EXAMPLES$ ? atn2( 0.0, 1.0 ) // --> 0.0 - ? atn2( sqrt( 1 / 2 ), sqrt( 1 / 2 ) ) // --> PI() / 4 + ? atn2( Sqrt( 1 / 2 ), Sqrt( 1 / 2 ) ) // --> PI() / 4 $TESTS$ atn2( 0.0, 1.0 ) == 0.0 - atn2( sqrt( 1 / 2 ), sqrt( 1 / 2 ) ) == PI() / 4 - atn2( -sqrt( 1 / 2 ), -sqrt( 1 / 2 ) ) == -3 / 4 * PI() // atan() would return PI() / 4 ! + atn2( Sqrt( 1 / 2 ), Sqrt( 1 / 2 ) ) == PI() / 4 + atn2( -Sqrt( 1 / 2 ), -Sqrt( 1 / 2 ) ) == -3 / 4 * PI() // atan() would return PI() / 4 ! $STATUS$ Ready $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/video.txt b/harbour/contrib/hbct/doc/en/video.txt index df89df3c0a..2246a721dd 100644 --- a/harbour/contrib/hbct/doc/en/video.txt +++ b/harbour/contrib/hbct/doc/en/video.txt @@ -24,6 +24,7 @@ $STATUS$ Started $COMPLIANCE$ + $PLATFORMS$ DJGPP $FILES$ @@ -63,6 +64,7 @@ $STATUS$ Started $COMPLIANCE$ + $PLATFORMS$ DJGPP $FILES$ @@ -94,6 +96,7 @@ $STATUS$ Started $COMPLIANCE$ + $PLATFORMS$ DJGPP $FILES$ @@ -131,6 +134,7 @@ $STATUS$ Started $COMPLIANCE$ + $PLATFORMS$ DJGPP $FILES$ diff --git a/harbour/contrib/hbgd/doc/en/hbgd.txt b/harbour/contrib/hbgd/doc/en/hbgd.txt index 8e17a001ed..c9ce323649 100644 --- a/harbour/contrib/hbgd/doc/en/hbgd.txt +++ b/harbour/contrib/hbgd/doc/en/hbgd.txt @@ -70,24 +70,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageCreate( 64, 64 ) - pImage := gdImageCreate( 64, 64 ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreateTrueColor() + gdImageCreateTrueColor() $END$ */ @@ -114,24 +109,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageCreateTrueColor( 64, 64 ) - pImage := gdImageCreateTrueColor( 64, 64 ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate() + gdImageCreate() $END$ */ @@ -156,22 +146,17 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageCreateTrueColor( 64, 64 ) - pImage := gdImageCreateTrueColor( 64, 64 ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ gdImageCreate(), gdImageCreateTrueColor() $END$ @@ -216,24 +201,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromJpeg( "myimage.jpg" ) - pImage := gdImageFromJpeg( "myimage.jpg" ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageCreate(), gdImageCreateTrueColor(), gdImageDestroy(), gdImageFromGif(), gdImageFromPng(), gdImageFromGD(), gdImageFromWBmp() + gdImageCreate(), gdImageCreateTrueColor(), gdImageFromGif(), gdImageFromPng(), gdImageFromGD(), gdImageFromWBmp() $END$ */ @@ -276,24 +256,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromGif( "myimage.gif" ) - pImage := gdImageFromGif( "myimage.gif" ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageCreate(), gdImageCreateTrueColor(), gdImageDestroy(), gdImageFromJpeg(), gdImageFromPng(), gdImageFromGD(), gdImageFromWBmp() + gdImageCreate(), gdImageCreateTrueColor(), gdImageFromJpeg(), gdImageFromPng(), gdImageFromGD(), gdImageFromWBmp() $END$ */ @@ -336,24 +311,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromPng( "myimage.png" ) - pImage := gdImageFromPng( "myimage.png" ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageCreate(), gdImageCreateTrueColor(), gdImageDestroy(), gdImageFromJpeg(), gdImageFromGif(), gdImageFromGD(), gdImageFromWBmp() + gdImageCreate(), gdImageCreateTrueColor(), gdImageFromJpeg(), gdImageFromGif(), gdImageFromGD(), gdImageFromWBmp() $END$ */ @@ -396,24 +366,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromGD( "myimage.gd" ) - pImage := gdImageFromGD( "myimage.gd" ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageCreate(), gdImageCreateTrueColor(), gdImageDestroy(), gdImageFromJpeg(), gdImageFromGif(), gdImageFromPng(), gdImageFromWBmp() + gdImageCreate(), gdImageCreateTrueColor(), gdImageFromJpeg(), gdImageFromGif(), gdImageFromPng(), gdImageFromWBmp() $END$ */ @@ -456,24 +421,19 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromWBmp( "myimage.wbmp" ) - pImage := gdImageFromWBmp( "myimage.wbmp" ) - // Use here image - ......... - gdImageDestroy( pImage ) + // Use image here - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageCreate(), gdImageCreateTrueColor(), gdImageDestroy(), gdImageFromJpeg(), gdImageFromGif(), gdImageFromPng(), gdImageFromGD() + gdImageCreate(), gdImageCreateTrueColor(), gdImageFromJpeg(), gdImageFromGif(), gdImageFromPng(), gdImageFromGD() $END$ */ @@ -507,26 +467,20 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromGif( "myimage.gif" ) - pImage := gdImageFromGif( "myimage.gif" ) + // Image conversion + gdImageJpeg( pImage, "myimage.jpg" ) - // Image conversion - gdImageJpeg( pImage, "myimage.jpg" ) - - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageFromGif() + gdImageFromGif() $END$ */ @@ -558,26 +512,20 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromJpeg( "myimage.jpg" ) - pImage := gdImageFromJpeg( "myimage.jpg" ) + // Image conversion + gdImageGif( pImage, "myimage.gif" ) - // Image conversion - gdImageGif( pImage, "myimage.gif" ) - - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageFromJpeg() + gdImageFromJpeg() $END$ */ @@ -611,26 +559,20 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromGif( "myimage.gif" ) - pImage := gdImageFromGif( "myimage.gif" ) + // Image conversion + gdImagePng( pImage, "myimage.png" ) - // Image conversion - gdImagePng( pImage, "myimage.png" ) - - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageFromGif() + gdImageFromGif() $END$ */ @@ -662,26 +604,20 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage + LOCAL pImage := gdImageFromGif( "myimage.gif" ) - pImage := gdImageFromGif( "myimage.gif" ) + // Image conversion + gdImageGd( pImage, "myimage.gd" ) - // Image conversion - gdImageGd( pImage, "myimage.gd" ) - - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageFromGif() + gdImageFromGif() $END$ */ @@ -714,38 +650,33 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL white, black + LOCAL pImage + LOCAL white, black - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate background - white := gdImageColorAllocate(pImage, 255, 255, 255) + // Allocate background + white := gdImageColorAllocate( pImage, 255, 255, 255 ) - // Allocate drawing color - black := gdImageColorAllocate(pImage, 0, 0, 0) + // Allocate drawing color + black := gdImageColorAllocate( pImage, 0, 0, 0 ) - // Draw a rectangle - gdImageRectangle(pImage, 0, 0, 99, 99, black) + // Draw a rectangle + gdImageRectangle( pImage, 0, 0, 99, 99, black ) - // Save the image with black as foreground color - gdImageWBmp( pImage, "myimage.wbmp", black ) + // Save the image with black as foreground color + gdImageWBmp( pImage, "myimage.wbmp", black ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageRectangle(), gdColorAllocate() + gdImageCreate(), gdImageRectangle(), gdColorAllocate() $END$ */ @@ -772,35 +703,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL white + LOCAL pImage + LOCAL white - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - white := gdImageColorAllocate(pImage, 255, 255, 255) + // Allocate color + white := gdImageColorAllocate( pImage, 255, 255, 255 ) - // Draw a pixel - gdImageSetPixel(pImage, 50, 50, white) + // Draw a pixel + gdImageSetPixel( pImage, 50, 50, white ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -830,35 +756,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw a line - gdImageLine(pImage, 10, 10, 90, 90, blue) + // Draw a line + gdImageLine( pImage, 10, 10, 90, 90, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -888,35 +809,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw a dashed line - gdImageDashedLine(pImage, 10, 10, 90, 90, blue) + // Draw a dashed line + gdImageDashedLine( pImage, 10, 10, 90, 90, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -945,40 +861,34 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue - LOCAL aVerticies := { ; - { 50, 0 } ,; - { 99, 99 } ,; - { 0, 99 } ; - } + LOCAL pImage + LOCAL blue + LOCAL aVerticies := { ; + { 50, 0 }, ; + { 99, 99 }, ; + { 0, 99 } } - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw a polygon - gdImagePolygon(pImage, aVerticies, blue) + // Draw a polygon + gdImagePolygon( pImage, aVerticies, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1008,40 +918,34 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue - LOCAL aVerticies := { ; - { 50, 0 } ,; - { 99, 99 } ,; - { 0, 99 } ; - } + LOCAL pImage + LOCAL blue + LOCAL aVerticies := { ; + { 50, 0 }, ; + { 99, 99 }, ; + { 0, 99 } } - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draws an open polygon - gdImageOpenPolygon(pImage, aVerticies, blue) + // Draws an open polygon + gdImageOpenPolygon( pImage, aVerticies, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1071,35 +975,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw a rectangle - gdImageRectangle(pImage, 10, 10, 50, 50, blue) + // Draw a rectangle + gdImageRectangle( pImage, 10, 10, 50, 50, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1128,40 +1027,34 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue - LOCAL aVerticies := { ; - { 50, 0 } ,; - { 99, 99 } ,; - { 0, 99 } ; - } + LOCAL pImage + LOCAL blue + LOCAL aVerticies := { ; + { 50, 0 }, ; + { 99, 99 }, ; + { 0, 99 } } - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw a filled polygon - gdImageFilledPolygon(pImage, aVerticies, blue) + // Draw a filled polygon + gdImageFilledPolygon( pImage, aVerticies, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1191,35 +1084,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw a filled rectangle - gdImageFilledRectangle(pImage, 10, 10, 50, 50, blue) + // Draw a filled rectangle + gdImageFilledRectangle( pImage, 10, 10, 50, 50, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1255,35 +1143,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw an ellipse - gdImageArc(pImage, 50, 25, 98, 48, 0, 360, blue) + // Draw an ellipse + gdImageArc( pImage, 50, 25, 98, 48, 0, 360, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1339,35 +1222,30 @@ #include "gd.ch" PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw an ellipse - gdImageFilledArc(pImage, 50, 25, 98, 48, 0, 360, blue, gdArc) + // Draw an ellipse + gdImageFilledArc( pImage, 50, 25, 98, 48, 0, 360, blue, gdArc ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1397,35 +1275,30 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue + LOCAL pImage + LOCAL blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - // Draw an ellipse - gdImageFilledEllipse(pImage, 50, 25, 98, 48, blue) + // Draw an ellipse + gdImageFilledEllipse( pImage, 50, 25, 98, 48, blue ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg() $END$ */ @@ -1455,39 +1328,34 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue, red + LOCAL pImage + LOCAL blue, red - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) - red := gdImageColorAllocate(pImage, 255, 0, 0) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) + red := gdImageColorAllocate( pImage, 255, 0, 0 ) - // Draw an ellipse - gdImageArc(pImage, 50, 25, 98, 48, 0, 360, blue) + // Draw an ellipse + gdImageArc( pImage, 50, 25, 98, 48, 0, 360, blue ) - // Fill the ellipse - gdImageFillToBorder(pImage, 50, 50, blue, red) + // Fill the ellipse + gdImageFillToBorder( pImage, 50, 50, blue, red ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageArc() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageArc() $END$ */ @@ -1521,39 +1389,34 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage - LOCAL blue, red + LOCAL pImage + LOCAL blue, red - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - blue := gdImageColorAllocate(pImage, 0, 0, 255) - red := gdImageColorAllocate(pImage, 255, 0, 0) + // Allocate color + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) + red := gdImageColorAllocate( pImage, 255, 0, 0 ) - // Draw an ellipse - gdImageArc(pImage, 50, 25, 98, 48, 0, 360, blue) + // Draw an ellipse + gdImageArc( pImage, 50, 25, 98, 48, 0, 360, blue ) - // Fill the ellipse - gdImageFill(pImage, 50, 50, red) + // Fill the ellipse + gdImageFill( pImage, 50, 50, red ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageArc() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageArc() $END$ */ @@ -1597,39 +1460,34 @@ #include "gd.ch" PROCEDURE Main() - LOCAL pImage - LOCAL blue, red + LOCAL pImage + LOCAL blue, red - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - /* Background color (first allocated) */ - blue := gdImageColorAllocate(pImage, 0, 0, 255) - red := gdImageColorAllocate(pImage, 255, 0, 0) + // Allocate color + /* Background color (first allocated) */ + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) + red := gdImageColorAllocate( pImage, 255, 0, 0 ) - gdImageSetAntiAliased(pImage, blue) + gdImageSetAntiAliased( pImage, blue ) - // Draw a smooth line - gdImageLine(pImage, 0, 0, 99, 9, gdAntiAliased) + // Draw a smooth line + gdImageLine( pImage, 0, 0, 99, 9, gdAntiAliased ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine(), gdAntiAliased, gdSetAntiAliasedDontBlend() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine(), gdAntiAliased, gdSetAntiAliasedDontBlend() $END$ */ @@ -1660,43 +1518,38 @@ #include "gd.ch" PROCEDURE Main() - LOCAL pImage - LOCAL black, white, blue + LOCAL pImage + LOCAL black, white, blue - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color - /* Background color (first allocated) */ - black := gdImageColorAllocate(pImage, 0, 0, 0) - white := gdImageColorAllocate(pImage, 255, 255, 255) - blue := gdImageColorAllocate(pImage, 0, 0, 255) + // Allocate color + /* Background color (first allocated) */ + black := gdImageColorAllocate( pImage, 0, 0, 0 ) + white := gdImageColorAllocate( pImage, 255, 255, 255 ) + blue := gdImageColorAllocate( pImage, 0, 0, 255 ) - gdImageSetAntiAliased(pImage, blue) + gdImageSetAntiAliased( pImage, blue ) - // The portion of the line that crosses this white rectangle will not be blended smoothly - gdImageSetAntiAliasedDontBlend(pImage, white) + // The portion of the line that crosses this white rectangle will not be blended smoothly + gdImageSetAntiAliasedDontBlend( pImage, white ) - // Draw a smooth line - gdImageLine(pImage, 0, 0, 99, 9, gdAntiAliased) + // Draw a smooth line + gdImageLine( pImage, 0, 0, 99, 9, gdAntiAliased ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine(), gdAntiAliased, gdSetAntiAlias() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine(), gdAntiAliased, gdSetAntiAlias() $END$ */ @@ -1738,46 +1591,38 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage, pBrush - LOCAL blue, red + LOCAL pImage, pBrush + LOCAL blue, red - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Open the brush PNG. For best results, portions of the brush that should be transparent - // (ie, not part of the brush shape) should have the transparent color index. - pBrush := gdImageCreateFromPng( "mybrush.png" ) + // Open the brush PNG. For best results, portions of the brush that should be transparent + // (ie, not part of the brush shape) should have the transparent color index. + pBrush := gdImageCreateFromPng( "mybrush.png" ) - // Allocate color (background color is the first allocate) - black := gdImageColorAllocate(pImage, 0, 0, 0) + // Allocate color (background color is the first allocate) + black := gdImageColorAllocate( pImage, 0, 0, 0 ) - // Set the brush - gdImageSetBrush(pImage, pBrush) + // Set the brush + gdImageSetBrush( pImage, pBrush ) - // Draw a line from the upper left corner to the lower - // right corner using the brush. - gdImageLine(pImage, 0, 0, 99, 99, gdBrushed) + // Draw a line from the upper left corner to the lower + // right corner using the brush. + gdImageLine( pImage, 0, 0, 99, 99, gdBrushed ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - // Destroy the brush image - gdImageDestroy( pBrush ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine() $END$ */ @@ -1818,47 +1663,39 @@ $EXAMPLES$ PROCEDURE Main() - LOCAL pImage, pTile - LOCAL blue, red + LOCAL pImage, pTile + LOCAL blue, red - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Open the tile PNG. For best results, portions of the - // tile that should be transparent (ie, allowing the - // background to shine through) should have the transparent - // color index. - pTile := gdImageCreateFromPng( "mytile.png" ) + // Open the tile PNG. For best results, portions of the + // tile that should be transparent (ie, allowing the + // background to shine through) should have the transparent + // color index. + pTile := gdImageCreateFromPng( "mytile.png" ) - // Allocate color (background color is the first allocate) - black := gdImageColorAllocate(pImage, 0, 0, 0) + // Allocate color (background color is the first allocate) + black := gdImageColorAllocate( pImage, 0, 0, 0 ) - // Set the tile - gdImageSetTile(pImage, pTile) + // Set the tile + gdImageSetTile( pImage, pTile ) - // Fill an area using the tile - gdImageFilledRectangle(pImage, 25, 25, 75, 75, gdTiled) + // Fill an area using the tile + gdImageFilledRectangle( pImage, 25, 25, 75, 75, gdTiled ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - // Destroy the tile image - gdImageDestroy( pTile ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageFilledRectangle() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageFilledRectangle() $END$ */ @@ -1903,55 +1740,50 @@ #include "gd.ch" PROCEDURE Main() - LOCAL pImage, aStyleDotted := {}, aStyleDashed := {} - LOCAL black, red + LOCAL pImage, aStyleDotted := {}, aStyleDashed := {} + LOCAL black, red - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color (background color is the first allocate) - black := gdImageColorAllocate(pImage, 0, 0, 0) - red := gdImageColorAllocate(pImage, 255, 0, 0) + // Allocate color (background color is the first allocate) + black := gdImageColorAllocate( pImage, 0, 0, 0 ) + red := gdImageColorAllocate( pImage, 255, 0, 0 ) - // Set up dotted style. Leave every other pixel alone. - aAdd( aStyleDotted, red ) - aAdd( aStyleDotted, gdTransparent ) + // Set up dotted style. Leave every other pixel alone. + aAdd( aStyleDotted, red ) + aAdd( aStyleDotted, gdTransparent ) - // Set up dashed style. Three on, three off. - aAdd( aStyleDashed, red ) - aAdd( aStyleDashed, red ) - aAdd( aStyleDashed, red ) - aAdd( aStyleDashed, gdTransparent ) - aAdd( aStyleDashed, gdTransparent ) - aAdd( aStyleDashed, gdTransparent ) + // Set up dashed style. Three on, three off. + aAdd( aStyleDashed, red ) + aAdd( aStyleDashed, red ) + aAdd( aStyleDashed, red ) + aAdd( aStyleDashed, gdTransparent ) + aAdd( aStyleDashed, gdTransparent ) + aAdd( aStyleDashed, gdTransparent ) - // Set dotted style. - gdImageSetStyle(pImage, aStyleDotted) + // Set dotted style. + gdImageSetStyle( pImage, aStyleDotted ) - // Draw a line from the upper left corner to the lower right corner. - gdImageLine(pImage, 0, 0, 99, 99, gdStyled) + // Draw a line from the upper left corner to the lower right corner. + gdImageLine( pImage, 0, 0, 99, 99, gdStyled ) - // Now the dashed line. - gdImageSetStyle(pImage, aStyleDashed) - gdImageLine(pimage, 0, 99, 0, 99, gdStyled) + // Now the dashed line. + gdImageSetStyle( pImage, aStyleDashed ) + gdImageLine( pimage, 0, 99, 0, 99, gdStyled ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine() $END$ */ @@ -1977,38 +1809,33 @@ #include "gd.ch" PROCEDURE Main() - LOCAL pImage - LOCAL black, white + LOCAL pImage + LOCAL black, white - // Create an image in memory - pImage := gdImageCreate( 100, 100 ) + // Create an image in memory + pImage := gdImageCreate( 100, 100 ) - // Allocate color (background color is the first allocate) - black := gdImageColorAllocate(pImage, 0, 0, 0) - white := gdImageColorAllocate(pImage, 255, 255, 255) + // Allocate color (background color is the first allocate) + black := gdImageColorAllocate( pImage, 0, 0, 0 ) + white := gdImageColorAllocate( pImage, 255, 255, 255 ) - // Set thickness. - gdImageSetThickness(pImage, 4) + // Set thickness. + gdImageSetThickness( pImage, 4 ) - // Draw a fat line from the upper left corner to the lower right corner. - gdImageLine(pImage, 0, 0, 99, 99, white) + // Draw a fat line from the upper left corner to the lower right corner. + gdImageLine( pImage, 0, 0, 99, 99, white ) - // Save the image - gdImageJpeg( pImage, "myimage.jpg" ) + // Save the image + gdImageJpeg( pImage, "myimage.jpg" ) - // Destroy the image - gdImageDestroy( pImage ) - - RETURN + RETURN $STATUS$ R $COMPLIANCE$ GD Library $PLATFORMS$ All - $FILES$ - gdwrp.c $SEEALSO$ - gdImageDestroy(), gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine() + gdImageCreate(), gdImageColorAllocate(), gdImageJpeg(), gdImageLine() $END$ */ diff --git a/harbour/contrib/hbgd/gdwrp.c b/harbour/contrib/hbgd/gdwrp.c index 0bda970bb9..e41b8d9f40 100644 --- a/harbour/contrib/hbgd/gdwrp.c +++ b/harbour/contrib/hbgd/gdwrp.c @@ -717,6 +717,8 @@ HB_FUNC( GDIMAGEGD ) /* original: void gdImageGD(gdImagePtr im, FILE *out) */ } +#if defined( HB_LEGACY_LEVEL4 ) + /* - */ /* @@ -727,6 +729,8 @@ HB_FUNC( GDIMAGEDESTROY ) /* gdImageDestroy(gdImagePtr im) */ { } +#endif + /* - */ /* - */ diff --git a/harbour/contrib/hbgd/tests/animgif.prg b/harbour/contrib/hbgd/tests/animgif.prg index 5efeb686d0..c23f2f2efb 100644 --- a/harbour/contrib/hbgd/tests/animgif.prg +++ b/harbour/contrib/hbgd/tests/animgif.prg @@ -87,10 +87,6 @@ PROCEDURE Main() gdImageGifAnimEnd( IMAGES_OUT + "anim2.gif" ) /* Close file */ FClose( hFile ) - /* Destroy images */ - gdImageDestroy( im ) - gdImageDestroy( im2 ) - gdImageDestroy( im3 ) ? ? "Look at " + IMAGES_OUT + " folder for output images" diff --git a/harbour/contrib/hbgd/tests/antialia.prg b/harbour/contrib/hbgd/tests/antialia.prg index d57bd33e2d..4b96a87ab0 100644 --- a/harbour/contrib/hbgd/tests/antialia.prg +++ b/harbour/contrib/hbgd/tests/antialia.prg @@ -66,9 +66,6 @@ PROCEDURE Main() /* saving the image */ gdImageJpeg( im, IMAGES_OUT + "antialiasedpal.jpg" ) - /* Destroy it */ - gdImageDestroy( im ) - /* ***** DRAW A LINE IN A TRUE COLOR IMAGE ***** */ /* First we create a true color image */ @@ -93,9 +90,6 @@ PROCEDURE Main() /* saving the image */ gdImageJpeg( im, IMAGES_OUT + "antialiasedtrue.jpg" ) - /* Destroy it */ - gdImageDestroy( im ) - ? ? "Look at " + IMAGES_OUT + " folder for output images" ? diff --git a/harbour/contrib/hbgd/tests/gdtest.prg b/harbour/contrib/hbgd/tests/gdtest.prg index ee9723ffb9..e7e65ad8c2 100644 --- a/harbour/contrib/hbgd/tests/gdtest.prg +++ b/harbour/contrib/hbgd/tests/gdtest.prg @@ -97,10 +97,6 @@ PROCEDURE Main() gdImagePng( im2, IMAGES_OUT + "conv_tst.png" ) gdImageJpeg( im2, IMAGES_OUT + "conv_tst.jpg" ) - /* Destroy images in memory */ - gdImageDestroy( im ) - gdImageDestroy( im2 ) - ? ? "Look at " + IMAGES_OUT + " folder for output images" ? diff --git a/harbour/contrib/hbgd/tests/test.prg b/harbour/contrib/hbgd/tests/test.prg index a99be20207..17ca8ff065 100644 --- a/harbour/contrib/hbgd/tests/test.prg +++ b/harbour/contrib/hbgd/tests/test.prg @@ -24,7 +24,4 @@ PROCEDURE Main() gdImagePng( im2, IMAGES_OUT + "gdtest_squared.png" ) - gdImageDestroy( im ) - gdImageDestroy( im2 ) - RETURN diff --git a/harbour/contrib/hbgd/tests/tpoly.prg b/harbour/contrib/hbgd/tests/tpoly.prg index 1a86b4dd4a..71f9b35816 100644 --- a/harbour/contrib/hbgd/tests/tpoly.prg +++ b/harbour/contrib/hbgd/tests/tpoly.prg @@ -86,7 +86,6 @@ PROCEDURE DrawFlake( lOpenPoly ) ENDIF gdImagePng( gdImage, IMAGES_OUT + cImageName ) - gdImageDestroy( gdImage ) RETURN diff --git a/harbour/contrib/hbgt/doc/en/hbgt.txt b/harbour/contrib/hbgt/doc/en/hbgt.txt index 3a2c23e396..1e794ca752 100644 --- a/harbour/contrib/hbgt/doc/en/hbgt.txt +++ b/harbour/contrib/hbgt/doc/en/hbgt.txt @@ -29,7 +29,7 @@ same name. I changed the behaviour because some of the strings I process contain embedded NULs. $EXAMPLES$ - ? gt_ascpos("the cat sat on the mat", 3) // prints e + ? gt_ascpos( "the cat sat on the mat", 3 ) // prints e $TESTS$ $STATUS$ @@ -97,8 +97,8 @@ NOTE: invalid parameters will return -1 $EXAMPLES$ - ? gt_atDiff("the cat", "the rat") // prints 5 - ? gt_atDiff("the cat", "the ") // prints 0 + ? gt_atDiff( "the cat", "the rat" ) // prints 5 + ? gt_atDiff( "the cat", "the " ) // prints 0 $TESTS$ $STATUS$ @@ -132,7 +132,7 @@ NOTE: invalid parameters will return "" $EXAMPLES$ - ? gt_CharEven("abcdefghijklm") // prints "bdfhjl" + ? gt_CharEven( "abcdefghijklm" ) // prints "bdfhjl" $TESTS$ $STATUS$ @@ -168,9 +168,9 @@ NOTE: invalid parameters will return "" $EXAMPLES$ - ? gt_CharMix("abc", "123") // prints "a1b2c3" - ? gt_CharMix("abcde", "123") // prints "a1b2c3de" - ? gt_CharMix("abc", "12345") // prints "a1b2c345" + ? gt_CharMix( "abc", "123" ) // prints "a1b2c3" + ? gt_CharMix( "abcde", "123" ) // prints "a1b2c3de" + ? gt_CharMix( "abc", "12345" ) // prints "a1b2c345" $TESTS$ $STATUS$ @@ -204,7 +204,7 @@ NOTE: invalid parameters will return "" $EXAMPLES$ - ? gt_CharOdd("abcdefghijklm") // prints "acegikm" + ? gt_CharOdd( "abcdefghijklm" ) // prints "acegikm" $TESTS$ $STATUS$ @@ -239,7 +239,7 @@ NOTE: invalid parameters will return -1 $EXAMPLES$ - ? GT_ChrCount("t", "the cat sat on the mat") // prints 4 + ? GT_ChrCount( "t", "the cat sat on the mat" ) // prints 4 $TESTS$ $STATUS$ @@ -272,8 +272,8 @@ Return the ascii value of a character in which appears first in . $EXAMPLES$ - ? chr(GT_ChrFirst("sa ", "This is a test")) // prints "s" - ? chr(GT_ChrFirst("et", "This is a test")) // prints "t" + ? Chr( GT_ChrFirst( "sa ", "This is a test" ) ) // prints "s" + ? Chr( GT_ChrFirst( "et", "This is a test" ) ) // prints "t" $TESTS$ $STATUS$ @@ -310,10 +310,10 @@ NOTE: invalid parameters will return -1 $EXAMPLES$ - local cStr1 := "the cat sat on the mat" + LOCAL cStr1 := "the cat sat on the mat" - ? GT_ChrTotal("tae", cStr1) // prints 10 - ? GT_ChrTotal("zqw", cStr1) // prints 0 + ? GT_ChrTotal( "tae", cStr1 ) // prints 10 + ? GT_ChrTotal( "zqw", cStr1 ) // prints 0 $TESTS$ $STATUS$ @@ -352,7 +352,7 @@ NOTE: invalid parameters will return -1 $EXAMPLES$ - ? GT_StrCount("the", "the cat sat on the mat") // prints 2 + ? GT_StrCount( "the", "the cat sat on the mat" ) // prints 2 $TESTS$ $STATUS$ @@ -384,8 +384,8 @@ Return the number of characters in the leading segment of a string that consists solely of characters NOT in the set. $EXAMPLES$ - ? GT_strcspn("this is a test", "as ") // prints 3 - ? GT_strcspn("this is a test", "elnjpq") // prints 11 + ? GT_strcspn( "this is a test", "as " ) // prints 3 + ? GT_strcspn( "this is a test", "elnjpq" ) // prints 11 $TESTS$ $STATUS$ @@ -423,8 +423,8 @@ NOTE: invalid parameters will return "" $EXAMPLES$ - ? gt_strDiff("the cat", "the rat") // prints "rat" - ? gt_strDiff("the cat", "the ") // prints "" + ? gt_strDiff( "the cat", "the rat" ) // prints "rat" + ? gt_strDiff( "the cat", "the " ) // prints "" $TESTS$ $STATUS$ @@ -460,9 +460,9 @@ NOTE: invalid parameters will return "" $EXAMPLES$ - ? gt_strexpand("abc") // prints "a b c" - ? gt_strexpand("abc", 2) // prints "a b c" - ? gt_strexpand("abc", 2, '|') // prints "a||b||c" + ? gt_strexpand( "abc" ) // prints "a b c" + ? gt_strexpand( "abc", 2 ) // prints "a b c" + ? gt_strexpand( "abc", 2, '|' ) // prints "a||b||c" $TESTS$ $STATUS$ @@ -498,9 +498,9 @@ If no characters in the the search set are found, the function shall return 0 $EXAMPLES$ - ? GT_StrLeft("this is a test", "hsit ") // prints 8 - ? GT_StrLeft("this is a test", "hit a") // prints 3 - ? GT_StrLeft("this is a test", "zxy") // prints 0 + ? GT_StrLeft( "this is a test", "hsit " ) // prints 8 + ? GT_StrLeft( "this is a test", "hit a" ) // prints 3 + ? GT_StrLeft( "this is a test", "zxy" ) // prints 0 $TESTS$ $STATUS$ @@ -533,8 +533,8 @@ Return a string after the first occurance of any character from the input set . $EXAMPLES$ - ? GT_Strpbrk("This is a test", "sa ") // prints "s is a test" - ? GT_Strpbrk("This is a test", "et") // prints "test" + ? GT_Strpbrk( "This is a test", "sa " ) // prints "s is a test" + ? GT_Strpbrk( "This is a test", "et" ) // prints "test" $TESTS$ $STATUS$ @@ -570,9 +570,9 @@ If no characters in the the search set are found, the function shall return 0 $EXAMPLES$ - ? GT_StrRight("this is a test", "teas ") // prints 8 - ? GT_StrRight("this is a test", "tes h") // prints 5 - ? GT_StrRight("this is a test", "zxy") // prints 0 + ? GT_StrRight( "this is a test", "teas " ) // prints 8 + ? GT_StrRight( "this is a test", "tes h" ) // prints 5 + ? GT_StrRight( "this is a test", "zxy" ) // prints 0 $TESTS$ $STATUS$ @@ -609,8 +609,7 @@ may want to allow for future expansion). Each character in the string returned from GT_NewFlag() will hold 8 logical values. $EXAMPLES$ - cFlags := GT_NewFlag(20) // Create a bit flag string for 20 - // logical values. + cFlags := GT_NewFlag( 20 ) // Create a bit flag string for 20 logical values. $SEEALSO$ GT_SETFLAG() GT_CLRFLAG() GT_ISFLAG() $END$ @@ -638,20 +637,20 @@ $DESCRIPTION$ GT_SetFlag() is used to turn flags within the flag string on. $EXAMPLES$ - cFlags := GT_NewFlag(20) // Create a bit flag string for 20 - // logical values. + cFlags := GT_NewFlag( 20 ) // Create a bit flag string for 20 + // logical values. // Now set flags 10 to 15 to true. - cFlags := GT_SetFlag(cFlags,10,15) + cFlags := GT_SetFlag( cFlags, 10, 15 ) // And set flag 18 to true. - cFlags := GT_SetFlag(cFlags,18) + cFlags := GT_SetFlag( cFlags, 18 ) // And set flag 1 to true. - cFlags := GT_SetFlag(cFlags) + cFlags := GT_SetFlag( cFlags ) $SEEALSO$ GT_NEWFLAG() GT_CLRFLAG() GT_ISFLAG() $END$ @@ -679,24 +678,24 @@ $DESCRIPTION$ GT_ClrFlag() is used to turn flags within the flag string off. $EXAMPLES$ - cFlags := GT_NewFlag(20) // Create a bit flag string for 20 - // logical values. + cFlags := GT_NewFlag( 20 ) // Create a bit flag string for 20 + // logical values. // Now, turn them all on. - cFlags := GT_SetFlag(cFlags,1,20) + cFlags := GT_SetFlag( cFlags, 1, 20 ) // Now set flags 10 to 15 to false. - cFlags := GT_ClrFlag(cFlags,10,15) + cFlags := GT_ClrFlag( cFlags, 10, 15 ) // And set flag 18 to false. - cFlags := GT_ClrFlag(cFlags,18) + cFlags := GT_ClrFlag( cFlags, 18 ) // And set flag 1 to false. - cFlags := GT_ClrFlag(cFlags) + cFlags := GT_ClrFlag( cFlags ) $SEEALSO$ GT_NEWFLAG() GT_SETFLAG() GT_ISFLAG() $END$ @@ -723,9 +722,9 @@ $EXAMPLES$ // Print the setting of the flags in a flag string called ``cDave'' - for nFlag := 1 to (len(cDave)*8) - ? "Flag number ",nFlag," == ",GT_IsFlag(cDave,nFlag) - next + FOR nFlag := 1 to ( Len( cDave ) * 8 ) + ? "Flag number ", nFlag, " == ", GT_IsFlag( cDave, nFlag ) + NEXT $SEEALSO$ GT_NEWFLAG() GT_SETFLAG() GT_CLRFLAG() $END$ diff --git a/harbour/contrib/hbgt/hbgt.hbx b/harbour/contrib/hbgt/hbgt.hbx index 591e75537f..191624aa52 100644 --- a/harbour/contrib/hbgt/hbgt.hbx +++ b/harbour/contrib/hbgt/hbgt.hbx @@ -25,22 +25,22 @@ #command DYNAMIC => EXTERNAL #endif -DYNAMIC GT_ASCIISUM -DYNAMIC GT_ASCPOS -DYNAMIC GT_ATDIFF -DYNAMIC GT_CHAREVEN -DYNAMIC GT_CHARMIX -DYNAMIC GT_CHARODD -DYNAMIC GT_CHRCOUNT -DYNAMIC GT_CHRFIRST -DYNAMIC GT_CHRTOTAL -DYNAMIC GT_STRCOUNT -DYNAMIC GT_STRCSPN -DYNAMIC GT_STRDIFF -DYNAMIC GT_STREXPAND -DYNAMIC GT_STRLEFT -DYNAMIC GT_STRPBRK -DYNAMIC GT_STRRIGHT +DYNAMIC gt_AsciiSum +DYNAMIC gt_AscPos +DYNAMIC gt_AtDiff +DYNAMIC gt_CharEven +DYNAMIC gt_CharMix +DYNAMIC gt_CharOdd +DYNAMIC gt_ChrCount +DYNAMIC gt_ChrFirst +DYNAMIC gt_ChrTotal +DYNAMIC gt_StrCount +DYNAMIC gt_StrCSPN +DYNAMIC gt_StrDiff +DYNAMIC gt_StrExpand +DYNAMIC gt_StrLeft +DYNAMIC gt_StrPBRK +DYNAMIC gt_StrRight #if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBGT__REQUEST ) #uncommand DYNAMIC => EXTERNAL diff --git a/harbour/contrib/hbmisc/doc/en/ht_dbf.txt b/harbour/contrib/hbmisc/doc/en/ht_dbf.txt index b99e5a87f3..a09d7a3c65 100644 --- a/harbour/contrib/hbmisc/doc/en/ht_dbf.txt +++ b/harbour/contrib/hbmisc/doc/en/ht_dbf.txt @@ -71,7 +71,6 @@ NEXT USE RETURN - xed> $STATUS$ R $COMPLIANCE$ @@ -109,7 +108,7 @@ NEXT USE RETURN - xed> + xed > $STATUS$ R $COMPLIANCE$ diff --git a/harbour/contrib/hbmisc/doc/en/ht_doc.txt b/harbour/contrib/hbmisc/doc/en/ht_doc.txt index e37fb7ac45..00a1ea678c 100644 --- a/harbour/contrib/hbmisc/doc/en/ht_doc.txt +++ b/harbour/contrib/hbmisc/doc/en/ht_doc.txt @@ -40,7 +40,6 @@ oHtm:Close() RETURN - r> $STATUS$ R $COMPLIANCE$ diff --git a/harbour/contrib/hbnf/doc/en/aading.txt b/harbour/contrib/hbnf/doc/en/aading.txt index 3f870caf43..ec71819c09 100644 --- a/harbour/contrib/hbnf/doc/en/aading.txt +++ b/harbour/contrib/hbnf/doc/en/aading.txt @@ -36,15 +36,15 @@ aList2 := { "apple ", "banana", "PEAR" } FT_AADDITION( aList1, aList2 ) - // ignores spaces, sensitive to case - // returns { "apple", "orange", "pear", "banana", "PEAR" } + // 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" } + // 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" } + FT_AADDITION( aList1, aList2, .F. , .F. ) + // sensitive to spaces, not sensitive to case + // returns { "apple", "orange", "pear", "apple ", "banana" } $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/aemaxlen.txt b/harbour/contrib/hbnf/doc/en/aemaxlen.txt index 3b8bebc711..7645712755 100644 --- a/harbour/contrib/hbnf/doc/en/aemaxlen.txt +++ b/harbour/contrib/hbnf/doc/en/aemaxlen.txt @@ -35,13 +35,13 @@ 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 + // 2nd dimension or subarray FT_AEMAXLEN( aArray, 3, 5, 9 ) // Measure Elements 5-9 of the - 3rd dimension or subarray + // 3rd dimension or subarray FT_AEMAXLEN( aArray, 3, 5 ) // Measure Elements 5 to last in the - 3rd dimension or subarray + // 3rd dimension or subarray $SEEALSO$ FT_AEMINLEN() $END$ diff --git a/harbour/contrib/hbnf/doc/en/aredit.txt b/harbour/contrib/hbnf/doc/en/aredit.txt index 798a0823fa..12642bc738 100644 --- a/harbour/contrib/hbnf/doc/en/aredit.txt +++ b/harbour/contrib/hbnf/doc/en/aredit.txt @@ -32,44 +32,43 @@ add and delete rows with the and keys, and pass a UDF with information to edit the individual gets. $EXAMPLES$ - FT_AREDIT(3, 5, 18, 75, ar, @nElem, aHeadings, aBlocks) + 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 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 + // 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 + LOCAL i, ar[ 3, 26 ], aBlocks[ 3 ], aHeadings[ 3 ] + LOCAL nElem := 1, bGetFunc - * Set up two dimensional array "ar" + // Set up two dimensional array "ar" - FOR i := 1 TO 26 - ar[ 1, i ] := i // 1 -> 26 Numeric - ar[ 2, i ] := Chr( Asc( "A" ) + i - 1 ) // "A" -> "Z" Character - ar[ 3, i ] := Chr( Asc( "Z" ) - i + 1 ) // "Z" -> "A" Character - NEXT + FOR i := 1 TO 26 + ar[ 1, i ] := i // 1 -> 26 Numeric + ar[ 2, i ] := Chr( Asc( "A" ) + i - 1 ) // "A" -> "Z" Character + ar[ 3, i ] := Chr( Asc( "Z" ) - i + 1 ) // "Z" -> "A" Character + NEXT - * SET UP aHeadings Array for column headings + // SET UP aHeadings Array for column headings - aHeadings := { "Numbers", "Letters", "Reverse" } + aHeadings := { "Numbers", "Letters", "Reverse" } - * Need to set up individual array blocks for each TBrowse column + // 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 ] } + 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" ) - CLS - FT_AREDIT( 3, 5, 18, 75, ar, @nElem, aHeadings, aBlocks, bGetFunc ) + // 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" ) + CLS + FT_AREDIT( 3, 5, 18, 75, ar, @nElem, aHeadings, aBlocks, bGetFunc ) $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/bitclr.txt b/harbour/contrib/hbnf/doc/en/bitclr.txt index e7e9e0677d..ab2b8f9b8c 100644 --- a/harbour/contrib/hbnf/doc/en/bitclr.txt +++ b/harbour/contrib/hbnf/doc/en/bitclr.txt @@ -29,16 +29,16 @@ 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 ): + // 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" + 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": + // This code would clear bit 5 in the byte represented by letter "A": - FT_BITCLR( "A", 5 ) // result: "A", since - // bit 5 already clear + FT_BITCLR( "A", 5 ) // result: "A", since + // bit 5 already clear $SEEALSO$ FT_BITSET() FT_ISBIT() $END$ diff --git a/harbour/contrib/hbnf/doc/en/bitset.txt b/harbour/contrib/hbnf/doc/en/bitset.txt index 57fa1a2a79..13df95f79b 100644 --- a/harbour/contrib/hbnf/doc/en/bitset.txt +++ b/harbour/contrib/hbnf/doc/en/bitset.txt @@ -29,17 +29,17 @@ 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 ): + // 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: "{" + 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". + // This code would set bit 5 in the byte represented by the letter "A". - ? FT_BITSET( "A", 5 ) // result: "a" - // bit 5 set + ? FT_BITSET( "A", 5 ) // result: "a" + // bit 5 set $SEEALSO$ FT_BITCLR() FT_ISBIT() $END$ diff --git a/harbour/contrib/hbnf/doc/en/blink.txt b/harbour/contrib/hbnf/doc/en/blink.txt index b3afd65453..dfac55809f 100644 --- a/harbour/contrib/hbnf/doc/en/blink.txt +++ b/harbour/contrib/hbnf/doc/en/blink.txt @@ -25,7 +25,7 @@ $EXAMPLES$ FT_BLINK( "WAIT", 5, 10 ) // Blinks "WAIT" in current colors @ 5,10 - @ 5,10 SAY "WAIT - Printing Report" + @ 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 934bf5aa0f..1005ac1bf0 100644 --- a/harbour/contrib/hbnf/doc/en/byt2bit.txt +++ b/harbour/contrib/hbnf/doc/en/byt2bit.txt @@ -27,15 +27,15 @@ are possible with Clipper code. For greater speed, write .c or .asm versions and use the Clipper Extend system. $EXAMPLES$ - 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. + // 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( Chr( 20 ) ) // byte1: '0001 0100' + ? FT_BYT2BIT( Chr( 36 ) ) // byte2: '0010 0100' - ? FT_BYT2BIT( FT_BYTEAND( Chr( 20 ), Chr( 36 ) ) ) - // result: '0000 0100' + ? FT_BYT2BIT( FT_BYTEAND( Chr( 20 ), Chr( 36 ) ) ) + // result: '0000 0100' $SEEALSO$ FT_BYT2HEX() $END$ diff --git a/harbour/contrib/hbnf/doc/en/byt2hex.txt b/harbour/contrib/hbnf/doc/en/byt2hex.txt index f69a1427c2..b4ebaebcfd 100644 --- a/harbour/contrib/hbnf/doc/en/byt2hex.txt +++ b/harbour/contrib/hbnf/doc/en/byt2hex.txt @@ -24,15 +24,15 @@ are possible with Clipper code. For greater speed, write .c or .asm versions and use the Clipper Extend system. $EXAMPLES$ - 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. + // 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( Chr( 20 ) ) // byte1: '14h' + ? FT_BYT2HEX( Chr( 36 ) ) // byte2: '24h' - ? FT_BYT2HEX( FT_BYTEAND( Chr( 20 ), Chr( 36 ) ) ) - // result: '04h' + ? FT_BYT2HEX( FT_BYTEAND( Chr( 20 ), Chr( 36 ) ) ) + // result: '04h' $SEEALSO$ FT_BYT2BIT() $END$ diff --git a/harbour/contrib/hbnf/doc/en/byteand.txt b/harbour/contrib/hbnf/doc/en/byteand.txt index e4ec1139f8..312bb56a8b 100644 --- a/harbour/contrib/hbnf/doc/en/byteand.txt +++ b/harbour/contrib/hbnf/doc/en/byteand.txt @@ -26,13 +26,13 @@ are possible with Clipper code. For greater speed, write .c or .asm versions and use the Clipper Extend system. $EXAMPLES$ - 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. + // 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 + cNewbyte := FT_BYTEAND( Chr( 123 ), Chr( 15 ) ) + ? Asc( cNewByte ) // result: 11 + ? cNewByte // result: non-printable character $SEEALSO$ FT_BYTEOR() FT_BYTEXOR() FT_BYTENOT() FT_BYTENEG() $END$ diff --git a/harbour/contrib/hbnf/doc/en/byteneg.txt b/harbour/contrib/hbnf/doc/en/byteneg.txt index 65222b2d63..a1ee411469 100644 --- a/harbour/contrib/hbnf/doc/en/byteneg.txt +++ b/harbour/contrib/hbnf/doc/en/byteneg.txt @@ -27,10 +27,10 @@ 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 ): + // This code performs a bit-wise NEG on byte represented by Chr( 32 ): - cNewByte := FT_BYTENOT( Chr( 32 ) ) - ? Asc( cNewByte ) // result: 224 + cNewByte := FT_BYTENOT( Chr( 32 ) ) + ? Asc( cNewByte ) // result: 224 $SEEALSO$ FT_BYTEOR() FT_BYTEXOR() FT_BYTENOT() FT_BYTEAND() $END$ diff --git a/harbour/contrib/hbnf/doc/en/bytenot.txt b/harbour/contrib/hbnf/doc/en/bytenot.txt index 504206c5da..908c9f0ebb 100644 --- a/harbour/contrib/hbnf/doc/en/bytenot.txt +++ b/harbour/contrib/hbnf/doc/en/bytenot.txt @@ -27,10 +27,10 @@ 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 ): + // This code performs a bitwise NOT on byte represented by Chr( 32 ): - cNewByte := FT_BYTENOT( Chr( 32 ) ) - ? Asc( cNewByte ) // result: 223 + cNewByte := FT_BYTENOT( Chr( 32 ) ) + ? Asc( cNewByte ) // result: 223 $SEEALSO$ FT_BYTEOR() FT_BYTEXOR() FT_BYTENEG() FT_BYTEAND() $END$ diff --git a/harbour/contrib/hbnf/doc/en/byteor.txt b/harbour/contrib/hbnf/doc/en/byteor.txt index 7d15c18bd2..befd35a7f2 100644 --- a/harbour/contrib/hbnf/doc/en/byteor.txt +++ b/harbour/contrib/hbnf/doc/en/byteor.txt @@ -26,8 +26,8 @@ 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 OR on two bytes represented - by Chr( 20 ) and Chr( 10 ): + // This code performs a bit-wise OR on two bytes represented + // by Chr( 20 ) and Chr( 10 ): cNewByte := FT_BYTEOR( Chr( 20 ), Chr( 10 ) ) ? Asc( cNewByte ) // result: 30 diff --git a/harbour/contrib/hbnf/doc/en/bytexor.txt b/harbour/contrib/hbnf/doc/en/bytexor.txt index ec7c4cdc00..e91a3edba0 100644 --- a/harbour/contrib/hbnf/doc/en/bytexor.txt +++ b/harbour/contrib/hbnf/doc/en/bytexor.txt @@ -26,12 +26,12 @@ 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 ): + // 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 + cNewByte := FT_BYTEXOR( Chr( 32 ), Chr( 55 ) ) + ? Asc( cNewByte ) // result: 23 + ? cNewByte // result: non-printable character $SEEALSO$ FT_BYTEOR() FT_BYTENOT() FT_BYTENEG() FT_BYTEAND() $END$ diff --git a/harbour/contrib/hbnf/doc/en/calendar.txt b/harbour/contrib/hbnf/doc/en/calendar.txt index ba48a4641d..fa43556a19 100644 --- a/harbour/contrib/hbnf/doc/en/calendar.txt +++ b/harbour/contrib/hbnf/doc/en/calendar.txt @@ -66,7 +66,6 @@ ? aRetVal[ 6 ] // Result: Saturday ? aRetVal[ 7 ] // Result: 110 ? aRetVal[ 8 ] // Result: 12:45:20 - $SEEALSO$ FT_DAYOFYR() diff --git a/harbour/contrib/hbnf/doc/en/cint86.txt b/harbour/contrib/hbnf/doc/en/cint86.txt index 96f2595d65..814b3a0521 100644 --- a/harbour/contrib/hbnf/doc/en/cint86.txt +++ b/harbour/contrib/hbnf/doc/en/cint86.txt @@ -99,8 +99,8 @@ it might be useful. cpmiInt86() is part of the CPMI API. See the CPMI documentation for more information. $EXAMPLES$ - * This example shows how to call the DOS "create file" service. Take - * special note of how to set up string parameters. + // This example shows how to call the DOS "create file" service. Take + // special note of how to set up string parameters. #include "ftint86.ch" @@ -108,17 +108,17 @@ aRegs[ AX ] := makehi( 60 ) // DOS service, create file aRegs[ CX ] := 0 // Specify file attribute - * Pay attention here, this is crucial. Note how to set up the string - * so it appears in DS:DX. + // Pay attention here, this is crucial. Note how to set up the string + // so it appears in DS:DX. aRegs[ DS ] := "C:\misc\myfile.xxx" aRegs[ DX ] := REG_DS FT_INT86( 33, aRegs ) // Make the call to the DOS interrupt - * This example shows how to call the DOS "get current directory" - * service. This one also uses a string parameter, but note that it - * uses a different offset register. + // This example shows how to call the DOS "get current directory" + // service. This one also uses a string parameter, but note that it + // uses a different offset register. #include "ftint86.ch" @@ -126,8 +126,8 @@ aRegs[ AX ] := makehi( 71 ) aRegs[ DX ] := 0 // Choose default drive - * This service requires a 64-byte buffer whose address is in DS:SI. DOS - * will fill the buffer with the current directory. + // This service requires a 64-byte buffer whose address is in DS:SI. DOS + // will fill the buffer with the current directory. aRegs[ DS ] := Space( 64 ) aRegs[ SI ] := REG_DS @@ -137,8 +137,8 @@ - * For the sake of completeness, here's an example that doesn't use a - * string. This one changes the video mode. + // For the sake of completeness, here's an example that doesn't use a + // string. This one changes the video mode. #include "ftint86.ch" diff --git a/harbour/contrib/hbnf/doc/en/clrsel.txt b/harbour/contrib/hbnf/doc/en/clrsel.txt index d69d6b12ff..186988a047 100644 --- a/harbour/contrib/hbnf/doc/en/clrsel.txt +++ b/harbour/contrib/hbnf/doc/en/clrsel.txt @@ -79,23 +79,22 @@ LOCAL lColour := IsColor() LOCAL cChr := Chr( 254 ) + Chr( 254 ) - SET SCOREBOARD Off - SETBLINK( .F. ) // Allow bright backgrounds + SET SCOREBOARD OFF + SetBlink( .F. ) // Allow bright backgrounds - *.... a typical application might have the following different settings - * normally these would be stored in a .dbf/.dbv - aClrs := {; - { "Desktop", "N/BG", "D", "▒" }, ; - { "Title", "N/W", "T" }, ; - { "Top Menu", "N/BG,N/W,W+/BG,W+/N,GR+/N", "M" }, ; - { "Sub Menu", "W+/N*,GR+/N*,GR+/N*,W+/R,G+/R","M" }, ; - { "Standard Gets", "W/B, W+/N,,, W/N", "G" }, ; - { "Nested Gets", "N/BG, W+/N,,, W/N", "G" }, ; - { "Help", "N/G, W+/N,,, W/N", "W" }, ; - { "Error Messages", "W+/R*,N/GR*,,,N/R*", "W" }, ; - { "Database Query", "N/BG, N/GR*,,,N+/BG", "B" }, ; - { "Pick List", "N/GR*,W+/B,,, BG/GR*", "A" } ; - } + // .... a typical application might have the following different settings + // normally these would be stored in a .dbf/.dbv + aClrs := { ; + { "Desktop", "N/BG", "D", "▒" }, ; + { "Title", "N/W", "T" }, ; + { "Top Menu", "N/BG,N/W,W+/BG,W+/N,GR+/N", "M" }, ; + { "Sub Menu", "W+/N*,GR+/N*,GR+/N*,W+/R,G+/R", "M" }, ; + { "Standard Gets", "W/B, W+/N,,, W/N", "G" }, ; + { "Nested Gets", "N/BG, W+/N,,, W/N", "G" }, ; + { "Help", "N/G, W+/N,,, W/N", "W" }, ; + { "Error Messages", "W+/R*,N/GR*,,,N/R*", "W" }, ; + { "Database Query", "N/BG, N/GR*,,,N+/BG", "B" }, ; + { "Pick List", "N/GR*,W+/B,,, BG/GR*", "A" } } aClrs := FT_ClrSel( aClrs, lColour, cChr ) $END$ diff --git a/harbour/contrib/hbnf/doc/en/ctrl.txt b/harbour/contrib/hbnf/doc/en/ctrl.txt index 82a4ac95b9..85a9562323 100644 --- a/harbour/contrib/hbnf/doc/en/ctrl.txt +++ b/harbour/contrib/hbnf/doc/en/ctrl.txt @@ -20,9 +20,9 @@ the Ctrl key is pressed, such as during a MemoEdit(). $EXAMPLES$ IF FT_CTRL() - @ 24, 0 say "Ctrl" + @ 24, 0 SAY "Ctrl" ELSE - @ 24, 0 say " " + @ 24, 0 SAY " " ENDIF $SEEALSO$ FT_CAPLOCK() FT_NUMLOCK() FT_PRTSCR() FT_SHIFT() FT_ALT() diff --git a/harbour/contrib/hbnf/doc/en/d2e.txt b/harbour/contrib/hbnf/doc/en/d2e.txt index 9409a1241f..524b92314a 100644 --- a/harbour/contrib/hbnf/doc/en/d2e.txt +++ b/harbour/contrib/hbnf/doc/en/d2e.txt @@ -24,11 +24,11 @@ a string representing the equivalent in scientific notation is returned. $EXAMPLES$ - ? FT_D2E( 12.345, 2 ) -> 1.23E1 + ? FT_D2E( 12.345, 2 ) // -> 1.23E1 - ? FT_D2E( -12.345, 3 ) -> -1.235E1 + ? FT_D2E( -12.345, 3 ) // -> -1.235E1 - ? FT_D2E( 0.00000543, 2 ) -> 5.43E-6 + ? FT_D2E( 0.00000543, 2 ) // -> 5.43E-6 $SEEALSO$ FT_E2D() $END$ diff --git a/harbour/contrib/hbnf/doc/en/daytobow.txt b/harbour/contrib/hbnf/doc/en/daytobow.txt index 5de86e2abe..394b61f497 100644 --- a/harbour/contrib/hbnf/doc/en/daytobow.txt +++ b/harbour/contrib/hbnf/doc/en/daytobow.txt @@ -25,14 +25,14 @@ $EXAMPLES$ dDate := SToD( "19900915" ) - ? DOW( dDate ) // 7 - ? CDOW( dDate ) // Saturday + ? DoW( dDate ) // 7 + ? CDoW( dDate ) // Saturday ? FT_DAYTOBOW( dDate ) // 6 // change beginning of week to Friday (yeah!) FT_DATECNFG( , 6 ) - ? DOW( dDate ) // 7 - ? CDOW( dDate ) // Saturday + ? DoW( dDate ) // 7 + ? CDoW( dDate ) // Saturday ? FT_DAYTOBOW( dDate ) // 1 $SEEALSO$ FT_DATECNFG() FT_ACCTWEEK() FT_WEEK() diff --git a/harbour/contrib/hbnf/doc/en/dfile.txt b/harbour/contrib/hbnf/doc/en/dfile.txt index 1de11acb67..cb149ce700 100644 --- a/harbour/contrib/hbnf/doc/en/dfile.txt +++ b/harbour/contrib/hbnf/doc/en/dfile.txt @@ -42,8 +42,8 @@ $EXAMPLES$ @ 4, 9 TO 11, 71 - FT_DFSETUP( "test.txt", 5, 10, 10, 70, 1, 7, 15,; - "AaBb" + Chr( 143 ), .T., 5, 132, 4096 ) + FT_DFSETUP( "test.txt", 5, 10, 10, 70, 1, 7, 15, ; + "AaBb" + Chr( 143 ), .T., 5, 132, 4096 ) cKey := FT_DISPFILE() @@ -73,8 +73,8 @@ $EXAMPLES$ @ 4, 9 TO 11, 71 - FT_DFSETUP( "test.txt", 5, 10, 10, 70, 1, 7, 15,; - "AaBb" + Chr( 143 ), .T., 5, 132, 4096 ) + FT_DFSETUP( "test.txt", 5, 10, 10, 70, 1, 7, 15, ; + "AaBb" + Chr( 143 ), .T., 5, 132, 4096 ) cKey := FT_DISPFILE() diff --git a/harbour/contrib/hbnf/doc/en/dispc.txt b/harbour/contrib/hbnf/doc/en/dispc.txt index 12a9696176..17028b6435 100644 --- a/harbour/contrib/hbnf/doc/en/dispc.txt +++ b/harbour/contrib/hbnf/doc/en/dispc.txt @@ -50,8 +50,8 @@ $EXAMPLES$ @ 4, 9 TO 11, 71 - FT_DFSETUP( "test.txt", 5, 10, 10, 70, 1, 7, 15,; - "AaBb" + Chr( 143 ), .T., 5, 132, 4096 ) + FT_DFSETUP( "test.txt", 5, 10, 10, 70, 1, 7, 15, ; + "AaBb" + Chr( 143 ), .T., 5, 132, 4096 ) cKey := FT_DISPFILE() diff --git a/harbour/contrib/hbnf/doc/en/dispmsg.txt b/harbour/contrib/hbnf/doc/en/dispmsg.txt index 8c17b5658c..cdf42ed2f6 100644 --- a/harbour/contrib/hbnf/doc/en/dispmsg.txt +++ b/harbour/contrib/hbnf/doc/en/dispmsg.txt @@ -71,25 +71,25 @@ and/or column can be specified by the programmer. It also centers each line of the message within the box. $EXAMPLES$ - The following example displays a simple two-line message - and returns immediately to the calling routine. + // 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" } } ) + 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. + // 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" ) + 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. + // 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, ) + FT_DISPMSG( { { "Please Do Not Interrupt" }, ; + { "W+/B", "GR+/B" } }, ; + , 5, ) $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/e2d.txt b/harbour/contrib/hbnf/doc/en/e2d.txt index 7bb59bb10b..b74ff286c3 100644 --- a/harbour/contrib/hbnf/doc/en/e2d.txt +++ b/harbour/contrib/hbnf/doc/en/e2d.txt @@ -19,11 +19,11 @@ Given a string in the format x.yEz, the decimal equivalent is returned. $EXAMPLES$ - ? FT_E2D( "1.23E1" ) -> 12.3 + ? FT_E2D( "1.23E1" ) // -> 12.3 - ? FT_E2D( "-1.235E1" ) -> -12.35 + ? FT_E2D( "-1.235E1" ) // -> -12.35 - ? ft_d2e( "5.43E-6" ) -> 0.0000543 + ? ft_d2e( "5.43E-6" ) // -> 0.0000543 $SEEALSO$ FT_D2E() $END$ diff --git a/harbour/contrib/hbnf/doc/en/elapsed.txt b/harbour/contrib/hbnf/doc/en/elapsed.txt index 73a11cded2..dd205c04df 100644 --- a/harbour/contrib/hbnf/doc/en/elapsed.txt +++ b/harbour/contrib/hbnf/doc/en/elapsed.txt @@ -35,11 +35,11 @@ aRetVal[ 4, 1 ] Integer Seconds aRetVal[ 4, 2 ] Total Seconds (nn) $EXAMPLES$ FT_ELAPSED( SToD( "19901128" ), SToD( "19901130" ), "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 - aRetVal[ 4, 1 ] -> 30 (Seconds) aRetVal[ 4, 2 ] -> 187830 Seconds + // 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 + ? aRetVal[ 4, 1 ] // -> 30 ( Seconds ) aRetVal[ 4, 2 ] -> 187830 Seconds $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/fttext.txt b/harbour/contrib/hbnf/doc/en/fttext.txt index c226de964e..3c14857c2c 100644 --- a/harbour/contrib/hbnf/doc/en/fttext.txt +++ b/harbour/contrib/hbnf/doc/en/fttext.txt @@ -108,7 +108,6 @@ nFile2 := FT_FUSE( "temp.h" ) ? FT_FLASTRE() // no. of lines in temp.h - $SEEALSO$ FT_FUSE() $END$ @@ -150,7 +149,6 @@ FT_FGOTOP() // go back to top ? FT_FRECNO() // 1 - $SEEALSO$ FT_FSELECT() FT_FUSE() FT_FRECNO() FT_FGOBOT() $END$ @@ -183,10 +181,9 @@ $EXAMPLES$ IF ft_fUse( "text.c" ) < 0 // open text file err := ft_fError() - ? 'Error opening file "rext.c", error code (' + ; - hb_ntos( err ) + ')' + ? "Error opening file 'text.c', error code (" + ; + hb_ntos( err ) + ")" ENDIF - $SEEALSO$ $END$ @@ -228,7 +225,6 @@ FT_FGOTOP() // go back to top ? FT_FRECNO() // 1 - $SEEALSO$ FT_FSELECT() FT_FUSE() FT_FGOTOP() FT_FGOBOT() $END$ @@ -265,7 +261,6 @@ FT_FGOBOT() ? FT_FREADLN() - $SEEALSO$ FT_FSELECT() FT_FUSE() FT_FGOTOP() FT_FRECNO() FT_FREADLN() $END$ @@ -314,8 +309,6 @@ FT_FSKIP() ENDDO - - $SEEALSO$ FT_FRECNO() FT_FGOTOP() $END$ @@ -364,7 +357,6 @@ FT_FSKIP() ENDDO - $SEEALSO$ FT_FUSE() FT_FWRITELN() FT_FRECNO() FT_FGOTOP() $END$ @@ -402,7 +394,6 @@ FT_FUSE( "test.txt" ) FT_FDELETE( 4 ) - $SEEALSO$ FT_FAPPEND() FT_FRECNO() FT_FINSERT() $END$ @@ -445,7 +436,6 @@ ft_fGoTo( 10 ) ft_fInsert( 5 ) - $SEEALSO$ FT_FAPPEND() FT_FRECNO() FT_FDELETE() FT_FLASTRE() $END$ @@ -498,7 +488,6 @@ FT_FAPPEND() ? FT_FRECNO() // displays 6 - $SEEALSO$ FT_FRECNO() FT_FDELETE() FT_FINSERT() FT_FLASTRE() $END$ @@ -548,14 +537,13 @@ FT_FUSE( "config.sys" ) - DO WHILE UPPER( FT_FREADLN() ) != "FILES=" .AND. !F_FEOF() + 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$ @@ -588,7 +576,6 @@ FT_FUSE( "text.c" ) ? FT_FLASTRE() - $SEEALSO$ FT_FUSE() FT_FRECNO() $END$ @@ -624,7 +611,6 @@ FT_FSKIP() ? FT_FEOF() // .T. - $SEEALSO$ FT_FUSE() FT_FSKIP() $END$ @@ -662,7 +648,6 @@ FT_FSKIP( -1 ) ? FT_FBOF() // .T. - $SEEALSO$ FT_FSKIP() FT_EOF() FT_GOTOP() $END$ @@ -707,10 +692,9 @@ ft_fUse( "fttext.c" ) - ft_fGoTo(5) + ft_fGoTo( 5 ) cText := ft_fReadLN() - $SEEALSO$ FT_FRECNO() FT_FGOTOP() FT_FREADLN() $END$ diff --git a/harbour/contrib/hbnf/doc/en/getenvrn.txt b/harbour/contrib/hbnf/doc/en/getenvrn.txt index d2475f0ab7..a309adc49d 100644 --- a/harbour/contrib/hbnf/doc/en/getenvrn.txt +++ b/harbour/contrib/hbnf/doc/en/getenvrn.txt @@ -41,26 +41,26 @@ program error occurs. If the value of ONE SPECIFIC variable is desired, use Clipper's built-in GETE() function. $EXAMPLES$ - Get the environment in text form and browse it: + // 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. ) + 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: + // Get the environment in text form and write it to a file: - cEnvBlock := "" - FT_GETE( @cEnvBlock ) - MEMOWRIT( "environ.txt", cEnvBlock ) + cEnvBlock := "" + FT_GETE( @cEnvBlock ) + MemoWrit( "environ.txt", cEnvBlock ) - Get the environment in Array form: + // Get the environment in Array form: - aEnvArray := Array( FT_GETE() ) - FT_GETE( aEnvArray ) - ? aEnvArray[ 1 ] // "COMSPEC=C:\command.com" - ? aEnvArray[ 2 ] // "PATH=C:\;C:\util;C:\harbour" - ... etc ... + aEnvArray := Array( FT_GETE() ) + FT_GETE( aEnvArray ) + ? aEnvArray[ 1 ] // "COMSPEC=C:\command.com" + ? 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 a81fd4cd58..4c6cbd895c 100644 --- a/harbour/contrib/hbnf/doc/en/hex2dec.txt +++ b/harbour/contrib/hbnf/doc/en/hex2dec.txt @@ -21,7 +21,7 @@ $EXAMPLES$ FT_INT86( HEX2DEC( "21" ), aRegs ) - Converts 21h, the Dos Interrupt, to its decimal equivalent, - 33, for use by FT_INT86(). + // 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 f1c7a56a2d..a3b4f0f0ea 100644 --- a/harbour/contrib/hbnf/doc/en/iamidle.txt +++ b/harbour/contrib/hbnf/doc/en/iamidle.txt @@ -29,12 +29,11 @@ FT_IAmIdle() // Wait for ESC and announce idleness ENDDO - * Here's another way to do it: + // Here's another way to do it: FT_OnIdle( {|| FT_IAmIdle() } ) - Inkey( 0 ) // Automatically reports idleness until key - // is pressed! + Inkey( 0 ) // Automatically reports idleness until key is pressed! $SEEALSO$ FT_OnIdle() $END$ diff --git a/harbour/contrib/hbnf/doc/en/idle.txt b/harbour/contrib/hbnf/doc/en/idle.txt index 8d19e0d860..470777b079 100644 --- a/harbour/contrib/hbnf/doc/en/idle.txt +++ b/harbour/contrib/hbnf/doc/en/idle.txt @@ -32,9 +32,9 @@ $EXAMPLES$ DO WHILE Whatever // Some batch process - Something() // Create 'n' discard a bunch of stuff + Something() // Create 'n' discard a bunch of stuff - FT_Idle() // Take out the garbage + FT_Idle() // Take out the garbage ENDDO $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/isbit.txt b/harbour/contrib/hbnf/doc/en/isbit.txt index 91d4a4edfb..bad59c4ec4 100644 --- a/harbour/contrib/hbnf/doc/en/isbit.txt +++ b/harbour/contrib/hbnf/doc/en/isbit.txt @@ -29,16 +29,16 @@ 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 ): + // This code tests whether bit 3 is set in the byte represented by + // Chr( 107 ): - lBitflag := FT_ISBIT( Chr( 107 ), 3 ) - ? lBitflag // result: .T. + 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") + // This code tests whether bit 5 is set in the byte represented by ASCII + // 65 (letter "A") - ? FT_ISBIT( "A", 5 ) // result: .F. + ? FT_ISBIT( "A", 5 ) // result: .F. $SEEALSO$ FT_BITSET() FT_BITCLR() $END$ diff --git a/harbour/contrib/hbnf/doc/en/menu1.txt b/harbour/contrib/hbnf/doc/en/menu1.txt index 86dc951025..4998b9020b 100644 --- a/harbour/contrib/hbnf/doc/en/menu1.txt +++ b/harbour/contrib/hbnf/doc/en/menu1.txt @@ -66,8 +66,9 @@ // fill color array // Box Border, Menu Options, Menu Bar, Current Selection, Unselected - aColors := iif( lColor, { "W+/G", "N/G", "N/G", "N/W", "N+/G" }, ; - { "W+/N", "W+/N", "W/N", "N/W","W/N" } ) + aColors := iif( lColor, ; + { "W+/G", "N/G", "N/G", "N/W", "N+/G" }, ; + { "W+/N", "W+/N", "W/N", "N/W", "W/N" } ) // array for first pulldown menu FT_FILL( aOptions[ 1 ], "A. Execute A Dummy Procedure" , {|| fubar() }, .T. ) @@ -83,32 +84,32 @@ FT_FILL( aOptions[ 3 ], "B. Display Invoice Totals" , {|| .T. }, .T. ) FT_FILL( aOptions[ 3 ], "C. Exit To DOS" , {|| .F. }, .T. ) - Call FT_FILL() once for each item on each pulldown menu, passing it - three parameters: + // Call FT_FILL() once for each item on each pulldown menu, passing it + // three parameters: - FT_FILL( , , + FT_FILL( , , - is a character string which will be displayed on - the pulldown menu. + // is a character string which will be displayed on + // the pulldown menu. - should contain one of the following: + // should contain one of the following: - A function name to execute, which in turn should return .T. or .F. - FT_MENU1 WILL RETURN CONTROL TO THE CALLING PROGRAM IF .F. IS - RETURNED OR CONTINUE IF .T. IS RETURNED. + // A function name to execute, which in turn should return .T. or .F. + // FT_MENU1 WILL RETURN CONTROL TO THE CALLING PROGRAM IF .F. IS + // RETURNED OR CONTINUE IF .T. IS RETURNED. - .F. WHICH WILL CAUSE FT_MENU1 TO RETURN CONTROL TO THE CALLING - PROGRAM. + // .F. WHICH WILL CAUSE FT_MENU1 TO RETURN CONTROL TO THE CALLING + // PROGRAM. - .T. WHICH WILL DO NOTHING. THIS ALLOWS THE DEVELOPER TO DESIGN A - SKELETON MENU STRUCTURE PRIOR TO COMPLETING ALL OF THE SUBROUTINES. + // .T. WHICH WILL DO NOTHING. THIS ALLOWS THE DEVELOPER TO DESIGN A + // SKELETON MENU STRUCTURE PRIOR TO COMPLETING ALL OF THE SUBROUTINES. // CALL FT_MENU1 FT_MENU1( aBar, aOptions, aColors, 0 ) - NOTE: FT_MENU1() disables Alt-C and Alt-D in order to make them - available for the menu bar. It enables Alt-D and resets - Alt-C to its previous state prior to calling each function. + // NOTE: FT_MENU1() disables Alt-C and Alt-D in order to make them + // available for the menu bar. It enables Alt-D and resets + // Alt-C to its previous state prior to calling each function. $SEEALSO$ FT_FILL() $END$ diff --git a/harbour/contrib/hbnf/doc/en/menutonf.txt b/harbour/contrib/hbnf/doc/en/menutonf.txt index b1499e91e7..2ed0d00e16 100644 --- a/harbour/contrib/hbnf/doc/en/menutonf.txt +++ b/harbour/contrib/hbnf/doc/en/menutonf.txt @@ -133,7 +133,7 @@ // Prompt with pinpoint message control @ 7, 1 PROMPT "Menu choice #4" MESSAGE "Drop Dead" ; - MSGROW 22 MSGCOL 4 MSGCOLOR "GR+/N" + MSGROW 22 MSGCOL 4 MSGCOLOR "GR+/N" // Prompt with a trigger character ("#" character) @ 11, 1 PROMPT "Menu choice #6" TRIGGER 13 @@ -186,8 +186,7 @@ // Simple command - MENU TO memvar - + MENU TO MEMVAR $INCLUDE$ ftmenuto.ch $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/miltime.txt b/harbour/contrib/hbnf/doc/en/miltime.txt index a3c81f1071..a91ee39e9d 100644 --- a/harbour/contrib/hbnf/doc/en/miltime.txt +++ b/harbour/contrib/hbnf/doc/en/miltime.txt @@ -104,8 +104,8 @@ FT_CIV2MIL( "12:00 m" ) // 0000 - Caution: leading blanks are irrelevant; p,a,n,m must be preceded by - one and only one space. + // Caution: leading blanks are irrelevant; p,a,n,m must be preceded by + // one and only one space. $SEEALSO$ FT_MIL2CIV() FT_SYS2MIL() FT_MIL2MIN() FT_MIN2MIL() $END$ diff --git a/harbour/contrib/hbnf/doc/en/mouse1.txt b/harbour/contrib/hbnf/doc/en/mouse1.txt index 75ac13fbd9..765a3f0551 100644 --- a/harbour/contrib/hbnf/doc/en/mouse1.txt +++ b/harbour/contrib/hbnf/doc/en/mouse1.txt @@ -102,12 +102,12 @@ This is a mouse meta function that checks for the presence of a double click. $EXAMPLES$ - IF FT_MISREGION( 10, 10, 11, 20 ) .AND.; + IF FT_MISREGION( 10, 10, 11, 20 ) .AND. ; FT_MDBLCLK( 0, 1,, FT_MGETX(), FT_MGETY() ) // double click, right button // at current location with // default interval - MnuItem1() + MnuItem1() ENDIF $SEEALSO$ FT_MBUTPRS() FT_MBUTREL() diff --git a/harbour/contrib/hbnf/doc/en/ntow.txt b/harbour/contrib/hbnf/doc/en/ntow.txt index 997ec1821e..705e8bb31b 100644 --- a/harbour/contrib/hbnf/doc/en/ntow.txt +++ b/harbour/contrib/hbnf/doc/en/ntow.txt @@ -29,21 +29,21 @@ 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( 999 ) // -> Nine Hundred Ninety Nine - ? FT_NTOW( 1000 ) -> One Thousand + ? FT_NTOW( 1000 ) // -> One Thousand ? FT_NTOW( 23 ) + " Dollars and " + FT_NTOW( 99 ) + " Cents" - -> Twenty Three Dollars and Ninety Nine Cents + // -> Twenty Three Dollars and Ninety Nine Cents ? FT_NTOW( 23 ) + " Dollars and " + "99/100" - -> Twenty Three 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 ) string := iif( x < 0, "Credit of ", "Debit of " ) ? string + FT_NTOW( Abs( x ) ) + " Dollars and " + "99/100" - -> Credit of Twenty Three Dollars and 99/100 + // -> Credit of Twenty Three Dollars and 99/100 $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/numlock.txt b/harbour/contrib/hbnf/doc/en/numlock.txt index f120c297d4..59a5df1b2b 100644 --- a/harbour/contrib/hbnf/doc/en/numlock.txt +++ b/harbour/contrib/hbnf/doc/en/numlock.txt @@ -27,7 +27,7 @@ ? "NumLock is active" ENDIF - Another one, slightly strange, courtesy of Glenn Scott: + // Another one, slightly strange, courtesy of Glenn Scott: #include "inkey.ch" diff --git a/harbour/contrib/hbnf/doc/en/nwsem.txt b/harbour/contrib/hbnf/doc/en/nwsem.txt index 5e1d501ee5..d2e9ab7278 100644 --- a/harbour/contrib/hbnf/doc/en/nwsem.txt +++ b/harbour/contrib/hbnf/doc/en/nwsem.txt @@ -302,7 +302,6 @@ ENDIF // Processing, then: FT_NWSEMUNLOCK( nHandle ) - $SEEALSO$ FT_NWSEMOPEN() FT_NWSEMEX() FT_NWSEMWAIT() FT_NWSEMSIG() FT_NWSEMUNLOCK() $END$ @@ -342,7 +341,6 @@ 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/ontick.txt b/harbour/contrib/hbnf/doc/en/ontick.txt index 0fcda96d15..652e62d7cd 100644 --- a/harbour/contrib/hbnf/doc/en/ontick.txt +++ b/harbour/contrib/hbnf/doc/en/ontick.txt @@ -42,7 +42,6 @@ SetPos( nRow, nCol ) RETURN - $SEEALSO$ $END$ diff --git a/harbour/contrib/hbnf/doc/en/pchr.txt b/harbour/contrib/hbnf/doc/en/pchr.txt index 6ea135a748..5388e468c0 100644 --- a/harbour/contrib/hbnf/doc/en/pchr.txt +++ b/harbour/contrib/hbnf/doc/en/pchr.txt @@ -76,16 +76,16 @@ $EXAMPLES$ cSetUp := "27,116,1" SET PRINT ON - ? FT_PChr( cSetUp ) -> (Chr(27)+Chr(116)+Chr(1)) + ? FT_PChr( cSetUp ) // -> (Chr(27)+Chr(116)+Chr(1))