diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a4c1649032..5baf376faa 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,137 @@ +Tue Jul 13 14:06:03 1999 Gonzalo A. Diethelm + + * include/classes.ch: + * include/compat.h: + * include/extra.h: + * include/super.h: + * source/rtl/natmsg/msgbas.c: + * source/runner/run_exp.h: + * source/runner/runner.c: + * tests/broken/clasname.prg: + * tests/broken/parexpr.prg: + * tests/broken/statics1.prg: + * tests/broken/statics2.prg: + * tests/broken/vec1.prg: + * tests/working/ainstest.prg: + * tests/working/and_or.prg: + * tests/working/array16.prg: + * tests/working/arrayidx.prg: + * tests/working/arrays.prg: + * tests/working/arrindex.prg: + * tests/working/atest.prg: + * tests/working/box.prg: + * tests/working/byref.prg: + * tests/working/calling.prg: + * tests/working/cdow.prg: + * tests/working/clasinit.prg: + * tests/working/classch.prg: + * tests/working/classes.prg: + * tests/working/clsdata.prg: + * tests/working/cmphello.prg: + * tests/working/codebl.prg: + * tests/working/codebloc.prg: + * tests/working/comments.prg: + * tests/working/copyfile.prg: + * tests/working/dates.prg: + * tests/working/dates2.prg: + * tests/working/dates3.prg: + * tests/working/debugtst.prg: + * tests/working/descend.prg: + * tests/working/dirtest.prg: + * tests/working/docase.prg: + * tests/working/dosshell.prg: + * tests/working/dupvars.prg: + * tests/working/dynobj.prg: + * tests/working/empty.prg: + * tests/working/exittest.prg: + * tests/working/extend1.prg: + * tests/working/extend2.c: + * tests/working/fib.prg: + * tests/working/fileio.prg: + * tests/working/filexist.prg: + * tests/working/fornext.prg: + * tests/working/fornext2.prg: + * tests/working/funcarr.prg: + * tests/working/guess.prg: + * tests/working/hardcr.prg: + * tests/working/hello.prg: + * tests/working/ifelse.prg: + * tests/working/ifinline.prg: + * tests/working/inherit.prg: + * tests/working/inifiles.prg: + * tests/working/initexit.prg: + * tests/working/inline.prg: + * tests/working/instr.prg: + * tests/working/iotest.prg: + * tests/working/iotest2.prg: + * tests/working/keywords.prg: + * tests/working/linecont.prg: + * tests/working/longstr.prg: + * tests/working/longstr2.prg: + * tests/working/mankala.prg: + * tests/working/mathtest.prg: + * tests/working/mtran.prg: + * tests/working/multiarg.prg: + * tests/working/nums.prg: + * tests/working/objarr.prg: + * tests/working/objasign.prg: + * tests/working/objects.prg: + * tests/working/operat.prg: + * tests/working/os.prg: + * tests/working/output.prg: + * tests/working/overload.prg: + * tests/working/passref.prg: + * tests/working/procline.prg: + * tests/working/procname.prg: + * tests/working/readhrb.prg: + * tests/working/recursiv.prg: + * tests/working/returns.prg: + * tests/working/round.prg: + * tests/working/rtfclass.prg: + * tests/working/rtl_test.prg: + * tests/working/say.prg: + * tests/working/scroll.prg: + * tests/working/seconds.prg: + * tests/working/set_num.prg: + * tests/working/set_test.prg: + * tests/working/spawn.prg: + * tests/working/spawn2.prg: + * tests/working/statfun.prg: + * tests/working/statics.prg: + * tests/working/strcmp.prg: + * tests/working/strdelim.prg: + * tests/working/strings.prg: + * tests/working/strings2.prg: + * tests/working/strings3.prg: + * tests/working/strings4.prg: + * tests/working/strip.prg: + * tests/working/syserror.prg: + * tests/working/t1.prg: + * tests/working/test.prg: + * tests/working/test10.prg: + * tests/working/test_all.prg: + * tests/working/testcgi.prg: + * tests/working/testcopy.prg: + * tests/working/testerro.prg: + * tests/working/testfor.prg: + * tests/working/testgt.prg: + * tests/working/testhbf.prg: + * tests/working/testhtml.prg: + * tests/working/testid.prg: + * tests/working/testinc.prg: + * tests/working/testmem.prg: + * tests/working/teststr.prg: + * tests/working/testtok.prg: + * tests/working/testvars.prg: + * tests/working/testwarn.prg: + * tests/working/transfrm.prg: + * tests/working/val.prg: + * tests/working/version.prg: + * tests/working/while.prg: + Added RCS Id keywords to all these files. + Got rid of a few '//' comments in C/H files. + Added include guards to a few H files. + Tue Jul 13 13:44:04 1999 Gonzalo A. Diethelm * include/Makefile: diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch index 6aca03d14c..c6cdf8b33f 100644 --- a/harbour/include/classes.ch +++ b/harbour/include/classes.ch @@ -1,3 +1,10 @@ +/* + * $Id$ + */ + +#ifndef _CLASSES_CH +#define _CLASSES_CH + /* Harbour classes commands Copyright(C) 1999 by Antonio Linares. @@ -46,3 +53,4 @@ #xcommand METHOD ([]) CLASS => ; static function ( [] ) ; local Self := QSelf() +#endif /* _CLASSES_CH */ diff --git a/harbour/include/compat.h b/harbour/include/compat.h index 39dcfe70d1..52f2fb52f7 100644 --- a/harbour/include/compat.h +++ b/harbour/include/compat.h @@ -1,9 +1,18 @@ +/* + * $Id$ + */ + +#ifndef HB_COMPAT_H_ +#define HB_COMPAT_H_ + #ifndef HRBCLIPPER #define far #define near #define _near -//#define pascal +/* #define pascal */ typedef void * FARP; #endif #define _DEBUG + +#endif /* HB_COMPAT_H_ */ diff --git a/harbour/include/extra.h b/harbour/include/extra.h index e5cf4d789a..30541f636e 100644 --- a/harbour/include/extra.h +++ b/harbour/include/extra.h @@ -1,5 +1,12 @@ +/* + * $Id$ + */ + +#ifndef HB_EXTRA_H_ +#define HB_EXTRA_H_ + #ifndef HARBOUR_OK -#define HARBOUR_OK 0 // ES_WHOCARES +#define HARBOUR_OK 0 /* ES_WHOCARES */ #endif @@ -16,7 +23,7 @@ typedef BOOL * BOOLP; #define HARBOUR_ParamList void * #define paramList paramList #define XBONLY( x ) x -// xbReleaseC( cFieldName ) +/* xbReleaseC( cFieldName ) */ #else #define PCOUNT( paramList ) hb_parinfo(0) @@ -26,8 +33,12 @@ typedef BOOL * BOOLP; #endif #ifdef __GNUC__ -//define HARBOUR void __attribute__ ((stdcall)) -//already defined in ./include/ + +#if 0 +/* already defined in ./include/ */ +#define HARBOUR void __attribute__ ((stdcall)) +#endif + #else #define HARBOUR void #endif @@ -128,3 +139,5 @@ void logmsg( char *s, ...); #define DEBUGTRACE10(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10 ) #define DEBUGTRACEX( x, y ) #endif + +#endif /* HB_EXTRA_H_ */ diff --git a/harbour/include/super.h b/harbour/include/super.h index 13395de33c..d344dabcfc 100644 --- a/harbour/include/super.h +++ b/harbour/include/super.h @@ -1,4 +1,10 @@ +/* + * $Id$ + */ + +#ifndef HB_SUPER_H_ +#define HB_SUPER_H_ + #define SUPER_VERSION "version 0.00" - - +#endif /* HB_SUPER_H_ */ diff --git a/harbour/source/rtl/natmsg/msgbas.c b/harbour/source/rtl/natmsg/msgbas.c index a397eddce2..1e4ed7a5d0 100644 --- a/harbour/source/rtl/natmsg/msgbas.c +++ b/harbour/source/rtl/natmsg/msgbas.c @@ -1,6 +1,9 @@ +/* + * $Id$ + */ + /* * Language support unit for Basque - * */ char *hb_monthsname[ 12 ] = { diff --git a/harbour/source/runner/run_exp.h b/harbour/source/runner/run_exp.h index 25648e02eb..c721e46536 100644 --- a/harbour/source/runner/run_exp.h +++ b/harbour/source/runner/run_exp.h @@ -1,11 +1,16 @@ /* - * + * $Id$ + */ + +#ifndef HB_RUN_EXP_H_ +#define HB_RUN_EXP_H_ + +/* * This file contains the exportable functions available to the Harbour program * * Currently being discussed in 'Static initializers' * * If the discussion has finished, it can be removed from here. - * */ HARBOUR HB___AGLOBALSTACK(); HARBOUR HB___APARAM(); @@ -127,4 +132,4 @@ HB_INIT_SYMBOLS_BEGIN( RUNNER ) HB_INIT_SYMBOLS_END( RUNNER ); #pragma startup RUNNER - +#endif /* HB_RUN_EXP_H_ */ diff --git a/harbour/source/runner/runner.c b/harbour/source/runner/runner.c index 9f0e3502d0..9553fa7d42 100644 --- a/harbour/source/runner/runner.c +++ b/harbour/source/runner/runner.c @@ -1,3 +1,7 @@ +/* + * $Id$ + */ + #include "pcode.h" #include diff --git a/harbour/tests/broken/clasname.prg b/harbour/tests/broken/clasname.prg index 2b698994e8..3032128c8a 100644 --- a/harbour/tests/broken/clasname.prg +++ b/harbour/tests/broken/clasname.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // The following code tests the application of the className message // against the "fundemental" types of Clipper. diff --git a/harbour/tests/broken/parexpr.prg b/harbour/tests/broken/parexpr.prg index bc81fba60d..cb759456cf 100644 --- a/harbour/tests/broken/parexpr.prg +++ b/harbour/tests/broken/parexpr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // The following code tests harbour's ability to cope with parenthesized // expressions. diff --git a/harbour/tests/broken/statics1.prg b/harbour/tests/broken/statics1.prg index 6828e0bc08..7cd1850744 100644 --- a/harbour/tests/broken/statics1.prg +++ b/harbour/tests/broken/statics1.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Statics overlapped! // // Compile statics1.prg, statics2.prg and link both files diff --git a/harbour/tests/broken/statics2.prg b/harbour/tests/broken/statics2.prg index 0bddd895d2..967ac30387 100644 --- a/harbour/tests/broken/statics2.prg +++ b/harbour/tests/broken/statics2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Statics overlapped! // // Compile statics1.prg, statics2.prg and link both files diff --git a/harbour/tests/broken/vec1.prg b/harbour/tests/broken/vec1.prg index f2b21af315..6e20f75995 100644 --- a/harbour/tests/broken/vec1.prg +++ b/harbour/tests/broken/vec1.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + FUNCTION Main() diff --git a/harbour/tests/working/ainstest.prg b/harbour/tests/working/ainstest.prg index 0f8fc170a2..418e28a65d 100644 --- a/harbour/tests/working/ainstest.prg +++ b/harbour/tests/working/ainstest.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Array test aIns / aDel / aSize / aFill // diff --git a/harbour/tests/working/and_or.prg b/harbour/tests/working/and_or.prg index 410ca9e78e..45e914a0e5 100644 --- a/harbour/tests/working/and_or.prg +++ b/harbour/tests/working/and_or.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour AND OR operators function And_Or() // Main() is not required! diff --git a/harbour/tests/working/array16.prg b/harbour/tests/working/array16.prg index be43ad0275..0d9a893e58 100644 --- a/harbour/tests/working/array16.prg +++ b/harbour/tests/working/array16.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Harbour multidimensional arrays support function Main() diff --git a/harbour/tests/working/arrayidx.prg b/harbour/tests/working/arrayidx.prg index 2b1dc0da6a..8ae67b9849 100644 --- a/harbour/tests/working/arrayidx.prg +++ b/harbour/tests/working/arrayidx.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Array Index tests // diff --git a/harbour/tests/working/arrays.prg b/harbour/tests/working/arrays.prg index 79c14e68aa..c0369e0ea6 100644 --- a/harbour/tests/working/arrays.prg +++ b/harbour/tests/working/arrays.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Harbour multidimensional arrays support function Main() diff --git a/harbour/tests/working/arrindex.prg b/harbour/tests/working/arrindex.prg index 04e14fad27..71adee8894 100644 --- a/harbour/tests/working/arrindex.prg +++ b/harbour/tests/working/arrindex.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + Function Main local a, b , c diff --git a/harbour/tests/working/atest.prg b/harbour/tests/working/atest.prg index ec48ebabd8..2a0fab58d3 100644 --- a/harbour/tests/working/atest.prg +++ b/harbour/tests/working/atest.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // releasing arrays test function Main() diff --git a/harbour/tests/working/box.prg b/harbour/tests/working/box.prg index 5a9a0cad1d..9cfda69f83 100644 --- a/harbour/tests/working/box.prg +++ b/harbour/tests/working/box.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour device management. #include "box.ch" diff --git a/harbour/tests/working/byref.prg b/harbour/tests/working/byref.prg index 09d23dd4b5..416dc5511d 100644 --- a/harbour/tests/working/byref.prg +++ b/harbour/tests/working/byref.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Managing variables by reference function Main() diff --git a/harbour/tests/working/calling.prg b/harbour/tests/working/calling.prg index 6fae1ed584..b3486d2b56 100644 --- a/harbour/tests/working/calling.prg +++ b/harbour/tests/working/calling.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Calling different PRG functions function Main() diff --git a/harbour/tests/working/cdow.prg b/harbour/tests/working/cdow.prg index bc6085e704..0a60a0977b 100644 --- a/harbour/tests/working/cdow.prg +++ b/harbour/tests/working/cdow.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + function main() OutStd( cMonth( date() ) + chr(10) ) diff --git a/harbour/tests/working/clasinit.prg b/harbour/tests/working/clasinit.prg index 0eef0ac537..a7aac67c1c 100644 --- a/harbour/tests/working/clasinit.prg +++ b/harbour/tests/working/clasinit.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Using Harbour Class TClass function Main() diff --git a/harbour/tests/working/classch.prg b/harbour/tests/working/classch.prg index 71148063dd..82775383ef 100644 --- a/harbour/tests/working/classch.prg +++ b/harbour/tests/working/classch.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour classes.ch commands #include "classes.ch" diff --git a/harbour/tests/working/classes.prg b/harbour/tests/working/classes.prg index f31ae6553a..fafb7c6012 100644 --- a/harbour/tests/working/classes.prg +++ b/harbour/tests/working/classes.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Using Harbour Class TClass function Main() diff --git a/harbour/tests/working/clsdata.prg b/harbour/tests/working/clsdata.prg index f5ddeacb3c..357a9936a9 100644 --- a/harbour/tests/working/clsdata.prg +++ b/harbour/tests/working/clsdata.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + Function Main() local o := TObject():New() diff --git a/harbour/tests/working/cmphello.prg b/harbour/tests/working/cmphello.prg index 8427a99b66..31c81625c1 100644 --- a/harbour/tests/working/cmphello.prg +++ b/harbour/tests/working/cmphello.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Compile Hello // diff --git a/harbour/tests/working/codebl.prg b/harbour/tests/working/codebl.prg index 0464552bf8..eb2a37b324 100644 --- a/harbour/tests/working/codebl.prg +++ b/harbour/tests/working/codebl.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + STATIC cbStatic Function Main() diff --git a/harbour/tests/working/codebloc.prg b/harbour/tests/working/codebloc.prg index 1ab4d14830..bb72346310 100644 --- a/harbour/tests/working/codebloc.prg +++ b/harbour/tests/working/codebloc.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // codeblocks test function Main() diff --git a/harbour/tests/working/comments.prg b/harbour/tests/working/comments.prg index fbbb66362d..e525f702f2 100644 --- a/harbour/tests/working/comments.prg +++ b/harbour/tests/working/comments.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour comments * diff --git a/harbour/tests/working/copyfile.prg b/harbour/tests/working/copyfile.prg index d79599b4d4..f1439055e9 100644 --- a/harbour/tests/working/copyfile.prg +++ b/harbour/tests/working/copyfile.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + FUNCTION Main() diff --git a/harbour/tests/working/dates.prg b/harbour/tests/working/dates.prg index 9fc3f0ccaa..c9689ae6f2 100644 --- a/harbour/tests/working/dates.prg +++ b/harbour/tests/working/dates.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour dates management. #include "set.ch" diff --git a/harbour/tests/working/dates2.prg b/harbour/tests/working/dates2.prg index 72d88b3132..7ef65e2df9 100644 --- a/harbour/tests/working/dates2.prg +++ b/harbour/tests/working/dates2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" function main() local newline := CHR(10) diff --git a/harbour/tests/working/dates3.prg b/harbour/tests/working/dates3.prg index 26a445a268..68f67a03f9 100644 --- a/harbour/tests/working/dates3.prg +++ b/harbour/tests/working/dates3.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour dates management. #include "set.ch" diff --git a/harbour/tests/working/debugtst.prg b/harbour/tests/working/debugtst.prg index 3b40f166f0..584f7d64ab 100644 --- a/harbour/tests/working/debugtst.prg +++ b/harbour/tests/working/debugtst.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* * $Doc$ * $Description$ Debug function tests. diff --git a/harbour/tests/working/descend.prg b/harbour/tests/working/descend.prg index 8bcaff29a7..1cc98b9a5c 100644 --- a/harbour/tests/working/descend.prg +++ b/harbour/tests/working/descend.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" function main() diff --git a/harbour/tests/working/dirtest.prg b/harbour/tests/working/dirtest.prg index b6b052fe9e..b440b035da 100644 --- a/harbour/tests/working/dirtest.prg +++ b/harbour/tests/working/dirtest.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // directory test function main(filespec,attribs) diff --git a/harbour/tests/working/docase.prg b/harbour/tests/working/docase.prg index 85d7316487..4c4b917f2e 100644 --- a/harbour/tests/working/docase.prg +++ b/harbour/tests/working/docase.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour Do case function Main() diff --git a/harbour/tests/working/dosshell.prg b/harbour/tests/working/dosshell.prg index 88c7b52bba..06c57ef06c 100644 --- a/harbour/tests/working/dosshell.prg +++ b/harbour/tests/working/dosshell.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // It is very frustrating if this one is auto-tested // // DosShell diff --git a/harbour/tests/working/dupvars.prg b/harbour/tests/working/dupvars.prg index 3161a85942..8ff64681b2 100644 --- a/harbour/tests/working/dupvars.prg +++ b/harbour/tests/working/dupvars.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // Testing Harbour duplicate variable definition detection diff --git a/harbour/tests/working/dynobj.prg b/harbour/tests/working/dynobj.prg index e93cf74acd..b105d21375 100644 --- a/harbour/tests/working/dynobj.prg +++ b/harbour/tests/working/dynobj.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // DynObj // diff --git a/harbour/tests/working/empty.prg b/harbour/tests/working/empty.prg index 7c7196e440..eeb7b1debf 100644 --- a/harbour/tests/working/empty.prg +++ b/harbour/tests/working/empty.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Testing Empty() function // diff --git a/harbour/tests/working/exittest.prg b/harbour/tests/working/exittest.prg index d05a89546e..37e9a6f042 100644 --- a/harbour/tests/working/exittest.prg +++ b/harbour/tests/working/exittest.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // quick exit test function main diff --git a/harbour/tests/working/extend1.prg b/harbour/tests/working/extend1.prg index 15237bad64..7075c532c4 100644 --- a/harbour/tests/working/extend1.prg +++ b/harbour/tests/working/extend1.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour Extended system. // // NOTE: compile extend1.prg and extend2.c and link both files diff --git a/harbour/tests/working/extend2.c b/harbour/tests/working/extend2.c index cce90f72d0..075803300c 100644 --- a/harbour/tests/working/extend2.c +++ b/harbour/tests/working/extend2.c @@ -1,6 +1,13 @@ -// Testing Harbour Extended system. -// -// NOTE: compile extend1.prg and extend2.c and link both files +/* + * $Id$ + */ + +/* + * Testing Harbour Extended system. + * + * NOTE: compile extend1.prg and extend2.c and link both files + */ + #include #include diff --git a/harbour/tests/working/fib.prg b/harbour/tests/working/fib.prg index 7065275b23..f22464685f 100644 --- a/harbour/tests/working/fib.prg +++ b/harbour/tests/working/fib.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + Function Main() Local n diff --git a/harbour/tests/working/fileio.prg b/harbour/tests/working/fileio.prg index df601cfeaa..1266a10a87 100644 --- a/harbour/tests/working/fileio.prg +++ b/harbour/tests/working/fileio.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour file io features function Main() diff --git a/harbour/tests/working/filexist.prg b/harbour/tests/working/filexist.prg index 6a5db9eaef..3cc770d33e 100644 --- a/harbour/tests/working/filexist.prg +++ b/harbour/tests/working/filexist.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // test of file function function main diff --git a/harbour/tests/working/fornext.prg b/harbour/tests/working/fornext.prg index 3309ae1e62..0556a4063b 100644 --- a/harbour/tests/working/fornext.prg +++ b/harbour/tests/working/fornext.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour For Next loops // // Written by Eddie Runia diff --git a/harbour/tests/working/fornext2.prg b/harbour/tests/working/fornext2.prg index f948a898ef..6ee81ed823 100644 --- a/harbour/tests/working/fornext2.prg +++ b/harbour/tests/working/fornext2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour For Next loops function Main() diff --git a/harbour/tests/working/funcarr.prg b/harbour/tests/working/funcarr.prg index d93e099683..762d1834c9 100644 --- a/harbour/tests/working/funcarr.prg +++ b/harbour/tests/working/funcarr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Function Array syntax test // diff --git a/harbour/tests/working/guess.prg b/harbour/tests/working/guess.prg index 3d721c7827..9c342b05fc 100644 --- a/harbour/tests/working/guess.prg +++ b/harbour/tests/working/guess.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Guess a number // diff --git a/harbour/tests/working/hardcr.prg b/harbour/tests/working/hardcr.prg index 19b2813847..5a7ee8ecde 100644 --- a/harbour/tests/working/hardcr.prg +++ b/harbour/tests/working/hardcr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + function main() diff --git a/harbour/tests/working/hello.prg b/harbour/tests/working/hello.prg index c1668c85c0..a89af9006c 100644 --- a/harbour/tests/working/hello.prg +++ b/harbour/tests/working/hello.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Typical welcome message function Main() diff --git a/harbour/tests/working/ifelse.prg b/harbour/tests/working/ifelse.prg index fd434e28a7..e78635f38a 100644 --- a/harbour/tests/working/ifelse.prg +++ b/harbour/tests/working/ifelse.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour If elseif else endif function Main() diff --git a/harbour/tests/working/ifinline.prg b/harbour/tests/working/ifinline.prg index ed5fba37db..11c07d08f7 100644 --- a/harbour/tests/working/ifinline.prg +++ b/harbour/tests/working/ifinline.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour If inline function Main() diff --git a/harbour/tests/working/inherit.prg b/harbour/tests/working/inherit.prg index 00efa85792..55f9dc2c40 100644 --- a/harbour/tests/working/inherit.prg +++ b/harbour/tests/working/inherit.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" // diff --git a/harbour/tests/working/inifiles.prg b/harbour/tests/working/inifiles.prg index 98d9d51b48..3bd801494f 100644 --- a/harbour/tests/working/inifiles.prg +++ b/harbour/tests/working/inifiles.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #define IF_BUFFER 65535 function Main(cFilename, cSection) diff --git a/harbour/tests/working/initexit.prg b/harbour/tests/working/initexit.prg index dd16deb879..8a8af0b0c9 100644 --- a/harbour/tests/working/initexit.prg +++ b/harbour/tests/working/initexit.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour INIT and EXIT functions function Main() diff --git a/harbour/tests/working/inline.prg b/harbour/tests/working/inline.prg index aae4eac9ab..106c6295ec 100644 --- a/harbour/tests/working/inline.prg +++ b/harbour/tests/working/inline.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Test of inline function // diff --git a/harbour/tests/working/instr.prg b/harbour/tests/working/instr.prg index a12df69157..21f6b711e2 100644 --- a/harbour/tests/working/instr.prg +++ b/harbour/tests/working/instr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* test of instring $ operator */ diff --git a/harbour/tests/working/iotest.prg b/harbour/tests/working/iotest.prg index 2c3d79e18e..799e452a3e 100644 --- a/harbour/tests/working/iotest.prg +++ b/harbour/tests/working/iotest.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour file io features function Main() diff --git a/harbour/tests/working/iotest2.prg b/harbour/tests/working/iotest2.prg index 61ced54b49..8b51307956 100644 --- a/harbour/tests/working/iotest2.prg +++ b/harbour/tests/working/iotest2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour file io features // using freadstr instead of fread diff --git a/harbour/tests/working/keywords.prg b/harbour/tests/working/keywords.prg index 30ff094c26..fc8db6ed7a 100644 --- a/harbour/tests/working/keywords.prg +++ b/harbour/tests/working/keywords.prg @@ -1,7 +1,8 @@ +// +// $Id$ +// + //NOTEST -/* - * $Id$ -*/ //DO NOT RUN THIS PROGRAM - ITS PURPOSE IS THE SYNTAX CHECK ONLY! #include "keywords.ch" //INCLUDE test diff --git a/harbour/tests/working/linecont.prg b/harbour/tests/working/linecont.prg index 3e97217935..725e564211 100644 --- a/harbour/tests/working/linecont.prg +++ b/harbour/tests/working/linecont.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST FUNCTION MAIN() LOCAL a, b diff --git a/harbour/tests/working/longstr.prg b/harbour/tests/working/longstr.prg index 966b1fbd9c..660598897a 100644 --- a/harbour/tests/working/longstr.prg +++ b/harbour/tests/working/longstr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Written by Eddie Runia // www - http://www.harbour-project.org // diff --git a/harbour/tests/working/longstr2.prg b/harbour/tests/working/longstr2.prg index b7ccc55ae6..e580f485c7 100644 --- a/harbour/tests/working/longstr2.prg +++ b/harbour/tests/working/longstr2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST - You'll want to test this with the output redirected to a file! function Main() diff --git a/harbour/tests/working/mankala.prg b/harbour/tests/working/mankala.prg index 2bb9d808ec..d1f8876b3d 100644 --- a/harbour/tests/working/mankala.prg +++ b/harbour/tests/working/mankala.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Mankala. The first Harbour board game. // diff --git a/harbour/tests/working/mathtest.prg b/harbour/tests/working/mathtest.prg index 19e0913431..a7f03f101c 100644 --- a/harbour/tests/working/mathtest.prg +++ b/harbour/tests/working/mathtest.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + func main() qout(sin(33) ) qout(cos(43) ) diff --git a/harbour/tests/working/mtran.prg b/harbour/tests/working/mtran.prg index 686d9456c2..4a21ea8ee2 100644 --- a/harbour/tests/working/mtran.prg +++ b/harbour/tests/working/mtran.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + function main() diff --git a/harbour/tests/working/multiarg.prg b/harbour/tests/working/multiarg.prg index 1eadc3fb8f..3f028e9944 100644 --- a/harbour/tests/working/multiarg.prg +++ b/harbour/tests/working/multiarg.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // MultiArg // diff --git a/harbour/tests/working/nums.prg b/harbour/tests/working/nums.prg index 1e6c3445d3..f331c9393e 100644 --- a/harbour/tests/working/nums.prg +++ b/harbour/tests/working/nums.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing the different numeric formats Harbour produces function main() diff --git a/harbour/tests/working/objarr.prg b/harbour/tests/working/objarr.prg index 702720c7ad..e3c9566717 100644 --- a/harbour/tests/working/objarr.prg +++ b/harbour/tests/working/objarr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Object Array syntax test // diff --git a/harbour/tests/working/objasign.prg b/harbour/tests/working/objasign.prg index 7c8b31abb4..bc24d3b0da 100644 --- a/harbour/tests/working/objasign.prg +++ b/harbour/tests/working/objasign.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // Object Array syntax test // diff --git a/harbour/tests/working/objects.prg b/harbour/tests/working/objects.prg index 198ff950fd..1565ccc6c3 100644 --- a/harbour/tests/working/objects.prg +++ b/harbour/tests/working/objects.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour classes and objects management // be aware Harbour provides a much simpler way using Class TClass (source\rtl\class.prg) diff --git a/harbour/tests/working/operat.prg b/harbour/tests/working/operat.prg index e066693ad8..71ad75da79 100644 --- a/harbour/tests/working/operat.prg +++ b/harbour/tests/working/operat.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour operators management #define CRLF Chr( 13 ) + Chr( 10 ) diff --git a/harbour/tests/working/os.prg b/harbour/tests/working/os.prg index 23afbe1504..3a6e5bc468 100644 --- a/harbour/tests/working/os.prg +++ b/harbour/tests/working/os.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing the OS function function Main() diff --git a/harbour/tests/working/output.prg b/harbour/tests/working/output.prg index 3be92bc9c9..5f8e41eae9 100644 --- a/harbour/tests/working/output.prg +++ b/harbour/tests/working/output.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour device management. /* Harbour Project source code http://www.Harbour-Project.org/ diff --git a/harbour/tests/working/overload.prg b/harbour/tests/working/overload.prg index e59cdc71e9..125638fd04 100644 --- a/harbour/tests/working/overload.prg +++ b/harbour/tests/working/overload.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #define MET_METHOD 0 #define MET_DATA 1 #define MET_CLASSDATA 2 diff --git a/harbour/tests/working/passref.prg b/harbour/tests/working/passref.prg index 715392cdfd..9476703134 100644 --- a/harbour/tests/working/passref.prg +++ b/harbour/tests/working/passref.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* test of pass by reference @ */ function main diff --git a/harbour/tests/working/procline.prg b/harbour/tests/working/procline.prg index cd27eac901..582fcba190 100644 --- a/harbour/tests/working/procline.prg +++ b/harbour/tests/working/procline.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + FUNCTION Main() diff --git a/harbour/tests/working/procname.prg b/harbour/tests/working/procname.prg index ffa9e8a24c..dfcffee695 100644 --- a/harbour/tests/working/procname.prg +++ b/harbour/tests/working/procname.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour ProcName() and ProcLine() #define CRLF Chr( 13 ) + Chr( 10 ) diff --git a/harbour/tests/working/readhrb.prg b/harbour/tests/working/readhrb.prg index b3990db704..6c8290bdd4 100644 --- a/harbour/tests/working/readhrb.prg +++ b/harbour/tests/working/readhrb.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* * ReadHRB * diff --git a/harbour/tests/working/recursiv.prg b/harbour/tests/working/recursiv.prg index 83896a2b78..502c0bdc76 100644 --- a/harbour/tests/working/recursiv.prg +++ b/harbour/tests/working/recursiv.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // testing recursive calls function main() diff --git a/harbour/tests/working/returns.prg b/harbour/tests/working/returns.prg index cde8281840..852150468a 100644 --- a/harbour/tests/working/returns.prg +++ b/harbour/tests/working/returns.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing multiple returns into a function function Main() diff --git a/harbour/tests/working/round.prg b/harbour/tests/working/round.prg index 577c964d79..b2c8e34eac 100644 --- a/harbour/tests/working/round.prg +++ b/harbour/tests/working/round.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour rounding. /* Harbour Project source code http://www.Harbour-Project.org/ diff --git a/harbour/tests/working/rtfclass.prg b/harbour/tests/working/rtfclass.prg index 87cea6dd54..735e5bb155 100644 --- a/harbour/tests/working/rtfclass.prg +++ b/harbour/tests/working/rtfclass.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* harbour rtfclass demo notes : - raw enough but it works diff --git a/harbour/tests/working/rtl_test.prg b/harbour/tests/working/rtl_test.prg index 98e64ee2ff..083544a36e 100644 --- a/harbour/tests/working/rtl_test.prg +++ b/harbour/tests/working/rtl_test.prg @@ -1,5 +1,8 @@ -/* $Id$ +// +// $Id$ +// +/* Harbour Project source code Runtime library regression tests, currently for some of the diff --git a/harbour/tests/working/say.prg b/harbour/tests/working/say.prg index 854dc1156c..7c4e048dd7 100644 --- a/harbour/tests/working/say.prg +++ b/harbour/tests/working/say.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Tests @ SAY with and without PICTURE clauses function Main() diff --git a/harbour/tests/working/scroll.prg b/harbour/tests/working/scroll.prg index db6e6f099f..ff2dcbe34e 100644 --- a/harbour/tests/working/scroll.prg +++ b/harbour/tests/working/scroll.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour screen scrolling (requires the GT API) /* Harbour Project source code http://www.Harbour-Project.org/ diff --git a/harbour/tests/working/seconds.prg b/harbour/tests/working/seconds.prg index e0e647331b..60174340ab 100644 --- a/harbour/tests/working/seconds.prg +++ b/harbour/tests/working/seconds.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* Test SECONDS() */ /* Harbour Project source code http://www.Harbour-Project.org/ diff --git a/harbour/tests/working/set_num.prg b/harbour/tests/working/set_num.prg index 9a8be1267f..060f6467ef 100644 --- a/harbour/tests/working/set_num.prg +++ b/harbour/tests/working/set_num.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing SET function Main() diff --git a/harbour/tests/working/set_test.prg b/harbour/tests/working/set_test.prg index 0947fb1d81..af1a79ffc3 100644 --- a/harbour/tests/working/set_test.prg +++ b/harbour/tests/working/set_test.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing SET #include "set.ch" diff --git a/harbour/tests/working/spawn.prg b/harbour/tests/working/spawn.prg index 4542cc356d..6ba751b679 100644 --- a/harbour/tests/working/spawn.prg +++ b/harbour/tests/working/spawn.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // // Spawn() diff --git a/harbour/tests/working/spawn2.prg b/harbour/tests/working/spawn2.prg index 59f73c80bf..097c46e470 100644 --- a/harbour/tests/working/spawn2.prg +++ b/harbour/tests/working/spawn2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // // Spawn2 called from Spawn diff --git a/harbour/tests/working/statfun.prg b/harbour/tests/working/statfun.prg index dd17712352..a9bc65271a 100644 --- a/harbour/tests/working/statfun.prg +++ b/harbour/tests/working/statfun.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing a static function call function Main() diff --git a/harbour/tests/working/statics.prg b/harbour/tests/working/statics.prg index 317535bc9a..e28feb5b20 100644 --- a/harbour/tests/working/statics.prg +++ b/harbour/tests/working/statics.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour statics variables management static z := "First" diff --git a/harbour/tests/working/strcmp.prg b/harbour/tests/working/strcmp.prg index 99516aabde..0ba2c8a09f 100644 --- a/harbour/tests/working/strcmp.prg +++ b/harbour/tests/working/strcmp.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // // OurStrCmp() tests // diff --git a/harbour/tests/working/strdelim.prg b/harbour/tests/working/strdelim.prg index 3d42a5cd09..09c180116f 100644 --- a/harbour/tests/working/strdelim.prg +++ b/harbour/tests/working/strdelim.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + procedure main() local aArray := {{NIL}} diff --git a/harbour/tests/working/strings.prg b/harbour/tests/working/strings.prg index c3c18c8811..b929d337cf 100644 --- a/harbour/tests/working/strings.prg +++ b/harbour/tests/working/strings.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour strings management runtime library function Main() diff --git a/harbour/tests/working/strings2.prg b/harbour/tests/working/strings2.prg index 57ab776ed9..7926f9af27 100644 --- a/harbour/tests/working/strings2.prg +++ b/harbour/tests/working/strings2.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + procedure main() local AString := "A should be 65" local Another := " lost in space " diff --git a/harbour/tests/working/strings3.prg b/harbour/tests/working/strings3.prg index 8b4519f98a..60d11588ea 100644 --- a/harbour/tests/working/strings3.prg +++ b/harbour/tests/working/strings3.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" function main diff --git a/harbour/tests/working/strings4.prg b/harbour/tests/working/strings4.prg index 695f8d9579..6bec832972 100644 --- a/harbour/tests/working/strings4.prg +++ b/harbour/tests/working/strings4.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + function Main() QOut( "Inside strings4" ) diff --git a/harbour/tests/working/strip.prg b/harbour/tests/working/strip.prg index e85c57fbcd..9a8243a8a4 100644 --- a/harbour/tests/working/strip.prg +++ b/harbour/tests/working/strip.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" // diff --git a/harbour/tests/working/syserror.prg b/harbour/tests/working/syserror.prg index 253c2cd56f..0aa0dd7abb 100644 --- a/harbour/tests/working/syserror.prg +++ b/harbour/tests/working/syserror.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing the Harbour related error system functions function Main() diff --git a/harbour/tests/working/t1.prg b/harbour/tests/working/t1.prg index 5c0665c39e..6cb4b81e3a 100644 --- a/harbour/tests/working/t1.prg +++ b/harbour/tests/working/t1.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // while loop test function Main() diff --git a/harbour/tests/working/test.prg b/harbour/tests/working/test.prg index b551403d6a..19dacf4745 100644 --- a/harbour/tests/working/test.prg +++ b/harbour/tests/working/test.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // procedure main() diff --git a/harbour/tests/working/test10.prg b/harbour/tests/working/test10.prg index 19ae02e922..043034b26e 100644 --- a/harbour/tests/working/test10.prg +++ b/harbour/tests/working/test10.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // compile this using Harbour /10 flag diff --git a/harbour/tests/working/test_all.prg b/harbour/tests/working/test_all.prg index c9591bf80c..333bb0b725 100644 --- a/harbour/tests/working/test_all.prg +++ b/harbour/tests/working/test_all.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // AutoMatic Test Bank // Patrick Mast and David G. Holm diff --git a/harbour/tests/working/testcgi.prg b/harbour/tests/working/testcgi.prg index 57109869af..5cbc234399 100644 --- a/harbour/tests/working/testcgi.prg +++ b/harbour/tests/working/testcgi.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* * * TestCGI.PRG diff --git a/harbour/tests/working/testcopy.prg b/harbour/tests/working/testcopy.prg index 5d2b92c541..f8bb915885 100644 --- a/harbour/tests/working/testcopy.prg +++ b/harbour/tests/working/testcopy.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* __copyfile( csource, cdestination ) initial release : 23 June 1999 Andi Jahja diff --git a/harbour/tests/working/testerro.prg b/harbour/tests/working/testerro.prg index 991f2bdca7..d1550bc57e 100644 --- a/harbour/tests/working/testerro.prg +++ b/harbour/tests/working/testerro.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing Harbour Error system function Main() diff --git a/harbour/tests/working/testfor.prg b/harbour/tests/working/testfor.prg index 9cd7279b6d..7c6da43c37 100644 --- a/harbour/tests/working/testfor.prg +++ b/harbour/tests/working/testfor.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + FUNCTION MAIN LOCAL i diff --git a/harbour/tests/working/testgt.prg b/harbour/tests/working/testgt.prg index b30239d2ab..7934d90e71 100644 --- a/harbour/tests/working/testgt.prg +++ b/harbour/tests/working/testgt.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* program for testing hbgt.lib */ diff --git a/harbour/tests/working/testhbf.prg b/harbour/tests/working/testhbf.prg index 9da35b2199..0d66aeb57c 100644 --- a/harbour/tests/working/testhbf.prg +++ b/harbour/tests/working/testhbf.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* test program for hb_f*() harbour clones for nanfor's ft_f*() diff --git a/harbour/tests/working/testhtml.prg b/harbour/tests/working/testhtml.prg index e62cf9a1cd..048f5ad653 100644 --- a/harbour/tests/working/testhtml.prg +++ b/harbour/tests/working/testhtml.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + /* * * TestHTML.PRG diff --git a/harbour/tests/working/testid.prg b/harbour/tests/working/testid.prg index 316416f1b3..548fd85e62 100644 --- a/harbour/tests/working/testid.prg +++ b/harbour/tests/working/testid.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + //NOTEST // Warning: This sample must be tested using /dTEST compiler flag diff --git a/harbour/tests/working/testinc.prg b/harbour/tests/working/testinc.prg index dbf323a825..efe003296a 100644 --- a/harbour/tests/working/testinc.prg +++ b/harbour/tests/working/testinc.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing #includes #include "test.ch" diff --git a/harbour/tests/working/testmem.prg b/harbour/tests/working/testmem.prg index 2f96016324..6d2200ebde 100644 --- a/harbour/tests/working/testmem.prg +++ b/harbour/tests/working/testmem.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing memory release function main() diff --git a/harbour/tests/working/teststr.prg b/harbour/tests/working/teststr.prg index 860d99a243..26c355c20c 100644 --- a/harbour/tests/working/teststr.prg +++ b/harbour/tests/working/teststr.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + function main() outstd (CHR(13)+CHR(10)) diff --git a/harbour/tests/working/testtok.prg b/harbour/tests/working/testtok.prg index 39f32dbe43..ec7837e156 100644 --- a/harbour/tests/working/testtok.prg +++ b/harbour/tests/working/testtok.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" procedure main() diff --git a/harbour/tests/working/testvars.prg b/harbour/tests/working/testvars.prg index d5f72911c5..79e82fd70a 100644 --- a/harbour/tests/working/testvars.prg +++ b/harbour/tests/working/testvars.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + Function Main(Param1) local i, j, k diff --git a/harbour/tests/working/testwarn.prg b/harbour/tests/working/testwarn.prg index 2aae651caf..a8ea1468dc 100644 --- a/harbour/tests/working/testwarn.prg +++ b/harbour/tests/working/testwarn.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + DECLARE FUNCTION nMyFunc( ) AS NUMERIC FUNCTION Hex2Dec( lVar AS LOGICAL ) diff --git a/harbour/tests/working/transfrm.prg b/harbour/tests/working/transfrm.prg index f41bc37204..4d47602d2c 100644 --- a/harbour/tests/working/transfrm.prg +++ b/harbour/tests/working/transfrm.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + #include "set.ch" /* diff --git a/harbour/tests/working/val.prg b/harbour/tests/working/val.prg index 510aca2196..3162aab9e9 100644 --- a/harbour/tests/working/val.prg +++ b/harbour/tests/working/val.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing ValType function Main() diff --git a/harbour/tests/working/version.prg b/harbour/tests/working/version.prg index 9f98cca203..7dabad8fa5 100644 --- a/harbour/tests/working/version.prg +++ b/harbour/tests/working/version.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // Testing the VERSION function /* Harbour Project source code http://www.Harbour-Project.org/ diff --git a/harbour/tests/working/while.prg b/harbour/tests/working/while.prg index 902d57920c..55e226008e 100644 --- a/harbour/tests/working/while.prg +++ b/harbour/tests/working/while.prg @@ -1,3 +1,7 @@ +// +// $Id$ +// + // while loop test function Main()