From 0ded3a9e715a7549883dda9921672ce523392cba Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Wed, 7 Jul 1999 19:24:50 +0000 Subject: [PATCH] see changelog --- harbour/ChangeLog | 7 ++++++ harbour/tests/working/debugtst.prg | 32 ++++++++++++++++++++++++-- harbour/tests/working/guess.prg | 4 ++-- harbour/tests/working/inherit.prg | 29 +++++++++++++++++++++++- harbour/tests/working/mankala.prg | 6 +++++ harbour/tests/working/readhrb.prg | 36 +++++++++++++++++++++++++----- harbour/tests/working/strcmp.prg | 2 ++ harbour/tests/working/strip.prg | 27 ++++++++++++++++++++++ harbour/tests/working/transfrm.prg | 30 +++++++++++++++++++++++-- 9 files changed, 161 insertions(+), 12 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 88b11d8cf9..78b95232ed 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +19990707-20:10 Eddie Runia + * tests/working/mankala.prg; tests/working/transfrm.prg; + tests/working/debugtst.prg; tests/working/readhrb.prg; + tests/working/strip.prg; tests/working/inherit.prg; + tests/working/guess.prg + Copyright added (why not) + 19990707-19:40:00 Eddie Runia * source\rtl\asort.prg; source\rtl\objfunc.prg; source\runner\runner.c; tests\working\runner.c; source\tools\debug.c; source\tools\stringp.prg diff --git a/harbour/tests/working/debugtst.prg b/harbour/tests/working/debugtst.prg index 738ba8eb1d..f2bbe558f5 100644 --- a/harbour/tests/working/debugtst.prg +++ b/harbour/tests/working/debugtst.prg @@ -1,11 +1,39 @@ -/* $Doc$ +/* + * $Doc$ * $Description$ Debug function tests. * Based on classes.prg * $Requirement$ source\tools\stringp.prg * source\rtl\objfunc.prg * source\rtl\asort.prg * $Date$ - * $End$ */ + * $End$ + * + * Copyright (C) 1999 Eddie Runia + * www - http://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/). + * + */ function Main() diff --git a/harbour/tests/working/guess.prg b/harbour/tests/working/guess.prg index 73e58e4b23..2012177cec 100644 --- a/harbour/tests/working/guess.prg +++ b/harbour/tests/working/guess.prg @@ -1,8 +1,8 @@ // // Guess a number // -// Written by : E.Runia -// Date : 22/4/99 +// Copyright (C) 1999 Eddie Runia +// Date : 1999/04/22 // // My first application (big word) written in Harbour // diff --git a/harbour/tests/working/inherit.prg b/harbour/tests/working/inherit.prg index 9bbcaa9e40..5f855bc840 100644 --- a/harbour/tests/working/inherit.prg +++ b/harbour/tests/working/inherit.prg @@ -3,11 +3,38 @@ // // Inherit // -// First step to inheritage +// Test of inheritance // // Date : 30/05/1999 // +/* + * Copyright (C) 1999 Eddie Runia + * www - http://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/). + */ + function Main() local oFrom diff --git a/harbour/tests/working/mankala.prg b/harbour/tests/working/mankala.prg index 82d17b1e5d..be46fb2ace 100644 --- a/harbour/tests/working/mankala.prg +++ b/harbour/tests/working/mankala.prg @@ -1,9 +1,15 @@ // // Mankala. The first Harbour board game. // +// Copyright (C) 1999 Eddie Runia +// // Date : 30/04/1999 // Time : 14:00 // +// Original algorithm from the public domain +// +// This test has therefore been placed in the public domain +// function Main() diff --git a/harbour/tests/working/readhrb.prg b/harbour/tests/working/readhrb.prg index c1e75ca134..ba561c0f0f 100644 --- a/harbour/tests/working/readhrb.prg +++ b/harbour/tests/working/readhrb.prg @@ -1,10 +1,36 @@ /* - ReadHRB + * ReadHRB + * + * This program will read the .HRB file and shows its contents + * + * ReadHRB {No .HRB extension please} + * + * Copyright (C) 1999 Eddie Runia + * www - http://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/). + */ - This program will read the .HRB file and shows its contents - - ReadHRB {No .HRB extension please} -*/ #include "set.ch" function Main( cFrom ) diff --git a/harbour/tests/working/strcmp.prg b/harbour/tests/working/strcmp.prg index 9d6a53f1ea..e884966cc8 100644 --- a/harbour/tests/working/strcmp.prg +++ b/harbour/tests/working/strcmp.prg @@ -3,6 +3,8 @@ // // Date : 24/4/99 Time : 17:50 // +// Copyright (C) 1999 Eddie Runia +// procedure main() diff --git a/harbour/tests/working/strip.prg b/harbour/tests/working/strip.prg index f9e501990c..71ed10b6e1 100644 --- a/harbour/tests/working/strip.prg +++ b/harbour/tests/working/strip.prg @@ -14,6 +14,33 @@ // Default files : From = strip.prg To = strip.out // +/* + * Copyright (C) 1999 Eddie Runia + * www - http://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/). + */ + function Main( cFrom, cTo ) local oFrom diff --git a/harbour/tests/working/transfrm.prg b/harbour/tests/working/transfrm.prg index f18a48c994..495cfa95ca 100644 --- a/harbour/tests/working/transfrm.prg +++ b/harbour/tests/working/transfrm.prg @@ -1,7 +1,33 @@ #include "set.ch" -//extern OutStd -//extern Str +/* + * Test of the transform function + * + * Copyright (C) 1999 Eddie Runia + * www - http://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/). + */ function Main()