Re: BOA

[Danny Milosavljevic <dannym@scratchpost.org>]

Hi,

On Sun, 18 Dec 2016 15:30:20 +0000
Echedey López Romero <citoplasma50@gmail.com> wrote:

> I would like know when you are going to add this program 

Heh. Well I had some spare time so I tried to package boa 0.94.13. Unfortunately I get a compilation error:

util.c: In function ‘get_commonlog_time’:
util.c:100:39: error: pasting "t" and "->" does not give a valid preprocessing token
         time_offset = TIMEZONE_OFFSET(t);
                                       ^
compat.h:120:30: note: in definition of macro ‘TIMEZONE_OFFSET’
 #define TIMEZONE_OFFSET(foo) foo##->tm_gmtoff
                              ^
make: *** [<builtin>: util.o] Error 1

Would you have time to bring that to the attention of the Boa people?

I don't think foo##->tm_gmtoff makes any sense.

They probably wanted (foo)->tm_gmtoff

The Guix package definition is:

(define-public boa
  (package
    (name "boa")
    (version "0.94.13")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "http://www.boa.org/" name "-" version ".tar.gz"))
       (sha256
        (base32
         "0rkkv3s9bahlw2aa4kz3zfhniz78h9p9f4y9mzr3disrp07ba2z0"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("flex" ,flex)
       ("bison" ,bison)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-before 'configure 'chdir
           (lambda _
             (chdir "src")
             #t))
         ;; "configure" has a problem with "CONFIG_SHELL"
         (replace 'configure
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (setenv "CONFIG_SHELL" (which "sh"))
               (zero? (system* "./configure" (string-append "--prefix=" out)))))))))
    (home-page "http://www.boa.org/")
    (synopsis "Extremely tiny webserver")
    (description "This package provides an extremely tiny webserver.")
    (license l:gpl1+)))

Cheers,
   Danny