summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-04-03 11:58:43 +0000
committerLudovic Court`es2007-04-03 11:58:43 +0000
commit9bb8de71883caad5281bf7accd0f39b667d51600 (patch)
tree5ad597fc5dbad4b2ba9a33dc217f4e0d48692ace
parent3f64e72085eb4b1012a271d831d8b09f7d72e650 (diff)
parent1d230301e1f70d39b6e5d96e12934546f1b126dd (diff)
downloadskribilo-9bb8de71883caad5281bf7accd0f39b667d51600.tar.gz
skribilo-9bb8de71883caad5281bf7accd0f39b667d51600.tar.lz
skribilo-9bb8de71883caad5281bf7accd0f39b667d51600.zip
Moved legacy source location code to `compat'.
* src/guile/skribilo/lib.scm (skribe-eval-location): Removed. * src/guile/skribilo/location.scm (location-pos): Removed. * src/guile/skribilo/utils/compat.scm: Use `(skribilo location)'. (location-pos, skribe-eval-location): New. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-81
-rw-r--r--ChangeLog23
-rw-r--r--src/guile/skribilo/lib.scm10
-rw-r--r--src/guile/skribilo/location.scm5
-rw-r--r--src/guile/skribilo/utils/compat.scm11
4 files changed, 34 insertions, 15 deletions
diff --git a/ChangeLog b/ChangeLog
index 604658d..711a1ae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,29 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-04-03 11:58:43 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-81
+
+ Summary:
+ Moved legacy source location code to `compat'.
+ Revision:
+ skribilo--devo--1.2--patch-81
+
+ * src/guile/skribilo/lib.scm (skribe-eval-location): Removed.
+
+ * src/guile/skribilo/location.scm (location-pos): Removed.
+
+ * src/guile/skribilo/utils/compat.scm: Use `(skribilo location)'.
+ (location-pos, skribe-eval-location): New.
+
+ modified files:
+ ChangeLog src/guile/skribilo/lib.scm
+ src/guile/skribilo/location.scm
+ src/guile/skribilo/utils/compat.scm
+
+ new patches:
+ lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-40
+
+
2007-04-03 11:57:56 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-80
Summary:
diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm
index 1bac503..5d96a10 100644
--- a/src/guile/skribilo/lib.scm
+++ b/src/guile/skribilo/lib.scm
@@ -21,7 +21,7 @@
(define-module (skribilo lib)
:use-module (skribilo utils syntax)
- :export (skribe-eval-location skribe-ast-error skribe-error
+ :export (skribe-ast-error skribe-error
skribe-type-error
skribe-warning skribe-warning/ast
skribe-message
@@ -169,14 +169,6 @@
(lambda () (write obj))))))
;;;
-;;; SKRIBE-EVAL-LOCATION ...
-;;;
-(define (skribe-eval-location)
- (format (current-error-port)
- "FIXME: ...... SKRIBE-EVAL-LOCATION (should not appear)\n")
- #f)
-
-;;;
;;; SKRIBE-ERROR
;;;
(define (skribe-ast-error proc msg obj)
diff --git a/src/guile/skribilo/location.scm b/src/guile/skribilo/location.scm
index 1ca278f..6c23f76 100644
--- a/src/guile/skribilo/location.scm
+++ b/src/guile/skribilo/location.scm
@@ -24,7 +24,6 @@
:use-module ((skribilo utils syntax) :select (%skribilo-module-reader))
:export (<location> location? ast-location
location-file location-line location-column
- location-pos
invocation-location))
;;; Author: Ludovic Courtès
@@ -50,10 +49,6 @@
(define (location? obj)
(is-a? obj <location>))
-(define (location-pos loc)
- ;; Kept for compatibility with Skribe. XXX: Move to `compat.scm'.
- 0)
-
(define (ast-location obj)
(let ((loc (slot-ref obj 'loc)))
(if (location? loc)
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm
index 9f85658..2113e95 100644
--- a/src/guile/skribilo/utils/compat.scm
+++ b/src/guile/skribilo/utils/compat.scm
@@ -1,6 +1,6 @@
;;; compat.scm -- Skribe compatibility module.
;;;
-;;; Copyright 2005, 2006 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -24,6 +24,7 @@
:use-module (skribilo utils files)
:use-module (skribilo parameters)
:use-module (skribilo evaluator)
+ :use-module (skribilo location)
:use-module (srfi srfi-1)
:autoload (srfi srfi-13) (string-rindex)
:use-module (srfi srfi-34)
@@ -178,6 +179,14 @@
(set! %skribe-reader (make-reader 'skribe)))
(%skribe-reader port))
+
+;;;
+;;; Location.
+;;;
+
+(define-public (location-pos loc) 0)
+
+(define-public skribe-eval-location invocation-location)
;;;