-(defun add-datatype-to-col (col datatype)
-"Add data type information to column"
- (setf (datatype col) datatype)
- (case datatype
- (sql-u (setf (sqltype col) "INTEGER"
- (parse-fun col) #'parse-ui
- (quotechar col) ""))
- (sql-s (setf (sqltype col) "SMALLINT"
- (parse-fun col) #'parse-integer
- (quotechar col) ""))
- (sql-l (setf (sqltype col) "BIGINT"
- (parse-fun col) #'parse-integer
- (quotechar col) ""))
- (sql-i (setf (sqltype col) "INTEGER"
- (parse-fun col) #'parse-integer
- (quotechar col) ""))
- (sql-f (setf (sqltype col) "NUMERIC"
- (parse-fun col) #'read-from-string
- (quotechar col) ""))
- (t ; Default column type, optimized text storage
- (setf (parse-fun col) #'add-sql-quotes
- (quotechar col) "'")
- (when (and (cmax col) (av col))
- (if (> (cmax col) 255)
- (setf (sqltype col) "TEXT")
- (if (< (- (cmax col) (av col)) 4)
- (setf (sqltype col) "CHAR") ; if average bytes wasted < 4
- (setf (sqltype col) "VARCHAR")))))))
+(defun gen-ufiles-custom ()
+ (make-ufile "MRXW.NONENG" "Custom NonEnglish Index" "MRXW_NONENG"
+ 5 0 0 (fields (find-ufile "MRXW.ENG"))))