devops: Add codename for 17.10, host-ubuntu-version, devops:main.

diff --git a/src/devops/devops.pkg b/src/devops/devops.pkg
index ab2a048c40112ee45134d67ce8a88f90638e710d..11da6ea6866bf6e64fb7db4926275cb730dcd129 100644 (file)
--- a/src/devops/devops.pkg
+++ b/src/devops/devops.pkg
@@ -35,4 +35,4 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   (export ()
          devops:status
          devops:release
-         devops:build-status))
\ No newline at end of file
+         devops:build))
\ No newline at end of file

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index e61b8855a88a7dbfdbdd9527c4727f20602018f3..fbbe19d56ec734843933247cc87f1a0b6aa33b93 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -24,6 +24,14 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 ;;; See devops.texi for complete details.
 
+(define (devops:main)
+  (let* ((cmdl (command-line))
+        (arg1 (and (pair? cmdl) (car cmdl))))
+    (cond ((equal? arg1 "status") (devops:status))
+         ((equal? arg1 "release") (apply devops:release (cdr cmdl)))
+         ((equal? arg1 "build") (apply devops:build (cdr cmdl)))
+         (else (error "Unknown developer operation:" cmdl)))))
+
 (define (devops:status)
   (let ((dirt (shell-lines "git status --porcelain --untracked-files=no")))
     (if (file-exists? "src/runtime/version.scm")
@@ -38,7 +46,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
         (lint (core-lint version (or (core-changes) '()) dirt)))
     (if (not (null? lint))
        (begin
-         (log "\n# "(project-name)" "(version-string version)"\n")
+         (log "\n# core "(version-string version)"\n")
          (write-lint lint)))))
 
 (define (plugin-status plugin dirt)
@@ -708,17 +716,22 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (host-ubuntu-codename host)
   (ubuntu-os-codename (host-os host)))
 
+(define (host-ubuntu-version host)
+  (ubuntu-os-version (host-os host)))
+
 (define (os-ubuntu? os)
   (string-prefix? "Ubuntu " os))
 
 (define (ubuntu-os-codename os)
-  (cond ((string=? "Ubuntu 17.04" os) "zesty")
+  (cond ((string=? "Ubuntu 17.10" os) "artful")
+       ((string=? "Ubuntu 17.04" os) "zesty")
        ((string=? "Ubuntu 16.10" os) "yakkety")
        ((string=? "Ubuntu 16.04" os) "xenial")
        (else (error "Unexpected Ubuntu OS:" os))))
 
 (define (ubuntu-os-version os)
-  (cond ((string=? "Ubuntu 17.04" os) "17.04")
+  (cond ((string=? "Ubuntu 17.10" os) "17.10")
+       ((string=? "Ubuntu 17.04" os) "17.04")
        ((string=? "Ubuntu 16.10" os) "16.10")
        ((string=? "Ubuntu 16.04" os) "16.04")
        (else (error "Unexpected Ubuntu OS:" os))))