see changelog

harbour/ChangeLog

@@ -1,3 +1,7 @@
+19990808-10:15 Eddie Runia <eddie@runia.com>
+   * source/rtl/transfrm.c
+     header change
+
 19990708-14:00 Andi Jahja <andij@aonlippo.co.id>
    * source/rtl/file.c
    Change per Paul for MSC
@@ -93,6 +97,9 @@ tests/working :
   + extend2.c
     These are test programs for Harbour extend system
 
+19990707-20:50 Eddie Runia <eddie@runia.com>
+  - tests/working/asctest.prg
+    not an original work
 
 19990707-20:10 Eddie Runia <eddie@runia.com>
   * tests/working/mankala.prg; tests/working/transfrm.prg;

harbour/source/rtl/transfrm.c

@@ -6,6 +6,29 @@
  * TransForm. Clipper transformation function
  *
  * Copyright (C) 1999 Eddie Runia (eddie@runia.com)
+ * Part of the Harbour Project www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version, with one exception:
+ *
+ * The exception is that if you link the Harbour Runtime Library (HRL)
+ * and/or the Harbour Virtual Machine (HVM) with other files to produce
+ * an executable, this does not by itself cause the resulting executable
+ * to be covered by the GNU General Public License. Your use of that
+ * executable is in no way restricted on account of linking the HRL
+ * and/or HVM code into it.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
+ * their web site at http://www.gnu.org/).
  */
 
 #include <extend.h>

harbour/tests/working/asctest.prg

@@ -1,35 +0,0 @@
-// example from clipper reference guide
-
-procedure main()
-  local aArr1 := { "Tom", "Mary", "Sue" }
-  local aArr2 := { "Tom", "Mary", "Sue", "Mary" }
-  local aArr3 := {}
-  local nLen, nStart := 1, nPos
-
-  QOut( "Search 'Mary' in 'Tom, Mary, Sue' => " )
-  QQOut( AScan( aArr1, "Mary" ) )
-  QOut( "Search 'mary' in 'Tom, Mary, Sue' => " )
-  QQOut( AScan( aArr1, "mary" ) )
-
-  nLen := Len( aArr2 )
-  do while ( nPos := AScan( aArr2, "Mary", nStart ) ) > 0
-     QOut( "Search 'Mary' in 'Tom, Mary, Sue, Mary' from ", nStart, " => " )
-     QQOut( nPos, aArr2[ nPos ] )
-     nStart := nPos + 1
-     if nStart > nLen
-       exit
-     endif
-  enddo
-
-  AAdd( aArr3, { "one",   "two"  } )
-  AAdd( aArr3, { "three", "four" } )
-  AAdd( aArr3, { "five",  "six"  } )
-  QOut( AScan( aArr3, { | aVal | Dump( aVal ) } ) )
-
-return
-
-function Dump( aVal )
-
-  QOut( ValType( aVal ) )
-
-return