first successful implementation of class instantion methods

t/Makefile.am

@@ -1,6 +1,7 @@
 AUTOMAKE_OPTIONS = nostdinc
 
 check_SCRIPTS = \
+	insta-01.hcl \
 	ret-01.hcl \
 	retvar-01.hcl
 

t/Makefile.in

@@ -462,6 +462,7 @@ top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 AUTOMAKE_OPTIONS = nostdinc
 check_SCRIPTS = \
+	insta-01.hcl \
 	ret-01.hcl \
 	retvar-01.hcl
 

t/insta-01.hcl

@@ -0,0 +1,53 @@
+; test class instantiation methods
+
+(defclass A
+	| a b c |
+
+	(defun ::* newInstance(x y z)
+		(set a x)
+		(set b y)
+		(set c z)
+		(return self)
+	)
+
+	(defun get-a() a)
+	(defun get-b() b)
+	(defun get-c() c)
+)	
+
+(defclass B ::: A
+	| d e f |
+
+	(defun ::* newInstance(x y z)
+		(:super newInstance (* x 2) (* y 2) (* z 2))
+		(set d x)	
+		(set e y)	
+		(set f z)	
+		(return self)
+	)
+
+	(defun sum()
+		(+ (:super get-a) (:super get-b) (:super get-c) d e f)
+	)
+
+)
+
+(set a (:(:B newInstance 1 2 3) sum))
+(if (/= a 18) (printf "ERROR: a must be 18\n"))
+(printf "OK %d\n" a)
+
+(set b (:B newInstance 2 3 4))
+(set a (:b get-a))
+(if (/= a 4) (printf "ERROR: a must be 4\n"))
+(printf "OK %d\n" a)
+(set a (:b get-b))
+(if (/= a 6) (printf "ERROR: a must be 6\n"))
+(printf "OK %d\n" a)
+(set a (:b get-c))
+(if (/= a 8) (printf "ERROR: a must be 8\n"))
+(printf "OK %d\n" a)
+(set a (:b sum))
+(if (/= a 27) (printf "ERROR: a must be 27\n"))
+(printf "OK %d\n" a)
+
+