59 lines
3.0 KiB
Plaintext
59 lines
3.0 KiB
Plaintext
|
|
(def! get-value-helper (fn* (dict key idx) (if (>= idx (count dict)) nil (if (= key (nth dict idx)) (nth dict (+ idx 1)) (get-value-helper dict key (+ idx 2))))))
|
|
(def! get-value (fn* (dict key) (get-value-helper dict key 0)))
|
|
(def! method-call (fn* (object method & arguments) (let* (method_fn (get-value (meta object) method))
|
|
(if (= method_fn nil)
|
|
(println "no method " method)
|
|
(apply method_fn object arguments)))))
|
|
; method call syntax
|
|
(add_grammar_rule 'form [ 'form "\\." 'atom 'optional_WS "\\(" 'optional_WS 'space_forms 'optional_WS "\\)" ] (fn* (o _ m _ _ _ p _ _) `(method-call ~o '~m ,p)))
|
|
; object syntax
|
|
(def! flatten (fn* (l) (let*
|
|
(flatten-helper (fn* (l a f) (if (> (count l) 0)
|
|
(f (rest l) (concat a (first l)) f)
|
|
a)))
|
|
(flatten-helper l [] flatten-helper))))
|
|
(add_grammar_rule 'form [ "obj" 'optional_WS 'atom 'optional_WS "{" 'optional_WS 'form 'optional_WS [ 'atom 'optional_WS 'form 'optional_WS ] + "}" ] (fn* (_ _ name _ _ _ constructor _ methods _)
|
|
(let* (processed_methods (flatten (map (fn* (m) [`'~(nth m 0) (nth m 2)]) methods)))
|
|
`(def! ~name (fn* (& args) (with-meta (apply ~constructor args) [ ,processed_methods ] ))))))
|
|
obj my_constructor {
|
|
(fn* () [17])
|
|
inc (fn* (o) (set-nth! o 0 (+ (nth o 0) 1)))
|
|
dec (fn* (o) (set-nth! o 0 (- (nth o 0) 1)))
|
|
set (fn* (o n) (set-nth! o 0 n))
|
|
get (fn* (o) (nth o 0))
|
|
}
|
|
|
|
(println "pre construct")
|
|
(def! actual_obj (my_constructor))
|
|
(println "constructed" actual_obj)
|
|
|
|
(println "here" actual_obj)
|
|
(println "here" (meta actual_obj))
|
|
|
|
(def! main (fn* () (do
|
|
(println "actual_obj" actual_obj)
|
|
(method-call actual_obj 'inc)
|
|
(println "actual_obj" actual_obj)
|
|
(println "with get: " (method-call actual_obj 'get))
|
|
(println "actual_obj" actual_obj)
|
|
(method-call actual_obj 'dec)
|
|
(method-call actual_obj 'dec)
|
|
(println "actual_obj" actual_obj)
|
|
(println "setting old style 654")
|
|
(method-call actual_obj 'set 654)
|
|
(println "actual_obj" actual_obj)
|
|
(println "Ok, doing with new method call syntax")
|
|
actual_obj.inc()
|
|
(println "actual_obj" actual_obj)
|
|
(println "setting new style 1337")
|
|
actual_obj.set(1337)
|
|
(println "actual_obj" actual_obj)
|
|
(println "with get " actual_obj.get())
|
|
0)))
|
|
(do
|
|
(println "interp-main")
|
|
(main)
|
|
(println "done interp-main")
|
|
nil)
|