+ (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 ret (est-rdf-encode-feature-name metadata-feature-target))
+ (princ
+ (format "<rdf:Description
+ rdf:about=\"#%s...%s\">\n"
+ (car ret)(cdr ret)))
+ (setq ret (est-rdf-encode-feature-name metadata-feature-type))
+ (setq rdf-feature-name-domain (car ret)
+ rdf-feature-name-base (cdr ret))
+ (setq rdf-feature-name (format "%s:%s" (car ret)(cdr ret)))
+ (setq rdf-feature-name-space
+ (format
+ "xmlns:%s=\"http://www.chise.org/est/rdf.cgi?domain=%s/\""
+ (car ret)
+ (car ret)))
+ )
+ (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
+ ))
+ ))