+ (cond
+ ((string-match "[^*]\\*[^*]+$" logical-feature-name)
+ (setq metadata-feature-target
+ (intern (substring logical-feature-name
+ 0 (1+ (match-beginning 0)))))
+ ;; (setq metadata-feature-type
+ ;; (intern (substring logical-feature-name
+ ;; (1+ (match-beginning 0)))))
+ (setq metadata-feature-type
+ (intern (substring logical-feature-name
+ (+ (match-beginning 0) 2))))
+ (setq ret (est-rdf-encode-feature-name metadata-feature-target))
+ (princ
+ (format "<rdf:Description
+ rdf:about=\"#%s...%s\">\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 "<rdf:Description
+ rdf:about=\"http://www.chise.org/est/rdf.cgi?%s=%s\">\n"
+ genre uri-object
+ ))
+ ))