用了几年的CMake，最近想试着琢磨如何将C++应用的动态链接全部改成静态链接，发现还需要研究CMake的用法，进入CMake的文档，
http://www.cmake.org/cmake/help/syntax.html
看到这句：
In many ways writing a CMakeLists file is like a writing a program in a simple language. Like most languages CMake provides flow control structures to help you along your way. CMake provides three flow control structures:
再往下看，里面是什么条件语句，循环，定义过程等，一个简单的script语言用来控制CMake生成Makefile。
过去CMake帮助了我，因为我对写Makefile很厌烦，CMake让我能够设计良好的目录结构，不要再自己实现目录树递归的Makefile脚本。
但是时至今天，对于已经熟练掌握newlisp语言的我，还有什么比用newlisp来实现脚本更强大的工具，为什么我还用CMake？我并不需要考虑跨平台编译，我只是在实践Linux服务器上的C++编程。我仅仅使用GCC作为编译器。直接用newlisp来控制GCC，可以让我直接使用GCC，更深层次的理解编译器的行为。
说做就做，本着仍然不改变原有CMake工程的精神，创建了几个newlisp脚本实现递归目录树，编译文件，最后动态或者静态链接。
现在介绍一下使用。这个CppCMS程序目录结构是：
tree -L 4 . ├── builder │ ├── build_config.lsp │ ├── compile.lsp │ ├── compile.lsp~ │ ├── dlink.lsp │ ├── dlink.lsp~ │ ├── g++.lsp │ ├── link.lsp~ │ ├── rebuild.lsp │ ├── slink.lsp │ ├── slink.lsp~ │ └── tmpl.lsp ├── codes │ ├── main │ │ ├── build │ │ ├── CMakeLists.txt │ │ ├── conf.d │ │ │ ├── ca-certs.crt │ │ │ ├── site.crt │ │ │ ├── ssl.key │ │ │ ├── ssl-pwd.key │ │ │ ├── site.conf │ │ │ ├── default.conf_bk │ │ │ ├── example_ssl.conf │ │ │ ├── fastcgi.cml │ │ │ ├── nginx_signing.key │ │ │ ├── server.crt │ │ │ ├── server.csr │ │ │ ├── server.key │ │ │ └── server.key.org │ │ ├── config.js │ │ ├── create_deploy.sh │ │ ├── include │ │ │ ├── bean │ │ │ ├── configuration.h │ │ │ ├── controller │ │ │ ├── display.h │ │ │ ├── displays.h │ │ │ ├── exception │ │ │ ├── group.h │ │ │ ├── groups.h │ │ │ ├── helper │ │ │ ├── module │ │ │ ├── my_application.h │ │ │ ├── response.h │ │ │ ├── service │ │ │ └── web_user.h │ │ ├── install.sh │ │ ├── jscheck │ │ │ ├── pom.xml │ │ │ └── src │ │ ├── proto │ │ │ ├── build.sh │ │ │ ├── input │ │ │ └── output │ │ ├── resources │ │ │ ├── html │ │ │ ├── images │ │ │ ├── plugin │ │ │ ├── script │ │ │ └── style │ │ ├── src │ │ │ ├── bean │ │ │ ├── CMakeLists.txt │ │ │ ├── controller │ │ │ ├── display.cpp │ │ │ ├── displays.cpp │ │ │ ├── group.cpp │ │ │ ├── groups.cpp │ │ │ ├── helper │ │ │ ├── main.cpp │ │ │ ├── module │ │ │ ├── my_application.cpp │ │ │ ├── service │ │ │ ├── view │ │ │ └── web_user.cc │ │ ├── template │ │ │ ├── accounts.tmpl │ │ │ ├── default.tmpl │ │ │ ├── deny.tmpl │ │ │ ├── gprsConfig.tmpl │ │ │ ├── gprsManager.tmpl │ │ │ ├── groupManagement.tmpl │ │ │ ├── home.tmpl │ │ │ ├── login.tmpl │ │ │ ├── log.tmpl │ │ │ ├── message.tmpl │ │ │ ├── register_client.tmpl │ │ │ ├── updatePassword.tmpl │ │ │ └── userTitle.tmpl │ │ └── tool.sh │ └── test └── README
运行方式就是进入builder目录执行
./rebuild.lsp
首先将CppCMS的tmpl模板文件编译成C++类
然后将所有.cc和.cpp文件编译成.o文件
最后动态链接成可执行程序。
先看rebuild.lsp代码：
#!/usr/bin/newlisp
;; init
(load "/opt/build_config.lsp")
(set 'armory-folder (env "NEWLISP_ARMORY_HOME"))
(println (append "newlisp armory home folder: " armory-folder))
(load (append armory-folder "/codes/file/file.lsp"))
(file:init)
;; clean files genereated by CMake
(set 'cmake-build-dir "../codes/main/build")
(file:clean-folder cmake-build-dir)
;; clean view/*.cpp files generated from cppcms_tmpl_cc
(set 'view-dir "../codes/main/src/view")
(file:clean-folder view-dir)
(set 'tmpl-dir "../codes/main/template")
;; generate .cc files in view folder
(load "tmpl.lsp")
(tmpl-to-cc tmpl-dir view-dir)
;; compile all c++ files to .o file in ./o folder
(load "g++.lsp")
(set 'include-paths
(list "../codes/main/include"
"../codes/main/src/../../loki-0.1.7/include"))
(set 'o-dir "./o")
(set 'src-paths
(list "../codes/main/src"
"../codes/main/src/bean"
"../codes/main/src/controller"
"../codes/main/src/helper"
"../codes/main/src/module"
"../codes/main/src/service"
"../codes/main/src/view"
))
(compile include-paths src-paths o-dir)
;; link all .o files
(set 'libs
(list "pthread"
"cppcms"
"mongoclient"
"booster"
"loki"
"cryptopp"
"boost_system"
"boost_thread"
"boost_filesystem"
))
(set 'binary-name "sports_lottery")
(set 'bin-dir "bin")
(dynamic-link o-dir bin-dir binary-name libs)
(exit)
该文件用到了newlisp armory模块，参考我的GitHub项目：
https://github.com/csfreebird/newlisp_armory
tmpl.lsp文件专门负责处理CppCMS tmpl文件，代码如下：
(define (get-extension name)
(first (regex "[^.]*$" name))
)
;; @syntax (remove-extension name)
;; @return file name without extension
;; @note remove extension name e.g a.b .b is extension, it will be removed
(define (remove-extension name)
((regex "(.*)\.(.*)$" name) 3)
)
;; @syntax (tmpl-to-cc)
;; @note find all tmpl files in tmpl-folder, translate them into *.cc files
(define (tmpl-to-cc tmpl-folder cc-folder)
(set 'tmpl-files (directory tmpl-folder "\.tmpl"))
(set 'cmd-tmpl (append "cppcms_tmpl_cc " tmpl-folder "/%s -o " cc-folder "/%s.cc"))
(dolist (tmpl-file tmpl-files)
(set 'cmd (format cmd-tmpl tmpl-file (remove-extension tmpl-file)))
(println cmd)
(exec cmd)
)
)
g++.lsp专门生成g++命令，文件内容如下：
;; @syntax (compile include-dirs src-dirs o-dir)
;; @parameter include-dir a list contains one or more relative or absolute include directories
;; @parameter src-dirs a list contains one or more relative or absolute src dirs
(define (compile include-dirs src-dirs o-dir)
(if (directory? o-dir)
(file:clean-folder o-dir)
(make-dir o-dir))
(set 'path1 "")
(dolist (path include-dirs)
(set 'path1 (append path1 "-I" path " ")))
(set 'cmd-template (format "/usr/bin/c++ -g %s -Wall -o %s/" path1 o-dir))
(dolist (dir src-dirs)
(compile-dir dir cmd-template)
)
)
;; @syntax (compile-dir dir cmd-template)
;; @parameter dir one folder which contains many .cc or .cpp files
;; @parameter cmd-template the command template that has -g, -Wall and -I args
(define (compile-dir dir cmd-template)
(set 'file-list (directory dir "\.cc|\.cpp"))
(println "dir: " dir)
(dolist (cc-path file-list)
(set 'str (append cc-path ".o"))
(set 'cmd (append cmd-template str " -c " dir "/" cc-path))
(println cmd)
(exec cmd))
)
;; @syntax (dynamic-link o-dir bin-dir binary-name libs)
;; @parameter o-dir the direcotry includs all .o files
;; @parameter bin-dir the location of linked binary file
;; @libs the list of all dependencies
(define (dynamic-link o-dir bin-dir binary-name libs)
(if (directory? bin-dir)
(file:clean-folder bin-dir)
(make-dir bin-dir))
(set 'cmd "/usr/bin/c++ -g")
(set 'o-files (directory o-dir "\.o"))
(dolist (o-file o-files)
(set 'cmd (append cmd " " (real-path o-dir) "/" o-file)))
(set 'cmd (append cmd " -o " bin-dir "/" binary-name " -rdynamic"))
(dolist (lib libs)
(set 'cmd (append cmd " -l" lib)))
(println cmd)
(exec cmd)
)
;; @syntax (static-link o-dir bin-dir binary-name libs)
;; @parameter o-dir the direcotry includs all .o files
;; @parameter bin-dir the location of linked binary file
;; @libs the list of all dependencies
(define (static-link o-dir bin-dir binary-name libs)
(if (directory? bin-dir)
(file:clean-folder bin-dir)
(make-dir bin-dir))
(set 'cmd "/usr/bin/c++ -g ")
(set 'o-files (directory o-dir "\.o"))
(dolist (o-file o-files)
(set 'cmd (append cmd " " (real-path o-dir) "/" o-file)))
(set 'cmd (append cmd " -o " bin-dir "/" binary-name " -static-libgcc -static-libstdc++ -static -L/usr/lib/x86_64-linux-gnu"))
(dolist (lib libs)
(set 'cmd (append cmd " -l" lib))
(println cmd))
(exec cmd)
)
为了方便使用，还提供了专门用于编译的文件compile.lsp，可以直接运行。
;; compile all c++ files to .o file in ./o folder
(load "g++.lsp")
(set 'include-paths
(list "../codes/main/include"
"../codes/main/src/../../loki-0.1.7/include"))
(set 'o-dir "./o")
(set 'src-paths
(list "../codes/main/src"
"../codes/main/src/bean"
"../codes/main/src/controller"
"../codes/main/src/helper"
"../codes/main/src/module"
"../codes/main/src/service"
"../codes/main/src/view"
))
(compile include-paths src-paths o-dir)
(exit)
专门动态链接的文件dlink.lsp
#!/usr/bin/newlisp
;; init
(load "/opt/build_config.lsp")
(set 'armory-folder (env "NEWLISP_ARMORY_HOME"))
(println (append "newlisp armory home folder: " armory-folder))
(load (append armory-folder "/codes/file/file.lsp"))
(file:init)
;; compile all c++ files to .o file in ./o folder
(load "g++.lsp")
(set 'o-dir "./o")
;; link all .o files
(set 'libs
(list "pthread"
"cppcms"
"mongoclient"
"booster"
"loki"
"cryptopp"
"boost_system"
"boost_thread"
"boost_filesystem"
))
(set 'binary-name "sports_lottery_d")
(set 'bin-dir "bin")
(dynamic-link o-dir bin-dir binary-name libs)
(exit)
专门静态链接的文件slink.lsp
#!/usr/bin/newlisp
;; init
(load "/opt/build_config.lsp")
(set 'armory-folder (env "NEWLISP_ARMORY_HOME"))
(println (append "newlisp armory home folder: " armory-folder))
(load (append armory-folder "/codes/file/file.lsp"))
(file:init)
;; compile all c++ files to .o file in ./o folder
(load "g++.lsp")
(set 'o-dir "./o")
;; link all .o files
(set 'libs
(list "mongoclient"
"cppcms"
"booster"
"boost_system"
"loki"
"cryptopp"
"boost_thread"
"pthread"
"boost_filesystem"
"dl"
"gcrypt"
"z"
"pcre"
"icuuc"
"icui18n"
"gpg-error"
"icuuc"
"icudata"
))
(set 'binary-name "sports_lottery_s")
(set 'bin-dir "bin")
(static-link o-dir bin-dir binary-name libs)
(exit)
注意，slink.lsp中这些静态库的名称和顺序是不断尝试出来的。我总结了一个好方法：
1. A依赖B，A必须出现在B前
2. 一开始只加一个库mongoclient，然后看连接器报错，看少什么库，然后通过ldd来查找正确的库名称，添加在后面。这样就能找全所有的静态库。
newlisp真是强大的脚本工具，不断改进我的生活。