X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-rrf.lisp;h=84a4b4b168d114b1eaae3b70ec8549d2c8ac00e6;hb=2602e82650f294955a06228db3d4b6a872f1485c;hp=20e58b457e6516a950e1eeb1415a05dce4b959a6;hpb=3624cc56e888df9ff9398810dc2b404cb0a1ce79;p=umlisp.git diff --git a/parse-rrf.lisp b/parse-rrf.lisp index 20e58b4..84a4b4b 100644 --- a/parse-rrf.lisp +++ b/parse-rrf.lisp @@ -40,19 +40,20 @@ (clrhash cuisui-lrl-hash) (clrhash sab-srl-hash)) (setf - pfstr-hash (make-hash-table :size 1300000) - cui-lrl-hash (make-hash-table :size 1300000) - lui-lrl-hash (make-hash-table :size 4600000) - sui-lrl-hash (make-hash-table :size 5100000) - cuisui-lrl-hash (make-hash-table :size 2000000) - sab-srl-hash (make-hash-table :size 100 :test 'equal)))) + pfstr-hash (make-hash-table :size 1500000) + cui-lrl-hash (make-hash-table :size 1500000) + lui-lrl-hash (make-hash-table :size 5000000) + sui-lrl-hash (make-hash-table :size 6000000) + cuisui-lrl-hash (make-hash-table :size 6000000) + sab-srl-hash (make-hash-table :size 200 :test 'equal)))) (defun ensure-preparse (&optional (force-read nil)) (when (and *preparse-hash-init?* (not force-read)) (return-from ensure-preparse 'already-done)) (make-preparse-hash-table) (let ((counter 0)) - (declare (fixnum counter)) + (declare (fixnum counter) + (ignorable counter)) (with-umls-file (line "MRCONSO.RRF") (let ((cui (parse-ui (nth 0 line))) (lui (parse-ui (nth 3 line))) @@ -220,12 +221,12 @@ ("SUI" "MRCONSO") ("SAUI" "MRCONSO") ("CODE" "MRCONSO") ("SCUI" "MRCONSO") ("CUI" "MRDEF") - ("CUI1" "MRREL") ("CUI2" "MRREL") + ("CUI1" "MRREL") ("CUI2" "MRREL") ("SAB" "MRREL") ("RUI" "MRREL") ("AUI1" "MRREL") ("AUI2" "MRREL") ("CUI" "MRSAT") ("LUI" "MRSAT") ("SUI" "MRSAT") ("METAUI" "MRSAT") ("ATN" "MRSAT") ("CUI" "MRSTY") ("TUI" "MRSTY") ("CUI" "MRXNS_ENG") - ("AUI" "MRHIER") ("PTR" "MRHIER" 255) ("CUI" "MRHIER") ("CXN" "MRHIER") ("RELA" "MRHIER") ("PAUI" "MRHIER") + ("AUI" "MRHIER") ("CUI" "MRHIER") ("CXN" "MRHIER") ("RELA" "MRHIER") ("PAUI" "MRHIER") ("SAB" "MRHIER") #+ignore ("NSTR" "MRXNS_ENG" 10) ("CUI" "MRXNW_ENG") ("NWD" "MRXNW_ENG") ("WD" "MRXW_ENG") @@ -308,7 +309,7 @@ (defun gen-ufiles-generic (files-filename dir) -"Initialize all LEX file structures" +"Initialize generic UMLS file structures" (let ((files '())) (with-umls-file (line files-filename) (destructuring-bind (fil des fmt cls rws bts) line