newlisp获取git标签名并自动更改版本

在写web页面时, 经常会有版本更改. 如果有很多页面, 就需要更改多个文件,比较麻烦. 

现有一种方法, 可以使用newlisp脚本自动从master分支获取最新版本号, 并自动更改每个页面的版本.

步骤:

1. 将代码merge到发布分支(一般是master分支)后, 在git网页上可以建立标签, 将标签名设置为版本号,如V1.0.0

2. 在编译任何代码之前,先运行newlisp脚本. 脚本内容如下:

#!/usr/bin/newlisp


;;get the latest tag of master branch

(define (get-latest-tag)
  (setf version ((exec "git tag") -1)) 
  (println version)
)

(define (rewrite-file f)
  (setf content (read-file (string "template/" f)))
  (setf new-content (replace "xxxx" content version))
  (setf r (delete-file (string "template/" f)))
  (println r)
  (append-file (string "template/" f) new-content)
) 

(define (rewrite-files)
  (setf files (exec "ls template/"))
  (dolist (f files)
    (rewrite-file f)
    )
)

(get-latest-tag)
(rewrite-files)
(exit)