Comments on: просыпаясь

By: cmm

cmm — Mon, 19 Nov 2007 19:04:47 +0000

… либо передавать имя слота и использовать slot-value (и евойный, соответственно, setf-метод).
… либо передавать маленький такой псевдо-пойнтер в виде closure, который либо возвращает значение слота, либо меняет его на новое, в зависимости от количества параметров.

но ваще какой-то дизайн у тебя неортодоксальный :)

(http://livejournal.com/users/cmm)

By: cmm

cmm — Mon, 19 Nov 2007 18:51:51 +0000

Это реально, вообще, потому что я как-то запутался.

не-а, нереально.
но ты можешь точно также передать #'(setf access-slot).

(http://livejournal.com/users/cmm)

By: gianthare

gianthare — Mon, 19 Nov 2007 18:24:12 +0000

А вот у меня к тебе еще вопрос - я в функцию передал accessor, который defclass определил, типа
#'access-slot
а теперь хочу этот slot изменить внутри функции, т.е. вызвать как бы (setf (access-slot obj) val), но используя, естественно не имя accessor'а, а этот переданный параметр. Это реально, вообще, потому что я как-то запутался. Пытался через get-setf-что-то там, но только хуже стало

(http://livejournal.com/users/gianthare)

By: cmm

cmm — Mon, 08 Oct 2007 06:23:41 +0000

чем хорош deftype, кроме того, что потом можно typep делать?

декларативностью.
но это дело вкуса, в общем.

(http://livejournal.com/users/cmm)

By: gianthare

gianthare — Mon, 08 Oct 2007 05:23:35 +0000

Да, симпатично, особенно coerce хорош, а то я уже обыскался нормальной функции, которая из списка стринг сделает.
А чем хорош deftype, кроме того, что потом можно typep делать?

(http://livejournal.com/users/gianthare)

By: cmm

cmm — Sun, 07 Oct 2007 15:49:11 +0000

или так (не сильно короче, зато типа идиоматичнее):

(deftype white-space () '(member #\Space #\Newline #\Tab))
(deftype paren       () '(member #\) #\())
(deftype terminator  () '(or white-space paren (eql eof)))

(defun get-char (stream)
  (read-char stream nil 'eof))
(defun unget-char (char stream)
  (unless (eq char 'eof)
    (unread-char char stream)))

(defun read-token (stream)
  ;; skip whitespace
  (loop for char = (get-char stream)
        while (typep char 'white-space)
        finally (unget-char char stream))
  ;; read the token
  (let ((char (get-char stream)))
    (typecase char
      (paren char)
      (t     (unget-char char stream)
             (loop for char = (get-char stream)
                   until (typep char 'terminator)
                   collecting char into chars
                   finally (progn
                             (unget-char char stream)
                             (return (if chars (intern (coerce chars 'string))
                                         (error "unexpected EOF")))))))))

(defun read-sexp (&optional stream in-list-p)
  (let ((token (read-token stream)))
    (case token
      (#\) (if in-list-p token
               (error "unexpected close parenthesis")))
      (#\( (loop for sexp = (read-sexp stream t)
                 until (member sexp '(#\) eof))
                 collecting sexp
                 finally (unless (eq sexp #\))
                           (error "unexpected EOF (unterminated list)"))))
      (t   token))))

(http://livejournal.com/users/cmm)

By: gianthare

gianthare — Sun, 07 Oct 2007 13:57:39 +0000

Наврал. Нормально работает. 73,000 предложений засосал прямо у меня на глазах, где-то за минуту-другую.

(http://livejournal.com/users/gianthare)

By: gianthare

gianthare — Sun, 07 Oct 2007 13:34:37 +0000

Только он, сука, медленный - 47М уже полчаса парсит, при том, что он себе целое CPU заграбастал.

(http://livejournal.com/users/gianthare)

By: gianthare

gianthare — Sun, 07 Oct 2007 13:27:07 +0000

Я отчаялся и написал сам мини-парсер. Полстраницы. Давно надо было это сделать.

(defconstant *RB* (intern ")"))
(defconstant *LB* (intern "("))

(defun whitespace (ch)
  (or (eq ch #\ ) (eq ch #\
)))

(defmacro list2string (l)
  `(make-array (length ,l) :element-type 'character :initial-contents ,l))

(defun read-token (stream)
  (let ((buffer ()))
    (loop for ch = (read-char stream nil nil) do
	  (cond
	    ((null ch) (if (null buffer) (return-from  read-token nil) (return)))
	    ((whitespace ch) (unless (null buffer) (return)))
	    ((or (eq ch #\() (eq ch #\))) (if (null buffer) (push ch buffer) (unread-char ch stream)) (return))
	    (t (push ch buffer))))
    (intern (nreverse (list2string buffer)))))

(defun read-sexp (&optional (stream nil) (in-list nil))
  (let ((token (read-token stream)))
    (cond
      ((eq token *LB*) (read-list stream))
      ((eq token *RB*) (if in-list token (error "an object cannot start with #\)")))
      (t token))))

(defun read-list (stream)
  (loop for sexp = (read-sexp stream t) with ll = () do
	(cond
	  ((null sexp) (error "Unexpected end of stream inside list"))
	  ((eq sexp *RB*) (return (nreverse ll)))
	  (t (push sexp ll)))))

Думаю можно сократить еще вдвое

(http://livejournal.com/users/gianthare)

By: cmm

cmm — Sun, 07 Oct 2007 10:34:42 +0000

смешно, конечно, что насколько лиспообразный формат надо на Якке парсить

необязательно, конечно :)
ручной recursive-descent парсер можно ручками написать, больше пары страниц без вытребенек занять не должно, даже на C.

есть даже готовые библиотечки, типа вот:
http://sourceforge.net/projects/sexpr

(http://livejournal.com/users/cmm)