me/guix
Archived
1
0
Fork 0
Code Activity

utils: Add 'location->source-properties'.

Browse source 
* guix/utils (location-source->properties): New procedure.
This commit is contained in:
宋文武 2016-04-06 18:31:12 +08:00
parent 50a3d59473
commit f7df1e3efb
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/utils.scm
View file

@ -61,6 +61,7 @@
location-line location-line
location-column location-column
source-properties->location source-properties->location
location->source-properties
nix-system->gnu-triplet nix-system->gnu-triplet
gnu-triplet->nix-system gnu-triplet->nix-system
@ -895,3 +896,10 @@ etc."
;; In accordance with the GCS, start line and column numbers at 1. Note ;; In accordance with the GCS, start line and column numbers at 1. Note
;; that unlike LINE and `port-column', COL is actually 1-indexed here... ;; that unlike LINE and `port-column', COL is actually 1-indexed here...
(location file (and line (+ line 1)) col))) (location file (and line (+ line 1)) col)))
(define (location->source-properties loc)
"Return the source property association list based on the info in LOC,
a location object."
`((line . ,(and=> (location-line loc) 1-))
(column . ,(location-column loc))
(filename . ,(location-file loc))))