ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: hackage: Imporve parsing of tests.

Browse source 
* guix/import/cabal.scm (lex-word): Add support for tests with no spaces.
  (impl): Rewrite.
This commit is contained in:
Federico Beffa 2015-11-11 11:22:42 +01:00
parent 7716f55c83
commit 9be54eb1b1
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guix/import/cabal.scm
View file

@ -30,6 +30,7 @@ (define-module (guix import cabal)
#:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-9 gnu)
#:use-module (system base lalr) #:use-module (system base lalr)
#:use-module (rnrs enums) #:use-module (rnrs enums)
#:use-module (guix utils)
#:export (read-cabal #:export (read-cabal
eval-cabal eval-cabal
@ -496,7 +497,7 @@ (define (lex-single-char port loc)
(define (lex-word port loc) (define (lex-word port loc)
"Process tokens which can be recognized by reading the next word form PORT. "Process tokens which can be recognized by reading the next word form PORT.
LOC is the current port location." LOC is the current port location."
(let* ((w (read-delimited " ()\t\n" port 'peek))) (let* ((w (read-delimited " <>=()\t\n" port 'peek)))
(cond ((is-if w) (lex-if loc)) (cond ((is-if w) (lex-if loc))
((is-test w port) (lex-test w loc)) ((is-test w port) (lex-test w loc))
((is-true w) (lex-true loc)) ((is-true w) (lex-true loc))
@ -696,11 +697,18 @@ (define (impl haskell)
((spec-name spec-op spec-ver) ((spec-name spec-op spec-ver)
(comp-spec-name+op+version haskell))) (comp-spec-name+op+version haskell)))
(if (and spec-ver comp-ver) (if (and spec-ver comp-ver)
(eval-string (cond
(string-append "(string" spec-op " \"" comp-name "\"" ((not (string= spec-name comp-name)) #f)
" \"" spec-name "-" spec-ver "\")")) ((string= spec-op "==") (string= spec-ver comp-ver))
((string= spec-op ">=") (version>=? comp-ver spec-ver))
((string= spec-op ">") (version>? comp-ver spec-ver))
((string= spec-op "<=") (not (version>? comp-ver spec-ver)))
((string= spec-op "<") (not (version>=? comp-ver spec-ver)))
(else
(raise (condition
(&message (message "Failed to evaluate 'impl' test."))))))
(string-match spec-name comp-name)))) (string-match spec-name comp-name))))
(define (cabal-flags) (define (cabal-flags)
(make-cabal-section cabal-sexp 'flag)) (make-cabal-section cabal-sexp 'flag))