;; -*- coding: utf-8-mcs-er -*-
-(defvar chise-wiki-view-url "../view.cgi")
+(defvar chise-wiki-view-url "view.cgi")
(defvar chise-wiki-edit-url "edit.cgi")
(require 'cwiki-common)
(defun www-parse-string-default (string)
(setq string (decode-uri-string string 'utf-8-mcs-er))
(condition-case nil
- (let ((ret
- (mapcar #'read (split-string string " "))))
- (if (cdr ret)
- ret
- (car ret)))
+ ;; (let ((ret
+ ;; (mapcar #'read (split-string string " "))))
+ ;; (if (cdr ret)
+ ;; ret
+ ;; (car ret)))
+ (let ((i 0)
+ (len (length string))
+ dest ret)
+ (while (< i len)
+ (setq ret (read-from-string string i))
+ (setq dest (cons (car ret) dest)
+ i (cdr ret)))
+ (if (cdr dest)
+ (nreverse dest)
+ (if (atom (car dest))
+ (car dest)
+ (nreverse dest))))
(error nil)))
(defun www-parse-string-as-space-separated-char-list (string)
(let (dest char)
(dolist (unit (split-string string "\\+"))
- (if (setq char (www-uri-decode-char unit))
+ (if (setq char (www-uri-decode-object 'character unit))
(setq dest (cons char dest))))
(nreverse dest)))
(let (char)
(mapconcat
(lambda (unit)
- (if (setq char (www-uri-decode-char unit))
+ (if (setq char (www-uri-decode-object 'character unit))
(char-to-string char)
unit))
(split-string string "\\+")
(+ (lsh (+ ku 32) 8)
ten 32)))))
+(defun www-parse-string-as-kangxi-radical (string)
+ (setq string (decode-uri-string string 'utf-8-mcs-er))
+ (let ((i 0)
+ (len (length string))
+ char ret)
+ (while (and (< i len)
+ (setq char (aref string i))
+ (not
+ (and (setq ret (char-ucs char))
+ (<= #x2F00 ret)
+ (<= ret #x2FD5)))
+ (not (setq ret (char-feature char '->radical))))
+ (setq i (1+ i)))
+ (if (integerp ret)
+ (- ret #x2EFF)
+ (and (setq ret (car ret))
+ (setq ret (char-ucs ret))
+ (<= #x2F00 ret)
+ (<= ret #x2FD5)
+ (- ret #x2EFF)))))
+
(defun www-parse-string-as-wiki-text (string)
(www-stext-parse-xml-string
(decode-uri-string string 'utf-8-mcs-er))
((eq format 'string)
(decode-uri-string string 'utf-8-mcs-er)
)
+ ((eq format 'kangxi-radical)
+ (www-parse-string-as-kangxi-radical string))
((eq format 'wiki-text)
(www-parse-string-as-wiki-text string)
)
(setq feature (intern feature)))
(when (stringp format)
(setq format (intern format)))
- (let ((char (www-uri-decode-char uri-char))
+ (let ((char (www-uri-decode-object 'character uri-char))
latest-feature
logical-feature displayed-features
ret)
(setq latest-feature
(char-feature-name-at-domain feature '$rev=latest))
(if value
- (if (equal (www-char-feature char feature) value)
+ (if (equal (www-get-feature-value char feature) value)
(www-html-display-paragraph
"Feature-value is not changed.")
;; (www-html-display-paragraph
;; (format "New feature-value = %S is different from old value %S"
;; value
- ;; (www-char-feature char feature)))
+ ;; (www-get-feature-value char feature)))
(put-char-attribute char latest-feature value)
(save-char-attribute-table latest-feature)
(setq ret (char-feature-property '$object 'additional-features))
(www-format-encode-string uri-char)))
)))
-(defun www-set-display-feature-desc (feature-name property-name value
+(defun www-set-display-feature-desc (feature-name property-name value format
&optional lang uri-char)
(www-html-display-paragraph
(format
- "set: feature: %S, property-name: %S, value: %S, lang: %S, char: %S\n"
- feature-name property-name value lang uri-char))
+ "set: feature: %S, property-name: %S, format: %S, value: %S, lang: %S, char: %S\n"
+ feature-name property-name format value lang uri-char))
+ (setq value (www-feature-parse-string property-name value format))
+ (www-html-display-paragraph
+ (format
+ "set: feature: %S, property-name: %S, format: %S, value: %S, lang: %S, char: %S\n"
+ feature-name property-name format value lang uri-char))
(put-char-feature-property feature-name property-name value)
(let ((name@lang (intern (format "name@%s" lang)))
(uri-feature-name (www-uri-encode-feature-name feature-name)))
(or (www-feature-type feature-name)
;; (char-feature-property feature-name 'type)
'generic)))
+ (princ (format "<p>value-format : %s "
+ (www-format-value
+ nil 'value-format
+ (or (www-feature-value-format feature-name)
+ 'default)
+ 'default
+ 'without-tags)))
+ (princ
+ (format
+ " <a href=\"%s?feature=%s&property=value-format&format=wiki-text&char=%s\"
+><input type=\"submit\" value=\"edit\" /></a></p>"
+ chise-wiki-edit-url
+ uri-feature-name
+ uri-char))
(www-html-display-paragraph
(format "description : %s"
(or (char-feature-property feature-name 'description)
""))))
(princ "<hr />")
(www-html-display-paragraph
- (format "「[[%c|../view.cgi?char=%s]]」に\u623Bる"
- (www-uri-decode-char uri-char) uri-char))
+ (format "「[[%c|%s?char=%s]]」に\u623Bる"
+ (www-uri-decode-object 'character uri-char)
+ chise-wiki-view-url
+ uri-char))
))
(defun www-batch-set ()
lang)
)
((eq (car ret) 'feature)
- (setq prop (nth 2 target))
+ (setq prop (nth 3 target))
(www-set-display-feature-desc
(intern (decode-uri-string (cdr ret) 'utf-8-mcs-er))
+ (intern (decode-uri-string
+ (cdr (assq 'feature-name (cdr target)))
+ 'utf-8-mcs-er))
+ (cdr prop) ; (decode-uri-string (cdr prop) 'utf-8-mcs-er)
(car prop)
- (decode-uri-string (cdr prop) 'utf-8-mcs-er)
lang
(cdr (assq 'char target))
- ;; (decode-uri-string (cdr (assq 'char target)))
)
))
(www-html-display-paragraph
(princ (format "lang=%S\n" lang))
(princ emacs-version)
(princ " CHISE ")
- (princ xemacs-chise-version)
+ (princ (encode-coding-string xemacs-chise-version 'utf-8-jp-er))
(princ "
</body>
</html>")
projects / chise / est.git / blobdiff