gnu: poke: Remove generated files.

* gnu/packages/engineering.scm (poke)[source]: Add snippet to remove
generated files.
This commit is contained in:
Efraim Flashner 2021-12-06 11:37:48 +02:00
parent c70df3c467
commit 96416e4256
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -2783,7 +2783,49 @@ (define-public poke
(uri (string-append "mirror://gnu/poke/poke-" version
".tar.gz"))
(sha256
(base32 "095a0qal1fwnqxnal0xb4mp0n4zy97j3ww1j04ij3jb0jpr4s1ff"))))
(base32 "095a0qal1fwnqxnal0xb4mp0n4zy97j3ww1j04ij3jb0jpr4s1ff"))
(modules '((guix build utils)))
(snippet
'(begin
;; Delete files generated by Bison.
(delete-file "gl/parse-datetime.c")
(delete-file "gl/parse-datetime-gen.h")
(delete-file "jitter/example-vms/structured/structured-parser.c")
(delete-file "jitter/example-vms/structured/structured-parser.h")
(delete-file "jitter/jitterc/jitterc-parser.c")
(delete-file "jitter/jitterc/jitterc-parser.h")
(delete-file "jitter/jitter/jitter-routine-parser.c")
(delete-file "jitter/jitter/jitter-routine-parser.h")
(delete-file "libpoke/pkl-tab.c")
(delete-file "libpoke/pkl-tab.h")
(delete-file "poke/pk-map-tab.c")
(delete-file "poke/pk-map-tab.h")
;; Delete files generated by flex.
(delete-file "jitter/example-vms/structured/structured-scanner.c")
(delete-file "jitter/example-vms/structured/structured-scanner.h")
(delete-file "jitter/jitterc/jitterc-scanner.c")
(delete-file "jitter/jitterc/jitterc-scanner.h")
(delete-file "jitter/jitter/jitter-routine-scanner.c")
(delete-file "jitter/jitter/jitter-routine-scanner.h")
(delete-file "libpoke/pkl-lex.c")
(delete-file "libpoke/pkl-lex.h")
(delete-file "poke/pk-map-lex.c")
(delete-file "poke/pk-map-lex.h")
;; Other generated files:
(delete-file "jitter/example-vms/jitterlisp/jitterlispvm-vm1.c")
(delete-file "jitter/example-vms/jitterlisp/jitterlispvm-vm2.c")
(delete-file "jitter/example-vms/jitterlisp/jitterlispvm-vm.h")
(delete-file "jitter/example-vms/structured/structuredvm-vm1.c")
(delete-file "jitter/example-vms/structured/structuredvm-vm2.c")
(delete-file "jitter/example-vms/structured/structuredvm-vm.h")
(delete-file "jitter/example-vms/structured/structuredvm-vm-main.c")
(delete-file "jitter/example-vms/uninspired/uninspired-vm1.c")
(delete-file "jitter/example-vms/uninspired/uninspired-vm2.c")
(delete-file "jitter/example-vms/uninspired/uninspired-vm.h")
(delete-file "jitter/example-vms/uninspired/uninspired-vm-main.c")
(delete-file "libpoke/pvm-vm.h")
(delete-file "libpoke/pvm-vm1.c")
(delete-file "libpoke/pvm-vm2.c")))))
(build-system gnu-build-system)
;; The GUI, which we elide, requires tcl and tk.
(native-inputs `(;; Requires bison 3.6+ but we currently only have 3.5.