crow-httpd: switch from CVS RCSID to GIT revision for versioning
authorMatthew Mondor <mmondor@pulsar-zone.net>
Mon, 22 Aug 2016 05:30:40 +0000 (05:30 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Mon, 22 Aug 2016 05:30:40 +0000 (05:30 +0000)
mmsoftware/cl/server/GNUmakefile
mmsoftware/cl/server/character.lisp
mmsoftware/cl/server/const-file.lisp
mmsoftware/cl/server/crow-test-applications.lisp
mmsoftware/cl/server/dlist.lisp
mmsoftware/cl/server/ecl-mp-server.lisp
mmsoftware/cl/server/embedded-files.lisp
mmsoftware/cl/server/html.lisp
mmsoftware/cl/server/httpd.lisp
mmsoftware/cl/server/io.lisp
mmsoftware/cl/server/syslog.lisp

index 43b8f15..82efdb1 100644 (file)
@@ -10,6 +10,8 @@ TAR := tar
 ARCHIVE := crow-httpd.tgz
 BINARY := crow-httpd
 
 ARCHIVE := crow-httpd.tgz
 BINARY := crow-httpd
 
+REVISION := $(shell git describe --always)
+
 all: $(BINARY) $(ARCHIVE)
 
 embedded-files.fas: htdocs/crow-httpd-logo.png htdocs/crow-httpd.css htdocs/valid-xhtml.png htdocs/crow-httpd-icon.png
 all: $(BINARY) $(ARCHIVE)
 
 embedded-files.fas: htdocs/crow-httpd-logo.png htdocs/crow-httpd.css htdocs/valid-xhtml.png htdocs/crow-httpd-icon.png
@@ -24,7 +26,7 @@ $(BINARY): $(FASLS) $(OBJECTS)
        $(ECL) -compile $<
 
 %.o: %.lisp
        $(ECL) -compile $<
 
 %.o: %.lisp
-       $(ECL) -eval '(pushnew :mm-ecl-standalone *features*)' -o $@ -s -compile $<
+       $(ECL) -eval "(defparameter cl-user::*crow-revision* \"$(REVISION)\") (pushnew :mm-ecl-standalone *features*)" -o $@ -s -compile $<
 
 clean:
        rm -f $(APPLICATIONS) $(BINARY) $(ARCHIVE) $(OBJECTS) $(FASLS) ecl?????? ecl????????? ecl?????????.* ecl-swank-tmpfile-* *.c *.eclh *.data *~
 
 clean:
        rm -f $(APPLICATIONS) $(BINARY) $(ARCHIVE) $(OBJECTS) $(FASLS) ecl?????? ecl????????? ecl?????????.* ecl-swank-tmpfile-* *.c *.eclh *.data *~
index 8fa4950..61cb326 100644 (file)
@@ -45,8 +45,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :character)
 
 
 (in-package :character)
 
-(defparameter *rcsid*
-  "$Id: character.lisp,v 1.6 2013/07/02 19:42:06 mmondor Exp $")
 
 
 ;;; UTF-8
 
 
 ;;; UTF-8
index 8ff39a5..6491689 100644 (file)
@@ -40,8 +40,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :const-file)
 
 
 (in-package :const-file)
 
-(defparameter *rcsid*
-  "$Id: const-file.lisp,v 1.8 2013/04/14 02:29:54 mmondor Exp $")
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
index 1be509e..9f9dc3c 100644 (file)
@@ -46,8 +46,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :test-applications)
 
 
 (in-package :test-applications)
 
-(defparameter *rcsid*
-  "$Id: crow-test-applications.lisp,v 1.8 2013/09/03 04:52:37 mmondor Exp $")
 
 
 ;;; Helper functions
 
 
 ;;; Helper functions
@@ -374,7 +372,7 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
             (:title "Suggest a name for this HTTPd"))
            (:body
             (:h1 "Suggest a name for this HTTPd")
             (:title "Suggest a name for this HTTPd"))
            (:body
             (:h1 "Suggest a name for this HTTPd")
-            (:a :href "http://cvs.pulsar-zone.net/cgi-bin/cvsweb.cgi/mmondor/mmsoftware/cl/server/"
+            (:a :href "http://git.pulsar-zone.net/?p=mmondor.git;a=tree;f=mmsoftware/cl/server;hb=HEAD"
                 :target "_blank"
                 "(source code of the server)")
             (:/br)(:/br)
                 :target "_blank"
                 "(source code of the server)")
             (:/br)(:/br)
index 1eb7032..4252cd4 100644 (file)
@@ -63,8 +63,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :dlist)
 
 
 (in-package :dlist)
 
