From 1144986ffadf7059871dc59789aa885b60de2134 Mon Sep 17 00:00:00 2001 From: Chen Kedem Date: Mon, 19 Apr 2004 08:44:06 +0000 Subject: [PATCH] 2004-04-19 11:43 UTC+0300 Chen Kedem --- harbour/ChangeLog | 9 ++ harbour/doc/en/rdd.txt | 217 +-------------------------------------- harbour/doc/en/rdddb.txt | 117 +-------------------- 3 files changed, 13 insertions(+), 330 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index fe5f607490..e999df7d70 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,15 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2004-04-19 11:43 UTC+0300 Chen Kedem + * doc/en/rdd.txt + - Remove docs for: RDDLIST(), RDDNAME(), RDDSETDEFAULT(), __RDDSETDEFAULT() + because of copyright violation! (the file is now EMPTY) + + * doc/en/rdddb.txt + - Remove docs for: __DBCONTINUE(), __DBZAP() + because of copyright violation! + 2004-04-17 12:30 UTC+0100 Ryszard Glab * include/hbapi.h * source/rtl/empty.c diff --git a/harbour/doc/en/rdd.txt b/harbour/doc/en/rdd.txt index c60d73e2ae..814a5ded1f 100644 --- a/harbour/doc/en/rdd.txt +++ b/harbour/doc/en/rdd.txt @@ -6,222 +6,11 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Luiz Rafael Culik - * DB*() documentation - * ORD*() documentation - * RDD*() documentation - * * See doc/license.txt for licensing terms. * */ - -/* $DOC$ - * $FUNCNAME$ - * RDDLIST() - * $CATEGORY$ - * Database - * $ONELINER$ - * Return an array of the available Replaceable Database Drivers - * $SYNTAX$ - * RDDLIST([]) --> aRDDList - * $ARGUMENTS$ - * is an integer that represents the type of the RDD you - * wish to list. The constants RDT_FULL and RDT_TRANSFER represent the two - * types of RDDs currently available. - * - * RDDType Summary - * 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 - * Constant Value Meaning - * 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 - * RDT_FULL 1 Full RDD implementation - * RDT_TRANSFER 2 Import/Export only driver - * 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 - * - * RDT_FULL identifies full-featured RDDs that have all the capabilities - * associated with an RDD. - * - * RDT_TRANSFER identifies RDDs of limited capability. They can only - * transfer records between files. You cannot use these limited RDD - * drivers to open a file in a work area. The SDF and DELIM drivers are - * examples of this type of RDD. They are only used in the implementation - * of APPEND FROM and COPY TO with SDF or DELIMITED files. - * $RETURNS$ - * RDDLIST() returns a one-dimensional array of the RDD names registered - * with the application as . - * $DESCRIPTION$ - * RDDLIST() is an RDD function that returns a one-dimensional array that - * lists the available RDDs. - * - * If you do not supply , all available RDDs, regardless of type, - * are returned. - * $EXAMPLES$ - * In this example RDDLIST() returns an array containing the - * character strings, "DBF", "SDF", "DELIM", "DBFCDX", and "DBFNTX": - * - * REQUEST DBFCDX - * - * . - * . < statements > - * . - * - * aRDDs := RDDLIST() - * - * // Returns {"DBF", SDF", "DELIM", "DBFCDX", "DBFNTX" } - * - * In this example, RDDLIST() returns an array containing the - * character strings, "SDF" and "DELIM": - * - * #include "rddsys.ch" - * . - * . < statements > - * . - * aImpExp := RDDLIST( RDT TRANSFER ) - * - * $TESTS$ - * - * $STATUS$ - * R - * $COMPLIANCE$ - * - * $SEEALSO$ - * - * $INCLUDE$ - * RDDSYS.CH - * $END$ +/* + NOTE: I deleted all the information in this file due to copyright + vilolation! 2004-4-19 [ckedem]. */ - -/* $DOC$ - * $FUNCNAME$ - * RDDNAME() - * $CATEGORY$ - * Database - * $ONELINER$ - * Return the name of the currently active RDD - * $SYNTAX$ - * RDDNAME() --> cRDDName - * $ARGUMENTS$ - * - * $RETURNS$ - * Returns a character string, cRDDName, the registered name of the active - * RDD in the current or specified work area. - * $DESCRIPTION$ - * RDDNAME() is an RDD function that returns a character string, cRDDName, - * the name of the active RDD in the current or specified work area. - * - * You can specify a work area other than the currently active work area by - * aliasing the function. - * $EXAMPLES$ - * USE Customer VIA "DBFNTX" NEW - * USE Sales VIA "DBFCDX" NEW - * - * ? RDDNAME() // Returns: DBFCDX - * ? Customer->( RDDNAME() ) // Returns: DBFNTX - * ? Sales->( RDDNAME() ) // Returns: DBFCDX - * $TESTS$ - * - * $STATUS$ - * R - * $COMPLIANCE$ - * - * $SEEALSO$ - * RDDLIST() - * $INCLUDE$ - * - * $END$ - */ - -/* $DOC$ - * $FUNCNAME$ - * RDDSETDEFAULT() - * $CATEGORY$ - * Database - * $ONELINER$ - * Set or return the default RDD for the application - * $SYNTAX$ - * RDDSETDEFAULT([]) - * --> cPreviousDefaultRDD - * - * $ARGUMENTS$ - * is a character string, the name of the RDD that is - * to be made the new default RDD in the application. - * $RETURNS$ - * RDDSETDEFAULT() returns a character string, cPreviousDefaultRDD, the - * name of the previous default driver. The default driver is the driver - * that HARBOUR uses if you do not explicitly specify an RDD with the - * VIA clause of the USE command. - * $DESCRIPTION$ - * RDDSETDEFAULT() is an RDD function that sets or returns the name of the - * previous default RDD driver and, optionally, sets the current driver to - * the new RDD driver specified by cNewDefaultRDD. If - * is not specified, the current default driver name is returned and - * continues to be the current default driver. - * - * This function replaces the DBSETDRIVER() function. - * $EXAMPLES$ - * // If the default driver is not DBFNTX, make it the default - * - * IF ( RDDSETDEFAULT() != "DBFNTX" ) - * cOldRdd := RDDSETDEFAULT( "DBFNTX" ) - * ENDIF - * $TESTS$ - * - * $STATUS$ - * R - * $COMPLIANCE$ - * - * $SEEALSO$ - * DBSETDRIVER() - * $INCLUDE$ - * - * $END$ - */ - - -/* $DOC$ - * $FUNCNAME$ - * __RDDSETDEFAULT() - * $CATEGORY$ - * Database - * $ONELINER$ - * Set or return the default RDD for the application - * $SYNTAX$ - * __RDDSETDEFAULT([]) - * --> cPreviousDefaultRDD - * - * $ARGUMENTS$ - * is a character string, the name of the RDD that is - * to be made the new default RDD in the application. - * $RETURNS$ - * __RDDSETDEFAULT() returns a character string, cPreviousDefaultRDD, the - * name of the previous default driver. The default driver is the driver - * that HARBOUR uses if you do not explicitly specify an RDD with the - * VIA clause of the USE command. - * $DESCRIPTION$ - * RDDSETDEFAULT() is an RDD function that sets or returns the name of the - * previous default RDD driver and, optionally, sets the current driver to - * the new RDD driver specified by cNewDefaultRDD. If - * is not specified, the current default driver name is returned and - * continues to be the current default driver. - * - * This function replaces the DBSETDRIVER() function. - * $EXAMPLES$ - * // If the default driver is not DBFNTX, make it the default - * - * IF ( __RDDSETDEFAULT() != "DBFNTX" ) - * cOldRdd := __RDDSETDEFAULT( "DBFNTX" ) - * ENDIF - * $TESTS$ - * - * $STATUS$ - * R - * $COMPLIANCE$ - * - * $SEEALSO$ - * DBSETDRIVER() - * $INCLUDE$ - * - * $END$ - */ - - diff --git a/harbour/doc/en/rdddb.txt b/harbour/doc/en/rdddb.txt index fea428c679..b1e943f0e2 100644 --- a/harbour/doc/en/rdddb.txt +++ b/harbour/doc/en/rdddb.txt @@ -369,76 +369,6 @@ * $END$ */ -/* $DOC$ - * $FUNCNAME$ - * __DBCONTINUE() - * $CATEGORY$ - * Database - * $ONELINER$ - * Resume a pending LOCATE - * $SYNTAX$ - * __DbCONTINUE() --> NIL - * $RETURNS$ - * __DbCONTINUE() Always return NIL - * $DESCRIPTION$ - * __DBCONTINUE is a database command that searches from the current record - * position for the next record meeting the most recent LOCATE condition - * executed in the current work area. It terminates when a match is found - * or end of file is encountered. If __DBCONTINUE is successful, the matching - * record becomes the current record and FOUND() returns true (.T.); if - * unsuccessful, FOUND() returns false (.F.). - * - * Each work area may have an active LOCATE condition. In CA-Clipper, a - * LOCATE condition remains pending until a new LOCATE condition is - * specified. No other commands release the condition. - * - * Notes - * - * Scope and WHILE condition: Note that the scope and WHILE - * condition of the initial LOCATE are ignored; only the FOR condition - * is used with CONTINUE. If you are using a LOCATE with a WHILE - * condition and want to continue the search for a matching record, use - * SKIP and then repeat the original LOCATE statement adding REST as the - * scope. - * - * $EXAMPLES$ - * This example scans records in Sales.dbf for a particular - * salesman and displays a running total sales amounts: - * - * LOCAL nRunTotal := 0 - * USE Sales NEW - * LOCATE FOR Sales->Salesman = "1002" - * DO WHILE FOUND() - * ? Sales->Salesname, nRunTotal += Sales->Amount - * __DBCONTINUE() - * ENDDO - * - * This example demonstrates how to continue if the pending - * LOCATE scope contains a WHILE condition: - * - * LOCAL nRunTotal := 0 - * USE Sales INDEX Salesman NEW - * SEEK "1002" - * LOCATE REST WHILE Sales->Salesman = "1002"; - * FOR Sales->Amount > 5000 - * DO WHILE FOUND() - * ? Sales->Salesname, nRunTotal += Sales->Amount - * SKIP - * LOCATE REST WHILE Sales->Salesman = "1002"; - * FOR Sales->Amount > 5000 - * ENDDO - * - * $STATUS$ - * R - * $COMPLIANCE$ - * This function is CA-Clipper compliant. - * $FILES$ - * Library is rdd - * $SEEALSO$ - * EOF(),FOUND() - * $END$ - */ - /* $DOC$ * $FUNCNAME$ * DBCREATE() @@ -695,7 +625,7 @@ * $CATEGORY$ * Database * $ONELINER$ - * Moves the record pointer to the bottom of the database. + * Moves the record pointer to the top of the database. * $SYNTAX$ * DBGOTOP() --> NIL * $RETURNS$ @@ -1288,48 +1218,3 @@ * $END$ */ -/* $DOC$ - * $FUNCNAME$ - * __DBZAP() - * $CATEGORY$ - * Database - * $ONELINER$ - * Remove all records from the current database file - * $SYNTAX$ - * __DbZap() --> NIL - * $RETURNS$ - * __DbZap() will always return NIL - * $DESCRIPTION$ - * __DbZap() is a database command that permanently removes all records - * from files open in the current work area. This includes the current - * database file, index files, and associated memo file. Disk space - * previously occupied by the ZAPped files is released to the operating - * system. - * - * __DbZap() performs the same operation as DELETE ALL followed by PACK - * but is almost instantaneous. - * - * To ZAP in a network environment, the current database file must be - * USEd EXCLUSIVEly. - * - * $EXAMPLES$ - * This example demonstrates a typical ZAP operation in a network - * environment: - * - * USE Sales EXCLUSIVE NEW - * IF !NETERR() - * SET INDEX TO Sales, Branch, Salesman - * __dbZAP() - * CLOSE Sales - * ELSE - * ? "Zap operation failed" - * BREAK - * ENDIF - * $STATUS$ - * R - * $COMPLIANCE$ - * This function is CA Clipper compliant - * $FILES$ - * Library is rdd - * $END$ - */