aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
0 files changed, 0 insertions, 0 deletions
generated by cgit
; compile with :debug symbols " -DOP_SYS='\"GNU\"'" ; sic; quoting gets mangled somewhere " -DSYSTEM_V" ; closest to modern GNU " -DWORDSIZE32" " -DALIGN4") ; suffices on both x86 and ARM "LFLAGS=" ; don't link against -lg (string-append "BINDIR=" out "/bin") (string-append "LIBDIR=" out "/lib") (string-append "MANDIR=" out "/share/man"))) #:modules ((guix build gnu-build-system) (guix build utils) (srfi srfi-26)) #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-sources (lambda _ ;; Rename the custom (and incompatible) getline() implementation. (substitute* "adalex.c" (("getline") "adaed_getline")) ;; Work around ‘error: initializer element is not constant’ by not ;; initialising MSGFILE. (substitute* "vars.ch" (("INIT\\(stdout\\)") "")) #t)) (delete 'configure) ; no configure script (add-before 'build 'find-build-scripts (lambda _ (setenv "PATH" (string-append ".:" (getenv "PATH"))) #t)) (add-after 'build 'build-predef (lambda* (#:key make-flags #:allow-other-keys) ;; These aren't otherwise compiled until the ‘install’ phase. (apply invoke "make" "predef" make-flags) #t)) (delete 'check) ; no test suite; run our own below (add-before 'install 'create-output-directories (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (mkdir-p (string-append out "/share/man/manl")) #t))) (add-after 'install 'check ;; Run most of the included demos as our own ‘test suite’. (lambda* (#:key outputs tests? #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (when tests? (setenv "ADAED" (string-append out "/lib")) (setenv "PATH" (string-append out "/bin:" (getenv "PATH"))) (with-directory-excursion "demos" ; won't run outside of it (for-each delete-file '("runc" ; ‘invalid data. Please make it a positive no.’ "rund" ; deadlocks by design "rune" ; ‘dining2.ada: No such file or directory’ "rung")) ; ‘mathlib cannot be used as a library’ (!) (for-each (lambda (script) (format #t "\n=== Invoking ~a ===\n" script) (invoke script)) (find-files "." "^run"))))))) (add-after 'install 'clean-up-output (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (with-directory-excursion out ;; These needn't be executable. (for-each (cut chmod <> #o644) (append (find-files "lib" "\\....$") (find-files "share" "."))) #t))))))) (native-inputs (list sed)) (home-page (string-append "https://web.archive.org/web/20140902150609/" "http://www2.informatik.uni-stuttgart.de/iste/ps/" "ada-software/html/dos_ada.html")) (synopsis "Ada 83 interpreter") (description "Ada/Ed is a translator-interpreter for Ada 83. It's intended primarily as a teaching tool and lacks the capacity, performance, and robustness of other contemporary or modern-day Ada compilers. Ada/Ed was the first Ada compiler to pass the @acronym{ACVC, Ada Compiler Validation Suite} version 1.7 but fails many newer tests and is not a validated Ada system. Being an interpreter, it does not implement most representation clauses, and thus does not support systems programming close to the machine level.") (license license:gpl2+)))
generated by cgit