Merge branch 'master' into more-encompassing-number-skips

samples/xBase/sample.ch

@@ -0,0 +1,30 @@
+#ifndef __HARBOUR__
+   #ifndef __XPP__
+      #ifndef __CLIP__
+         #ifndef FlagShip
+            #define __CLIPPER__
+         #endif
+      #endif
+   #endif
+#endif
+
+/* File create flags */
+#define FC_NORMAL          0  /* No file attributes are set */
+#define FC_READONLY        1
+#define FC_HIDDEN          2
+#define FC_SYSTEM          4
+
+// New-style comment
+#command SET DELETED <x:ON,OFF,&>      => Set( _SET_DELETED, <(x)> )
+#command SET DELETED (<x>)             => Set( _SET_DELETED, <x> )
+#command @ <row>, <col> SAY <exp> [PICTURE <pic>] [COLOR <clr>] => ;
+         DevPos( <row>, <col> ) ; DevOutPict( <exp>, <pic> [, <clr>] )
+         
+#command ENDIF <*x*> => endif
+
+#ifdef __CLIPPER__   
+   #xtranslate hb_MemoWrit( [<x,...>] )  => MemoWrit( <x> )
+   #xtranslate hb_dbExists( <t> )        => File( <t> )
+   #xtranslate hb_dbPack()               => __dbPack()
+   #xtranslate hb_default( @<v>, <x> )   => iif( StrTran( ValType( <v> ), "M", "C" ) == StrTran( ValType( <x> ), "M", "C" ),, <v> := <x>, )
+#endif

samples/xBase/sample.prg

@@ -0,0 +1,167 @@
+#require "hbtest"
+
+#pragma linenumber=on
+
+#include "hbclass.ch"
+
+#stdout "stdout"
+#warning "warning"
+
+#define MYCONST  100
+#undef MYCONST
+
+#ifdef __HARBOUR__
+#else
+#endif
+
+#if defined( __HARBOUR__ ) .OR. .T.
+#elif defined( __HARBOUR__ )
+#endif
+
+THREAD STATIC t_var := "thread"
+
+REQUEST AllTrim
+ANNOUNCE my_module
+
+PROCEDURE Main()
+
+   MEMVAR p_var, m_var
+   FIELD fld
+
+   STATIC s_test := "static"
+   LOCAL o := TTest():New( "one", "two" ), tmp
+   LOCAL oError
+   LOCAL bBlock := {| tmp | QOut( tmp ) }
+   LOCAL hHash := { "name" => "value", "name2" => "value2", 2 => 1 }
+   PUBLIC p_var := "public"
+   PRIVATE m_var := "private"
+   PARAMETERS p1
+
+   Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
+
+   CLS
+   @ 10, 10 SAY "Hello world!"
+
+   ? hb_ValToExp( o )
+   ? m->p1
+   ? hHash[ "name" ], hHash[ 2 ]
+
+   FOR tmp := 1 TO 10 STEP 2
+      ? tmp
+   NEXT
+
+   FOR EACH tmp IN { "a", "b" } DESCEND
+      ? tmp
+   NEXT
+
+   ? 10.01 + 2 - 3 / 4 * 5 ^ 6 ** 1
+   ? 2 < 1, 2 > 1, 2 >= 1, 2 <= 1, 2 == 1, 2 = 1, 2 != 1, 2 <> 1, 2 # 1
+   ? -( 1 + 2 ), "a" $ "ab", 10 % 2
+
+   tmp := 0
+   DO WHILE tmp < 2
+      ? tmp++
+   ENDDO
+
+   tmp := 0
+   WHILE tmp < 2
+      ? ++tmp
+      IF tmp >= 0xFF
+         LOOP
+      ENDIF
+      EXIT
+   ENDDO
+
+   --tmp
+   tmp--
+
+   IF tmp < -10.0
+      ? NIL
+   ELSEIF .F.
+      ? 0d19800101
+   ELSE
+      ? "string"
+   ENDIF
+
+   DO CASE
+   CASE tmp == 1
+      ? "A"
+   OTHERWISE
+      ? "B"
+   ENDCASE
+
+   SWITCH tmp
+   CASE 1
+      ? "A"
+      EXIT
+   OTHERWISE
+      ? "B"
+   ENDSWITCH
+
+   BEGIN SEQUENCE WITH __BreakBlock()
+      BREAK
+   RECOVER USING oError
+   END /* SEQUENCE */
+
+   local_func( @hHash )
+
+   RETURN
+
+INIT PROCEDURE init_proc()
+   RETURN
+
+EXIT PROCEDURE exit_proc()
+   RETURN
+
+PROCEDURE returning_nothing()
+   RETURN
+
+FUNCTION pub_func()
+   RETURN .T.
+
+STATIC FUNCTION local_func()
+   RETURN .F.
+
+CREATE CLASS TTest INHERIT TParent
+   VAR One, Two
+   METHOD New( One )
+   METHOD Test() INLINE QOut( "Hello" )
+   METHOD MethProc()
+ENDCLASS
+
+METHOD PROCEDURE MethProc()
+   RETURN
+
+METHOD New( One ) CLASS TTest
+
+   ::super:New()
+   ::One := One
+
+   RETURN Self
+
+CREATE CLASS TParent
+   VAR One
+   METHOD New()
+ENDCLASS
+
+METHOD New() CLASS TParent
+   ? "TParent:New()"
+   RETURN Self
+
+// This is a comment
+/* This is a comment */
+/* This is
+a comment */
+* This is a comment
+&& This is a comment
+NOTE This is a comment
+note This is a comment
+NOTE
+
+FUNCTION pub_func2()
+   ? "hello world!"
+   ? 'hello world!'
+   ? "hello\world!"
+   ? "\"
+   ? "hello world!"
+   RETURN .T.