(setq buffer (funcall mixi-retrieve-function ,url))))
,@body))
(put 'with-mixi-retrieve 'lisp-indent-function 'defun)
+(put 'with-mixi-retrieve 'edebug-form-spec '(form body))
(defun mixi-get-matched-items (url max-numbers regexp)
"Get matched items to REGEXP in URL."
(buffer-string)))
;; Cache.
-
-;; stolen from time-date.el
-(defmacro with-mixi-decoded-time-value (varlist &rest body)
- "Decode a time value and bind it according to VARLIST, then eval BODY.
-
-The value of the last form in BODY is returned.
-
-Each element of the list VARLIST is a list of the form
-\(HIGH-SYMBOL LOW-SYMBOL MICRO-SYMBOL [TYPE-SYMBOL] TIME-VALUE).
-The time value TIME-VALUE is decoded and the result it bound to
-the symbols HIGH-SYMBOL, LOW-SYMBOL and MICRO-SYMBOL.
-
-The optional TYPE-SYMBOL is bound to the type of the time value.
-Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH
-LOW), and type 3 is the list (HIGH LOW MICRO)."
- (declare (indent 1)
- (debug ((&rest (symbolp symbolp symbolp &or [symbolp form] form))
- body)))
- (if varlist
- (let* ((elt (pop varlist))
- (high (pop elt))
- (low (pop elt))
- (micro (pop elt))
- (type (unless (eq (length elt) 1)
- (pop elt)))
- (time-value (car elt))
- (gensym (make-symbol "time")))
- `(let* ,(append `((,gensym ,time-value)
- (,high (pop ,gensym))
- ,low ,micro)
- (when type `(,type)))
- (if (consp ,gensym)
- (progn
- (setq ,low (pop ,gensym))
- (if ,gensym
- ,(append `(setq ,micro (car ,gensym))
- (when type `(,type 2)))
- ,(append `(setq ,micro 0)
- (when type `(,type 1)))))
- ,(append `(setq ,low ,gensym ,micro 0)
- (when type `(,type 0))))
- (with-mixi-decoded-time-value ,varlist ,@body)))
- `(progn ,@body)))
-(put 'with-mixi-decoded-time-value 'lisp-indent-function 'defun)
-
-;; stolen from time-date.el
-(defun mixi-encode-time-value (high low micro type)
- "Encode HIGH, LOW, and MICRO into a time value of type TYPE.
-Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH LOW),
-and type 3 is the list (HIGH LOW MICRO)."
- (cond
- ((eq type 0) (cons high low))
- ((eq type 1) (list high low))
- ((eq type 2) (list high low micro))))
-
;; stolen from time-date.el
(defun mixi-time-less-p (t1 t2)
"Say whether time value T1 is less than time value T2."
- (with-mixi-decoded-time-value ((high1 low1 micro1 t1)
- (high2 low2 micro2 t2))
- (or (< high1 high2)
- (and (= high1 high2)
- (or (< low1 low2)
- (and (= low1 low2)
- (< micro1 micro2)))))))
+ (or (< (car t1) (car t2))
+ (and (= (car t1) (car t2))
+ (< (nth 1 t1) (nth 1 t2)))))
-;; stolen from time-date.el
(defun mixi-time-add (t1 t2)
"Add two time values. One should represent a time difference."
- (with-mixi-decoded-time-value ((high low micro type t1)
- (high2 low2 micro2 type2 t2))
- (setq high (+ high high2)
- low (+ low low2)
- micro (+ micro micro2)
- type (max type type2))
- (when (>= micro 1000000)
- (setq low (1+ low)
- micro (- micro 1000000)))
- (when (>= low 65536)
- (setq high (1+ high)
- low (- low 65536)))
- (mixi-encode-time-value high low micro type)))
+ (let ((low (+ (cdr t1) (cdr t2))))
+ (cons (+ (car t1) (car t2) (lsh low -16)) low)))
;; stolen from time-date.el
(defun mixi-seconds-to-time (seconds)
"Convert SECONDS (a floating point number) to a time value."
- (list (floor seconds 65536)
- (floor (mod seconds 65536))
- (floor (* (- seconds (ffloor seconds)) 1000000))))
+ (cons (floor seconds 65536)
+ (floor (mod seconds 65536))))
(defun mixi-cache-expired-p (object)
"Whether a cache of OBJECT is expired."
(mixi-get-comments diary)))
items)))
+;; Message object.
+(defvar mixi-message-cache (make-hash-table :test 'equal))
+(defun mixi-make-message (id box)
+ "Return a message object."
+ (mixi-make-cache (list id box)
+ (cons 'mixi-message (vector nil id box nil nil nil nil))
+ mixi-message-cache))
+
+(defmacro mixi-message-p (message)
+ `(eq (mixi-object-class ,message) 'mixi-message))
+
+(defmacro mixi-message-page (message)
+ `(concat "/view_message.pl?id=" (mixi-message-id ,message)
+ "&box=" (mixi-message-box ,message)))
+
+(defconst mixi-message-owner-regexp
+ "<font COLOR=#996600>º¹½Ð¿Í</font> : <a HREF=\"show_friend\\.pl\\?id=\\([0-9]+\\)\">\\(.+\\)</a>")
+(defconst mixi-message-title-regexp
+ "<font COLOR=#996600>·ï¡¡Ì¾</font> : \\(.+\\)
+</td>")
+(defconst mixi-message-time-regexp
+ "<font COLOR=#996600>Æü¡¡ÉÕ</font> : \\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\)»þ\\([0-9]+\\)ʬ ")
+(defconst mixi-message-content-regexp
+ "<tr><td CLASS=h120>\\(.+\\)</td></tr>")
+
+(defun mixi-message-realize (message)
+ "Realize a MESSAGE."
+ (unless (mixi-message-realize-p message)
+ (with-mixi-retrieve (mixi-message-page message)
+ (if (string-match mixi-message-owner-regexp buffer)
+ (mixi-message-set-owner message
+ (mixi-make-friend (match-string 1 buffer)
+ (match-string 2 buffer)))
+ (signal 'error (list 'cannot-find-owner message)))
+ (if (string-match mixi-message-title-regexp buffer)
+ (mixi-message-set-title message (match-string 1 buffer))
+ (signal 'error (list 'cannot-find-title message)))
+ (if (string-match mixi-message-time-regexp buffer)
+ (mixi-message-set-time
+ message (encode-time 0 (string-to-number (match-string 5 buffer))
+ (string-to-number (match-string 4 buffer))
+ (string-to-number (match-string 3 buffer))
+ (string-to-number (match-string 2 buffer))
+ (string-to-number (match-string 1 buffer))))
+ (signal 'error (list 'cannot-find-time message)))
+ (if (string-match mixi-message-content-regexp buffer)
+ (mixi-message-set-content message (mixi-remove-markup
+ (match-string 1 buffer)))
+ (signal 'error (list 'cannot-find-content message))))
+ (mixi-message-touch message)))
+
+(defun mixi-message-realize-p (message)
+ "Return the timestamp of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aref (cdr message) 0))
+
+(defun mixi-message-id (message)
+ "Return the id of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aref (cdr message) 1))
+
+(defun mixi-message-box (message)
+ "Return the box of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aref (cdr message) 2))
+
+(defun mixi-message-owner (message)
+ "Return the owner of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (mixi-message-realize message)
+ (aref (cdr message) 3))
+
+(defun mixi-message-title (message)
+ "Return the title of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (mixi-message-realize message)
+ (aref (cdr message) 4))
+
+(defun mixi-message-time (message)
+ "Return the date of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (mixi-message-realize message)
+ (aref (cdr message) 5))
+
+(defun mixi-message-content (message)
+ "Return the content of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (mixi-message-realize message)
+ (aref (cdr message) 6))
+
+(defun mixi-message-touch (message)
+ "Set the timestamp of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aset (cdr message) 0 (current-time)))
+
+(defun mixi-message-set-owner (message owner)
+ "Set the owner of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aset (cdr message) 3 owner))
+
+(defun mixi-message-set-title (message title)
+ "Set the title of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aset (cdr message) 4 title))
+
+(defun mixi-message-set-time (message time)
+ "Set the date of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aset (cdr message) 5 time))
+
+(defun mixi-message-set-content (message content)
+ "Set the content of MESSAGE."
+ (unless (mixi-message-p message)
+ (signal 'wrong-type-argument (list 'mixi-message-p message)))
+ (aset (cdr message) 6 content))
+
+(defmacro mixi-message-list-page (&optional box)
+ `(concat "/list_message.pl?page=%d"
+ (when ,box (concat "&box=" ,box))))
+
+(defconst mixi-message-list-regexp
+ "<td><a HREF=\"view_message\\.pl\\?id=\\(.+\\)&box=\\(.+\\)\">")
+
+(defun mixi-get-messages (&rest args)
+ "Get messages."
+ (when (> (length args) 2)
+ (signal 'wrong-number-of-arguments (list 'mixi-get-messages
+ (length args))))
+ (let ((box (nth 0 args))
+ (max-numbers (nth 1 args)))
+ (when (or (not (stringp box)) (stringp max-numbers))
+ (setq box (nth 1 args))
+ (setq max-numbers (nth 0 args)))
+ (let ((items (mixi-get-matched-items (mixi-message-list-page box)
+ max-numbers
+ mixi-message-list-regexp)))
+ (mapcar (lambda (item)
+ (mixi-make-message (nth 0 item) (nth 1 item)))
+ items))))
+
(provide 'mixi)
;;; mixi.el ends here
projects / elisp / mixi.git / blobdiff