From 8b8a4760bc3957567a997535898be574a652b745 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 12 Jul 1999 13:09:35 +0000
Subject: [PATCH] Added support for CONSTRUCTOR and INLINE methods commands

---
 harbour/ChangeLog          | 16 ++++++++++------
 harbour/include/classes.ch |  6 ++++++
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 23567f118c..e819e66bf1 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990712-13:56 Antonio Linares <alinares@fivetech.com>
+  * include\classes.ch
+    * Added support for CONSTRUCTOR and INLINE Methods
+
 19990712-10:52 Alexander Kresin
   * source\hbpp\hbpp.c
     * fixed some bugs of #translate implementation
@@ -15,12 +19,12 @@
 19990711-20:25 Ryszard Glab <rglab@imid.med.pl>
 * include/init.h
  * all functions and variables declared in this file have to be 'static'
- 
+
 * source/vm/initsymb.c
- * added again #ifdef HARBOUR_STRICT_ANSI_C to call functions for 
-   symbols table initialization only when strict ANSI C compiler 
-   is used. 
-   
+ * added again #ifdef HARBOUR_STRICT_ANSI_C to call functions for
+   symbols table initialization only when strict ANSI C compiler
+   is used.
+
 * include/extend.h
  + added HB_VALUE structure for storing memvars and detached locals
  + added hb_struMemvar used in HB_ITEM structure
@@ -54,7 +58,7 @@
 
 * source/rtl/Makefile
  + added memvars.c file
- 
+
 - tests/working/codebl2.c
  - removed this file because its code is now in codebl.prg file
 
diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index bf40f82566..117e170822 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -33,6 +33,12 @@
 #xcommand METHOD <MethodName>( [<params,...>] ) => ;
    oClass:AddMethod( <(MethodName)>, @<MethodName>() )
 
+#xcommand METHOD <MethodName>( [<params,...>] ) CONSTRUCTOR => ;
+   oClass:AddInline( <(MethodName)>, {|Self,<params>| <MethodName>(Self,<params>), Self } )
+
+#xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
+   oClass:AddInline( <(MethodName)>, {|Self,<params>| <Code> } )
+
 #xcommand ENDCLASS => endif ;;
                       return oClass:Instance()