Re: [PATCH] gnu: Add Glulxe.

[Eric Bavier <ericbavier@gmail.com>]

宋文武 writes:

> * gnu/packages/games.scm (glkterm, glulxe): New variables.
> ---
>  gnu/packages/games.scm | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 79 insertions(+)
>
> diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
> index c9bb678..5859cbc 100644
> --- a/gnu/packages/games.scm
> +++ b/gnu/packages/games.scm
> @@ -733,3 +733,82 @@ single player.  Mods and texture packs allow players to personalize the game
>  in different ways.")
>      (home-page "http://minetest.net")
>      (license license:lgpl2.1+)))
> +
> +(define glkterm
> +  (package
> +   (name "glkterm")
> +   (version "1.0.4")
> +   (source
> +    (origin
> +     (method url-fetch)
> +     (uri (string-append "http://www.ifarchive.org/if-archive/programming/"
> +                         "glk/implementations/glkterm-104.tar.gz"))
> +     (sha256
> +      (base32
> +       "0zlj9nlnkdlvgbiliczinirqygiq8ikg5hzh5vgcmnpg9pvnwga7"))))
> +   (build-system gnu-build-system)
> +   (propagated-inputs `(("ncurses" ,ncurses)))

Could you add a comment saying why ncurses needs to be propagated?

> +   (arguments
> +    '(#:tests? #f ; no check target
> +      #:phases
> +      (alist-replace
> +       'install
> +       (lambda* (#:key outputs #:allow-other-keys)
> +         (let ((out (assoc-ref outputs "out")))
> +           (mkdir out)
> +           (mkdir (string-append out "/include"))
> +           (copy-file "glk.h" (string-append out "/include/glk.h"))
> +           (copy-file "glkstart.h" (string-append out "/include/glkstart.h"))
> +           (copy-file "gi_blorb.h" (string-append out "/include/gi_blorb.h"))
> +           (copy-file "gi_dispa.h" (string-append out "/include/gi_dispa.h"))
> +           (copy-file "Make.glkterm" (string-append out "/include/Make.glkterm"))
> +           (mkdir (string-append out "/lib"))
> +           (copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a"))))

This is a bit terse, IMHO.  Perhaps something like:

(let* ((out (assoc-ref outputs "out"))
       (inc (string-append out "/include")))
  (begin
    (mkdir-p inc)
    (for-each
      (lambda (f) (copy-file f (string-append inc "/" f)))
      '("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
    (mkdir-p lib)
    (copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a"))))

> +       (alist-delete 'configure %standard-phases))))
> +   (home-page "http://www.eblong.com/zarf/glk/")
> +   (synopsis "Curses.h Implementation of the Glk API")

"Curses implementation of the Glk API"?

Thanks!

-- 
Eric Bavier

Please avoid sending me Word or PowerPoint attachments.
See http://www.gnu.org/philosophy/no-word-attachments.html