\n"
(car ret)(nth 2 ret)))
(setq ret (est-rdf-encode-feature-name metadata-feature-type))
(setq rdf-feature-name-domain (car ret)
rdf-feature-name-uri (nth 1 ret)
rdf-feature-name-base (nth 2 ret))
(setq rdf-feature-name (format "%s:%s"
rdf-feature-name-domain
rdf-feature-name-base))
(setq rdf-feature-name-space
(format "xmlns:%s=\"%s\""
rdf-feature-name-domain
rdf-feature-name-uri))
)
(t
(setq metadata-feature-type nil)
(princ
(format "\n"
genre uri-object
))
))
(princ
(cond
((memq logical-feature have-matedata)
;; (setq ret (assq logical-feature feature-metadata-alist))
(format " <%s\n %s\n rdf:ID=\"%s...%s\">%s%s%s%s>\n"
rdf-feature-name
rdf-feature-name-space
rdf-feature-name-domain rdf-feature-name-base
(if rdf-container
(format "\n <%s>" rdf-container)
"")
(est-rdf-format-object-list value rdf-container)
(if rdf-container
(format "%s>\n " rdf-container)
"")
rdf-feature-name)
)
(t
(format " <%s\n %s>%s%s%s%s>\n"
rdf-feature-name
rdf-feature-name-space
(if rdf-container
(format "\n <%s>" rdf-container)
"")
(est-rdf-format-object-list value rdf-container)
(if rdf-container
(format "%s>\n " rdf-container)
"")
rdf-feature-name)
)))
(princ "\n")
))
)))
(defun est-rdf-display-feature-desc (uri-feature-name genre 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 genre 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
genre
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
genre
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
genre
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
genre
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 est-rdf-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 genre)
(princ "Content-Type: application/xml
")
(cond
((stringp target)
(when (string-match "^char=\\(&[^&;]+;\\)" target)
(setq ret (match-end 0))
(setq target
(concat "char="
(www-uri-encode-object
(www-uri-decode-object
'character (match-string 1 target)))
(substring target ret))))
(setq target
(mapcar (lambda (cell)
(if (string-match "=" cell)
(progn
(setq genre (substring cell 0 (match-beginning 0))
ret (substring cell (match-end 0)))
(cons
(intern
(decode-uri-string genre 'utf-8-mcs-er))
ret))
(list (decode-uri-string cell 'utf-8-mcs-er))))
(split-string target "&")))
(setq ret (car target))
(cond ((eq (car ret) 'char)
(est-rdf-display-object-desc
'character
(cdr ret)
lang nil)
)
((eq (car ret) 'feature)
(est-rdf-display-feature-desc
(decode-uri-string (cdr ret) 'utf-8-mcs-er)
(car (nth 1 target))
(cdr (nth 1 target))
lang
(eq mode 'simple))
)
(t
(est-rdf-display-object-desc
(car ret)
(cdr ret)
lang nil)
))
))
(princ "")
)
(error nil
(princ (format "%S" err)))
))
(provide 'cwiki-view)