From cb4496f15f5fad35ab42c1061746ee7753e0d3f8 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 4 Aug 2007 17:56:15 +0200
Subject: Implement the public function INVOKE.

darcs-hash:682c1fbf416e7a5192560d02c9a3343a98eb5c02
---
 Lisp/libobjcl.lisp          |  2 ++
 Lisp/method-invocation.lisp | 32 +++++++++++++++++++++++++++++---
 Lisp/parameters.lisp        |  4 +++-
 Lisp/reader-syntax.lisp     |  1 +
 4 files changed, 35 insertions(+), 4 deletions(-)

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index a7171b4..6f3b52a 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -7,8 +7,10 @@
 (use-foreign-library libobjcl)
 
 
+;; FIXME: docs
 (defcfun ("objcl_initialise_runtime" initialise-runtime) :void)
 
+;; FIXME: docs
 (defcfun ("objcl_shutdown_runtime" shutdown-runtime) :void)
 
 (defcfun ("objcl_invoke_instance_method"
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp
index 63f3e24..c7e8810 100644
--- a/Lisp/method-invocation.lisp
+++ b/Lisp/method-invocation.lisp
@@ -4,9 +4,35 @@
 ;;; (@* "Method invocation")
 (defun invoke (receiver message-start &rest message-components)
   "FIXME"
-  (flet ((message-component->string (component)
-           ()))
-  (do ((message-string ())))))
+  (flet ((message-component->string (symbol)
+           (let* ((components (split-sequence #\- (symbol-name symbol)
+                                              :remove-empty-subseqs t))
+                  (acc-string
+                   (reduce #'(lambda (x y) (concatenate 'string x y))
+                           (mapcar #'(lambda (x)
+                                       (concatenate 'string
+                                                    (string (char x 0))
+                                                    (string-downcase (subseq x 1))))
+                                   (subseq components 1))
+                           :initial-value (string-downcase (first components)))))
+             (if (eql (find-package '#:keyword)
+                      (symbol-package symbol))
+                 (concatenate 'string acc-string ":")
+                 acc-string))))
+    (do* ((components-left (cons message-start message-components)
+                           (cddr components-left))
+          (message-string (message-component->string message-start)
+                          (concatenate 'string
+                                       message-string
+                                       (message-component->string (first components-left))))
+          (arglist        (if (null (rest components-left))
+                              nil
+                              (list (second components-left)))
+                          (if (null (rest components-left))
+                              arglist
+                              (cons (second components-left) arglist))))
+        ((null (cddr components-left))
+         (apply #'invoke-by-name receiver message-string (nreverse arglist))))))
 
 
 (defun invoke-by-name (receiver method-name &rest args)
diff --git a/Lisp/parameters.lisp b/Lisp/parameters.lisp
index 2cb5a6d..3974b89 100644
--- a/Lisp/parameters.lisp
+++ b/Lisp/parameters.lisp
@@ -3,4 +3,6 @@
 
 (defvar *skip-finalization*  nil)
 (defvar *skip-retaining*     nil)
-(defvar *trace-method-calls* nil)
+
+(defvar *trace-method-calls* nil
+  "FIXME")
diff --git a/Lisp/reader-syntax.lisp b/Lisp/reader-syntax.lisp
index 3ca143b..ccb4ff0 100644
--- a/Lisp/reader-syntax.lisp
+++ b/Lisp/reader-syntax.lisp
@@ -2,6 +2,7 @@
 
 
 (defun install-reader-syntax ()
+  "FIXME"
   (set-macro-character #\] (get-macro-character #\)))
 
   (set-macro-character #\[ #'(lambda (stream char)
-- 
cgit v1.2.3