summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-04-04 17:15:48 +0000
committerLudovic Court`es2007-04-04 17:15:48 +0000
commit9f5c79c92c64941ee7d12b10183c5efc68514993 (patch)
tree99e898aa4f42cb4b919164867af60bd37d1855a0
parent75d25f7c6edd388124c4ff858869a83ddee2246c (diff)
parent1b45eb54528d019a96ea07eba4a1c2f7aeb5acd6 (diff)
downloadskribilo-9f5c79c92c64941ee7d12b10183c5efc68514993.tar.gz
skribilo-9f5c79c92c64941ee7d12b10183c5efc68514993.tar.lz
skribilo-9f5c79c92c64941ee7d12b10183c5efc68514993.zip
`diff' package: Added basic source location support.
* src/guile/skribilo/package/diff.scm (deletion, insertion, replacement, unchanged): Added a `:loc' parameter. (make-diff-document): When creating new ASTs, keep the location of AST2. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-84
-rw-r--r--ChangeLog19
-rw-r--r--src/guile/skribilo/package/diff.scm20
2 files changed, 33 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index cfe08e7..fc3f0eb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,25 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-04-04 17:15:48 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-84
+
+ Summary:
+ `diff' package: Added basic source location support.
+ Revision:
+ skribilo--devo--1.2--patch-84
+
+ * src/guile/skribilo/package/diff.scm (deletion, insertion, replacement,
+ unchanged): Added a `:loc' parameter.
+ (make-diff-document): When creating new ASTs, keep the location of
+ AST2.
+
+ modified files:
+ ChangeLog src/guile/skribilo/package/diff.scm
+
+ new patches:
+ lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-43
+
+
2007-04-03 14:58:13 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-83
Summary:
diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm
index f3f6cba..895606e 100644
--- a/src/guile/skribilo/package/diff.scm
+++ b/src/guile/skribilo/package/diff.scm
@@ -61,28 +61,32 @@
;;; Markup.
;;;
-(define-markup (deletion :rest args)
+(define-markup (deletion :rest args :key loc)
(new markup
(markup 'diff:deletion)
(ident (gensym "diff:deletion"))
+ (loc (or loc &invocation-location))
(body args)))
-(define-markup (insertion :rest args)
+(define-markup (insertion :rest args :key loc)
(new markup
(markup 'diff:insertion)
(ident (gensym "diff:insertion"))
+ (loc (or loc &invocation-location))
(body args)))
-(define-markup (replacement :rest args)
+(define-markup (replacement :rest args :key loc)
(new markup
(markup 'diff:replacement)
(ident (gensym "diff:replacement"))
+ (loc (or loc &invocation-location))
(body args)))
-(define-markup (unchanged :rest args)
+(define-markup (unchanged :rest args :key loc)
(new markup
(markup 'diff:unchanged)
(ident (gensym "diff:unchanged"))
+ (loc (or loc &invocation-location))
(body args)))
@@ -282,6 +286,7 @@
(markup 'document)
(ident ident)
(class class)
+ (loc (ast-loc ast2))
(options opts)
(body (loop (if (markup? ast1)
(markup-body ast1)
@@ -303,6 +308,7 @@
(markup kind)
(ident ident)
(class class)
+ (loc (ast-loc ast2))
(options (if (or (undiffable? kind)
(not (container? ast1)))
(markup-options ast2)
@@ -324,6 +330,7 @@
(markup kind)
(ident ident)
(class class)
+ (loc (ast-loc ast2))
(options (if (or (undiffable? kind)
(not (markup? ast1)))
(markup-options ast2)
@@ -338,6 +345,7 @@
((command? ast2)
;; Leave it untouched.
(new command
+ (loc (ast-loc ast2))
(fmt (command-fmt ast2))
(body (command-body ast2))))
@@ -358,10 +366,10 @@
ast2)))
((equal? ast1 ast2)
- (unchanged ast1))
+ (unchanged :loc (ast-loc ast2) ast1))
(else
- (insertion ast2)))))
+ (insertion :loc (ast-loc ast2) ast2)))))