使用Artful MySQL模块出错

最新推荐文章于 2019-04-13 10:31:47 发布

炼器散人

最新推荐文章于 2019-04-13 10:31:47 发布

阅读量3.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： # newLISP与大数据

本文链接：https://blog.youkuaiyun.com/csfreebird/article/details/24441685

newLISP与大数据专栏收录该内容

9 篇文章

订阅专栏

本文介绍了在NewLISP环境下解决加载MySQL模块的问题，并通过更新模块使数据库连接和查询操作得以实现。

总是报错：

root@gitlab:/opt# newlisp
newLISP v.10.6.0 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h

> (load "/opt/mysql.lsp")

ERR: string expected in function import : libmysqlclient

结果发现是Ubuntu 12.04下安装的libmysqlclient.so的路径不正常，用 find / -name查找，将真实路径添加到mysql.lsp文件中

;;; Find the libmysqlclient library on this system                                                                                               
(setf is-64-bit nil)
(let ((paths '("/usr/lib/libmysqlclient.so"
               "/usr/lib/x86_64-linux-gnu/libmysqlclient.so" ;;here
               "/usr/lib64/mysql/libmysqlclient.so"
               "/usr/local/mysql/lib/libmysqlclient.dylib"
               "/opt/local/lib/libmysqlclient.dylib"
               "/sw/lib/libmysqlclient.dylib")))

好了，加载模块成功：

> (load "/opt/mysql.lsp")
MAIN

可是连接数据库报错，原来是没有跟上newllisp 10.6.0的步伐。现在获取最新的未测试的代码：

git clone https://gist.github.com/10490156.git

> (load "/opt/10490156/mysql.lsp")                                                                                                               
MAIN                                                                                                                                             
> _MYSQL:is-64-bit                                                                                                                               
true                                                                                                                                             
> (setf db (Mysql))                                                                                                                              
(Mysql 10710960)                                                                                                                                 
> (:connect db "localhost" "root" "770328" "mysql")                                                                                              
true                                                                                                                                             
> (:query db "show tables")                                                                                                                      
(MysqlResult 10812080)                                                                                                                           
> (exit)

似乎可用了，具体还要等作者完成测试。

http://www.newlispfanclub.alh.net/forum/viewtopic.php?f=16&t=4502

http://www.artfulcode.net/articles/a-better-mysql-module-for-newlisp/