From: ueno <ueno>
Date: Sat, 4 Nov 2000 07:34:04 +0000 (+0000)
Subject: * sasl.el (sasl-make-instantiator): Define as function.
X-Git-Tag: deisui-1_14_0-1~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a4bb4b2e9c563ea7f5bb2620bf3ae36496d20369;p=elisp%2Fflim.git

* sasl.el (sasl-make-instantiator): Define as function.
(sasl-instantiator-name): Ditto.
(sasl-instantiator-service): Ditto.
(sasl-instantiator-server): Ditto.
(sasl-instantiator-set-properties): Ditto.
(sasl-instantiator-set-property): Ditto.
(sasl-instantiator-property): Ditto.
(sasl-instantiator-properties): Ditto.
(sasl-authenticator-mechanism): Ditto.
(sasl-authenticator-continuations): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 10f8295..2a59cec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2000-11-04   Daiki Ueno  <ueno@unixuser.org>
+
+	* sasl.el (sasl-make-instantiator): Define as function.
+	(sasl-instantiator-name): Ditto.
+	(sasl-instantiator-service): Ditto.
+	(sasl-instantiator-server): Ditto.
+	(sasl-instantiator-set-properties): Ditto.
+	(sasl-instantiator-set-property): Ditto.
+	(sasl-instantiator-property): Ditto.
+	(sasl-instantiator-properties): Ditto.
+	(sasl-authenticator-mechanism): Ditto.
+	(sasl-authenticator-continuations): Ditto.
+
 2000-11-02   Daiki Ueno  <ueno@unixuser.org>
 
 	* sasl.el: Rename `sasl-*principal*' to `sasl-*instantiator*'.
diff --git a/sasl.el b/sasl.el
index 99c5685..97beeee 100644
--- a/sasl.el
+++ b/sasl.el
@@ -59,41 +59,40 @@
 ;;; @ SASL instantiator
 ;;;
 
-(defmacro sasl-make-instantiator (name service server)
+(defun sasl-make-instantiator (name service server)
   "Return a newly allocated SASL instantiator.
 NAME is name of the authorization.  SERVICE is name of the service desired.
 SERVER is the fully qualified host name of the server to authenticate to."
-  (let ((props (make-symbol "sasl-instantiator-properties")))
-    `(vector ,name ,service ,server ',props)))
+  (vector name service server (make-symbol "sasl-instantiator-properties")))
 
-(defmacro sasl-instantiator-name (instantiator)
+(defun sasl-instantiator-name (instantiator)
   "Return the authorization name of INSTANTIATOR, a string."
-  `(aref ,instantiator 0))
+  (aref instantiator 0))
 
-(defmacro sasl-instantiator-service (instantiator)
+(defun sasl-instantiator-service (instantiator)
   "Return the service name of INSTANTIATOR, a string."
-  `(aref ,instantiator 1))
+  (aref instantiator 1))
 
-(defmacro sasl-instantiator-server (instantiator)
+(defun sasl-instantiator-server (instantiator)
   "Return the server name of INSTANTIATOR, a string."
-  `(aref ,instantiator 2))
+  (aref instantiator 2))
 
-(defmacro sasl-instantiator-set-properties (instantiator plist)
+(defun sasl-instantiator-set-properties (instantiator plist)
   "Destructively set the properties of INSTANTIATOR.
 The second argument PLIST is the new property list."
-  `(setplist (aref ,instantiator 3) ,plist))
+  (setplist (aref instantiator 3) plist))
 
-(defmacro sasl-instantiator-set-property (instantiator property value)
+(defun sasl-instantiator-set-property (instantiator property value)
   "Add the given property/value to INSTANTIATOR."
-  `(put (aref ,instantiator 3) ,property ,value))
+  (put (aref instantiator 3) property value))
 
-(defmacro sasl-instantiator-property (instantiator property)
+(defun sasl-instantiator-property (instantiator property)
   "Return the value of the PROPERTY of INSTANTIATOR."
-  `(get (aref ,instantiator 3) ,property))
+  (get (aref instantiator 3) property))
 
-(defmacro sasl-instantiator-properties (instantiator)
+(defun sasl-instantiator-properties (instantiator)
   "Return the properties of INSTANTIATOR."
-  `(symbol-plist (aref ,instantiator 3)))
+  (symbol-plist (aref instantiator 3)))
 
 ;;; @ SASL authenticator
 ;;;
@@ -110,13 +109,13 @@ CONTINUATIONS is list of continuation function."
 	       symbol))
 	   continuations)))
 
-(defmacro sasl-authenticator-mechanism (authenticator)
+(defun sasl-authenticator-mechanism (authenticator)
   "Return name of the mechanism AUTHENTICATOR supports, a string."
-  `(aref ,authenticator 0))
+  (aref authenticator 0))
 
-(defmacro sasl-authenticator-continuations (authenticator)
+(defun sasl-authenticator-continuations (authenticator)
   "Return continuation steps of AUTHENTICATOR, a list of functions."
-  `(aref ,authenticator 1))
+  (aref authenticator 1))
 
 (defun sasl-find-authenticator (mechanisms)
   "Retrieve an apropriate authenticator object from MECHANISMS hints."