unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#46497] [PATCH 1/1] gnu: Add incrtcl (itcl)
@ 2021-02-13 21:24 Sharlatan Hellseher
  2021-03-06 13:44 ` bug#46497: " Nicolas Goaziou
  0 siblings, 1 reply; 2+ messages in thread
From: Sharlatan Hellseher @ 2021-02-13 21:24 UTC (permalink / raw)
  To: 46497

[-- Attachment #1: Type: text/plain, Size: 356 bytes --]

-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0001-gnu-Add-inrtcl.patch --]
[-- Type: text/x-patch, Size: 2705 bytes --]

From eff8577bf1512975fac3d3e5f5e1f36a44878f32 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 13 Feb 2021 21:18:18 +0000
Subject: [PATCH] gnu: Add inrtcl

* gnu/pacages/tcl.scm (incrtcl): New variable.
---
 gnu/packages/tcl.scm | 51 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index f17e138bdb..2135b745ef 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -95,6 +95,57 @@
     (description "The Tcl (Tool Command Language) scripting language.")
     (license license:tcl/tk)))
 
+(define-public incrtcl
+  (package
+    (name "incrtcl")
+    (version "4.2.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://sourceforge/incrtcl/%5Bincr%20Tcl_Tk%5D-4-source/itcl%20"
+             version "/itcl" version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "0w28v0zaraxcq1s9pa6cihqqwqvvwfgz275lks7w4gl7hxjxmasw"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags
+       (list
+        (string-append
+         "--exec-prefix=" (assoc-ref %outputs "out"))
+        (string-append
+         "--with-tclinclude=" (assoc-ref %build-inputs "tcl") "/include")
+        (string-append
+         "--with-tcl=" (assoc-ref %build-inputs "tcl") "/lib"))
+       #:phases
+       (modify-phases %standard-phases
+         (replace  'check
+           (lambda _
+             (invoke "make" "test")))
+         (add-after 'install 'cleanup-bin-and-lib
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; NOTE: (Sharlatan-20210213T204336+0000): libraries appearer in
+             ;; "out/lib/itcl{{version}}" and there are no binaries, some extra
+             ;; rename and remove spells are to be applied.
+             (let ((out (assoc-ref outputs "out")))
+               (rmdir
+                (string-append out "/bin"))
+               (rename-file
+                (string-append out "/lib/itcl" ,version) (string-append out "/libtmp"))
+               (rename-file
+                (string-append out "/libtmp") (string-append out "/lib")))
+             #t)))))
+    (native-inputs
+     `(("tcl" ,tcl)))
+    (inputs
+     `(("tcllib" ,tcllib)))
+    (home-page "http://incrtcl.sourceforge.net/")
+    (synopsis "Incr Tcl or itcl OOP extension for Tcl")
+    (description
+     "TCL language extension to support Object-oriented programming paradigm.
+The name echoes C++ of C - incremental Tcl of Tcl.")
+    (license license:public-domain)))
 
 (define-public expect
   (package
-- 
2.30.0


^ permalink raw reply related	[flat|nested] 2+ messages in thread

* bug#46497: [PATCH 1/1] gnu: Add incrtcl (itcl)
  2021-02-13 21:24 [bug#46497] [PATCH 1/1] gnu: Add incrtcl (itcl) Sharlatan Hellseher
@ 2021-03-06 13:44 ` Nicolas Goaziou
  0 siblings, 0 replies; 2+ messages in thread
From: Nicolas Goaziou @ 2021-03-06 13:44 UTC (permalink / raw)
  To: Sharlatan Hellseher; +Cc: 46497-done

Hello,

Sharlatan Hellseher <sharlatanus@gmail.com> writes:

> Subject: [PATCH] gnu: Add inrtcl
>
> * gnu/pacages/tcl.scm (incrtcl): New variable.

Thank you.

I applied it with the following changes:

> ---
>  gnu/packages/tcl.scm | 51 ++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 51 insertions(+)
>
> diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
> index f17e138bdb..2135b745ef 100644
> --- a/gnu/packages/tcl.scm
> +++ b/gnu/packages/tcl.scm
> @@ -95,6 +95,57 @@
>      (description "The Tcl (Tool Command Language) scripting language.")
>      (license license:tcl/tk)))
>  
> +(define-public incrtcl
> +  (package
> +    (name "incrtcl")

I renamed it to itcl since this seems to be the most common name for it.

> +       (modify-phases %standard-phases
> +         (replace  'check
> +           (lambda _
> +             (invoke "make" "test")))

I replaced this phase with

  #:test-target "test"

> +    (synopsis "Incr Tcl or itcl OOP extension for Tcl")
> +    (description
> +     "TCL language extension to support Object-oriented programming paradigm.
> +The name echoes C++ of C - incremental Tcl of Tcl.")

I reworded the synopsis and description for hopefully more clarity.

Regards,
-- 
Nicolas Goaziou




^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2021-03-06 13:45 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2021-02-13 21:24 [bug#46497] [PATCH 1/1] gnu: Add incrtcl (itcl) Sharlatan Hellseher
2021-03-06 13:44 ` bug#46497: " Nicolas Goaziou

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).