;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: composite.lisp,v 1.3 2002/10/09 23:03:41 kevin Exp $
+;;;; $Id: composite.lisp,v 1.5 2002/10/14 15:03:43 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(:fields (tui :string fmt-tui) (freq :fixnum) (sty :string))
(:documentation "Composite object of usty/freq"))
+(defun find-usty_freq-all ()
+ (let ((usty_freqs '()))
+ (dolist (tuple (mutex-sql-query "select distinct TUI from MRSTY"))
+ (let* ((tui (car tuple))
+ (freq (ensure-integer
+ (caar (mutex-sql-query
+ (format nil "select count(*) from MRSTY where TUI=~a" tui))))))
+ (push (make-instance 'usty_freq :usty (find-usty-tui tui) :freq freq) usty_freqs)))
+ (sort usty_freqs #'> :key #'freq)))
+
(defun usty_freq-tui (s)
(tui (usty s)))
(defun find-ucon2_freq-coc-tui-all (tui)
(find-ucon2_freq-tui-all tui #'find-ucon2-coc-tui))
+#+cmu
+(dolist (c '(ucon_freq ustr_freq usty_freq usrl_freq))
+ (let ((cl #+cmu (pcl:find-class c)
+ #+sbcl (sb-pcl:find-class c)))
+ #+cmu (pcl:finalize-inheritance cl)
+ #+sbcl (sb-pcl:finalize-inheritance cl)))