projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3464: *** empty log message ***
[umlisp.git]
/
parse-2002.lisp
diff --git
a/parse-2002.lisp
b/parse-2002.lisp
index 67a4e0274a80acff2b8b8993e88f430f8baf0946..9d76d2e15382265c96ae4676b81186f1bb43a0ce 100644
(file)
--- a/
parse-2002.lisp
+++ b/
parse-2002.lisp
@@
-8,7
+8,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: parse-2002.lisp,v 1.
4 2002/10/14 09:25:20
kevin Exp $
+;;;; $Id: parse-2002.lisp,v 1.
5 2002/11/10 22:39:15
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@
-143,7
+143,10
@@
;;; LEX columns
("EUI" sql-u) ("EUI2" sql-u)
;;; Semantic net columns
;;; LEX columns
("EUI" sql-u) ("EUI2" sql-u)
;;; Semantic net columns
- ("UI" sql-u) ("UI2" sql-u) ("UI3" sql-u))
+ ("UI" sql-u) ("UI2" sql-u) ("UI3" sql-u)
+ ;; New fields for 2002AD
+ ("RCUI" sql-u) ("VCUI" sql-u) ("CFR" sql-i) ("TFR" sql-i)
+ )
"SQL data types for each non-string column")
(defparameter +custom-tables+
"SQL data types for each non-string column")
(defparameter +custom-tables+
@@
-255,10
+258,11
@@
;; Semantic NET indices
("UI" "SRSTRE1") ("UI2" "SRSTRE1") ("UI3" "SRSTRE1")
("STY_RL" "SRDEF") ("RT" "SRDEF") ("STY_RL" "SRSTR") ("STY_RL2" "SRSTR")
;; Semantic NET indices
("UI" "SRSTRE1") ("UI2" "SRSTRE1") ("UI3" "SRSTRE1")
("STY_RL" "SRDEF") ("RT" "SRDEF") ("STY_RL" "SRSTR") ("STY_RL2" "SRSTR")
- ("RL" "SRSTR"))
+ ("RL" "SRSTR")
+ ("SRL" "MRSAB") ("RSAB" "MRSAB") ("VSAB" "MRSAB") ("RCUI" "MRSAB")
+ ("VCUI" "MRSAB") ("LAT" "MRSAB"))
"Columns in files to index")
"Columns in files to index")
-
(defparameter +custom-index-cols+
nil
#+ignore
(defparameter +custom-index-cols+
nil
#+ignore