Hi,
to experiment, I tried this:
(define-module (wip pascal)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix hg-download)
#:use-module (guix utils)
#:use-module (guix build-system python)
#:use-module (guix build-system gnu)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages gcc)
#:use-module (gnu packages pkg-config))
(define-public gpc
(let ((base (custom-gccx gcc-4.7 "gpc" '("pascal"))))
(package
(inherit base)
(name "gpc")
(native-inputs
`(("tar" ,tar)
; REQUIRED: bash, bzip2, GNU sed, GNU awk, GNU m4, bison (at least version
2.0), flex (version 2.5.27), autoconf (version 2.12), texinfo (at least version
4.2), help2man.
; ENV before configure:
; FLEX=/path/to/flex
; LEX=/path/to/flex
; BISON=/path/to/bison
; YACC=/path/to/bison
; INTLBISON=/path/to/bison
("gpc"
,(origin
(method url-fetch)
(uri "http://www.gnu-pascal.de/alpha/gpc-20060325.tar.bz2";)
(sha256
(base32
"1vadkpwm0087knb2lx48fk7mkv646ivwm84iy42qjw8z7svdrz8q"))))
,@(package-native-inputs base)))
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'unpack-submodule-sources
(lambda* (#:key inputs #:allow-other-keys)
(let ((unpack (lambda (source target)
(with-directory-excursion target
(zero? (system* "tar" "xvf"
(assoc-ref inputs source)
"--strip-components=1"))))))
(unpack "gpc" "gcc")))))))))))
... and this ...
$ git diff gnu/packages/gcc.scm
diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm
index 866f8478f..8370a54c9 100644
--- a/gnu/packages/gcc.scm
+++ b/gnu/packages/gcc.scm
@@ -512,6 +512,8 @@ as the 'native-search-paths' field."
".*(c\\+\\+|cpp|g\\+\\+|gcov|gcc.*)"))
#t))))))))
+(define-public custom-gccx custom-gcc)
+
(define %generic-search-paths
;; This is the language-neutral search path for GCC. Entries in $CPATH are
;; not considered "system headers", which means GCC can raise warnings for
... but it turns out that gpc patches gcc parts - and the most recent patch is
for gcc 4.0.3 - which we don't carry.
The patch contains:
- Turns walk_subtrees off for functions (WTF).
- Adds debugging info for (bit)sets and array bounds with a floating-point
expression (WTF).
- Adds support for bitstrings (latter is in gcc/stor-layout.c and used in
gcc/expr.c). (OK)
- ! static GTY(()) unsigned int tmp_var_id_num = 155419; (WTF)
It may be that these kinds of bitstrings are integrated in gcc proper already -
I don't know.
