;;;; Author: Kevin M. Rosenberg
;;;; Created: Apr 2000
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
(funcall related-con-func ucon))
:key #'cui))
-(defun find-ucon2-coc-tui (ucon tui)
+#+mrcoc (defun find-ucon2-coc-tui (ucon tui)
"Return list of ucon's that have co-occuring concepts of semantic type tui"
(find-ucon2-tui ucon tui #'cui2 #'s#coc))
freqs)))
(sort freqs #'> :key #'freq)))
-(defun find-ucon2_freq-coc-tui (ucon tui)
+#+mrcoc (defun find-ucon2_freq-coc-tui (ucon tui)
"Return sorted list of tuples with ucon and freq that have co-occuring concepts of semantic type tui"
(let ((ucon_freqs '()))
(dolist (ucoc (s#coc ucon))
(funcall lookup-func ucon (tui usty))
nil)))
-(defun find-ucon2-coc-str&sty (str sty)
+#+mrcoc (defun find-ucon2-coc-str&sty (str sty)
"Find all ucons that are a co-occuring concept for concept named str
and that have semantic type of sty"
(find-ucon2-str&sty str sty #'find-ucon2-coc-tui))
"Sorted list of ucon_freq with semantic type tui that are rel's of ucons with semantic type tui"
(find-ucon2_freq-tui-all tui #'find-ucon2-rel-tui))
-(defun find-ucon2_freq-coc-tui-all (tui)
+#+mrcoc (defun find-ucon2_freq-coc-tui-all (tui)
(find-ucon2_freq-tui-all tui #'find-ucon2-coc-tui))
#+(or scl)