Harbour classes creation commands

harbour/include/classes.ch

@@ -0,0 +1,41 @@
+/* Harbour classes commands
+
+   Copyright(C) 1999 by Antonio Linares.
+
+   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.
+
+   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.
+
+   You can contact me at: alinares@fivetech.com
+*/
+
+#xcommand CLASS <ClassName> => ;
+   function <ClassName>() ;;
+      static oClass ;;
+      if oClass == nil ;;
+         oClass = TClass():New( <(ClassName)> )
+
+#xcommand DATA <DataName1> [,<DataNameN>] => ;
+   oClass:AddData( <(DataName1)> ) [; oClass:AddData( <(DataNameN)> ) ]
+
+#xcommand METHOD <MethodName>( [<params,...>] ) => ;
+   oClass:AddMethod( <(MethodName)>, @<MethodName>() )
+
+#xcommand ENDCLASS => endif ;;
+                      return oClass:Instance()
+
+#xcommand METHOD <MethodName>([<params,...>]) CLASS <ClassName> => ;
+          static function <MethodName>( [<params>] ) ; local Self := QSelf()
+