EsT %s = %s

;; -*- coding: utf-8-mcs-er -*- (require 'cwiki-common) (defvar chise-wiki-view-url "view.cgi") (defvar chise-wiki-edit-url "edit.cgi") (defvar chise-wiki-add-url "add.cgi") (defun www-display-object-desc (genre uri-object &optional lang level simple) (unless level (setq level 1)) (let ((object (www-uri-decode-object genre uri-object)) logical-feature chise-wiki-displayed-features parents GlyphWiki-id) (when object (when (and (eq genre 'character) (= (length uri-object) 1)) (setq uri-object (www-uri-encode-char object))) (when (= level 1) (princ (encode-coding-string (format " EsT %s = %s \n" genre (decode-uri-string uri-object 'utf-8-mcs-er)) 'utf-8-mcs-er)) (princ "\n")) (when (eq genre 'character) (dolist (feature (char-feature-property '$object 'additional-features)) (mount-char-attribute-table (char-feature-name-at-domain feature '$rev=latest)))) (princ (format (if simple "

\n" "

\n") uri-object)) (when (setq parents (www-get-feature-value object '<-denotational)) (princ (format "

%s %s

\n" (www-format-value-as-char-list parents) (www-format-feature-name '->denotational lang)))) (when (setq parents (www-get-feature-value object '<-subsumptive)) (princ (format "

%s %s

\n" (www-format-value-as-char-list parents) (www-format-feature-name '->subsumptive lang)))) (when (eq genre 'character) (setq GlyphWiki-id (char-GlyphWiki-id object))) (princ (format "%s%s\n" level (www-format-encode-string (est-format-object object) ;; (if (eq genre 'character) ;; (char-to-string object) ;; (format "%s" (concord-object-id object))) ) (if GlyphWiki-id (format " $\"%s\"$ " GlyphWiki-id GlyphWiki-id GlyphWiki-id) "") level)) (if (> level 1) (princ "

\n" "

\n")) (princ (www-format-eval-list (www-feature-format logical-feature) object logical-feature ; (car cell) lang uri-object nil simple)) (unless simple (princ (format " " chise-wiki-edit-url (www-format-encode-string uri-object) (www-format-encode-string (www-uri-encode-feature-name (intern (format "%s*note" logical-feature ; (car cell) ))))))) (princ (if (= level 1) "

\n")) )) (princ (if (= level 1) "
\n" "
\n")) (unless simple (princ (format " " chise-wiki-add-url (www-format-encode-string uri-object)))) (princ (if (= level 1) "
\n" "
\n")) (princ "
\n") (princ (www-format-encode-string (est-format-object object) ;; (if (eq genre 'character) ;; (format "%c" object) ;; (format "%s" (concord-object-id object))) )) (princ (format " " (encode-coding-string (est-format-object object) ;; (if (eq genre 'character) ;; (char-to-string object) ;; (format "%s" (concord-object-id object))) 'utf-8-jp-er))) (princ (www-format-encode-string "を\u542Bむ\u6F22\u5B57を\u63A2す")) (princ " \n") (princ "
\n") (princ (if (= level 1) "
\n" "
\n")) ))) (defun www-display-feature-desc (uri-feature-name uri-object &optional lang simple) (let ((feature-name (www-uri-decode-feature-name uri-feature-name)) (name@lang (intern (format "name@%s" lang)))) (princ (encode-coding-string (format " EsT feature: %s \n" feature-name) 'utf-8-mcs-er)) (princ "\n") (princ (format (if simple "

\n" "

\n") uri-feature-name uri-object)) (princ (format "
%s
\n" (www-format-encode-string (symbol-name feature-name)))) (princ (format "
name : %s " (or (www-format-feature-name feature-name) ""))) (unless simple (princ (format " " chise-wiki-edit-url uri-feature-name uri-object)) (princ "\n")) (princ "
\n") (when lang (princ "
") (princ (www-format-encode-string (format "%s : %s" name@lang (or (char-feature-property feature-name name@lang) "")))) (unless simple (princ (format " " chise-wiki-edit-url uri-feature-name name@lang uri-object)) (princ "\n")) (princ "
\n")) (www-html-display-paragraph (format "type : %s" (or (www-feature-type feature-name) ;; (char-feature-property feature-name 'type) 'generic))) (princ (format "
value-format : %s " (www-format-value nil 'value-format (or (www-feature-value-format feature-name) 'default) 'default 'without-tags))) (unless simple (princ (format " " chise-wiki-edit-url uri-feature-name uri-object)) (princ "\n")) (princ "
\n") (princ "
format : ") (www-html-display-text (decode-coding-string (www-xml-format-list (www-feature-format feature-name)) 'utf-8-mcs-er)) (unless simple (princ (format " " chise-wiki-edit-url uri-feature-name uri-object)) (princ "\n")) (princ "
\n") (www-html-display-paragraph (format "description : %s" (or (char-feature-property feature-name 'description) ""))) (when lang (www-html-display-paragraph (format "description@%s : %s" lang (or (char-feature-property feature-name (intern (format "description@%s" lang))) "")))) )) (defun www-batch-view () (setq terminal-coding-system 'binary) (condition-case err (let* ((target (pop command-line-args-left)) (user (pop command-line-args-left)) (accept-language (pop command-line-args-left)) (mode (intern (pop command-line-args-left))) (lang (intern (car (split-string (car (split-string (car (split-string accept-language ",")) ";")) "-")))) ret) (princ "Content-Type: text/html; charset=UTF-8 ") (cond ((stringp target) (when (string-match "^char=\$&[^&;]+;\$" target) (setq ret (match-end 0)) (setq target (concat "char=" (www-uri-encode-char (www-uri-decode-object 'character (match-string 1 target))) (substring target ret)))) (setq target (mapcar (lambda (cell) (if (string-match "=" cell) (cons (intern (decode-uri-string (substring cell 0 (match-beginning 0)) 'utf-8-mcs-er)) (substring cell (match-end 0))) (list (decode-uri-string cell 'utf-8-mcs-er)))) (split-string target "&"))) (setq ret (car target)) (cond ((eq (car ret) 'char) (www-display-object-desc 'character (cdr ret) lang nil (eq mode 'simple)) ) ((eq (car ret) 'feature) (www-display-feature-desc (decode-uri-string (cdr ret) 'utf-8-mcs-er) (cdr (assq 'char target)) lang (eq mode 'simple)) ) (t (www-display-object-desc (car ret) (cdr ret) lang nil (eq mode 'simple)) )) )) (princ "\n
\n") (princ (format "mode=%S\n" mode)) (princ (format "user=%s\n" user)) ;; (princ (format "local user=%s\n" (user-login-name))) (princ (format "lang=%S\n" lang)) (princ (emacs-version)) ;; (princ " CHISE ") ;; (princ xemacs-chise-version) (princ " ") ) (error nil (princ (format "%S" err))) )) (provide 'cwiki-view)