data-structures.lisp

   1 ;;;; $Id: data-structures.lisp,v 1.1 2002/10/05 20:17:14 kevin Exp $
   2
   3 (in-package :umlisp)
   4
   5
   6 ;;; Paths for files
   7
   8 (defvar *umls-path*
   9     (kboot:find-directory
  10      '((nil (:absolute "data" "umls" "2002AC"))
  11        (nil (:absolute "data" "umls" "2002AB"))
  12        (nil (:absolute "data" "umls" "UMLS2001"))
  13        #+mswindows ("F" (:absolute "umls" "2002ac"))
  14        #+mswindows ("C" (:absolute "umls"))
  15        #+mswindows ("F" (:absolute "umls" "UMLS2001"))
  16        ))
  17   "Path for base of UMLS data files")
  18
  19 (defvar *meta-path*
  20     (merge-pathnames
  21      (make-pathname :directory '(:relative "META"))
  22      *umls-path*))
  23
  24 (defvar *lex-path*
  25     (merge-pathnames
  26      (make-pathname :directory '(:relative "LEX"))
  27      *umls-path*))
  28
  29 (defvar *net-path*
  30     (merge-pathnames
  31      (make-pathname :directory '(:relative "NET"))
  32      *umls-path*))
  33
  34 (defun umls-path! (p)
  35   (setq *umls-path* p))
  36
  37
  38 ;;; Structures for parsing UMLS text files
  39
  40 (defparameter *umls-files* nil
  41   "List of umls file structures. Used when parsing text files.")
  42 (defparameter *umls-cols* nil
  43   "List of meta column structures. Used when parsing text files.")
  44