-(defparameter *rcsid*
-  "$Id: dlist.lisp,v 1.3 2012/09/13 13:10:00 mmondor Exp $")
 
 
 (defstruct
 
 
 (defstruct
index 0ee0c89..8074792 100644 (file)
@@ -91,8 +91,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :server)
 
 
 (in-package :server)
 
-(defparameter *rcsid*
-  "$Id: ecl-mp-server.lisp,v 1.45 2013/09/04 11:49:51 mmondor Exp $")
 
 
 (defun noop (&rest args)
 
 
 (defun noop (&rest args)
index 0760272..0808ed6 100644 (file)
@@ -8,8 +8,6 @@
 
 (in-package :embedded-files)
 
 
 (in-package :embedded-files)
 
-(defparameter *rcsid*
-  "$Id: embedded-files.lisp,v 1.3 2012/09/27 03:13:48 mmondor Exp $")
 
 
 (const-file-embed ((*crow-httpd-logo-png*
 
 
 (const-file-embed ((*crow-httpd-logo-png*
index 98b81a7..814e5a9 100644 (file)
@@ -50,8 +50,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :html)
 
 
 (in-package :html)
 
-(defparameter *rcsid*
-  "$Id: html.lisp,v 1.11 2012/02/07 10:38:34 mmondor Exp $")
 
 
 (defparameter *html-mode* :xhtml
 
 
 (defparameter *html-mode* :xhtml
index 25fa698..79f0fa1 100644 (file)
@@ -175,14 +175,19 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :httpd)
 
 
 (in-package :httpd)
 
-(defparameter *rcsid*
-  "$Id: httpd.lisp,v 1.59 2013/09/03 05:57:59 mmondor Exp $")
+(defmacro httpd-revision ()
+  (let* ((revision-symbol (find-symbol "*CROW-REVISION*" :cl-user))
+        (revision (if revision-symbol
+                      (concatenate 'string "-"
+                                   (symbol-value revision-symbol))
+                      "")))
+    `,revision))
 
 (defparameter *server-version*
 
 (defparameter *server-version*
-  (let ((parts (string-split *rcsid*
-                            :separators '(#\Space #\,))))
+  (let* ((version "0.1.60")
+        (revision (httpd-revision)))
     (concatenate 'string
     (concatenate 'string
-                "Crow" "/0." (svref parts 3)))
+                "Crow/" version revision))
   "Version string presented in the Server HTTP response header.")
 
 
   "Version string presented in the Server HTTP response header.")
 
 
@@ -1883,11 +1888,11 @@ See the *DEBUG* documentation for more details."
              (:h3 "Related links")
              (:ul (:li (:a :href "http://mmondor.pulsar-zone.net/"
                            "The author's site, hosted by Crow-HTTPd"))
              (:h3 "Related links")
              (:ul (:li (:a :href "http://mmondor.pulsar-zone.net/"
                            "The author's site, hosted by Crow-HTTPd"))
-                  (:li (:a :href "http://cvs.pulsar-zone.net/cgi-bin/cvsweb.cgi/~checkout~/mmondor/mmsoftware/cl/server/README?content-type=text%2Fplain"
+                  (:li (:a :href "http://git.pulsar-zone.net/?p=mmondor.git;a=blob_plain;f=mmsoftware/cl/server/README;hb=HEAD"
                            :target "_blank"
                            "The README document with more information and "
                            "a features list"))
                            :target "_blank"
                            "The README document with more information and "
                            "a features list"))
-                  (:li (:a :href "http://cvs.pulsar-zone.net/cgi-bin/cvsweb.cgi/mmondor/mmsoftware/cl/server/"
+                  (:li (:a :href "http://git.pulsar-zone.net/?p=mmondor.git;a=tree;f=mmsoftware/cl/server;hb=HEAD"
                            :target "_blank"
                            "The source code of this server"))
                   (do-html-when (find-package :test-applications)
                            :target "_blank"
                            "The source code of this server"))
                   (do-html-when (find-package :test-applications)
@@ -2022,9 +2027,10 @@ See the *DEBUG* documentation for more details."
 
              (:h2 "Server information")
              (:p *server-version* " "
 
              (:h2 "Server information")
              (:p *server-version* " "
-                 (:a :href "http://cvs.pulsar-zone.net/cgi-bin/cvsweb.cgi/mmondor/mmsoftware/cl/server/"
+                 (:a :href "http://git.pulsar-zone.net/?p=mmondor.git;a=tree;f=mmsoftware/cl/server;hb=HEAD"
                      :target "_blank"
                      "(Source available here)."))
                      :target "_blank"
                      "(Source available here)."))
+             |# Only valid for CVS
              (:p (do-html-loop
                      (with packages = (list-all-packages)
                       for p in packages
              (:p (do-html-loop
                      (with packages = (list-all-packages)
                       for p in packages
@@ -2034,6 +2040,7 @@ See the *DEBUG* documentation for more details."
                       when v)
                    (:code  v) (:/br)))
              (:p "HTTP server uptime: " (server-uptime))
                       when v)
                    (:code  v) (:/br)))
              (:p "HTTP server uptime: " (server-uptime))
+             |#
              (:code (html-escape (lisp-implementation-type)) " "
                     (html-escape (lisp-implementation-version)) " ("
                     (html-escape (first (mp::uname))) ")")
              (:code (html-escape (lisp-implementation-type)) " "
                     (html-escape (lisp-implementation-version)) " ("
                     (html-escape (first (mp::uname))) ")")
index 88ab8e0..ec03669 100644 (file)
@@ -39,8 +39,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :io)
 
 
 (in-package :io)
 
-(defparameter *rcsid*
-  "$Id: io.lisp,v 1.3 2012/10/12 22:49:58 mmondor Exp $")
 
 
 (ffi:clines "
 
 
 (ffi:clines "
index d256278..84d81b1 100644 (file)
@@ -49,8 +49,6 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (in-package :syslog)
 
 
 (in-package :syslog)
 
-(defparameter *rcsid*
-  "$Id: syslog.lisp,v 1.5 2013/04/14 02:31:43 mmondor Exp $")
 
 
 ;;; FFI helpers (borrowed from my earlier ecl-unix.lisp, should ideally
 
 
 ;;; FFI helpers (borrowed from my earlier ecl-unix.lisp, should ideally