思想是通过调用hive -e命令，然后解析返回的结果。

以下的hive.lsp文件是一个样例，提供了读取本地hive数据库名称。表名，表结构和依据hive表的创建语句生成相应的MySQL的创建语句。

最新代码參考我在gitlab.com上的开源项目：

https://gitlab.com/newlisp/armory.git

;; hive.lsp

;; @module hive

;; @description hive module provides some features for manuplating local hive database

;; @note must make sure the hive env are correct

;; @location hive.lsp

;; @version 0.1.0

;; @author Dean Chen

;; @example

;; (load "/opt/newlisp_util/env.lsp")

;; (HIVE:show-dbs)

;; (HIVE:show-tables db-name)

;; (HIVE:show-create-table-statment db-name table-name)

(context 'HIVE)

;; @syntax (HIVE:show-dbs)

(define (show-dbs)

  (exec (format "hive -e 'show databases' 2>&1")))

;; @syntax (HIVE:show-tables db-name)

(define (show-tables db-name)

  (exec (format "hive -e 'use %s; show tables' 2>&1" db-name)))

;; @syntax (HIVE:describe-table db-name table-name)

(define (describe-table db-name table-name)

  (exec (format "hive -e 'use %s; describe %s' 2>&1" db-name table-name)))

;; @syntax (HIVE:show-create-table db-name table-name)

(define (show-create-table db-name table-name)

  (exec (format "hive -e 'use %s; show create table %s' 2>&1" db-name table-name)))

;; @syntax (HIVE:gen-mysql-create-table hive-db-name hive-table-name)

;; @note this method use list index to locate CREATE EXTERNAL statement

;; it could be improved later for getting more compatibilty

(define (gen-mysql-create-table db-name table-name)

  (set 's-list (show-create-table db-name table-name))

  (set 'header (replace "CREATE EXTERNAL" (s-list 6) "CREATE"))

  (set 'mysql-create-table-statement "")

  (set 'mysql-create-table-statement (append mysql-create-table-statement header))

  (set 'body (slice s-list 7))

  (catch (dolist (field body)

	   (if (regex "PARTITIONED BY" field)

	       (begin

		(set 'sub-length (- (length mysql-create-table-statement) 1))

		(set 'mysql-create-table-statement (slice mysql-create-table-statement 0 sub-length))

		(throw mysql-create-table-statement))

	     (begin

	      (set 'column-list (parse field ","))

	      (dolist (column column-list)

		(set 'column-name (parse (trim column) " "))

		(if column-name

		    (begin

		     (set 'mysql-create-table-statement (append mysql-create-table-statement (column-name 0)))

		     (set 'mysql-create-table-statement (append mysql-create-table-statement " "))

		     (set 'mysql-create-table-statement (append mysql-create-table-statement (replace "string" (column-name 1) "varchar(1024)")))

		     (set 'mysql-create-table-statement (append mysql-create-table-statement ","))

		     )

		  )))))))