ChangeLogTag:Tue Jul 13 14:06:03 1999 Gonzalo A. Diethelm <Gonzalo.Diethelm@jda.cl>
This commit is contained in:
Gonzalo A. Diethelm
@@ -1,3 +1,137 @@
|
||||
Tue Jul 13 14:06:03 1999 Gonzalo A. Diethelm <Gonzalo.Diethelm@jda.cl>
|
||||
|
||||
* 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 <Gonzalo.Diethelm@jda.cl>
|
||||
|
||||
* include/Makefile:
|
||||
|
||||
@@ -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 <MethodName>([<params,...>]) CLASS <ClassName> => ;
|
||||
static function <MethodName>( [<params>] ) ; local Self := QSelf()
|
||||
|
||||
#endif /* _CLASSES_CH */
|
||||
|
||||
@@ -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_ */
|
||||
|
||||
@@ -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_ */
|
||||
|
||||
@@ -1,4 +1,10 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
#ifndef HB_SUPER_H_
|
||||
#define HB_SUPER_H_
|
||||
|
||||
#define SUPER_VERSION "version 0.00"
|
||||
|
||||
|
||||
|
||||
#endif /* HB_SUPER_H_ */
|
||||
|
||||
@@ -1,6 +1,9 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Language support unit for Basque
|
||||
*
|
||||
*/
|
||||
|
||||
char *hb_monthsname[ 12 ] = {
|
||||
|
||||
@@ -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_ */
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
#include "pcode.h"
|
||||
|
||||
#include <errorapi.h>
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// The following code tests the application of the className message
|
||||
// against the "fundemental" types of Clipper.
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// The following code tests harbour's ability to cope with parenthesized
|
||||
// expressions.
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Statics overlapped!
|
||||
//
|
||||
// Compile statics1.prg, statics2.prg and link both files
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Statics overlapped!
|
||||
//
|
||||
// Compile statics1.prg, statics2.prg and link both files
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
|
||||
FUNCTION Main()
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Array test aIns / aDel / aSize / aFill
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour AND OR operators
|
||||
|
||||
function And_Or() // Main() is not required!
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Harbour multidimensional arrays support
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Array Index tests
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Harbour multidimensional arrays support
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
Function Main
|
||||
|
||||
local a, b , c
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// releasing arrays test
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour device management.
|
||||
|
||||
#include "box.ch"
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Managing variables by reference
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Calling different PRG functions
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
function main()
|
||||
|
||||
OutStd( cMonth( date() ) + chr(10) )
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Using Harbour Class TClass
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour classes.ch commands
|
||||
|
||||
#include "classes.ch"
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Using Harbour Class TClass
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
Function Main()
|
||||
|
||||
local o := TObject():New()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Compile Hello
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
STATIC cbStatic
|
||||
|
||||
Function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// codeblocks test
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour comments
|
||||
|
||||
*
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
|
||||
FUNCTION Main()
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour dates management.
|
||||
|
||||
#include "set.ch"
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
#include "set.ch"
|
||||
function main()
|
||||
local newline := CHR(10)
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour dates management.
|
||||
|
||||
#include "set.ch"
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
/*
|
||||
* $Doc$
|
||||
* $Description$ Debug function tests.
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
#include "set.ch"
|
||||
|
||||
function main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// directory test
|
||||
function main(filespec,attribs)
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour Do case
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST // It is very frustrating if this one is auto-tested
|
||||
//
|
||||
// DosShell
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST
|
||||
// Testing Harbour duplicate variable definition detection
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// DynObj
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Testing Empty() function
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// quick exit test
|
||||
|
||||
function main
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour Extended system.
|
||||
//
|
||||
// NOTE: compile extend1.prg and extend2.c and link both files
|
||||
|
||||
@@ -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 <extend.api>
|
||||
#include <string.h>
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
Function Main()
|
||||
Local n
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour file io features
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// test of file function
|
||||
function main
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour For Next loops
|
||||
//
|
||||
// Written by Eddie Runia <eddie@runia.com>
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour For Next loops
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Function Array syntax test
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Guess a number
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
|
||||
function main()
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Typical welcome message
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour If elseif else endif
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour If inline
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
#include "set.ch"
|
||||
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
#define IF_BUFFER 65535
|
||||
|
||||
function Main(cFilename, cSection)
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour INIT and EXIT functions
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Test of inline function
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
|
||||
/* test of instring $ operator */
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour file io features
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour file io features
|
||||
// using freadstr instead of fread
|
||||
|
||||
|
||||
@@ -1,7 +1,8 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
//DO NOT RUN THIS PROGRAM - ITS PURPOSE IS THE SYNTAX CHECK ONLY!
|
||||
|
||||
#include "keywords.ch" //INCLUDE test
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST
|
||||
FUNCTION MAIN()
|
||||
LOCAL a, b
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Written by Eddie Runia <eddie@runia.com>
|
||||
// www - http://www.harbour-project.org
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST - You'll want to test this with the output redirected to a file!
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Mankala. The first Harbour board game.
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
func main()
|
||||
qout(sin(33) )
|
||||
qout(cos(43) )
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
|
||||
function main()
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// MultiArg
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing the different numeric formats Harbour produces
|
||||
|
||||
function main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Object Array syntax test
|
||||
//
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// Object Array syntax test
|
||||
//
|
||||
|
||||
@@ -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)
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour operators management
|
||||
|
||||
#define CRLF Chr( 13 ) + Chr( 10 )
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing the OS function
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour device management.
|
||||
/* Harbour Project source code
|
||||
http://www.Harbour-Project.org/
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
#define MET_METHOD 0
|
||||
#define MET_DATA 1
|
||||
#define MET_CLASSDATA 2
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
/* test of pass by reference @ */
|
||||
|
||||
function main
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
|
||||
FUNCTION Main()
|
||||
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour ProcName() and ProcLine()
|
||||
|
||||
#define CRLF Chr( 13 ) + Chr( 10 )
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
/*
|
||||
* ReadHRB
|
||||
*
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// testing recursive calls
|
||||
|
||||
function main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing multiple returns into a function
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour rounding.
|
||||
/* Harbour Project source code
|
||||
http://www.Harbour-Project.org/
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
/*
|
||||
harbour rtfclass demo
|
||||
notes : - raw enough but it works
|
||||
|
||||
@@ -1,5 +1,8 @@
|
||||
/* $Id$
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
/*
|
||||
Harbour Project source code
|
||||
|
||||
Runtime library regression tests, currently for some of the
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Tests @ SAY with and without PICTURE clauses
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour screen scrolling (requires the GT API)
|
||||
/* Harbour Project source code
|
||||
http://www.Harbour-Project.org/
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
/* Test SECONDS() */
|
||||
/* Harbour Project source code
|
||||
http://www.Harbour-Project.org/
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing SET
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing SET
|
||||
|
||||
#include "set.ch"
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST
|
||||
//
|
||||
// Spawn()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//NOTEST
|
||||
//
|
||||
// Spawn2 called from Spawn
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing a static function call
|
||||
|
||||
function Main()
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
// Testing Harbour statics variables management
|
||||
|
||||
static z := "First"
|
||||
|
||||
@@ -1,3 +1,7 @@
|
||||
//
|
||||
// $Id$
|
||||
//
|
||||
|
||||
//
|
||||
// OurStrCmp() tests
|
||||
//
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user