source: golgotha/src/test/lisp/class.scm @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 11 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 306 bytes
Line 
1(def_class base_class nil
2  (base_var 'holy_cow_man))
3
4(def_class color nil
5  (red 255)
6  (green 255)
7  (blue 255))
8
9(print (new color 128 0 5))
10
11
12(def_class test_class base_class
13  (x 4)
14  (y 5)
15  (z 6)
16  (my_symbol 'hello_there)
17  (my_string "string")
18)
19
20(setf test (new test_class))
Note: See TracBrowser for help on using the repository browser.