Add math class

diff --git a/lib/habc/OMakefile b/lib/habc/OMakefile
index 3cd6f1d..5c2fb9c 100644 (file)
--- a/lib/habc/OMakefile
+++ b/lib/habc/OMakefile
@@ -9,7 +9,7 @@ LIBS=$(addsuffix .ho,$(FILES))
 
 lib: $(LIBS)
 
-%.ho : %.scm
+%.ho : %.scm $(ROOT)/habc
        $(ROOT)/habc -c $<
 
 clean:

diff --git a/lib/habc/flash.ho b/lib/habc/flash.ho
index 212569b..a8fb129 100644 (file)
Binary files a/lib/habc/flash.ho and b/lib/habc/flash.ho differ

diff --git a/lib/habc/std.ho b/lib/habc/std.ho
index d98ca11..e75c887 100644 (file)
Binary files a/lib/habc/std.ho and b/lib/habc/std.ho differ

diff --git a/lib/habc/std.scm b/lib/habc/std.scm
index 9162612..2c9a328 100644 (file)
--- a/lib/habc/std.scm
+++ b/lib/habc/std.scm
@@ -18,4 +18,20 @@
 (define Object)
 
 (define-class Math (Object) ())
-(define-method abs ([self Math]))
\ No newline at end of file
+(define-static-method abs (Math))
+(define-static-method acos (Math))
+(define-static-method asin (Math))
+(define-static-method atan (Math))
+(define-static-method atan2 (Math))
+(define-static-method ceil (Math))
+(define-static-method cos (Math))
+(define-static-method exp (Math))
+(define-static-method floor (Math))
+(define-static-method log (Math))
+(define-static-method max (Math))
+(define-static-method min (Math))
+(define-static-method pow (Math))
+(define-static-method random (Math))
+(define-static-method round (Math))
+(define-static-method sin (Math))
+(define-static-method tan (Math))

diff --git a/scm/example/static.scm b/scm/example/static.scm
index 1e48888..f4089ed 100644 (file)
--- a/scm/example/static.scm
+++ b/scm/example/static.scm
@@ -3,4 +3,5 @@
 (define-static-method f (Foo)
   42)
 
-(print (f Foo))
\ No newline at end of file
+(print (f Foo))
+(print (cos Math 0))
\ No newline at end of file