data-structures.lisp

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