diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 99edb27de9..9df0774c00 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2012-10-17 15:39 UTC+0200 Viktor Szakats (harbour syenar.net) + * contrib/hbct/doc/en/*.txt + * contrib/hbnf/doc/en/*.txt + * cleanups and fixes + 2012-10-17 14:41 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbnf/caplock.c * contrib/hbnf/kspeed.c diff --git a/harbour/contrib/hbct/doc/en/charlihb.txt b/harbour/contrib/hbct/doc/en/charlihb.txt index 4a02616c96..fcb742f0e4 100644 --- a/harbour/contrib/hbct/doc/en/charlihb.txt +++ b/harbour/contrib/hbct/doc/en/charlihb.txt @@ -26,7 +26,7 @@ * ? charslist( "Hello World !" ) // --> " !HWdelor" * $TESTS$ * charslist( "Hello World !" ) == " !HWdelor" - * charslist( "Hello World !" ) == charsort (charlist ("Hello World !")) + * charslist( "Hello World !" ) == charsort( charlist( "Hello World !" ) ) * charslist( NIL ) == "" * $STATUS$ * Ready diff --git a/harbour/contrib/hbct/doc/en/charop.txt b/harbour/contrib/hbct/doc/en/charop.txt index fdb8d663c3..e289e1702b 100644 --- a/harbour/contrib/hbct/doc/en/charop.txt +++ b/harbour/contrib/hbct/doc/en/charop.txt @@ -28,14 +28,14 @@ * has been processed, the function restarts with the first * character of . * $EXAMPLES$ - * ? charadd( "012345678", chr( 1 ) ) // --> "123456789" - * ? charadd( "123456789", chr( 255 ) ) // --> "012345678" - * ? charadd( "0000", chr( 0 ) + chr( 1 ) + chr( 2 ) + chr( 3 ) ) // --> "0123" + * ? charadd( "012345678", Chr( 1 ) ) // --> "123456789" + * ? charadd( "123456789", Chr( 255 ) ) // --> "012345678" + * ? charadd( "0000", Chr( 0 ) + Chr( 1 ) + Chr( 2 ) + Chr( 3 ) ) // --> "0123" * $TESTS$ - * charadd( "012345678", chr( 1 ) ) == "123456789" - * charadd( "012345678", chr( 1 ) + chr( 2 ) ) == "133557799" - * charadd( "123456789", chr( 255 ) ) == "012345678" - * charadd( "123456789", chr( 255 ) + chr( 254 ) ) == "002244668" + * charadd( "012345678", Chr( 1 ) ) == "123456789" + * charadd( "012345678", Chr( 1 ) + Chr( 2 ) ) == "133557799" + * charadd( "123456789", Chr( 255 ) ) == "012345678" + * charadd( "123456789", Chr( 255 ) + Chr( 254 ) ) == "002244668" * $STATUS$ * Ready * $COMPLIANCE$ @@ -80,11 +80,11 @@ * character of . * $EXAMPLES$ * // clear the LSB - * ? charand( "012345678", chr( 254 ) ) // --> "002244668" - * ? charand( "012345678", chr( 254 ) + chr( 252 ) ) // --> "002044648" + * ? charand( "012345678", Chr( 254 ) ) // --> "002244668" + * ? charand( "012345678", Chr( 254 ) + Chr( 252 ) ) // --> "002044648" * $TESTS$ - * charand( "012345678", chr( 254 ) ) == "002244668" - * charand( "012345678", chr( 254 ) + chr( 252 ) ) == "002044648" + * charand( "012345678", Chr( 254 ) ) == "002244668" + * charand( "012345678", Chr( 254 ) + Chr( 252 ) ) == "002044648" * $STATUS$ * Ready * $COMPLIANCE$ @@ -125,10 +125,10 @@ * stored in , too. By setting the CSETREF()-switch to .T., * 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( 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!" * $TESTS$ - * charnot( chr( 85 ) + chr( 128 ) + chr( 170 ) + chr( 1 ) ) == chr( 170 ) + chr( 127 ) + chr( 85 ) + chr( 254 ) + * 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!" * $STATUS$ * Ready @@ -174,11 +174,11 @@ * character of . * $EXAMPLES$ * // set the LSB - * ? charor( "012345678", chr( 1 ) ) // --> "113355779" - * ? charor( "012345678", chr( 1 ) + chr( 3 ) ) // --> "133357779" + * ? charor( "012345678", Chr( 1 ) ) // --> "113355779" + * ? charor( "012345678", Chr( 1 ) + Chr( 3 ) ) // --> "133357779" * $TESTS$ - * charor( "012345678", chr( 1 ) ) == "113355779" - * charor( "012345678", chr( 1 ) + chr( 3 ) ) == "133357779" + * charor( "012345678", Chr( 1 ) ) == "113355779" + * charor( "012345678", Chr( 1 ) + Chr( 3 ) ) == "133357779" * $STATUS$ * Ready * $COMPLIANCE$ diff --git a/harbour/contrib/hbct/doc/en/ct.txt b/harbour/contrib/hbct/doc/en/ct.txt index 01ce6c52f7..dc84a51164 100644 --- a/harbour/contrib/hbct/doc/en/ct.txt +++ b/harbour/contrib/hbct/doc/en/ct.txt @@ -32,7 +32,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is ct.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ @@ -68,7 +68,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is ct.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ diff --git a/harbour/contrib/hbct/doc/en/datetime.txt b/harbour/contrib/hbct/doc/en/datetime.txt index f06f17a2dd..e5a4b2910b 100644 --- a/harbour/contrib/hbct/doc/en/datetime.txt +++ b/harbour/contrib/hbct/doc/en/datetime.txt @@ -28,7 +28,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is datetime.prg, library is libct. + * Library is libct. * $SEEALSO$ * EOM(),BOQ(),EOQ(),BOY(),EOY() * $END$ @@ -60,7 +60,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is datetime.prg, library is libct. + * Library is libct. * $SEEALSO$ * BOM(),BOQ(),EOQ(),BOY(),EOY() * $END$ @@ -92,7 +92,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is datetime.prg, library is libct. + * Library is libct. * $SEEALSO$ * BOM(),EOM(),EOQ(),BOY(),EOY() * $END$ @@ -124,7 +124,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is datetime.prg, library is libct. + * Library is libct. * $SEEALSO$ * BOM(),EOM(),BOQ(),BOY(),EOY() * $END$ @@ -156,7 +156,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is datetime.prg, library is libct. + * Library is libct. * $SEEALSO$ * BOM(),EOM(),BOQ(),EOQ(),EOY() * $END$ @@ -188,7 +188,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is datetime.prg, library is libct. + * Library is libct. * $SEEALSO$ * BOM(),EOM(),BOQ(),EOQ(),BOY() * $END$ diff --git a/harbour/contrib/hbct/doc/en/dattime2.txt b/harbour/contrib/hbct/doc/en/dattime2.txt index 026e1b2969..7bebd0196e 100644 --- a/harbour/contrib/hbct/doc/en/dattime2.txt +++ b/harbour/contrib/hbct/doc/en/dattime2.txt @@ -28,7 +28,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * NTOCDOW() * $END$ @@ -60,7 +60,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * NTOCMONTH() * $END$ @@ -94,7 +94,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * MDY() * $END$ @@ -128,7 +128,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * DMY() * $END$ @@ -160,7 +160,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ @@ -194,7 +194,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ @@ -226,7 +226,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ @@ -260,7 +260,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * DAYSINMONTH() * $END$ @@ -292,7 +292,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * DAYSTOMONTH() * $END$ @@ -326,7 +326,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ @@ -361,7 +361,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * EOM() * $END$ @@ -393,7 +393,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * CTODOW() * $END$ @@ -425,7 +425,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * CTOMONTH() * $END$ @@ -467,7 +467,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime2.prg, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ diff --git a/harbour/contrib/hbct/doc/en/dattime3.txt b/harbour/contrib/hbct/doc/en/dattime3.txt index b9d726a64c..f2f208a348 100644 --- a/harbour/contrib/hbct/doc/en/dattime3.txt +++ b/harbour/contrib/hbct/doc/en/dattime3.txt @@ -48,7 +48,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime3.c, library is libct. + * Library is libct. * $SEEALSO$ * * $END$ @@ -110,7 +110,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is dattime3.c, library is libct. + * Library is libct. * $SEEALSO$ * SETTIME() * $END$ @@ -162,7 +162,7 @@ * $PLATFORMS$ * Windows, Linux * $FILES$ - * Source is dattime3.c, library is libct. + * Library is libct. * $SEEALSO$ * SETDATE(),TIMEVALID() * $END$ @@ -213,7 +213,7 @@ * $PLATFORMS$ * Windows, Linux * $FILES$ - * Source is dattime3.c, library is libct. + * Library is libct. * $SEEALSO$ * SETTIME() * $END$ diff --git a/harbour/contrib/hbct/doc/en/numconv.txt b/harbour/contrib/hbct/doc/en/numconv.txt index da97bb6c86..1dce433472 100644 --- a/harbour/contrib/hbct/doc/en/numconv.txt +++ b/harbour/contrib/hbct/doc/en/numconv.txt @@ -28,7 +28,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is numconv.prg, library is libct. + * Library is libct. * $SEEALSO$ * CTON() * $END$ @@ -60,7 +60,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is numconv.prg, library is libct. + * Library is libct. * $SEEALSO$ * NTOC() * $END$ @@ -92,7 +92,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is numconv.prg, library is libct. + * Library is libct. * $SEEALSO$ * CTOBIT() * $END$ @@ -124,7 +124,7 @@ * $PLATFORMS$ * All * $FILES$ - * Source is numconv.prg, library is libct. + * Library is libct. * $SEEALSO$ * BITTOC() * $END$ diff --git a/harbour/contrib/hbct/doc/en/range.txt b/harbour/contrib/hbct/doc/en/range.txt index 6e8b663a34..cf1fbb5b5e 100644 --- a/harbour/contrib/hbct/doc/en/range.txt +++ b/harbour/contrib/hbct/doc/en/range.txt @@ -19,8 +19,8 @@ * TODO: add documentation * $EXAMPLES$ * ? rangerem( "0", "9", "year2002.dbf" ) // "year.dbf", remove all digits - * ? rangerem( "9", "0", "year2002.dbf" ) // "22", testing removal from "9" to chr(255) - * // and from chr(0) to "0" + * ? rangerem( "9", "0", "year2002.dbf" ) // "22", testing removal from "9" to Chr(255) + * // and from Chr(0) to "0" * ? rangerem( "0", "9", "yearcurr.dbf" ) // "yearcurr.dbf", test leaving string untouched * $TESTS$ * rangerem( "0", "9", "year2002.dbf" ) == "year.dbf" @@ -57,8 +57,8 @@ * TODO: add documentation * $EXAMPLES$ * ? rangerepl( "0", "9", "year2002.dbf", "?" ) // "year????.dbf", replace all digits - * ? rangerepl( "9", "0", "year2002.dbf", "?" ) // "????2??2????", testing replacement from "9" to chr(255) - * // and from chr(0) to "0" + * ? rangerepl( "9", "0", "year2002.dbf", "?" ) // "????2??2????", testing replacement from "9" to Chr(255) + * // and from Chr(0) to "0" * ? rangerepl( "0", "9", "yearcurr.dbf", "?" ) // "yearcurr.dbf", test leaving string untouched * $TESTS$ * rangerepl( "0", "9", "year2002.dbf", "?" ) == "year????.dbf" diff --git a/harbour/contrib/hbct/doc/en/tab.txt b/harbour/contrib/hbct/doc/en/tab.txt index c87a41062a..1425dda757 100644 --- a/harbour/contrib/hbct/doc/en/tab.txt +++ b/harbour/contrib/hbct/doc/en/tab.txt @@ -21,10 +21,10 @@ * default is the string returned by * hb_eol() * character indicating a tab stop, - * default is chr(9) + * default is Chr(9) * .T., if the soft-CR used by MEMOEDIT() * should be ignored as a newline indicator, - * default is .F. (functions uses chr(141)) + * default is .F. (functions uses Chr(141)) * $RETURNS$ * * $DESCRIPTION$ @@ -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$ @@ -73,10 +73,10 @@ * default is the string returned by * hb_eol() * character indicating a tab stop, - * default is chr(9) + * default is Chr(9) * .T., if the soft-CR used by MEMOEDIT() * should be ignored as a newline indicator, - * default is .F. (functions uses chr(141)) + * default is .F. (functions uses Chr(141)) * $RETURNS$ * * $DESCRIPTION$ diff --git a/harbour/contrib/hbct/doc/en/token2.txt b/harbour/contrib/hbct/doc/en/token2.txt index 10f8d1a0dc..1a08ec9125 100644 --- a/harbour/contrib/hbct/doc/en/token2.txt +++ b/harbour/contrib/hbct/doc/en/token2.txt @@ -16,8 +16,8 @@ * <[@]cString> is the processed string * is a list of characters separating the tokens * in - * Default: chr(0)+chr(9)+chr(10)+chr(13)+chr(26)+ - * chr(32)+chr(32)+chr(138)+chr(141)+ + * Default: Chr(0)+Chr(9)+Chr(10)+Chr(13)+Chr(26)+ + * Chr(32)+Chr(32)+Chr(138)+Chr(141)+ * ",.;:!\?/\\<>()#&%+-*" * specifies the maximum number of successive * tokenizing characters that are combined as diff --git a/harbour/contrib/hbnf/doc/en/aading.txt b/harbour/contrib/hbnf/doc/en/aading.txt index 5155b7a76c..7f88e6a2eb 100644 --- a/harbour/contrib/hbnf/doc/en/aading.txt +++ b/harbour/contrib/hbnf/doc/en/aading.txt @@ -32,19 +32,19 @@ * It returns a new array including all the elements of aList1 * plus the unique elements of aList2. * $EXAMPLES$ - * aList1 := {"apple", "orange", "pear"} - * aList2 := {"apple ", "banana", "PEAR"} + * aList1 := { "apple", "orange", "pear" } + * aList2 := { "apple ", "banana", "PEAR" } * * FT_AADDITION( aList1, aList2 ) * // ignores spaces, sensitive to case - * // returns {"apple","orange","pear","banana","PEAR"} + * // returns { "apple", "orange", "pear", "banana", "PEAR" } * * FT_AADDITION( aList1, aList2, , .F. ) * // ignores spaces, not sensitive to case - * // returns {"apple","orange","pear","banana"} + * // returns { "apple", "orange", "pear", "banana" } * * FT_AADDITION( aList1, aList2, .F., .F. ) * // sensitive to spaces, not sensitive to case - * // returns {"apple","orange","pear","apple ","banana"} + * // returns { "apple", "orange", "pear", "apple ", "banana" } * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/aavg.txt b/harbour/contrib/hbnf/doc/en/aavg.txt index cb23644d75..7353c893d9 100644 --- a/harbour/contrib/hbnf/doc/en/aavg.txt +++ b/harbour/contrib/hbnf/doc/en/aavg.txt @@ -27,12 +27,12 @@ * * This routine requires FT_ASUM(). * $EXAMPLES$ - * FT_AAVG(aSubTotals) // Get Average of Entire Array + * FT_AAVG( aSubTotals ) // Get Average of Entire Array * - * FT_AAVG(aSubTotals, 5) // Get Average of 5th Element On + * FT_AAVG( aSubTotals, 5 ) // Get Average of 5th Element On * - * FT_AAVG(aSubTotals, , 10) // Get Average of 1st 10 Elements + * FT_AAVG( aSubTotals, , 10 ) // Get Average of 1st 10 Elements * - * FT_AAVG(aSubTotals, 5, 10) // Get Average of Elements 5-10 + * FT_AAVG( aSubTotals, 5, 10 ) // Get Average of Elements 5-10 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/acctmnth.txt b/harbour/contrib/hbnf/doc/en/acctmnth.txt index b5b9da7eb6..d9c2813e48 100644 --- a/harbour/contrib/hbnf/doc/en/acctmnth.txt +++ b/harbour/contrib/hbnf/doc/en/acctmnth.txt @@ -20,9 +20,9 @@ * $RETURNS$ * A three element array containing the following data: * - * aDateInfo[1] - The year and month as a character string "YYYYMM" - * aDateInfo[2] - The beginning date of the accounting month - * aDateInfo[3] - The ending date of the accounting month + * aDateInfo[ 1 ] - The year and month as a character string "YYYYMM" + * aDateInfo[ 2 ] - The beginning date of the accounting month + * aDateInfo[ 3 ] - The ending date of the accounting month * $DESCRIPTION$ * FT_ACCTMONTH() creates an array containing data about the * accounting month containing the given date. @@ -41,16 +41,16 @@ * weeks. * $EXAMPLES$ * // get info about accounting month containing 9/15/90 - * aDateInfo := FT_ACCTMONTH( SToD("19900915") ) - * ? aDateInfo[1] // 199009 (9th month) - * ? aDateInfo[2] // 09/02/90 beginning of month 9 - * ? aDateInfo[3] // 09/29/90 end of month 9 + * aDateInfo := FT_ACCTMONTH( SToD( "19900915" ) ) + * ? aDateInfo[ 1 ] // 199009 (9th month) + * ? aDateInfo[ 2 ] // 09/02/90 beginning of month 9 + * ? aDateInfo[ 3 ] // 09/29/90 end of month 9 * * // get info about accounting month 5 in year containing 9/15/90 - * aDateInfo := FT_ACCTMONTH( SToD("19900915"), 5 ) - * ? aDateInfo[1] // 199005 - * ? aDateInfo[2] // 04/29/89 beginning of month 5 - * ? aDateInfo[3] // 06/02/90 end of month 5 + * aDateInfo := FT_ACCTMONTH( SToD( "19900915" ), 5 ) + * ? aDateInfo[ 1 ] // 199005 + * ? aDateInfo[ 2 ] // 04/29/89 beginning of month 5 + * ? aDateInfo[ 3 ] // 06/02/90 end of month 5 * $SEEALSO$ * FT_DATECNFG() FT_ACCTWEEK() FT_ACCTQTR() FT_ACCTYEAR() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/acctqtr.txt b/harbour/contrib/hbnf/doc/en/acctqtr.txt index ba8650625a..cb826a8ab2 100644 --- a/harbour/contrib/hbnf/doc/en/acctqtr.txt +++ b/harbour/contrib/hbnf/doc/en/acctqtr.txt @@ -20,9 +20,9 @@ * $RETURNS$ * A three element array containing the following data: * - * aDateInfo[1] - The year and qtr. as a character string "YYYYQQ" - * aDateInfo[2] - The beginning date of the accounting quarter - * aDateInfo[3] - The ending date of the accounting quarter + * aDateInfo[ 1 ] - The year and qtr. as a character string "YYYYQQ" + * aDateInfo[ 2 ] - The beginning date of the accounting quarter + * aDateInfo[ 3 ] - The ending date of the accounting quarter * $DESCRIPTION$ * FT_ACCTQTR() creates an array containing data about the * accounting quarter containing the given date. diff --git a/harbour/contrib/hbnf/doc/en/acctweek.txt b/harbour/contrib/hbnf/doc/en/acctweek.txt index 3f832f2420..912f93cbf6 100644 --- a/harbour/contrib/hbnf/doc/en/acctweek.txt +++ b/harbour/contrib/hbnf/doc/en/acctweek.txt @@ -20,9 +20,9 @@ * $RETURNS$ * A three element array containing the following data: * - * aDateInfo[1] - The year and week as a character string "YYYYWW" - * aDateInfo[2] - The beginning date of the accounting week - * aDateInfo[3] - The ending date of the accounting week + * aDateInfo[ 1 ] - The year and week as a character string "YYYYWW" + * aDateInfo[ 2 ] - The beginning date of the accounting week + * aDateInfo[ 3 ] - The ending date of the accounting week * $DESCRIPTION$ * FT_ACCTWEEK() returns an array containing data about the * accounting week containing the given date. diff --git a/harbour/contrib/hbnf/doc/en/acctyear.txt b/harbour/contrib/hbnf/doc/en/acctyear.txt index 7131c1d8e4..a637fe1ce5 100644 --- a/harbour/contrib/hbnf/doc/en/acctyear.txt +++ b/harbour/contrib/hbnf/doc/en/acctyear.txt @@ -17,9 +17,9 @@ * $RETURNS$ * A three element array containing the following data: * - * aDateInfo[1] - The year as a character string "YYYY" - * aDateInfo[2] - The beginning date of the accounting year - * aDateInfo[3] - The ending date of the accounting year + * aDateInfo[ 1 ] - The year as a character string "YYYY" + * aDateInfo[ 2 ] - The beginning date of the accounting year + * aDateInfo[ 3 ] - The ending date of the accounting year * $DESCRIPTION$ * FT_ACCTYEAR() creates an array containing data about the * accounting year containing the given date. diff --git a/harbour/contrib/hbnf/doc/en/adapter.txt b/harbour/contrib/hbnf/doc/en/adapter.txt index be1cc657fb..af89956ca0 100644 --- a/harbour/contrib/hbnf/doc/en/adapter.txt +++ b/harbour/contrib/hbnf/doc/en/adapter.txt @@ -15,7 +15,7 @@ * None * $RETURNS$ * Integer representing type of video adapter - * + * * 0 - monochrome * 1 - CGA * 2 - EGA @@ -23,23 +23,23 @@ * $DESCRIPTION$ * This function is valuable if you use a graphics library and need to * know what type of graphics adapter is installed. - * + * * The source code is written to adhere to Turbo Assembler's IDEAL mode. * To use another assembler, you will need to rearrange the PROC and * SEGMENT directives, and also the ENDP and ENDS directives (a very * minor task). * $EXAMPLES$ * iVideo := FT_ADAPTER() - * + * * DO CASE - * CASE iVideo == 0 - * QOUT( "You have a monochrome adapter." ) - * CASE iVideo == 1 - * QOUT( "You have a CGA adapter." ) - * CASE iVideo == 2 - * QOUT( "You have an EGA adapter." ) - * CASE iVideo == 3 - * QOUT( "You have a VGA adapter." ) + * CASE iVideo == 0 + * QOut( "You have a monochrome adapter." ) + * CASE iVideo == 1 + * QOut( "You have a CGA adapter." ) + * CASE iVideo == 2 + * QOut( "You have an EGA adapter." ) + * CASE iVideo == 3 + * QOut( "You have a VGA adapter." ) * ENDCASE * $SEEALSO$ * FT_SETMODE() diff --git a/harbour/contrib/hbnf/doc/en/adessort.txt b/harbour/contrib/hbnf/doc/en/adessort.txt index d1372126e8..148f0c124a 100644 --- a/harbour/contrib/hbnf/doc/en/adessort.txt +++ b/harbour/contrib/hbnf/doc/en/adessort.txt @@ -24,12 +24,12 @@ * $DESCRIPTION$ * This function is used to sort an array in descending order, i.e., Z-A * $EXAMPLES$ - * FT_ADESSORT(aNames) // Sort the Entire Array + * FT_ADESSORT( aNames ) // Sort the Entire Array * - * FT_ADESSORT(aNames, 5) // Sort from the 5th Element On + * FT_ADESSORT( aNames, 5 ) // Sort from the 5th Element On * - * FT_ADESSORT(aNames, , 10) // Sort the 1st 10 Elements + * FT_ADESSORT( aNames, , 10 ) // Sort the 1st 10 Elements * - * FT_ADESSORT(aNames, 5, 10) // Sort Elements 5-10 + * FT_ADESSORT( aNames, 5, 10 ) // Sort Elements 5-10 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/aemaxlen.txt b/harbour/contrib/hbnf/doc/en/aemaxlen.txt index 53862fc83f..feefea18b3 100644 --- a/harbour/contrib/hbnf/doc/en/aemaxlen.txt +++ b/harbour/contrib/hbnf/doc/en/aemaxlen.txt @@ -30,18 +30,18 @@ * This function will measure each element of an array * dimension and return the longest element. * $EXAMPLES$ - * FT_AEMAXLEN(aArray) // Measure the 1st dimension of an Array + * FT_AEMAXLEN( aArray ) // Measure the 1st dimension of an Array * - * FT_AEMAXLEN(aArray,2) // Measure the 2nd dimension of an Array + * FT_AEMAXLEN( aArray, 2 ) // Measure the 2nd dimension of an Array * - * FT_AEMAXLEN(aArray,2,,9) // Measure Elements 1-9 of the - * 2nd dimension or subarray + * FT_AEMAXLEN( aArray, 2, , 9 ) // Measure Elements 1-9 of the + * 2nd dimension or subarray * - * FT_AEMAXLEN(aArray,3,5,9) // Measure Elements 5-9 of the - * 3rd dimension or subarray + * FT_AEMAXLEN( aArray, 3, 5, 9 ) // Measure Elements 5-9 of the + * 3rd dimension or subarray * - * FT_AEMAXLEN(aArray,3,5) // Measure Elements 5 to last in the - * 3rd dimension or subarray + * FT_AEMAXLEN( aArray, 3, 5 ) // Measure Elements 5 to last in the + * 3rd dimension or subarray * $SEEALSO$ * FT_AEMINLEN() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/aeminlen.txt b/harbour/contrib/hbnf/doc/en/aeminlen.txt index b8328ed128..d0dab38047 100644 --- a/harbour/contrib/hbnf/doc/en/aeminlen.txt +++ b/harbour/contrib/hbnf/doc/en/aeminlen.txt @@ -30,15 +30,15 @@ * This function will measure each element of an array * dimension and return the shortest element. * $EXAMPLES$ - * FT_AEMINLEN(aArray) // Measure the 1st dimension of an Array + * FT_AEMINLEN( aArray ) // Measure the 1st dimension of an Array * - * FT_AEMINLEN(aArray,2) // Measure the 2nd dimension of an Array + * FT_AEMINLEN( aArray, 2 ) // Measure the 2nd dimension of an Array * - * FT_AEMINLEN(aArray,2,,9) // Measure Elements 1-9 of 2nd dimension + * FT_AEMINLEN( aArray, 2, , 9 ) // Measure Elements 1-9 of 2nd dimension * - * FT_AEMINLEN(aArray,3,5,9) // Measure Elements 5-9 of 3rd dimension + * FT_AEMINLEN( aArray, 3, 5, 9 ) // Measure Elements 5-9 of 3rd dimension * - * FT_AEMINLEN(aArray,3,5) // Measure Elements 5 to end of 3rd dimension + * FT_AEMINLEN( aArray, 3, 5 ) // Measure Elements 5 to end of 3rd dimension * $SEEALSO$ * FT_AEMAXLEN() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/alt.txt b/harbour/contrib/hbnf/doc/en/alt.txt index 9a329e46d4..f1e7ff5f75 100644 --- a/harbour/contrib/hbnf/doc/en/alt.txt +++ b/harbour/contrib/hbnf/doc/en/alt.txt @@ -20,9 +20,9 @@ * Alt key is pressed, such as during a MemoEdit(). * $EXAMPLES$ * IF FT_ALT() - * @24, 0 say "Alt" + * @ 24, 0 SAY "Alt" * ELSE - * @24, 0 say " " + * @ 24, 0 SAY " " * ENDIF * $SEEALSO$ * FT_CAPLOCK() FT_CTRL() FT_NUMLOCK() FT_PRTSCR() FT_SHIFT() diff --git a/harbour/contrib/hbnf/doc/en/any2any.txt b/harbour/contrib/hbnf/doc/en/any2any.txt index 2cdfd1011f..ba1bc490e9 100644 --- a/harbour/contrib/hbnf/doc/en/any2any.txt +++ b/harbour/contrib/hbnf/doc/en/any2any.txt @@ -30,7 +30,7 @@ * be meaningful (i.e., converting from a code block returns an EMPTY() * value of the desired type). * $EXAMPLES$ - * nNumericValue := FT_XTOY(cInputValue, "N") - * IF (FT_XTOY(nInputValue, "L")) + * nNumericValue := FT_XTOY( cInputValue, "N" ) + * IF FT_XTOY( nInputValue, "L" ) * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/asum.txt b/harbour/contrib/hbnf/doc/en/asum.txt index b11e45e75d..642618612b 100644 --- a/harbour/contrib/hbnf/doc/en/asum.txt +++ b/harbour/contrib/hbnf/doc/en/asum.txt @@ -25,12 +25,12 @@ * This function is to sum the elements of a numeric array or to sum the * lengths of a character array. * $EXAMPLES$ - * FT_ASUM(aSubTotals) // Sum the Entire Array + * FT_ASUM( aSubTotals ) // Sum the Entire Array * - * FT_ASUM(aSubTotals, 5) // Sum from the 5th Element On + * FT_ASUM( aSubTotals, 5 ) // Sum from the 5th Element On * - * FT_ASUM(aSubTotals, , 10) // Sum the 1st 10 Elements + * FT_ASUM( aSubTotals, , 10 ) // Sum the 1st 10 Elements * - * FT_ASUM(aSubTotals, 5, 10) // Sum Elements 5-10 + * FT_ASUM( aSubTotals, 5, 10 ) // Sum Elements 5-10 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/bitclr.txt b/harbour/contrib/hbnf/doc/en/bitclr.txt index 768f6e242d..36c78b9d52 100644 --- a/harbour/contrib/hbnf/doc/en/bitclr.txt +++ b/harbour/contrib/hbnf/doc/en/bitclr.txt @@ -12,7 +12,7 @@ * $SYNTAX$ * FT_BITCLR( , ) -> cByte * $ARGUMENTS$ - * is a character from CHR(0) to CHR(255). + * is a character from Chr(0) to Chr(255). * * is a number from 0 to 7 conforming to standard * right-to-left bit numbering convention and representing the @@ -29,19 +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 + * FT_BITCLR( "A", 5 ) // result: "A", since * // bit 5 already clear - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ * FT_BITSET() FT_ISBIT() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/bitset.txt b/harbour/contrib/hbnf/doc/en/bitset.txt index 59ffc74300..e90fcbe6d3 100644 --- a/harbour/contrib/hbnf/doc/en/bitset.txt +++ b/harbour/contrib/hbnf/doc/en/bitset.txt @@ -12,7 +12,7 @@ * $SYNTAX$ * FT_BITSET( , ) -> cByte * $ARGUMENTS$ - * is a character from CHR(0) to CHR(255). + * is a character from Chr(0) to Chr(255). * * is a number from 0 to 7 conforming to standard right-to-left * bit numbering convention and representing the position of the bit @@ -29,20 +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' + * ? FT_BITSET( "A", 5 ) // result: "a" * // bit 5 set - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ * FT_BITCLR() FT_ISBIT() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/blink.txt b/harbour/contrib/hbnf/doc/en/blink.txt index 0a22f8850f..8570608cd0 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 b2ac569461..2556470f7c 100644 --- a/harbour/contrib/hbnf/doc/en/byt2bit.txt +++ b/harbour/contrib/hbnf/doc/en/byt2bit.txt @@ -28,17 +28,14 @@ * .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) + * 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))) + * ? FT_BYT2BIT( FT_BYTEAND( Chr( 20 ), Chr( 36 ) ) ) * // result: '0000 0100' - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ * FT_BYT2HEX() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/byt2hex.txt b/harbour/contrib/hbnf/doc/en/byt2hex.txt index d6fc61fa0c..2ed485a1a0 100644 --- a/harbour/contrib/hbnf/doc/en/byt2hex.txt +++ b/harbour/contrib/hbnf/doc/en/byt2hex.txt @@ -25,17 +25,14 @@ * .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 + * 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))) + * ? FT_BYT2HEX( FT_BYTEAND( Chr( 20 ), Chr( 36 ) ) ) * // result: '04h' - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ * FT_BYT2BIT() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/byteand.txt b/harbour/contrib/hbnf/doc/en/byteand.txt index ce28af4829..58cc01c3d6 100644 --- a/harbour/contrib/hbnf/doc/en/byteand.txt +++ b/harbour/contrib/hbnf/doc/en/byteand.txt @@ -12,11 +12,11 @@ * $SYNTAX$ * FT_BYTEAND( , ) -> cByte * $ARGUMENTS$ - * and are characters from CHR(0) TO CHR(255). - * May be passed in CHR() form, as character literals, or as expressions - * evaluating to CHR() values. + * and are characters from Chr(0) TO Chr(255). + * May be passed in Chr() form, as character literals, or as expressions + * evaluating to Chr() values. * $RETURNS$ - * Returns resulting byte, in CHR() form. If parameters are faulty, + * Returns resulting byte, in Chr() form. If parameters are faulty, * returns NIL. * $DESCRIPTION$ * Can be used for any bit-wise masking operation. In effect, this is a @@ -27,15 +27,12 @@ * .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 + * of the byte represented by Chr(123) and leave the low nibble bits as in * the parameter byte. * - * cNewbyte := FT_BYTEAND( CHR(123), CHR(15) ) - * ? asc(cNewByte) // result: 11 - * ? cNewByte // result: non-printable character - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. + * 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 7cd19e7a5d..2499201f0d 100644 --- a/harbour/contrib/hbnf/doc/en/byteneg.txt +++ b/harbour/contrib/hbnf/doc/en/byteneg.txt @@ -12,11 +12,11 @@ * $SYNTAX$ * FT_BYTENEG( ) -> cNewByte * $ARGUMENTS$ - * is a character from CHR(0) to CHR(255). - * May be passed in CHR() form, as character literal, or - * as expression evaluating to CHR() value. + * is a character from Chr(0) to Chr(255). + * May be passed in Chr() form, as character literal, or + * as expression evaluating to Chr() value. * $RETURNS$ - * Returns resulting byte, in CHR() form. If parameters are faulty, + * Returns resulting byte, in Chr() form. If parameters are faulty, * returns NIL. * $DESCRIPTION$ * Can be used for bit-wise byte manipulation. In effect, this is a @@ -27,13 +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 - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. + * 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 8a75708493..e8e1a9ecb0 100644 --- a/harbour/contrib/hbnf/doc/en/bytenot.txt +++ b/harbour/contrib/hbnf/doc/en/bytenot.txt @@ -12,11 +12,11 @@ * $SYNTAX$ * FT_BYTENOT( ) -> cNewByte * $ARGUMENTS$ - * is a character from CHR(0) to CHR(255). - * May be passed in CHR() form, as character literal, or - * as expression evaluating to CHR() value. + * is a character from Chr(0) to Chr(255). + * May be passed in Chr() form, as character literal, or + * as expression evaluating to Chr() value. * $RETURNS$ - * Returns resulting byte, in CHR() form. If parameters are faulty, + * Returns resulting byte, in Chr() form. If parameters are faulty, * returns NIL. * $DESCRIPTION$ * Can be used for bitwise byte manipulation. In effect, this is a @@ -27,13 +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 - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. + * 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 68ddeb54ce..1f2d4ca906 100644 --- a/harbour/contrib/hbnf/doc/en/byteor.txt +++ b/harbour/contrib/hbnf/doc/en/byteor.txt @@ -12,11 +12,11 @@ * $SYNTAX$ * FT_BYTEOR( , ) -> cNewByte * $ARGUMENTS$ - * and are characters from CHR(0) TO CHR(255). - * May be passed in CHR() form, as character literals, or as - * expressions evaluating to CHR() values. + * and are characters from Chr(0) TO Chr(255). + * May be passed in Chr() form, as character literals, or as + * expressions evaluating to Chr() values. * $RETURNS$ - * Returns resulting byte, in CHR() form. If parameters are faulty, + * Returns resulting byte, in Chr() form. If parameters are faulty, * returns NIL. * $DESCRIPTION$ * Can be used for bit-wise byte manipulation. In effect, this is a @@ -27,14 +27,11 @@ * .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): + * by Chr( 20 ) and Chr( 10 ): * - * cNewByte := FT_BYTEOR( CHR(20), CHR(10) ) - * ? ASC( cNewByte ) // result: 30 + * cNewByte := FT_BYTEOR( Chr( 20 ), Chr( 10 ) ) + * ? Asc( cNewByte ) // result: 30 * ? cNewByte // result: non-printable character - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ * FT_BYTEXOR() FT_BYTENOT() FT_BYTENEG() FT_BYTEAND() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/bytexor.txt b/harbour/contrib/hbnf/doc/en/bytexor.txt index fe35ba3de5..9670992424 100644 --- a/harbour/contrib/hbnf/doc/en/bytexor.txt +++ b/harbour/contrib/hbnf/doc/en/bytexor.txt @@ -12,11 +12,11 @@ * $SYNTAX$ * FT_BYTEXOR( , ) -> cNewByte * $ARGUMENTS$ - * and are characters from CHR(0) to CHR(255). - * May be passed in CHR() form, as character literals, or - * as expressions evaluating to CHR() values. + * and are characters from Chr(0) to Chr(255). + * May be passed in Chr() form, as character literals, or + * as expressions evaluating to Chr() values. * $RETURNS$ - * Returns resulting byte, in CHR() form. If parameters are faulty, + * Returns resulting byte, in Chr() form. If parameters are faulty, * returns NIL. * $DESCRIPTION$ * Can be used for bit-wise byte manipulation. In effect, this is a @@ -27,14 +27,11 @@ * .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): + * by Chr( 32 ) and Chr( 55 ): * - * cNewByte := FT_BYTEXOR( CHR(32), CHR(55) ) - * ? ASC( cNewByte ) // result: 23 + * cNewByte := FT_BYTEXOR( Chr( 32 ), Chr( 55 ) ) + * ? Asc( cNewByte ) // result: 23 * ? cNewByte // result: non-printable character - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. * $SEEALSO$ * 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 72422fcaba..67f7afbb1b 100644 --- a/harbour/contrib/hbnf/doc/en/calendar.txt +++ b/harbour/contrib/hbnf/doc/en/calendar.txt @@ -55,17 +55,17 @@ * from the Nanforum Toolkit! * * $EXAMPLES$ - * LOCAL aRetVal[8] - * CLS - * aRetVal := FT_CALENDAR (10,40,'W+/RB',.T.,.T.) - * ?aRetVal[1] // Result: 04/20/91 - * ?aRetVal[2] // Result: 4 - * ?aRetVal[3] // Result: 20 - * ?aRetVal[4] // Result: 1991 - * ?aRetVal[5] // Result: April - * ?aRetVal[6] // Result: Saturday - * ?aRetVal[7] // Result: 110 - * ?aRetVal[8] // Result: 12:45:20 + * LOCAL aRetVal[ 8 ] + * CLS + * aRetVal := FT_CALENDAR( 10, 40, "W+/RB", .T., .T. ) + * ? aRetVal[ 1 ] // Result: 04/20/91 + * ? aRetVal[ 2 ] // Result: 4 + * ? aRetVal[ 3 ] // Result: 20 + * ? aRetVal[ 4 ] // Result: 1991 + * ? aRetVal[ 5 ] // Result: April + * ? 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/clrsel.txt b/harbour/contrib/hbnf/doc/en/clrsel.txt index 0e673ff934..2826713428 100644 --- a/harbour/contrib/hbnf/doc/en/clrsel.txt +++ b/harbour/contrib/hbnf/doc/en/clrsel.txt @@ -53,7 +53,7 @@ * a more appropriate test display. * * [4] cFillChar is the character (for desktop background only) - * Default is CHR(177) "▒▒▒▒▒▒▒▒▒▒▒▒▒▒" + * Default is Chr(177) "▒▒▒▒▒▒▒▒▒▒▒▒▒▒" * * * .T. use colour palette @@ -63,7 +63,7 @@ * * 2 Byte character string for colour test display * - * Default is the CHR(254)+CHR(254) "■■" + * Default is the Chr(254)+Chr(254) "■■" * * $RETURNS$ * An array identical to the one passed, with new selected colours @@ -76,8 +76,8 @@ * a normal colour string returned. * $EXAMPLES$ * LOCAL aClrs := {} - * LOCAL lColour := ISCOLOR() - * LOCAL cChr := CHR(254) + CHR(254) + * LOCAL lColour := IsColor() + * LOCAL cChr := Chr( 254 ) + Chr( 254 ) * * SET SCOREBOARD Off * SETBLINK( .F. ) // Allow bright backgrounds diff --git a/harbour/contrib/hbnf/doc/en/cntryset.txt b/harbour/contrib/hbnf/doc/en/cntryset.txt index 6c146f8743..3da1132784 100644 --- a/harbour/contrib/hbnf/doc/en/cntryset.txt +++ b/harbour/contrib/hbnf/doc/en/cntryset.txt @@ -22,12 +22,12 @@ * This function returns the state (ON/OFF, TRUE/FALSE) of the CENTURY * and optionally sets it ON or OFF. * $EXAMPLES$ - * lOldState := FT_SETCENTURY() // Get current CENTURY Setting + * lOldState := FT_SETCENTURY() // Get current CENTURY Setting * - * lOldState := FT_SETCENTURY(.T.) // Get the current CENTURY Setting - * // and turn it on (set it to TRUE) + * lOldState := FT_SETCENTURY( .T. ) // Get the current CENTURY Setting + * // and turn it on (set it to TRUE) * - * lOldState := FT_SETCENTURY(.F.) // Get the current CENTURY Setting - * // and turn it off (set it to FALSE) + * lOldState := FT_SETCENTURY( .F. ) // Get the current CENTURY Setting + * // and turn it off (set it to FALSE) * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/ctrl.txt b/harbour/contrib/hbnf/doc/en/ctrl.txt index b9f41a8548..cd6dc5359e 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 96e7999ef3..e8c43f9601 100644 --- a/harbour/contrib/hbnf/doc/en/d2e.txt +++ b/harbour/contrib/hbnf/doc/en/d2e.txt @@ -4,34 +4,31 @@ /* $DOC$ * $FUNCNAME$ - * FT_D2E() + * FT_D2E() * $CATEGORY$ - * Conversion + * Conversion * $ONELINER$ - * Convert decimal to scientific notation + * Convert decimal to scientific notation * $SYNTAX$ - * FT_D2E( , ) -> + * FT_D2E( , ) -> * $ARGUMENTS$ - * Decimal number to convert + * Decimal number to convert * - * Number of decimal places in result. - * Defaults to 6 decimal places. + * Number of decimal places in result. + * Defaults to 6 decimal places. * $RETURNS$ - * A string representing a number in - * scientific notation + * A string representing a number in + * scientific notation * $DESCRIPTION$ - * Given a decimal number and the desired precision, - * a string representing the equivalent in scientific - * notation is returned. + * Given a decimal number and the desired precision, + * 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/datecnfg.txt b/harbour/contrib/hbnf/doc/en/datecnfg.txt index 0cbf49eb98..41b0d73663 100644 --- a/harbour/contrib/hbnf/doc/en/datecnfg.txt +++ b/harbour/contrib/hbnf/doc/en/datecnfg.txt @@ -58,20 +58,20 @@ * // Configure library date functions to begin year on * // July 1st. * - * FT_DATECNFG("07/01/80") // year is insignificant + * FT_DATECNFG( "07/01/80" ) // year is insignificant * * // Examples of return values: * - * // System date format: American aArray[1] aArray[2] + * // System date format: American aArray[1] aArray[2] * - * aArray := FT_DATECNFG() // '1980.01.01' 1 (Sun.) - * aArray := FT_DATECNFG('07/01/80') // '1980.07.01' 1 (Sun.) - * aArray := FT_DATECNFG('07/01/80', 2) // '1980.07.01' 2 (Mon.) - * aArray := FT_DATECNFG( , 2 ) // '1980.01.01' 2 (Mon.) + * aArray := FT_DATECNFG() // "1980.01.01" 1 (Sun.) + * aArray := FT_DATECNFG( "07/01/80" ) // "1980.07.01" 1 (Sun.) + * aArray := FT_DATECNFG( "07/01/80", 2 ) // "1980.07.01" 2 (Mon.) + * aArray := FT_DATECNFG( , 2 ) // "1980.01.01" 2 (Mon.) * * // System date format: British * - * aArray := FT_DATECNFG('01/07/80', 2) // '1980.07.01' 2 (Mon.) + * aArray := FT_DATECNFG( "01/07/80", 2 ) // "1980.07.01" 2 (Mon.) * $SEEALSO$ * FT_ACCTADJ() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/dayofyr.txt b/harbour/contrib/hbnf/doc/en/dayofyr.txt index 1ede76a5b1..f234045fc3 100644 --- a/harbour/contrib/hbnf/doc/en/dayofyr.txt +++ b/harbour/contrib/hbnf/doc/en/dayofyr.txt @@ -27,15 +27,15 @@ * * If is specified: * - * aDateInfo[1] - The date of the specified day number - * aDateInfo[2] - The beginning date of the year - * aDateInfo[3] - The ending date of the year + * aDateInfo[ 1 ] - The date of the specified day number + * aDateInfo[ 2 ] - The beginning date of the year + * aDateInfo[ 3 ] - The ending date of the year * * If is not specified: * - * aDateInfo[1] - The year and day as a character string "YYYYDDD" - * aDateInfo[2] - The beginning date of the year - * aDateInfo[3] - The ending date of the year + * aDateInfo[ 1 ] - The year and day as a character string "YYYYDDD" + * aDateInfo[ 2 ] - The beginning date of the year + * aDateInfo[ 3 ] - The ending date of the year * $DESCRIPTION$ * FT_DAYOFYR() returns an array containing data about a day in the * calendar or fiscal year containing the given date. diff --git a/harbour/contrib/hbnf/doc/en/dfile.txt b/harbour/contrib/hbnf/doc/en/dfile.txt index 0f35b9df9e..0b297c6420 100644 --- a/harbour/contrib/hbnf/doc/en/dfile.txt +++ b/harbour/contrib/hbnf/doc/en/dfile.txt @@ -40,16 +40,16 @@ * This is the smallest you should make the buffer. For normal use, * 4096 bytes is recommended * $EXAMPLES$ - * @ 4,9 TO 11,71 + * @ 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() + * cKey := FT_DISPFILE() * * FT_DFCLOSE() * - * @ 20,0 SAY "Key that terminated FT_DISPFILE() was: " + '[' + cKey + ']' + * @ 20, 0 SAY "Key that terminated FT_DISPFILE() was: " + "[" + cKey + "]" * $SEEALSO$ * FT_DISPFILE() FT_DFCLOSE() * $END$ @@ -71,16 +71,16 @@ * $DESCRIPTION$ * Closes the file opened by FT_DFSETUP() * $EXAMPLES$ - * @ 4,9 TO 11,71 + * @ 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() + * cKey := FT_DISPFILE() * * FT_DFCLOSE() * - * @ 20,0 SAY "Key that terminated FT_DISPFILE() was: " + '[' + cKey + ']' + * @ 20, 0 SAY "Key that terminated FT_DISPFILE() was: " + "[" + cKey + "]" * $SEEALSO$ * FT_DFSETUP() FT_DISPFILE() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/dispc.txt b/harbour/contrib/hbnf/doc/en/dispc.txt index 92e1c0e3ed..4de30a6b3f 100644 --- a/harbour/contrib/hbnf/doc/en/dispc.txt +++ b/harbour/contrib/hbnf/doc/en/dispc.txt @@ -48,16 +48,16 @@ * keys must be passed by a unique value and that value * can be found by looking in the keys.h file. * $EXAMPLES$ - * @ 4,9 TO 11,71 + * @ 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() + * cKey := FT_DISPFILE() * * FT_DFCLOSE() * - * @ 20,0 SAY "Key that terminated FT_DISPFILE() was: " + '[' + cKey + ']' + * @ 20, 0 SAY "Key that terminated FT_DISPFILE() was: " + "[" + cKey + "]" * $SEEALSO$ * FT_DFSETUP() FT_DFCLOSE() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/dispmsg.txt b/harbour/contrib/hbnf/doc/en/dispmsg.txt index b61a63170d..0c0a2e22eb 100644 --- a/harbour/contrib/hbnf/doc/en/dispmsg.txt +++ b/harbour/contrib/hbnf/doc/en/dispmsg.txt @@ -89,7 +89,7 @@ * and returns to the calling procedure. * * FT_DISPMSG( { { "Please Do Not Interrupt" } , ; - * { "W+/B", "GR+/B" } } , ; + * { "W+/B", "GR+/B" } } , ; * , 5, ) * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/dosver.txt b/harbour/contrib/hbnf/doc/en/dosver.txt index 8e0bb134c0..ad74db0f14 100644 --- a/harbour/contrib/hbnf/doc/en/dosver.txt +++ b/harbour/contrib/hbnf/doc/en/dosver.txt @@ -28,9 +28,8 @@ * * * $EXAMPLES$ - * PROCEDURE Main() - * ? "Dos version: " + FT_DOSVER() - * RETURN - * + * PROCEDURE Main() + * ? "Dos version: " + FT_DOSVER() + * RETURN * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/e2d.txt b/harbour/contrib/hbnf/doc/en/e2d.txt index dd1769457d..ea5f61aef2 100644 --- a/harbour/contrib/hbnf/doc/en/e2d.txt +++ b/harbour/contrib/hbnf/doc/en/e2d.txt @@ -8,26 +8,23 @@ * $CATEGORY$ * Conversion * $ONELINER$ - * Convert scientific notation string to a decimal + * Convert scientific notation string to a decimal * $SYNTAX$ - * FT_E2D( ) -> + * FT_E2D( ) -> * $ARGUMENTS$ - * Scientific notation string to convert + * Scientific notation string to convert * $RETURNS$ - * Decimal number + * Decimal number * $DESCRIPTION$ - * Given a string in the format x.yEz, the decimal - * equivalent is returned. + * 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() + * FT_D2E() * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/eltime.txt b/harbour/contrib/hbnf/doc/en/eltime.txt index d36a28e2b5..c31fc1d1fd 100644 --- a/harbour/contrib/hbnf/doc/en/eltime.txt +++ b/harbour/contrib/hbnf/doc/en/eltime.txt @@ -21,8 +21,8 @@ * Return the absolute difference between two times in hh:mm:ss format * in character hours, minutes and seconds (hh:mm:ss). * $EXAMPLES$ - * FT_ELTIME( "22:40:12", "23:55:17" ) -> 01:15:05 - * FT_ELTIME( "23:55:17", "22:40:12" ) -> 01:15:05 + * FT_ELTIME( "22:40:12", "23:55:17" ) // 01:15:05 + * FT_ELTIME( "23:55:17", "22:40:12" ) // 01:15:05 * $SEEALSO$ * FT_ELAPMIN() FT_MIL2MIN() FT_MIN2MIL() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/findith.txt b/harbour/contrib/hbnf/doc/en/findith.txt index 989d4f1595..37f09b696e 100644 --- a/harbour/contrib/hbnf/doc/en/findith.txt +++ b/harbour/contrib/hbnf/doc/en/findith.txt @@ -31,7 +31,7 @@ * // the 10th Occurrence of "the", case * // insensitive * - * nNextPosition := FT_FINDITH("the", cMemoString, 10) + * nNextPosition := FT_FINDITH( "the", cMemoString, 10 ) * $SEEALSO$ * FT_AT2() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/floptst.txt b/harbour/contrib/hbnf/doc/en/floptst.txt index c56f73f1d1..540c48ee80 100644 --- a/harbour/contrib/hbnf/doc/en/floptst.txt +++ b/harbour/contrib/hbnf/doc/en/floptst.txt @@ -35,7 +35,7 @@ * should be no problems. * * This function does not currently check subst'd drives. So if you - * have SUBST E: A:\ then FT_FLOPTST( ASC("E")-ASC("A") ) == 4 + * have SUBST E: A:\ then FT_FLOPTST( Asc("E")-Asc("A") ) == 4 * Any suggestions to fix this limitation are appreciated. * * $EXAMPLES$ diff --git a/harbour/contrib/hbnf/doc/en/fttext.txt b/harbour/contrib/hbnf/doc/en/fttext.txt index 5ddc330ab0..bfd4e31eeb 100644 --- a/harbour/contrib/hbnf/doc/en/fttext.txt +++ b/harbour/contrib/hbnf/doc/en/fttext.txt @@ -97,13 +97,13 @@ * database workareas. * * $EXAMPLES$ - * FT_FSELECT(1) + * FT_FSELECT( 1 ) * * nFile1 := FT_FUSE( "temp.c" ) * * ? FT_FLASTRE() // no. of lines in temp.c * - * FT_FSELECT(2) + * FT_FSELECT( 2 ) * * nFile2 := FT_FUSE( "temp.h" ) * @@ -183,7 +183,7 @@ * $EXAMPLES$ * IF ft_fUse( "text.c" ) < 0 // open text file * err := ft_fError() - * ? 'Error opening file "Text.c", error code (' + ; + * ? 'Error opening file "rext.c", error code (' + ; * LTrim( Str( err ) ) + ')' * ENDIF * @@ -378,7 +378,7 @@ * $ONELINER$ * Deletes a line from the currently selected text file * $SYNTAX$ - * FT_FDELETE( [ < nLines > ] ) -> lSuccess + * FT_FDELETE( [ ] ) -> lSuccess * * $ARGUMENTS$ * ^b^n is the number of lines to be eliminated, beginning with @@ -416,7 +416,7 @@ * $ONELINER$ * Inserts a line in the currently selected text file * $SYNTAX$ - * FT_FINSERT( [ < nLines > ] ) -> lSuccess + * FT_FINSERT( [ ] ) -> lSuccess * * $ARGUMENTS$ * ^b^n is the number of lines that should be inserted at the @@ -440,7 +440,7 @@ * * $EXAMPLES$ * // add a couple of blank lines of text to a file - * ft fUse( "test.txt" ) + * ft_fUse( "test.txt" ) * * ft_fGoTo( 10 ) * @@ -493,11 +493,11 @@ * // add a blank line of text to a file * FT_FUSE( "test.txt" ) * - * ?FT_FRECNO() // displays 5 + * ? FT_FRECNO() // displays 5 * * FT_FAPPEND() * - * ?FT_FRECNO() // displays 6 + * ? FT_FRECNO() // displays 6 * * $SEEALSO$ * FT_FRECNO() FT_FDELETE() FT_FINSERT() FT_FLASTRE() @@ -659,7 +659,7 @@ * * ? FT_FBOF() // .F. * - * FT_FSKIP(-1) + * FT_FSKIP( -1 ) * * ? FT_FBOF() // .T. * diff --git a/harbour/contrib/hbnf/doc/en/gcd.txt b/harbour/contrib/hbnf/doc/en/gcd.txt index 3dd2cfaf40..dcbc8db2aa 100644 --- a/harbour/contrib/hbnf/doc/en/gcd.txt +++ b/harbour/contrib/hbnf/doc/en/gcd.txt @@ -18,13 +18,13 @@ * $RETURNS$ * The greatest common divisor of the 2 numbers, or 0 if either is 0. * $DESCRIPTION$ - * This function calculates the greatest common divisor between 2 numbers, - * i.e., the largest number that will divide into both numbers evenly. It - * will return zero (0) if either number is zero. + * This function calculates the greatest common divisor between 2 numbers, + * i.e., the largest number that will divide into both numbers evenly. It + * will return zero (0) if either number is zero. * $EXAMPLES$ - * ? FT_GCD(10,15) // Result: 5 - * ? FT_GCD(108,54) // Result: 54 - * ? FT_GCD(102,54) // Result: 6 - * ? FT_GCD(111,17) // Result: 1 + * ? FT_GCD( 10, 15 ) // Result: 5 + * ? FT_GCD( 108, 54 ) // Result: 54 + * ? FT_GCD( 102, 54 ) // Result: 6 + * ? FT_GCD( 111, 17 ) // Result: 1 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/getenvrn.txt b/harbour/contrib/hbnf/doc/en/getenvrn.txt index 4d3a6f2038..78cacd7a89 100644 --- a/harbour/contrib/hbnf/doc/en/getenvrn.txt +++ b/harbour/contrib/hbnf/doc/en/getenvrn.txt @@ -16,7 +16,7 @@ * * can be a character type variable, in which case * the function will place all environment strings in the variable - * separated by carriage return/line feeds (chr 13 + chr(10)). + * separated by carriage return/line feeds (chr 13 + Chr(10)). * * can be an array type, in which case the function * will place each string in an array element. The array MUST be @@ -44,23 +44,23 @@ * 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.) + * nNumStrings := FT_GETE( @cEnvBlock ) + * @ 0, 0 TO MaxRow() - 1, MaxCol() + * @ MaxRow(), 0 SAY 'Browse strings, press ESC to exit...' + * MemoWrit( cEnvBlock, 1, 1, MaxRow() - 2, MaxCol() - 1, .F. ) * * Get the environment in text form and write it to a file: * * cEnvBlock := "" - * FT_GETE(@cEnvBlock) - * MEMOWRIT("environ.txt", cEnvBlock) + * FT_GETE( @cEnvBlock ) + * MEMOWRIT( "environ.txt", cEnvBlock ) * * Get the environment in Array form: * - * aEnvArray := ARRAY(FT_GETE()) - * FT_GETE(aEnvArray) - * ? aEnvArray[1] // "COMSPEC=C:\command.com" - * ? aEnvArray[2] // "PATH=C:\;C:\util;C:\harbour" + * 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/isbit.txt b/harbour/contrib/hbnf/doc/en/isbit.txt index 97782df8b4..b6848f399a 100644 --- a/harbour/contrib/hbnf/doc/en/isbit.txt +++ b/harbour/contrib/hbnf/doc/en/isbit.txt @@ -12,7 +12,7 @@ * $SYNTAX$ * FT_ISBIT( , ) -> lResult * $ARGUMENTS$ - * is a character from CHR(0) to CHR(255) + * is a character from Chr(0) to Chr(255) * * is a number from 0 to 7 conforming to standard right-to-left * bit-numbering convention and representing the position of the @@ -22,7 +22,7 @@ * invalid parameters. * $DESCRIPTION$ * Tests for status of any selected bit in the byte passed as a parameter. - * Byte must be presented in CHR() form, as a literal constant, or as the + * Byte must be presented in Chr() form, as a literal constant, or as the * one-byte character result of an expression. * * This function is presented to illustrate that bit-wise operations @@ -30,18 +30,15 @@ * .asm versions and use the Clipper Extend system. * $EXAMPLES$ * This code tests whether bit 3 is set in the byte represented by - * CHR(107): + * Chr( 107 ): * - * lBitflag := FT_ISBIT(CHR(107), 3) + * 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') + * 65 (letter "A") * - * ? FT_ISBIT('A', 5) // result: .F. - * - * For a demonstration of Clipper bit manipulations, compile and - * link the program bittest.prg in the Nanforum Toolkit source code. + * ? FT_ISBIT( "A", 5 ) // result: .F. * $SEEALSO$ * FT_BITSET() FT_BITCLR() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/kspeed.txt b/harbour/contrib/hbnf/doc/en/kspeed.txt index cbe5c76782..83f29ddee5 100644 --- a/harbour/contrib/hbnf/doc/en/kspeed.txt +++ b/harbour/contrib/hbnf/doc/en/kspeed.txt @@ -61,8 +61,8 @@ * * This source code is written for Microsoft Assembler v5.1. * $EXAMPLES$ - * FT_SETRATE(0,0) // Set keyboard to fastest possible settings - * FT_SETRATE() // Set keyboard to AT defaults (10.9cps,500ms delay) - * FT_SETRATE(11,1) // Set keyboard to PS/2 defaults (10cps,500ms delay) + * FT_SETRATE( 0, 0 ) // Set keyboard to fastest possible settings + * FT_SETRATE() // Set keyboard to AT defaults (10.9cps,500ms delay) + * FT_SETRATE( 11, 1 ) // Set keyboard to PS/2 defaults (10cps,500ms delay) * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/linked.txt b/harbour/contrib/hbnf/doc/en/linked.txt index d72957eaf7..005645766d 100644 --- a/harbour/contrib/hbnf/doc/en/linked.txt +++ b/harbour/contrib/hbnf/doc/en/linked.txt @@ -35,13 +35,11 @@ * * * $EXAMPLES$ - * cString := "FT_GoodFunc(BadFunc(3,2))" - * IF FT_LINKED(cString) - * EVAL( &("{||"+cString+"}") ) + * cString := "FT_GoodFunc( BadFunc( 3, 2 ) )" + * IF FT_LINKED( cString ) + * Eval( &( "{||" + cString + "}" ) ) * ELSE - * ALERT("Error: "+cString+" was not linked in. Called by FT_LINKED()") + * Alert( "Error: " + cString + " was not linked in. Called by FT_LINKED()" ) * ENDIF - * - * * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/madd.txt b/harbour/contrib/hbnf/doc/en/madd.txt index 7ade2b2ee1..7781bc2aee 100644 --- a/harbour/contrib/hbnf/doc/en/madd.txt +++ b/harbour/contrib/hbnf/doc/en/madd.txt @@ -43,7 +43,6 @@ * ? FT_MADD( dDate, 2, .T. ) // 06/30/91 <- June only has 30 days * ? FT_MADD( dDate, 3 ) // 07/30/91 * ? FT_MADD( dDate, 3, .T. ) // 07/31/91 <- forced EOM - * * $SEEALSO$ * FT_DAYOFYR() FT_DAYTOBOW() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/menu1.txt b/harbour/contrib/hbnf/doc/en/menu1.txt index c1eb50cf8e..f4764e08df 100644 --- a/harbour/contrib/hbnf/doc/en/menu1.txt +++ b/harbour/contrib/hbnf/doc/en/menu1.txt @@ -62,7 +62,7 @@ * // The first creates aOptions with the same length as aBar. The * // second assigns a three-element array to each element of aOptions. * LOCAL aOptions[ Len( aBar ) ] - * AEVAL( aBar, {| x, i | aOptions[ i ] := { {}, {}, {} } } ) + * AEval( aBar, {| x, i | aOptions[ i ] := { {}, {}, {} } } ) * * // fill color array * // Box Border, Menu Options, Menu Bar, Current Selection, Unselected @@ -146,29 +146,29 @@ * FT_FILL() is a function used to set up the menu options prior * to calling FT_MENU1(). * $EXAMPLES$ - * FT_FILL( aOptions[ 1 ], "A. Execute A Dummy Procedure" , {|| fubar() }, .T. ) + * FT_FILL( aOptions[ 1 ], "A. Execute A Dummy Procedure" , {|| fubar() }, .T. ) * - * The above would be added to the sub-menu associated with the first menu - * bar item, would execute the function FUBAR() when that option was - * selected, and would be selectable. + * The above would be added to the sub-menu associated with the first menu + * bar item, would execute the function FUBAR() when that option was + * selected, and would be selectable. * * - * FT_FILL( aOptions[ 3 ], "B. Enter Daily Charges" , {|| .T. }, .F. ) + * FT_FILL( aOptions[ 3 ], "B. Enter Daily Charges" , {|| .T. }, .F. ) * - * The above would be added to the sub-menu associated with the third menu - * bar item, and would be unselectable. + * The above would be added to the sub-menu associated with the third menu + * bar item, and would be unselectable. * * - * FT_FILL( aOptions[ 2 ], "C. Enter Payments On Accounts", {|| .T. }, .T. ) + * FT_FILL( aOptions[ 2 ], "C. Enter Payments On Accounts", {|| .T. }, .T. ) * - * The above would be added to the sub-menu associated with the second menu - * bar item, and would be selectable, but would do nothing when selected. + * The above would be added to the sub-menu associated with the second menu + * bar item, and would be selectable, but would do nothing when selected. * * - * FT_FILL( aOptions[ 4 ], "C. Exit" , {|| .F. }, .T. ) + * FT_FILL( aOptions[ 4 ], "C. Exit" , {|| .F. }, .T. ) * - * The above would be added to the sub-menu associated with the fourth menu - * bar item, and would be selectable, and would exit FT_MENU1() when chosen. + * The above would be added to the sub-menu associated with the fourth menu + * bar item, and would be selectable, and would exit FT_MENU1() when chosen. * $SEEALSO$ * FT_MENU1() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/menutonf.txt b/harbour/contrib/hbnf/doc/en/menutonf.txt index 620f9587d9..034fa9cd1b 100644 --- a/harbour/contrib/hbnf/doc/en/menutonf.txt +++ b/harbour/contrib/hbnf/doc/en/menutonf.txt @@ -120,29 +120,29 @@ * deal then use the standard Clipper commands. * * $EXAMPLES$ - * #include "ftmenuto.ch" + * #include "ftmenuto.ch" * - * // Simple prompt - * @ 1, 1 PROMPT "Menu choice #1" + * // Simple prompt + * @ 1, 1 PROMPT "Menu choice #1" * - * // Prompt with color - * @ 3, 1 PROMPT "Menu choice #2" COLOR "W+/R,W+/B" + * // Prompt with color + * @ 3, 1 PROMPT "Menu choice #2" COLOR "W+/R,W+/B" * - * // Prompt with a message - * @ 5, 1 PROMPT "Menu choice #3" MESSAGE "Go to lunch" + * // Prompt with a message + * @ 5, 1 PROMPT "Menu choice #3" MESSAGE "Go to lunch" * - * // Prompt with pinpoint message control - * @ 7, 1 PROMPT "Menu choice #4" MESSAGE "Drop Dead" ; - * MSGROW 22 MSGCOL 4 MSGCOLOR "GR+/N" + * // Prompt with pinpoint message control + * @ 7, 1 PROMPT "Menu choice #4" MESSAGE "Drop Dead" ; + * MSGROW 22 MSGCOL 4 MSGCOLOR "GR+/N" * - * // Prompt with a trigger character ("#" character) - * @11, 1 PROMPT "Menu choice #6" TRIGGER 13 + * // Prompt with a trigger character ("#" character) + * @ 11, 1 PROMPT "Menu choice #6" TRIGGER 13 * - * // Prompt with trigger character color control - * @13, 1 PROMPT "Menu Choice #7" TRIGGER 13 TRIGGERCOLOR "R+/BG,G+/N" + * // Prompt with trigger character color control + * @ 13, 1 PROMPT "Menu Choice #7" TRIGGER 13 TRIGGERCOLOR "R+/BG,G+/N" * - * // Prompt with right and left arrow keys disabled - * @15, 1 PROMPT "Menu Choice #8" RIGHT 8 LEFT 8 + * // Prompt with right and left arrow keys disabled + * @ 15, 1 PROMPT "Menu Choice #8" RIGHT 8 LEFT 8 * $INCLUDE$ * ftmenuto.ch * $SEEALSO$ @@ -182,11 +182,11 @@ * Note that this command can also be called using function-style * syntax. See the entry for FT_MENUTO() for further details. * $EXAMPLES$ - * #include "ftmenuto.ch" + * #include "ftmenuto.ch" * - * // Simple command + * // Simple command * - * MENU TO memvar + * MENU TO memvar * * $INCLUDE$ * ftmenuto.ch diff --git a/harbour/contrib/hbnf/doc/en/metaph.txt b/harbour/contrib/hbnf/doc/en/metaph.txt index ab78677084..16a8b22249 100644 --- a/harbour/contrib/hbnf/doc/en/metaph.txt +++ b/harbour/contrib/hbnf/doc/en/metaph.txt @@ -26,11 +26,11 @@ * the string are pronounced. FT_METAPH() will group sound-alikes * together, and forgive shortcomings in spelling ability. * $EXAMPLES$ - * USE Persons - * INDEX ON FT_METAPH( LastName ) TO LastName + * USE persons + * INDEX ON FT_METAPH( LastName ) TO lastname * SEEK FT_METAPH( "Philmore" ) - * ? FOUND(), LastName // Result: .T. Philmore + * ? Found(), LastName // Result: .T. Philmore * SEEK FT_METAPH( "Fillmore" ) - * ? FOUND(), LastName // Result: .T. Philmore + * ? Found(), LastName // Result: .T. Philmore * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/miltime.txt b/harbour/contrib/hbnf/doc/en/miltime.txt index bd6e9662f9..5e0fc5a19d 100644 --- a/harbour/contrib/hbnf/doc/en/miltime.txt +++ b/harbour/contrib/hbnf/doc/en/miltime.txt @@ -18,7 +18,7 @@ * $DESCRIPTION$ * Converts time in military format to number of minute of the day. * $EXAMPLES$ - * FT_MIL2MIN( "1729" ) -> 1049 + * FT_MIL2MIN( "1729" ) // 1049 * $SEEALSO$ * FT_MIN2MIL() FT_CIV2MIL() FT_MIL2CIV() FT_SYS2MIL() * $END$ @@ -40,7 +40,7 @@ * $DESCRIPTION$ * Converts minute of the day to military format time. * $EXAMPLES$ - * FT_MIN2MIL( 279 ) -> 0439 + * FT_MIN2MIL( 279 ) // 0439 * $SEEALSO$ * FT_MIL2MIN() FT_MIL2CIV() FT_CIV2MIL() FT_SYS2MIL() * $END$ @@ -63,13 +63,15 @@ * $DESCRIPTION$ * Converts time from military to civilian format * $EXAMPLES$ - * FT_MIL2CIV( "1640" ) -> 4:40 pm + * FT_MIL2CIV( "1640" ) // 4:40 pm * - * FT_MIL2CIV( "0440" ) -> 4:40 am + * FT_MIL2CIV( "0440" ) // 4:40 am * - * FT_MIL2CIV( "1200" ) -> 12:00 n + * FT_MIL2CIV( "1200" ) // 12:00 n * - * FT_MIL2CIV( "0000" ) and FT_MIL2CIV( "2400" ) -> 12:00 m + * FT_MIL2CIV( "0000" ) // 12:00 m + * + * FT_MIL2CIV( "2400" ) // 12:00 m * * Caution: leading blanks are irrelevant. * $SEEALSO$ @@ -94,13 +96,13 @@ * $DESCRIPTION$ * Converts time from 12-hour civilian format to military. * $EXAMPLES$ - * FT_CIV2MIL( " 5:40 pm" ) -> 1740 + * FT_CIV2MIL( " 5:40 pm" ) // 1740 * - * FT_CIV2MIL( " 5:40 am" ) -> 0540 + * FT_CIV2MIL( " 5:40 am" ) // 0540 * - * FT_CIV2MIL( "12:00 n" ) -> 1200 + * FT_CIV2MIL( "12:00 n" ) // 1200 * - * FT_CIV2MIL( "12:00 m" ) -> 0000 + * FT_CIV2MIL( "12:00 m" ) // 0000 * * Caution: leading blanks are irrelevant; p,a,n,m must be preceded by * one and only one space. @@ -125,7 +127,7 @@ * $DESCRIPTION$ * Return current system time as character string in military format. * $EXAMPLES$ - * FT_SYS2MIL() -> 1623 + * FT_SYS2MIL() // 1623 * $SEEALSO$ * FT_MIL2CIV() FT_CIV2MIL() * $END$ diff --git a/harbour/contrib/hbnf/doc/en/min2dhm.txt b/harbour/contrib/hbnf/doc/en/min2dhm.txt index 675a918f9b..b5cf12808c 100644 --- a/harbour/contrib/hbnf/doc/en/min2dhm.txt +++ b/harbour/contrib/hbnf/doc/en/min2dhm.txt @@ -16,11 +16,11 @@ * $RETURNS$ * * where: - * aDHM_[1] = cDAYS, aDHM_[2] = cHours, aDHM_[3] = cMinutes + * aDHM_[ 1 ] = cDAYS, aDHM_[ 2 ] = cHours, aDHM_[ 3 ] = cMinutes * $DESCRIPTION$ * Converts numeric minutes into a character array containing * days, hours & minutes. * $EXAMPLES$ - * aDHM_ = MIN2DHM(16789) -> aDHM_[1] = 11, aDHM_[2] = 15, aDHM_[3] = 49 + * aDHM_ := MIN2DHM( 16789 ) // aDHM_[ 1 ] = 11, aDHM_[ 2 ] = 15, aDHM_[ 3 ] = 49 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/month.txt b/harbour/contrib/hbnf/doc/en/month.txt index 3328786651..6ee9192b08 100644 --- a/harbour/contrib/hbnf/doc/en/month.txt +++ b/harbour/contrib/hbnf/doc/en/month.txt @@ -20,9 +20,9 @@ * $RETURNS$ * A three element array containing the following data: * - * aDateInfo[1] - The year and month as a character string "YYYYMM" - * aDateInfo[2] - The beginning date of the month - * aDateInfo[3] - The ending date of the month + * aDateInfo[ 1 ] - The year and month as a character string "YYYYMM" + * aDateInfo[ 2 ] - The beginning date of the month + * aDateInfo[ 3 ] - The ending date of the month * $DESCRIPTION$ * FT_MONTH() returns an array containing data about the month * containing the given date. diff --git a/harbour/contrib/hbnf/doc/en/mouse1.txt b/harbour/contrib/hbnf/doc/en/mouse1.txt index c4b5b6fad8..bde1ac0e2f 100644 --- a/harbour/contrib/hbnf/doc/en/mouse1.txt +++ b/harbour/contrib/hbnf/doc/en/mouse1.txt @@ -102,15 +102,15 @@ * This is a mouse meta function that checks for the presence * of a double click. * $EXAMPLES$ - * 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 + * 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() - * ENDIF + * MnuItem1() + * ENDIF * $SEEALSO$ - * FT_MBUTPRS() FT_MBUTREL() + * FT_MBUTPRS() FT_MBUTREL() * $END$ */ @@ -138,7 +138,7 @@ * $EXAMPLES$ * FT_MCONOFF( 10, 10, 11, 20 ) * $SEEALSO$ - * FT_MSHOWCRS() FT_MHIDECRS() FT_MXLIMIT() FT_MYLIMIT() FT_MINREGION() + * FT_MSHOWCRS() FT_MHIDECRS() FT_MXLIMIT() FT_MYLIMIT() FT_MINREGION() * $END$ */ @@ -160,10 +160,10 @@ * within the confines of the specified region. * $EXAMPLES$ * IF FT_MINREGION( 10, 10, 11, 20 ) - * nChoice := 1 + * nChoice := 1 * ENDIF * $SEEALSO$ - * FT_MXLIMIT() FT_MYLIMIT() FT_MINREGION() + * FT_MXLIMIT() FT_MYLIMIT() FT_MINREGION() * $END$ */ @@ -223,7 +223,7 @@ * * * $EXAMPLES$ - * FT_MSETSENS( 75,75,50 ) // a little less mouse movement necessary. + * FT_MSETSENS( 75, 75, 50 ) // a little less mouse movement necessary. * $SEEALSO$ * FT_MGETSENS() * $END$ @@ -293,10 +293,10 @@ * my screen showed 6.24 but this routine returned 30 for the minor version * number! * $EXAMPLES$ - * nMajor:=FT_MVERSION( @nMinor ) - * IF (nMajor+nMinor/100)<7.2 - * ? "Sorry mouse driver version too old" - * RETURN + * nMajor := FT_MVERSION( @nMinor ) + * IF ( nMajor + nMinor / 100 ) < 7.2 + * ? "Sorry mouse driver version too old" + * RETURN * ENDIF * $SEEALSO$ * FT_MSETSENS() @@ -313,7 +313,7 @@ * $SYNTAX$ * FT_MSETPAGE( <@nPage> ) -> NIL * $ARGUMENTS$ - * is the desired display page. + * is the desired display page. * $RETURNS$ * NIL * $DESCRIPTION$ @@ -346,7 +346,7 @@ * values of nPage is dependent upon the display mode. See FT_SETVPG() * for changing the current video page * $EXAMPLES$ - * nPage = FT_MGETPAGE( ) // Gets the mouse cursor display page + * nPage := FT_MGETPAGE( ) // Gets the mouse cursor display page * $SEEALSO$ * FT_MSETPAGE() * $END$ @@ -404,7 +404,7 @@ * This function works like most Clipper state functions. If no value * is sent to FT_MCURSOR() it will return the state of the mouse cursor. * $EXAMPLES$ - * IF !( FT_MCURSOR() ) + * IF ! FT_MCURSOR() * FT_MCURSOR( .T. ) * ENDIF * $END$ @@ -471,7 +471,7 @@ * does not increment the varaible above 0. * $EXAMPLES$ * FT_MHIDECRS() - * @ 10, 10 to 20, 20 + * @ 10, 10 TO 20, 20 * FT_MSHOWCRS() * $SEEALSO$ * FT_MSHOWCRS() FT_MCONOFF() @@ -543,7 +543,7 @@ * $EXAMPLES$ * ? FT_MGETX() * $SEEALSO$ - * FT_MGETCOORD() FT_MDEFCRS() FT_MGETPOS() FT_MGETY() + * FT_MGETCOORD() FT_MDEFCRS() FT_MGETPOS() FT_MGETY() * $END$ */ @@ -618,7 +618,7 @@ * coordinates. * $EXAMPLES$ * FT_MSETCOORD( 10, 20 ) // position mouse cursor at row 10, col 20 - * // in text screen coordinates + * // in text screen coordinates * $SEEALSO$ * FT_MGETPOS() FT_MGETCOORD() FT_MSETPOS() FT_MDEFCRS() FT_MGETX() FT_MGETY() * $END$ @@ -644,7 +644,7 @@ * $EXAMPLES$ * FT_MXLIMIT( 10, 20 ) * $SEEALSO$ - * FT_MYLIMIT() FT_MINREGION() + * FT_MYLIMIT() FT_MINREGION() * $END$ */ @@ -668,7 +668,7 @@ * $EXAMPLES$ * FT_MYLIMIT( 10, 20 ) * $SEEALSO$ - * FT_MXLIMIT() FT_MINREGION() + * FT_MXLIMIT() FT_MINREGION() * $END$ */ @@ -710,11 +710,11 @@ * Retrieves the mouse button status and the position of the cursor when * a button was last pressed. * $EXAMPLES$ - * IF Empty( FT_MBUTPRS(1) ) + * IF Empty( FT_MBUTPRS( 1 ) ) * ? "No Item selected" * ENDIF * $SEEALSO$ - * FT_MBUTREL() FT_MDBLCLK() + * FT_MBUTREL() FT_MDBLCLK() * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/netpv.txt b/harbour/contrib/hbnf/doc/en/netpv.txt index 04fc0bd253..a2b7b94e3e 100644 --- a/harbour/contrib/hbnf/doc/en/netpv.txt +++ b/harbour/contrib/hbnf/doc/en/netpv.txt @@ -38,9 +38,9 @@ * also the FutureValue and PresentValue for further explanations. * The formula to calculate the net present value is: * - * NetPresentValue = SUM(CashFlow[i] / ((1 + InterestRate) ** i)) - * FOR i = 1 TO NoOfCashFlows + * NetPresentValue := SUM( CashFlow[ i ] / ( ( 1 + InterestRate ) ** i ) ) + * FOR i := 1 TO NoOfCashFlows * $EXAMPLES$ - * nNetPresentValue := FT_NETPV(10000, 10, { 10000,15000,16000,17000 } ) + * nNetPresentValue := FT_NETPV( 10000, 10, { 10000, 15000, 16000, 17000 } ) * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/ntow.txt b/harbour/contrib/hbnf/doc/en/ntow.txt index 3a32e7b263..c079328d9e 100644 --- a/harbour/contrib/hbnf/doc/en/ntow.txt +++ b/harbour/contrib/hbnf/doc/en/ntow.txt @@ -40,10 +40,10 @@ * -> Twenty Three Dollars and 99/100 * * x := -23.99 - * cents := Str( ( x - int( x ) ) * 100, 2, 0 ) + "/100" - * x := int( x ) + * 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" + * ? string + FT_NTOW( Abs( x ) ) + " Dollars and " + "99/100" * -> Credit of Twenty Three Dollars and 99/100 * $END$ */ diff --git a/harbour/contrib/hbnf/doc/en/nwsem.txt b/harbour/contrib/hbnf/doc/en/nwsem.txt index 2e3e843bcc..b50a9b86ef 100644 --- a/harbour/contrib/hbnf/doc/en/nwsem.txt +++ b/harbour/contrib/hbnf/doc/en/nwsem.txt @@ -86,8 +86,8 @@ * @nHandle, @nOpenCnt ) * * IF nRc != 0 - * ? "Error: " + Str( nRc ) ) - * QUIT + * ? "Error: " + Str( nRc ) + * QUIT * ENDIF * $SEEALSO$ * FT_NWSEMEX() FT_NWSEMWAIT() FT_NWSEMSIG() FT_NWSEMCLOSE() FT_NWSEMLOCK() diff --git a/harbour/contrib/hbnf/doc/en/ontick.txt b/harbour/contrib/hbnf/doc/en/ontick.txt index 938e2adcfb..007e8fa328 100644 --- a/harbour/contrib/hbnf/doc/en/ontick.txt +++ b/harbour/contrib/hbnf/doc/en/ontick.txt @@ -32,16 +32,16 @@ * * FT_OnTick( "CLOCK", 9 ) * - * procedure Clock + * PROCEDURE Clock() * - * local nRow := Row() - * local nCol := Col() + * LOCAL nRow := Row() + * LOCAL nCol := Col() * - * @ 0, 0 say Time() + * @ 0, 0 SAY Time() * - * SetPos( nRow, nCol ) + * SetPos( nRow, nCol ) * - * return + * RETURN * * $SEEALSO$ * diff --git a/harbour/contrib/hbnf/doc/en/origin.txt b/harbour/contrib/hbnf/doc/en/origin.txt index 607202ba92..536737e1ee 100644 --- a/harbour/contrib/hbnf/doc/en/origin.txt +++ b/harbour/contrib/hbnf/doc/en/origin.txt @@ -29,8 +29,8 @@ * $EXAMPLES$ * cMyFile := FT_ORIGIN() * - * IF cMyFile != "C:\appdir\myfile.exe" - * ?"Incorrect startup file. Please remove/rename and start again" + * IF !( cMyFile == "C:\appdir\myfile.exe" ) + * ? "Incorrect startup file. Please remove/rename and start again" * QUIT * ENDIF * $SEEALSO$ diff --git a/harbour/contrib/hbnf/doc/en/pchr.txt b/harbour/contrib/hbnf/doc/en/pchr.txt index ac84eaa70a..4a847b7202 100644 --- a/harbour/contrib/hbnf/doc/en/pchr.txt +++ b/harbour/contrib/hbnf/doc/en/pchr.txt @@ -4,13 +4,13 @@ /* $DOC$ * $FUNCNAME$ - * FT_PCHR() + * FT_PChr() * $CATEGORY$ * String * $ONELINER$ * Convert printer control codes * $SYNTAX$ - * FT_PCHR( ) -> + * FT_PChr( ) -> * $ARGUMENTS$ * is the representation of the printer control codes in * text, numeric, hexadecimal, Epson command format, or any combination @@ -74,17 +74,17 @@ * /USA Select USA international char set * * $EXAMPLES$ - * cSetUp := '27,116,1' - * Set Print ON - * ? FT_PCHR( cSetUp ) -> (CHR(27)+CHR(116)+CHR(1)) + * cSetUp := "27,116,1" + * SET PRINT ON + * ? FT_PChr( cSetUp ) -> (Chr(27)+Chr(116)+Chr(1)) *